Megatest

Differences From Artifact [9fa2c0cfa5]:

• File attic/keys.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: 3142) [annotate] [blame] [check-ins using]
• File keys-inc.scm — part of check-in [fde3cd0ad1] at 2019-11-03 04:00:00 on branch v1.65-try3 — try3 (user: matt, size: 3142) [annotate] [blame] [check-ins using]
• File keys.scm — part of check-in [14e9c3fb65] at 2018-02-16 10:51:55 on branch v1.65-license-update — Update license blurbs (user: mrwellan, size: 3142) [annotate] [blame] [check-ins using]

To Artifact [49ff1d279c]:

• File keys.scm — part of check-in [95af9088f1] at 2018-12-27 13:50:50 on branch v2.01-local-mtfiles — moved modules dependencies into modules.scm which is included by common_records.scm; removed converted modules (mtconfigf, margs, mtdebug) from individual scm files (user: bjbarcla, size: 3178) [annotate] [blame] [check-ins using]

22
23
24
25
26
27
28
29

30
31
32
33
34
35
36

22
23
24
25
26
27
28

29
30
31
32
33
34
35
36

-
+

;;======================================================================

(use sqlite3 srfi-1 posix regex regex-case srfi-69)
(import (prefix sqlite3 sqlite3:))

(declare (unit keys))
(declare (uses common))

;; (use (prefix mtconfigf configf:))
(include "key_records.scm")
(include "common_records.scm")

(define (keys->keystr keys) ;; => key1,key2,key3,additiona1, ...
  (string-intersperse keys ","))

(define (args:usage . a) #f)