Overview
| Comment: | Corrected few typos |
|---|---|
| Downloads: | Tarball | ZIP archive | SQL archive |
| Timelines: | family | ancestors | descendants | both | v1.60 |
| Files: | files | file ages | folders |
| SHA1: |
d575c7cef1c1ab2f84ddc4cb0964a99e |
| User & Date: | matt on 2014-12-08 23:44:11 |
| Other Links: | branch diff | manifest | tags |
Context
|
2014-12-09
| ||
| 09:29 | Unlock communication mutex on recoverable crash. Return #f when communication fails, not (vector #f stuff ...) check-in: d5009e9f15 user: mrwellan tags: v1.60 | |
|
2014-12-08
| ||
| 23:44 | Corrected few typos check-in: d575c7cef1 user: matt tags: v1.60 | |
| 23:31 | Added most of what is needed for archiving check-in: e9d174e213 user: matt tags: v1.60 | |
Changes
Modified common.scm from [ce101476b0] to [c8ccce8193].
| ︙ | ︙ | |||
521 522 523 524 525 526 527 |
(if (number? newval)
(set! freespc newval))))))
(car df-results))
freespc))
;; paths is list of lists ((name path) ... )
;;
| | | 521 522 523 524 525 526 527 528 529 530 531 532 533 534 535 |
(if (number? newval)
(set! freespc newval))))))
(car df-results))
freespc))
;; paths is list of lists ((name path) ... )
;;
(define (common:get-disk-with-most-free-space disks minsize)
(let ((best #f)
(bestsize 0))
(for-each
(lambda (disk-num)
(let* ((dirpath (cadr (assoc disk-num disks)))
(freespc (cond
((not (directory? dirpath))
|
| ︙ | ︙ |
Modified launch.scm from [4ad514170d] to [7676bcea71].
| ︙ | ︙ | |||
537 538 539 540 541 542 543 | (debug:print-info 0 "Caching megatest.config in " fulldir "/.megatest.cfg") (configf:write-alist *configdat* tmpfile) (system (conc "ln -sf " tmpfile " " targfile)) ))))))) (define (get-best-disk confdat) (let* ((disks (hash-table-ref/default confdat "disks" #f)) | | | 537 538 539 540 541 542 543 544 545 546 547 548 549 550 551 |
(debug:print-info 0 "Caching megatest.config in " fulldir "/.megatest.cfg")
(configf:write-alist *configdat* tmpfile)
(system (conc "ln -sf " tmpfile " " targfile))
)))))))
(define (get-best-disk confdat)
(let* ((disks (hash-table-ref/default confdat "disks" #f))
(minspace (let ((m (configf:lookup confdat "setup" "minspace")))
(string->number (or m "10000")))))
(if disks
(let ((res (common:get-disk-with-most-free-space disks minspace))) ;; min size of 1000, seems tad dumb
(if res
(cdr res)
(begin
(if (common:low-noise-print 20 "no valid disks")
|
| ︙ | ︙ |