Overview
| Comment: | increased minimum default disk space to ~1GB |
|---|---|
| Downloads: | Tarball | ZIP archive | SQL archive |
| Timelines: | family | ancestors | descendants | both | v1.65 |
| Files: | files | file ages | folders |
| SHA1: |
f1c2d09357c06f953a50e116c3f79d6d |
| User & Date: | mmgraham on 2020-06-04 18:17:20 |
| Other Links: | branch diff | manifest | tags |
Context
|
2020-06-05
| ||
| 15:37 | changed megatest verion to 51 check-in: dac2533ee3 user: mmgraham tags: v1.65, v1.6551 | |
|
2020-06-04
| ||
| 18:17 | increased minimum default disk space to ~1GB check-in: f1c2d09357 user: mmgraham tags: v1.65 | |
| 16:57 | enhanced -remove-runs to check for the existence of the target and run name in paths to delete, and to delete all run paths on each disk. check-in: 6bb9465eb1 user: mmgraham tags: v1.65 | |
Changes
Modified common.scm from [9a1d758071] to [c85ab27a6e].
| ︙ | ︙ | |||
2139 2140 2141 2142 2143 2144 2145 2146 | dirpath))) ;; check space in dbdir and in megatest dir ;; returns: ok/not dbspace required-space ;; (define (common:check-db-dir-space) (let* ((required (string->number (or (configf:lookup *configdat* "setup" "dbdir-space-required") | > | | 2139 2140 2141 2142 2143 2144 2145 2146 2147 2148 2149 2150 2151 2152 2153 2154 2155 |
dirpath)))
;; check space in dbdir and in megatest dir
;; returns: ok/not dbspace required-space
;;
(define (common:check-db-dir-space)
(let* ((required (string->number
;; default is 1GB (or actually a billion bytes) This is the number of 1 kB blocks.
(or (configf:lookup *configdat* "setup" "dbdir-space-required")
"1000000")))
(dbdir (common:get-db-tmp-area)) ;; (db:get-dbdir))
(tdbspace (common:check-space-in-dir dbdir required))
(mdbspace (common:check-space-in-dir *toppath* required)))
(sort (list tdbspace mdbspace) (lambda (a b)
(< (cadr a)(cadr b))))))
;; check available space in dbdir, exit if insufficient
|
| ︙ | ︙ |