Differences From Artifact [36a4964f50]:
- File attic/portlogger.scm — part of check-in [101ee7c52b] at 2021-03-06 04:39:46 on branch v1.65-real-chicken-5 — Try a grounds-up switch to chicken-5 (user: matt, size: 7840) [annotate] [blame] [check-ins using]
- File portlogger.scm — part of check-in [e6e04b8c79] at 2019-11-04 20:47:50 on branch v1.65-merge-fixes — Applied more fixes from modulization work (user: matt, size: 7840) [annotate] [blame] [check-ins using]
To Artifact [20f479e9c6]:
- File portlogger.scm — part of check-in [681937af52] at 2021-02-15 00:17:24 on branch v1.6569-multi-db-wip — Few more issues cleaned up and it seems to be running (user: matt, size: 7975) [annotate] [blame] [check-ins using] [more...]
︙ | |||
20 21 22 23 24 25 26 27 28 29 30 31 32 33 | 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 | + + + + + + + + + | (require-extension (srfi 18) extras tcp s11n) (use sqlite3 srfi-1 posix srfi-69 hostinfo dot-locking z3) (import (prefix sqlite3 sqlite3:)) (declare (unit portlogger)) (declare (uses db)) (declare (uses commonmod)) (import commonmod) (declare (uses configfmod)) (import configfmod) (declare (uses dbmod)) (import dbmod) ;; lsof -i (define (portlogger:open-db fname) (let* ((avail (tasks:wait-on-journal fname 5 remove: #t)) ;; wait up to about 10 seconds for the journal to go away (exists (common:file-exists? fname)) (db (if avail |
︙ |