150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
|
}
}
return
}
typemethod load {} {
state transaction {
foreach {pid name} [state run {
SELECT pid, name FROM project ;
}] {
set project [project %AUTO% $name $type]
lappend myprojpaths $name
lappend myprojects $project
set myprojmap($pid) $project
$project setid $pid
}
foreach {fid pid name visible exec} [state run {
SELECT fid, pid, name, visible, exec FROM file ;
}] {
$myprojmap($pid) addfile $name $visible $exec $fid
}
}
return
}
# pass II results
|
|
|
|
|
|
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
|
}
}
return
}
typemethod load {} {
state transaction {
state foreachrow {
SELECT pid, name FROM project ;
} {
set project [project %AUTO% $name $type]
lappend myprojpaths $name
lappend myprojects $project
set myprojmap($pid) $project
$project setid $pid
}
state foreachrow {
SELECT fid, pid, name, visible, exec FROM file ;
} {
$myprojmap($pid) addfile $name $visible $exec $fid
}
}
return
}
# pass II results
|
242
243
244
245
246
247
248
249
250
251
252
253
254
255
256
257
258
259
260
|
}
typemethod loadsymbols {} {
state transaction {
# We load the symbol ids at large to have the mapping
# right from the beginning.
foreach {sid pid name tc bc cc} [state run {
SELECT sid, pid, name, tag_count, branch_count, commit_count
FROM symbol
;
}] {
|
|
|
<
|
|
242
243
244
245
246
247
248
249
250
251
252
253
254
255
256
257
258
259
|
}
typemethod loadsymbols {} {
state transaction {
# We load the symbol ids at large to have the mapping
# right from the beginning.
state foreachrow {
SELECT sid, pid, name, tag_count AS tc, branch_count AS bc, commit_count AS cc
FROM symbol
} {
$mysymbol map $sid [list $pid $name]
set project $myprojmap($pid)
set force [$project hassymbol $name]
set symbol [$project getsymbol $name]
# Forcing happens only for the trunks.
|
269
270
271
272
273
274
275
276
277
278
279
280
281
282
283
284
285
286
287
288
289
290
291
292
293
294
295
|
# future: $symbol load (blockers, and parents)
}
# Beyond the symbols we also load the author, commit log,
# and meta information.
foreach {aid aname} [state run {
SELECT aid, name FROM author
}] {
$myauthor map $aid $aname
}
foreach {cid text} [state run {
SELECT cid, text FROM cmessage
}] {
$mycmsg map $cid $text
}
foreach {mid pid bid aid cid} [state run {
SELECT mid, pid, bid, aid, cid FROM meta
}] {
$mymeta map $mid [list $pid $bid $aid $cid]
}
}
return
}
typemethod determinesymboltypes {} {
|
|
|
|
|
|
|
|
|
268
269
270
271
272
273
274
275
276
277
278
279
280
281
282
283
284
285
286
287
288
289
290
291
292
293
294
|
# future: $symbol load (blockers, and parents)
}
# Beyond the symbols we also load the author, commit log,
# and meta information.
state foreachrow {
SELECT aid, name AS aname FROM author
} {
$myauthor map $aid $aname
}
state foreachrow {
SELECT cid, text FROM cmessage
} {
$mycmsg map $cid $text
}
state foreachrow {
SELECT mid, pid, bid, aid, cid FROM meta
} {
$mymeta map $mid [list $pid $bid $aid $cid]
}
}
return
}
typemethod determinesymboltypes {} {
|