suzanne.soy/racket
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Fixing PR 12271

Browse Source
This commit is contained in:
Jay McCarthy 2011-10-10 06:45:31 -06:00
parent c805728d3e
commit 354283132d
4 changed files with 28 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

16
collects/tests/web-server/pr/12271.rkt Normal file
View File

@ -0,0 +1,16 @@
#lang racket
(require tests/eli-tester
xml)
(test
(with-output-to-bytes
(lambda ()
(write-xexpr
`(html (head (title "Form with CDATA"))
(body (p "Hello, this is a form")
(p ,(cdata 'cdata-start 'cdata-end "<![CDATA[foo]]>"))
(p ,(p-i 'pis 'pie 'target "instruction"))
(p ,(comment "comment"))
"Something")))))
=>
#"<html><head><title>Form with CDATA</title></head><body><p>Hello, this is a form</p><p><![CDATA[foo]]></p><p><?target instruction?></p><p><!--comment--></p>Something</body></html>")

3
collects/xml/private/writer.rkt
View File

@ -169,6 +169,9 @@
escape-table
escape-attribute-table
lowercase-symbol
write-xml-cdata
write-xml-comment
write-xml-p-i
write-xml-element)
;; incr : Nat -> Nat

8
collects/xml/private/xexpr.rkt
View File

@ -299,5 +299,9 @@
[(valid-char? x)
(fprintf out "&#~a;" x)]
; Embedded XML
[(source? x)
(write-xml-element x 0 void out)]))
[(cdata? x)
(write-xml-cdata x 0 void out)]
[(comment? x)
(write-xml-comment x 0 void out)]
[(p-i? x)
(write-xml-p-i x 0 void out)]))

3
collects/xml/xml.rkt
View File

@ -7,6 +7,9 @@
escape-table
escape-attribute-table
lowercase-symbol
write-xml-cdata
write-xml-comment
write-xml-p-i
write-xml-element)
"private/xexpr.rkt"
"private/syntax.rkt")