Commits

Anonymous committed d88abb5

fix TABs and whitespace

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

Comments (0)

Files changed (11)

ocamldoc/generators/odoc_todo.ml

     method private gen_if_tag name target info_opt =
       match info_opt with
         None -> ()
-      |	Some i ->
+      | Some i ->
           let l =
             List.fold_left
               (fun acc (t, text) ->
                        | _ -> (None, text) :: acc
 
                      end
-                 |	_ -> acc
+                 | _ -> acc
               )
               []
               i.i_custom

ocamldoc/odoc_analyse.ml

     let parsetree = Pparse.file Format.err_formatter inputfile Parse.implementation ast_impl_magic_number in
     let typedtree =
       Typemod.type_implementation
-	sourcefile prefixname modulename env parsetree
+        sourcefile prefixname modulename env parsetree
     in
     (Some (parsetree, typedtree), inputfile)
   with
 end
 
 module type Dot_generator = module type of Generator
-

ocamldoc/odoc_global.ml

 let with_toc = ref true
 
 let with_index = ref true
-
-
-

ocamldoc/odoc_html.ml

         "pre.verbatim, pre.codepre { }";
 
         ".indextable {border: 1px #ddd solid; border-collapse: collapse}";
-        ".indextable td, .indextable th {border: 1px #ddd solid;	min-width: 80px}";
+        ".indextable td, .indextable th {border: 1px #ddd solid; min-width: 80px}";
         ".indextable td.module {background-color: #eee ;  padding-left: 2px; padding-right: 2px}";
-        ".indextable td.module a {color: 4E6272;	text-decoration: none; display: block; width: 100%}";
+        ".indextable td.module a {color: 4E6272; text-decoration: none; display: block; width: 100%}";
         ".indextable td.module a:hover {text-decoration: underline; background-color: transparent}";
         ".deprecated {color: #888; font-style: italic}" ;
 
              | l,Some r ->
                  bs b (" " ^ (self#keyword ":") ^ " ");
                  self#html_of_type_expr_list ~par: false b father " * " l;
-		 bs b (" " ^ (self#keyword "->") ^ " ");
+                 bs b (" " ^ (self#keyword "->") ^ " ");
                  self#html_of_type_expr b father r;
             );
             bs b "</code></td>\n";

ocamldoc/odoc_info.mli

         {
           vc_name : string ; (** Name of the constructor. *)
           vc_args : Types.type_expr list ; (** Arguments of the constructor. *)
-	  vc_ret : Types.type_expr option ;
+          vc_ret : Types.type_expr option ;
           mutable vc_text : text option ; (** Optional description in the associated comment. *)
         }
 

ocamldoc/odoc_latex.ml

                            p fmt2 " %s@ %s@ %s@ %s"
                              ":"
                              (self#normal_type_list ~par: false mod_name " * " l)
-			     "->"
+                             "->"
                              (self#normal_type mod_name r)
                       );
                       flush2 ()
                | l, None, Some r ->
                    bs b "\n.B : ";
                    self#man_of_type_expr_list ~par: false b father " * " l;
-		   bs b ".B -> ";
+                   bs b ".B -> ";
                    self#man_of_type_expr b father r;
                    bs b " "
                | l, (Some t), Some r ->
                    bs b "\n.B of ";
                    self#man_of_type_expr_list ~par: false b father " * " l;
-		   bs b ".B -> ";
+                   bs b ".B -> ";
                    self#man_of_type_expr b father r;
                    bs b ".I \"  \"\n";
                    bs b "(* ";

ocamldoc/odoc_name.ml

         else
           match s.[n] with
             ' ' | '\t' | '\n' | '\r' -> iter_last (n-1)
-          |	_ -> Some n
+          | _ -> Some n
       in
       match iter_last (len-1) with
         None -> String.sub s first 1
-      |	Some last -> String.sub s first ((last-first)+1)
+      | Some last -> String.sub s first ((last-first)+1)
 
 let parens_if_infix name =
   match strip_string name with
             {
               vc_name = constructor_name ;
               vc_args = List.map (Odoc_env.subst_type env) type_expr_list ;
-	      vc_ret =  may_map (Odoc_env.subst_type env) ret_type;
+              vc_ret =  may_map (Odoc_env.subst_type env) ret_type;
               vc_text = comment_opt
             }
           in

ocamldoc/odoc_texi.ml

           Printf.sprintf "(%s) "
             (String.concat ", " (List.map f l))
 
-    method string_of_type_args (args:Types.type_expr list) (ret:Types.type_expr option) = 
+    method string_of_type_args (args:Types.type_expr list) (ret:Types.type_expr option) =
       match args, ret with
       | [], None -> ""
       | args, None -> " of " ^ (Odoc_info.string_of_type_list " * " args)
       | [], Some r -> " : " ^ (Odoc_info.string_of_type_expr r)
-      | args, Some r -> " : " ^ (Odoc_info.string_of_type_list " * " args) ^ 
-	                        " -> " ^ (Odoc_info.string_of_type_expr r)
+      | args, Some r -> " : " ^ (Odoc_info.string_of_type_list " * " args) ^
+                                " -> " ^ (Odoc_info.string_of_type_expr r)
 
     (** Return Texinfo code for a type. *)
     method texi_of_type ty =