[r2003-03-08 15:51:30 by cvscast] Empty log message

Original author: cvscast
Date: 2003-03-08 15:51:30+00:00

Makefile

@@ -45,7 +45,7 @@ DEBUG = -g
 PACKAGES = pxp-engine,pxp-lex-iso88591,wlexing,camlp4,num,cgi
 OCAMLCP = ocamlc
 OCAMLC = ocamlfind $(OCAMLCP) -package $(PACKAGES)
-OCAMLOPT = ocamlfind ocamlopt -package $(PACKAGES)
+OCAMLOPT = ocamlfind ocamlopt -p -package $(PACKAGES)
 
 DEPEND = $(DIRS:=/*.ml) $(DIRS:=/*.mli)
 INCLUDES = $(DIRS:%=-I %)

types/ident.ml

+module Id = Pool.Make(SortedList.String)
+module IdSet = SortedList.Make(SortedList.Lift(Id))
+module IdMap = IdSet.Map
+type id = Id.t
+type 'a id_map = (unit,'a) IdMap.map
+type fv = unit IdSet.t
+
+let ident = Id.mk