blob: 32f925601cb2b43b2813bd219d2430a61e0a8ac2 (
plain)
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
26
27
28
29
30
31
|
signature PPC = sig
structure T: TOKENIZER
type t
type tkErrorVal
type tkClassErrorVal
type tkPos
exception TkError of tkErrorVal
exception TkClassError of tkClassErrorVal
datatype tkClass =
Ctk of T.token |
Cid |
Cconst |
Cunop |
Cbinop |
Cop
val create: { fname: string, incDirs: string list, debugMode: bool } -> t
val debugPrint: string -> string list -> unit
val raiseTkError: string -> tkPos -> 'a
val tkErrorPrint: tkErrorVal -> unit
val raiseTkClassError: tkPos -> tkClass list -> 'a
val tkClassErrorPrint: tkClassErrorVal -> unit
end
|
