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
