clean up spaces and tabs

git-svn-id: http://caml.inria.fr/svn/ocaml/trunk@9547 f963ae5c-01c2-4b8c-9fe0-0dff7051ff02

asmcomp/amd64/emit.mlp

@@ -791,4 +791,3 @@ let end_assembly() =
   if Config.system = "linux" then
     (* Mark stack as non-executable, PR#4564 *)
     `	.section .note.GNU-stack,\"\",%progbits\n`
-

asmcomp/arm/selection.ml

@@ -198,4 +198,3 @@ method insert_op_debug op dbg rs rd =
 end
 
 let fundecl f = (new selector)#emit_fundecl f
-

asmcomp/asmlibrarian.ml

@@ -71,4 +71,3 @@ let report_error ppf = function
       fprintf ppf "Cannot find file %s" name
   | Archiver_error name ->
       fprintf ppf "Error while creating the library %s" name
-

asmcomp/closure.mli

@@ -15,4 +15,3 @@
 (* Introduction of closures, uncurrying, recognition of direct calls *)
 
 val intro: int -> Lambda.lambda -> Clambda.ulambda
-

asmcomp/cmm.ml

@@ -129,4 +129,3 @@ type data_item =
 type phrase =
     Cfunction of fundecl
   | Cdata of data_item list
-

asmcomp/cmm.mli

@@ -115,4 +115,3 @@ type data_item =
 type phrase =
     Cfunction of fundecl
   | Cdata of data_item list
-

asmcomp/codegen.ml

@@ -95,7 +95,3 @@ let file filename =
         close_in ic; Parsecmmaux.report_error msg
     | x ->
         close_in ic; raise x
-
-        
-
-        

asmcomp/compilenv.ml

@@ -240,4 +240,3 @@ let report_error ppf = function
       fprintf ppf "Corrupted compilation unit description@ %s" filename
   | Illegal_renaming(modname, filename) ->
       fprintf ppf "%s@ contains the description for unit@ %s" filename modname
-

asmcomp/compilenv.mli

@@ -106,5 +106,3 @@ type error =
 exception Error of error
 
 val report_error: Format.formatter -> error -> unit
-
-

asmcomp/debuginfo.mli

@@ -28,4 +28,3 @@ val from_location: kind -> Location.t -> t
 
 val from_call: Lambda.lambda_event -> t
 val from_raise: Lambda.lambda_event -> t
-

asmcomp/emitaux.ml

@@ -189,4 +189,3 @@ let is_generic_function name =
   List.exists
     (fun p -> isprefix p name)
     ["caml_apply"; "caml_curry"; "caml_send"; "caml_tuplify"]
-

asmcomp/hppa/arch.ml

@@ -71,4 +71,3 @@ let print_specific_operation printreg op ppf arg =
   | Ishift1add -> fprintf ppf "%a << 1 + %a" printreg arg.(0) printreg arg.(1)
   | Ishift2add -> fprintf ppf "%a << 2 + %a" printreg arg.(0) printreg arg.(1)
   | Ishift3add -> fprintf ppf "%a << 3 + %a" printreg arg.(0) printreg arg.(1)
-

asmcomp/i386/arch.ml

@@ -151,4 +151,3 @@ let stack_alignment =
   match Config.system with
   | "macosx" -> 16
   | _ -> 4
-

asmcomp/i386/selection.ml

@@ -324,4 +324,3 @@ method emit_extcall_args env args =
 end
 
 let fundecl f = (new selector)#emit_fundecl f
-

asmcomp/linearize.mli

@@ -52,4 +52,3 @@ type fundecl =
     fun_fast: bool }
 
 val fundecl: Mach.fundecl -> fundecl
-

asmcomp/mach.ml

@@ -129,4 +129,3 @@ let rec instr_iter f i =
       | Iraise -> ()
       | _ ->
           instr_iter f i.next
-

asmcomp/mach.mli

@@ -90,4 +90,3 @@ val instr_cons_debug:
       instruction_desc -> Reg.t array -> Reg.t array -> Debuginfo.t ->
         instruction -> instruction
 val instr_iter: (instruction -> unit) -> instruction -> unit
-

asmcomp/power/arch.ml

@@ -84,4 +84,3 @@ let print_specific_operation printreg op ppf arg =
         printreg arg.(0) printreg arg.(1) printreg arg.(2)
   | Ialloc_far n ->
       fprintf ppf "alloc_far %d" n
-

asmcomp/power/scheduling.ml

@@ -63,4 +63,3 @@ method reload_retaddr_issue_cycles = 3
 end
 
 let fundecl f = (new scheduler)#schedule_fundecl f
-

asmcomp/reload.mli

@@ -15,4 +15,3 @@
 (* Insert load/stores for pseudoregs that got assigned to stack locations. *)
 
 val fundecl: Mach.fundecl -> Mach.fundecl * bool
-

asmcomp/sparc/scheduling.ml

@@ -62,4 +62,3 @@ method oper_issue_cycles = function
 end
 
 let fundecl f = (new scheduler)#schedule_fundecl f
-

asmcomp/spill.ml

@@ -400,4 +400,3 @@ let fundecl f =
     fun_args = f.fun_args;
     fun_body = new_body;
     fun_fast = f.fun_fast }
-  

asmrun/backtrace.c

@@ -222,4 +222,3 @@ CAMLprim value caml_get_exception_backtrace(value unit)
   res = caml_alloc_small(1, 0); Field(res, 0) = arr; /* Some */
   CAMLreturn(res);
 }
-

asmrun/i386nt.asm

@@ -320,4 +320,3 @@ _caml_extra_params LABEL DWORD
         BYTE    64 DUP (?)
 
         END
-

asmrun/power-elf.S

@@ -418,4 +418,3 @@ caml_system__frametable:
         .long   .L105 + 4       /* return address into callback */
         .short  -1              /* negative size count => use callback link */
         .short  0               /* no roots here */
-

build/mkconfig.sh

@@ -8,5 +8,3 @@ sed -e 's/^\(.*\$([0-9]).*\)$/# \1/' \
     -e 's/^FLEX.*$//g' \
     -e 's/^\([^#=]*\)=\([^"]*\)$/if [ "x$\1" = "x" ]; then \1="\2"; fi/' \
     config/Makefile > config/config.sh
-
-

bytecomp/bytelibrarian.ml

@@ -119,4 +119,3 @@ let report_error ppf = function
       fprintf ppf "Cannot find file %s" name
   | Not_an_object_file name ->
       fprintf ppf "The file %s is not a bytecode object file" name
-

bytecomp/cmo_format.mli

@@ -58,4 +58,3 @@ type library =
      ...
      object code for last library member
      library descriptor *)
-

bytecomp/dll.ml

@@ -172,4 +172,3 @@ let init_toplevel dllpath =
   opened_dlls := Array.to_list (get_current_dlls());
   names_of_opened_dlls := [];
   linking_in_core := true
-

bytecomp/dll.mli

@@ -58,4 +58,3 @@ val init_compile: bool -> unit
    contents of ld.conf file).  Take note of the DLLs that were opened
    when starting the running program. *)
 val init_toplevel: string -> unit
-

bytecomp/lambda.ml

@@ -423,5 +423,3 @@ and negate_comparison = function
 | Ceq -> Cneq| Cneq -> Ceq
 | Clt -> Cge | Cle -> Cgt
 | Cgt -> Cle | Cge -> Clt
-
-

bytecomp/lambda.mli

@@ -205,4 +205,3 @@ val staticfail : lambda (* Anticipated static failure *)
 (* Check anticipated failure, substitute its final value *)
 val is_guarded: lambda -> bool
 val patch_guarded : lambda -> lambda -> lambda
-

bytecomp/matching.ml

@@ -2728,4 +2728,3 @@ let for_multiple_match loc paraml pat_act_list partial =
   let paraml = List.map (fun (v,_) -> Lvar v) v_paraml in
   List.fold_right bind_opt v_paraml
     (do_for_multiple_match loc paraml pat_act_list partial)
-  

bytecomp/meta.ml

@@ -17,7 +17,8 @@ external realloc_global_data : int -> unit = "caml_realloc_global"
 external static_alloc : int -> string = "caml_static_alloc"
 external static_free : string -> unit = "caml_static_free"
 external static_resize : string -> int -> string = "caml_static_resize"
-external static_release_bytecode : string -> int -> unit = "caml_static_release_bytecode" 
+external static_release_bytecode : string -> int -> unit
+                                 = "caml_static_release_bytecode"
 type closure = unit -> Obj.t
 external reify_bytecode : string -> int -> closure = "caml_reify_bytecode"
 external invoke_traced_function : Obj.t -> Obj.t -> Obj.t -> Obj.t

bytecomp/meta.mli

@@ -18,7 +18,8 @@ external global_data : unit -> Obj.t array = "caml_get_global_data"
 external realloc_global_data : int -> unit = "caml_realloc_global"
 external static_alloc : int -> string = "caml_static_alloc"
 external static_free : string -> unit = "caml_static_free"
-external static_release_bytecode : string -> int -> unit = "caml_static_release_bytecode" 
+external static_release_bytecode : string -> int -> unit
+                                 = "caml_static_release_bytecode"
 external static_resize : string -> int -> string = "caml_static_resize"
 type closure = unit -> Obj.t
 external reify_bytecode : string -> int -> closure = "caml_reify_bytecode"

bytecomp/translobj.ml

@@ -157,4 +157,3 @@ let oo_wrap env req f x =
     wrapping := false;
     top_env := Env.empty;
     raise exn
-    

byterun/backtrace.c

@@ -308,4 +308,3 @@ CAMLprim value caml_get_exception_backtrace(value unit)
   }
   CAMLreturn(res);
 }
-

byterun/lexing.c

@@ -228,4 +228,3 @@ CAMLprim value caml_new_lex_engine(struct lexing_table *tbl, value start_state,
     }
   }
 }
-

byterun/md5.c

@@ -308,4 +308,3 @@ CAMLexport void caml_MD5Transform(uint32 *buf, uint32 *in)
     buf[2] += c;
     buf[3] += d;
 }
-

byterun/osdeps.h

@@ -69,4 +69,3 @@ extern int caml_executable_name(char * name, int name_len);
 #endif
 
 #endif /* CAML_OSDEPS_H */
-

byterun/roots.c

@@ -101,4 +101,3 @@ CAMLexport void caml_do_local_roots (scanning_action f, value *stack_low,
     }
   }
 }
-

byterun/str.c

@@ -153,4 +153,3 @@ CAMLprim value caml_bitvect_test(value bv, value n)
   int pos = Int_val(n);
   return Val_int(Byte_u(bv, pos >> 3) & (1 << (pos & 7)));
 }
-

camlp4/Camlp4/PreCast.ml

@@ -65,4 +65,3 @@ module Printers = struct
   module DumpCamlp4Ast = Printers.DumpCamlp4Ast.Make Syntax;
   module Null = Printers.Null.Make Syntax;
 end;
-

camlp4/Camlp4/Register.ml

@@ -167,4 +167,3 @@ value enable_dump_camlp4_ast_printer () =
 
 value enable_null_printer () =
   let module M = Printer PP.Null.Id PP.Null.Make in ();
-

camlp4/Camlp4/Register.mli

@@ -91,4 +91,3 @@ value enable_ocamlr_printer : unit -> unit;
 value enable_null_printer : unit -> unit;
 value enable_dump_ocaml_ast_printer : unit -> unit;
 value enable_dump_camlp4_ast_printer : unit -> unit;
-

camlp4/Camlp4/Sig.ml

@@ -1367,4 +1367,3 @@ module type SyntaxExtension = functor (Syn : Syntax)
                                 and module Token          = Syn.Token
                                 and module Gram           = Syn.Gram
                                 and module Quotation      = Syn.Quotation);
-

camlp4/Camlp4/Struct/FreeVars.ml

@@ -125,4 +125,3 @@ module Make (Ast : Sig.Camlp4Ast) = struct
   value free_vars env_init e =
     let fold = new fold_free_vars S.add ~env_init S.empty in (fold#expr e)#free;
 end;
-

camlp4/Camlp4/Struct/Grammar/Parser.mli

@@ -65,4 +65,3 @@ module Make (Structure : Structure.S) : sig
   value continue_parser_of_entry :
     internal_entry -> int -> Loc.t -> Action.t -> Context.t -> Stream.t (Token.t * Loc.t) -> Action.t;
 end;
-

camlp4/Makefile.ml

@@ -356,4 +356,3 @@ let just_doc () =
 
 let doc () =
   pack (); just_doc ()
-

camlp4/examples/expression_closure.ml

@@ -21,4 +21,3 @@ value f e =
 value print_expr = (new PP.printer ())#expr;
 
 printf "%a@." print_expr (f <<let z = x + 2 in x + 2 * y * x * z>>);
-

camlp4/examples/global_handler.ml

@@ -17,4 +17,3 @@ AstFilters.register_str_item_filter begin fun st ->
   <:str_item@ghost< try let module Main = struct $st$ end in ()
                     with e -> $global_handler_ref.val$ e >>
 end;
-

camlp4/examples/lambda_test.ml

@@ -10,4 +10,3 @@ let rec_nat =
 let plus = << fun n -> fun m -> $rec_nat$ n (fun n -> fun p -> $succ$ p) m >>
 let times = << fun n -> fun m -> $rec_nat$ n (fun n -> fun p -> $plus$ m p) $zero$ >>
 let fact = << fun n -> $rec_nat$ n (fun n -> fun p -> $times$ ($succ$ n) p) $one$ >>
-

camlp4/man/camlp4.help.tpl

@@ -1 +0,0 @@
-

config/.cvsignore

@@ -2,4 +2,3 @@ m.h
 s.h
 Makefile
 config.sh
-

config/auto-aux/dblalign.c

@@ -52,4 +52,3 @@ int main(void)
 #endif
   exit(res);
 }
-

config/auto-aux/int64align.c

@@ -53,4 +53,3 @@ int main(void)
 #endif
   exit(res);
 }
-

config/m-nt.h

@@ -43,4 +43,3 @@
 #define ARCH_INT64_PRINTF_FORMAT "I64"
 
 #undef NONSTANDARD_DIV_MOD
-

debugger/Makefile.nt

@@ -14,4 +14,3 @@
 
 UNIXDIR=../otherlibs/win32unix
 include Makefile.shared
-

debugger/debugger_config.mli

@@ -33,4 +33,3 @@ val checkpoint_big_step : int64 ref
 val checkpoint_small_step : int64 ref
 val checkpoint_max_count : int ref
 val make_checkpoints : bool ref
-

debugger/events.mli

@@ -27,4 +27,3 @@ val current_event : debug_event option ref
 val get_current_event : unit -> debug_event
 
 val current_event_is_before : unit -> bool
-

debugger/loadprinter.ml

@@ -167,5 +167,3 @@ let report_error ppf = function
   | No_active_printer lid ->
       fprintf ppf "@[%a is not currently active as a printing function.@]@."
       Printtyp.longident lid
-
-      

debugger/parser_aux.mli

@@ -31,4 +31,3 @@ type break_arg =
   | BA_pos1 of Longident.t option * int * int option
                                         (* break @ [MODULE] LINE [POS] *)
   | BA_pos2 of Longident.t option * int (* break @ [MODULE] # OFFSET *)
-

debugger/printval.ml

@@ -106,4 +106,3 @@ let print_named_value max_depth exp env obj ppf ty =
   print_value_name exp
   Printtyp.type_expr ty
   (print_value max_depth env obj) ty
-

debugger/question.ml

@@ -33,4 +33,3 @@ let yes_or_no message =
           raise x
   else
     false
-

emacs/.cvsignore

@@ -1,2 +1 @@
 ocamltags
-

emacs/caml-compat.el

@@ -39,4 +39,3 @@ only if necessary.  It leaves point at end of indentation."
   (defalias 'buffer-substring-no-properties 'buffer-substring)))
 
 (provide 'caml-compat)
-

emacs/caml-help.el

@@ -640,7 +640,8 @@ and according to visible modules. If this is still unsucessful,  the user is
 then prompted for a Module name.
 
 The documentation for Module is first seach in the info manual if available,
-then in the ``module.mli'' source file. The entry is then searched in the documentation. 
+then in the ``module.mli'' source file. The entry is then searched in the
+documentation.
 
 Visible modules are computed only once, at the first call.
 Modules can be made visible explicitly with `ocaml-open-module' and

lex/compact.ml

@@ -229,6 +229,3 @@ let compact_tables state_v =
   reset_compact trans ;
   reset_compact moves ;
   tables
-  
-
-

lex/cset.ml

@@ -95,5 +95,3 @@ let env_to_array env = match env with
           c)
       rem ;
     res
-
-  

lex/cset.mli

@@ -32,6 +32,3 @@ val inter : t -> t -> t
 val diff : t -> t -> t
 val complement : t -> t
 val env_to_array : (t * 'a) list -> 'a array
-
-
-

lex/lexgen.mli

@@ -58,4 +58,3 @@ type ('args,'action) automata_entry =
 val make_dfa :
   ('args, 'action) Syntax.entry list ->
   ('args, 'action) automata_entry list * automata array
-

lex/main.ml

@@ -116,4 +116,3 @@ let main () =
     exit 3
 
 let _ = (* Printexc.catch *) main (); exit 0
-

lex/table.mli

@@ -29,5 +29,3 @@ val get : 'a t -> int -> 'a
 
 
 val size : 'a t -> int
-
-

man/ocaml.help

@@ -1,138 +0,0 @@
--   
-OCaml           # Objective Caml toplevel
-Usage: ocaml <options>
-options are:
-  -I <dir>  Add <dir> to the list of include directories
-  -unsafe  No bound checking on array and string access
-  -drawlambda  (undocumented)
-  -dlambda  (undocumented)
-  -dinstr  (undocumented)
-  -rectypes  (undocumented)
-
--   
-OCamlc          # Objective Caml compiler
-Usage: ocamlc <options> <files>
-Options are:
-  -a  Build a library
-  -c  Compile only (do not link)
-  -cc <comp>  Use <comp> as the C compiler and linker
-  -cclib <opt>  Pass option <opt> to the C linker
-  -ccopt <opt>  Pass option <opt> to the C compiler and linker
-  -g  Save debugging information
-  -i  Print the types
-  -I <dir>  Add <dir> to the list of include directories
-  -impl <file>  Compile <file> as a .ml file
-  -intf <file>  Compile <file> as a .mli file
-  -intf-suffix <file>  Suffix for interface file (default: .mli)
-  -intf_suffix <file>  (deprecated) same as -intf-suffix
-  -linkall  Link all modules, even unused ones
-  -make-runtime  Build a runtime system with given C objects and libraries
-  -make_runtime  (deprecated) same as -make-runtime
-  -noassert  Do not compile assertion checks
-  -o <file>  Set output file name to <file>
-  -output-obj Output a C object file instead of an executable
-  -pp <command>  Pipe sources through preprocessor <command>
-  -thread  Use thread-safe standard library
-  -unsafe  No bounds checking on array and string access
-  -use-runtime <path>  Generate bytecode for the given runtime system
-  -use_runtime <path>  (deprecated) same as -use-runtime
-  -v  Print compiler version number
-  -verbose  Print calls to external commands
-  -w <flags>  Enable or disable warnings according to <flags>:
-     A/a enable/disable all warnings
-     C/c enable/disable suspicious comment
-     F/f enable/disable partially applied function
-     M/m enable/disable overriden method
-     P/p enable/disable partial match
-     S/s enable/disable non-unit statement
-     U/u enable/disable unused match case
-     V/v enable/disable hidden instance variable
-     X/x enable/disable all other warnings
-     default setting is A (all warnings enabled)
-  -nopervasives  (undocumented)
-  -dparsetree  (undocumented)
-  -drawlambda  (undocumented)
-  -dlambda  (undocumented)
-  -dinstr  (undocumented)
-  -use-prims <file>  (undocumented)
-  -rectypes  (undocumented)
-  - <file>  Treat <file> as a file name (even if it starts with `-')
-
--   
-OCamlc-custom   # Objective Caml compiler for custom runtime mode
-Usage: ocamlc-custom <options> <files>
-Options are:
-  -a  Build a library
-  -c  Compile only (do not link)
-  -cc <comp>  Use <comp> as the C compiler and linker
-  -cclib <opt>  Pass option <opt> to the C linker
-  -ccopt <opt>  Pass option <opt> to the C compiler and linker
-  -g  Save debugging information
-  -i  Print the types
-  -I <dir>  Add <dir> to the list of include directories
-  -impl <file>  Compile <file> as a .ml file
-  -intf <file>  Compile <file> as a .mli file
-  -intf-suffix <file>  Suffix for interface file (default: .mli)
-  -intf_suffix <file>  (deprecated) same as -intf-suffix
-  -linkall  Link all modules, even unused ones
-  -make-runtime  Build a runtime system with given C objects and libraries
-  -make_runtime  (deprecated) same as -make-runtime
-  -noassert  Do not compile assertion checks
-  -o <file>  Set output file name to <file>
-  -output-obj Output a C object file instead of an executable
-  -pp <command>  Pipe sources through preprocessor <command>
-  -thread  Use thread-safe standard library
-  -unsafe  No bounds checking on array and string access
-  -use-runtime <path>  Generate bytecode for the given runtime system
-  -use_runtime <path>  (deprecated) same as -use-runtime
-  -v  Print compiler version number
-  -verbose  Print calls to external commands
-  -w <flags>  Enable or disable warnings according to <flags>:
-     A/a enable/disable all warnings
-     C/c enable/disable suspicious comment
-     F/f enable/disable partially applied function
-     M/m enable/disable overriden method
-     P/p enable/disable partial match
-     S/s enable/disable non-unit statement
-     U/u enable/disable unused match case
-     V/v enable/disable hidden instance variable
-     X/x enable/disable all other warnings
-     default setting is A (all warnings enabled)
-  -nopervasives  (undocumented)
-  -dparsetree  (undocumented)
-  -drawlambda  (undocumented)
-  -dlambda  (undocumented)
-  -dinstr  (undocumented)
-  -use-prims <file>  (undocumented)
-  -rectypes  (undocumented)
-  - <file>  Treat <file> as a file name (even if it starts with `-')
-
--   
-OCamlDep        # Objective Caml dependency generator
-Usage: ocamldep [-I <dir>] <files>
-  -I <dir>  Add <dir> to the list of include directories
-
--   
-OCamlLex        # Objective Caml lexer generator
-OCamlLex name.mll
-
--   
-OCamlRun        # Objective Caml bytecode interpreter
-OCamlRun [-v] file [argumentsÉ]
-    -v                      # print GC messages
-
-Environment variable:
-Set -e OCamlRunParam "<option>=<value>,É"
-    h     # initial size of the major heap
-    i     # minimum size increment for the major heap
-    l     # maximum stack size
-    o     # major GC speed setting
-    O     # heap compaction trigger setting
-    s     # size of the minor heap
-    v     # verbosity flags for GC messages
-
--   
-OCamlYacc       # Objective Caml parser generator
-OCamlYacc [-v] [-b string] file.mly
-    -v                      # put verbose report in file.output
-    -b string               # name output files string.ml and string.mli

ocamlbuild/command.mli

@@ -42,4 +42,3 @@ val deps_of_tags : Tags.t -> pathname list
 
 (** [dep tags deps] Will build [deps] when [tags] will be activated. *)
 val dep : Tags.elt list -> pathname list -> unit
-

ocamlbuild/my_unix.ml

@@ -137,4 +137,3 @@ let run_and_read cmd =
       end
     in loop 0; Buffer.contents totalbuf
   end
-

ocamlbuild/ocaml_utils.mli

@@ -41,4 +41,3 @@ val ocaml_lib :
   ?dir:Pathname.t ->
   ?tag_name:string ->
   Pathname.t -> unit
-

ocamlbuild/ocamlbuild.mli

@@ -12,4 +12,3 @@
 
 (* Original author: Nicolas Pouillard *)
 (** Nothing to export for now *)
-

ocamlbuild/pathname.ml

@@ -156,4 +156,3 @@ let define_context dir context =
   Hashtbl.replace context_table dir& List.union context& include_dirs_of dir
 
 let same_contents x y = Digest.file x = Digest.file y
-

ocamlbuild/rule.ml

@@ -306,4 +306,3 @@ let copy_rule name ?insert src dest =
       Shell.mkdir_p (Pathname.dirname dest);
       cp_p src dest
     end
-

ocamlbuild/tools.ml

@@ -44,4 +44,3 @@ let path_and_context_of_string s =
       let include_dirs = Pathname.include_dirs_of d in
       List.map (fun include_dir -> include_dir/b) include_dirs
   else [s]
-

ocamldoc/ocamldoc.sty

@@ -56,5 +56,3 @@
 
 \let\ocamldocvspace\vspace
 \endinput
-
-

ocamldoc/odoc_analyse.mli

@@ -29,4 +29,3 @@ val dump_modules : string -> Odoc_module.t_module list -> unit
 (** Load of a list of modules from a file.
    @raise Failure if an error occurs.*)
 val load_modules : string -> Odoc_module.t_module list
-    

ocamldoc/odoc_control.ml

@@ -10,4 +10,3 @@
 (***********************************************************************)
 
 (* $Id$ *)
-

ocamldoc/odoc_dag2html.mli

@@ -27,5 +27,3 @@ val create_class_dag :
     Odoc_info.Class.t_class list ->
       Odoc_info.Class.t_class_type list ->
         (Odoc_info.Name.t * Odoc_info.Class.cct option) dag
-
-

ocamldoc/odoc_exception.ml

@@ -28,5 +28,3 @@ and t_exception = {
     mutable ex_loc : Odoc_types.location ;
     mutable ex_code : string option ;
   }
-
-

ocamldoc/odoc_inherit.ml

@@ -10,4 +10,3 @@
 (***********************************************************************)
 
 (* $Id$ *)
-

ocamldoc/odoc_lexer.mll

@@ -409,4 +409,3 @@ and simple = parse
         incr Odoc_comments_global.nb_chars;
         simple lexbuf
       }
-

ocamldoc/odoc_merge.mli

@@ -29,4 +29,3 @@ val merge_info_opt :
 val merge :
   Odoc_types.merge_option list ->
   Odoc_module.t_module list -> Odoc_module.t_module list
-

ocamldoc/odoc_name.ml

@@ -174,4 +174,3 @@ let to_path n =
   | Some p -> p
 
 let from_longident = Odoc_misc.string_of_longident
-

ocamldoc/odoc_name.mli

@@ -63,4 +63,3 @@ val to_path : t -> Path.t
 
 (** Get a name from a [Longident.t].*)
 val from_longident : Longident.t -> t
-

ocamldoc/odoc_print.mli

@@ -30,4 +30,3 @@ val string_of_module_type : ?code: string -> ?complete: bool -> Types.module_typ
    or just [object end]. Default if [false].
 *)
 val string_of_class_type : ?complete: bool -> Types.class_type -> string
-

ocamldoc/odoc_type.ml

@@ -53,4 +53,3 @@ type t_type = {
     mutable ty_loc : Odoc_types.location ;
     mutable ty_code : string option;
   }
-

ocamldoc/odoc_value.ml

@@ -142,5 +142,3 @@ let is_function v =
             false
       in
   f v.val_type
-
-

otherlibs/Makefile.nt

@@ -22,4 +22,3 @@ CFLAGS=-I$(ROOTDIR)/byterun $(SHAREDCCCOMPOPTS) $(EXTRACFLAGS)
 include ../Makefile.shared
 # Note .. is the current directory (this makefile is included from
 # a subdirectory)
-

otherlibs/dbm/dbm.mli

@@ -77,4 +77,3 @@ val iter : (string -> string -> 'a) -> t -> unit
 (** [iter f db] applies [f] to each ([key], [data]) pair in
    the database [db]. [f] receives [key] as first argument
    and [data] as second argument. *)
-

otherlibs/dynlink/extract_crc.ml

@@ -51,5 +51,3 @@ let main () =
   print_string "\n]\n"
 
 let _ = main(); exit 0
-
-     

otherlibs/graph/graphics.ml

@@ -253,4 +253,3 @@ let curveto b c (x, y as d) =
  draw_poly_line
   (Array.of_list (List.map int_point points));
  moveto x y;;
-