Overview
| Comment: | Fixed (maybe) the won't run in another directory issue. |
|---|---|
| Downloads: | Tarball | ZIP archive | SQL archive |
| Timelines: | family | ancestors | descendants | both | v1.6584-ck5 |
| Files: | files | file ages | folders |
| SHA1: |
9b490d26cffe70c15f5a2a672696fff0 |
| User & Date: | matt on 2021-04-17 10:28:36 |
| Other Links: | branch diff | manifest | tags |
Context
|
2021-04-17
| ||
| 10:39 | Update makefile for install check-in: 5731777a0b user: matt tags: v1.6584-ck5 | |
| 10:28 | Fixed (maybe) the won't run in another directory issue. check-in: 9b490d26cf user: matt tags: v1.6584-ck5 | |
| 00:24 | Moved bunch of remaining non-modularized procs into modules check-in: a4b25b8489 user: matt tags: v1.6584-ck5 | |
Changes
Modified ducttape/ducttape-lib.scm from [61456ff87b] to [9367e6392e].
| ︙ | ︙ | |||
42 43 44 45 46 47 48 |
seconds->wwdate-values
isodate->seconds
isodate->wwdate
wwdate->seconds
wwdate->isodate
current-wwdate
current-isodate
| | | | | 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 |
seconds->wwdate-values
isodate->seconds
isodate->wwdate
wwdate->seconds
wwdate->isodate
current-wwdate
current-isodate
;; *this-exe-dir*
;; *this-exe-name*
;; *this-exe-fullpath*
)
(import scheme
chicken.base
chicken.condition
chicken.file
chicken.file.posix
|
| ︙ | ︙ | |||
1099 1100 1101 1102 1103 1104 1105 |
(caddr argv))
(else (car argv))))
;;(foo (begin (print "hello "(find-exe "/bin/sh") #f)))
(fullpath (or (find-exe this-script) (realpath this-script))))
fullpath))
| | | | | 1099 1100 1101 1102 1103 1104 1105 1106 1107 1108 1109 1110 1111 1112 1113 1114 1115 |
(caddr argv))
(else (car argv))))
;;(foo (begin (print "hello "(find-exe "/bin/sh") #f)))
(fullpath (or (find-exe this-script) (realpath this-script))))
fullpath))
;; (define *this-exe-fullpath* (__get-this-script-fullpath))
;; (define *this-exe-dir* (pathname-directory *this-exe-fullpath*))
;; (define *this-exe-name* (pathname-strip-directory *this-exe-fullpath*))
;;;; utility procedures
;; begin credit: megatest's process.scm
|
| ︙ | ︙ |
Modified megatest.scm from [44edba80d4] to [ca57f5aa14].
| ︙ | ︙ | |||
22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 | (declare (uses cookie)) (declare (uses csv-xml)) (declare (uses hostinfo)) (declare (uses adjutant)) (declare (uses archivemod)) (declare (uses apimod)) (declare (uses commonmod)) (declare (uses configfmod)) (declare (uses dbmod)) (declare (uses ducttape-lib)) (declare (uses ezstepsmod)) (declare (uses http-transportmod)) (declare (uses launchmod)) (declare (uses mtargs)) (declare (uses mtver)) (declare (uses mutils)) | > > | 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 | (declare (uses cookie)) (declare (uses csv-xml)) (declare (uses hostinfo)) (declare (uses adjutant)) (declare (uses archivemod)) (declare (uses apimod)) (declare (uses autoload)) (declare (uses commonmod)) (declare (uses configfmod)) (declare (uses dbmod)) (declare (uses dbi)) (declare (uses ducttape-lib)) (declare (uses ezstepsmod)) (declare (uses http-transportmod)) (declare (uses launchmod)) (declare (uses mtargs)) (declare (uses mtver)) (declare (uses mutils)) |
| ︙ | ︙ | |||
107 108 109 110 111 112 113 114 115 116 117 118 119 120 | srfi-4 srfi-18 srfi-13 srfi-98 srfi-69 ;; local modules adjutant csv-xml ducttape-lib hostinfo mtver mutils cookie | > | 109 110 111 112 113 114 115 116 117 118 119 120 121 122 123 | srfi-4 srfi-18 srfi-13 srfi-98 srfi-69 ;; local modules autoload adjutant csv-xml ducttape-lib hostinfo mtver mutils cookie |
| ︙ | ︙ |