OpenEuphoria

1. Attn. Pete

• Posted by dcole Jul 05, 2011
• 3890 views

Hello Pete,

Sorry I used your name in vain.

I do have a problem with Edita that maybe you can help me with.

Here's my setup under Edita/Options/File Extent ions I have:

.exw - E\Euphoria\bin\exw.exe (runs Euphoria ver.3)
.exwc - E\Euphoria-40b4\bin\eui.bat (runs Euphoria ver. 4)

eui.bat

@@PATH=%PATH% E:\euphoria-40b4\bin
@SET EUDIR=E:\euphoria-40b4
@SET EUINC=E:\euphoria-40b4\include;E:\eu\myinclude;e:\eu\football;e:\eu\win32lib
@start /b E:\euphoria-40b4\bin\eui.exe %1 %2 %3 %4 %5 %6 %7 %8 %9

When I run a .exw file extent ion program with Edita, (by clicking that green stop lite), and an error occurs, the following happens:

The command dos\window opens. It's the one that's black with white letters.

It says what trouble is, The program, the line number and the line that caused the error.

After that it say 'Press Enter'.

If I press Enter, Edita opens up at the page and line number where the error occurred.

Now if I do the same thing with a .exwc file extention (it's really a .eui extention I'm just using the .exwc extention to fool Edita into running ver. 4. I never use the .exwc extention for anything else), Everything works the same except Edita opens at the place it was when I clicked the green stop lite not where the error occurred.

Don Cole

3. Re: Attn. Pete

• Posted by dcole Jul 09, 2011
• 3741 views

object path 
constant eu4 = "E:\euphoria-40b4\" 
    path = getenv("PATH") 
    if atom(path) then path = "" end if 
    if match(lower(eu4&"\\bin"),lower(path))=0 then 
        path &= ";"&eu4&"\\bin" 
        setenv("PATH",path) 
    end if 
    setenv("EUDIR",eu4) 
    setenv("EUINC",...) 

function flatten(sequence s) 
sequence res, si 
    res = "" 
    for i=1 to length(txtlines) do 
        si = s[i] 
        if find(' ',si) and not find('\"',si) then 
            si = '\"'&si&'\"' 
        end if 
        res &= si&' ' 
    end for 
    return res 
end function 
 
sequence cl = command_line() 
    cl[1] = eu4&"\\bin\\eui.exe" 
    abort(system_exec(flatten(cl),2) 

Thanks Pete for trying to help with this problem.

The reason I'm using the .exwc file extention because if I don't use .ex or .exw or .exwc then the

greenlite dosen't lite up. Edita dosen't recognize it as runable Euphoria file.

Don Cole

5. Re: Attn. Pete

• Posted by dcole Jul 20, 2011
• 3559 views

Thank you Pete,

The green lite still doesn't come on but F5 works.

I'm using Edita 0.3.0 (30/05/07).

What ever happened to Al Getz anywayz?

Perhaps he slipped and fell in all that oil they found down there. (Brazil)

Don Cole

7. Ver 4 and Edita

• Posted by DonCole Nov 29, 2013
• 3094 views

Thank you Pete,

After a year and a half I finally figured this out.

How to run Eu v4 with Edita so that on error it jumps back to Edita (on the line where the error occurred).

What I did was:

Paste the information that was in eui.bat into eu.cfg.

Deleted eui.bat altogether.

In Edita changed .eui file extension option from e:\EUPOHORIA-40b4\bin\eui.bat to e:\EUPHORIA-40b4\bin\exe.

Now it's working fine with EUPHORIA v3 and v4.

Again thank you, although I'm a little slow to pick up on simple things.

Hard things I get right away.

object path 
constant eu4 = "E:\euphoria-40b4\" 
    path = getenv("PATH") 
    if atom(path) then path = "" end if 
    if match(lower(eu4&"\\bin"),lower(path))=0 then 
        path &= ";"&eu4&"\\bin" 
        setenv("PATH",path) 
    end if 
    setenv("EUDIR",eu4) 
    setenv("EUINC",...) 

function flatten(sequence s) 
sequence res, si 
    res = "" 
    for i=1 to length(txtlines) do 
        si = s[i] 
        if find(' ',si) and not find('\"',si) then 
            si = '\"'&si&'\"' 
        end if 
        res &= si&' ' 
    end for 
    return res 
end function 
 
sequence cl = command_line() 
    cl[1] = eu4&"\\bin\\eui.exe" 
    abort(system_exec(flatten(cl),2)