Commit 4a5eb6fc authored by Pietro Abate's avatar Pietro Abate
Browse files

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

Original author: afrisch
Date: 2004-06-25 12:37:20+00:00
parent b0cea1a0
...@@ -110,7 +110,10 @@ install: all ...@@ -110,7 +110,10 @@ install: all
ifneq ($(ML_INTERFACE), false) ifneq ($(ML_INTERFACE), false)
install_cdml: 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 endif
uninstall: uninstall:
......
...@@ -8,7 +8,9 @@ type 'a ml2cd = 'a -> Value.t ...@@ -8,7 +8,9 @@ type 'a ml2cd = 'a -> Value.t
let initialize modname = let initialize modname =
let cu = Types.CompUnit.mk ( Ident.U.mk_latin1 modname ) in 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; Librarian.run cu;
cu cu
......
...@@ -293,7 +293,7 @@ ifdef ML_INTERFACE then ...@@ -293,7 +293,7 @@ ifdef ML_INTERFACE then
Ml_checker.run ml_cu cd_cu; Ml_checker.run ml_cu cd_cu;
let out = open_out ( Filename.concat out_dir (fnam ^ ".ml") ) in let out = open_out ( Filename.concat out_dir (fnam ^ ".ml") ) in
let fmt = Format.formatter_of_out_channel out 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; close_out out;
with Not_found -> ( with Not_found -> (
let name = fnam ^ ".mli" in let name = fnam ^ ".mli" in
......
...@@ -9,3 +9,5 @@ val dump_env : Format.formatter -> unit ...@@ -9,3 +9,5 @@ val dump_env : Format.formatter -> unit
val compile: string -> string option -> unit val compile: string -> string option -> unit
val compile_run: string -> unit val compile_run: string -> unit
val run: string -> unit val run: string -> unit
val print_exn: Format.formatter -> exn -> unit
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment