| 1 |
# Copyright 1999-2000 Gentoo Technologies, Inc. |
| 2 |
# Distributed under the terms of the GNU General Public License v2 |
| 3 |
# Author Dan Armak <danarmak@gentoo.org> |
| 4 |
# $Header: /home/cvsroot/gentoo-x86/eclass/cvs.eclass,v 1.25 2002/11/22 13:35:29 cretin Exp $ |
| 5 |
# This eclass provides the generic cvs fetching functions. |
| 6 |
|
| 7 |
ECLASS=cvs |
| 8 |
INHERITED="$INHERITED $ECLASS" |
| 9 |
|
| 10 |
# You shouldn't change these settings yourself! The ebuild/eclass inheriting this eclass |
| 11 |
# will take care of that. If you want to set the global KDE cvs ebuilds' settings, |
| 12 |
# see the comments in kde-source.eclass. |
| 13 |
|
| 14 |
# --- begin ebuild-configurable settings |
| 15 |
|
| 16 |
# cvs command to run. you can set fex. "cvs -t" for extensive debug information |
| 17 |
# on the cvs onnection. the default of "cvs -q -f -z4" means to be quiet, to disregard |
| 18 |
# the ~/.cvsrc config file and to use maximum compression. |
| 19 |
[ -z "$ECVS_CVS_COMMAND" ] && ECVS_CVS_COMMAND="cvs -q -f -z4" |
| 20 |
|
| 21 |
# cvs options given after the command (i.e. cvs update foo) |
| 22 |
# don't remove -dP or things won't work |
| 23 |
[ -z "$ECVS_CVS_OPTIONS" ] && ECVS_CVS_OPTIONS="-dP" |
| 24 |
|
| 25 |
# set this for the module/subdir to be fetched non-recursively |
| 26 |
#[ -n "$ECVS_LOCAL" ] && ECVS_CVS_OPTIONS="$ECVS_CVS_OPTIONS -l" |
| 27 |
|
| 28 |
# Where the cvs modules are stored/accessed |
| 29 |
[ -z "$ECVS_TOP_DIR" ] && ECVS_TOP_DIR="${DISTDIR}/cvs-src" |
| 30 |
|
| 31 |
# Name of cvs server, set to "offline" to disable fetching |
| 32 |
# (i.e. to assume module is checked out already and don't update it). |
| 33 |
# Format is server:/dir e.g. "anoncvs.kde.org:/home/kde". remove the other |
| 34 |
# parts of the full CVSROOT (which looks like |
| 35 |
# ":pserver:anonymous@anoncvs.kde.org:/home/kde"); these are added from |
| 36 |
# other settings |
| 37 |
[ -z "$ECVS_SERVER" ] && ECVS_SERVER="offline" |
| 38 |
|
| 39 |
# Anonymous cvs login? |
| 40 |
# if 'yes' uses :pserver: with empty password, if 'no' uses :ext: with $ECVS_PASS, other values not allowed |
| 41 |
[ -z "$ECVS_ANON" ] && ECVS_ANON="yes" |
| 42 |
|
| 43 |
# Authentication method to use on ECVS_ANON="no" - possible values are "pserver" and "ext" |
| 44 |
[ -z "$ECVS_AUTH" ] && ECVS_AUTH="ext" |
| 45 |
|
| 46 |
# Use su to run cvs as user |
| 47 |
[ -z "$ECVS_RUNAS" ] && ECVS_RUNAS="`whoami`" |
| 48 |
|
| 49 |
# Username to use |
| 50 |
[ -z "$ECVS_USER" ] && ECVS_USER="anonymous" |
| 51 |
|
| 52 |
# Password to use if anonymous login is off |
| 53 |
[ -z "$ECVS_PASS" ] && ECVS_PASS="" |
| 54 |
|
| 55 |
# Module to be fetched, must be set explicitly - |
| 56 |
# I don't like the former ="$PN" default setting |
| 57 |
[ -z "$ECVS_MODULE" ] && debug-print "$ECLASS: error: ECVS_MODULE not set, cannot continue" |
| 58 |
|
| 59 |
# Branch/tag to use, default is HEAD |
| 60 |
# uncomment the following line to enable the reset-branch-to-HEAD behaviour |
| 61 |
[ -z "$ECVS_BRANCH" ] && ECVS_BRANCH="HEAD" |
| 62 |
|
| 63 |
# Subdirectory in module to be fetched, default is not defined = whole module |
| 64 |
# DO NOT set default to "", if it's defined at all code will break! |
| 65 |
# don't uncomment following line! |
| 66 |
#[ -z "$ECVS_SUBDIR" ] && ECVS_SUBDIR="" |
| 67 |
|
| 68 |
# --- end ebuild-configurable settings --- |
| 69 |
|
| 70 |
# add cvs to deps |
| 71 |
DEPEND="$DEPEND dev-util/cvs dev-python/pexpect" |
| 72 |
|
| 73 |
# since we now longer have src_fetch as a redefinable ebuild function, |
| 74 |
# we are forced to call this function from cvs_src_unpack |
| 75 |
cvs_fetch() { |
| 76 |
|
| 77 |
debug-print-function $FUNCNAME $* |
| 78 |
|
| 79 |
debug-print "$FUNCNAME: init: |
| 80 |
ECVS_CVS_COMMAND=$ECVS_CVS_COMMAND |
| 81 |
ECVS_CVS_OPTIONS=$ECVS_CVS_OPTIONS |
| 82 |
ECVS_TOP_DIR=$ECVS_TOP_DIR |
| 83 |
ECVS_SERVER=$ECVS_SERVER |
| 84 |
ECVS_ANON=$ECVS_ANON |
| 85 |
ECVS_USER=$ECVS_USER |
| 86 |
ECVS_PASS=$ECVS_PASS |
| 87 |
ECS_MODULE=$ECVS_MODULE |
| 88 |
ECVS_SUBDIR=$ECVS_SUBDIR |
| 89 |
ECVS_LOCAL=$ECVS_LOCAL |
| 90 |
DIR=$DIR" |
| 91 |
|
| 92 |
# a shorthand |
| 93 |
DIR="${ECVS_TOP_DIR}/${ECVS_MODULE}/${ECVS_SUBDIR}" |
| 94 |
debug-print "$FUNCNAME: now DIR=$DIR" |
| 95 |
|
| 96 |
if [ "$ECVS_SERVER" == "offline" ]; then |
| 97 |
# we're not required to fetch anything, the module already exists and shouldn't be updated |
| 98 |
if [ -d "$DIR" ]; then |
| 99 |
debug-print "$FUNCNAME: offline mode, exiting" |
| 100 |
return 0 |
| 101 |
else |
| 102 |
einfo "ERROR: Offline mode specified, but module/subdir not found. Aborting." |
| 103 |
debug-print "$FUNCNAME: offline mode specified but module/subdir not found, exiting with error" |
| 104 |
return 1 |
| 105 |
fi |
| 106 |
fi |
| 107 |
|
| 108 |
# create target directory as needed |
| 109 |
if [ ! -d "$DIR" ]; then |
| 110 |
debug-print "$FUNCNAME: creating cvs directory $DIR" |
| 111 |
#export SANDBOX_WRITE="$SANDBOX_WRITE:/foobar:/" |
| 112 |
addwrite /foobar |
| 113 |
addwrite / |
| 114 |
mkdir -p "/$DIR" |
| 115 |
export SANDBOX_WRITE="${SANDBOX_WRITE//:\/foobar:\/}" |
| 116 |
fi |
| 117 |
|
| 118 |
# in case ECVS_TOP_DIR is a symlink to a dir, get the real dir's path, |
| 119 |
# otherwise addwrite() doesn't work. |
| 120 |
cd -P "$ECVS_TOP_DIR" > /dev/null |
| 121 |
ECVS_TOP_DIR="`/bin/pwd`" |
| 122 |
DIR="${ECVS_TOP_DIR}/${ECVS_MODULE}/${ECVS_SUBDIR}" |
| 123 |
cd "$OLDPWD" |
| 124 |
|
| 125 |
debug-print "$FUNCNAME: now DIR=$DIR" |
| 126 |
|
| 127 |
# disable the sandbox for this dir |
| 128 |
# not just $DIR because we want to create moduletopdir/CVS too |
| 129 |
addwrite "$ECVS_TOP_DIR/$ECVS_MODULE" |
| 130 |
|
| 131 |
# add option for local (non-recursive) fetching |
| 132 |
[ -n "$ECVS_LOCAL" ] && ECVS_CVS_OPTIONS="$ECVS_CVS_OPTIONS -l" |
| 133 |
|
| 134 |
# prepare a cvspass file just for this session so that cvs thinks we're logged |
| 135 |
# in at the cvs server. we don't want to mess with ~/.cvspass. |
| 136 |
echo ":pserver:${ECVS_SERVER} A" > "${T}/cvspass" |
| 137 |
export CVS_PASSFILE="${T}/cvspass" |
| 138 |
chown $ECVS_RUNAS "${T}/cvspass" |
| 139 |
#export CVSROOT=:pserver:${ECVS_USER}@${ECVS_SERVER} |
| 140 |
|
| 141 |
# Note: cvs update and checkout commands are unified. |
| 142 |
# we make sure a CVS/ dir exists in our module subdir with the right |
| 143 |
# Root and Repository entries in it and cvs update. |
| 144 |
|
| 145 |
[ "${ECVS_ANON}" == "yes" ] && \ |
| 146 |
newserver=":pserver:${ECVS_USER}@${ECVS_SERVER}" || \ |
| 147 |
newserver=":${ECVS_AUTH}:${ECVS_USER}@${ECVS_SERVER}" |
| 148 |
|
| 149 |
|
| 150 |
# CVS/Repository files can't (I think) contain two concatenated slashes |
| 151 |
if [ -n "$ECVS_SUBDIR" ]; then |
| 152 |
repository="${ECVS_MODULE}/${ECVS_SUBDIR}" |
| 153 |
else |
| 154 |
repository="${ECVS_MODULE}" |
| 155 |
fi |
| 156 |
|
| 157 |
debug-print "$FUNCNAME: Root<-$newserver, Repository<-$repository" |
| 158 |
debug-print "$FUNCNAME: entering directory $DIR" |
| 159 |
cd "/$DIR" |
| 160 |
|
| 161 |
if [ ! -d "CVS" ]; then |
| 162 |
# create a new CVS/ directory (checkout) |
| 163 |
debug-print "$FUNCNAME: creating new cvs directory" |
| 164 |
|
| 165 |
mkdir CVS |
| 166 |
echo $newserver > CVS/Root |
| 167 |
echo $repository > CVS/Repository |
| 168 |
touch CVS/Entries |
| 169 |
|
| 170 |
# if we're checking out a subdirectory only, create a CVS/ dir |
| 171 |
# in the module's top dir so that the user (and we) can cvs update |
| 172 |
# from there to get the full module. |
| 173 |
if [ ! -d "$ECVS_TOP_DIR/$ECVS_MODULE/CVS" ]; then |
| 174 |
debug-print "$FUNCNAME: Copying CVS/ directory to module top-level dir" |
| 175 |
cp -r CVS "$ECVS_TOP_DIR/$ECVS_MODULE/" |
| 176 |
echo $ECVS_MODULE > "$ECVS_TOP_DIR/$ECVS_MODULE/CVS/Repository" |
| 177 |
fi |
| 178 |
|
| 179 |
else |
| 180 |
#update existing module |
| 181 |
debug-print "$FUNCNAME: updating existing module/subdir" |
| 182 |
|
| 183 |
# Switch servers if needed |
| 184 |
# cvs keeps the server info in the CVS/Root file in every checked-out dir; |
| 185 |
# we can fix those files to point to the new server |
| 186 |
oldserver="`cat CVS/Root`" |
| 187 |
if [ "$newserver" != "$oldserver" ]; then |
| 188 |
|
| 189 |
einfo "Changing CVS server from $oldserver to $newserver:" |
| 190 |
debug-print "$FUNCNAME: Changing CVS server from $oldserver to $newserver:" |
| 191 |
|
| 192 |
einfo "Searching for CVS dirs..." |
| 193 |
cvsdirs="`find . -iname CVS -print`" |
| 194 |
debug-print "$FUNCNAME: CVS dirs found:" |
| 195 |
debug-print "$cvsdirs" |
| 196 |
|
| 197 |
einfo "Modifying CVS dirs..." |
| 198 |
for x in $cvsdirs; do |
| 199 |
debug-print "In $x" |
| 200 |
echo $newserver > "$x/Root" |
| 201 |
done |
| 202 |
|
| 203 |
fi |
| 204 |
|
| 205 |
fi |
| 206 |
|
| 207 |
# cvs auto-switches branches, how nice |
| 208 |
# warning: if we do it this way we get multiple -rX options - harmless i think |
| 209 |
[ -n "$ECVS_BRANCH" ] && ECVS_CVS_OPTIONS="$ECVS_CVS_OPTIONS -r$ECVS_BRANCH" |
| 210 |
|
| 211 |
# Chowning the directory |
| 212 |
if [ "${ECVS_RUNAS}" != "root" ]; then |
| 213 |
chown -R "$ECVS_RUNAS" "/$DIR" |
| 214 |
fi |
| 215 |
|
| 216 |
# finally run the cvs update command |
| 217 |
debug-print "$FUNCNAME: is in dir `/bin/pwd`" |
| 218 |
debug-print "$FUNCNAME: running $ECVS_CVS_COMMAND update $ECVS_CVS_OPTIONS with $ECVS_SERVER for module $ECVS_MODULE subdir $ECVS_SUBDIR" |
| 219 |
einfo "Running $ECVS_CVS_COMMAND update $ECVS_CVS_OPTIONS with $ECVS_SERVER for $ECVS_MODULE/$ECVS_SUBDIR..." |
| 220 |
|
| 221 |
if [ "${ECVS_ANON}" == "no" ]; then |
| 222 |
|
| 223 |
debug-print "$FUNCNAME: starting non-anonymous cvs login..." |
| 224 |
# CVS Login - written in python :: the right way ;) |
| 225 |
# Tilman Klar, <phoenix@gentoo.org> |
| 226 |
|
| 227 |
export CVS_RSH="/usr/bin/ssh" |
| 228 |
|
| 229 |
############################## inline-python ##################################### |
| 230 |
/usr/bin/env python << EndOfFile |
| 231 |
|
| 232 |
import pexpect,os |
| 233 |
|
| 234 |
mypasswd = "${ECVS_PASS}" |
| 235 |
myauth = "${ECVS_AUTH}" |
| 236 |
mytimeout = 10 |
| 237 |
|
| 238 |
if myauth == "ext": |
| 239 |
mycommand = "su ${ECVS_RUNAS} -c \"${ECVS_CVS_COMMAND} update ${ECVS_CVS_OPTIONS}\"" |
| 240 |
child = pexpect.spawn(mycommand) |
| 241 |
|
| 242 |
index = child.expect(['continue connecting','word:'], mytimeout) |
| 243 |
if index == 0: |
| 244 |
child.sendline('yes') |
| 245 |
## Added server to ~/.ssh/known_hosts |
| 246 |
child.expect('word:', mytimeout) |
| 247 |
else: |
| 248 |
## Server already is in ~/.ssh/known_hosts |
| 249 |
pass |
| 250 |
|
| 251 |
child.sendline(mypasswd) |
| 252 |
child.expect(pexpect.EOF) |
| 253 |
|
| 254 |
elif myauth == "pserver": |
| 255 |
mycommand = "su ${ECVS_RUNAS} -c \"cvs login\"" |
| 256 |
child = pexpect.spawn(mycommand) |
| 257 |
child.expect("CVS password:",mytimeout) |
| 258 |
child.sendline(mypasswd) |
| 259 |
child.expect(pexpect.EOF) |
| 260 |
|
| 261 |
# Logged in - checking out |
| 262 |
os.system("su ${ECVS_RUNAS} -c \"${ECVS_CVS_COMMAND} update ${ECVS_CVS_OPTIONS}\" &> /dev/null") |
| 263 |
EndOfFile |
| 264 |
########################### End of inline-python ################################## |
| 265 |
else |
| 266 |
debug-print "$FUNCNAME: using anonymous cvs login" |
| 267 |
$ECVS_CVS_COMMAND update $ECVS_CVS_OPTIONS || die "died running cvs update" |
| 268 |
fi |
| 269 |
|
| 270 |
# log out and restore ownership |
| 271 |
su $ECVS_RUNAS -c "cvs logout" &> /dev/null |
| 272 |
chown `whoami` "${T}/cvspass" |
| 273 |
} |
| 274 |
|
| 275 |
cvs_src_unpack() { |
| 276 |
|
| 277 |
debug-print-function $FUNCNAME $* |
| 278 |
cvs_fetch || die "died running cvs_fetch" |
| 279 |
|
| 280 |
einfo "Copying $ECVS_MODULE/$ECVS_SUBDIR from $ECVS_TOP_DIR..." |
| 281 |
debug-print "Copying module $ECVS_MODULE subdir $ECVS_SUBDIR local_mode=$ECVS_LOCAL from $ECVS_TOP_DIR..." |
| 282 |
|
| 283 |
# probably redundant, but best to make sure |
| 284 |
mkdir -p "$WORKDIR/$ECVS_MODULE/$ECVS_SUBDIR" |
| 285 |
|
| 286 |
if [ -n "$ECVS_SUBDIR" ]; then |
| 287 |
if [ -n "$ECVS_LOCAL" ]; then |
| 288 |
cp -f "$ECVS_TOP_DIR/$ECVS_MODULE/$ECVS_SUBDIR/*" "$WORKDIR/$ECVS_MODULE/$ECVS_SUBDIR" |
| 289 |
else |
| 290 |
cp -Rf "$ECVS_TOP_DIR/$ECVS_MODULE/$ECVS_SUBDIR" "$WORKDIR/$ECVS_MODULE/$ECVS_SUBDIR/.." |
| 291 |
fi |
| 292 |
else |
| 293 |
if [ -n "$ECVS_LOCAL" ]; then |
| 294 |
cp -f "$ECVS_TOP_DIR/$ECVS_MODULE/*" "$WORKDIR/$ECVS_MODULE" |
| 295 |
else |
| 296 |
cp -Rf "$ECVS_TOP_DIR/$ECVS_MODULE" "$WORKDIR" |
| 297 |
fi |
| 298 |
fi |
| 299 |
|
| 300 |
# if the directory is empty, remove it; empty directories cannot exist in cvs. |
| 301 |
# this happens when fex. kde-source requests module/doc/subdir which doesn't exist. |
| 302 |
# still create the empty directory in workdir though. |
| 303 |
if [ "`ls -A $DIR`" == "CVS" ]; then |
| 304 |
debug-print "$FUNCNAME: removing cvs-empty directory $ECVS_MODULE/$ECVS_SUBDIR" |
| 305 |
rm -rf "$DIR" |
| 306 |
fi |
| 307 |
|
| 308 |
# implement some of base_src_unpack's functionality; |
| 309 |
# note however that base.eclass may not have been inherited! |
| 310 |
if [ -n "$PATCHES" ]; then |
| 311 |
debug-print "$FUNCNAME: PATCHES=$PATCHES, S=$S, autopatching" |
| 312 |
cd "$S" |
| 313 |
for x in $PATCHES; do |
| 314 |
debug-print "patching from $x" |
| 315 |
patch -p0 < "$x" |
| 316 |
done |
| 317 |
# make sure we don't try to apply patches more than once, since |
| 318 |
# cvs_src_unpack is usually called several times from e.g. kde-source_src_unpack |
| 319 |
export PATCHES="" |
| 320 |
fi |
| 321 |
|
| 322 |
} |
| 323 |
|
| 324 |
EXPORT_FUNCTIONS src_unpack |
Parent Directory
| 
Revision Log