Ignore:
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:
1 edited

Legend:

Unmodified
Added
Removed
  • to-imperative/trunk/library/StdIO/refal/StdIO.rf

    r1643 r2027  
    6060  <Lookup &Buffers s.channel> : stream =
    6161    <Get-Line stream> : \{
    62       e.line '\n' = e.line;
    63       v.line      = v.line;
     62      e.line '\r\n' = e.line;
     63      e.line '\n'   = e.line;
     64      e.line '\r'   = e.line;
     65      v.line        = v.line;
    6466    };
    6567  <Lib-Error (StdIO Read-Line!) "Channel is not open"> = $fail;
Note: See TracChangeset for help on using the changeset viewer.