Skip to content
GitLab
Menu
Projects
Groups
Snippets
Loading...
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in
Toggle navigation
Menu
Open sidebar
POTTIER Francois
menhir
Commits
ef27426f
Commit
ef27426f
authored
Oct 29, 2015
by
POTTIER Francois
Browse files
New option --suggest-menhirLib to find out where menhirLib.{ml,mli} have been installed.
parent
8d668822
Changes
1
Show whitespace changes
Inline
Side-by-side
src/settings.ml
View file @
ef27426f
...
...
@@ -157,6 +157,7 @@ type suggestion =
|
SuggestNothing
|
SuggestCompFlags
|
SuggestLinkFlags
of
string
(* "cmo" or "cmx" *)
|
SuggestWhereIsMenhirLibSource
let
suggestion
=
ref
SuggestNothing
...
...
@@ -248,6 +249,8 @@ let options = Arg.align [
" Suggest link flags for ocamlc"
;
"--suggest-link-flags-opt"
,
Arg
.
Unit
(
fun
()
->
suggestion
:=
SuggestLinkFlags
"cmx"
)
,
" Suggest link flags for ocamlopt"
;
"--suggest-menhirLib"
,
Arg
.
Unit
(
fun
()
->
suggestion
:=
SuggestWhereIsMenhirLibSource
)
,
" Suggest where is MenhirLib"
;
"--table"
,
Arg
.
Set
table
,
" Use the table-based back-end"
;
"--timings"
,
Arg
.
Set
timings
,
" Display internal timings"
;
"--trace"
,
Arg
.
Set
trace
,
" Include tracing instructions in the generated code"
;
...
...
@@ -312,6 +315,13 @@ let () =
else
printf
"menhirLib.%s
\n
%!"
extension
;
exit
0
|
SuggestWhereIsMenhirLibSource
->
if
Installation
.
ocamlfind
then
let
_
=
Sys
.
command
"ocamlfind query menhirLib"
in
()
else
printf
"%s
\n
%!"
Installation
.
libdir
;
exit
0
(* ------------------------------------------------------------------------- *)
(* Export the settings. *)
...
...
Write
Preview
Markdown
is supported
0%
Try again
or
attach a new file
.
Attach a file
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Cancel
Please
register
or
sign in
to comment