1 USING: sequences xml kernel arrays xml.utilities io.files tools.test ;
4 : assemble-data ( tag -- 3array )
5 { "URL" "snippet" "title" }
6 [ tag-named children>string ] with map ;
8 : parse-result ( xml -- seq )
9 "resultElements" deep-tag-named "item" tags-named
10 [ assemble-data ] map ;
12 [ "http://www.foxnews.com/oreilly/" ] [
13 "resource:basis/xml/tests/soap.xml" file>xml
14 parse-result first first