Overview
| Comment: | Comment out archive:main. It doesn't work and isn't needed. |
|---|---|
| Downloads: | Tarball | ZIP archive | SQL archive |
| Timelines: | family | ancestors | descendants | both | v1.65-try3 |
| Files: | files | file ages | folders |
| SHA1: |
600378be441be44b2ec38356993736c3 |
| User & Date: | mrwellan on 2019-11-21 14:31:19 |
| Other Links: | branch diff | manifest | tags |
Context
|
2019-11-24
| ||
| 20:48 | Make of mtest - deps fixed (I think). Still doesn't compile check-in: 88ef67d3ee user: matt tags: v1.65-try3 | |
|
2019-11-21
| ||
| 14:31 | Comment out archive:main. It doesn't work and isn't needed. check-in: 600378be44 user: mrwellan tags: v1.65-try3 | |
|
2019-11-20
| ||
| 22:46 | Pulled in some removed edits check-in: f27cf9f446 user: matt tags: v1.65-try3 | |
Changes
Modified archive-inc.scm from [cf335d492b] to [c38a444850].
| ︙ | ︙ | |||
20 21 22 23 24 25 26 | ;;====================================================================== ;; ;;====================================================================== ;; NOT CURRENTLY USED ;; | | | 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 |
;;======================================================================
;;
;;======================================================================
;; NOT CURRENTLY USED
;;
#;(define (archive:main linktree target runname testname itempath options)
(let ((testdir (conc linktree "/" target "/" runname "/" testname "/" itempatt))
(flavor 'plain) ;; type of machine to run jobs on
(maxload 1.5) ;; max allowed load for this work
(adisks (archive:get-archive-disks)))
;; get testdir size
;; - hand off du to job mgr
(if (and (common:file-exists? testdir)
|
| ︙ | ︙ |