Fcalva/chibi-scheme
1
0
Fork 0
mirror of https://github.com/ashinn/chibi-scheme.git synced 2025-05-19 13:49:17 +02:00
Code Issues Projects Releases Packages Wiki Activity Actions

Adding sxml->xml utility.

Browse source
This commit is contained in:
Alex Shinn 2013-12-30 10:48:38 +09:00
parent ff15d3b850
commit 75dda8c29f
2 changed files with 5 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

4
lib/chibi/sxml.scm
View file

@ -101,6 +101,10 @@
((null? sxml)) ((null? sxml))
(else (html-display-escaped-string sxml out)))))) (else (html-display-escaped-string sxml out))))))
(define (sxml->xml sxml)
(call-with-output-string
(lambda (out) (sxml-display-as-html sxml out))))
;; utility to render sxml as simple text, stripping all tags ;; utility to render sxml as simple text, stripping all tags
(define (sxml-strip sxml) (define (sxml-strip sxml)
(call-with-output-string (call-with-output-string

2
lib/chibi/sxml.sld
View file

@ -1,5 +1,5 @@
(define-library (chibi sxml) (define-library (chibi sxml)
(export sxml-display-as-html sxml-display-as-text sxml-strip) (export sxml->xml sxml-display-as-html sxml-display-as-text sxml-strip)
(import (scheme base) (scheme write)) (import (scheme base) (scheme write))
(include "sxml.scm")) (include "sxml.scm"))