scsh-conservatory
/
sunet
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Map SXML->LOW-LEVEL-SXML to Oleg's PRE-POST-ORDER

This commit is contained in:
interp 2003-05-04 14:04:54 +00:00
parent b95d65509e
commit 63afb5d073
2 changed files with 3 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
scheme/httpd/surflets/packages.scm
View File

@ -61,6 +61,7 @@
;; Extensions/Exports to/from Olegs SSAX library ;; Extensions/Exports to/from Olegs SSAX library
(define-interface surflets/sxml-interface (define-interface surflets/sxml-interface
(export display-low-level-sxml (export display-low-level-sxml
sxml->low-level-sxml ;direct map to pre-post-order
sxml->string sxml->string
sxml->string/internal sxml->string/internal
sxml-attribute? sxml-attribute?

2
scheme/httpd/surflets/sxml.scm
View File

@ -23,6 +23,8 @@
(display (car fragments) port) (display (car fragments) port)
(loop (cdr fragments) #t))))) (loop (cdr fragments) #t)))))
(define sxml->low-level-sxml pre-post-order)
;; Gives you a string representing the HTML of the already reformatted ;; Gives you a string representing the HTML of the already reformatted
;; SXML-TREE. ;; SXML-TREE.
(define (sxml->string sxml-tree rules) (define (sxml->string sxml-tree rules)