Permalink
Browse files

fix whitespace and over-long lines

git-svn-id: http://caml.inria.fr/svn/ocaml/trunk@13429 f963ae5c-01c2-4b8c-9fe0-0dff7051ff02
  • Loading branch information...
1 parent 18962fd commit 726da0bdfc940b2355344ef7faf4819ec48df213 Damien Doligez committed Mar 22, 2013
Showing with 18 additions and 12 deletions.
  1. +6 −5 driver/compile.ml
  2. +4 −2 driver/main_args.ml
  3. +8 −5 driver/optcompile.ml
View
@@ -88,15 +88,15 @@ let interface ppf sourcefile outputprefix =
let sg = tsg.sig_type in
if !Clflags.print_types then
Printtyp.wrap_printing_env initial_env (fun () ->
- fprintf std_formatter "%a@."
- Printtyp.signature (Typemod.simplify_signature sg));
+ fprintf std_formatter "%a@."
+ Printtyp.signature (Typemod.simplify_signature sg));
ignore (Includemod.signatures initial_env sg sg);
Typecore.force_delayed_checks ();
Warnings.check_fatal ();
if not !Clflags.print_types then begin
let sg = Env.save_signature sg modulename (outputprefix ^ ".cmi") in
Typemod.save_signature modulename tsg outputprefix sourcefile
- initial_env sg ;
+ initial_env sg ;
end;
Pparse.remove_preprocessed inputfile
with e ->
@@ -127,7 +127,7 @@ let implementation ppf sourcefile outputprefix =
++ print_if ppf Clflags.dump_source Pprintast.structure
++ Typemod.type_implementation sourcefile outputprefix modulename env
++ print_if ppf Clflags.dump_typedtree
- Printtyped.implementation_with_coercion);
+ Printtyped.implementation_with_coercion);
Warnings.check_fatal ();
Pparse.remove_preprocessed inputfile;
Stypes.dump (Some (outputprefix ^ ".annot"));
@@ -143,7 +143,8 @@ let implementation ppf sourcefile outputprefix =
++ print_if ppf Clflags.dump_parsetree Printast.implementation
++ print_if ppf Clflags.dump_source Pprintast.structure
++ Typemod.type_implementation sourcefile outputprefix modulename env
- ++ print_if ppf Clflags.dump_typedtree Printtyped.implementation_with_coercion
+ ++ print_if ppf Clflags.dump_typedtree
+ Printtyped.implementation_with_coercion
++ Translmod.transl_implementation modulename
++ print_if ppf Clflags.dump_rawlambda Printlambda.lambda
++ Simplif.simplify_lambda
View
@@ -39,7 +39,8 @@ let mk_cclib f =
;;
let mk_ccopt f =
- "-ccopt", Arg.String f, "<opt> Pass option <opt> to the C compiler and linker"
+ "-ccopt", Arg.String f,
+ "<opt> Pass option <opt> to the C compiler and linker"
;;
let mk_compact f =
@@ -208,7 +209,8 @@ let mk_pp f =
;;
let mk_ppx f =
- "-ppx", Arg.String f, "<command> Pipe abstract syntax trees through preprocessor <command>"
+ "-ppx", Arg.String f,
+ "<command> Pipe abstract syntax trees through preprocessor <command>"
;;
let mk_principal f =
View
@@ -91,7 +91,8 @@ let interface ppf sourcefile outputprefix =
Warnings.check_fatal ();
if not !Clflags.print_types then begin
let sg = Env.save_signature sg modulename (outputprefix ^ ".cmi") in
- Typemod.save_signature modulename tsg outputprefix sourcefile initial_env sg ;
+ Typemod.save_signature modulename tsg outputprefix sourcefile
+ initial_env sg ;
end;
Pparse.remove_preprocessed inputfile;
Stypes.dump (Some (outputprefix ^ ".annot"))
@@ -122,18 +123,20 @@ let implementation ppf sourcefile outputprefix =
let cmxfile = outputprefix ^ ".cmx" in
let objfile = outputprefix ^ ext_obj in
try
- if !Clflags.print_types then ignore(
+ if !Clflags.print_types then ignore begin
Pparse.file ppf inputfile Parse.implementation ast_impl_magic_number
++ print_if ppf Clflags.dump_parsetree Printast.implementation
++ print_if ppf Clflags.dump_source Pprintast.structure
++ Typemod.type_implementation sourcefile outputprefix modulename env
- ++ print_if ppf Clflags.dump_typedtree Printtyped.implementation_with_coercion)
- else begin
+ ++ print_if ppf Clflags.dump_typedtree
+ Printtyped.implementation_with_coercion
+ end else begin
Pparse.file ppf inputfile Parse.implementation ast_impl_magic_number
++ print_if ppf Clflags.dump_parsetree Printast.implementation
++ print_if ppf Clflags.dump_source Pprintast.structure
++ Typemod.type_implementation sourcefile outputprefix modulename env
- ++ print_if ppf Clflags.dump_typedtree Printtyped.implementation_with_coercion
+ ++ print_if ppf Clflags.dump_typedtree
+ Printtyped.implementation_with_coercion
++ Translmod.transl_store_implementation modulename
+++ print_if ppf Clflags.dump_rawlambda Printlambda.lambda
+++ Simplif.simplify_lambda

0 comments on commit 726da0b

Please sign in to comment.