Overview
| Comment: | Quiet up some output |
|---|---|
| Downloads: | Tarball | ZIP archive | SQL archive |
| Timelines: | family | ancestors | v2.0001 |
| Files: | files | file ages | folders |
| SHA1: |
ec1d564207709b9dedc5d9e6395baac6 |
| User & Date: | matt on 2023-01-24 20:00:28 |
| Other Links: | branch diff | manifest | tags |
Context
|
2023-01-24
| ||
| 20:00 | Quiet up some output Leaf check-in: ec1d564207 user: matt tags: v2.0001 | |
| 17:55 | Semi-speculative 'fixes' for transient communications problems. check-in: 490ba0207e user: matt tags: v2.0001 | |
Changes
Modified dbmod.scm from [edbdd74654] to [4aef129422].
| ︙ | ︙ | |||
1024 1025 1026 1027 1028 1029 1030 | (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 | | | 1024 1025 1026 1027 1028 1029 1030 1031 1032 1033 1034 1035 1036 1037 1038 |
(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
(debug:print 2 *default-log-port* "applying data "fromrow"to table "tablename", numrecs="numrecs)
(apply sqlite3:execute stmth (vector->list fromrow))
(hash-table-set! numrecs tablename (+ 1 (hash-table-ref/default numrecs tablename 0)))))))
fromdat-lst))))
fromdats)
(sqlite3:finalize! stmth)
(if (member "last_update" field-names)
(db:create-trigger db tablename)))))
|
| ︙ | ︙ |
Modified ulex-full/ulex.scm from [2c2b2f2441] to [c73b8e0289].
| ︙ | ︙ | |||
433 434 435 436 437 438 439 |
(let* ((start-time (current-milliseconds))
(result (proc rem-host-port qrykey cmd params))
(end-time (current-milliseconds))
(run-time (- end-time start-time)))
(case (work-method)
((direct) result)
(else
| | > | | 433 434 435 436 437 438 439 440 441 442 443 444 445 446 447 448 449 450 451 |
(let* ((start-time (current-milliseconds))
(result (proc rem-host-port qrykey cmd params))
(end-time (current-milliseconds))
(run-time (- end-time start-time)))
(case (work-method)
((direct) result)
(else
(if (> run-time 1000)(print "ULEX: Warning, work "cmd", "params" done in "run-time" ms"))
;; send 'response as cmd and result as params
(send uconn rem-host-port qrykey 'response result) ;; could check for ack
(let* ((duration (- (current-milliseconds) end-time)))
(if (> duration 500)(print "ULEX: Warning, response sent back to "rem-host-port" for "qrykey" in "duration"ms")))))))
(MBOX_TIMEOUT 'do-work-timeout)
(else
(print "ERROR: rdat "rdat", did not match rem-host-port qrykey cmd params")))))
;; NEW APPROACH:
;;
(define (process-work-queue uconn)
|
| ︙ | ︙ |