Mantis Bug Tracker

View Issue Details Jump to Notes ] Issue History ] Print ]
IDProjectCategoryView StatusDate SubmittedLast Update
0004572OCaml~DO NOT USE (was: OCaml general)public2008-06-30 17:162008-07-25 16:50
Assigned Toertai 
PlatformOSOS Version
Product Version3.10.1 
Target VersionFixed in Version3.11+dev 
Summary0004572: ocamlbuild does not give correct switches to ocamldep when running menhir
DescriptionGenerally, ocamlbuild finds dependencies for menhir .mly files by invoking menhir with the switch: --ocamldep '<ocamldep_options>'. The ocamldep options are however taken from the same list of options as are given to menhir itself during the dependency check. Thus, if menhir requires options that ocamldep does not support, an error is thrown.

Suppose, for example, I have written a parser using menhir and it uses an external token file. Thus, my files are:

To make this compile, I define a tags file:
"tokens.mly": only-tokens

Then, I define a file with:
let parserFlags =

let _ = dispatch begin function
  | After_rules ->
    flag ["ocaml"; "menhir_ocamldep"; "only-tokens"] (A "--only-tokens");
    flag ["ocaml"; "parser"; "menhir"; "only-tokens"] (A "--only-tokens");

    flag ["ocaml"; "menhir_ocamldep"; "parser.mly"] parserFlags
    flag ["ocaml"; "parser"; "menhir"; "parser.mly"] parserFlags

(* plus some dep lines, not shown *)

When running a Make with this file, ocamlbuild ends up giving both menhir and ocamldep the --base and --external-tokens arguments, like so:

menhir --base Parser --external-tokens Tokens --raw-depends --ocamldep '--base Parser --external-tokens Tokens' etc.

Then ocamldep throws an error and we can't proceed any further. Actually, the switches are given three times in the same command; once to menhir, once to ocamldep, and then once to pp. The real issue here is that when figuring out the dependencies, menhir requires a different set of arguments than does ocamldep. There is no easy way to hack around this using tags.

Additional InformationThe only quick workaround I've found is to copy the menhir dependencies rule into along with its supporting functions, and then throw out the tags when passed to ocamldep. A full, working example (of just the file) is attached. Here is the short version:

let notags=Ocamlbuild_pack.Tags.of_list []

(* copied and modified from ocamlbuild sources: *)
let ocamldep_command' tags spec =
  let tags' = tags++"ocaml"++"ocamldep" in
    S [!Options.ocamldep; T tags'; Ocamlbuild_pack.Ocaml_utils.ocaml_ppflags (tags++"pp:dep");
       spec; A "-modules"]

let menhir_ocamldep_command' tags ~menhir_spec ~ocamldep_spec out =
  let menhir = if !Options.ocamlyacc = N then V"MENHIR" else !Options.ocamlyacc
  in Cmd(S[menhir; T tags; A"--raw-depend";
    (*A"--ocamldep"; Quote (ocamldep_command' tags ocamldep_spec);*)
    A"--ocamldep"; Quote (ocamldep_command' notags ocamldep_spec);
    menhir_spec ; Sh ">"; Px out])

let menhir_ocamldep_command arg out env _build =
  let arg = env arg and out = env out in
  let tags = tags_of_pathname arg++"ocaml"++"menhir_ocamldep" in
  let ocamldep_spec = ignore (Ocamlbuild_pack.Tools.flags_of_pathname arg) in
  menhir_ocamldep_command' tags ~menhir_spec:(P arg) ~ocamldep_spec out

   | After_rules ->
       rule "ocaml: menhir dependencies0"
        ~prod: "%.mly.depends"
        ~dep: "%.mly"
        ~insert: (`before "ocaml: menhir dependencies")
        (menhir_ocamldep_command "%.mly" "%.mly.depends");

TagsNo tags attached.
Attached Files? file icon [^] (6,703 bytes) 2008-06-30 17:16 [Show Content]

- Relationships

-  Notes
ertai (developer)
2008-07-25 16:49

Fixed in CVS trunk, thanks for the report.

- Issue History
Date Modified Username Field Change
2008-06-30 17:16 inalan New Issue
2008-06-30 17:16 inalan File Added:
2008-07-25 16:49 ertai Note Added: 0004543
2008-07-25 16:50 ertai Assigned To => ertai
2008-07-25 16:50 ertai Status new => closed
2008-07-25 16:50 ertai Resolution open => fixed
2008-07-25 16:50 ertai Fixed in Version => 3.11+dev
2008-07-25 16:50 ertai Description Updated
2008-07-25 16:50 ertai Additional Information Updated
2017-02-23 16:36 doligez Category OCaml general => -OCaml general
2017-03-03 17:55 doligez Category -OCaml general => -(deprecated) general
2017-03-03 18:01 doligez Category -(deprecated) general => ~deprecated (was: OCaml general)
2017-03-06 17:04 doligez Category ~deprecated (was: OCaml general) => ~DO NOT USE (was: OCaml general)

Copyright © 2000 - 2011 MantisBT Group
Powered by Mantis Bugtracker