From 63afb5d073fad0f49d55c2570a48dda527e6ec46 Mon Sep 17 00:00:00 2001 From: interp Date: Sun, 4 May 2003 14:04:54 +0000 Subject: [PATCH] Map SXML->LOW-LEVEL-SXML to Oleg's PRE-POST-ORDER --- scheme/httpd/surflets/packages.scm | 1 + scheme/httpd/surflets/sxml.scm | 2 ++ 2 files changed, 3 insertions(+) diff --git a/scheme/httpd/surflets/packages.scm b/scheme/httpd/surflets/packages.scm index a412442..8a337fa 100644 --- a/scheme/httpd/surflets/packages.scm +++ b/scheme/httpd/surflets/packages.scm @@ -61,6 +61,7 @@ ;; Extensions/Exports to/from Olegs SSAX library (define-interface surflets/sxml-interface (export display-low-level-sxml + sxml->low-level-sxml ;direct map to pre-post-order sxml->string sxml->string/internal sxml-attribute? diff --git a/scheme/httpd/surflets/sxml.scm b/scheme/httpd/surflets/sxml.scm index e6a09e0..85566da 100644 --- a/scheme/httpd/surflets/sxml.scm +++ b/scheme/httpd/surflets/sxml.scm @@ -23,6 +23,8 @@ (display (car fragments) port) (loop (cdr fragments) #t))))) +(define sxml->low-level-sxml pre-post-order) + ;; Gives you a string representing the HTML of the already reformatted ;; SXML-TREE. (define (sxml->string sxml-tree rules)