diff options
| author | Vladimir Azarov <avm@intermediate-node.net> | 2025-05-17 14:45:50 +0200 |
|---|---|---|
| committer | Vladimir Azarov <avm@intermediate-node.net> | 2025-05-17 14:45:50 +0200 |
| commit | 5edd85474d6d8f3a0cc06cc0250ed3db8b26fcfa (patch) | |
| tree | bd7ad914025858b4389b1801216ac7d41a0c1f45 /tokenizer.sig | |
| parent | 1f31e550385cfa64a36167a5f3f9ec780baaad86 (diff) | |
Function-like macros
Diffstat (limited to 'tokenizer.sig')
| -rw-r--r-- | tokenizer.sig | 30 |
1 files changed, 14 insertions, 16 deletions
diff --git a/tokenizer.sig b/tokenizer.sig index f79e62a..53a9f17 100644 --- a/tokenizer.sig +++ b/tokenizer.sig @@ -111,27 +111,25 @@ signature TOKENIZER = sig CommentStart | - CppInclude | - CppDefine | - CppUndef | - CppIf | - CppIfdef | - CppIfndef | - CppElse | - CppElif | - CppEndif | - CppWarning | - CppError | - CppPragma + PpcInclude | + PpcDefine | + PpcUndef | + PpcIf | + PpcIfdef | + PpcIfndef | + PpcElse | + PpcElif | + PpcEndif | + PpcWarning | + PpcError | + PpcPragma (* Fatal. both may be thrown by tokenize *) exception FsmTableIsTooSmall exception TkErrorAug of S.pos * string val getToken: S.t -> token * S.pos * S.t + val Ptoken: (token, 'a, 'b) a1printer - val token2str: token -> string - val printToken: token -> unit - - val debugPrint: (token * S.pos) list -> string -> unit + val debugPrint: string -> unit end |