I tried this on an xml file and it seems ideal re separating the tags and
data for processing
(in "fl.xml" (until (eof) (prinl (read))))
The input is stopping abruptly when I hit an isolated closed paren though
<text top="507" left="476" width="154" height="11" font="29"><b>a).....
which is resulting in....
Bad input ')'
I'm just wondering how best to get around this
On 16 January 2017 at 14:53, dean <deangwillia...@gmail.com> wrote:
> Thank you very much for that.
> Best Regards
> 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
>> > 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
>> > 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)) ) ) )
>> (de xml? (Flg)
>> (de xml (Lst N)
>> (de _xml_ (Lst)
>> (de _xml (In Char)
>> (de xmlEsc (L)
>> ♪♫ Alex
>> UNSUBSCRIBE: mailto:firstname.lastname@example.org?subject=Unsubscribe