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

XML utilities

db4
Daniel Ehrenberg 2007-12-17 15:31:10 -05:00
parent d6e445df1f
commit 5fb4d9cbb9
1 changed files with 12 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

15
extra/xml/utilities/utilities.factor
View File

@ -36,14 +36,16 @@ M: process-missing error.
! * Common utility functions ! * Common utility functions
: build-tag* ( items name -- tag ) : build-tag* ( items name -- tag )
"" swap "" <name> assure-name swap >r f r> <tag> ;
swap >r { } r> <tag> ;
: build-tag ( item name -- tag ) : build-tag ( item name -- tag )
>r 1array r> build-tag* ; >r 1array r> build-tag* ;
: standard-prolog ( -- prolog )
T{ prolog f "1.0" "iso-8859-1" f } ;
: build-xml ( tag -- xml ) : build-xml ( tag -- xml )
T{ prolog f "1.0" "iso-8859-1" f } { } rot { } <xml> ; standard-prolog { } rot { } <xml> ;
: children>string ( tag -- string ) : children>string ( tag -- string )
tag-children tag-children
@ -138,3 +140,10 @@ M: xml xml-inject >r delegate >r xml-inject ;
: assert-tag ( name name -- ) : assert-tag ( name name -- )
names-match? [ "Unexpected XML tag found" throw ] unless ; names-match? [ "Unexpected XML tag found" throw ] unless ;
: insert-children ( children tag -- )
dup tag-children [ push-all ]
[ >r V{ } like r> set-tag-children ] if ;
: insert-child ( child tag -- )
>r 1vector r> insert-children ;