Overview
Comment: | Sync up with v2.0001 |
---|---|
Downloads: | Tarball | ZIP archive | SQL archive |
Timelines: | family | ancestors | descendants | both | v2.0001-ulex-one-shot |
Files: | files | file ages | folders |
SHA1: |
d7b4fe7a7fa00bb8d2d8f34ef010754e |
User & Date: | matt on 2022-01-12 16:52:23 |
Other Links: | branch diff | manifest | tags |
Context
2022-01-12
| ||
17:49 | Switched back to tcp6 check-in: 1b8dcc586b user: matt tags: v2.0001-ulex-one-shot | |
16:52 | Sync up with v2.0001 check-in: d7b4fe7a7f user: matt tags: v2.0001-ulex-one-shot | |
16:40 | wip, misc cleanup and reduce some messages. check-in: 20b4054f76 user: matt tags: v2.0001 | |
2022-01-10
| ||
12:54 | wip check-in: 9ae53d1765 user: matt tags: v2.0001-ulex-one-shot | |
Changes
Modified apimod.scm from [97d3b608d8] to [37041542cf].
︙ | |||
173 174 175 176 177 178 179 | 173 174 175 176 177 178 179 180 181 182 183 184 185 186 187 188 189 | - - + + + | (logd (conc apath "/logs")) (logf (conc logd "/server-launch-";;(current-process-id) (seconds->year-work-week/day-time-fname (current-seconds)) "-"cleandbname".log")) (logf2 (conc logd "/server-" (seconds->year-work-week/day-time-fname (current-seconds)) "-"cleandbname"-")) |
︙ |
Modified dashboard.scm from [cc72246a09] to [4505f63ba6].
︙ | |||
3640 3641 3642 3643 3644 3645 3646 | 3640 3641 3642 3643 3644 3645 3646 3647 3648 3649 3650 3651 3652 3653 3654 | - + | (define (dashboard:do-update-rundat tabdat) (dboard:update-rundat tabdat (hash-table-ref/default (dboard:tabdat-searchpatts tabdat) "runname" "%") (dboard:tabdat-numruns tabdat) (hash-table-ref/default (dboard:tabdat-searchpatts tabdat) "test-name" "%/%") ;; generate key patterns from the target stored in tabdat |
︙ |
Modified dbmod.scm from [4d2069b432] to [ac637164a6].
︙ | |||
691 692 693 694 695 696 697 | 691 692 693 694 695 696 697 698 699 700 701 702 703 704 705 706 707 | + + - + | ;; ;; (mutex-unlock! *db-multi-sync-mutex*) ;; ;; (stack-push! (dbr:dbstruct-dbstack dbstruct) tmpdb))) ;; NOTE: touched logic is disabled/not done ;; sync run to disk if touched ;; (define (db:sync-inmem->disk dbstruct apath dbfile #!key (force-sync #f)) (if #f (debug:print-info 0 *default-log-port* "syncing "*toppath*" "dbfile" at "(current-seconds)) |
︙ |
Modified rmtmod.scm from [63c06f1ce1] to [c55aca3d24].
︙ | |||
2136 2137 2138 2139 2140 2141 2142 | 2136 2137 2138 2139 2140 2141 2142 2143 2144 2145 2146 2147 2148 2149 | - | (debug:print-info 0 *default-log-port* "Starting watchdog thread (in state "(thread-state watchdog)")") (thread-start! watchdog)) (debug:print-info 0 *default-log-port* "Not starting watchdog thread (in state "(thread-state watchdog)")")) (debug:print 0 *default-log-port* "ERROR: *watchdog* not setup, cannot start it.")) #;(loop (+ count 1) bad-sync-count start-time) )) |
︙ |
Modified ulex-trials/Makefile from [e108f86d9a] to [cec464a43d].
| 1 2 3 4 5 6 7 8 | - + - + |
|
Modified ulex-trials/ulex-test.scm from [563b467581] to [f76ffe0828].
︙ | |||
22 23 24 25 26 27 28 | 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 | - - + - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - + - - - - - - - - - - - - - - - - - - - - - - - - - - + - - + | directory-utils ulex ) (define help "Usage: ulex-test COMMAND where COMMAND is one of: |
︙ | |||
110 111 112 113 114 115 116 | 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 100 | - - + + - - - + + + + + - - - - - + - - + - + | (conc msg " 0")) (else "hello 0")))) (define (main) (match (command-line-arguments) |
Modified ulex.scm from [64369b6c76] to [f004a2cedd].
︙ | |||
16 17 18 19 20 21 22 | 16 17 18 19 20 21 22 23 24 | - - + + | ;; You should have received a copy of the GNU General Public License ;; along with Megatest. If not, see <http://www.gnu.org/licenses/>. ;;====================================================================== (declare (unit ulex)) |
Modified ulex/ulex.scm from [ded9484f4d] to [81b8992868].
︙ | |||
22 23 24 25 26 27 28 | 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 | - + + | ;; See README in the distribution at https://www.kiatoa.com/fossils/ulex ;; NOTES: ;; Why sql-de-lite and not say, dbi? - performance mostly, then simplicity. ;; ;;====================================================================== (module ulex |
︙ | |||
105 106 107 108 109 110 111 | 106 107 108 109 110 111 112 113 114 115 116 117 118 119 120 121 122 123 124 125 126 127 | - + - + | (work-queue-thread #f) (num-threads-running 0) ) ;; Parameters ;; work-method: |
︙ | |||
216 217 218 219 220 221 222 | 217 218 219 220 221 222 223 224 225 226 227 228 229 230 231 232 233 234 235 236 237 238 239 240 241 242 243 244 245 246 247 248 249 250 251 252 253 254 255 256 257 258 259 260 261 262 263 264 265 266 267 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 295 296 297 298 299 300 301 302 303 304 305 306 307 308 309 310 311 312 313 314 315 316 317 318 319 320 321 322 323 324 325 326 327 328 329 330 331 332 333 334 335 336 337 338 339 340 341 342 | - + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + - - - - - - - - - + + + + + + + + + - - + - - + - - - - + - - - - - - - - - - - - + + + - - - - - + + - - - - - - - - + - - - - - - + + - - - + - - - - - - - - - + | ;; - I believe (without substantial evidence) that re-using connections will ;; be beneficial ... ;; (define (send udata host-port qrykey cmd params) (let* ((my-host-port (udat-host-port udata)) ;; remote will return to this (isme #f #;(equal? host-port my-host-port)) ;; calling myself? ;; dat is a self-contained work block that can be sent or handled locally |
︙ |