Overview
| Comment: | moved make-tmpdir-name into commonmod |
|---|---|
| Downloads: | Tarball | ZIP archive | SQL archive |
| Timelines: | family | ancestors | descendants | both | v1.80-processes |
| Files: | files | file ages | folders |
| SHA1: |
1624c400a97164772a8f66d5b62436ae |
| User & Date: | mmgraham on 2023-10-19 16:09:41 |
| Other Links: | branch diff | manifest | tags |
Context
|
2023-10-19
| ||
| 18:55 | changed a debug msg to level2, increased delay from 0.5 to 2 secs Leaf check-in: 60b31fb56a user: mmgraham tags: v1.80-processes | |
| 16:09 | moved make-tmpdir-name into commonmod check-in: 1624c400a9 user: mmgraham tags: v1.80-processes | |
| 15:39 | covered case where megatest.sh does not exist check-in: 4f1a1fc90c user: mmgraham tags: v1.80 | |
Changes
Modified common.scm from [c00500b3f7] to [0854266963].
| ︙ | ︙ | |||
39 40 41 42 43 44 45 | (import commonmod debugprint rmtmod (prefix mtargs args:)) (include "common_records.scm") | < < < < < < < | 39 40 41 42 43 44 45 46 47 48 49 50 51 52 |
(import commonmod
debugprint
rmtmod
(prefix mtargs args:))
(include "common_records.scm")
(define (remove-files filespec)
(let ((files (glob filespec)))
(for-each delete-file files)))
(define (stop-the-train)
(thread-start! (make-thread (lambda ()
(let loop ()
|
| ︙ | ︙ |
Modified commonmod.scm from [7e88abb9dd] to [5c1deb5d33].
| ︙ | ︙ | |||
158 159 160 161 162 163 164 165 166 167 168 169 170 171 |
(if valstr
(val->alist valstr)
'()))) ;; should it return empty list or #f to indicate not set?
(define (get-section cfgdat section)
(hash-table-ref/default cfgdat section '()))
;; dot-locking egg seems not to work, using this for now
;; if lock is older than expire-time then remove it and try again
;; to get the lock
;;
(define (common:simple-file-lock fname #!key (expire-time 300))
(let* ((lock-exists (file-exists? fname))
| > > > > > > > | 158 159 160 161 162 163 164 165 166 167 168 169 170 171 172 173 174 175 176 177 178 |
(if valstr
(val->alist valstr)
'()))) ;; should it return empty list or #f to indicate not set?
(define (get-section cfgdat section)
(hash-table-ref/default cfgdat section '()))
(define (common:make-tmpdir-name areapath tmpadj)
(let* ((area (pathname-file areapath))
(dname (conc "/tmp/"(current-user-name)"/megatest_localdb/" area "/" (string-translate areapath "/" ".") tmpadj "/.mtdb")))
(unless (directory-exists? dname)
(create-directory dname #t))
dname))
;; dot-locking egg seems not to work, using this for now
;; if lock is older than expire-time then remove it and try again
;; to get the lock
;;
(define (common:simple-file-lock fname #!key (expire-time 300))
(let* ((lock-exists (file-exists? fname))
|
| ︙ | ︙ |