Overview
| Comment: | Oops. Dropped a function. Added it back... |
|---|---|
| Downloads: | Tarball | ZIP archive | SQL archive |
| Timelines: | family | ancestors | descendants | both | v1.65-real |
| Files: | files | file ages | folders |
| SHA1: |
405c573a88ec1d3fd84fb8a2dd7f1278 |
| User & Date: | matt on 2021-02-15 20:34:50 |
| Other Links: | branch diff | manifest | tags |
Context
|
2021-02-25
| ||
| 15:46 | Missing dep. check-in: 80a01976f7 user: matt tags: v1.65-real | |
|
2021-02-15
| ||
| 21:46 | New runs view check-in: 6401245dc8 user: matt tags: v1.65-real-new-runs-view | |
| 20:34 | Oops. Dropped a function. Added it back... check-in: 405c573a88 user: matt tags: v1.65-real | |
|
2021-02-14
| ||
| 22:33 | Synced minor changes from modularized v1.6569-mult-db-wip branch check-in: f8657e116c user: matt tags: v1.65-real | |
Changes
Modified common.scm from [09a3819ae9] to [82673dacdb].
| ︙ | ︙ | |||
230 231 232 233 234 235 236 237 238 239 240 241 242 243 |
fullpath))
;;======================================================================
(define *common:this-exe-fullpath* (common:get-this-exe-fullpath))
(define *common:this-exe-dir* (pathname-directory *common:this-exe-fullpath*))
(define *common:this-exe-name* (pathname-strip-directory *common:this-exe-fullpath*))
;;======================================================================
;; when called from a wrapper I need sometimes to find the calling
;; wrapper, this is for dashboard to find the correct megatest.
;;
(define (common:find-local-megatest #!optional (progname "megatest"))
(let ((res (filter file-exists?
| > > > > > | 230 231 232 233 234 235 236 237 238 239 240 241 242 243 244 245 246 247 248 |
fullpath))
;;======================================================================
(define *common:this-exe-fullpath* (common:get-this-exe-fullpath))
(define *common:this-exe-dir* (pathname-directory *common:this-exe-fullpath*))
(define *common:this-exe-name* (pathname-strip-directory *common:this-exe-fullpath*))
(define (common:get-sync-lock-filepath)
(let* ((tmp-area (common:get-db-tmp-area))
(lockfile (conc tmp-area "/megatest.db.sync-lock")))
lockfile))
;;======================================================================
;; when called from a wrapper I need sometimes to find the calling
;; wrapper, this is for dashboard to find the correct megatest.
;;
(define (common:find-local-megatest #!optional (progname "megatest"))
(let ((res (filter file-exists?
|
| ︙ | ︙ |