Overview
Comment: | Added COMMIT protection to rebase script. |
---|---|
Downloads: | Tarball | ZIP archive | SQL archive |
Timelines: | family | ancestors | descendants | both | v1.66 |
Files: | files | file ages | folders |
SHA1: |
65ed339ae65f52fa36c29a54d3f07ba1 |
User & Date: | mrwellan on 2020-05-29 16:02:29 |
Other Links: | branch diff | manifest | tags |
Context
2020-05-30
| ||
23:23 | More rebase stuff check-in: 8a325f6249 user: matt tags: v1.66 | |
2020-05-29
| ||
16:02 | Added COMMIT protection to rebase script. check-in: 65ed339ae6 user: mrwellan tags: v1.66 | |
09:51 | fossil rebase basically working check-in: 3e683f6d9f user: matt tags: v1.66 | |
Changes
Modified fossil-utils/fossilrebase.scm from [099aa193d9] to [e9f5abfd6c].
| 1 2 3 4 5 6 7 8 | - + |
|
︙ | |||
63 64 65 66 67 68 69 70 71 72 73 74 75 76 | 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 | + + + | '("user" "comment")) (refdb-set-value dbname "extra" uuid "parents" (string-intersperse (get-val rec "parents") ",")) (refdb-set-value dbname "timeline" uuid "timestamp" (seconds->std-time-str (get-val rec "timestamp"))) (refdb-set-value dbname "timeline" uuid "timestamp_sec" (any->string (get-val rec "timestamp"))) )))) timeline)))) (define (escape-string-for-bash str) (string-substitute "'" "''" str #t)) ;; tag0 tag1 tag2 cherrypick backout hide usedate recomment user ;; comment timestamp timestamp_sec ;; (define (get-node-details db node-id) (let* ((result #f) (count 0)) (for-each-row |
︙ | |||
119 120 121 122 123 124 125 | 122 123 124 125 126 127 128 129 130 131 132 133 134 135 136 137 | - - + + | (tag0 . ,tag0) (cherrypick . ,cherrypick) (do-commit . ,do-commit) (usedate . ,usedate) (comment . ,comment) (recomment . ,recomment)) res))) |
︙ | |||
153 154 155 156 157 158 159 | 156 157 158 159 160 161 162 163 164 165 166 167 168 169 170 171 172 173 174 175 176 177 178 179 180 181 182 183 184 185 186 187 188 189 190 191 192 193 194 195 196 197 198 199 200 201 202 203 204 205 206 207 208 209 210 211 212 213 214 215 216 217 218 219 220 221 222 | - + + - - + + - + + + + + + + + + + + - + + - + | (parent-user (alist-ref 'user parent-info))) (print "fossil branch new " branch-name " " parent-node " --private --date-override '" parent-date "'") ;; (print "Creating private branch " branch-name " from node " parent-node) ;; (pp parent-info) ;; (print "") )))) |
︙ |
Added fossil-utils/justtesting/branches.dat version [5da301cb6b].
|
Modified fossil-utils/justtesting/sxml/_sheets.sxml from [978ea67d12] to [e8cb4f18e3].
1 2 3 | 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 | - - - + + + + + + + + - - - + | ((@ (http://www.w3.org/2001/XMLSchema-instance:schemaLocation "http://www.gnumeric.org/v9.xsd")) (http://www.gnumeric.org/v10.dtd:Version |
︙ |
Added fossil-utils/justtesting/sxml/branches.sxml version [b953d90bd4].