OpenEuphoria

1. Need an other phix explanation please

• Posted by begin Feb 24, 2018
• 2086 views

try to compile Phix\demo\Win32Demo\star.exw with phix but to no avail. is there a fix or an explanation?

H:\Phix\demo\win32lib7\w32memory.ew:-1 (era=#0, from_addr=#04CDB8C8, ret_addr=#04CDB8FE) in function l_SafePeek() 
attempt to subscript an atom 
    addr = {49178832,0} 
    a = <novalue> 
    l = <novalue> 
... called from H:\Phix\demo\win32lib7\w32memory.ew:454 in function w32peek_string() 
    a = 49178832 
    l = 0 
    s = <novalue> 
... called from H:\Phix\demo\win32lib7\win32lib.ew:954 in function getWinVersion() 
    lResult = {6,2,9200,2,0,0,0,0,0} 
    lOV = 49178812 
    lResp = 1 
... called from H:\Phix\demo\win32lib7\win32lib.ew:1009 
... called from H:\Phix\demo\Win32Demo\win32lib.ew:7 
... called from H:\Phix\demo\Win32Demo\star.exw:3 

3. Re: Need an other phix explanation please

• Posted by begin Feb 24, 2018
• 2094 views

thank you so very much for the explanation and all the hints.

i renamed the euphoria folder i changed star.exw with 2PI. but i never come to that location. i always get that error:

H:\Euphoriaprog\win32lib7\w32memory.ew:-1 (era=#0, from_addr=#04C12C52, ret_addr=#04C12C88) in function l_SafePeek() 
attempt to subscript an atom 
    addr = {45709616,0} 
    a = <novalue> 
    l = <novalue> 
... called from H:\Euphoriaprog\win32lib7\w32memory.ew:454 in function w32peek_string() 
    a = 45709616 
    l = 0 
    s = <novalue> 
... called from H:\Euphoriaprog\win32lib7\win32lib.ew:954 in function getWinVersion() 
    lResult = {6,2,9200,2,0,0,0,0,0} 
    lOV = 45709596 
    lResp = 1 
... called from H:\Euphoriaprog\win32lib7\win32lib.ew:1009 
... called from H:\Euphoriaprog\dax\bgi.e:3 

i kind of need to to use winlib, since the iup plot does not allow for dates as labels (data), as far as i could find out by now. so i like to my own plotter.

do you have any idea to a fix for the above error?

richard

5. Re: Need an other phix explanation please

• Posted by begin Feb 24, 2018
• 2059 views

yes sorry i copied the wrong err

H:\Phix\demo\win32lib7\w32memory.ew:-1 (era=#0, from_addr=#04C0C8DC, ret_addr=#04C0C912) in function l_SafePeek() 
attempt to subscript an atom 
    addr = {51680656,0} 
    a = <novalue> 
    l = <novalue> 
... called from H:\Phix\demo\win32lib7\w32memory.ew:454 in function w32peek_string() 
    a = 51680656 
    l = 0 
    s = <novalue> 
... called from H:\Phix\demo\win32lib7\win32lib.ew:954 in function getWinVersion() 
    lResult = {6,2,9200,2,0,0,0,0,0} 
    lOV = 51680636 
    lResp = 1 
... called from H:\Phix\demo\win32lib7\win32lib.ew:1009 
... called from H:\Phix\demo\Win32Demo\star.exw:3 

line 3 in the previous was just an include include ..\win32lib7\win32lib.ew and nothing else

richard

7. Re: Need an other phix explanation please

• Posted by begin Feb 24, 2018
• 2045 views

global function getWinVersion() 
sequence lResult 
atom lOV 
atom lResp 
 
    lOV = w32to_memory(0,ID_OSVERSIONINFOEX,0) 
    lResp = w32Func(xGetVersionEx, {lOV}) 
    lResult = repeat(0,9) 
    if lResp=0 then 
        w32store(lOV, dwOSVersionInfoSize,  SIZEOF_OSVERSIONINFO) 
        lResp = w32Func(xGetVersionEx, {lOV}) 
    end if 
    lResult[1..4] = peek4s({lOV+4, 4}) 
    lResult[5] = w32peek_string(lOV+20)      <======================= 954 
    lResult[6]  = w32fetch(lOV,wServicePackMajor) 
    lResult[7]  = w32fetch(lOV,wServicePackMinor) 
    lResult[8]  = w32fetch(lOV,wSuiteMask) 
    lResult[9]  = w32fetch(lOV,wProductType) 
 
    w32release_mem(lOV) 
    if lResult[1]=6 then 
        lResult[1] = WIN_VISTA 
    elsif lResult[4]=0 then 
        lResult[1] = WIN_3_1 
    elsif lResult[4]=1 then 
        if lResult[2]=0 then 
            if equal(lResult[5], " C") then 
                lResult[1] = WIN_95_OSR2 
            else 
                lResult[1] = WIN_95 
            end if 
 
        elsif lResult[2]=10 then 
            if equal(lResult[5], " A") then 
                lResult[1] = WIN_98SE 
            else 
                lResult[1] = WIN_98 
            end if 
        else 
            lResult[1] = WIN_ME 
        end if 
        lResult[3] = and_bits(#FFFF, lResult[3]) 
    else 
        if lResult[2]=51 then 
            lResult[1] = WIN_NT_3_51 
        elsif lResult[2]=0 then 
            if lResult[1]=4 then 
                lResult[1] = WIN_NT_4 
            else 
                lResult[1] = WIN_2000 
            end if 
        elsif lResult[2]=1 then 
            lResult[1] = WIN_XP 
        else 
            lResult[1] = WIN_UNKNOWN 
        end if 
    end if 
    lResult[2] = lResult[5] 
 
    if lResult[6]=0 then 
        lResult = lResult[1..3] 
    else 
        lResult = lResult[1..3] & lResult[6..9] 
    end if 
 
    return lResult 
end function 

9. Re: Need an other phix explanation please

• Posted by petelomax Feb 24, 2018
• 2029 views

Coincidentally, a couple of days ago I stumbled across a bug in pGUI, when investigating something to do with pointer sizes (I've forgotten the exact details already!). Anyway, on an offchance:

procedure iup_poke_string_pointer_array(atom ptr, sequence strings) 
    for i=1 to length(strings) do 
        string si = strings[i] 
--      pokeN(ptr,si,machine_word()) 
        pokeN(ptr,IupRawStringPtr(si),machine_word()) 
        ptr += machine_word() 
    end for 
end procedure 

More likely to be completely irrelevant than not, but IupPlotInsertStrSamples() and IupPlotAddStrSamples() would have been completely broken.

11. Re: Need an other phix explanation please

• Posted by petelomax Feb 24, 2018
• 2060 views

The only thing I can suggest is grabbing win32lib7 from http://phix.x10.mx/pmwiki/pmwiki.php?n=Main.Win32lib7ForPhix and giving that one a spin.

Regards,
Pete

13. Re: Need an other phix explanation please

• Posted by petelomax Feb 24, 2018
• 1997 views

Have you tried win32lib6?

15. Re: Need an other phix explanation please

• Posted by petelomax Feb 24, 2018
• 1989 views

Yep, exact same thing (the PCAN entry includes the same link and a local copy).

17. Re: Need an other phix explanation please

• Posted by ChrisB (moderator) Feb 25, 2018
• 1992 views

I have indeed watched al the episodes, but they were so good, and I'm such a Trekky, that I was counting down the days till Mondays. ANd looking forward to Tomb raider too.

Back to begin's puzzle - there is something different about your Phix/win32lib7 and mine, because mine works.

It's a pity the error doesn't give the exact line that the error happens on in l_safepeek, but one way of finding out is to put some test outputs at various points in l_safepeek - eg

puts(1, "got to line 230!\n")    --put this on line 230, and so on 

that can often help narrow down where the failure is. In fact my code is littered with these things commented out. Give it a go.

Cheers

Chris

2019 eh

19. Re: Need an other phix explanation please

• Posted by begin Feb 26, 2018
• 1984 views

fixed one problem:

make (or insert it in winlib32.ew) new file "w32NtDll.ew" with content of

global constant 
ntdll = registerw32Library("ntdll.dll"), 
    xRtlGetVersion = registerw32Function(ntdll,"RtlGetVersion",{C_POINTER}, C_UINT) 

change function getWinVersion in winlib32.ew. it now will get windows 10 and >

global function getWinVersion() 
    sequence lResult 
    atom lOV 
    atom lResp 
 
    lOV = w32to_memory(0,ID_OSVERSIONINFOEX,0) 
    lResp = w32Func(xGetVersionEx, {lOV}) 
    lResult = repeat(0,10) 
    if lResp = 0 then 
        w32store(lOV, dwOSVersionInfoSize, SIZEOF_OSVERSIONINFOEX) 
        lResp = w32Func(xGetVersionEx, {lOV}) 
    end if 
    lResult[1..4] = peek4s({lOV+4, 4}) 
    if (lResult[1] = 6) and (lResult[2] = 2) then 
        w32release_mem(lOV) 
        lOV = w32to_memory(0,ID_OSVERSIONINFOEX,0) 
        lResp = w32Func(xRtlGetVersion, {lOV}) 
        lResult = repeat(0,9) 
        if lResp = 0 then 
            w32store(lOV, dwOSVersionInfoSize,  SIZEOF_OSVERSIONINFOEX) 
            lResp = w32Func(xRtlGetVersion, {lOV}) 
        end if 
        lResult[1..4] = peek4s({lOV+4, 4}) 
        lResult[3] = 0 
        lResult[5] = "" 
        lResult[6] = w32fetch(lOV,wServicePackMajor) 
        lResult[7] = w32fetch(lOV,wServicePackMinor) 
        lResult[8] = w32fetch(lOV,wSuiteMask) 
        lResult[9] = w32fetch(lOV,wProductType) 
     else 
        lResult[5] = w32peek_string(lOV + 20) 
        lResult[6] = w32fetch(lOV,wServicePackMajor) 
        lResult[7] = w32fetch(lOV,wServicePackMinor) 
        lResult[8] = w32fetch(lOV,wSuiteMask) 
        lResult[9] = w32fetch(lOV,wProductType) 
      end if 
    w32release_mem(lOV) 
    if lResult[1]=10 then 
        lResult[1]=WIN_10 
    elsif lResult[1]=6 then 
        lResult[1]=WIN_VISTA 
    elsif lResult[4] = 0 then 
        lResult[1] = WIN_3_1 
    elsif lResult[4] = 1 then 
        if lResult[2] = 0 then 
            if equal(lResult[5], " C") then 
                lResult[1] = WIN_95_OSR2 
            else 
                lResult[1] = WIN_95 
            end if 
 
        elsif lResult[2] = 10 then 
            if equal(lResult[5], " A") then 
                lResult[1] = WIN_98SE 
            else 
                lResult[1] = WIN_98 
            end if 
        else 
            lResult[1] = WIN_ME 
        end if 
        lResult[3] = and_bits(#FFFF, lResult[3]) 
    else 
        if lResult[2] = 51 then 
            lResult[1] = WIN_NT_3_51 
        elsif lResult[2] = 0 then 
            if lResult[1] = 4 then 
                lResult[1] = WIN_NT_4 
            else 
                lResult[1] = WIN_2000 
            end if 
        elsif lResult[2] = 1 then 
            lResult[1] = WIN_XP 
        else 
            lResult[1] = WIN_UNKNOWN 
        end if 
    end if 
    lResult[2] = lResult[5] 
 
    if lResult[6] = 0 then 
        lResult = lResult[1..3] 
    else 
        lResult = lResult[1..3] & lResult[6..9] 
    end if 
    return lResult 
end function 

now a new problem arises in procedure registerClass( object szClassName ) in winlib32.ew. any program crashes in

    if w32Func( xRegisterClassEx, { wndClassEx } ) = 0 then 
        abortErr( Err_REGCLASS ) 
    end if 

and i think it is a memory management problem in function w32to_memory of w32memory.ew.

anyone able to debug that? the failure of xRegisterClassEx causes my computer to shut down, and loose the recognition of the start partition.

21. Re: Need an other phix explanation please

• Posted by begin Feb 26, 2018
• 1927 views

yes, i am sorry i forgot about the constant.

i used "https://app.box.com/v/win32lib7forPhix" which i thankfully downloaded.

after completely disabling the virus software, and scanning my computer with another virus software, the result remains the same.

i run the program (star.exw) with pw.exe. is this an error?

23. Re: Need an other phix explanation please

• Posted by begin Feb 26, 2018
• 1897 views

i am on win10 uac was one below highest turning it off, did not change any thing when running the program

25. Re: Need an other phix explanation please

• Posted by begin Feb 26, 2018
• 1924 views

that would be very nice if someone could do that.

27. Re: Need an other phix explanation please

• Posted by petelomax Feb 26, 2018
• 1874 views

OH, I JUST GOT IT! (I think)

You are trying to run win32lib on a 64-bit version of phix, but it is strictly 32-bit only. Afaik no-one has ever gotten win32lib to run as a 64-bit process, on OE or phix.

Run it with a 32-bit version (which will work just fine on a 64-bit box). If you are running Edita, you must be using a 32-bit phix to do so.

Pete

PS I'm running on Windows 10, with no problems here.
PPS if I run p64 edita, I get "arwen is not 64-bit compatible; use pGUI instead". Perhaps lines 10..17 of demo\arwen\Arwen.ew should be copied into the win32lib.ew files, with the one obvious change.

29. Re: Need an other phix explanation please

• Posted by ChrisB (moderator) Feb 26, 2018
• 1859 views

Hi

That's ok, just another gotcha! Any reason you have to use 64 bit Phix?

Cheers

Chris

31. Re: Need an other phix explanation please

• Posted by ChrisB (moderator) Feb 26, 2018
• 1867 views

Understood, but win32lib is going to need a complete rewrite to becom win64lib, and I doubt that will be happening any time soon.

Cheers

Chris

33. Re: Need an other phix explanation please

• Posted by petelomax Feb 27, 2018
• 1827 views

It is why I switched to pGUI - 32/64 bit and windows/linux compatible.

If you need help with IupPlot, just ask.

Pete

35. Re: Need an other phix explanation please

• Posted by begin Feb 27, 2018
• 1791 views

that very gracious of you. well, maybe first a question i have daily data values, lets say temperature and moisture. i need to plot temperature and moisture as y and the date x coordinate. a dataset has +- 7000 datapoints each. the temperature scale is on the left, the moisture scale on the right. each curve has different color and so do the scales.

can one do that with pplot? i could not find any thing to that effect in the chm's.

37. Re: Need an other phix explanation please

• Posted by begin Feb 27, 2018
• 1765 views

yes you may be wright. i will play with that source, -> just tried it, but it give an error.

H:\Euphoriaprog\pgui.e:247 
if paranormalise(func=tcb)!={NULL,tcb,"",{}} then ?9/0 end if 
                 ^ undefined identifier func 
 
 
...included by H:\Euphoriaprog\testeriup.ew, line 1 
 
Press Enter, or d for diagnostics... 

39. Re: Need an other phix explanation please

• Posted by begin Feb 27, 2018
• 1759 views

i save the file to demo\pgui and it ran without a hitch. look really good. is it possible to have a large canvas (ex. 20000 by 10000) and scrollbar that let you scroll along the graph?

41. Re: Need an other phix explanation please

• Posted by begin Feb 27, 2018
• 1817 views

ok, i'll explore that. if it works, i stay with iup.

thank you very, very much.

43. Re: Need an other phix explanation please

• Posted by petelomax Feb 27, 2018
• 1775 views

I think that's one for the IUP-users mailing list - which I no longer subscribe to.
If you feel like reporting it, I also noticed that right and top margins also cease to be honored properly about when that effect starts.

Note we're still on 3.23, though 3.24 has been released, so perhaps download a copy (see docs/pGUI/Background) and test that first.

45. Re: Need an other phix explanation please

• Posted by begin Feb 27, 2018
• 1828 views

sorry, but where to download for vs2017 - any pointers?

47. Re: Need an other phix explanation please

• Posted by begin Feb 28, 2018
• 1725 views

i thought i have to compiler the libraries my self. if so, then i have vs2017.

i downloaded the new dll's and found that the plotting error is gone. anyhow, to make things easier, it would be nice if you could introduce in phix a wstring datatype, peek_wstring and poke_wstring. just wishful thinking.

thank you very much for all your help. i decided to stay with phix and iup for may future work.

richard

49. Re: Need an other phix explanation please

• Posted by begin Feb 28, 2018
• 1690 views

A wstring datatype as part of the core is however completely impractical. (A huge part of Phix's charm is that it has just 5 data tytes.) You can always write your own user defined type though. 

you are wright.

thanks a million for peek and poke. trying to expand on your plot to add menus - kind of. i am really coming to phix and iup.

richard