| DSSSL Library Reference: Part of the Modular DocBook Stylesheet distribution | ||
|---|---|---|
| Prev | ||
(define (string->nodes s)
;; Escape XML characters...
(let* ((achars (string-replace s "&" "&"))
(bchars (string-replace achars "<" "&#60;"))
(cchars (string-replace bchars ">" "&#62;")))
(let ((doc (string-append "<literal><!DOCTYPE doc [ <!ELEMENT "
"doc - - (#PCDATA)> ]><doc>" cchars ";</doc>")))
(children (node-property 'docelem (sgml-parse doc))))))