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
> 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