34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
|
typemethod base {path} {
# Could be checked, easier to defer to the overall validation.
set mybase $path
return
}
typemethod add {path} {
# Cannot be checked immediately, the base is not known while
# projects are added.
lappend myprojpaths $path
return
}
typemethod projects {} {
# TODO: Loading from the state database if CollAr is skipped
# in a run.
|
|
|
>
>
>
>
|
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
|
typemethod base {path} {
# Could be checked, easier to defer to the overall validation.
set mybase $path
return
}
typemethod add {path} {
# Most things cannot be checked immediately, as the base is
# not known while projects are added. We can and do check for
# uniqueness. We accept multiple occurences of a name, and
# treat them as a single project.
if {[lsearch -exact $myprojpaths $path] >= 0} return
lappend myprojpaths $path
return
}
typemethod projects {} {
# TODO: Loading from the state database if CollAr is skipped
# in a run.
|