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

Handle no -o

This commit is contained in:
retropikzel 2026-03-12 18:46:56 +02:00
parent 518cc1e0da
commit 097b981d58
2 changed files with 14 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
Makefile
View File

@ -19,9 +19,14 @@ test:
@echo "(display \"Hello\") (newline)" >> .tmp/main.sps
@echo "(import (scheme base) (scheme write))" > .tmp/main.scm
@echo "(display \"Hello\") (newline)" >> .tmp/main.scm
@rm -rf .tmp/main
@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
@rm -rf .tmp/main
@if [ "${RNRS}" = "r6rs" ]; then cd .tmp && COMPILE_R7RS=${SCHEME} sh ../compile-r7rs -I libs -A other_libs main.sps; fi
@if [ "${RNRS}" = "r7rs" ]; then cd .tmp && COMPILE_R7RS=${SCHEME} sh ../compile-r7rs -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 .

10
compile-r7rs
View File

@ -43,8 +43,16 @@ prepend_dirs="${prepend_dirs#:}"
append_dirs="${append_dirs#:}"
prepend_dirs="${prepend_dirs#,}"
append_dirs="${append_dirs#,}"
prefix="#!/usr/bin/env -S"
if [ "${input_file:-}" = "" ]; then echo "Error, no input file"; exit 1; fi
case ${input_file:-} in
*.sps) output_file="${input_file%.sps}";;
*.scm) output_file="${input_file%.scm}";;
*) echo "Error, invalid input file";;
esac
prefix="#!/usr/bin/env -S"
case $rnrs in
r6rs)
case $COMPILE_R7RS in