Retropikzel
/
compile-r7rs
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

First version

This commit is contained in:
retropikzel 2026-03-12 18:16:24 +02:00
commit 518cc1e0da
6 changed files with 184 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
.gitignore vendored Normal file
View File

@ -0,0 +1 @@
.tmp

2
Dockerfile.jenkins Normal file
View File

@ -0,0 +1,2 @@
FROM debian:trixie
RUN apt-get update && apt-get -y install make docker.io

8
Dockerfile.test Normal file
View File

@ -0,0 +1,8 @@
ARG SCHEME=chibi
FROM docker.io/schemers/${SCHEME}
ARG SCHEME=chibi
ENV COMPILE_R7RS=${SCHEME}
RUN apt-get update && apt-get install -y make
COPY Makefile .
COPY compile-r7rs .
RUN install compile-r7rs /usr/local/bin/compile-r7rs

48
Jenkinsfile vendored Normal file
View File

@ -0,0 +1,48 @@
pipeline {
agent {
dockerfile {
filename 'Dockerfile.jenkins'
label 'docker-x86_64'
args '--user=root --privileged -v /var/run/docker.sock:/var/run/docker.sock'
}
}
options {
disableConcurrentBuilds()
buildDiscarder(logRotator(numToKeepStr: '10', artifactNumToKeepStr: '10'))
}
parameters {
string(name: 'R6RS_SCHEMES', defaultValue: 'capyscheme chezscheme guile ikarus ironscheme larceny loko mosh racket sagittarius ypsilon', description: '')
string(name: 'R7RS_SCHEMES', defaultValue: 'capyscheme chibi chicken cyclone foment gauche gambit guile kawa larceny loko meevax mit-scheme mosh racket sagittarius skint stklos tr7 ypsilon', description: '')
}
stages {
stage('Test R6RS') {
steps {
script {
params.R6RS_SCHEMES.split().each { SCHEME ->
stage("${SCHEME}") {
catchError(buildResult: 'SUCCESS', stageResult: 'FAILURE') {
sh "timeout 6000 make RNRS=r6rs SCHEME=${SCHEME} test-docker"
}
}
}
}
}
}
stage('Test R7RS') {
steps {
script {
params.R7RS_SCHEMES.split().each { SCHEME ->
stage("${SCHEME}") {
catchError(buildResult: 'SUCCESS', stageResult: 'FAILURE') {
sh "timeout 6000 make RNRS=r7rs SCHEME=${SCHEME} test-docker"
}
}
}
}
}
}
}
}

31
Makefile Normal file
View File

@ -0,0 +1,31 @@
PREFIX=/usr/local
SCHEME=chibi
RNRS=r7rs
all: build
build:
echo "Nothing to do, run make install"
install:
install compile-r7rs ${PREFIX}/bin/compile-r7rs
test:
@rm -rf .tmp
@mkdir -p .tmp
@mkdir -p .tmp/libs
@mkdir -p .tmp/other_libs
@echo "(import (rnrs))" > .tmp/main.sps
@echo "(display \"Hello\") (newline)" >> .tmp/main.sps
@echo "(import (scheme base) (scheme write))" > .tmp/main.scm
@echo "(display \"Hello\") (newline)" >> .tmp/main.scm
@if [ "${RNRS}" = "r6rs" ]; then cd .tmp && COMPILE_R7RS=${SCHEME} sh ../compile-r7rs -o main -I libs -A other_libs main.sps; fi
@if [ "${RNRS}" = "r7rs" ]; then cd .tmp && COMPILE_R7RS=${SCHEME} sh ../compile-r7rs -o main -I libs -A other_libs main.scm; fi
@cd .tmp && ./main
test-docker:
docker build --build-arg SCHEME=${SCHEME} -f Dockerfile.test --tag=${SCHEME}-testing .
docker run ${SCHEME}-testing sh -c "make SCHEME=${SCHEME} RNRS=${RNRS} test"

94
compile-r7rs Normal file
View File

@ -0,0 +1,94 @@
#!/bin/sh
# vi: ft=bash
set -eu
if [ "${COMPILE_R7RS:-}" = "" ]; then
echo "Environment variable COMPILE_R7RS is not set. Supported values:"
echo "capyscheme chezscheme chibi chicken cyclone foment gambit gauche guile ikarus ironscheme kawa larceny loko meevax mosh mit-scheme racket sagittarius skint stklos tr7 ypsilon"
exit 1
fi
## Parse arguments
prepend_dirs=""
append_dirs=""
while :; do
case ${1:-} in
*.sps) input_file="$1"; rnrs=r6rs; shift ;;
*.scm) input_file="$1"; rnrs=r7rs; shift ;;
-o) output_file="$2"; shift; shift ;;
-D) echo "Warning: -D not supported, so \"$1 $2\" is ignored"; shift; shift ;;
-I) case $COMPILE_R7RS in
chicken) prepend_dirs="" ;;
chezscheme|ikarus|loko|mosh|tr7) prepend_dirs="$prepend_dirs:$2" ;;
capyscheme|guile|sagittarius) prepend_dirs="$prepend_dirs -L $2" ;;
racket) prepend_dirs="$prepend_dirs -S $2" ;;
ypsilon) prepend_dirs="$prepend_dirs --sitelib=$2" ;;
*) prepend_dirs="$prepend_dirs -I $2" ;;
esac
shift; shift ;;
-A) case $COMPILE_R7RS in
chicken) append_dirs="" ;;
chezscheme|ikarus|loko|mosh|tr7) append_dirs="$append_dirs:$2" ;;
guile) append_dirs="$append_dirs -L $2" ;;
ironscheme) append_dirs="$append_dirs -I $2" ;;
racket) append_dirs="$append_dirs -S $2" ;;
ypsilon) prepend_dirs="$prepend_dirs --sitelib=$2" ;;
*) append_dirs="$append_dirs -A $2" ;;
esac
shift; shift ;;
*) break ;;
esac
done
prepend_dirs="${prepend_dirs#:}"
append_dirs="${append_dirs#:}"
prepend_dirs="${prepend_dirs#,}"
append_dirs="${append_dirs#,}"
prefix="#!/usr/bin/env -S"
case $rnrs in
r6rs)
case $COMPILE_R7RS in
chezscheme) echo "$prefix scheme --libdirs $prepend_dirs:$append_dirs --program" >> "$output_file";;
guile) printf "$prefix guile --r6rs $prepend_dirs $append_dirs\n!#\n" >> "$output_file";;
ikarus) echo "$prefix IKARUS_LIBRARY_PATH=$prepend_dirs:$append_dirs ikarus --r6rs-script" >> "$output_file";;
ironscheme) echo "$prefix ironscheme $prepend_dirs $append_dirs" >> "$output_file";;
larceny) printf "\n#|\nexec larceny -r6rs -utf8 -quiet -nobanner $prepend_dirs $append_dirs -program \$0 --\n|#\n" >> "$output_file";;
loko) LOKO_LIBRARY_PATH="$prepend_dirs:$append_dirs" loko -std=r6rs --compile "$input_file";
if [ ! "${input_file%.sps}" = "$output_file" ]; then mv -f "${input_file%.sps}" "$output_file"; fi;;
mosh) echo "$prefix MOSH_LOADPATH=$prepend_dirs:$append_dirs mosh" >> "$output_file";;
racket) printf "\n#|\nexec racket -I scheme/init -l r6rs/run.rkt $prepend_dirs $append_dirs \$0 --\n|#\n" >> "$output_file";;
sagittarius) echo "$prefix sash -r6 $prepend_dirs $append_dirs" >> "$output_file";;
ypsilon) echo "$prefix ypsilon $prepend_dirs $append_dirs --top-level-program" >> "$output_file";;
*) echo "Unsupported implementation: $COMPILE_R7RS"; exit 1;;
esac;;
r7rs)
case $COMPILE_R7RS in
chicken) csc -o "$output_file" "$input_file";;
chibi) echo "$prefix chibi-scheme $prepend_dirs $append_dirs" >> "$output_file";;
cyclone) cyclone -o "$output_file" $prepend_dirs $append_dirs "$input_file";;
foment) echo "$prefix foment $prepend_dirs $append_dirs" >> "$output_file";;
gambit) gsc -exe -nopreload -o "$output_file" "$input_file";;
gauche) echo "$prefix gosh -r7 $prepend_dirs $append_dirs" >> "$output_file";;
guile) printf "$prefix guile --r7rs $prepend_dirs $append_dirs\n!#\n" >> "$output_file";;
kawa) echo "$prefix kawa --r7rs --full-tailcalls $prepend_dirs $append_dirs" >> "$output_file";;
larceny) printf "\n#|\nexec larceny -r7rs -utf8 -quiet -nobanner $prepend_dirs $append_dirs -program \$0 --\n|#\n" >> "$output_file";;
loko) LOKO_LIBRARY_PATH="$prepend_dirs:$append_dirs" loko -std=r7rs --compile "$input_file";
if [ ! "${input_file%.scm}" = "$output_file" ]; then mv -f "${input_file%.sps}" "$output_file"; fi;;
meevax) echo "$prefix meevax $prepend_dirs $append_dirs" >> "$output_file";;
mit-scheme) echo "$prefix mit-scheme --batch-mode $prepend_dirs $append_dirs" >> "$output_file";;
mosh) echo "$prefix MOSH_LOADPATH=$prepend_dirs:$append_dirs mosh" >> "$output_file";;
racket) echo "$prefix racket -I r7rs $prepend_dirs $append_dirs --script" >> "$output_file";;
sagittarius) echo "$prefix sash -r7 $prepend_dirs $append_dirs" >> "$output_file";;
skint) printf "\n#|\nexec skint $prepend_dirs $append_dirs --program \$0 \n|#\n" >> "$output_file";;
stklos) echo "$prefix stklos $prepend_dirs $append_dirs" >> "$output_file";;
tr7) echo "$prefix TR7_LIB_PATH=$prepend_dirs:$append_dirs tr7i -1" >> "$output_file";;
ypsilon) echo "$prefix ypsilon $prepend_dirs $append_dirs --top-level-program" >> "$output_file";;
*) echo "Unsupported implementation: $COMPILE_R7RS"; exit 1;;
esac;;
esac
case $COMPILE_R7RS in
chicken|cyclone|gambit|loko) sleep 0;;
*) cat "$input_file" >> "$output_file";;
esac
chmod +x "$output_file"