Unpickling From XML

How do we read our data back?

The first possibility is to use my XML parser:

ozmake --install mogul:/duchier/xml/parser

declare
[Parser] = {Link ['x-ozlib://duchier/xml/Parser.ozf']}
CTX      = {Parser.newContext}
STRIP    = {NewDictionary}
for X in ["info" "entry"] do
   STRIP.({CTX.intern X}.xname) := true
end
fun {XMLFromFile F}
   {Parser.parse o(file:F context:CTX strip:STRIP)}.children.1
end