/[mldonkey]/mldonkey/src/daemon/common/commonMultimedia.ml
ViewVC logotype

Diff of /mldonkey/src/daemon/common/commonMultimedia.ml

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.7 by spiralvoice, Sun May 1 17:43:11 2005 UTC revision 1.8 by spiralvoice, Thu Jul 7 00:25:45 2005 UTC
# Line 56  let print_string4 v s = Line 56  let print_string4 v s =
56        lprint_char c        lprint_char c
57      else lprintf "[%d]" int      else lprintf "[%d]" int
58    done;    done;
59    lprint_newline ()    lprintf_nl ""
60    
61  let print_int32 s i=  let print_int32 s i=
62    lprintf "%s: %Ld\n" s i    lprintf_nl "%s: %Ld" s i
63    
64  let print_int16 s i=  let print_int16 s i=
65    lprintf "%s: %d\n" s i    lprintf_nl "%s: %d" s i
66    
67  (**********************************************************************************)  (**********************************************************************************)
68  (*                                                                                *)  (*                                                                                *)
# Line 703  let get_info file = Line 703  let get_info file =
703        match e with        match e with
704          FormatFound f -> f          FormatFound f -> f
705        | e ->        | e ->
706            lprintf "get_info: Exception in %s\n" (Printexc2.to_string e);            lprintf_nl "get_info: Exception in %s" (Printexc2.to_string e);
707            FormatUnknown            FormatUnknown
708                        
709                        

Legend:
Removed from v.1.7  
changed lines
  Added in v.1.8

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26