[plt-scheme] PLaneT: ssax, zip bugs in plt scheme 209
An exercise in rapid prototyping is coming along a bit slower than I
thought:
I am using PLT Scheme 209 trying to process some OpenOffice documents
(zipped collections of .xml files):
(require (planet "ssax.ss" ("lizorkin" "ssax.plt" 1 0)))
(require (planet "sxml.ss" ("lizorkin" "sxml.plt" 2 0)))
(require (planet "unzip.ss" ("dherman" "zip.plt" 1 1)))
had syntax error: missing ')'
Trivial to fix -- inserted ')' as next to last character on line 163
in unzip.ss -- but why not found previously?
Then attemps to play with ssax parsing, taken from
(define (outline xml-port)
((SSAX:make-parser ...
example in http://www-106.ibm.com/developerworks/library/x-matters31.html
gives
[document icon] .plt-scheme/planet/cache/lizorkin/ssax.plt/1/0/SSAX-code.ss:53:795:
find: bad syntax in: (find (((lambda (elem-gi seed) seed) (lambda
(elem-gi seed) (values #f (quote ()) (quote ()) seed)) (lambda (port
docname systemid internal-subset? seed) (when internal-subset?
(ssax:warn port "Internal DTD subset is not currently handled ")
(ssax:skip-internal-dtd port)) (ssax:warn port "DOCTYPE DECL " docname
" " systemid " found and skipped") (values #f (quote ()) (quote ())
seed)) ssax:make-parser/positional-args) (|FINISH-ELEMENT|)
(|CHAR-DATA-HANDLER|) (|PI| ())) (|NEW-LEVEL-SEED|))
clicking the document icon gives me the highlighted expression
(next positional-macro-name () (arg-name . arg-def) ...)
inside
(define-syntax labeled-arg-macro-name
which is inside
(define-syntax ssax:define-labeled-arg-macro
in SSAX-code.ss
This one I am not going to try to fix: the nested macro definitions
put me off a bit and sax & related technologies are new to me so my
debugging would necessarily be slow.
If the authors of these packages have later versions that work under
PLT 209, please let me know. The versions used above are those that
Help Desk loaded from PLaneT. In the mean time I will be switching my
experiments over to some other language hoping for better luck.
-- Allyn Dimock