Parent Directory | Revision Log | Patch
revision 1.14 by spiralvoice, Wed Jul 27 22:16:02 2005 UTC | revision 1.15 by spiralvoice, Sun Aug 7 12:57:22 2005 UTC | |
---|---|---|
# | Line 102 let find_proto (name : string) = | Line 102 let find_proto (name : string) = |
102 | let min_range_size = megabyte | let min_range_size = megabyte |
103 | ||
104 | let set_file_size file size = | let set_file_size file size = |
105 | lprintf "set_file_size\n"; | lprintf "set_file_size %s : %s\n" (Unix32.filename (file_fd file)) (Int64.to_string size); |
106 | if file_size file = zero && size <> zero then begin | if file_size file = zero && size <> zero then begin |
107 | lprintf "Setting SWARMER\n"; | lprintf "Setting SWARMER\n"; |
108 | let file_chunk_size = | let file_chunk_size = |
|
savannah-hackers-public@gnu.org | ViewVC Help |
Powered by ViewVC 1.1.26 |