Changeset 3796 for applications/trunk


Ignore:
Timestamp:
May 31, 2008, 3:07:14 AM (13 years ago)
Author:
orlov
Message:
File:
1 edited

Legend:

Unmodified
Added
Removed
  • applications/trunk/LFC/parser/Lexer.rf

    r3795 r3796  
    153153GetSourceLine =
    154154  <Get &InputStream> : s.stream,
    155   # <IsEnd_of_Stream s.stream> = <Get_Line s.stream>;
     155  # <IsEnd_of_Stream s.stream> =
     156  <Get_Line s.stream> : {
     157    e.line '\r\n' = e.line;
     158    e.line '\n'   = e.line;
     159    e.line '\r'   = e.line;
     160    e.line        = e.line;
     161  };
    156162
    157163$func TokenPosition s.line s.column = t.token_position;
     
    166172
    167173$func Main = e;
    168 Main = <WriteLn <Lexer <Expr_Open '1a"b\\cdef'>>>,
     174Main = <WriteLn <Lexer <Expr_Open '1a"b\\cd\n ef'>>>,
    169175  <WriteLn <Get &Errors>>;
Note: See TracChangeset for help on using the changeset viewer.