OpenEuphoria

Re: Appending to a "sequence"

• Posted by Patrick Barnes <mrtrick at gmail.com> Nov 18, 2004
• 584 views

What's the error?


On Wed, 17 Nov 2004 17:35:42 -0800, John F Dutcher
<guest at rapideuphoria.com> wrote:
> 
> posted by: John F Dutcher <John_Dutcher at urmc.rochester.edu>
> 
> This code errors on the "append(line, '{')"  statement
> Can we not append an atom to a sequence ?
> 
> }}}
<eucode>
> sequence line
> sequence recd
>    fn=open("tml_extract.txt","r")
>    if fn < 1 then
>         puts(1, "Unable to open the disk file\n")
>         abort(fn)
>    else
>      while 1 do
>         line = {}
>         append(line, '{')
>         recd = gets(fn)
>         if atom(recd) then exit
>         else
>           if equal(recd[2..5], "%HDR") or equal(recd[2..5], "%TRL") then
>                  a = 0
>           else
>             append(line, recd)
>             append(line, '}')
>             ---puts(1, recd[1] recd[2] & "\n")
>             puts(1, line[2]  & "\n")
>           end if
>         end if
>      end while
>    end if
> </eucode>
{{{

> 
> 
> 
> 


-- 
MrTrick