Overview
| Comment: | merged work for using csm for compiling |
|---|---|
| Downloads: | Tarball | ZIP archive | SQL archive |
| Timelines: | family | ancestors | descendants | both | v2.0001 |
| Files: | files | file ages | folders |
| SHA1: |
fc3edb2f32c059c0463a39fc64604782 |
| User & Date: | matt on 2022-01-14 17:57:48 |
| Other Links: | branch diff | manifest | tags |
Context
|
2022-01-14
| ||
| 19:09 | Changed ULEX warning to give info on round trip time when excessive. check-in: 05dacbc68b user: matt tags: v2.0001 | |
| 17:57 | merged work for using csm for compiling check-in: fc3edb2f32 user: matt 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 | |
| 02:19 | Does megatest.scm work as a pure module? Leaf check-in: 3406c84170 user: matt tags: v2.0001-scm-prep | |
Changes
Modified megatest.scm from [97b3fd5fe2] to [b43c742f7d].
| ︙ | ︙ | |||
55 56 57 58 59 60 61 | ;; (declare (uses dbmod.import)) ;; (declare (uses rmtmod.import)) ;; (declare (uses servermod.import)) ;; (declare (uses launchmod.import)) ;; (include "call-with-environment-variables/call-with-environment-variables.scm") | | | 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 | ;; (declare (uses dbmod.import)) ;; (declare (uses rmtmod.import)) ;; (declare (uses servermod.import)) ;; (declare (uses launchmod.import)) ;; (include "call-with-environment-variables/call-with-environment-variables.scm") (module megatest * (import scheme chicken.base chicken.bitwise chicken.condition ;; chicken.csi |
| ︙ | ︙ | |||
2657 2658 2659 2660 2661 2662 2663 |
(case *globalexitstatus*
((0)(exit 0))
((1)(exit 1))
((2)(exit 2))
(else (exit 3)))))
)
| < < | | | > | 2657 2658 2659 2660 2661 2662 2663 2664 2665 2666 2667 2668 2669 2670 2671 2672 |
(case *globalexitstatus*
((0)(exit 0))
((1)(exit 1))
((2)(exit 2))
(else (exit 3)))))
)
;; (import megatest-main commonmod)
;; (import srfi-18)
(thread-join!
(thread-start!
(make-thread main)))
)
|
Modified serialize-env.scm from [cdbc1fa795] to [c38be56026].
| ︙ | ︙ | |||
11 12 13 14 15 16 17 18 19 20 21 22 |
(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)
)
| > > > > > > > > > > > > > > > > > > > | 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 |
(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)
)
)
|