Ekdohibs
/
ocaml
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

-labels 

git-svn-id: http://caml.inria.fr/svn/ocaml/trunk@3071 f963ae5c-01c2-4b8c-9fe0-0dff7051ff02
master
Jacques Garrigue 2000-04-13 06:24:33 +00:00
parent 77d81d824b
commit a5eafc35c6
3 changed files with 5 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
otherlibs/labltk/browser/editor.ml
View File

@ -38,7 +38,7 @@ let compiler_preferences () =
~f:(fun (text, ref, invert) -> mk_chkbutton ~text ~ref ~invert) ~f:(fun (text, ref, invert) -> mk_chkbutton ~text ~ref ~invert)
[ "No pervasives", Clflags.nopervasives, false; [ "No pervasives", Clflags.nopervasives, false;
"No warnings", Typecheck.nowarnings, false; "No warnings", Typecheck.nowarnings, false;
"Modern", Clflags.classic, true; "Labels commute", Clflags.classic, true;
"Lex on load", lex_on_load, false; "Lex on load", lex_on_load, false;
"Type on load", type_on_load, false ]) "Type on load", type_on_load, false ])
in in

6
otherlibs/labltk/browser/main.ml
View File

@ -20,10 +20,10 @@ let _ =
Arg.parse Arg.parse
~keywords:["-I", Arg.String (fun s -> path := s :: !path), ~keywords:["-I", Arg.String (fun s -> path := s :: !path),
"<dir> Add <dir> to the list of include directories"; "<dir> Add <dir> to the list of include directories";
"-label", Arg.Unit (fun () -> Clflags.classic := false), "-labels", Arg.Unit (fun () -> Clflags.classic := false),
"Use strict label syntax"; "Use commuting label syntax";
"-modern", Arg.Unit (fun () -> Clflags.classic := false), "-modern", Arg.Unit (fun () -> Clflags.classic := false),
"same as -label"; "same as -labels";
"-w", Arg.String (fun s -> Shell.warnings := s), "-w", Arg.String (fun s -> Shell.warnings := s),
"<flags> Enable or disable warnings according to <flags>:\n\ "<flags> Enable or disable warnings according to <flags>:\n\
\032 A/a enable/disable all warnings\n\ \032 A/a enable/disable all warnings\n\

2
otherlibs/labltk/browser/shell.ml
View File

@ -284,7 +284,7 @@ let f ~prog ~title =
end in end in
let load_path = let load_path =
List2.flat_map !Config.load_path ~f:(fun dir -> ["-I"; dir]) in List2.flat_map !Config.load_path ~f:(fun dir -> ["-I"; dir]) in
let modern = if !Clflags.classic then [] else ["-label"] in let modern = if !Clflags.classic then [] else ["-labels"] in
let warnings = let warnings =
if List.mem "-w" progargs || !warnings = "A" then [] if List.mem "-w" progargs || !warnings = "A" then []
else ["-w"; !warnings] else ["-w"; !warnings]