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

Removing outdated comments in xml.utilities

db4
Daniel Ehrenberg 2009-01-27 18:16:35 -06:00
parent 9a504b5cd8
commit 69c509a29f
1 changed files with 1 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
basis/xml/utilities/utilities.factor
View File

@ -19,10 +19,6 @@ IN: xml.utilities
: first-child-tag ( tag -- tag ) : first-child-tag ( tag -- tag )
children>> [ tag? ] find nip ; children>> [ tag? ] find nip ;
! * Accessing part of an XML document
! for tag- words, a start means that it searches all children
! and no star searches only direct children
: tag-named? ( name elem -- ? ) : tag-named? ( name elem -- ? )
dup tag? [ names-match? ] [ 2drop f ] if ; dup tag? [ names-match? ] [ 2drop f ] if ;
@ -36,8 +32,6 @@ IN: xml.utilities
tags@ '[ _ swap tag-named? ] deep-filter ; tags@ '[ _ swap tag-named? ] deep-filter ;
: tag-named ( tag name/string -- matching-tag ) : tag-named ( tag name/string -- matching-tag )
! like get-name-tag but only looks at direct children,
! not all the children down the tree.
assure-name swap [ tag-named? ] with find nip ; assure-name swap [ tag-named? ] with find nip ;
: tags-named ( tag name/string -- tags-seq ) : tags-named ( tag name/string -- tags-seq )
@ -58,7 +52,7 @@ IN: xml.utilities
: deep-tags-with-attr ( tag attr-value attr-name -- tags-seq ) : deep-tags-with-attr ( tag attr-value attr-name -- tags-seq )
tags@ '[ _ _ tag-with-attr? ] deep-filter ; tags@ '[ _ _ tag-with-attr? ] deep-filter ;
: get-id ( tag id -- elem ) ! elem=tag.getElementById(id) : get-id ( tag id -- elem )
"id" deep-tag-with-attr ; "id" deep-tag-with-attr ;
: deep-tags-named-with-attr ( tag tag-name attr-value attr-name -- tags ) : deep-tags-named-with-attr ( tag tag-name attr-value attr-name -- tags )