blob: 749687bca8ac64f09d83d54ecc1bf714e86d98a7 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
|
structure ccross:> CCROSS = struct
structure T:> TOKENIZER =
Tokenizer(structure H = Hashtable; structure S = Stream)
structure P:> CPP = Cpp(T)
structure ExnHandler:> EXN_HANDLER =
ExnHandler(structure T = T; structure P = P)
end
val () = MLton.Exn.setTopLevelHandler ccross.ExnHandler.handler
fun main [fname] = ccross.P.debugPrint fname
| main _ = printLn "Expected a single argument: file name"
val () = main $ CommandLine.arguments ()
|
