/[guile]/guile/guile-core/guile-tools.in
ViewVC logotype

Diff of /guile/guile-core/guile-tools.in

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.1.4.1 by ttn, Thu Nov 15 23:41:03 2001 UTC revision 1.1.4.2 by ttn, Wed Mar 6 20:48:15 2002 UTC
# Line 36  If PROGRAM is "list" or omitted, display Line 36  If PROGRAM is "list" or omitted, display
36  PROGRAM is run w/ ARGS.  Options (only one of which may be used at a time):  PROGRAM is run w/ ARGS.  Options (only one of which may be used at a time):
37   --scriptsdir DIR    -- Look in DIR for scripts   --scriptsdir DIR    -- Look in DIR for scripts
38   --guileversion VERS -- Look in $pkgdatadir/VERS/scripts for scripts   --guileversion VERS -- Look in $pkgdatadir/VERS/scripts for scripts
39     --source            -- Display PROGRAM source (ignore ARGS) to stdout
40    
41  Default scripts dir: $default_scriptsdir  Default scripts dir: $default_scriptsdir
42  EOF  EOF
# Line 89  if [ x"$1" = x -o x"$1" = xlist ] ; then Line 90  if [ x"$1" = x -o x"$1" = xlist ] ; then
90      exit 0      exit 0
91  fi  fi
92    
93    if [ x"$1" = x--source ] ; then
94        if [ x"$2" = x ] ; then echo $0: need to specify program ; exit 1 ; fi
95        if [ -x $scriptsdir/$2 ] ; then
96            cat $scriptsdir/$2
97            exit 0
98        else
99            echo $0: no such program: $2
100            exit 1
101        fi
102    fi
103    
104  program=$scriptsdir/$1  program=$scriptsdir/$1
105  shift  shift
106    

Legend:
Removed from v.1.1.4.1  
changed lines
  Added in v.1.1.4.2

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26