Fossil SCM

Added classes to track the state of a workspace, and of the whole revision import.

aku 2008-02-04 06:01 trunk
Commit d011e0b008825cf251cd50888d9cbcbc8778b261
Parent 4e02d677c24419d…
3 files changed +43 +32 +2
+ tools/cvs2fossil/lib/c2f_ristate.tcl + tools/cvs2fossil/lib/c2f_wsstate.tcl ~ tools/cvs2fossil/lib/pkgIndex.tcl
A tools/cvs2fossil/lib/c2f_ristate.tcl
+43
--- a/tools/cvs2fossil/lib/c2f_ristate.tcl
+++ b/tools/cvs2fossil/lib/c2f_ristate.tcl
@@ -0,0 +1,43 @@
1
+## -*- tcl -*-
2
+# # ## ### ##### ######## ############# #####################
3
+## Copyright (c) 2008 Andreas Kupries.
4
+#
5
+# This software is licensed as described in the file LICENSE, which
6
+# you should have received as part of this distribution.
7
+#
8
+# This software consists of voluntary contributions made by many
9
+# individuals. For exact contribution history, see the revision
10
+# history and logs, available at http://fossil-scm.hwaci.com/fossil
11
+# # ## ### ##### ######## ############# #####################
12
+
13
+## Track the state of revision import. Essentially maps lines of
14
+## developments to their workspace state.
15
+
16
+# # ## ### ##### ######## ############# #### # ## ### #truct::list ; # List assignment
17
+package require vc::fossil::import::cvs::wsstate ; # Workspace state
18
+package require vc::fossil::import::cvs::integrity ; # State integrity checks.
19
+package require vc::tools::log ; # User feedback.
20
+package require vc::tools::trouble ; # Error reporting.
21
+
22
+# # ## ### ##### ######## ############# #####################
23
+##
24
+
25
+snit::type ::vc::fossil::import::cvs::ristate {
26
+ # # ## ### ##### ######## #############
27
+ ## Public API
28
+
29
+ constructor {} {
30
+ # Start with an empty state
31
+ return
32
+ }
33
+
34
+ method new {lod {parentlod {}}} {
35
+ # Create the workspace stat{}}} {
36
+ # Create a workspac
37
+ # (LOD). If a parent LOstate
38
+ # inherit the current state of the parent.
39
+
40
+ log write 8 ristate {Open workspace state for LOD "$lod"}
41
+
42
+ integrity asseadd [$pwss get]
43
+ $wss defid
--- a/tools/cvs2fossil/lib/c2f_ristate.tcl
+++ b/tools/cvs2fossil/lib/c2f_ristate.tcl
@@ -0,0 +1,43 @@
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
--- a/tools/cvs2fossil/lib/c2f_ristate.tcl
+++ b/tools/cvs2fossil/lib/c2f_ristate.tcl
@@ -0,0 +1,43 @@
1 ## -*- tcl -*-
2 # # ## ### ##### ######## ############# #####################
3 ## Copyright (c) 2008 Andreas Kupries.
4 #
5 # This software is licensed as described in the file LICENSE, which
6 # you should have received as part of this distribution.
7 #
8 # This software consists of voluntary contributions made by many
9 # individuals. For exact contribution history, see the revision
10 # history and logs, available at http://fossil-scm.hwaci.com/fossil
11 # # ## ### ##### ######## ############# #####################
12
13 ## Track the state of revision import. Essentially maps lines of
14 ## developments to their workspace state.
15
16 # # ## ### ##### ######## ############# #### # ## ### #truct::list ; # List assignment
17 package require vc::fossil::import::cvs::wsstate ; # Workspace state
18 package require vc::fossil::import::cvs::integrity ; # State integrity checks.
19 package require vc::tools::log ; # User feedback.
20 package require vc::tools::trouble ; # Error reporting.
21
22 # # ## ### ##### ######## ############# #####################
23 ##
24
25 snit::type ::vc::fossil::import::cvs::ristate {
26 # # ## ### ##### ######## #############
27 ## Public API
28
29 constructor {} {
30 # Start with an empty state
31 return
32 }
33
34 method new {lod {parentlod {}}} {
35 # Create the workspace stat{}}} {
36 # Create a workspac
37 # (LOD). If a parent LOstate
38 # inherit the current state of the parent.
39
40 log write 8 ristate {Open workspace state for LOD "$lod"}
41
42 integrity asseadd [$pwss get]
43 $wss defid
A tools/cvs2fossil/lib/c2f_wsstate.tcl
+32
--- a/tools/cvs2fossil/lib/c2f_wsstate.tcl
+++ b/tools/cvs2fossil/lib/c2f_wsstate.tcl
@@ -0,0 +1,32 @@
1
+## -*- tcl -*-
2
+# # ## ### ##### ######## ############# #####################
3
+## Copyright (c) 2008 Andreas Kupries.
4
+#
5
+# This software is licensed as described in the file LICENSE, which
6
+# you should have received as part of this distribution.
7
+#
8
+# This software consists of voluntary contributions made by many
9
+# individuals. For exact contribution history, see the revision
10
+# history and logs, available at http://fossil-scm.hwaci.com/fossil
11
+# # ## ### ##### ######## ############# #####################
12
+
13
+## Track the state of a cvs workspace as changesets are committed to
14
+## it. Nothing actually happens in the filesystem, this is completely
15
+## virtual.
16
+
17
+# # ## ### ##### ######## ############# #####################
18
+## Requirements
19
+
20
+package require Tcl 8.4 ; # Required runtime.
21
+package require snit ; # OO system.
22
+package require struct::list
23
+# # ## ### ##### ######## ############# #####################
24
+#### #####################
25
+##
26
+
27
+snit::type ::vc::fossil::import::cvs::wsstate {
28
+ # # ## ### ##### ######## #############
29
+ ## Public API
30
+
31
+ constructor {lod} {
32
+ # St
--- a/tools/cvs2fossil/lib/c2f_wsstate.tcl
+++ b/tools/cvs2fossil/lib/c2f_wsstate.tcl
@@ -0,0 +1,32 @@
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
--- a/tools/cvs2fossil/lib/c2f_wsstate.tcl
+++ b/tools/cvs2fossil/lib/c2f_wsstate.tcl
@@ -0,0 +1,32 @@
1 ## -*- tcl -*-
2 # # ## ### ##### ######## ############# #####################
3 ## Copyright (c) 2008 Andreas Kupries.
4 #
5 # This software is licensed as described in the file LICENSE, which
6 # you should have received as part of this distribution.
7 #
8 # This software consists of voluntary contributions made by many
9 # individuals. For exact contribution history, see the revision
10 # history and logs, available at http://fossil-scm.hwaci.com/fossil
11 # # ## ### ##### ######## ############# #####################
12
13 ## Track the state of a cvs workspace as changesets are committed to
14 ## it. Nothing actually happens in the filesystem, this is completely
15 ## virtual.
16
17 # # ## ### ##### ######## ############# #####################
18 ## Requirements
19
20 package require Tcl 8.4 ; # Required runtime.
21 package require snit ; # OO system.
22 package require struct::list
23 # # ## ### ##### ######## ############# #####################
24 #### #####################
25 ##
26
27 snit::type ::vc::fossil::import::cvs::wsstate {
28 # # ## ### ##### ######## #############
29 ## Public API
30
31 constructor {lod} {
32 # St
M tools/cvs2fossil/lib/pkgIndex.tcl
+2
--- tools/cvs2fossil/lib/pkgIndex.tcl
+++ tools/cvs2fossil/lib/pkgIndex.tcl
@@ -31,11 +31,13 @@
3131
 package ifneeded vc::fossil::import::cvs::project::rev 1.0 [list source [file join $dir c2f_prev.tcl]]
3232
 package ifneeded vc::fossil::import::cvs::project::revlink 1.0 [list source [file join $dir c2f_prevlink.tcl]]
3333
 package ifneeded vc::fossil::import::cvs::project::sym 1.0 [list source [file join $dir c2f_psym.tcl]]
3434
 package ifneeded vc::fossil::import::cvs::project::trunk 1.0 [list source [file join $dir c2f_ptrunk.tcl]]
3535
 package ifneeded vc::fossil::import::cvs::repository 1.0 [list source [file join $dir c2f_repository.tcl]]
36
+package ifneeded vc::fossil::import::cvs::ristate 1.0 [list source [file join $dir c2f_ristate.tcl]]
3637
 package ifneeded vc::fossil::import::cvs::state 1.0 [list source [file join $dir c2f_state.tcl]]
38
+package ifneeded vc::fossil::import::cvs::wsstate 1.0 [list source [file join $dir c2f_wsstate.tcl]]
3739
 package ifneeded vc::rcs::parser 1.0 [list source [file join $dir rcsparser.tcl]]
3840
 package ifneeded vc::tools::dot 1.0 [list source [file join $dir dot.tcl]]
3941
 package ifneeded vc::tools::id 1.0 [list source [file join $dir id.tcl]]
4042
 package ifneeded vc::tools::log 1.0 [list source [file join $dir log.tcl]]
4143
 package ifneeded vc::tools::misc 1.0 [list source [file join $dir misc.tcl]]
4244
--- tools/cvs2fossil/lib/pkgIndex.tcl
+++ tools/cvs2fossil/lib/pkgIndex.tcl
@@ -31,11 +31,13 @@
31 package ifneeded vc::fossil::import::cvs::project::rev 1.0 [list source [file join $dir c2f_prev.tcl]]
32 package ifneeded vc::fossil::import::cvs::project::revlink 1.0 [list source [file join $dir c2f_prevlink.tcl]]
33 package ifneeded vc::fossil::import::cvs::project::sym 1.0 [list source [file join $dir c2f_psym.tcl]]
34 package ifneeded vc::fossil::import::cvs::project::trunk 1.0 [list source [file join $dir c2f_ptrunk.tcl]]
35 package ifneeded vc::fossil::import::cvs::repository 1.0 [list source [file join $dir c2f_repository.tcl]]
 
36 package ifneeded vc::fossil::import::cvs::state 1.0 [list source [file join $dir c2f_state.tcl]]
 
37 package ifneeded vc::rcs::parser 1.0 [list source [file join $dir rcsparser.tcl]]
38 package ifneeded vc::tools::dot 1.0 [list source [file join $dir dot.tcl]]
39 package ifneeded vc::tools::id 1.0 [list source [file join $dir id.tcl]]
40 package ifneeded vc::tools::log 1.0 [list source [file join $dir log.tcl]]
41 package ifneeded vc::tools::misc 1.0 [list source [file join $dir misc.tcl]]
42
--- tools/cvs2fossil/lib/pkgIndex.tcl
+++ tools/cvs2fossil/lib/pkgIndex.tcl
@@ -31,11 +31,13 @@
31 package ifneeded vc::fossil::import::cvs::project::rev 1.0 [list source [file join $dir c2f_prev.tcl]]
32 package ifneeded vc::fossil::import::cvs::project::revlink 1.0 [list source [file join $dir c2f_prevlink.tcl]]
33 package ifneeded vc::fossil::import::cvs::project::sym 1.0 [list source [file join $dir c2f_psym.tcl]]
34 package ifneeded vc::fossil::import::cvs::project::trunk 1.0 [list source [file join $dir c2f_ptrunk.tcl]]
35 package ifneeded vc::fossil::import::cvs::repository 1.0 [list source [file join $dir c2f_repository.tcl]]
36 package ifneeded vc::fossil::import::cvs::ristate 1.0 [list source [file join $dir c2f_ristate.tcl]]
37 package ifneeded vc::fossil::import::cvs::state 1.0 [list source [file join $dir c2f_state.tcl]]
38 package ifneeded vc::fossil::import::cvs::wsstate 1.0 [list source [file join $dir c2f_wsstate.tcl]]
39 package ifneeded vc::rcs::parser 1.0 [list source [file join $dir rcsparser.tcl]]
40 package ifneeded vc::tools::dot 1.0 [list source [file join $dir dot.tcl]]
41 package ifneeded vc::tools::id 1.0 [list source [file join $dir id.tcl]]
42 package ifneeded vc::tools::log 1.0 [list source [file join $dir log.tcl]]
43 package ifneeded vc::tools::misc 1.0 [list source [file join $dir misc.tcl]]
44

Keyboard Shortcuts

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