OpenEuphoria

Re: [Windows] Associate file extensions with a program

• Posted by "Juergen Luethje" <j.lue at gmx.de> Oct 13, 2004
• 479 views

Bernard Ryan wrote:

> Juergen Luethje wrote:
>>
>> Derek Parnell wrote:
>>
>>> Juergen Luethje wrote:
>>
>
>  }}}
<eucode>
>  -- 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)

As implemented above, ErrNo never will contain a 0, so 'find(0,ErrNo)'
always will be 0, and 'error = not 0' will result in 'error = 1'.

>  if error then
>    puts(1,ErrNo[error]&"\n" end if
>  end if
> </eucode>
{{{


if length(ErrNo) then
   print(ErrNo)
end if

works for me. 

Thanks,
   Juergen