Changeset 3964 for to-imperative/trunk/java/refal/refal/plus/XML.rf

Timestamp:

Oct 9, 2008, 9:57:49 PM (12 years ago)

Author:

yura

Message:

• Library extentions (after hdd errors).

File:

• to-imperative/trunk/java/refal/refal/plus/XML.rf (modified) (3 diffs)

to-imperative/trunk/java/refal/refal/plus/XML.rf

@@ -1 +1 @@
 $module "refal.plus.XML";
 
-$use Convert Stream  StdIO;
+$use Convert Stream StdIO;
+
+$func? IsBlank t.term = ;
+IsBlank \{ ' '; '\n'; '\r'; '\t'; };
+
+$func? IsBlankOrDelim t.delim t.term = ;
+IsBlankOrDelim t.delim t.term, t.term : \{ ' '; '\n'; '\r'; '\t'; t.delim; };
+
+$func GetDelims s.stream t.delim = e.expr; // no e.delim at the end
+GetDelims s.stream t.delim = 
+  GO $iter {
+    <Get_While s.stream &IsBlank> :: e, {
+      <Scanc s.stream t.delim> : v = e.expr STOP;
+      <Get_Until s.stream &IsBlankOrDelim t.delim> : v.head = e.expr ' ' v.head GO;
+      e.expr STOP;
+    };
+  } :: e.expr s.flag, s.flag : STOP =
+  { e.expr : ' ' e.head = e.head; e.expr; };
+
+$func? GetXMLFormat s.stream = e.comment;
+
+GetXMLFormat s.stream,
+  <Scans s.stream '<?'> : '<?' =
+  <Get_Delims s.stream '?>'> : e.format '?>',
+  '<?' e.format '?>';
+
 
 $func? GetComment s.stream = e.comment;
@@ -10 +35 @@
   '<!--' e.comment '-->';
 
-
 $func? GetCDATA s.stream = e.cdata;
 
@@ -18 +42 @@
   '<![CDATA[' e.cdata ']]>';
 
-
 $func? GetTag s.stream = e.text (e.tag);
 
 GetTag s.stream =
-  <Get_Delim s.stream '<'> : e.text '<',
+  <GetDelims s.stream '<'> :: e.text,
+  //<Get_Delim s.stream '<'> : e.text '<',
   <Ungets s.stream '<'>, {
+    <GetXMLFormat s.stream> : '<?' e.format '?>',
+      e.text ((XML_FORMAT) e.format) <GetTag s.stream>;
     <GetComment s.stream> : '<!--' e.comment '-->',
       e.text ((COMMENT) e.comment) <GetTag s.stream>;
     <GetCDATA s.stream> : '<![CDATA[' e.cdata ']]>',
-    e.text ((CDATA) e.cdata) <GetTag s.stream>;
-    e.text (<Get_Delim s.stream '>'>);
+      e.text ((CDATA) e.cdata) <GetTag s.stream>;
+    e.text (<GetDelims s.stream '>'> '>');
+    //e.text (<Get_Delim s.stream '>'>);
   };