Retropikzel
/
compile-r7rs
1
0
Fork 0
Code Issues

Take the target option out of manpage and bash completion as it is not ready yet

This commit is contained in:
retropikzel 2025-11-07 20:27:36 +02:00
parent ff74ac9359
commit 41b4276caf
2 changed files with 36 additions and 33 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

30
bash_completion.sh
View File

@ -6,26 +6,26 @@ _compile_scheme()
prev="${COMP_WORDS[COMP_CWORD-1]}" prev="${COMP_WORDS[COMP_CWORD-1]}"
shortopts="-A -I" shortopts="-A -I"
longopts="--list-r6rs --list-r7rs --list-all --help --version" longopts="--list-r6rs --list-r7rs --list-all --help --version"
targets="unix windows php" targets="unix" # windows php"
outputfound=false outputfound=false
for i in "${COMP_WORDS[@]}"; do for i in "${COMP_WORDS[@]}"; do
if [[ "$i" == "-o" ]] ; then if [[ "$i" == "-o" ]] ; then
outputfound=true outputfound=true
fi fi
done done
targetfound=false #targetfound=false
for i in "${COMP_WORDS[@]}"; do #for i in "${COMP_WORDS[@]}"; do
if [[ "$i" == "-t" ]] ; then #if [[ "$i" == "-t" ]] ; then
targetfound=true #targetfound=true
fi #fi
done done
if [[ "$outputfound" == "false" ]]; then if [[ "$outputfound" == "false" ]]; then
shortopts="${shortopts} -o" shortopts="${shortopts} -o"
fi fi
if [[ "$targetfound" == "false" ]]; then #if [[ "$targetfound" == "false" ]]; then
shortopts="${shortopts} -t" #shortopts="${shortopts} -t"
fi #fi
opts="${shortopts} ${longopts}" opts="${shortopts} ${longopts}"
@ -38,15 +38,15 @@ _compile_scheme()
elif [[ ${prev} == -A ]] ; then elif [[ ${prev} == -A ]] ; then
COMPREPLY=() COMPREPLY=()
return 0 return 0
elif [[ ${prev} == -t ]] ; then #elif [[ ${prev} == -t ]] ; then
COMPREPLY=( $(compgen -W "${targets}" -- ${cur}) ) #COMPREPLY=( $(compgen -W "${targets}" -- ${cur}) )
return 0 #return 0
elif [[ ${cur} == -o ]] ; then elif [[ ${cur} == -o ]] ; then
COMPREPLY=("") COMPREPLY=("")
return 0 return 0
elif [[ ${cur} == -t ]] ; then #elif [[ ${cur} == -t ]] ; then
COMPREPLY=("") #COMPREPLY=("")
return 0 #return 0
elif [[ ${prev} == *.sps ]] ; then elif [[ ${prev} == *.sps ]] ; then
COMPREPLY=( $(compgen -W "${shortopts}" -- ${cur}) ) COMPREPLY=( $(compgen -W "${shortopts}" -- ${cur}) )
return 0 return 0

39
doc/compile-scheme.1
View File

@ -3,9 +3,11 @@
compile-scheme \- Compiling Scheme programs to executables compile-scheme \- Compiling Scheme programs to executables
.SH SYNOPSIS .SH SYNOPSIS
.P .P
\fBcompile-scheme\fR [\fB-A\fR \fIpath\fR] [\fB-I\fR \fIpath\fR] [\fB-o\fR \fIpath\fR] [\fB-t\fR \fItarget\fR] \fIinput-file.sps\fR \fBcompile-scheme\fR [\fB-A\fR \fIpath\fR] [\fB-I\fR \fIpath\fR] [\fB-o\fR \fIpath\fR] \fIinput-file.sps\fR
\#\fBcompile-scheme\fR [\fB-A\fR \fIpath\fR] [\fB-I\fR \fIpath\fR] [\fB-o\fR \fIpath\fR] [\fB-t\fR \fItarget\fR] \fIinput-file.sps\fR
.P .P
\fBcompile-scheme\fR [\fB-A\fR \fIpath\fR] [\fB-I\fR \fIpath\fR] [\fB-o\fR \fIpath\fR] [\fB-t\fR \fItarget\fR] \fIinput-file.scm\fR \fBcompile-scheme\fR [\fB-A\fR \fIpath\fR] [\fB-I\fR \fIpath\fR] [\fB-o\fR \fIpath\fR] \fIinput-file.scm\fR
\#\fBcompile-scheme\fR [\fB-A\fR \fIpath\fR] [\fB-I\fR \fIpath\fR] [\fB-o\fR \fIpath\fR] [\fB-t\fR \fItarget\fR] \fIinput-file.scm\fR
.P .P
\fBcompile-scheme\fR \fIlong-option\fR \fBcompile-scheme\fR \fIlong-option\fR
.SH DESCRIPTION .SH DESCRIPTION
@ -41,19 +43,20 @@ Prepend directory to the list of directories that are searched in order to locat
Use the \fIoutput-file\fR file, instead of the default deducted from input-file, for the executable file produced. Use the \fIoutput-file\fR file, instead of the default deducted from input-file, for the executable file produced.
.P .P
Multiple instances of the -A, and -I options can be specified. Multiple instances of the -A, and -I options can be specified.
.P \#.P
\fB\-t\fR { \fIunix\fR | \fIwindows\fR | \fIphp\fR } \#\fB\-t\fR { \fIunix\fR | \fIwindows\fR | \fIphp\fR }
Set the compilation target. \#\fB\-t\fR \fIunix\fR
This is not needed if you are compiling for the target OS you are running. \#Set the compilation target.
Cross compilation is only supported in following cases: \#This is not needed if you are compiling for the target OS you are running.
.IP \#Cross compilation is only supported in following cases:
From \fIunix\fR host to \fIwindows\fR target when chosen implementation is interpreter. \#.IP
.IP \#From \fIunix\fR host to \fIwindows\fR target when chosen implementation is interpreter.
From \fIwindows\fR host to \fIunix\fR target when chosen implementation is interpreter. \#.IP
.IP \#From \fIwindows\fR host to \fIunix\fR target when chosen implementation is interpreter.
From \fIunix\fR host to \fIphp\fR target when chosen implementation is interpreter. \#.IP
.IP \#From \fIunix\fR host to \fIphp\fR target when chosen implementation is interpreter.
From \fIwindows\fR host to \fIphp\fR target when chosen implementation is interpreter. \#.IP
\#From \fIwindows\fR host to \fIphp\fR target when chosen implementation is interpreter.
.P .P
.B \-\-list-r6rs .B \-\-list-r6rs
List supported R6RS implementations. List supported R6RS implementations.
@ -63,9 +66,9 @@ List supported R7RS implementations.
.P .P
.B \-\-list-all .B \-\-list-all
List all supported implementations. List all supported implementations.
.P \#.P
\fB\-\-list-targets\fR \#\fB\-\-list-targets\fR
List all supported compilation targets. \#List all supported compilation targets.
.P .P
\fB\-\-version\fR \fB\-\-version\fR
Show the software version. Show the software version.