Megatest

Artifact c38be5602649f79182217e219c1082151d177ebe:

• File serialize-env.scm — part of check-in [fc3edb2f32] at 2022-01-14 17:57:48 on branch v2.0001 — merged work for using csm for compiling (user: matt, size: 785) [annotate] [blame] [check-ins using] [more...]

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

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

(gen-output)

)

)