blob: d3dcf3cceb0404461bf5711c3d58a3d10fa2084c (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
|
structure ccross:> CCROSS = struct
structure ST:> SYMTAB = Symtab(Hashtable)
structure T:> TOKENIZER =
Tokenizer(structure ST = ST; structure S = Stream)
structure ppc:> PPC = ppc(structure Tree = Tree; structure T = T)
structure Parser:> PARSER =
Parser(structure Tree = Tree; structure P = ppc;
structure D = Dynarray)
structure D:> DRIVER = Driver(Parser)
structure ExnHandler:> EXN_HANDLER = ExnHandler
end
val () = MLton.Exn.setTopLevelHandler ccross.ExnHandler.handler
val () = ccross.D.exec ()
|
