Parent Directory | Revision Log | 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 |
|
savannah-hackers-public@gnu.org | ViewVC Help |
Powered by ViewVC 1.1.26 |