! 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 )
[ concat ]
} cond ;
+: deep-children>string ( tag -- string )
+ children>> [
+ [ dup tag? [ deep-children>string ] when % ] each
+ ] "" make ;
+
: children-tags ( tag -- sequence )
children>> [ tag? ] filter ;