Thank you very much for that.
Best Regards
Dean

On 16 January 2017 at 14:33, Alexander Burger <a...@software-lab.de> 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:picolisp@software-lab.de?subject=Unsubscribe
>

Reply via email to