Megatest

Check-in [9b490d26cf]
Login
☰Home Timeline Files Branches Tags Tickets Wiki Login
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: 9b490d26cffe70c15f5a2a672696fff0e09abf52
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
Hide Diffs Side-by-Side Diffs Ignore Whitespace Patch

Modified ducttape/ducttape-lib.scm from [61456ff87b] to [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
︙

Modified megatest.scm from [44edba80d4] to [ca57f5aa14].

︙
22
23
24
25
26
27
28

29
30
31

32
33
34
35
36
37
38

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

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
︙

This page was generated in about 0.109s by Fossil 2.24 [452f8e1ffc] 2024-03-26 15:36:00