Megatest

Differences From Artifact [e0a42785e8]:

• File attic/serialize-env.scm — part of check-in [101ee7c52b] at 2021-03-06 04:39:46 on branch v1.65-real-chicken-5 — Try a grounds-up switch to chicken-5 (user: matt, size: 248) [annotate] [blame] [check-ins using]
• File attic_modular/serialize-env.scm — part of check-in [5d8e30ec14] at 2021-03-06 04:45:53 on branch v1.65-real-chicken-5 — wip (user: matt, size: 248) [annotate] [blame] [check-ins using]
• File serialize-env.scm — part of check-in [934132ed7c] at 2018-12-05 13:33:12 on branch v1.65-testpanel-execenv — added serialize-env.scm (user: bjbarcla, size: 248) [annotate] [blame] [check-ins using]

To Artifact [53598630e3]:

• File serialize-env.scm — part of check-in [c1881425cb] at 2020-02-20 20:14:31 on branch v1.70-refactor02-chicken5 — Got all changes needed to get it to compile under chicken 5. Has some issues with the pathname resolutions, but should be very close (user: jmoon, size: 312) [annotate] [blame] [check-ins using]

1
2
3
4
5
6
7
8
9

(use z3)
(use base64)

(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
8
9

(import z3)
(import chicken.port chicken.process-context chicken.pretty-print base64)

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