steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

Fixed CDATA parsing bug

release
Daniel Ehrenberg 2007-10-12 15:28:23 -05:00
parent c5f760da65
commit bd42403835
2 changed files with 2 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
extra/xml/test/test.factor
View File

@ -42,3 +42,4 @@ SYMBOL: xml-file
] unit-test ] unit-test
[ "foo" ] [ "<x y='foo'/>" string>xml "y" <name-tag> over [ "foo" ] [ "<x y='foo'/>" string>xml "y" <name-tag> over
at swap "z" <name-tag> >r tuck r> swap set-at T{ name f "blah" "z" f } swap at ] unit-test at swap "z" <name-tag> >r tuck r> swap set-at T{ name f "blah" "z" f } swap at ] unit-test
[ "foo" ] [ "<boo><![CDATA[foo]]></boo>" string>xml children>string ] unit-test

2
extra/xml/tokenize/tokenize.factor
View File

@ -137,7 +137,7 @@ SYMBOL: ns-stack
CHAR: > expect ; CHAR: > expect ;
: take-cdata ( -- string ) : take-cdata ( -- string )
"[CDATA[" expect-string "]]>" take-string next ; "[CDATA[" expect-string "]]>" take-string ;
: take-directive ( -- directive ) : take-directive ( -- directive )
CHAR: > take-char <directive> next ; CHAR: > take-char <directive> next ;