]> gitweb.factorcode.org Git - factor.git/blobdiff - basis/xml/traversal/traversal.factor
factor: trim using lists
[factor.git] / basis / xml / traversal / traversal.factor
index 09f4ab1c135017987d733b57757115018e8c68f4..7cf9812cd3af79d110ea8975e39687eedded63ab 100644 (file)
@@ -1,8 +1,7 @@
 ! Copyright (C) 2005, 2009 Daniel Ehrenberg
 ! See http://factorcode.org/license.txt for BSD license.
-USING: accessors kernel namespaces sequences words io assocs
-quotations strings parser lexer arrays xml.data
-splitting vectors sequences.deep combinators fry memoize ;
+USING: accessors combinators kernel make sequences
+sequences.deep strings xml.data ;
 IN: xml.traversal
 
 : children>string ( tag -- string )
@@ -15,6 +14,11 @@ IN: xml.traversal
         [ concat ]
     } cond ;
 
+: deep-children>string ( tag -- string )
+    children>> [
+        [ dup tag? [ deep-children>string ] when % ] each
+    ] "" make ;
+
 : children-tags ( tag -- sequence )
     children>> [ tag? ] filter ;