Changeset 3981 for to-imperative


Ignore:
Timestamp:
Oct 20, 2008, 5:45:35 PM (12 years ago)
Author:
yura
Message:
  • Refactoring.
  • Ontos.rf - reads all Ontos files and produces refal-data.
  • Calais.rf - reads all Calais files and returns information about relations.
File:
1 edited

Legend:

Unmodified
Added
Removed
  • to-imperative/trunk/java/refal/refal/plus/XML.rf

    r3974 r3981  
    7474GetValue (s t e.value) = e.value;
    7575
     76$public $func? ReadXML e.fileName = e.xml;
     77ReadXML e.fileName =
     78  <File_Open e.fileName> :: s.stream, {
     79    <XML.Read s.stream> :: e.xml = <File_Close s.stream>, e.xml;
     80    = <File_Close s.stream>, $fail;
     81  };
     82
    7683$func Main = e;
    7784Main =
Note: See TracChangeset for help on using the changeset viewer.