OpenEuphoria

Re: [Windows] Associate file extensions with a program

• Posted by Bernard Ryan <xotron at bluefrog.com> Oct 12, 2004
• 483 views

Juergen Luethje wrote:
> 
> Derek Parnell wrote:
> 
> > Juergen Luethje wrote:
> 
> 

-- Implementation #another
 integer error
 sequence ErrNo
 ErrNo &= {}                -- no error at the beginning
 
 procedure proc1()
    if <some error> then
       ErrNo &= 27
    elsif <another error> then
       ErrNo &= 5
    end if
 end procedure
 
 procedure proc2()
    if <some error> then
       ErrNo &= 3
    elsif <another error> then
       ErrNo &= 22
    end if
 end procedure
 
 proc1()
 proc2()
 
 error = not find(0,ErrNo)

 if error then
   puts(1,ErrNo[error]&"\n" end if
 end if 

Bernie

My files in archive:

http://www.rapideuphoria.com/w32engin.zip
http://www.rapideuphoria.com/mixedlib.zip
http://www.rapideuphoria.com/eu_engin.zip
http://www.rapideuphoria.com/win32eru.zip