OpenEuphoria

2. Re: Can No Longer Run Phix Apps

• Posted by petelomax Jan 03, 2021
• 1108 views

I assume p -test runs ok. Check you have installed the latest updates to Windows Defender as per my other message today.

Otherwise...

Reboot. Or find something in Task Manager to kill.
Edita has an icky single instance routine that sends a message to every window on the system, and if any of them are not responding it just hangs.
Hasn't hit me for over 18 months though, touch wood. (I think the reason for that is Windows itself got alot better at handling dead windows.)

4. Re: Can No Longer Run Phix Apps

• Posted by euphoric (admin) Jan 03, 2021
• 1085 views

Yep! All tests completed successfully, 2.62 seconds.

Seems everything is up-to-date there. What other message?

Doesn't help.

6. Re: Can No Longer Run Phix Apps

• Posted by petelomax Jan 03, 2021
• 1082 views

OK, to see if it is what I think it is, edit (prolly in notepad) demo\edita\src\easinst.ew and comment out line 121:

    void = c_func(xEnumWindows,{cb_ewp,NULL}) 

Be warned that if you let multiple instances run, they'll stop on each others toes and soon corrupt edita.edb irretrievably. (deleting it ain't usually terribly bad)

The one titled "False positive for phix.0.8.2.setup.exe [resolved]"

8. Re: Can No Longer Run Phix Apps

• Posted by petelomax Jan 04, 2021
• 1056 views

Let's see what the following spits out. Run from anywhere, adjusting the path to Arwen.ew as needed

include demo\arwen\Arwen.ew 
 
constant isDebug = false 
 
constant CD_OPEN=#20050227, -- open file 
         CD_EDITA=#20050228, -- Are you really Edita? 
         CD_PFTP=#20070421  -- Are you really pFTP? 
 
integer cd_what 
sequence cd_text 
 
constant Edita="Edita" 
 
atom Hwnd 
 
constant xGetWindowModuleFileName = link_c_func(user32, "GetWindowModuleFileName", 
            {C_PTR,     --  HWND  hWnd 
             C_PTR,     --  lpszFileName 
             C_INT},    --  UINT cchFileNameMax 
            C_INT),     -- UINT 
         xGetWindowText = link_c_func(user32, "GetWindowTextA", 
            {C_PTR,     --  HWND hWnd, 
             C_PTR,     --  LPTSTR lpString, 
             C_INT},    --  int nMaxCount 
            C_INT),     -- int 
        pszFileName = allocate(500) 
 
function EnumWindowsProc(atom hwnd, atom lParam) 
atom mem, CDS 
integer len, len2 
sequence text 
    if lParam then end if   -- suppress warnings 
if 0 then 
    len = c_func(xGetWindowModuleFileName,{hwnd,pszFileName,500}) 
    if len then 
        string szFileName = peek({pszFileName,len}) 
        printf(1,"module:%s\n",{szFileName}) 
    end if 
else 
    len = c_func(xGetWindowText,{hwnd,pszFileName,500}) 
    if len then 
        string pString = peek({pszFileName,len}) 
        if not find(pString,{"Default IME","MSCTFIME UI"}) then 
            printf(1,"Window title:%s\n",{pString}) 
        end if 
    end if 
end if 
    len = c_func(xSendMessage, {hwnd, WM_GETTEXTLENGTH, 0, 0}) 
    if len>=length(cd_text) then 
        len += 1 
        mem = allocate(len) 
        len2 = c_func(xSendMessage, {hwnd, WM_GETTEXT, len, mem}) 
        if len2+1 != len then ?9/0 end if   -- sanity check 
        text = peek({mem, len}) 
if not find(text,{"MSCTFIME UI\0","Default IME\0"}) then ?{"text",text} end if 
        free(mem) 
        if match(cd_text,text)=1 then 
            -- 
            -- Edita already running? 
            -- 
            CDS = allocate(12) 
            poke4(CDS,{cd_what,0,0}) 
            if c_func(xSendMessage,{hwnd, WM_COPYDATA, NULL, CDS})=cd_what then 
                Hwnd = hwnd 
                if cd_what=CD_EDITA then 
?"EDITA" 
return 1 
                end if 
                -- 
                -- make existing edita topmost 
                -- 
                if c_func(xIsIconic,{hwnd}) then 
                    -- Thanks to Pete Stoner/joel on software 
                    -- If the window is minimised, restore it before  
                    -- trying to make it the foreground window. 
                    c_proc(xShowWindow,{hwnd,SW_RESTORE}) 
                end if 
                c_proc(xSetForegroundWindow,{hwnd}) 
                free(CDS) 
                if cd_what=CD_EDITA then 
                    -- .. and terminate. 
--                  abort(0) 
?"FOUND EDITA... continuing" 
                end if 
--              return 0    -- cease enumeration 
                return 1 
            end if 
            free(CDS) 
        end if 
    end if   
    return 1    -- continue enumeration 
end function 
 
constant cb_ewp = call_back(routine_id("EnumWindowsProc")) 
 
global function checkSingleInstance(integer cwhat)  -- now called from eaini.e 
    cd_what=cwhat 
    if cd_what=CD_EDITA then 
        cd_text=Edita 
    elsif cd_what=CD_PFTP then 
        cd_text="pFTP" 
    else 
        ?9/0 
    end if 
    Hwnd = 0 
    void = c_func(xEnumWindows,{cb_ewp,NULL}) 
    return Hwnd -- 0 if not found else hwnd of window. 
end function 
 
?"begin" 
?checkSingleInstance(CD_EDITA) 
?"done" 
{} = wait_key() 
abort(0) 

If it's not getting to the "done", something ain't playing nice.
Unfortunately it will probably show the window before rather than the one actually in error.

10. Re: Can No Longer Run Phix Apps

• Posted by petelomax Jan 04, 2021
• 1047 views

OK, I've edited post #8 above to add a "module:" output, see if that gives us any better clues.
If it hangs with "module:" the last thing output, that's a clue.
If it hangs with {"text",..} last thing, something really ain't playing nice.

12. Re: Can No Longer Run Phix Apps

• Posted by euphoric (admin) Jan 04, 2021
• 1040 views

Bad news. {"text",..} is the last thing!

14. Re: Can No Longer Run Phix Apps

• Posted by euphoric (admin) Jan 04, 2021
• 1016 views

The last line is

Window title:NVEncCapContext 

which, I think, is related to an NVIDIA driver or app.

16. Re: Can No Longer Run Phix Apps

• Posted by euphoric (admin) Jan 04, 2021
• 1029 views

Why do you think it's a problem with NVIDIA? You think their driver or an app of theirs is malfunctioning?

Everything works normal for me when it comes to the graphics.

18. Re: Can No Longer Run Phix Apps

• Posted by euphoric (admin) Jan 04, 2021
• 1018 views

I'm not sure about that, because it's been a while since I've been able to get to Phix projects.

Interestingly, I did update the NVIDIA driver today and still get that behavior. But you're thinking I need to do a total wipe of NVIDIA stuff and reinstall?

Yeah, this is probably true. I'm not sure when it changed behavior, but since successful runs, two things have changed: Phix and NVIDIA. However, Phix changed first.

So, the idea, again, is to totally reinstall NVIDIA stuff?

Unfortunately, I've been having boot issues with Windows 10, so I'm leery of going that route for now.

Maybe at some point...