Removing -l option for umount of the loop device. Daniel says that
[build.git] / build.common
1 # -*-Shell-script-*-
2 #
3 # Common functions for build scripts used by various packages
4 # incorporated (e.g., build, myplc, myplc-devel, vserver-reference)
5 #
6 # Marc E. Fiuczynski <mef@cs.princeton.edu>
7 # Copyright (C) 2007 The Trustees of Princeton University
8 #
9 # $Id$
10 #
11
12 function pl_getDefaultDistro() {
13     # FC4 is currently the default release
14     echo "Fedora"
15     return 0
16 }
17
18 function pl_getDefaultRelease() {
19     # FC4 is currently the default release
20     echo "4"
21     return 0
22 }
23
24 function pl_getDistro() {
25     defaultDistro=$(pl_getDefaultDistro)
26     if [ -f "/etc/redhat-release" ] ; then
27         distro=$(awk ' { print $1 } ' /etc/redhat-release)
28     else
29         distro=$defaultDistro
30     fi
31     echo "$distro"
32     return 0
33 }
34
35 function pl_getRelease() {
36     defaultRelease=$(pl_getDefaultRelease)
37     if [ -f "/etc/redhat-release" ] ; then
38         release=$(awk ' { if ($1=="Fedora" && $2=="Core") print $4 ; if (($1=="Fedora" && $2!="Core")||$1=="CentOS") print $3 } ' /etc/redhat-release)
39         [ $release -lt $defaultRelease ] && release=$defaultRelease
40     else
41         release=$defaultRelease
42     fi
43     echo "$release"
44     return 0
45 }
46
47 # vserver expects something like fc4 or f7
48 # for fedora and centos only for now
49 function pl_getReleaseName () {
50     distro=$1; shift
51     release=$1; shift
52     case $distro in
53         [Ff]edora*)
54             if [ "$release" -le 6 ] ; then
55                 releasename=fc$release
56             else
57                 releasename=f$release
58             fi ;;
59         [Cc]entOS*)
60             if [ "$release" = "4.5" ] ; then
61             # centos 4.5 is just centos4 + enhancements
62                 releasename=centos4
63             else
64                 releasename=centos$release
65             fi ;;
66         *)
67             releasename="unknown-name-for-${pl_DISTRO}-please-edit-build.common"
68             echo 1>&2 "build.common: WARNING - releasename not set for distro=$distro" 
69             return 1
70             ;;
71     esac
72     echo "$releasename"
73     return 0
74 }
75
76 # figure out which redhat distro we are using (fedora, centos, redhat)
77 pl_DISTRO=$(pl_getDistro)
78
79 # select basearch of the host devel environment - protected for macos for local tests
80 pl_DISTRO_ARCH=$(uname -i 2>/dev/null|| echo unknownarch)
81
82 # let mkfedora select one of its mirrors
83 pl_DISTRO_URL=""
84
85 # the release number (plain number)
86 pl_DISTRO_RELEASE=$(pl_getRelease)
87
88 # the release name - for vserver build - like fc4, f8 or centos4
89 pl_DISTRO_NAME=$(pl_getReleaseName $pl_DISTRO $pl_DISTRO_RELEASE)
90
91 # get path to appropriate yumgroups.xml file
92 # Thierry: quick & dirty improvement 
93 # this file is updated by the toplevel build, from groups/<pldistro>.xml
94 pl_DISTRO_YUMGROUPS="../../../RPMS/yumgroups.xml"
95
96 function pl_process_fedora_options () {
97     # Get options
98     shiftcount=0
99     while getopts "l:r:a:h" opt ; do
100         case $opt in
101             l)
102                 pl_DISTRO_URL=$OPTARG
103                 let shiftcount=$shiftcount+2
104                 ;;
105             r)
106                 pl_DISTRO_RELEASE=$OPTARG
107                 let shiftcount=$shiftcount+2
108                 ;;
109             a)
110                 pl_DISTRO_ARCH=$OPTARG
111                 let shiftcount=$shiftcount+2
112                 ;;
113             h|*)
114                 echo "Usage: $0 [OPTION]..."
115                 echo "  -l url          distro mirror location (default: $pl_DISTRO_URL)"
116                 echo "  -r release      distro release number (default: $pl_DISTRO_RELEASE)"
117                 echo "  -a arch         distro architecture (default: $pl_DISTRO_ARCH)"
118                 echo "where distro can be either fedora, centos, or redhat"
119                 echo "  -h              This message"
120                 exit 1
121                 ;;
122         esac
123     done
124     return $shiftcount
125 }
126
127 ######################################## handling a root image
128 function pl_root_rpm_macros () {
129     cat <<EOF
130 %_install_langs C:en_US:en
131 %_netsharedpath /proc:/dev/pts:/usr/share/info
132 %_excludedocs 1
133 %__file_context_path /dev/null
134 EOF
135 }
136
137 function pl_root_makedevs() {
138     vroot=$1
139     # Clean ${vroot}/dev, but only when ${vroot}!=""
140     [ -n $vroot ] && rm -rf $vroot/dev
141     
142     mkdir -p $vroot/dev
143     mknod -m 666 $vroot/dev/null c 1 3
144     mknod -m 666 $vroot/dev/zero c 1 5
145     mknod -m 666 $vroot/dev/full c 1 7
146     mknod -m 644 $vroot/dev/random c 1 8
147     mknod -m 644 $vroot/dev/urandom c 1 9
148     mknod -m 666 $vroot/dev/tty c 5 0
149     mknod -m 666 $vroot/dev/ptmx c 5 2
150     # For bash command substitution
151     ln -nsf ../proc/self/fd $vroot/dev/fd
152
153     # For df and linuxconf
154     touch $vroot/dev/hdv1
155
156     # For pseudo ttys
157     mkdir -p $vroot/dev/pts
158
159     # (Might have to remove the following for vserver-reference.)
160
161     # for tmpfs mount
162     mkdir -p $vroot/dev/shm
163
164     # For TUN/TAP
165     mkdir -p $vroot/dev/net
166     mknod -m 600 $vroot/dev/net/tun c 10 200
167
168     # For mkinitrd (in case a kernel is being installed)
169     # As well for loop back mounting within a vserver. 
170     for i in $(seq 0 255) ; do
171         mknod -m 640 $vroot/dev/loop$i b 7 $i
172     done
173 }
174
175 # Default yum repositories to try
176 mirrors=(
177     file:///data/fedora
178     http://localhost/fedora
179     http://build.planet-lab.org/fedora
180     http://coblitz.codeen.org/coblitz.planet-lab.org/pub/fedora
181     ftp://mirror.cs.princeton.edu/pub/mirrors/fedora
182     ftp://mirror.stanford.edu/pub/mirrors/fedora
183     ftp://rpmfind.net/linux/fedora
184     )
185
186 function mkfedora_usage() {
187     echo "Usage: pl_root_mkfedora [OPTION]... basedir"
188     echo "      -l url          Fedora mirror location. Default is to try:"
189     for mirror in "${mirrors[@]}" ; do
190         echo "                  $mirror"
191     done
192     echo "      -f pkgsfile     use this pkgs file for packages, groups, excludes.."
193     echo "      -k              Exclude kernel* packages from all repositories except bootstrap"
194     echo "      -v              Be verbose"
195     echo "      -h              This message"
196     echo " target selection (defaults based on current build vserver)"
197     echo "      -r release      Fedora release number (default: $releasever)"
198     echo "      -a arch         Fedora architecture (default: $basearch)"
199     echo " legacy (use -f instead)"
200     echo "      -g group1 -g group2 ..."
201     echo "                      Yumgroups to install (default: none)"
202     echo "      -p package1 -p package2 ..."
203     echo "                      Additional packages to install (default: none)"
204     echo "      -x package1 -x package2 ..."
205     echo "                      Packages to exclude (default: none)"
206     exit 1
207 }
208
209 function pl_root_mkfedora () {
210
211     echo "* Entering pl_root_mkfedora" "$@"
212
213     if [ $UID -ne 0 ] ; then
214         echo "Error: You must run this script as root."
215         exit 1
216     fi
217
218 # Verbosity
219     verbose=0
220
221 # Release and architecture to install : defaults to current vserver's settings or previously parsed fedora_options
222     releasever=$pl_DISTRO_RELEASE
223     basearch=$pl_DISTRO_ARCH
224     [ -n "$pl_DISTRO_URL" ] && mirrors=($pl_DISTRO_URL)
225
226 # Yum groups to install
227     groups=()
228
229 # Packages to install
230     packages=()
231
232 # Packages to exclude
233     exclude=()
234
235 # Exclude kernel* (and related) packages from all repositories except bootstrap
236     exclude_kernel=
237
238 # Get options
239     while getopts "l:r:a:g:p:x:f:kvh" opt ; do
240         case $opt in
241             l)
242                 if echo $OPTARG | grep -q -i '^\(file\|http[s]*\)://' ; then
243                     mirrors=($OPTARG)
244                 else
245                     # xxx rather use this as a .mirrors file, searched in config.pldistro/
246                     # that would use the pkgs syntax with mirror:
247                     #mirrors=($(pl_parsePkgs mirror <fcdistro> $(pl_locateDistroFile ../build/ <pldistro> $OPTARG.mirrors)))
248                     mirrors=(file://$OPTARG)
249                 fi
250                 ;;
251             r)
252                 releasever=$OPTARG
253                 ;;
254             a)
255                 basearch=$OPTARG
256                 ;;
257             g)
258                 groups[${#groups[*]}]="$OPTARG"
259                 ;;
260             p)
261                 packages[${#packages[*]}]="$OPTARG"
262                 ;;
263             x)
264                 exclude[${#exclude[*]}]="$OPTARG"
265                 ;;
266             f)
267                 pkgsfile=$OPTARG
268                 ;;
269             k)
270                 exclude_kernel="exclude=kernel* ulogd iptables"
271                 ;;
272             v)
273                 verbose=1
274                 set -x
275                 ;;
276             h|*)
277                 mkfedora_usage
278                 ;;
279         esac
280     done
281
282     shift $(($OPTIND - 1))
283     [[ -n "$@" ]] || mkfedora_usage
284     vroot=$1 ; shift
285     vroot=$(cd $vroot && pwd -P)
286     [[ -z "$@" ]] || mkfedora_usage
287     [ -d $vroot ] || mkfedora_usage
288
289     function mkfedora_fetch ()
290     {
291         curl --fail --silent --max-time 60 "$1"
292     }
293
294     # set list of attempted locations according to releasever
295     if [ $releasever -ge 7 ] ; then
296         attempts="
297 linux/releases/$releasever/Everything/$basearch/os
298 $releasever/Everything/$basearch/os
299 core/$releasever/Everything/$basearch/os
300 linux/core/$releasever/$basearch/os
301 "
302     else
303         attempts="
304         linux/core/$releasever/$basearch/os 
305         core/$releasever/$basearch/os 
306         $releasever/$basearch/os
307         "
308     fi
309
310     echo "$0: candidate mirrors"
311     for mirror in "${mirrors[@]}" ; do
312         echo "* candidate mirror $mirror"
313     done
314     baseurl=""
315     for mirror in "${mirrors[@]}" ; do
316         for attempt in $attempts; do 
317             attempturl=$mirror/$attempt
318             if mkfedora_fetch $attempturl/repodata/repomd.xml >/dev/null ; then
319                 baseurl=$attempturl
320                 break 2
321             fi
322         done
323     done
324
325     if [ -z "$baseurl" ] ; then
326         echo "Error: $releasever/$basearch/os/repodata/repomd.xml"
327         echo "       could not be found in any of the following locations:"
328         echo
329         for mirror in ${mirrors[@]} ; do
330             for attempt in $attempts ; do
331                 echo $mirror/$attempt
332             done
333         done
334         echo
335         mkfedora_usage
336     else
337         echo "* selecting mirror with baseurl=$baseurl"
338     fi
339
340     # Do not tolerate errors
341     set -e
342
343     ## make rpms ignore installing stuff to special fs entries like /proc
344     # Because of https://bugzilla.redhat.com/bugzilla/show_bug.cgi?id=52725
345     # you have to use at least one language beside 'C'
346     # Prevent all locales from being installed in reference image
347     mkdir -p $vroot/etc/rpm
348     pl_root_rpm_macros > $vroot/etc/rpm/macros 
349
350     # Trick rpm and yum, who read the real root /etc/rpm/macros file
351     # rather than the one installed in the reference image, despite what
352     # you might expect the --root and --installroot options to mean. Both
353     # programs always read $HOME/.rpmmacros.
354     export HOME=$vroot/tmp
355     mkdir -p $vroot/tmp
356     pl_root_rpm_macros > $vroot/tmp/.rpmmacros
357
358     function mkfedora_cleanup () {
359         umount -l $vroot/proc
360         umount -l $vroot/dev/shm
361         umount -l $vroot/dev/pts
362     }
363
364     # Clean up before exiting if anything goes wrong
365     trap "mkfedora_cleanup" ERR INT
366
367     # Mount in reference image
368     mount -t devpts none $vroot/dev/pts
369     mount -t tmpfs none $vroot/dev/shm
370     mkdir -p $vroot/proc
371     mount -t proc none $vroot/proc
372     
373     # Create a /var/lib dirs for yum & rpm
374     mkdir -p $vroot/var/lib/yum
375     mkdir -p $vroot/var/lib/rpm
376     mkdir -p $vroot/usr/share/info
377
378     # Create a dummy /etc/fstab in reference image
379     mkdir -p $vroot/etc
380     cat >$vroot/etc/fstab <<EOF
381 # This fake fstab exists only to please df and linuxconf.
382 /dev/hdv1       /       ext2    defaults        1 1
383 EOF
384     cp $vroot/etc/fstab $vroot/etc/mtab
385
386     # Necessary for some scripts
387     mkdir -p $vroot/etc/sysconfig
388     echo "NETWORKING=yes" > $vroot/etc/sysconfig/network
389
390     # Initialize RPM database in reference image
391     mkdir -p $vroot/var/lib/rpm
392     rpm --root $vroot --initdb
393     rpm --root $vroot --import $baseurl/RPM-GPG-KEY-fedora
394
395     # Initialize yum in reference image
396     mkdir -p $vroot/var/cache/yum $vroot/var/log
397     if [ $releasever -lt 7 ] ; then
398         corename="Core "
399     else
400         corename=""
401     fi
402
403     cat >$vroot/etc/yum.conf <<EOF
404 [main]
405 cachedir=/var/cache/yum
406 debuglevel=2
407 logfile=/var/log/yum.log
408 pkgpolicy=newest
409 distroverpkg=redhat-release
410 tolerant=1
411 exactarch=1
412 retries=20
413 obsoletes=1
414 gpgcheck=0
415 # Prevent yum-2.4 from loading additional repository definitions
416 # (e.g., from /etc/yum.repos.d/)
417 reposdir=/dev/null
418
419 [base]
420 name=Fedora ${corename}${releasever} - $basearch - base
421 baseurl=$baseurl/
422 $exclude_kernel
423 EOF
424
425     for optional in updates extras ; do
426         for optionalurl in \
427             $mirror/linux/core/$optional/$releasever/$basearch \
428             $mirror/core/$optional/$releasever/$basearch \
429             $mirror/linux/$optional/$releasever/$basearch \
430             $mirror/$optional/$releasever/$basearch ; do
431             if mkfedora_fetch $optionalurl/repodata/repomd.xml ; then
432                 cat >>$vroot/etc/yum.conf <<EOF
433
434 [$(basename $optional)]
435 name=Fedora ${corename}${releasever} - $basearch - $(basename $optional)
436 baseurl=$optionalurl/
437 $exclude_kernel
438 EOF
439                 break
440             fi
441         done
442     done
443
444     # If we are being built as part of an automated RPM build, solve the
445     # bootstrap problem by including any just built packages in the yum
446     # configuration. This cooperates with the PlanetLab build system.
447 ### make takes care of that
448     if [ -n "$RPM_BUILD_DIR" ] ; then
449         RPM_RPMS_DIR=$(cd $(dirname $RPM_BUILD_DIR)/RPMS && pwd -P)
450 ###        # yum-2.0.x
451 ###     if [ -x /usr/bin/yum-arch ] ; then
452 ###         yum-arch -q $RPM_RPMS_DIR
453 ###     fi
454 ###        # yum-2.4.x
455 ###     if [ -x /usr/bin/createrepo ] ; then
456 ###         if [ -f $RPM_RPMS_DIR/yumgroups.xml ] ; then
457 ###             groupfile="-g yumgroups.xml"
458 ###         fi
459 ###         createrepo --quiet $groupfile $RPM_RPMS_DIR
460 ###     fi
461         # If run under sudo, allow user to delete the headers/ and
462         # repodata/ directories.
463         if [ -n "$SUDO_USER" ] ; then
464             chown -R $SUDO_USER $RPM_RPMS_DIR
465         fi
466         cat >>$vroot/etc/yum.conf <<EOF
467
468 [bootstrap]
469 name=Bootstrap - $basearch - $RPM_RPMS_DIR/
470 baseurl=file://$RPM_RPMS_DIR/
471 EOF
472 fi
473
474     # pkgs file
475     if [ -n "$pkgsfile" ] ; then
476         # parse pkgsfile and add to local vars
477         fcdistro=$(pl_getReleaseName "Fedora" $releasever)
478         for i in $(pl_parsePkgs package $fcdistro $pkgsfile)  ; do
479             packages[${#packages[*]}]="$i"
480         done
481         for i in $(pl_parsePkgs group $fcdistro $pkgsfile) ; do
482             groups[${#groups[*]}]="$i"
483         done
484         for i in $(pl_parsePkgs exclude $fcdistro $pkgsfile) ; do
485             exclude[${#exclude[*]}]="$i"
486         done
487         junk=$(pl_parsePkgs junk $fcdistro $pkgsfile)
488         precious=$(pl_parsePkgs precious $fcdistro $pkgsfile)
489     fi
490
491     excludes=
492     for package in "${exclude[@]}" ; do
493         excludes="$excludes --exclude=$package"
494     done
495
496     # glibc must be specified explicitly for the correct arch to be
497     # chosen.
498     echo "* Installing glibc"
499     yum -c $vroot/etc/yum.conf --installroot=$vroot -y $excludes install glibc
500
501     # Go, baby, go
502     if [ ${#packages[*]} -gt 0 ] ; then
503         echo "* Installing optional packages" "${packages[@]}" 
504         yum -c $vroot/etc/yum.conf --installroot=$vroot -y $excludes \
505             install "${packages[@]}"
506         if ! rpm --root $vroot -q "${packages[@]}" >/dev/null ; then
507             echo "* Warning: Missing packages"
508             rpm --root $vroot -q "${packages[@]}" | grep "not installed"
509         fi
510     fi
511
512     if [ ${#groups[*]} -gt 0 ] ; then
513        ## call yum sequentially to get finer-grained info on dependencies
514         for grp in "${groups[@]}" ; do
515             echo "* Installing optional group $grp" 
516             yum -c $vroot/etc/yum.conf --installroot=$vroot -y $excludes \
517                 groupinstall "$grp"
518         done
519     fi
520
521     # formerly in bootcd/prep.sh : to optimize footprint
522     echo "* Removing unnecessary junk"
523
524     pushd $vroot
525
526     # Save precious files
527     [ -n "$precious" ] && tar --ignore-failed-read -cpf precious.tar $precious
528
529     # Remove unnecessary junk
530     [ -n "$junk" ] && rm -rf $junk
531
532     # Restore precious files
533     [ -n "$precious" ] && tar -xpf precious.tar && rm -f precious.tar
534
535     popd
536
537 ###    # FC2 dev %preinstall checks /proc/mounts to make sure that /dev is
538 ###    # not currently mounted as devfs. If it thinks it is, it will refuse
539 ###    # to install the package. On a modern system running udev that mounts
540 ###    # /dev as tmpfs, this check fails. Since we are installing into a
541 ###    # chroot, whether /dev is mounted on the host system or not doesn't
542 ###    # matter. If dev was explicitly mentioned in the packages list, force
543 ###    # its installation.
544 ###    if [ "$releasever" = "2" ] ; then
545 ###     for package in "${packages[@]}" ; do
546 ###         if [ "$package" = "dev" ] && ! rpm --root $vroot -q dev >/dev/null 2>&1 ; then
547 ###             rpm --root $vroot -Uvh --noscripts $baseurl/Fedora/RPMS/dev-3.3.13-1.i386.rpm
548 ###             break
549 ###         fi
550 ###     done
551 ###    fi
552
553     # Clean yum cache
554     echo "* Cleaning up"
555     yum -c $vroot/etc/yum.conf --installroot=$vroot -y clean all
556
557     # Clean RPM state
558     rm -f $vroot/var/lib/rpm/__db*
559
560     # Set time zone to UTC
561     if [ -f $vroot/usr/share/zoneinfo/UTC -a -f $vroot/etc/localtime ] ; then
562         rm -f $vroot/etc/localtime
563         ln -s /usr/share/zoneinfo/UTC $vroot/etc/localtime
564     fi
565
566     # remove trap handler, as we are about to call it directly.
567     trap - ERR INT
568
569     # Clean up
570     mkfedora_cleanup
571
572     return 0
573 }
574
575 function pl_root_setup_chroot() {
576     root=$1; shift
577     options="$@"
578
579     pl_root_makedevs $root
580     pl_root_mkfedora $options $root 
581
582     # Disable all services in reference image
583     chroot $root sh -c "/sbin/chkconfig --list | awk '{ print \$1 }' | xargs -i /sbin/chkconfig {} off"
584
585     # FC2 minilogd starts up during shutdown and makes unmounting
586     # impossible. Just get rid of it.
587     rm -f $root/sbin/minilogd
588     ln -nsf /bin/true $root/sbin/minilogd
589
590     # This tells the Boot Manager that it is okay to update
591     # /etc/resolv.conf and /etc/hosts whenever the network configuration
592     # changes. Users are free to delete this file.
593     touch $vroot/etc/AUTO_UPDATE_NET_FILES
594 }
595
596 # Move specified directories out of a src tree into a dst tree, and
597 # then for each moved directory create a symlink in src to dst.
598 function pl_move_dirs() {
599     root=$1
600     data=$2
601     store=$3
602     shift 3
603
604     mkdir -p $root/data
605     for datadir in "$@" ; do
606         mkdir -p ${data}${datadir}
607         if [ -d ${root}/${datadir} -a ! -h ${root}/${datadir} ] ; then
608             (cd ${root} && find ./${datadir} | cpio -p -d -u ../${data}/)
609         fi
610         rm -rf ${root}/${datadir}
611         mkdir -p $(dirname ${root}/${datadir})
612         ln -nsf /${store}/${datadir} ${root}/${datadir}
613     done
614 }
615
616 # Construct an image file from given some directory
617 # XXX in the future maybe use livecdtools?
618 function pl_make_image() {
619     root=$1
620     image=$2
621     extraspace=$3
622
623     # Leave about 100 MB free space and allow for about 20% inode overhead
624     bytes=$((($(du -sb $root | cut -f1) + $extraspace) * 120 / 100))
625     bs=4096
626     blocks=$(($bytes / $bs))
627     dd bs=$bs count=$blocks if=/dev/zero of=$image
628     mkfs.ext3 -b $bs -j -F $image
629
630     # Temporarily mount it
631     tmp=$(mktemp -d tmp.XXXXXX)
632     mount -o loop $image $tmp
633     trap "umount $tmp; rmdir $tmp" ERR INT
634
635     # Move files to it
636     (cd $root && tar cpf - .) | (cd $tmp && tar xpf -)
637
638     # Unmount it
639     umount $tmp
640     rmdir $tmp
641     trap - ERR INT
642 }
643
644 # Fix permissions on tmp directories
645 function pl_fixtmp_permissions() {
646     root=$1
647     chmod 1777 $root/tmp $root/usr/tmp $root/var/tmp
648 }
649
650 function pl_fixdirs() {
651     root=$1
652     datadirs=$2
653     for datadir in datadirs ; do
654         if [ -h ${root}/${datadir} ] ; then
655             rm -f ${root}/${datadir}
656             mkdir -p ${root}/${datadir}
657         fi
658     done
659 }
660
661 ########## .pkgs format
662 # comments start with a # - this is needed only if you use a keyword in a comment
663
664 function pl_getPkgsAttribute () {
665     keyword=$1; shift
666     file=$1; shift
667     grep -v '^#' $file | grep --regexp="^${keyword}:" | sed -e "s,${keyword}:,,"
668 }
669
670
671 # for a given keyword like 'package' :
672 # we support fcdistro-dependant format, for tokens (pkgname) without whitespace
673 # you can e.g. use
674 # package: pkg1 .. pkgn 
675 # package+f8: pkg1 .. pkgn
676 # package-f8: pkg1 .. pkgn
677
678 function pl_parsePkgs () {
679
680     keyword=$1;shift
681     fcdistro=$1; shift
682     # remaining arguments are paths to the pkgs files
683
684     # grab regular descriptions
685     all=$(grep -v '^#' "$@" | grep --regexp="^${keyword}:" | sed -e "s,${keyword}:,,")
686     # grab additions
687     add=$(grep -v '^#' "$@" | grep --regexp="^${keyword}+${fcdistro}:" | sed -e "s,${keyword}\+${fcdistro}:,,")
688     # grab exclusions
689     sub=$(grep -v '^#' "$@" | grep --regexp="^${keyword}\-${fcdistro}:" | sed -e "s,${keyword}\-${fcdistro}:,,")
690
691     for i in $all $add; do
692         for exclude in $sub; do
693             [ "$i" = "$exclude" ] && continue 2
694         done
695         echo "$i "
696     done
697     return 0
698 }
699
700 function pl_getPackages() { fcdistro=$1; shift ; pl_parsePkgs package $fcdistro "$@" ; }
701 function pl_getGroups() { fcdistro=$1; shift ; pl_parsePkgs group $fcdistro "$@" ; }
702
703 # locates a pldistro-dependant file
704 # tries first in build/<pldistro>/, then in build/planetlab/
705 function pl_locateDistroFile () {
706     builddir=$1; shift
707     pldistro=$1; shift
708     pkgsfile=$1; shift
709
710     pkgspath=""
711     # locate it
712     paths="$builddir/config.$pldistro/$pkgsfile $builddir/config.planetlab/$pkgsfile"
713     for path in $paths; do
714         if [ -f $path ] ; then
715             pkgspath=$path
716             break
717         fi
718     done
719     if [ -z "$pkgspath" ] ; then
720         echo 1>&2 "pl_locateDistroFile - in $(pwd) : cannot locate $pkgsfile in $builddir"
721         echo 1>&2 "candidates were $paths"
722         echo "not-found-by-pl_locateDistroFile"
723         return 1
724     else
725         echo 1>&2 "pl_locateDistroFile: using $pkgspath"
726         echo $pkgspath
727         return 0
728     fi
729 }
730
731 # experimental
732 function yumgroups_from_pkgs () {
733     builddir=$1; shift
734     pldistro=$1; shift
735     fcdistro=$1; shift
736     pkgsnames=$@
737
738 sedargs="-e s,@FCDISTRO@,$fcdistro,g"
739
740    cat <<__header
741 <?xml version="1.0"?>
742 <!DOCTYPE comps PUBLIC "-//Red Hat, Inc.//DTD Comps info//EN" "comps.dtd">
743 <comps>
744 __header
745
746     for pkgsname in $pkgsnames; do
747         pkgsfile=$(pl_locateDistroFile $builddir $pldistro $pkgsname)
748         packages=$(pl_getPackages $fcdistro $pkgsfile)
749
750         groupname=$(pl_getPkgsAttribute groupname $pkgsfile | sed $sedargs)
751         groupdesc=$(pl_getPkgsAttribute groupdesc $pkgsfile | sed $sedargs)
752
753         if [ -z "$groupname" -o -z "$groupdesc" ] ; then
754             echo "Cannot find groupname: and groupdesc: in $pkgsfile -- skipped" 1>&2
755             continue
756         fi
757         
758         cat << __group_header
759   <group>
760     <id>$(echo $groupname|tr A-Z a-z)</id>
761     <name>$groupname</name>
762     <default>true</default>
763     <description>$groupdesc</description>
764     <uservisible>false</uservisible>
765     <packagelist>
766 __group_header
767         for package in $packages; do 
768             echo "<packagereq type=\"mandatory\">$package</packagereq>"
769         done
770         cat << __group_footer
771     </packagelist>
772   </group>
773 __group_footer
774     done
775 cat <<__footer
776 </comps>
777 __footer
778 }
779
780