42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
|
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*
;; *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
1106
1107
1108
1109
1110
1111
1112
1113
1114
1115
|
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*))
;; (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
|