29
30
31
32
33
34
35
36
37
38
39
40
41
42
|
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
|
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
|
constructor {path project} {
set mypath $path
set myproject $project
return
}
method path {} { return $mypath }
# # ## ### ##### ######## #############
## Methods required for the class to be a sink of the rcs parser
method begin {} {}
method sethead {h} {}
method setprincipalbranch {b} {}
method setsymbols {dict} {}
method setcomment {c} {}
method admindone {} {}
method def {rev date author state next branches} {}
method setdesc {d} {}
method extend {rev commitmsg deltarange} {}
method done {} {}
#method begin {} {puts begin}
#method sethead {h} {puts head=$h}
#method setprincipalbranch {b} {puts pb=$b}
#method setsymbols {dict} {puts symbols=$dict}
#method setcomment {c} {puts comment=$c}
#method admindone {} {puts admindone}
#method def {rev date author state next branches} {puts "def $rev $date $author $state $next $branches"}
#method setdesc {d} {puts desc=$d}
#method extend {rev commitmsg deltarange} {puts "extend $commitmsg $deltarange"}
#method done {} {puts done}
# # ## ### ##### ######## #############
## State
variable mypath {} ; # Path of rcs archive
variable myproject {} ; # Project object the file belongs to.
|