mirror of
https://github.com/c-cube/sidekick.git
synced 2025-12-07 03:35:38 -05:00
12 lines
329 B
OCaml
12 lines
329 B
OCaml
(* auto-generated by gt *)
|
|
|
|
(* no extra data from grammar file. *)
|
|
type extradata = unit;;
|
|
let initial_data() = ();;
|
|
|
|
let file = ref "stdin";;
|
|
let line = ref 1;;
|
|
type pos = int;;
|
|
let string_of_pos p = "line "^(string_of_int p);;
|
|
let cur_pd() = (!line, initial_data());; (* "pd": pos + extradata *)
|
|
type pd = pos * extradata;;
|