-
Notifications
You must be signed in to change notification settings - Fork 2
/
schlex.mli
25 lines (23 loc) · 1 KB
/
schlex.mli
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
(***********************************************************************)
(* Cash *)
(* *)
(* Bruno Verlyck, projet Cristal, INRIA Rocquencourt *)
(* *)
(* Copyright 2002 Institut National de Recherche en Informatique et *)
(* en Automatique. All rights reserved. This file is distributed *)
(* under the terms of the GNU Lesser General Public License. *)
(* *)
(* Cash is based on Scsh, by Olin Shivers. *)
(***********************************************************************)
type token =
[ Bool of bool
| Int of int
| Float of float
| Sym of string
| String of string
| Open_par
| Close_par
| Eof ]
;
type loc = (int * int);
type loc_tok = { loc : loc; token : token };