source: to-imperative/trunk/java/refal/refal/plus/XML.rf @ 3952

$module "refal.plus.XML";

$use Convert Stream  StdIO;

$func? GetTag s.stream = e.text (e.tag);

GetTag s.stream =
  <Get_Delim s.stream '<'> : e.text '<',
  <Get_Delim s.stream '>'> : e.tag '>',
  e.text ('<' e.tag '>');

$func ReadTag s.stream e.tag = t;

ReadTag s.stream e.tag, e.tag : {
  '<' e.name '/>' =
    (<ToWord e.name>);
  '<' e.name '>' =
    <GetTag s.stream> $iter e.text <ReadTag s.stream e.tag> <GetTag s.stream> :: e.text (e.tag),
    e.tag : '</' e.name '>',
    (<ToWord e.name> e.text);
};

$public $func Read s = t;

Read s.stream = <GetTag s.stream> : (e.tag), <ReadTag s.stream e.tag>;

$func Main = e;

Main =
  <WriteLn <Read <Expr_Open '<Z>as<C/><B>b<Z></Z></B><C>c</C></Z>'>>>;