Fossil

Check-in [fc635d59]
Login

Many hyperlinks are disabled.
Use anonymous login to enable hyperlinks.

Overview
Comment:Updated helper app to changed state definition (csrevision -> csitem).
Downloads: Tarball | ZIP archive | SQL archive
Timelines: family | ancestors | descendants | both | trunk
Files: files | file ages | folders
SHA1:fc635d597718b336a3e4ce43254b99136b996b13
User & Date: aku 2007-11-30 15:21:14
Context
2007-12-01
18:35
Helper updated to changes in state definition. check-in: 5bbc7d4c user: aku tags: trunk
2007-11-30
15:21
Updated helper app to changed state definition (csrevision -> csitem). check-in: fc635d59 user: aku tags: trunk
15:20
Fixed typo of keyword. check-in: 3db03be6 user: aku tags: trunk
Changes
Hide Diffs Unified Diffs Ignore Whitespace Patch

Changes to tools/cvs2fossil/filerevtree.

50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
...
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117

state use [lindex $argv 0]
state reading project
state reading file
state reading revision
state reading revisionbranchchildren
state reading changeset
state reading csrevision
state reading csorder

set what [lindex $argv 1]
set centralrid -1

switch -exact -- $what {
    rid {
................................................................................
    SELECT R.rid, R.rev, S.name, R.date, R.isdefault
    FROM revision R, symbol S
    WHERE R.fid = $fid
    AND   R.lod = S.sid
}]] {
    set cs [state run {
	SELECT CR.cid, CO.pos, CT.name
	FROM csrevision CR, csorder CO, cstype CT, changeset C
	WHERE CR.rid = $rid
	AND   CR.cid = CO.cid
	AND   CR.cid = C.cid
	AND   CT.tid = C.type
    }]

    set rev($rid) [list $revnr $lod $date $isdefault $cs]
}







|







 







|
|







50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
...
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117

state use [lindex $argv 0]
state reading project
state reading file
state reading revision
state reading revisionbranchchildren
state reading changeset
state reading csitem
state reading csorder

set what [lindex $argv 1]
set centralrid -1

switch -exact -- $what {
    rid {
................................................................................
    SELECT R.rid, R.rev, S.name, R.date, R.isdefault
    FROM revision R, symbol S
    WHERE R.fid = $fid
    AND   R.lod = S.sid
}]] {
    set cs [state run {
	SELECT CR.cid, CO.pos, CT.name
	FROM csitem CR, csorder CO, cstype CT, changeset C
	WHERE CR.iid = $rid
	AND   CR.cid = CO.cid
	AND   CR.cid = C.cid
	AND   CT.tid = C.type
    }]

    set rev($rid) [list $revnr $lod $date $isdefault $cs]
}