Fossil SCM

Created new pass for the import of files and changesets. Uses the new file method and fossil accessor class to handle the file import. Changeset -> manifest conversion is _not_ covered yet.

aku 2007-12-05 07:57 trunk
Commit d9fc75e58714bc3006917ddd5383d7224761b734
Parent e100314ec2deed5…
3 files changed +11 +1 +1
+ tools/cvs2fossil/lib/c2f_pimport.tcl ~ tools/cvs2fossil/lib/cvs2fossil.tcl ~ tools/cvs2fossil/lib/pkgIndex.tcl
A tools/cvs2fossil/lib/c2f_pimport.tcl
+11
--- a/tools/cvs2fossil/lib/c2f_pimport.tcl
+++ b/tools/cvs2fossil/lib/c2f_pimport.tcl
@@ -0,0 +1,11 @@
1
+## -*- tcl -*-
2
+# # ## ### ##### ######## ############# #####################
3
+## Copyright (c) 2007 unset rstateset path [$file path]
4
+ log write 2 import {Importing file "$path"}array set rstate {}log write 2 import {Importing revision [$revision str]}
5
+ $revision pushto rstate $fossil $d## -*- tcl -*-
6
+# # ## ### ##### ######## ############# #####################
7
+## Copyright (c) 2007 unset rstate
8
+ # TODO: Generate manifests forin the
9
+ # project and import them. This needs
10
+ # topological traversal. And the creation of
11
+ # empty helper baselines for stuff like the root
--- a/tools/cvs2fossil/lib/c2f_pimport.tcl
+++ b/tools/cvs2fossil/lib/c2f_pimport.tcl
@@ -0,0 +1,11 @@
 
 
 
 
 
 
 
 
 
 
 
--- a/tools/cvs2fossil/lib/c2f_pimport.tcl
+++ b/tools/cvs2fossil/lib/c2f_pimport.tcl
@@ -0,0 +1,11 @@
1 ## -*- tcl -*-
2 # # ## ### ##### ######## ############# #####################
3 ## Copyright (c) 2007 unset rstateset path [$file path]
4 log write 2 import {Importing file "$path"}array set rstate {}log write 2 import {Importing revision [$revision str]}
5 $revision pushto rstate $fossil $d## -*- tcl -*-
6 # # ## ### ##### ######## ############# #####################
7 ## Copyright (c) 2007 unset rstate
8 # TODO: Generate manifests forin the
9 # project and import them. This needs
10 # topological traversal. And the creation of
11 # empty helper baselines for stuff like the root
M tools/cvs2fossil/lib/cvs2fossil.tcl
+1
--- tools/cvs2fossil/lib/cvs2fossil.tcl
+++ tools/cvs2fossil/lib/cvs2fossil.tcl
@@ -39,10 +39,11 @@
3939
 package require vc::fossil::import::cvs::pass::breakrcycle ; # Break' R'evision Cycle's
4040
 package require vc::fossil::import::cvs::pass::rtopsort ; # R'evision Top'ological Sort'
4141
 package require vc::fossil::import::cvs::pass::breakscycle ; # Break' S'ymbol Cycle's
4242
 package require vc::fossil::import::cvs::pass::breakacycle ; # Break' A'll Cycle's
4343
 package require vc::fossil::import::cvs::pass::atopsort ; # A'll Top'ological Sort'
44
+package require vc::fossil::import::cvs::pass::import ; # Import' Files and Changesets
4445
4546
 # # ## ### ##### ######## ############# #####################
4647
 ## Support for passes etc.
4748
4849
 package require vc::fossil::import::cvs::option ; # Cmd line parsing & database
4950
--- tools/cvs2fossil/lib/cvs2fossil.tcl
+++ tools/cvs2fossil/lib/cvs2fossil.tcl
@@ -39,10 +39,11 @@
39 package require vc::fossil::import::cvs::pass::breakrcycle ; # Break' R'evision Cycle's
40 package require vc::fossil::import::cvs::pass::rtopsort ; # R'evision Top'ological Sort'
41 package require vc::fossil::import::cvs::pass::breakscycle ; # Break' S'ymbol Cycle's
42 package require vc::fossil::import::cvs::pass::breakacycle ; # Break' A'll Cycle's
43 package require vc::fossil::import::cvs::pass::atopsort ; # A'll Top'ological Sort'
 
44
45 # # ## ### ##### ######## ############# #####################
46 ## Support for passes etc.
47
48 package require vc::fossil::import::cvs::option ; # Cmd line parsing & database
49
--- tools/cvs2fossil/lib/cvs2fossil.tcl
+++ tools/cvs2fossil/lib/cvs2fossil.tcl
@@ -39,10 +39,11 @@
39 package require vc::fossil::import::cvs::pass::breakrcycle ; # Break' R'evision Cycle's
40 package require vc::fossil::import::cvs::pass::rtopsort ; # R'evision Top'ological Sort'
41 package require vc::fossil::import::cvs::pass::breakscycle ; # Break' S'ymbol Cycle's
42 package require vc::fossil::import::cvs::pass::breakacycle ; # Break' A'll Cycle's
43 package require vc::fossil::import::cvs::pass::atopsort ; # A'll Top'ological Sort'
44 package require vc::fossil::import::cvs::pass::import ; # Import' Files and Changesets
45
46 # # ## ### ##### ######## ############# #####################
47 ## Support for passes etc.
48
49 package require vc::fossil::import::cvs::option ; # Cmd line parsing & database
50
M tools/cvs2fossil/lib/pkgIndex.tcl
+1
--- tools/cvs2fossil/lib/pkgIndex.tcl
+++ tools/cvs2fossil/lib/pkgIndex.tcl
@@ -22,10 +22,11 @@
2222
 package ifneeded vc::fossil::import::cvs::pass::breakrcycle 1.0 [list source [file join $dir c2f_pbreakrcycle.tcl]]
2323
 package ifneeded vc::fossil::import::cvs::pass::rtopsort 1.0 [list source [file join $dir c2f_prtopsort.tcl]]
2424
 package ifneeded vc::fossil::import::cvs::pass::breakscycle 1.0 [list source [file join $dir c2f_pbreakscycle.tcl]]
2525
 package ifneeded vc::fossil::import::cvs::pass::breakacycle 1.0 [list source [file join $dir c2f_pbreakacycle.tcl]]
2626
 package ifneeded vc::fossil::import::cvs::pass::atopsort 1.0 [list source [file join $dir c2f_patopsort.tcl]]
27
+package ifneeded vc::fossil::import::cvs::pass::import 1.0 [list source [file join $dir c2f_pimport.tcl]]
2728
 package ifneeded vc::fossil::import::cvs::gtcore 1.0 [list source [file join $dir c2f_gtcore.tcl]]
2829
 package ifneeded vc::fossil::import::cvs::cyclebreaker 1.0 [list source [file join $dir c2f_cyclebreaker.tcl]]
2930
 package ifneeded vc::fossil::import::cvs::project 1.0 [list source [file join $dir c2f_project.tcl]]
3031
 package ifneeded vc::fossil::import::cvs::project::lodmgr 1.0 [list source [file join $dir c2f_plodmgr.tcl]]
3132
 package ifneeded vc::fossil::import::cvs::project::rev 1.0 [list source [file join $dir c2f_prev.tcl]]
3233
--- tools/cvs2fossil/lib/pkgIndex.tcl
+++ tools/cvs2fossil/lib/pkgIndex.tcl
@@ -22,10 +22,11 @@
22 package ifneeded vc::fossil::import::cvs::pass::breakrcycle 1.0 [list source [file join $dir c2f_pbreakrcycle.tcl]]
23 package ifneeded vc::fossil::import::cvs::pass::rtopsort 1.0 [list source [file join $dir c2f_prtopsort.tcl]]
24 package ifneeded vc::fossil::import::cvs::pass::breakscycle 1.0 [list source [file join $dir c2f_pbreakscycle.tcl]]
25 package ifneeded vc::fossil::import::cvs::pass::breakacycle 1.0 [list source [file join $dir c2f_pbreakacycle.tcl]]
26 package ifneeded vc::fossil::import::cvs::pass::atopsort 1.0 [list source [file join $dir c2f_patopsort.tcl]]
 
27 package ifneeded vc::fossil::import::cvs::gtcore 1.0 [list source [file join $dir c2f_gtcore.tcl]]
28 package ifneeded vc::fossil::import::cvs::cyclebreaker 1.0 [list source [file join $dir c2f_cyclebreaker.tcl]]
29 package ifneeded vc::fossil::import::cvs::project 1.0 [list source [file join $dir c2f_project.tcl]]
30 package ifneeded vc::fossil::import::cvs::project::lodmgr 1.0 [list source [file join $dir c2f_plodmgr.tcl]]
31 package ifneeded vc::fossil::import::cvs::project::rev 1.0 [list source [file join $dir c2f_prev.tcl]]
32
--- tools/cvs2fossil/lib/pkgIndex.tcl
+++ tools/cvs2fossil/lib/pkgIndex.tcl
@@ -22,10 +22,11 @@
22 package ifneeded vc::fossil::import::cvs::pass::breakrcycle 1.0 [list source [file join $dir c2f_pbreakrcycle.tcl]]
23 package ifneeded vc::fossil::import::cvs::pass::rtopsort 1.0 [list source [file join $dir c2f_prtopsort.tcl]]
24 package ifneeded vc::fossil::import::cvs::pass::breakscycle 1.0 [list source [file join $dir c2f_pbreakscycle.tcl]]
25 package ifneeded vc::fossil::import::cvs::pass::breakacycle 1.0 [list source [file join $dir c2f_pbreakacycle.tcl]]
26 package ifneeded vc::fossil::import::cvs::pass::atopsort 1.0 [list source [file join $dir c2f_patopsort.tcl]]
27 package ifneeded vc::fossil::import::cvs::pass::import 1.0 [list source [file join $dir c2f_pimport.tcl]]
28 package ifneeded vc::fossil::import::cvs::gtcore 1.0 [list source [file join $dir c2f_gtcore.tcl]]
29 package ifneeded vc::fossil::import::cvs::cyclebreaker 1.0 [list source [file join $dir c2f_cyclebreaker.tcl]]
30 package ifneeded vc::fossil::import::cvs::project 1.0 [list source [file join $dir c2f_project.tcl]]
31 package ifneeded vc::fossil::import::cvs::project::lodmgr 1.0 [list source [file join $dir c2f_plodmgr.tcl]]
32 package ifneeded vc::fossil::import::cvs::project::rev 1.0 [list source [file join $dir c2f_prev.tcl]]
33

Keyboard Shortcuts

Open search /
Next entry (timeline) j
Previous entry (timeline) k
Open focused entry Enter
Show this help ?
Toggle theme Top nav button