Блог

Я использую fsyacc / fslex из F # Power Pack для анализа некоторого исходного кода.

Для обнаружения ошибок я использую следующий код:

 use inputChannel = new StreamReader(File.OpenRead tempFileName)
let lexbuf = Lexing.LexBuffer<_>.FromTextReader inputChannel

let ast = try
                Parser.start Lexer.tokenize lexbuf
              with e ->
                let pos = lexbuf.EndPos
                let line = pos.Line
                let column = pos.Column
                let message = e.Message
                let lastToken = new System.String(lexbuf.Lexeme)
                printf "Parse failed at line %d, column %d:n" line column
                printf "Last loken: %s" lastToken
                printf "n"
                exit 1   
  

Но когда этот код выдает сообщение об ошибке при синтаксическом анализе многострочного исходного файла, я получаю неправильную позицию строки и столбца:

 Parse failed at line 0, column 10899:
  

Как я могу правильно получить номер строки, в которой произошла ошибка?

Во время лексики вам необходимо вручную увеличить номер строки с помощью правила, подобного

 ...
let newline = ('n' | 'r' 'n')

rule tokenize = parse
| newline    { lexbuf.EndPos <- lexbuf.EndPos.NextLine; tokenize lexbuf }
...