11 lines
161 B
OCaml
11 lines
161 B
OCaml
(* State variables for the parser & lexer *)
|
|
type parserstate = {
|
|
mutable lineno : int ;
|
|
}
|
|
|
|
let state = {
|
|
lineno = 1 ;
|
|
}
|
|
|
|
let reset () =
|
|
state.lineno <- 1
|