blob: d42368d090229880803f9bd12973b44e9334ad65 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
|
structure ccross:> CCROSS = struct
structure T:> TOKENIZER =
Tokenizer(structure H = Hashtable; structure S = Stream)
structure P:> CPP = Cpp(T)
structure D:> DRIVER = Driver(P)
structure ExnHandler:> EXN_HANDLER =
ExnHandler(structure T = T; structure P = P)
end
val () = MLton.Exn.setTopLevelHandler ccross.ExnHandler.handler
val () = ccross.D.exec ()
|
