Megatest

Diff
Login

Differences From Artifact [61456ff87b]:

To Artifact [9367e6392e]:


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