From 5fb4d9cbb99c849ff970fa56ab616535b6f55f60 Mon Sep 17 00:00:00 2001
From: Daniel Ehrenberg <ehrenbed@carleton.edu>
Date: Mon, 17 Dec 2007 15:31:10 -0500
Subject: [PATCH] XML utilities
---
extra/xml/utilities/utilities.factor | 15 ++++++++++++---
1 file changed, 12 insertions(+), 3 deletions(-)
diff --git a/extra/xml/utilities/utilities.factor b/extra/xml/utilities/utilities.factor
index 303de4295e..2bd37dc104 100644
--- a/extra/xml/utilities/utilities.factor
+++ b/extra/xml/utilities/utilities.factor
@@ -36,14 +36,16 @@ M: process-missing error.
! * Common utility functions
: build-tag* ( items name -- tag )
- "" swap "" <name>
- swap >r { } r> <tag> ;
+ assure-name swap >r f r> <tag> ;
: build-tag ( item name -- tag )
>r 1array r> build-tag* ;
+: standard-prolog ( -- prolog )
+ T{ prolog f "1.0" "iso-8859-1" f } ;
+
: build-xml ( tag -- xml )
- T{ prolog f "1.0" "iso-8859-1" f } { } rot { } <xml> ;
+ standard-prolog { } rot { } <xml> ;
: children>string ( tag -- string )
tag-children
@@ -138,3 +140,10 @@ M: xml xml-inject >r delegate >r xml-inject ;
: assert-tag ( name name -- )
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 ;