Retropikzel
/
compile-r7rs
1
0
Fork 0
Code Issues 6 Pull Requests Releases Activity

Shellcheckking issues fixed

This commit is contained in:
retropikzel 2025-02-01 10:14:10 +02:00
parent f9b8d2dd88
commit 0bc922390e
1 changed files with 20 additions and 10 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

30
compile-r7rs
View File

@ -53,7 +53,9 @@ case "$SCMC" in
for dir in $libdirs for dir in $libdirs
do do
paths="$paths -I $tmpdir/${dir#./}" paths="$paths -I $tmpdir/${dir#./}"
for lib in **/*.sld #$(find "${dir}" -name "*.sld") findtmp="$(mktemp)"
find "$dir" -name '*.sld' > "$findtmp"
while IFS= read -r lib
do do
unit0=$(cd "$dir" && find . -name "$(basename "$lib")") unit0=$(cd "$dir" && find . -name "$(basename "$lib")")
unit1=$(echo "${unit0#\./}" | sed 's/\//\./g') unit1=$(echo "${unit0#\./}" | sed 's/\//\./g')
@ -64,7 +66,7 @@ case "$SCMC" in
csc -X r7rs -R r7rs -cc "$CC" $CSC_FLAGS -c -J -unit "$unit" -uses "$units" "${lib}" -o "$unit.o" csc -X r7rs -R r7rs -cc "$CC" $CSC_FLAGS -c -J -unit "$unit" -uses "$units" "${lib}" -o "$unit.o"
units="$units,$unit" units="$units,$unit"
objects="$objects ${lib%.sld}.o" objects="$objects ${lib%.sld}.o"
done done < "$findtmp"
done done
output="${main%.scm}" output="${main%.scm}"
# CSC_FLAGS need to expand with spaces # CSC_FLAGS need to expand with spaces
@ -112,10 +114,12 @@ case "$SCMC" in
for dir in $libdirs for dir in $libdirs
do do
paths="$paths ${dir#./}" paths="$paths ${dir#./}"
for lib in **/*.sld #$(find "${dir}" -name "*.sld") findtmp="$(mktemp)"
find "$dir" -name '*.sld' > "$findtmp"
while IFS= read -r lib
do do
libs="$libs $lib" libs="$libs $lib"
done done < "$findtmp"
done done
gxc -o "$output" -static "$libs" "$main" gxc -o "$output" -static "$libs" "$main"
rm -rf gerbil.pkg rm -rf gerbil.pkg
@ -135,10 +139,12 @@ case "$SCMC" in
for dir in $libdirs for dir in $libdirs
do do
paths="$paths $dir" paths="$paths $dir"
for lib in **/*.sld #$(find "$dir" -name "*.sld") findtmp="$(mktemp)"
find "$dir" -name '*.sld' > "$findtmp"
while IFS= read -r lib
do do
kawa -C "$lib" kawa -C "$lib"
done done < "$findtmp"
done done
{ {
echo "Main-Class: main" echo "Main-Class: main"
@ -164,14 +170,16 @@ case "$SCMC" in
for dir in $libdirs for dir in $libdirs
do do
paths="$PWD/${dir#./}:$paths" paths="$PWD/${dir#./}:$paths"
for lib in **/*.sld #$(find "$dir" -name "*.sld") findtmp="$(mktemp)"
find "$dir" -name '*.sld' > "$findtmp"
while IFS= read -r lib
do do
{ {
echo "#lang r7rs" echo "#lang r7rs"
echo "(import (scheme base))" echo "(import (scheme base))"
echo "(include \"$(basename "$lib")\")" echo "(include \"$(basename "$lib")\")"
} > "${lib%.sld}.rkt" } > "${lib%.sld}.rkt"
done done < "$findtmp"
done done
{ {
@ -186,14 +194,16 @@ case "$SCMC" in
for dir in $libdirs for dir in $libdirs
do do
paths="$paths;$(winepath "$PWD"/"${dir#./}")" paths="$paths;$(winepath "$PWD"/"${dir#./}")"
for lib in **/*.sld #$(find "$dir" -name "*.sld") findtmp="$(mktemp)"
find "$dir" -name '*.sld' > "$findtmp"
while IFS= read -r lib
do do
{ {
echo "#lang r7rs" echo "#lang r7rs"
echo "(import (scheme base))" echo "(import (scheme base))"
echo "(include \"$(basename "$lib")\")" echo "(include \"$(basename "$lib")\")"
} > "${lib%.sld}.rkt" } > "${lib%.sld}.rkt"
done done < "$findtmp"
done done
{ {