balsoft/ligo
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

Fixed lexer rule for literal naturals. Fixed reset_buffer (offset).

Browse Source
This commit is contained in:
Christian Rinderknecht 2019-04-24 15:11:33 +02:00
parent b361f71845
commit 669945d4f3
No known key found for this signature in database
GPG Key ID: 9446816CFD267040
2 changed files with 14 additions and 15 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
src/ligo/parser/pascaligo/Lexer.mll
View File

@ -53,10 +53,9 @@ let reset_line ~line buffer =
let reset_offset ~offset buffer = let reset_offset ~offset buffer =
assert (offset >= 0); assert (offset >= 0);
Printf.printf "[reset] offset=%i\n" offset;
let open Lexing in let open Lexing in
let bol = buffer.lex_curr_p.pos_bol in let bol = buffer.lex_curr_p.pos_bol in
buffer.lex_curr_p <- {buffer.lex_curr_p with pos_cnum = bol (*+ offset*)} buffer.lex_curr_p <- {buffer.lex_curr_p with pos_cnum = bol + offset }
let reset ?file ?line ?offset buffer = let reset ?file ?line ?offset buffer =
let () = let () =
@ -490,7 +489,7 @@ and scan state = parse
| ident { mk_ident state lexbuf |> enqueue } | ident { mk_ident state lexbuf |> enqueue }
| constr { mk_constr state lexbuf |> enqueue } | constr { mk_constr state lexbuf |> enqueue }
| bytes { (mk_bytes seq) state lexbuf |> enqueue } | bytes { (mk_bytes seq) state lexbuf |> enqueue }
| integer 'n' { mk_nat state lexbuf |> enqueue } | natural 'n' { mk_nat state lexbuf |> enqueue }
| integer { mk_int state lexbuf |> enqueue } | integer { mk_int state lexbuf |> enqueue }
| symbol { mk_sym state lexbuf |> enqueue } | symbol { mk_sym state lexbuf |> enqueue }
| eof { mk_eof state lexbuf |> enqueue } | eof { mk_eof state lexbuf |> enqueue }