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 |