Changes In Branch v1.81-better sync Excluding Merge-Ins
This is equivalent to a diff from 98f3441b4f to fab9bf9c5c
|
2024-08-19
| ||
| 11:42 | CI/CD: Automated commit after successful test, build, and deploy for v1.81-fix-extract-scripts check-in: 29155bc147 user: fdiskadm tags: v1.81 | |
|
2024-08-16
| ||
| 13:34 | Patched forward the adjutant code that got lost in v1.65 Leaf check-in: 13060ce126 user: matt tags: v1.81-adjutant | |
|
2024-08-13
| ||
| 12:55 | removed extra copy of launch:extract-scripts-logpro and corrected it to add .logpro to the logpro filenames check-in: e829926867 user: mmgraham tags: v1.81-fix-extract-scripts | |
|
2024-07-17
| ||
| 19:21 | Changed Megatest version to v1.8181 check-in: a748f29739 user: icfadm tags: v1.81 | |
| 19:17 | Lower gating on test launch to 0.05 journal load. Add exception handler for file-modification-time on .servinfo files check-in: 7c315bd32d user: mrwellan tags: v1.81-fixes | |
| 17:13 | Move sync transaction in an attempt to free up bound time in .mtdb/*.db files Leaf check-in: fab9bf9c5c user: mrwellan tags: v1.81-better sync | |
|
2024-07-15
| ||
| 15:47 | Changed Megatest version to 1.8102 check-in: 98f3441b4f user: icfadm tags: v1.81 | |
| 15:12 | CI/CD: Automated commit after successful test, build, and deploy for v1.81-bump-server-load check-in: 1fff14fbea user: fdiskadm tags: v1.81 | |
Modified dbmod.scm from [7686817692] to [18e9c24629].
| ︙ | ︙ | |||
407 408 409 410 411 412 413 |
(is-trigger-dropped (if has-last-update
(db:is-trigger-dropped db tablename)
#f))
(stmth (sqlite3:prepare db full-ins))
(changed-rows 0))
(for-each
(lambda (fromdat-lst)
| < < < < | > > > > | | > | < | > > | | 407 408 409 410 411 412 413 414 415 416 417 418 419 420 421 422 423 424 425 426 427 428 429 430 431 432 433 434 435 436 437 438 439 440 441 442 443 444 445 446 447 |
(is-trigger-dropped (if has-last-update
(db:is-trigger-dropped db tablename)
#f))
(stmth (sqlite3:prepare db full-ins))
(changed-rows 0))
(for-each
(lambda (fromdat-lst)
(for-each ;;
(lambda (fromrow)
(let* ((a (vector-ref fromrow 0))
(curr (hash-table-ref/default todat a #f))
(same #t))
(let loop ((i 0))
(if (or (not curr)
(not (equal? (vector-ref fromrow i)(vector-ref curr i))))
(set! same #f))
(if (and same
(< i (- num-fields 1)))
(loop (+ i 1))))
(if (not same)
(begin
(mutex-lock! *db-transaction-mutex*)
(sqlite3:with-transaction
db
(lambda ()
(apply sqlite3:execute stmth (vector->list fromrow))
(hash-table-set! numrecs tablename
(+ 1 (hash-table-ref/default numrecs tablename 0)))
(set! changed-rows (+ changed-rows 1))))
(mutex-unlock! *db-transaction-mutex*)
))))
fromdat-lst))
fromdats)
;; (debug:print 0 *default-log-port* "row="row)
(sqlite3:finalize! stmth)
(if (member "last_update" field-names)
(db:create-trigger db tablename)))
))
tbls)
(let* ((runtime (- (current-milliseconds) start-time))
|
| ︙ | ︙ |
Modified matt/buttontest.scm from [4c1acbf3a4] to [7bf96cb14f].
| ︙ | ︙ | |||
43 44 45 46 47 48 49 |
(iup:attribute-set! img1 "2" bgcolor) ;; "BGCOLOR")
(iup:attribute-set! img1 "3" tcolor)
name))
(iup:show
(iup:dialog
(iup:vbox
| | | 43 44 45 46 47 48 49 50 51 52 53 |
(iup:attribute-set! img1 "2" bgcolor) ;; "BGCOLOR")
(iup:attribute-set! img1 "3" tcolor)
name))
(iup:show
(iup:dialog
(iup:vbox
(iup:button " " image: (make-image "YellowBlack" "255 255 0" "0 0 0")))))
(iup:main-loop)
)
|