Changeset 2027 for to-imperative/trunk/library/StdIO/refal/StdIO.rf

Timestamp:

Jul 17, 2006, 9:40:42 PM (15 years ago)

Author:

orlov

Message:

• Stream.Get-Line and StdIO.Read-Line! consider a line to be terminated

by any one of a line feed ('\n'), a carriage return ('\r'),
or a carriage return followed immediately by a linefeed.

• New function Stream.Scanc.

File:

• to-imperative/trunk/library/StdIO/refal/StdIO.rf (modified) (1 diff)

to-imperative/trunk/library/StdIO/refal/StdIO.rf

@@ -60 +60 @@
   <Lookup &Buffers s.channel> : stream =
     <Get-Line stream> : \{
-      e.line '\n' = e.line;
-      v.line      = v.line;
+      e.line '\r\n' = e.line;
+      e.line '\n'   = e.line;
+      e.line '\r'   = e.line;
+      v.line        = v.line;
     };
   <Lib-Error (StdIO Read-Line!) "Channel is not open"> = $fail;