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