Fossil SCM

Added pass II (collection of revision and symbols), basic skeleton and state definitions, and integrated into the pass manager.

aku 2007-10-06 03:56 trunk
Commit fdbc01df955c9359f60c9b2f1d52623c4f27ebb7
Parent 10f9d51bb2ae782…
3 files changed +120 +2 -1 +11 -10
+ tools/cvs2fossil/lib/c2f_pcollrev.tcl ~ tools/cvs2fossil/lib/cvs2fossil.tcl ~ tools/cvs2fossil/lib/pkgIndex.tcl
A tools/cvs2fossil/lib/c2f_pcollrev.tcl
+120
--- a/tools/cvs2fossil/lib/c2f_pcollrev.tcl
+++ b/tools/cvs2fossil/lib/c2f_pcollrev.tcl
@@ -0,0 +1,120 @@
1
+## -childIt is in prinEvent, Revision, Sy Derived information, and links
2
+ -- Basic: Parent/Child
3
+ -- NTDB: DefaultParent/DefaultChild
4
+ -- Branches: Branch parent revision
5
+
6
+ op INTEGER NOT NULL,NOT NULL,
7
+ parent INTEGER INTEGERbparent INTEGER# -childIt is in principlin principle possiblm# -childIt is in princn principle possiblve (from item project the commit was onbranch the commit was
8
+ aX@1~G,E:author,
9
+ cX@1~G,9:cmessage,Y@2CR,D@2H_,x: and commit message information is fully global,
10
+ # i.e. per43@2I_,53:# Consistency constraints.
11
+ #
12
+ # Items (Tags, Branches, Revisions) belong to a file to a
13
+ # project. All refer to other items, and symbols, which again
14
+ # belong to a project. The projects have to agree with each
15
+ # other. I.e. items may not refer to items or symbols which
16
+ # belong to a different project than their own.
17
+K@2lj,bo@2Mu,Jvyh3; -- NTDB: DefaultParent/Defa<- Event
18
+ #
19
+ # Head revircs {
20
+ fidfile, -- RCS inherevision,
21
+ principal columns merged, and unused col## -childIt is in prtency constraints.
22
+ #
23
+ # Items (Tags, Branches, Revisions) belong to a file to a
24
+ # project. All refer to other items, and symbols, which again
25
+ # belong to a project. The projects have to agree with each
26
+ # other. I.e. items may not refer to items or symbols which
27
+ # belong to a different project than their own.
28
+K@2t was onbranch the commit was
29
+ aX@1~G,E:author,
30
+ cX@1~G,9:cmessage,Y@2CR,D@2H_,x: and commit message information is fully global,
31
+ # i.e. per43@2I_,53:# Consistency constgs, Branches, Revisions) belong to a file to a
32
+ # project. All refer fer to other items, and symbols, which again
33
+ # belong to a project. The projects have tve to agree with each
34
+ # other. I.e. items may not refer to items or sy ymbols which
35
+ # bnextle table, with
36
+ # simila## -childIto a file to a
37
+ # prown.
38
+K@2lj,bo@2Mu,Jvyh3; length
39
+ cl --tag {
40
+ iitem, -- TAG inherit from ITEM a single## -childIt is in principle porevisioniid item, root
41
+
42
+ each
43
+ # and
44
+ ## -childIt is in prle possiblve (from item to barnch) memory requirements
45
+ # within limits, i.e. without doing it this way it is
46
+ # easy to blow 1G of RAM with all the objects
47
+ # (revisions$file persistcsitem# -childIt is in prinEvent, Revision, Sy Derived information, and links
48
+ -- Basic: Parent/Child
49
+ -- NTDB: DefaultParent/DefaultChild
50
+ -- Branches: Branch parent revision
51
+
52
+ op INTEGER NOT NULL,NOT NULL,
53
+ parent INTEGER INTEGERbparent INTEGER# -childIt is in principlin principle possiblm# -childIt is in princn principle possiblve (from item project the commit was onbranch the commit was
54
+ aX@1~G,E:author,
55
+ cX@1~G,9:cmessage,Y@2CR,D@2H_,x: and commit message information is fully global,
56
+ # i.e. per43@2I_,53:# Consistency constraints.
57
+ #
58
+ # Items (Tags, Branches, Revisions) belong to a file to a
59
+ # project. All refer to other items, and symbols, which again
60
+ # belong to a project. The projects have to agree with each
61
+ # other. I.e. items may not refer to items or symbols which
62
+ # belong to a different project than their own.
63
+K@2lj,bo@2Mu,Jvyh3; -- NTDB: DefaultParent/Defa<- Event
64
+ #
65
+ # Head revircs {
66
+ fidfile, -- RCS inherevision,
67
+ principal columns merged, and unused col## -childIt is in prtency constraints.
68
+ #
69
+ # Items (Tags, Branches, Revisions) belong to a file to a
70
+ # project. All refer to other items, and symbols, which again
71
+ # belong to a project. The projects have to agree with each
72
+ # other. I.e. items may not refer to items or symbols which
73
+ # belong to a different project than on, Sy Derived information, and links
74
+ -- Basic: Parent/Child
75
+ -- NTDB: DefaultParent/DefaultChild
76
+ -- Branches: Branch parent revision
77
+
78
+ op INTEGER NOT NULL,NOT NULL,
79
+ parent INTEGER INTEGERbparent INTEGER# -childIt is in principlin principle possiblm# -childIt is in princn principle possiblve (from item project the commit was onbranch the commit was
80
+ aX@1~G,E:author,
81
+ cX@1~G,9:cmessage,Y@2CR,D@2H_,x: and commit message information is fully global,
82
+ # i.e. per43@2I_,53:# Consistency constraints.
83
+ #
84
+ # Items (Tags, Branches, Revisions) belong to a file to a
85
+ # project. All refer to other items, and symbols, which again
86
+ # belong to a project. The projects have to agree with each
87
+ # other. I.e. items may not refer to items or symbols which
88
+ # belong to a different project than their own.
89
+K@2lj,bo@2Mu,Jvyh3; -- NTDB: DefaultParent/Defa<- Event
90
+ #
91
+ # Head revircs {
92
+ fidfile, -- RCS inherevision,
93
+ principal columns merged, and unused col## -childIt is in prtency constraints.
94
+ #
95
+ # Items (Tags, Branches, Revisions) belong to a file to a
96
+ # project. All refer to other items, and symbols, which again
97
+ # belong to a project. The projects have to agree with each
98
+ # other. I.e. items may not refer to items or symbols which
99
+ # belong to a different project than their own.
100
+K@2lj,bo@2Mu,Jvyh3;item {
101
+ ityperevision } {
102
+ iid item, -- REVISION le possiblve (from item projeitem project the commit was onbranch the commit was
103
+ aX@1~G,E:author,
104
+ cX@1~G,9:cmessage,Y@2CR,D@2H_,x: and commit message information is fullyrun {} { refer fer to other items, and symbols, which again
105
+ # belong to a project. The projects have tve to agree with each
106
+ # other. I.e. items may not refer to items or sy ymbols which
107
+ # bnextle table, with
108
+ # simila## -childIto a file to a
109
+ rcs:: iitem, eval rcs {
110
+ rcs::parser::process
111
+ }ol## -childIt is in prtency constraints.
112
+ #
113
+ # Items (Tags, Branches, Revisions) belong to a file to a
114
+ # project. All refer to other items, and symbols, which again
115
+ # belong to a project. The projects have to agree with each
116
+ # other. I.e. items may not refer to items or symbols which
117
+ # belong to a different project than their own.
118
+K@2lj,bo@2Mu,Jvyh3;item {
119
+ ityperevision } {
120
+ iid item, -- REVISION le possiblve (from item projeitem project the commit was onbranch the commit w
--- a/tools/cvs2fossil/lib/c2f_pcollrev.tcl
+++ b/tools/cvs2fossil/lib/c2f_pcollrev.tcl
@@ -0,0 +1,120 @@
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
--- a/tools/cvs2fossil/lib/c2f_pcollrev.tcl
+++ b/tools/cvs2fossil/lib/c2f_pcollrev.tcl
@@ -0,0 +1,120 @@
1 ## -childIt is in prinEvent, Revision, Sy Derived information, and links
2 -- Basic: Parent/Child
3 -- NTDB: DefaultParent/DefaultChild
4 -- Branches: Branch parent revision
5
6 op INTEGER NOT NULL,NOT NULL,
7 parent INTEGER INTEGERbparent INTEGER# -childIt is in principlin principle possiblm# -childIt is in princn principle possiblve (from item project the commit was onbranch the commit was
8 aX@1~G,E:author,
9 cX@1~G,9:cmessage,Y@2CR,D@2H_,x: and commit message information is fully global,
10 # i.e. per43@2I_,53:# Consistency constraints.
11 #
12 # Items (Tags, Branches, Revisions) belong to a file to a
13 # project. All refer to other items, and symbols, which again
14 # belong to a project. The projects have to agree with each
15 # other. I.e. items may not refer to items or symbols which
16 # belong to a different project than their own.
17 K@2lj,bo@2Mu,Jvyh3; -- NTDB: DefaultParent/Defa<- Event
18 #
19 # Head revircs {
20 fidfile, -- RCS inherevision,
21 principal columns merged, and unused col## -childIt is in prtency constraints.
22 #
23 # Items (Tags, Branches, Revisions) belong to a file to a
24 # project. All refer to other items, and symbols, which again
25 # belong to a project. The projects have to agree with each
26 # other. I.e. items may not refer to items or symbols which
27 # belong to a different project than their own.
28 K@2t was onbranch the commit was
29 aX@1~G,E:author,
30 cX@1~G,9:cmessage,Y@2CR,D@2H_,x: and commit message information is fully global,
31 # i.e. per43@2I_,53:# Consistency constgs, Branches, Revisions) belong to a file to a
32 # project. All refer fer to other items, and symbols, which again
33 # belong to a project. The projects have tve to agree with each
34 # other. I.e. items may not refer to items or sy ymbols which
35 # bnextle table, with
36 # simila## -childIto a file to a
37 # prown.
38 K@2lj,bo@2Mu,Jvyh3; length
39 cl --tag {
40 iitem, -- TAG inherit from ITEM a single## -childIt is in principle porevisioniid item, root
41
42 each
43 # and
44 ## -childIt is in prle possiblve (from item to barnch) memory requirements
45 # within limits, i.e. without doing it this way it is
46 # easy to blow 1G of RAM with all the objects
47 # (revisions$file persistcsitem# -childIt is in prinEvent, Revision, Sy Derived information, and links
48 -- Basic: Parent/Child
49 -- NTDB: DefaultParent/DefaultChild
50 -- Branches: Branch parent revision
51
52 op INTEGER NOT NULL,NOT NULL,
53 parent INTEGER INTEGERbparent INTEGER# -childIt is in principlin principle possiblm# -childIt is in princn principle possiblve (from item project the commit was onbranch the commit was
54 aX@1~G,E:author,
55 cX@1~G,9:cmessage,Y@2CR,D@2H_,x: and commit message information is fully global,
56 # i.e. per43@2I_,53:# Consistency constraints.
57 #
58 # Items (Tags, Branches, Revisions) belong to a file to a
59 # project. All refer to other items, and symbols, which again
60 # belong to a project. The projects have to agree with each
61 # other. I.e. items may not refer to items or symbols which
62 # belong to a different project than their own.
63 K@2lj,bo@2Mu,Jvyh3; -- NTDB: DefaultParent/Defa<- Event
64 #
65 # Head revircs {
66 fidfile, -- RCS inherevision,
67 principal columns merged, and unused col## -childIt is in prtency constraints.
68 #
69 # Items (Tags, Branches, Revisions) belong to a file to a
70 # project. All refer to other items, and symbols, which again
71 # belong to a project. The projects have to agree with each
72 # other. I.e. items may not refer to items or symbols which
73 # belong to a different project than on, Sy Derived information, and links
74 -- Basic: Parent/Child
75 -- NTDB: DefaultParent/DefaultChild
76 -- Branches: Branch parent revision
77
78 op INTEGER NOT NULL,NOT NULL,
79 parent INTEGER INTEGERbparent INTEGER# -childIt is in principlin principle possiblm# -childIt is in princn principle possiblve (from item project the commit was onbranch the commit was
80 aX@1~G,E:author,
81 cX@1~G,9:cmessage,Y@2CR,D@2H_,x: and commit message information is fully global,
82 # i.e. per43@2I_,53:# Consistency constraints.
83 #
84 # Items (Tags, Branches, Revisions) belong to a file to a
85 # project. All refer to other items, and symbols, which again
86 # belong to a project. The projects have to agree with each
87 # other. I.e. items may not refer to items or symbols which
88 # belong to a different project than their own.
89 K@2lj,bo@2Mu,Jvyh3; -- NTDB: DefaultParent/Defa<- Event
90 #
91 # Head revircs {
92 fidfile, -- RCS inherevision,
93 principal columns merged, and unused col## -childIt is in prtency constraints.
94 #
95 # Items (Tags, Branches, Revisions) belong to a file to a
96 # project. All refer to other items, and symbols, which again
97 # belong to a project. The projects have to agree with each
98 # other. I.e. items may not refer to items or symbols which
99 # belong to a different project than their own.
100 K@2lj,bo@2Mu,Jvyh3;item {
101 ityperevision } {
102 iid item, -- REVISION le possiblve (from item projeitem project the commit was onbranch the commit was
103 aX@1~G,E:author,
104 cX@1~G,9:cmessage,Y@2CR,D@2H_,x: and commit message information is fullyrun {} { refer fer to other items, and symbols, which again
105 # belong to a project. The projects have tve to agree with each
106 # other. I.e. items may not refer to items or sy ymbols which
107 # bnextle table, with
108 # simila## -childIto a file to a
109 rcs:: iitem, eval rcs {
110 rcs::parser::process
111 }ol## -childIt is in prtency constraints.
112 #
113 # Items (Tags, Branches, Revisions) belong to a file to a
114 # project. All refer to other items, and symbols, which again
115 # belong to a project. The projects have to agree with each
116 # other. I.e. items may not refer to items or symbols which
117 # belong to a different project than their own.
118 K@2lj,bo@2Mu,Jvyh3;item {
119 ityperevision } {
120 iid item, -- REVISION le possiblve (from item projeitem project the commit was onbranch the commit w
M tools/cvs2fossil/lib/cvs2fossil.tcl
+2 -1
--- tools/cvs2fossil/lib/cvs2fossil.tcl
+++ tools/cvs2fossil/lib/cvs2fossil.tcl
@@ -22,11 +22,12 @@
2222
 # # ## ### ##### ######## ############# #####################
2323
 ## Passes. The order in which the import passes are loaded is
2424
 ## important. It is the same order they will register, and then be run
2525
 ## in.
2626
27
-package require vc::fossil::import::cvs::pass::collar ; # Coll'ect AR'chives.
27
+package require vc::fossil::import::cvs::pass::collar ; # Coll'ect AR'chives.
28
+package require vc::fossil::import::cvs::pass::collrev ; # Coll'ect REV'isions.
2829
2930
 # # ## ### ##### ######## ############# #####################
3031
 ## Support for passes etc.
3132
3233
 package require vc::fossil::import::cvs::option ; # Cmd line parsing & database
3334
--- tools/cvs2fossil/lib/cvs2fossil.tcl
+++ tools/cvs2fossil/lib/cvs2fossil.tcl
@@ -22,11 +22,12 @@
22 # # ## ### ##### ######## ############# #####################
23 ## Passes. The order in which the import passes are loaded is
24 ## important. It is the same order they will register, and then be run
25 ## in.
26
27 package require vc::fossil::import::cvs::pass::collar ; # Coll'ect AR'chives.
 
28
29 # # ## ### ##### ######## ############# #####################
30 ## Support for passes etc.
31
32 package require vc::fossil::import::cvs::option ; # Cmd line parsing & database
33
--- tools/cvs2fossil/lib/cvs2fossil.tcl
+++ tools/cvs2fossil/lib/cvs2fossil.tcl
@@ -22,11 +22,12 @@
22 # # ## ### ##### ######## ############# #####################
23 ## Passes. The order in which the import passes are loaded is
24 ## important. It is the same order they will register, and then be run
25 ## in.
26
27 package require vc::fossil::import::cvs::pass::collar ; # Coll'ect AR'chives.
28 package require vc::fossil::import::cvs::pass::collrev ; # Coll'ect REV'isions.
29
30 # # ## ### ##### ######## ############# #####################
31 ## Support for passes etc.
32
33 package require vc::fossil::import::cvs::option ; # Cmd line parsing & database
34
M tools/cvs2fossil/lib/pkgIndex.tcl
+11 -10
--- tools/cvs2fossil/lib/pkgIndex.tcl
+++ tools/cvs2fossil/lib/pkgIndex.tcl
@@ -1,16 +1,17 @@
11
 # # ## ### ##### ######## ############# #####################
22
 ## Package management.
33
 ## Index of the local packages required by cvs2fossil
44
 # # ## ### ##### ######## ############# #####################
55
 if {![package vsatisfies [package require Tcl] 8.4]} return
6
-package ifneeded vc::fossil::import::cvs 1.0 [list source [file join $dir cvs2fossil.tcl]]
7
-package ifneeded vc::fossil::import::cvs::option 1.0 [list source [file join $dir c2f_option.tcl]]
8
-package ifneeded vc::fossil::import::cvs::pass 1.0 [list source [file join $dir c2f_pass.tcl]]
9
-package ifneeded vc::fossil::import::cvs::pass::collar 1.0 [list source [file join $dir c2f_pcollar.tcl]]
10
-package ifneeded vc::fossil::import::cvs::repository 1.0 [list source [file join $dir c2f_repository.tcl]]
11
-package ifneeded vc::fossil::import::cvs::project 1.0 [list source [file join $dir c2f_project.tcl]]
12
-package ifneeded vc::fossil::import::cvs::state 1.0 [list source [file join $dir c2f_state.tcl]]
13
-package ifneeded vc::tools::trouble 1.0 [list source [file join $dir trouble.tcl]]
14
-package ifneeded vc::tools::log 1.0 [list source [file join $dir log.tcl]]
15
-package ifneeded vc::tools::misc 1.0 [list source [file join $dir misc.tcl]]
6
+package ifneeded vc::fossil::import::cvs 1.0 [list source [file join $dir cvs2fossil.tcl]]
7
+package ifneeded vc::fossil::import::cvs::option 1.0 [list source [file join $dir c2f_option.tcl]]
8
+package ifneeded vc::fossil::import::cvs::pass 1.0 [list source [file join $dir c2f_pass.tcl]]
9
+package ifneeded vc::fossil::import::cvs::pass::collar 1.0 [list source [file join $dir c2f_pcollar.tcl]]
10
+package ifneeded vc::fossil::import::cvs::pass::collrev 1.0 [list source [file join $dir c2f_pcollrev.tcl]]
11
+package ifneeded vc::fossil::import::cvs::repository 1.0 [list source [file join $dir c2f_repository.tcl]]
12
+package ifneeded vc::fossil::import::cvs::project 1.0 [list source [file join $dir c2f_project.tcl]]
13
+package ifneeded vc::fossil::import::cvs::state 1.0 [list source [file join $dir c2f_state.tcl]]
14
+package ifneeded vc::tools::trouble 1.0 [list source [file join $dir trouble.tcl]]
15
+package ifneeded vc::tools::log 1.0 [list source [file join $dir log.tcl]]
16
+package ifneeded vc::tools::misc 1.0 [list source [file join $dir misc.tcl]]
1617
1718
--- tools/cvs2fossil/lib/pkgIndex.tcl
+++ tools/cvs2fossil/lib/pkgIndex.tcl
@@ -1,16 +1,17 @@
1 # # ## ### ##### ######## ############# #####################
2 ## Package management.
3 ## Index of the local packages required by cvs2fossil
4 # # ## ### ##### ######## ############# #####################
5 if {![package vsatisfies [package require Tcl] 8.4]} return
6 package ifneeded vc::fossil::import::cvs 1.0 [list source [file join $dir cvs2fossil.tcl]]
7 package ifneeded vc::fossil::import::cvs::option 1.0 [list source [file join $dir c2f_option.tcl]]
8 package ifneeded vc::fossil::import::cvs::pass 1.0 [list source [file join $dir c2f_pass.tcl]]
9 package ifneeded vc::fossil::import::cvs::pass::collar 1.0 [list source [file join $dir c2f_pcollar.tcl]]
10 package ifneeded vc::fossil::import::cvs::repository 1.0 [list source [file join $dir c2f_repository.tcl]]
11 package ifneeded vc::fossil::import::cvs::project 1.0 [list source [file join $dir c2f_project.tcl]]
12 package ifneeded vc::fossil::import::cvs::state 1.0 [list source [file join $dir c2f_state.tcl]]
13 package ifneeded vc::tools::trouble 1.0 [list source [file join $dir trouble.tcl]]
14 package ifneeded vc::tools::log 1.0 [list source [file join $dir log.tcl]]
15 package ifneeded vc::tools::misc 1.0 [list source [file join $dir misc.tcl]]
 
16
17
--- tools/cvs2fossil/lib/pkgIndex.tcl
+++ tools/cvs2fossil/lib/pkgIndex.tcl
@@ -1,16 +1,17 @@
1 # # ## ### ##### ######## ############# #####################
2 ## Package management.
3 ## Index of the local packages required by cvs2fossil
4 # # ## ### ##### ######## ############# #####################
5 if {![package vsatisfies [package require Tcl] 8.4]} return
6 package ifneeded vc::fossil::import::cvs 1.0 [list source [file join $dir cvs2fossil.tcl]]
7 package ifneeded vc::fossil::import::cvs::option 1.0 [list source [file join $dir c2f_option.tcl]]
8 package ifneeded vc::fossil::import::cvs::pass 1.0 [list source [file join $dir c2f_pass.tcl]]
9 package ifneeded vc::fossil::import::cvs::pass::collar 1.0 [list source [file join $dir c2f_pcollar.tcl]]
10 package ifneeded vc::fossil::import::cvs::pass::collrev 1.0 [list source [file join $dir c2f_pcollrev.tcl]]
11 package ifneeded vc::fossil::import::cvs::repository 1.0 [list source [file join $dir c2f_repository.tcl]]
12 package ifneeded vc::fossil::import::cvs::project 1.0 [list source [file join $dir c2f_project.tcl]]
13 package ifneeded vc::fossil::import::cvs::state 1.0 [list source [file join $dir c2f_state.tcl]]
14 package ifneeded vc::tools::trouble 1.0 [list source [file join $dir trouble.tcl]]
15 package ifneeded vc::tools::log 1.0 [list source [file join $dir log.tcl]]
16 package ifneeded vc::tools::misc 1.0 [list source [file join $dir misc.tcl]]
17
18

Keyboard Shortcuts

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