Megatest

Check-in [829acf0839]
Login
☰Home Timeline Files Branches Tags Tickets Wiki Login
Overview
Comment:Fixed serialize to be compatible with scm
Downloads: Tarball | ZIP archive | SQL archive
Timelines: family | ancestors | descendants | both | v2.0001
Files: files | file ages | folders
SHA1: 829acf0839adc648d8d57028ea8b18bc24e565e8
User & Date: matt on 2022-01-14 06:25:50
Other Links: branch diff | manifest | tags
Context
2022-01-14
11:08
Fix to help ulex with connections when buffer isn't filled (and fix merge) check-in: 2e839ecd70 user: jmoon18 tags: v2.0001
08:13
This combo of (no) mutexes seems to work best but the blocking still happens check-in: 09d825a5e1 user: matt tags: v2.0001
06:25
Fixed serialize to be compatible with scm check-in: 829acf0839 user: matt tags: v2.0001
Changes
Hide Diffs Side-by-Side Diffs Ignore Whitespace Patch

Modified megatest.scm from [b7fe71f476] to [97b3fd5fe2].

︙
17
18
19
20
21
22
23
24

25
26
27
28
29
30
31

17
18
19
20
21
22
23

24
25
26
27
28
29
30
31








-
+








;;

(declare (uses dbi))
(declare (uses pkts))
(declare (uses stml2))
(declare (uses cookie))
(declare (uses csv-xml))
(declare (uses hostinfo))
;; (declare (uses hostinfo))

(declare (uses adjutant))
(declare (uses archivemod))
(declare (uses apimod))
(declare (uses autoload))
(declare (uses bigmod))
(declare (uses commonmod))
︙
128
129
130
131
132
133
134
135

136
137
138
139
140
141
142

128
129
130
131
132
133
134

135
136
137
138
139
140
141
142








-
+








	  srfi-98
	  srfi-69

	  ;; local modules
	  autoload
	  adjutant
	  csv-xml
	  hostinfo
	  ;; hostinfo
	  mtver
	  mutils
	  cookie
	  csv-xml
	  ducttape-lib
	  (prefix mtargs args:)
	  pkts
︙

Modified serialize-env.scm from [8517c1e3b2] to [cdbc1fa795]. 


1
2

















3


4

1


2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22

+
-
-
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+

+
+


(module serialize-envmod

(import serialize-envmod)
   *
(import scheme
	z3
	base64
	chicken.port
	chicken.pretty-print
	chicken.process-context
	chicken.base
	)

(define (gen-output)
(let* ((env-str        (with-output-to-string (lambda () (pp (get-environment-variables)))))
       (zipped-env-str (z3:encode-buffer env-str))
       (b64-env-str    (base64-encode zipped-env-str)))
  (print b64-env-str))
)

(gen-output)

)









Deleted serialize-envmod.scm version [2f9a1becf8].



1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19





















-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-

(module serialize-envmod
   *
(import scheme
	z3
	base64
	chicken.port
	chicken.pretty-print
	chicken.process-context
	chicken.base
	)

(define (gen-output)
(let* ((env-str        (with-output-to-string (lambda () (pp (get-environment-variables)))))
       (zipped-env-str (z3:encode-buffer env-str))
       (b64-env-str    (base64-encode zipped-env-str)))
  (print b64-env-str))
)
)














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