Differences From Artifact [5eebf6582a]:
- File
dbfile.scm
— part of check-in
[e607892c7d]
at
2023-10-20 05:12:31
on branch v1.80
— Merged fork
This node ran run-core-tests.sh through kill-rerun - a pretty good result. Dashboard comes up quickly also. (user: mrwellan, size: 60753) [annotate] [blame] [check-ins using] [more...]
To Artifact [6840895eab]:
- File dbfile.scm — part of check-in [53900a0d02] at 2023-10-20 04:57:36 on branch v1.80-start-all — Merged fork (user: mrwellan, size: 60828) [annotate] [blame] [check-ins using] [more...]
| ︙ | |||
579 580 581 582 583 584 585 586 587 588 589 590 591 592 | 579 580 581 582 583 584 585 586 587 588 589 590 591 592 593 | + |
(define (dbfile:register-process nsdb host port pid starttime endtime status purpose dbname mtversion)
(sqlite3:execute nsdb "INSERT INTO processes (host,port,pid,starttime,endtime,status,purpose,dbname,mtversion) VALUES (?,?,?,?,?,?,?,?,?);"
host port pid starttime endtime 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))
;; get list of process records to examine for suitabliity of connecting to
(define (dbfile:get-process-options nsdb purpose dbname)
(sqlite3:fold-row
;; host port pid starttime status mtversion
(lambda (res . row)
(cons row res))
'()
nsdb
|
| ︙ |