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 |
|
|
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 |