27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
|
# # ## ### ##### ######## ############# #####################
##
snit::type ::vc::fossil::import::cvs::file {
# # ## ### ##### ######## #############
## Public API
constructor {path project} {
set mypath $path
set myproject $project
return
}
method path {} { return $mypath }
method project {} { return $myproject }
# # ## ### ##### ######## #############
|
|
|
>
|
|
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
|
# # ## ### ##### ######## ############# #####################
##
snit::type ::vc::fossil::import::cvs::file {
# # ## ### ##### ######## #############
## Public API
constructor {path executable project} {
set mypath $path
set myexecutable $executable
set myproject $project
return
}
method path {} { return $mypath }
method project {} { return $myproject }
# # ## ### ##### ######## #############
|
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
|
}
method done {} {}
# # ## ### ##### ######## #############
## State
variable mypath {} ; # Path of our rcs archive.
variable myproject {} ; # Reference to the project object
# the file belongs to.
variable myrev -array {} ; # Maps revision number to the
# associated revision object.
variable myrevisions {} ; # Same as myrev, but a list,
# giving us the order of
# revisions.
|
|
>
|
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
|
}
method done {} {}
# # ## ### ##### ######## #############
## State
variable mypath {} ; # Path of the file's rcs archive.
variable myexecutable 0 ; # Boolean flag 'file executable'.
variable myproject {} ; # Reference to the project object
# the file belongs to.
variable myrev -array {} ; # Maps revision number to the
# associated revision object.
variable myrevisions {} ; # Same as myrev, but a list,
# giving us the order of
# revisions.
|
223
224
225
226
227
228
229
230
231
232
233
234
235
236
237
|
# order of definition. This also defines
# their order of creation, which is the
# reverse of definition. I.e. a smaller
# number means 'Defined earlier', means
# 'Created later'.
### TODO ###
### File flag - executable,
|
<
|
225
226
227
228
229
230
231
232
233
234
235
236
237
238
|
# order of definition. This also defines
# their order of creation, which is the
# reverse of definition. I.e. a smaller
# number means 'Defined earlier', means
# 'Created later'.
### TODO ###
### RCS mode info (kb, kkb, ...)
# # ## ### ##### ######## #############
## Internal methods
method RecordBranchCommits {branches} {
foreach branchrevnr $branches {
|