Parent Directory | Revision Log | Patch
revision 1.3 by spiralvoice, Thu Jul 7 00:25:46 2005 UTC | revision 1.4 by spiralvoice, Fri Jul 22 10:58:55 2005 UTC | |
---|---|---|
# | Line 141 let load file = | Line 141 let load file = |
141 | lprintf_nl "SIZE2 %s" (Int64.to_string size2); | lprintf_nl "SIZE2 %s" (Int64.to_string size2); |
142 | ||
143 | let header_name = input_string4 ic in | let header_name = input_string4 ic in |
144 | print_string4 "header" header_name; lprintf_nl ""; | print_string4 "header" header_name; lprint_newline (); |
145 | (* pos: pos + 8 *) | (* pos: pos + 8 *) |
146 | begin | begin |
147 | match header_name with | match header_name with |
|
savannah-hackers-public@gnu.org | ViewVC Help |
Powered by ViewVC 1.1.26 |