Changeset 3953 for to-imperative/trunk/java/refal/refal/plus/Stream.rf

Timestamp:

Oct 2, 2008, 6:13:11 PM (12 years ago)

Author:

yura

Message:

• Expr.concat(Comparable, Expr) checks if term in array of expr and before it.
• XML parsing.

File:

• to-imperative/trunk/java/refal/refal/plus/Stream.rf (modified) (1 diff)

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

@@ -97 +97 @@
 };
 
+Scans stream e1, {
+  <Gets stream <Length e1>> : {
+    e1 = e1;
+    e2 = <Ungets stream e2>;
+  };
+  /*empty*/;
+};
+
+//** $func Get-Delim stream t.delim = expr;
+
+Get_Delims stream e.delim, {
+  <Scans stream e.delim> : e.delim = e.delim;
+  <Getc stream> :: t1 = t1 <Get_Delims stream e.delim>;
+  /*empty*/;
+};
 
 //** $func Get-Delim stream t.delim = expr;