[Mldonkey-commits] Changes to mldonkey/src/utils/cdk/heap.ml

[mldonkey-commits]

Index: mldonkey/src/utils/cdk/heap.ml
diff -u mldonkey/src/utils/cdk/heap.ml:1.2 mldonkey/src/utils/cdk/heap.ml:1.3
--- mldonkey/src/utils/cdk/heap.ml:1.2  Thu Jul 29 10:25:34 2004
+++ mldonkey/src/utils/cdk/heap.ml      Wed Jun  1 22:19:57 2005
@@ -1,23 +1,78 @@
 external dump_heap_c: unit -> unit = "heap_dump"
 external set_tag : 'a -> int -> unit = "heap_set_tag"
 
-  
+(* open CommonGlobals *)
+(* open CommonTypes *)
+
 let memstat_functions = ref []
-  
+
 let add_memstat m f = memstat_functions := (m,f) :: !memstat_functions
 
-let print_memstats (level : int) buf =  
+let print_memstats (level : int) buf output_type =
   let level = if level < 0 then begin
         Gc.compact (); -level
       end else level in
-  
+
+  if output_type = true then
+    begin
+      Printf.bprintf buf "\\<div class=results\\>";
+(*
+      html_mods_table_header buf "memstatsTable" "memstats" [];
+      html_mods_td buf [
+        ("", "srh", "Memory Debug Stats"); ];
+*)
+      Printf.bprintf buf "\\<div class=\\\"results\\\"\\>
+\\<table id=\\\"memstatsTable\\\" name=\\\"memstatsTable\\\" 
class=\\\"results\\\" cellspacing=0 cellpadding=0\\>
+\\<tr\\>\\<td class=\\\"srh\\\" \\>Memory Debug Stats\\</td\\>";
+      Printf.bprintf buf "\\</tr\\>\\</table\\>\\</div\\>\n"
+    end
+  else
   Printf.bprintf buf "Memory Debug Stats:\n";
-  let list = List.rev !memstat_functions in
-  List.iter (fun (m,f) -> 
-      Printf.bprintf buf "\n----------------------------------\n";
-      Printf.bprintf buf "  Module %s:\n" m ;      
-      Printf.bprintf buf "----------------------------------\n";
-      f level buf) list;
-  
-  dump_heap_c ()
-  
+  let memstat_list = List.rev !memstat_functions in
+  if output_type = true then
+    begin
+      let split_string c str =
+        let rec aux s acc =
+          try  let ind=String.index s c in
+                 aux (String.sub s (ind+1) ((String.length s) - ind -1 ))
+                     ((String.sub s 0 ind)::acc)
+          with Not_found -> List.rev (s::acc)
+          in aux str []; in
+      let split_lines = split_string '\n' in
+
+      List.iter (fun (m,f) ->
+(*
+          html_mods_table_header buf "memstatsTable" "memstats" [
+            ( "0", "srh", "Module", m ); ];
+*)
+          Printf.bprintf buf "\\<div class=\\\"results\\\"\n\\>\\<table 
id=\\\"memstatsTable\\\" name=\\\"memstatsTable\\\" class=\\\"results\\\" 
cellspacing=0 cellpadding=0
+\\>\\<tr\\>\\<td class=\\\"srh\\\" \\>Module %s\\</td\\>\\</tr\\>" m;
+          let buftmp = Buffer.create 100 in
+          f level buftmp;
+          let listtmp = split_lines (Buffer.contents buftmp) in
+          (List.iter (fun s ->
+(*
+              html_mods_td buf [
+                ("", "srh", s); ];
+*)
+              Printf.bprintf buf "\\<tr class=\\\"dl-1\\\"\\>\\<td 
class=\\\"sr\\\"\\>";
+              Printf.bprintf buf "%s" s;
+              Printf.bprintf buf "\\</td\\>\\</tr\\>";
+              ) listtmp);
+
+          Printf.bprintf buf "\\</table\\>\\</div\\>\n";
+          ) memstat_list;
+
+      Printf.bprintf buf "\\</div\\>\n";
+      dump_heap_c ()
+    end
+  else
+    begin
+      List.iter (fun (m,f) ->
+          Printf.bprintf buf "\n----------------------------------\n";
+          Printf.bprintf buf "  Module %s:\n" m ;      
+          Printf.bprintf buf "----------------------------------\n";
+          f level buf) memstat_list;
+
+      dump_heap_c ()
+    end;