102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
|
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
|
-
-
+
+
+
|
# executed.
state reading changeset
state reading csrevision
state reading cstype
foreach {id pid cstype srcid} [state run {
SELECT C.cid, C.pid, C.type, C.src
FROM changeset C
SELECT C.cid, C.pid, CS.name, C.src
FROM changeset C, cstype CS
WHERE C.type = CS.tid
ORDER BY C.cid
}] {
set r [project::rev %AUTO% [repository projectof $pid] $cstype $srcid [state run {
SELECT C.rid
FROM csrevision C
WHERE C.cid = $id
ORDER BY C.pos
|