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
68
|
}
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 done {} {}
|
|
>
>
>
|
>
|
>
|
|
<
<
>
>
>
>
>
>
>
|
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
68
69
70
71
72
73
74
75
76
77
78
|
}
method path {} { return $mypath }
# # ## ### ##### ######## #############
## Methods required for the class to be a sink of the rcs parser
method begin {} {}
method done {} {}
method admindone {} {}
method sethead {h} {}
method setprincipalbranch {b} {}
method setsymbols {dict} {}
method setcomment {c} {}
method setdesc {d} {}
method def {rev date author state next branches} {}
method extend {rev commitmsg deltarange} {}
#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}
# # ## ### ##### ######## #############
## Persistence (pass II)
method persist {} {
}
# # ## ### ##### ######## #############
## State
variable mypath {} ; # Path of rcs archive
variable myproject {} ; # Project object the file belongs to.
# # ## ### ##### ######## #############
|