OpenEuphoria

I've done it Pete

• Posted by don cole <doncole at pacbell.net> Jan 18, 2006
• 497 views

First I downloaded 
http://www.rapideuphoria.com/cgi-bin/asearch.exu?dos=on&win=on&lnx=on&gen=on&keywords=f1

Then I put it in folder called Help. I put that folder in my EUDIR.

Then I added at line 1084 of eamenus.e:
,{"F1 Jockey",                      M_Help,0,0,0,R(PROC,"F1Jockey"),{""}}

And at line 751 of eaqj.ew I added:

global procedure F1Jockey(sequence name)--I added this
object helpfilepath
integer k, fn
    helpfilepath = getenv("EUDIR")
    if atom(helpfilepath) then
        void = messageBox("Euphoria Manual not found",
                          "EUDIR not set", 0 )
    else
        if length(name) then
            for i=2 to length(lib) by 2 do
                if name[1]<=lib[i] then
                    helpfilepath=getenv("EUDIR")&"/help/F1Jockey.hlp"
                    while 1 do
                        k=find('\\',helpfilepath)
                        if k=0 then exit end if
                        helpfilepath[k]='/'
                    end while
                    fn=open(helpfilepath,"w")
puts(fn,sprintf(redirect,{getenv("EUDIR"),lib[i-1],lib[i],name}))
                    close(fn)
                    exit
                end if
            end for
        else
            -- open the HTML version of refman.doc
            helpfilepath=getenv("EUDIR")&"\\help\\F1Jockey.hlp"
            if atom(dir(helpfilepath)) then
                void = messageBox("Euphoria Manual not found",
                        "F1 Jockey not present in Euphoria directory"&10&13&
                         helpfilepath, 0 )
                return
            end if
        end if

void = shellExecute(NULL, "open", helpfilepath, NULL, NULL,
        SW_SHOWNORMAL)
--      if void=ERROR_FILE_NOT_FOUND then end if --2
    end if
end procedure

Works good,
Don Cole
 A Bug is an un-documented feature.
A Feature is a documented Bug.