diff --git a/Dockerfile.test b/Dockerfile.test index 80ad7de..3e38bb0 100644 --- a/Dockerfile.test +++ b/Dockerfile.test @@ -1,41 +1,29 @@ ARG SCHEME=chibi -ARG IMAGE=${SCHEME}:head -FROM debian:trixie AS build -RUN apt-get update && apt-get install -y \ -git ca-certificates make gcc libffi-dev libffi-dev wget xz-utils libcurl4 -RUN mkdir ${HOME}/.snow && echo "()" > ${HOME}/.snow/config.scm -WORKDIR /build -RUN wget https://gitlab.com/-/project/6808260/uploads/094ce726ce3c6cf8c14560f1e31aaea0/akku-1.1.0.amd64-linux.tar.xz \ - && tar -xf akku-1.1.0.amd64-linux.tar.xz \ - && mv akku-1.1.0.amd64-linux akku -RUN git clone https://github.com/ashinn/chibi-scheme.git --depth=1 -RUN git clone https://codeberg.org/retropikzel/compile-scheme.git --depth=1 -WORKDIR /build/chibi-scheme -RUN make -RUN make install -WORKDIR /build/compile-scheme -RUN make build-gauche +ARG IMAGE=chibi:latest +FROM docker.io/schemers/${IMAGE} +ARG SCHEME=chibi +ENV COMPILE_R7RS=${SCHEME} + +RUN apt-get update && apt-get install -y \ + build-essential libffi-dev libcurl4-openssl-dev curl guile-3.0 \ + git ca-certificates + +COPY --from=schemers/loko:head /usr/local /usr/loko +RUN cp -r /usr/loko/* /usr/local/ +COPY --from=schemers/chibi:head /usr/local /usr/chibi +RUN cp -r /usr/chibi/lib/* /usr/local/lib/ +RUN cp -r /usr/chibi/share/* /usr/local/share/ +RUN cp -r /usr/chibi/bin/*chibi* /usr/local/bin/ +RUN ldconfig + +ADD https://codeberg.org/retropikzel/compile-r7rs/raw/branch/main/compile-r7rs . +RUN install compile-r7rs /usr/local/bin/compile-r7rs + +RUN mkdir -p /root/.snow && echo "()" > /root/.snow/config.scm -ARG SCHEME=chibi -ARG IMAGE=${SCHEME}:head -FROM schemers/${IMAGE} -RUN apt-get update && apt-get install -y make gcc libffi-dev libcurl4 gauche -RUN mkdir ${HOME}/.snow && echo "()" > ${HOME}/.snow/config.scm -COPY --from=build /build /build -ARG SCHEME=chibi -WORKDIR /build/compile-scheme -RUN make install -WORKDIR /build/chibi-scheme -RUN make install -WORKDIR /build/chibi-scheme -RUN make install -WORKDIR /build/akku -RUN bash install.sh -ENV PATH=/root/.local/bin:${PATH} -RUN akku update -RUN timeout 30 snow-chibi install --impls=${SCHEME} --always-yes "(srfi 64)" || true -RUN timeout 30 snow-chibi install --impls=${SCHEME} --always-yes "(foreign c)" || true WORKDIR /workdir +ARG SCHEME=chibi +ENV COMPILE_R7RS=${SCHEME} COPY Makefile . COPY retropikzel retropikzel/ diff --git a/Makefile b/Makefile index 3e836cf..2fe3166 100644 --- a/Makefile +++ b/Makefile @@ -1,4 +1,6 @@ SCHEME=chibi +DOCKER_TAG=latest +IMAGE=${SCHEME}:${DOCKER_TAG} RNRS=r7rs LIBRARY=system EXAMPLE=editor @@ -13,102 +15,44 @@ TESTFILE=retropikzel/${LIBRARY}/test.scm PKG=retropikzel-${LIBRARY}-${VERSION}.tgz -DOCKERIMG=${SCHEME}:head -ifeq "${SCHEME}" "chicken" -DOCKERIMG="chicken:5" +SFX=scm +SNOW=snow-chibi --impls=${SCHEME} install --always-yes +LIB_PATHS= +ifeq "${RNRS}" "r6rs" +SNOW=snow-chibi --impls=${SCHEME} install --always-yes --install-source-dir=. --install-library-dir=. +SFX=sps +LIB_PATHS=-I .akku/lib endif all: build build: retropikzel/${LIBRARY}/LICENSE retropikzel/${LIBRARY}/VERSION echo "
$$(cat retropikzel/${LIBRARY}/README.md)" > ${README}
- snow-chibi package --version=${VERSION} --authors=${AUTHOR} --doc=${README} --description="${DESCRIPTION}" ${LIBRARY_FILE}
+ snow-chibi package --always-yes --version=${VERSION} --authors=${AUTHOR} --doc=${README} --description="${DESCRIPTION}" ${LIBRARY_FILE}
install:
- snow-chibi install --impls=${SCHEME} ${SNOW_CHIBI_ARGS} ${PKG}
+ snow-chibi install --impls=${SCHEME} --always-yes ${PKG}
-uninstall:
- -snow-chibi remove --impls=${SCHEME} ${PKG}
+test: build
+ rm -rf .tmp
+ mkdir -p .tmp
+ # R6RS testfiles
+ printf "#!r6rs\n(import (except (rnrs) remove) (srfi :64) (retropikzel ${LIBRARY}))" > .tmp/test.sps
+ cat ${TESTFILE} >> .tmp/test.sps
+ # R7RS testfiles
+ echo "(import (scheme base) (scheme write) (scheme read) (scheme char) (scheme file) (scheme process-context) (srfi 64) (retropikzel ${LIBRARY}))" > .tmp/test.scm
+ cat ${TESTFILE} >> .tmp/test.scm
+ # Tests
+ cd .tmp && ${SNOW} srfi.64
+ cd .tmp && ${SNOW} retropikzel.ctrf
+ cd .tmp && ${SNOW} ../${PKG}
+ cd .tmp && akku install akku-r7rs 2> /dev/null
+ cd .tmp && CSC_OPTIONS="-L -lcurl -L -lSDL2 -L -lSDL2_image" COMPILE_R7RS=${SCHEME} compile-r7rs ${LIB_PATHS} -o test test.${SFX}
+ cd .tmp && ./test
-run-test-venv: build
- rm -rf venv
- scheme-venv ${SCHEME} venv
- echo "(import (scheme base) (scheme write) (scheme read) (scheme char) (scheme file) (scheme process-context) (srfi 64) (retropikzel ${LIBRARY}))" > venv/test.scm
- printf "#!r6rs\n(import (except (rnrs) remove) (srfi :64) (retropikzel ${LIBRARY}))" > venv/test.sps
- cat ${TESTFILE} >> venv/test.scm
- cat ${TESTFILE} >> venv/test.sps
- if [ "${RNRS}" = "r6rs" ]; then if [ -d ../foreign-c ]; then cp -r ../foreign-c/foreign venv/lib/; fi; fi
- if [ "${RNRS}" = "r6rs" ]; then cp -r retropikzel venv/lib/; fi
- #if [ "${SCHEME}" = "chezscheme" ]; then ./venv/bin/akku install akku-r7rs chez-srfi; fi
- #if [ "${SCHEME}" = "ikarus" ]; then ./venv/bin/akku install akku-r7rs chez-srfi; fi
- #if [ "${SCHEME}" = "ironscheme" ]; then ./venv/bin/akku install akku-r7rs chez-srfi; fi
- #if [ "${SCHEME}" = "racket" ]; then ./venv/bin/akku install akku-r7rs chez-srfi; fi
- if [ "${RNRS}" = "r6rs" ]; then ./venv/bin/akku install akku-r7rs chez-srfi; fi
- if [ "${SCHEME}" = "chicken" ]; then ./venv/bin/snow-chibi install --always-yes srfi.64; fi
- if [ "${SCHEME}-${RNRS}" = "mosh-r7rs" ]; then ./venv/bin/snow-chibi install --always-yes srfi.64; fi
- if [ "${RNRS}" = "r7rs" ]; then ./venv/bin/snow-chibi install ${PKG}; fi
- if [ "${RNRS}" = "r6rs" ]; then ./venv/bin/scheme-compile venv/test.sps; fi
- if [ "${RNRS}" = "r7rs" ]; then CSC_OPTIONS="-L -lcurl -L -lSDL2 -L -lSDL2_image" ./venv/bin/scheme-compile venv/test.scm; fi
- ./venv/test
-
-run-test-system: build
- rm -rf tmp
- mkdir -p tmp
- printf "#!r6rs\n(import (except (rnrs) remove) (srfi :64) (retropikzel ${LIBRARY}))" > tmp/test.sps
- cat ${TESTFILE} >> tmp/test.sps
- echo "(import (scheme base) (scheme write) (scheme read) (scheme char) (scheme file) (scheme process-context) (srfi 64) (retropikzel ${LIBRARY}))" > tmp/test.scm
- cat ${TESTFILE} >> tmp/test.scm
- if [ "${RNRS}" = "r6rs" ]; then cp -r retropikzel tmp/lib/; fi
- if [ "${RNRS}" = "r6rs" ]; then snow-chibi install --impls=generic --install-source-dir=tmp/lib --install-library-dir=tmp/lib --always-yes foreign.c; fi
- if [ "${RNRS}" = "r6rs" ]; then cd tmp && akku install akku-r7rs chez-srfi; fi
- if [ "${RNRS}" = "r7rs" ]; then snow-chibi install --impls=${SCHEME} --always-yes --skip-tests?=1 srfi.64; fi
- if [ "${RNRS}" = "r7rs" ]; then snow-chibi install --impls=${SCHEME} --always-yes --skip-tests?=1 foreign.c; fi
- if [ "${RNRS}" = "r7rs" ]; then snow-chibi install --impls=${SCHEME} --always-yes ${PKG}; fi
- if [ "${RNRS}" = "r6rs" ]; then cd tmp && COMPILE_R7RS=${SCHEME} compile-scheme -o test test.sps; fi
- if [ "${RNRS}" = "r7rs" ]; then cd tmp && CSC_OPTIONS="-L -lcurl -L -lSDL2 -L -lSDL2_image" COMPILE_R7RS=${SCHEME} compile-scheme -o test test.scm; fi
- cd tmp && ./test
-
-run-test-docker:
- docker build --build-arg IMAGE=${DOCKERIMG} --build-arg SCHEME=${SCHEME} --tag=foreign-c-library-test-${SCHEME} -f Dockerfile.test .
- docker run -v "${PWD}/logs:/workdir/logs" -w /workdir -t foreign-c-library-test-${SCHEME} sh -c "make SCHEME=${SCHEME} LIBRARY=${LIBRARY} RNRS=${RNRS} run-test-system"
-
-test-r7rs:
- echo "(import (scheme base) (scheme write) (scheme file) (scheme process-context) (foreign c) (retropikzel ${LIBRARY}) (srfi 64))" > test-r7rs.scm
- cat retropikzel/${LIBRARY}/test.scm >> test-r7rs.scm
- COMPILE_R7RS=${SCHEME} timeout 60 compile-scheme -I . -o test-r7rs test-r7rs.scm
- printf "\n" | timeout 60 ./test-r7rs
-
-test-r7rs-docker:
- echo "Building docker image..."
- docker build --build-arg IMAGE=${DOCKERIMG} --build-arg SCHEME=${SCHEME} --tag=foreign-c-library-test-${SCHEME} --quiet .
- docker run -t foreign-c-library-test-${SCHEME} sh -c "make SCHEME=${SCHEME} LIBRARY=${LIBRARY} SNOW_CHIBI_ARGS=--always-yes build install test-r7rs"
-
-example.scm: ${EXAMPLE_FILE}.scm
- cp ${EXAMPLE_FILE}.scm example.scm
-
-example-r7rs: example.scm
- COMPILE_R7RS=${SCHEME} compile-scheme -I . -o example example.scm
- ./example
-
-test-r6rs:
- echo "(import (except (rnrs) remove) (foreign c) (retropikzel ${LIBRARY}) (srfi :64))" > test-r6rs.sps
- cat retropikzel/${LIBRARY}/test.scm >> test-r6rs.sps
- akku install chez-srfi akku-r7rs
- COMPILE_R7RS=${SCHEME} timeout 60 compile-scheme -I .akku/lib -o test-r6rs test-r6rs.sps
- timeout 60 ./test-r6rs
-
-test-r6rs-docker:
- echo "Building docker image..."
- docker build --build-arg IMAGE=${DOCKERIMG} --build-arg SCHEME=${SCHEME} --tag=foreign-c-library-test-${SCHEME} --quiet .
- docker run -t foreign-c-library-test-${SCHEME} sh -c "make SCHEME=${SCHEME} LIBRARY=${LIBRARY} test-r6rs"
-
-example.sps: ${EXAMPLE_FILE}.sps
- cp ${EXAMPLE_FILE}.scm example.sps
-
-example-r6rs: example.sps
- akku install akku-r7rs "(foreign c)"
- COMPILE_R7RS=${SCHEME} compile-scheme -I .akku/lib -o example example.sps
- ./example
+test-docker:
+ docker build --build-arg SCHEME=${SCHEME} --build-arg IMAGE=${IMAGE} --tag=foreign-c-library-test-${SCHEME} -f Dockerfile.test .
+ docker run -v "${PWD}/logs:/workdir/logs" -w /workdir -t foreign-c-library-test-${SCHEME} sh -c "make SCHEME=${SCHEME} LIBRARY=${LIBRARY} RNRS=${RNRS} test"
clean:
git clean -X -f
diff --git a/retropikzel/gi-repository.scm b/retropikzel/gi-repository.scm
index 3aed587..f78ea04 100644
--- a/retropikzel/gi-repository.scm
+++ b/retropikzel/gi-repository.scm
@@ -1,7 +1,4 @@
-(define-c-library libc
- '("stdlib.h")
- libc-name
- '((additional-versions ("6"))))
+(define-c-library libc '("stdlib.h") #f '())
(define-c-library c-gi
'("girepository/girepository.h")
"girepository-2.0"