/[gentoo-x86]/eclass/cvs.eclass
Gentoo

Diff of /eclass/cvs.eclass

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

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

Legend:
Removed from v.1.5  
changed lines
  Added in v.1.32

  ViewVC Help
Powered by ViewVC 1.1.20