/[guile]/guile/guile-scripts/checkout-guile-cvs-module
ViewVC logotype

Diff of /guile/guile-scripts/checkout-guile-cvs-module

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

revision 1.3 by ttn, Mon Dec 3 21:08:13 2001 UTC revision 1.4 by ttn, Fri Apr 26 00:27:21 2002 UTC
# Line 1  Line 1 
1  #!/bin/sh  #!/bin/sh
2  # Usage: checkout-guile-cvs-module [-l username] module  # Usage: checkout-guile-cvs-module [-l username] [-t] module
3  # If "-l USERNAME" is omitted, user is taken from USER env var.  # If "-l USERNAME" is omitted, user is taken from USER env var.
4    # Normally, the effective module name is taken to be "guile/MODULE".
5    # Optional arg "-t", parsed after "-l", means MODULE is a top-level
6    # module (like "hack") instead of one step down from "guile/";
7    # essentially MODULE is not prefixed.
8  #  #
9  # Description: Do "cvs co MODULE", placing that directory in cwd.  # Description: Do "cvs co MODULE", placing that directory in cwd.
10    
# Line 10  if [ x"$1" = x-l ] ; then Line 14  if [ x"$1" = x-l ] ; then
14     user=$2 ; shift ; shift     user=$2 ; shift ; shift
15  fi  fi
16    
17    p="guile/"                              # -t kills prefix
18    if [ x"$1" = x-t ] ; then
19       p="" ; shift
20    fi
21    
22  if [ x"$1" = x ] ; then  if [ x"$1" = x ] ; then
23     echo usage: $0 '[-l username] module'     echo usage: $0 '[-l username] module'
24     exit 1     exit 1
25  fi  fi
26    
27  cvs -d :ext:${user}@subversions.gnu.org:/cvsroot/guile co -d $1 guile/$1  cvs -d :ext:${user}@subversions.gnu.org:/cvsroot/guile co -d $1 $p$1
28    
29  exit $?  exit $?
30    
31    # checkout-guile-cvs-module ends here

Legend:
Removed from v.1.3  
changed lines
  Added in v.1.4

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