40
41
42
43
44
45
46
47
48
49
50
51
52
53
|
set n 0
AllButMeta
return
}
typemethod changesets {} {
set n 0
RevisionChangesets
SymbolChangesets
return
}
# # ## ### ##### ######## #############
## Internal methods
|
>
|
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
|
set n 0
AllButMeta
return
}
typemethod changesets {} {
set n 0
RevisionCSetLinkage
RevisionChangesets
SymbolChangesets
return
}
# # ## ### ##### ######## #############
## Internal methods
|
285
286
287
288
289
290
291
292
293
294
295
296
297
298
|
WHERE R.mid = M.mid
AND R.lod != M.bid
AND R.fid = F.fid
;
}
return
}
proc Check {header label sql} {
upvar 1 n n
set ok 1
foreach {fname revnr} [state run $sql] {
set ok 0
trouble fatal "$fname <$revnr> $label"
|
>
>
>
>
>
>
>
>
>
>
|
286
287
288
289
290
291
292
293
294
295
296
297
298
299
300
301
302
303
304
305
306
307
308
309
|
WHERE R.mid = M.mid
AND R.lod != M.bid
AND R.fid = F.fid
;
}
return
}
proc RevisionCSetLinkage {} {
}
proc RevisionChangesets {} {
}
proc SymbolChangesets {} {
}
proc Check {header label sql} {
upvar 1 n n
set ok 1
foreach {fname revnr} [state run $sql] {
set ok 0
trouble fatal "$fname <$revnr> $label"
|