Overview
| Comment: | Process registration now working |
|---|---|
| Downloads: | Tarball | ZIP archive | SQL archive |
| Timelines: | family | ancestors | descendants | both | v1.80-processes |
| Files: | files | file ages | folders |
| SHA1: |
169e4f3073a5164d01cece5675660aaa |
| User & Date: | matt on 2023-10-02 07:00:19 |
| Other Links: | branch diff | manifest | tags |
Context
|
2023-10-02
| ||
| 19:56 | fixed uses in dbfile check-in: 119cfc1040 user: mrwellan tags: v1.80-processes | |
| 07:00 | Process registration now working check-in: 169e4f3073 user: matt tags: v1.80-processes | |
| 06:19 | Fixed schema typo check-in: 4ce89b978d user: matt tags: v1.80-processes | |
Changes
Modified dbfile.scm from [a21f068239] to [24616e6fd1].
| ︙ | ︙ | |||
493 494 495 496 497 498 499 |
(sqlite3:execute db "PRAGMA synchronous = 0;")
(sqlite3:set-busy-handler! db (sqlite3:make-busy-timeout 136000))))
db))
;; processes table calls
(define (dbfile:register-process nsdb host port pid starttime status purpose dbname mtversion)
| | | 493 494 495 496 497 498 499 500 501 502 503 504 505 506 507 |
(sqlite3:execute db "PRAGMA synchronous = 0;")
(sqlite3:set-busy-handler! db (sqlite3:make-busy-timeout 136000))))
db))
;; processes table calls
(define (dbfile:register-process nsdb host port pid starttime status purpose dbname mtversion)
(sqlite3:execute nsdb "INSERT INTO processes (host,port,pid,starttime,status,purpose,dbname,mtversion) VALUES (?,?,?,?,?,?,?,?);"
host port pid starttime status purpose dbname mtversion))
(define (dbfile:set-process-status nsdb host pid newstatus)
(sqlite3:execute nsdb "UPDATE processes SET status=? WHERE host=? AND pid=?;" newstatus host pid))
(define (dbfile:get-process-options nsdb purpose dbname)
(sqlite3:fold-row
|
| ︙ | ︙ |