mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-05-20 11:40:18 +02:00
Code Activity

Handle command "list" specially: list scripts dir.

Browse source 
(help): Make more informative.
This commit is contained in:
Thien-Thi Nguyen 2001-11-15 23:36:05 +00:00
parent 3605ae0dee
commit de057fdc40
1 changed files with 26 additions and 25 deletions
Download patch file Download diff file Expand all files Collapse all files

51
guile-tools.in
View file

@ -17,17 +17,7 @@
# the Free Software Foundation, Inc., 59 Temple Place, Suite 330, # the Free Software Foundation, Inc., 59 Temple Place, Suite 330,
# Boston, MA 02111-1307 USA # Boston, MA 02111-1307 USA
# Usage: guile-tools --version # Usage: See `help' func below.
# guile-tools --help
# guile-tools [OPTION] PROGRAM [ARGS]
#
# PROGRAM is run w/ ARGS. To see a list of available programs, use
# "guile-tools --help" to find the default scripts directory and then
# do a "ls" on that directory. Or just read the source 14 lines below.
#
# Options (only one of which may be used at a time):
# --scriptsdir DIR -- Look in DIR for scripts
# --guileversion VERS -- Look in $pkgdatadir/VERS/scripts for scripts
# #
# TODO # TODO
# - handle pre-install invocation # - handle pre-install invocation
@ -35,6 +25,22 @@
# #
# Author: Thien-Thi Nguyen # Author: Thien-Thi Nguyen
help ()
{
cat <<EOF
Usage: guile-tools --version
guile-tools --help
guile-tools [OPTION] PROGRAM [ARGS]
If PROGRAM is "list" or omitted, display contents of scripts dir, otherwise
PROGRAM is run w/ ARGS. Options (only one of which may be used at a time):
--scriptsdir DIR -- Look in DIR for scripts
--guileversion VERS -- Look in $pkgdatadir/VERS/scripts for scripts
Default scripts dir: $default_scriptsdir
EOF
}
prefix="@prefix@" prefix="@prefix@"
pkgdatadir="@datadir@/@PACKAGE@" pkgdatadir="@datadir@/@PACKAGE@"
guileversion="@GUILE_VERSION@" guileversion="@GUILE_VERSION@"
@ -46,25 +52,20 @@ if [ -d "$mydir/scripts" -a -f "$mydir/scripts/Makefile.am" ] ; then
default_scriptsdir=`(cd $mydir/scripts ; pwd)` default_scriptsdir=`(cd $mydir/scripts ; pwd)`
fi fi
help ()
{
echo "$0 [--scriptsdir DIR | --guileversion VERSION] PROGRAM [ARGS]"
echo default scriptsdir: $default_scriptsdir
}
# option processing -- basically, you can override either the script dir # option processing -- basically, you can override either the script dir
# completely, or just the guile version. we choose implementation simplicity # completely, or just the guile version. we choose implementation simplicity
# over orthogonality. # over orthogonality.
if [ x"$1" = x--version ] ; then case x"$1" in
x--version)
echo $0 $guileversion echo $0 $guileversion
exit 0 exit 0
fi ;;
x--help)
if [ x"$1" = x--help -o x"$1" = x ] ; then
help help
exit 0 exit 0
fi ;;
esac
if [ x"$1" = x--scriptsdir ] ; then if [ x"$1" = x--scriptsdir ] ; then
user_scriptsdir=$2 user_scriptsdir=$2
@ -83,9 +84,9 @@ if [ ! -d $scriptsdir ] ; then
exit 1 exit 1
fi fi
if [ x"$1" = x ] ; then if [ x"$1" = x -o x"$1" = xlist ] ; then
help ls $scriptsdir
exit 1 exit 0
fi fi
program=$scriptsdir/$1 program=$scriptsdir/$1