Overview
| Comment: | added modules to launch.scm and portlogger.scm and tasks.scm; eliminating various stack dumps |
|---|---|
| Downloads: | Tarball | ZIP archive | SQL archive |
| Timelines: | family | ancestors | descendants | both | v2.01-local-mtfiles | v2.01-try-1 |
| Files: | files | file ages | folders |
| SHA1: |
650916aff7b6a115d4b9d2fd3ed05d42 |
| User & Date: | bjbarcla on 2019-01-07 11:51:46 |
| Other Links: | branch diff | manifest | tags |
Context
|
2019-01-07
| ||
| 17:21 | updated repository-path to work for any chicken number check-in: 831718d65c user: bjbarcla tags: v2.01-local-mtfiles, v2.01-try-1 | |
| 11:51 | added modules to launch.scm and portlogger.scm and tasks.scm; eliminating various stack dumps check-in: 650916aff7 user: bjbarcla tags: v2.01-local-mtfiles, v2.01-try-1 | |
| 10:18 | added modules.scm into Makefile dependencies; sped up config processing by changing uses to inports in dynamic configf code additions check-in: cdd8afd673 user: bjbarcla tags: v2.01-local-mtfiles, v2.01-try-1 | |
Changes
Modified launch.scm from [842e7c397c] to [fff95c3307].
| ︙ | ︙ | |||
656 657 658 659 660 661 662 | (lambda (section) (for-each (lambda (varval) (let ((var (car varval)) (val (cadr varval))) (if (and (string? var)(string? val)) (begin | | | 656 657 658 659 660 661 662 663 664 665 666 667 668 669 670 |
(lambda (section)
(for-each
(lambda (varval)
(let ((var (car varval))
(val (cadr varval)))
(if (and (string? var)(string? val))
(begin
(safe-setenv var (configf:eval-string-in-environment val))) ;; val)
(debug:print-error 0 *default-log-port* "bad variable spec, " var "=" val))))
(configf:get-section rconfig section)))
(list "default" target)))
;;(bb-check-path msg: "launch:execute post block 1")
;; NFS might not have propagated the directory meta data to the run host - give it time if needed
(let loop ((count 0))
|
| ︙ | ︙ |
Modified portlogger.scm from [e20c043f4d] to [1e31f0db2f].
| ︙ | ︙ | |||
22 23 24 25 26 27 28 | (use sqlite3 srfi-1 posix srfi-69 hostinfo dot-locking z3) (import (prefix sqlite3 sqlite3:)) (declare (unit portlogger)) (declare (uses db)) ;; (use (prefix mtconfigf configf:)) ;; lsof -i | | | 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 | (use sqlite3 srfi-1 posix srfi-69 hostinfo dot-locking z3) (import (prefix sqlite3 sqlite3:)) (declare (unit portlogger)) (declare (uses db)) ;; (use (prefix mtconfigf configf:)) ;; lsof -i (include "modules.scm") (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 (sqlite3:open-database fname) (begin |
| ︙ | ︙ |
Modified tasks.scm from [1912af09f3] to [3ce858550a].
| ︙ | ︙ | |||
27 28 29 30 31 32 33 | (declare (uses common)) (declare (uses pgdb)) ;; (import pgdb) ;; pgdb is a module (include "task_records.scm") (include "db_records.scm") | | | 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 | (declare (uses common)) (declare (uses pgdb)) ;; (import pgdb) ;; pgdb is a module (include "task_records.scm") (include "db_records.scm") (include "modules.scm") ;;====================================================================== ;; Tasks db ;;====================================================================== ;; wait up to aprox n seconds for a journal to go away ;; (define (tasks:wait-on-journal path n #!key (remove #f)(waiting-msg #f)) |
| ︙ | ︙ |