string->nodes
dblib.dsl
string->nodes
no documented purpose
Synopsis
(string->nodes s)
Source Code
(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))))))