[r2004-06-25 12:37:19 by afrisch] Another lowercase issue

Original author: afrisch
Date: 2004-06-25 12:37:20+00:00

Makefile.distrib

@@ -110,7 +110,10 @@ install: all
 
 ifneq ($(ML_INTERFACE), false)
 install_cdml:
-	ocamlfind install cduce META cdml.$(EXTENSION_LIB) cdo2cmo/cdml.cmi cDuce_all.cmi oCaml_all.$(EXTENSION_LIB) oCaml_all.cmi
+	$(OCAMLFIND) install cduce META \
+         cdml.$(EXTENSION_LIB) cdo2cmo/cdml.cmi \
+         cDuce_all.cmi oCaml_all.$(EXTENSION_LIB) \
+         $(wildcard *.a) oCaml_all.cmi
 endif
 
 uninstall:

cdo2cmo/cdml.ml

@@ -8,7 +8,9 @@ type 'a ml2cd = 'a -> Value.t
 
 let initialize modname =
   let cu = Types.CompUnit.mk ( Ident.U.mk_latin1 modname ) in
-  Librarian.import cu;
+  (try Librarian.import cu;
+   with Librarian.NoImplementation _ -> 
+     failwith ("Cdml: no implementation found for CDuce module " ^ modname));
   Librarian.run cu;
   cu
 

driver/cduce.ml

@@ -293,7 +293,7 @@ ifdef ML_INTERFACE then
       Ml_checker.run ml_cu cd_cu;
       let out = open_out ( Filename.concat out_dir (fnam ^ ".ml") ) in
       let fmt = Format.formatter_of_out_channel out in
-      Ml_generator.ML.generate fmt cu ml_cu cd_cu;
+      Ml_generator.ML.generate fmt fnam ml_cu cd_cu;
       close_out out;
     with Not_found -> ( 
       let name = fnam ^ ".mli" in

driver/cduce.mli

@@ -9,3 +9,5 @@ val dump_env : Format.formatter -> unit
 val compile: string -> string option -> unit
 val compile_run: string -> unit
 val run: string -> unit
+
+val print_exn: Format.formatter -> exn -> unit