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

Fix bug in XML; literal was being mutated

slava 2006-11-21 08:54:58 +00:00
parent 1afcf6b9ba
commit 3cbb736e1e
2 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
contrib/xml/parser.factor
View File

@ -228,7 +228,7 @@ M: extra-attrs error.
<prolog> dup prolog-data set ; <prolog> dup prolog-data set ;
: init-xml ( string -- ) : init-xml ( string -- )
code set { 0 1 1 } spot set code set { 0 1 1 } clone spot set
init-xml-stack init-ns-stack ; init-xml-stack init-ns-stack ;
UNION: any-tag tag contained-tag ; UNION: any-tag tag contained-tag ;

6
contrib/xml/tokenizer.factor
View File

@ -1,8 +1,8 @@
! Copyright (C) 2005, 2006 Daniel Ehrenberg ! Copyright (C) 2005, 2006 Daniel Ehrenberg
! See http://factorcode.org/license.txt for BSD license. ! See http://factorcode.org/license.txt for BSD license.
IN: xml IN: xml
USING: errors hashtables io kernel math namespaces prettyprint sequences tools USING: errors hashtables io kernel math namespaces prettyprint
generic strings char-classes ; sequences tools generic strings char-classes ;
SYMBOL: code #! Source code SYMBOL: code #! Source code
SYMBOL: spot #! { index line column } SYMBOL: spot #! { index line column }
@ -10,7 +10,7 @@ SYMBOL: spot #! { index line column }
: set-index ( index -- ) 0 spot get set-nth ; : set-index ( index -- ) 0 spot get set-nth ;
: get-line ( -- line ) spot get second ; : get-line ( -- line ) spot get second ;
: set-line ( line -- ) 1 spot get set-nth ; : set-line ( line -- ) 1 spot get set-nth ;
: get-column ( -- column ) 2 spot get nth ; : get-column ( -- column ) spot get third ;
: set-column ( column -- ) 2 spot get set-nth ; : set-column ( column -- ) 2 spot get set-nth ;
SYMBOL: prolog-data SYMBOL: prolog-data