Thank you very much for that.
Best Regards
Dean
On 16 January 2017 at 14:33, Alexander Burger <[email protected]> wrote:
> Hi Dean,
>
> > To get started I thought I'd try to list all the functions in xml.l using
> > PL and tried...
> > in "/home/me/xml.l" (while (line T) (prinl @)))
> > as a starting point but I'm not sure how you get past the third line
> which
> > is blank so....
>
> Yes, 'line' returns NIL for blank lines, so the loop will stop.
>
>
> > I reverted to what I know for now :)
> >
> > $ perl -ne'$w='de';print if /.*$w /i' /home/me/xml.l
> > (de xml? (Flg)
> > (de xml (Lst N)
> > ...
>
> You could try this:
>
> (in "@lib/xml.l"
> (until (eof)
> (let? L (line)
> (and (= "(" (car L)) (prinl L)) ) ) )
>
> Outputs:
>
> (de xml? (Flg)
> (de xml (Lst N)
> (de _xml_ (Lst)
> (de _xml (In Char)
> (de xmlEsc (L)
> ...
>
> ♪♫ Alex
> --
> UNSUBSCRIBE: mailto:[email protected]?subject=Unsubscribe
>
