Two fixes in heptc
- Add the directory of the file as an include - write interfaces with uncapitalized filenames, as expected by modules.
This commit is contained in:
parent
5939673999
commit
2e44402b03
1 changed files with 3 additions and 1 deletions
|
@ -17,7 +17,8 @@ open Hept_compiler
|
|||
|
||||
let compile_impl modname filename =
|
||||
(* input and output files *)
|
||||
let source_name = filename ^ ".ept"
|
||||
let source_name = filename ^ ".ept" in
|
||||
let filename = String.uncapitalize filename
|
||||
and obj_interf_name = filename ^ ".epci"
|
||||
and mls_name = filename ^ ".mls" in
|
||||
|
||||
|
@ -32,6 +33,7 @@ let compile_impl modname filename =
|
|||
|
||||
try
|
||||
init_compiler modname;
|
||||
add_include (Filename.dirname filename);
|
||||
|
||||
(* Parsing of the file *)
|
||||
let p = parse_implementation lexbuf in
|
||||
|
|
Loading…
Reference in a new issue