Fossil SCM
Added options --tempdir, -t to redirect the importer to a user-specified directory for temp files and directories.
Commit
c5e9fa8d70dd43b0406ee73bca9bc23be3f510b5
Parent
91fd4205ea3f808…
1 file changed
+15
-1
+15
-1
| --- tools/cvs2fossil/lib/c2f_option.tcl | ||
| +++ tools/cvs2fossil/lib/c2f_option.tcl | ||
| @@ -18,10 +18,11 @@ | ||
| 18 | 18 | # # ## ### ##### ######## ############# ##################### |
| 19 | 19 | ## Requirements |
| 20 | 20 | |
| 21 | 21 | package require Tcl 8.4 ; # Required runtime. |
| 22 | 22 | package require snit ; # OO system. |
| 23 | +package require fileutil ; # Setting a tempdir. | |
| 23 | 24 | package require vc::tools::trouble ; # Error reporting. |
| 24 | 25 | package require vc::tools::log ; # User feedback. |
| 25 | 26 | package require vc::tools::mem ; # Memory tracking. |
| 26 | 27 | package require vc::tools::misc ; # Misc. path reformatting. |
| 27 | 28 | package require vc::fossil::import::cvs::fossil ; # Fossil repository access |
| @@ -90,10 +91,12 @@ | ||
| 90 | 91 | --watch { cyclebreaker watch [Value arguments] } |
| 91 | 92 | --statesavequeriesto { state savequeriesto [Value arguments] } |
| 92 | 93 | --fossil { fossil setlocation [Value arguments] } |
| 93 | 94 | --memory-limit { mem::setlimit [Value arguments] } |
| 94 | 95 | --memory-track { mem::track } |
| 96 | + -t - | |
| 97 | + --tempdir { fileutil::tempdir [Value arguments] } | |
| 95 | 98 | default { |
| 96 | 99 | Usage $badoption$option\n$gethelp |
| 97 | 100 | } |
| 98 | 101 | } |
| 99 | 102 | } |
| @@ -163,15 +166,26 @@ | ||
| 163 | 166 | trouble info "" |
| 164 | 167 | trouble info " --fossil PATH Specify where to find the fossil execu-" |
| 165 | 168 | trouble info " table if cv2fossil could not find it in" |
| 166 | 169 | trouble info " the PATH." |
| 167 | 170 | trouble info "" |
| 171 | + trouble info " --tempdir PATH, -t PATH Specify the path where temporary files" | |
| 172 | + trouble info " and directories shall go." | |
| 173 | + trouble info "" | |
| 168 | 174 | trouble info " Debug options" |
| 169 | 175 | trouble info "" |
| 170 | 176 | trouble info " --dots PATH Write the changeset graphs before, after," |
| 171 | 177 | trouble info " and during breaking the of cycles to the" |
| 172 | - trouble info " direcotry PATH, using GraphViz's dot format" | |
| 178 | + trouble info " directory PATH, using GraphViz's dot format" | |
| 179 | + trouble info "" | |
| 180 | + trouble info " --memory-track Activate internal tracking of memory usage." | |
| 181 | + trouble info " Requires execution of cvs2fossil by a tclsh" | |
| 182 | + trouble info " which provides the \[memory\] command." | |
| 183 | + trouble info "" | |
| 184 | + trouble info " --memory-limit BYTES Like --memory-track, but additionally imposes" | |
| 185 | + trouble info " a limit on the maximual amount of memory the" | |
| 186 | + trouble info " application is allowed to use." | |
| 173 | 187 | trouble info "" |
| 174 | 188 | |
| 175 | 189 | # --project, --cache |
| 176 | 190 | # ... |
| 177 | 191 | return |
| 178 | 192 |
| --- tools/cvs2fossil/lib/c2f_option.tcl | |
| +++ tools/cvs2fossil/lib/c2f_option.tcl | |
| @@ -18,10 +18,11 @@ | |
| 18 | # # ## ### ##### ######## ############# ##################### |
| 19 | ## Requirements |
| 20 | |
| 21 | package require Tcl 8.4 ; # Required runtime. |
| 22 | package require snit ; # OO system. |
| 23 | package require vc::tools::trouble ; # Error reporting. |
| 24 | package require vc::tools::log ; # User feedback. |
| 25 | package require vc::tools::mem ; # Memory tracking. |
| 26 | package require vc::tools::misc ; # Misc. path reformatting. |
| 27 | package require vc::fossil::import::cvs::fossil ; # Fossil repository access |
| @@ -90,10 +91,12 @@ | |
| 90 | --watch { cyclebreaker watch [Value arguments] } |
| 91 | --statesavequeriesto { state savequeriesto [Value arguments] } |
| 92 | --fossil { fossil setlocation [Value arguments] } |
| 93 | --memory-limit { mem::setlimit [Value arguments] } |
| 94 | --memory-track { mem::track } |
| 95 | default { |
| 96 | Usage $badoption$option\n$gethelp |
| 97 | } |
| 98 | } |
| 99 | } |
| @@ -163,15 +166,26 @@ | |
| 163 | trouble info "" |
| 164 | trouble info " --fossil PATH Specify where to find the fossil execu-" |
| 165 | trouble info " table if cv2fossil could not find it in" |
| 166 | trouble info " the PATH." |
| 167 | trouble info "" |
| 168 | trouble info " Debug options" |
| 169 | trouble info "" |
| 170 | trouble info " --dots PATH Write the changeset graphs before, after," |
| 171 | trouble info " and during breaking the of cycles to the" |
| 172 | trouble info " direcotry PATH, using GraphViz's dot format" |
| 173 | trouble info "" |
| 174 | |
| 175 | # --project, --cache |
| 176 | # ... |
| 177 | return |
| 178 |
| --- tools/cvs2fossil/lib/c2f_option.tcl | |
| +++ tools/cvs2fossil/lib/c2f_option.tcl | |
| @@ -18,10 +18,11 @@ | |
| 18 | # # ## ### ##### ######## ############# ##################### |
| 19 | ## Requirements |
| 20 | |
| 21 | package require Tcl 8.4 ; # Required runtime. |
| 22 | package require snit ; # OO system. |
| 23 | package require fileutil ; # Setting a tempdir. |
| 24 | package require vc::tools::trouble ; # Error reporting. |
| 25 | package require vc::tools::log ; # User feedback. |
| 26 | package require vc::tools::mem ; # Memory tracking. |
| 27 | package require vc::tools::misc ; # Misc. path reformatting. |
| 28 | package require vc::fossil::import::cvs::fossil ; # Fossil repository access |
| @@ -90,10 +91,12 @@ | |
| 91 | --watch { cyclebreaker watch [Value arguments] } |
| 92 | --statesavequeriesto { state savequeriesto [Value arguments] } |
| 93 | --fossil { fossil setlocation [Value arguments] } |
| 94 | --memory-limit { mem::setlimit [Value arguments] } |
| 95 | --memory-track { mem::track } |
| 96 | -t - |
| 97 | --tempdir { fileutil::tempdir [Value arguments] } |
| 98 | default { |
| 99 | Usage $badoption$option\n$gethelp |
| 100 | } |
| 101 | } |
| 102 | } |
| @@ -163,15 +166,26 @@ | |
| 166 | trouble info "" |
| 167 | trouble info " --fossil PATH Specify where to find the fossil execu-" |
| 168 | trouble info " table if cv2fossil could not find it in" |
| 169 | trouble info " the PATH." |
| 170 | trouble info "" |
| 171 | trouble info " --tempdir PATH, -t PATH Specify the path where temporary files" |
| 172 | trouble info " and directories shall go." |
| 173 | trouble info "" |
| 174 | trouble info " Debug options" |
| 175 | trouble info "" |
| 176 | trouble info " --dots PATH Write the changeset graphs before, after," |
| 177 | trouble info " and during breaking the of cycles to the" |
| 178 | trouble info " directory PATH, using GraphViz's dot format" |
| 179 | trouble info "" |
| 180 | trouble info " --memory-track Activate internal tracking of memory usage." |
| 181 | trouble info " Requires execution of cvs2fossil by a tclsh" |
| 182 | trouble info " which provides the \[memory\] command." |
| 183 | trouble info "" |
| 184 | trouble info " --memory-limit BYTES Like --memory-track, but additionally imposes" |
| 185 | trouble info " a limit on the maximual amount of memory the" |
| 186 | trouble info " application is allowed to use." |
| 187 | trouble info "" |
| 188 | |
| 189 | # --project, --cache |
| 190 | # ... |
| 191 | return |
| 192 |