Megatest

Check-in [445f1a1231]
Login
Overview
Comment:Break serialize-env into two files for scm
Downloads: Tarball | ZIP archive | SQL archive
Timelines: family | ancestors | descendants | both | v2.0001
Files: files | file ages | folders
SHA1: 445f1a12319fa5d2c1bfa43e9f00af4ee017c06a
User & Date: matt on 2022-01-14 00:43:45
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
02:00
Break megatest into module and top file. check-in: cdb3e61c40 user: matt tags: v2.0001-scm-prep
00:43
Break serialize-env into two files for scm check-in: 445f1a1231 user: matt tags: v2.0001
00:35
Missed hostinfo.scm check-in: b542bf1f82 user: matt tags: v2.0001
Changes

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
(module serialize-env
   *
(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))
)
)
(import serialize-env)
(gen-output)

<
|
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
|



1
















2
3
4


















(import serialize-envmod)
(gen-output)

Added 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))
)
)