1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
|
(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))
)
|
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
|
1
2
3
4
5
6
7
|
(module serialize-envmod
*
(import scheme
z3
base64
chicken.port
|
32
33
34
35
36
37
38
39
40
41
|
(zipped-env-str (z3:encode-buffer env-str))
(b64-env-str (base64-encode zipped-env-str)))
(print b64-env-str))
)
(gen-output)
)
)
|
<
<
|
15
16
17
18
19
20
21
22
|
(zipped-env-str (z3:encode-buffer env-str))
(b64-env-str (base64-encode zipped-env-str)))
(print b64-env-str))
)
(gen-output)
)
|