Build top-level SRFI shim modules (#829)

* Build top-level SRFI shim modules

Closes #596

* srfi cpackages: 146, 159, 160

.github/workflows/ci.yml

@@ -52,6 +52,10 @@ jobs:
         run: |
           . ./build-env.sh
           ./src/build.sh r7rs-large
+      - name: Build Gerbil srfi shims
+        run: |
+          . ./build-env.sh
+          ./src/build.sh srfi
       - name: Build Gerbil tools
         run: |
           . ./build-env.sh

src/build.sh

@@ -221,6 +221,11 @@ build_r7rs_large() {
   (cd r7rs-large && ./build.ss)
 }
 
+build_srfi() {
+    feedback_low "Building SRFI shims"
+    (cd srfi && ./build.ss)
+}
+
 build_tools () {
   feedback_low "Building gerbil tools"
   (cd tools && ./build.ss)
@@ -253,6 +258,7 @@ build_gerbil() {
   build_libgerbil  || die
   build_lang       || die
   build_r7rs_large || die
+  build_srfi       || die
   build_tools      || die
   build_tags       || die
 }
@@ -289,6 +295,9 @@ else
        "r7rs-large")
          build_r7rs_large || die
          ;;
+       "srfi")
+         build_srfi || die
+         ;;
        "tools")
          build_tools || die
          ;;
@@ -301,7 +310,7 @@ else
        *)
          feedback_err "Unknown command."
          feedback_err \
-           "Correct usage: ./build.sh [prepare|gambit|boot-gxi|stage0|stage1|stdlib|libgerbil|lang|r7rs-large|tools|tags]"
+           "Correct usage: ./build.sh [prepare|gambit|boot-gxi|stage0|stage1|stdlib|libgerbil|lang|r7rs-large|srfi|tools|tags]"
          die
          ;;
   esac

src/srfi/1.ss

@@ -0,0 +1,2 @@
+(import :std/srfi/1) (export (import: :std/srfi/1))
+

src/srfi/101.ss

@@ -0,0 +1,2 @@
+(import :std/srfi/101) (export (import: :std/srfi/101))
+

src/srfi/113.ss

@@ -0,0 +1,2 @@
+(import :std/srfi/113) (export (import: :std/srfi/113))
+

src/srfi/115.ss

@@ -0,0 +1,2 @@
+(import :std/srfi/115) (export (import: :std/srfi/115))
+

src/srfi/116.ss

@@ -0,0 +1,2 @@
+(import :std/srfi/116) (export (import: :std/srfi/116))
+

src/srfi/117.ss

@@ -0,0 +1,2 @@
+(import :std/srfi/117) (export (import: :std/srfi/117))
+

src/srfi/121.ss

@@ -0,0 +1,2 @@
+(import :std/srfi/121) (export (import: :std/srfi/121))
+

src/srfi/124.ss

@@ -0,0 +1,2 @@
+(import :std/srfi/124) (export (import: :std/srfi/124))
+

src/srfi/127.ss

@@ -0,0 +1,2 @@
+(import :std/srfi/127) (export (import: :std/srfi/127))
+

src/srfi/128.ss

@@ -0,0 +1,2 @@
+(import :std/srfi/128) (export (import: :std/srfi/128))
+

src/srfi/13.ss

@@ -0,0 +1,2 @@
+(import :std/srfi/13) (export (import: :std/srfi/13))
+

src/srfi/130.ss

@@ -0,0 +1,2 @@
+(import :std/srfi/130) (export (import: :std/srfi/130))
+

src/srfi/132.ss

@@ -0,0 +1,2 @@
+(import :std/srfi/132) (export (import: :std/srfi/132))
+

src/srfi/133.ss

@@ -0,0 +1,2 @@
+(import :std/srfi/133) (export (import: :std/srfi/133))
+

src/srfi/134.ss

@@ -0,0 +1,2 @@
+(import :std/srfi/134) (export (import: :std/srfi/134))
+

src/srfi/135.ss

@@ -0,0 +1,2 @@
+(import :std/srfi/135) (export (import: :std/srfi/135))
+

src/srfi/14.ss

@@ -0,0 +1,2 @@
+(import :std/srfi/14) (export (import: :std/srfi/14))
+

src/srfi/141.ss

@@ -0,0 +1,2 @@
+(import :std/srfi/141) (export (import: :std/srfi/141))
+

src/srfi/143.ss

@@ -0,0 +1,2 @@
+(import :std/srfi/143) (export (import: :std/srfi/143))
+

src/srfi/144.ss

@@ -0,0 +1,2 @@
+(import :std/srfi/144) (export (import: :std/srfi/144))
+

src/srfi/145.ss

@@ -0,0 +1,2 @@
+(import :std/srfi/145) (export (import: :std/srfi/145))
+

src/srfi/146.ss

@@ -0,0 +1,2 @@
+(import :std/srfi/146) (export (import: :std/srfi/146))
+

src/srfi/146/hamt-map.ss

@@ -0,0 +1 @@
+(import :std/srfi/146/hamt-map) (export (import: :std/srfi/146/hamt-map))

src/srfi/146/hamt-misc.ss

@@ -0,0 +1 @@
+(import :std/srfi/146/hamt-misc) (export (import: :std/srfi/146/hamt-misc))

src/srfi/146/hamt.ss

@@ -0,0 +1 @@
+(import :std/srfi/146/hamt) (export (import: :std/srfi/146/hamt))

src/srfi/146/hash.ss

@@ -0,0 +1 @@
+(import :std/srfi/146/hash) (export (import: :std/srfi/146/hash))

src/srfi/146/vector-edit.ss

@@ -0,0 +1 @@
+(import :std/srfi/146/vector-edit) (export (import: :std/srfi/146/vector-edit))

src/srfi/151.ss

@@ -0,0 +1,2 @@
+(import :std/srfi/151) (export (import: :std/srfi/151))
+

src/srfi/158.ss

@@ -0,0 +1,2 @@
+(import :std/srfi/158) (export (import: :std/srfi/158))
+

src/srfi/159.ss

@@ -0,0 +1,2 @@
+(import :std/srfi/159) (export (import: :std/srfi/159))
+

src/srfi/159/base.ss

@@ -0,0 +1 @@
+(import :std/srfi/159/base) (export (import: :std/srfi/159/base))

src/srfi/159/color.ss

@@ -0,0 +1 @@
+(import :std/srfi/159/color) (export (import: :std/srfi/159/color))

src/srfi/159/columnar.ss

@@ -0,0 +1 @@
+(import :std/srfi/159/columnar) (export (import: :std/srfi/159/columnar))

src/srfi/159/environment.ss

@@ -0,0 +1 @@
+(import :std/srfi/159/environment) (export (import: :std/srfi/159/environment))

src/srfi/159/pretty.ss

@@ -0,0 +1 @@
+(import :std/srfi/159/pretty) (export (import: :std/srfi/159/pretty))

src/srfi/159/show.ss

@@ -0,0 +1 @@
+(import :std/srfi/159/show) (export (import: :std/srfi/159/show))

src/srfi/159/string.ss

@@ -0,0 +1 @@
+(import :std/srfi/159/string) (export (import: :std/srfi/159/string))

src/srfi/159/unicode.ss

@@ -0,0 +1 @@
+(import :std/srfi/159/unicode) (export (import: :std/srfi/159/unicode))

src/srfi/160/base.ss

@@ -0,0 +1 @@
+(import :std/srfi/160/base) (export (import: :std/srfi/160/base))

src/srfi/160/c128.ss

@@ -0,0 +1 @@
+(import :std/srfi/160/c128) (export (import: :std/srfi/160/c128))

src/srfi/160/c64.ss

@@ -0,0 +1 @@
+(import :std/srfi/160/c64) (export (import: :std/srfi/160/c64))

src/srfi/160/f32.ss

@@ -0,0 +1 @@
+(import :std/srfi/160/f32) (export (import: :std/srfi/160/f32))

src/srfi/160/f64.ss

@@ -0,0 +1 @@
+(import :std/srfi/160/f64) (export (import: :std/srfi/160/f64))

src/srfi/160/s16.ss

@@ -0,0 +1 @@
+(import :std/srfi/160/s16) (export (import: :std/srfi/160/s16))

src/srfi/160/s32.ss

@@ -0,0 +1 @@
+(import :std/srfi/160/s32) (export (import: :std/srfi/160/s32))

src/srfi/160/s64.ss

@@ -0,0 +1 @@
+(import :std/srfi/160/s64) (export (import: :std/srfi/160/s64))

src/srfi/160/s8.ss

@@ -0,0 +1 @@
+(import :std/srfi/160/s8) (export (import: :std/srfi/160/s8))

src/srfi/160/u16.ss

@@ -0,0 +1 @@
+(import :std/srfi/160/u16) (export (import: :std/srfi/160/u16))

src/srfi/160/u32.ss

@@ -0,0 +1 @@
+(import :std/srfi/160/u32) (export (import: :std/srfi/160/u32))

src/srfi/160/u64.ss

@@ -0,0 +1 @@
+(import :std/srfi/160/u64) (export (import: :std/srfi/160/u64))

src/srfi/160/u8.ss

@@ -0,0 +1 @@
+(import :std/srfi/160/u8) (export (import: :std/srfi/160/u8))

src/srfi/19.ss

@@ -0,0 +1,2 @@
+(import :std/srfi/19) (export (import: :std/srfi/19))
+

src/srfi/41.ss

@@ -0,0 +1,2 @@
+(import :std/srfi/41) (export (import: :std/srfi/41))
+

src/srfi/42.ss

@@ -0,0 +1,2 @@
+(import :std/srfi/42) (export (import: :std/srfi/42))
+

src/srfi/43.ss

@@ -0,0 +1,2 @@
+(import :std/srfi/43) (export (import: :std/srfi/43))
+

src/srfi/78.ss

@@ -0,0 +1,2 @@
+(import :std/srfi/78) (export (import: :std/srfi/78))
+

src/srfi/8.ss

@@ -0,0 +1,2 @@
+(import :std/srfi/8) (export (import: :std/srfi/8))
+

src/srfi/9.ss

@@ -0,0 +1,2 @@
+(import :std/srfi/9) (export (import: :std/srfi/9))
+

src/srfi/95.ss

@@ -0,0 +1,2 @@
+(import :std/srfi/95) (export (import: :std/srfi/95))
+

src/srfi/build.ss

@@ -0,0 +1,53 @@
+#!/usr/bin/env gxi
+;; -*- Gerbil -*-
+(import :std/build-script)
+
+(def (srfi-package prefix)
+  (lambda (sym)
+    (string-append prefix (symbol->string sym))))
+
+(defbuild-script
+  (append
+   (map number->string
+        '(1
+          8
+          9
+          13
+          14
+          19
+          41
+          42
+          43
+          78
+          95
+          101
+          113
+          115
+          116
+          117
+          121
+          124
+          127
+          128
+          130
+          132
+          133
+          134
+          135
+          141
+          143
+          144
+          145
+          146
+          151
+          158
+          159))
+   (map (srfi-package "146/")
+        '(hamt hamt-map hamt-misc hash vector-edit))
+   (map (srfi-package "159/")
+        '(base color columnar environment pretty show string unicode))
+   (map (srfi-package "160/")
+        '(base c128 c64 f32 f64 s16 s32 s64 s8 u16 u32 u64 u8)))
+   libdir: (path-expand "lib" (getenv "GERBIL_BUILD_PREFIX" (gerbil-home)))
+  bindir: (path-expand "bin" (getenv "GERBIL_BUILD_PREFIX" (gerbil-home)))
+  debug: #f)

src/srfi/gerbil.pkg

@@ -0,0 +1 @@
+(package: srfi)