Fossil SCM
Added documentation to state definition, and debugging output to the state system itself.
Commit
10f9d51bb2ae7825c84db019587d8bb80654999a
Parent
43d72c62467108c…
2 files changed
+2
-2
+4
| --- tools/cvs2fossil/lib/c2f_pcollar.tcl | ||
| +++ tools/cvs2fossil/lib/c2f_pcollar.tcl | ||
| @@ -69,14 +69,14 @@ | ||
| 69 | 69 | pid INTEGER NOT NULL PRIMARY KEY AUTOINCREMENT, |
| 70 | 70 | name TEXT NOT NULL UNIQUE |
| 71 | 71 | } |
| 72 | 72 | state writing file { |
| 73 | 73 | fid INTEGER NOT NULL PRIMARY KEY AUTOINCREMENT, |
| 74 | - pid INTEGER NOT NULL REFERENCES project, | |
| 74 | + pid INTEGER NOT NULL REFERENCES project, -- project the file belongs to | |
| 75 | 75 | name TEXT NOT NULL, |
| 76 | 76 | visible TEXT NOT NULL, |
| 77 | - UNIQUE (pid, name) | |
| 77 | + UNIQUE (pid, name) -- file names are unique within a project | |
| 78 | 78 | } |
| 79 | 79 | return |
| 80 | 80 | } |
| 81 | 81 | |
| 82 | 82 | typemethod run {} { |
| 83 | 83 |
| --- tools/cvs2fossil/lib/c2f_pcollar.tcl | |
| +++ tools/cvs2fossil/lib/c2f_pcollar.tcl | |
| @@ -69,14 +69,14 @@ | |
| 69 | pid INTEGER NOT NULL PRIMARY KEY AUTOINCREMENT, |
| 70 | name TEXT NOT NULL UNIQUE |
| 71 | } |
| 72 | state writing file { |
| 73 | fid INTEGER NOT NULL PRIMARY KEY AUTOINCREMENT, |
| 74 | pid INTEGER NOT NULL REFERENCES project, |
| 75 | name TEXT NOT NULL, |
| 76 | visible TEXT NOT NULL, |
| 77 | UNIQUE (pid, name) |
| 78 | } |
| 79 | return |
| 80 | } |
| 81 | |
| 82 | typemethod run {} { |
| 83 |
| --- tools/cvs2fossil/lib/c2f_pcollar.tcl | |
| +++ tools/cvs2fossil/lib/c2f_pcollar.tcl | |
| @@ -69,14 +69,14 @@ | |
| 69 | pid INTEGER NOT NULL PRIMARY KEY AUTOINCREMENT, |
| 70 | name TEXT NOT NULL UNIQUE |
| 71 | } |
| 72 | state writing file { |
| 73 | fid INTEGER NOT NULL PRIMARY KEY AUTOINCREMENT, |
| 74 | pid INTEGER NOT NULL REFERENCES project, -- project the file belongs to |
| 75 | name TEXT NOT NULL, |
| 76 | visible TEXT NOT NULL, |
| 77 | UNIQUE (pid, name) -- file names are unique within a project |
| 78 | } |
| 79 | return |
| 80 | } |
| 81 | |
| 82 | typemethod run {} { |
| 83 |
| --- tools/cvs2fossil/lib/c2f_state.tcl | ||
| +++ tools/cvs2fossil/lib/c2f_state.tcl | ||
| @@ -98,18 +98,22 @@ | ||
| 98 | 98 | typemethod writing {name definition} { |
| 99 | 99 | # Method for a user to declare a table its needs for storing |
| 100 | 100 | # persistent state, and the expected structure. A possibly |
| 101 | 101 | # previously existing definition is dropped. |
| 102 | 102 | |
| 103 | + log write 0 state "writing $name" ; # TODO move to level 5 or so | |
| 104 | + | |
| 103 | 105 | $mystate transaction { |
| 104 | 106 | catch { $mystate eval "DROP TABLE $name" } |
| 105 | 107 | $mystate eval "CREATE TABLE $name ( $definition )" |
| 106 | 108 | } |
| 107 | 109 | return |
| 108 | 110 | } |
| 109 | 111 | |
| 110 | 112 | typemethod reading {name} { |
| 113 | + log write 0 state "reading $name" ; # TODO move to level 5 or so | |
| 114 | + | |
| 111 | 115 | # Method for a user to declare a table it wishes to read |
| 112 | 116 | # from. A missing table is an internal error causing an |
| 113 | 117 | # immediate exit. |
| 114 | 118 | |
| 115 | 119 | set found [llength [$mystate eval { |
| 116 | 120 |
| --- tools/cvs2fossil/lib/c2f_state.tcl | |
| +++ tools/cvs2fossil/lib/c2f_state.tcl | |
| @@ -98,18 +98,22 @@ | |
| 98 | typemethod writing {name definition} { |
| 99 | # Method for a user to declare a table its needs for storing |
| 100 | # persistent state, and the expected structure. A possibly |
| 101 | # previously existing definition is dropped. |
| 102 | |
| 103 | $mystate transaction { |
| 104 | catch { $mystate eval "DROP TABLE $name" } |
| 105 | $mystate eval "CREATE TABLE $name ( $definition )" |
| 106 | } |
| 107 | return |
| 108 | } |
| 109 | |
| 110 | typemethod reading {name} { |
| 111 | # Method for a user to declare a table it wishes to read |
| 112 | # from. A missing table is an internal error causing an |
| 113 | # immediate exit. |
| 114 | |
| 115 | set found [llength [$mystate eval { |
| 116 |
| --- tools/cvs2fossil/lib/c2f_state.tcl | |
| +++ tools/cvs2fossil/lib/c2f_state.tcl | |
| @@ -98,18 +98,22 @@ | |
| 98 | typemethod writing {name definition} { |
| 99 | # Method for a user to declare a table its needs for storing |
| 100 | # persistent state, and the expected structure. A possibly |
| 101 | # previously existing definition is dropped. |
| 102 | |
| 103 | log write 0 state "writing $name" ; # TODO move to level 5 or so |
| 104 | |
| 105 | $mystate transaction { |
| 106 | catch { $mystate eval "DROP TABLE $name" } |
| 107 | $mystate eval "CREATE TABLE $name ( $definition )" |
| 108 | } |
| 109 | return |
| 110 | } |
| 111 | |
| 112 | typemethod reading {name} { |
| 113 | log write 0 state "reading $name" ; # TODO move to level 5 or so |
| 114 | |
| 115 | # Method for a user to declare a table it wishes to read |
| 116 | # from. A missing table is an internal error causing an |
| 117 | # immediate exit. |
| 118 | |
| 119 | set found [llength [$mystate eval { |
| 120 |