summaryrefslogtreecommitdiff
path: root/cpp.sig
diff options
context:
space:
mode:
authorVladimir Azarov <avm@intermediate-node.net>2025-04-11 21:54:16 +0200
committerVladimir Azarov <avm@intermediate-node.net>2025-04-11 21:54:16 +0200
commite99a8dc48ede26696be2ba75a8cb0d5122d94598 (patch)
treec3dcd1d6a9b96aaedd081f13b9dc7e7d6c07e2bd /cpp.sig
parent8e2dc7712de206b87e1c46df9383c3fa1e18a43a (diff)
#include directive
Diffstat (limited to 'cpp.sig')
-rw-r--r--cpp.sig15
1 files changed, 9 insertions, 6 deletions
diff --git a/cpp.sig b/cpp.sig
index beed8c2..e842e13 100644
--- a/cpp.sig
+++ b/cpp.sig
@@ -3,9 +3,12 @@ signature CPP = sig
type t
type tkPos
- type tkExpectedValue
- exception TkExpected of tkExpectedValue
+ type tkExpectedVal
+ exception TkExpected of tkExpectedVal
+
+ type tkErrorVal
+ exception TkError of tkErrorVal
datatype tkExp =
Tk of T.token |
@@ -16,12 +19,12 @@ signature CPP = sig
BinOp |
Op
- val create: string -> t
+ val create: string -> string list -> t
val getToken: t -> T.token * t
val getLastPos: t -> tkPos
- val prepAndRaise: t -> tkPos -> tkExp list -> 'a
- val tkExpectedPrint: tkExpectedValue -> unit
+ val tkExpectedPrint: tkExpectedVal -> unit
+ val tkErrorPrint: tkErrorVal -> unit
- val debugPrint: string -> unit
+ val debugPrint: t -> unit
end