[Caml-list] Strange result with Lexing

["Sébastien Dailly" <sebastien-ocaml@chimrod.com>]

[-- Attachment #1: Type: text/plain, Size: 452 bytes --]

Hello,

I've found a strange result when calling Lexing.lexeme_start and 
Lexing.lexeme_end on DOS format file (with \r\n instead of \n).

The value returned by the two functions is wrong when the file is in DOS 
format (the result does not change when I convert the file in UNIX 
format, but this is what I expect).

I there something I misunderstood in the documentation ?

(I've compiled ocaml with opam on cygwin).

Regards,

-- 
Sébastien Dailly

[-- Attachment #2: lexer.mll --]
[-- Type: text/plain, Size: 509 bytes --]

{
  open Lexing
  open Parser

  exception SyntaxError of string * lexbuf
  
  let debug lexbuf =
    let open Lexing in
      Printf.printf "lexeme_start %d\nlexeme_end %d\n" 
        (Lexing.lexeme_start lexbuf)
        (Lexing.lexeme_end lexbuf)
}


let white = [' ' '\t']
let newline = "\n\r" | '\n' | '\r'


rule read = parse
  | white+   { read lexbuf }

  | "obj"   { debug lexbuf; OBJ }

  | newline {  read lexbuf }
  | eof     { EOF }
  | _       { raise (SyntaxError ("Unexpected char", lexbuf)) }