4: # Check or write header 5: (de xml? (Flg) 6: (if Flg 7: (prinl "<?xml version=\"1.0\" encoding=\"utf-8\"?>") 8: (skip)
13: # Generate/Parse XML data 14: # expects well formed XML 15: # encoding by picolisp (utf8 "only", no utf16 etc.)
18: # non-builtin entities as normal text: &ent; => ent 19: (de xml (Lst N) 20: (if Lst
25: (_xml_ Lst) ) 26: (_xml) ) ) 27:
57: (de _xml (In Char) 58: (unless Char
64: (from "?>") 65: (unless In (_xml In)) ) 66: ("!"
4: # Check or write header 5: (de xml? (Flg) 6: (if Flg 7: (prinl "<?xml version=\"1.0\" encoding=\"utf-8\"?>") 8: (skip)
13: # Generate/Parse XML data 14: (de xml (Lst N) 15: (if Lst
32: (if (pair X) 33: (xml X (+ 3 N)) 34: (space (+ 3 N))
56: (quit "XML parse error" X) ) 57: (link (cons X (pack (xmlEsc (till "\""))))) 58: (char) ) )
71: (link 72: (pack (xmlEsc (trim (cons X (till "^J<"))))) ) ) ) ) ) ) ) ) 73: 74: (de xmlEsc (L) 75: (use (@A @X @Z)
Google Home - Google Code - Discuss - Terms of Service - Help - Submit Your Code
©2010 Google - Privacy