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 <[email protected]> wrote: > 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 >> > >
