Parent Directory | Revision Log | Patch
revision 1.26 by spiralvoice, Sat May 28 11:19:42 2005 UTC | revision 1.27 by spiralvoice, Mon Jun 20 18:56:44 2005 UTC | |
---|---|---|
# | Line 420 let make_tiger_tree array = | Line 420 let make_tiger_tree array = |
420 | let build_tiger_tree_file uid ttr = | let build_tiger_tree_file uid ttr = |
421 | let s = make_tiger_tree ttr in | let s = make_tiger_tree ttr in |
422 | Unix2.safe_mkdir "ttr"; | Unix2.safe_mkdir "ttr"; |
423 | Unix2.can_write_to_directory "ttr"; | |
424 | File.from_string (Filename.concat "ttr" (Uid.to_file_string uid)) s | File.from_string (Filename.concat "ttr" (Uid.to_file_string uid)) s |
425 | ||
426 | let rec start_job_for sh (wanted_id, handler) = | let rec start_job_for sh (wanted_id, handler) = |
|
savannah-hackers-public@gnu.org | ViewVC Help |
Powered by ViewVC 1.1.26 |