qi/src/qi.in

   1 #! /bin/sh -
   2 # Copyright (C) 2016-2020 Matias Fonzo <selk@dragora.org>
   3 #
   4 # This program is free software: you can redistribute it and/or modify
   5 # it under the terms of the GNU General Public License as published by
   6 # the Free Software Foundation, either version 3 of the License, or
   7 # (at your option) any later version.
   8 #
   9 # This program is distributed in the hope that it will be useful,
  10 # but WITHOUT ANY WARRANTY; without even the implied warranty of
  11 # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  12 # GNU General Public License for more details.
  13 #
  14 # You should have received a copy of the GNU General Public License
  15 # along with this program.  If not, see <http://www.gnu.org/licenses/>.
  16
  17 # EXIT STATUS
  18 # 0  = Successful completion
  19 # 1  = Minor common errors (e.g: help usage, support not available)
  20 # 2  = Command execution error
  21 # 3  = Integrity check error for compressed files
  22 # 4  = File empty, not regular, or expected
  23 # 5  = Empty or not defined variable
  24 # 6  = Package already installed
  25 # 10 = Network manager error
  26
  27 #### Functions
  28
  29 usage()
  30 {
  31     printf "%s\n" \
  32      "Qi - A user-friendly package manager."                              \
  33      ""                                                                   \
  34      "Usage: $PROGRAM [OPTION...] [FILE]..."                              \
  35      ""                                                                   \
  36      "Operation mode:"                                                    \
  37      "  -b          Build packages using recipe names"                    \
  38      "  -c          Create .tlz package from directory"                   \
  39      "  -d          Delete packages"                                      \
  40      "  -i          Install packages"                                     \
  41      "  -o          Resolve build order through .order files"             \
  42      "  -u          Update packages (implies -i, -d with -p)"             \
  43      "  -w          Warn about files that will be linked"                 \
  44      "  -x          Extract a package for debugging purposes"             \
  45      ""                                                                   \
  46      "Common options:"                                                    \
  47      "  -N          Do not read the configuration file"                   \
  48      "  -P <DIR>    Package directory for installations."                 \
  49      "                Only valid for -i, -d, or -u options"               \
  50      "  -f          This option can force the build of a recipe,"         \
  51      "              or force the update of a pre-existing package."       \
  52      "                Only valid for -b, -u options"                      \
  53      "  -t <DIR>    Target directory for symbolic links."                 \
  54      "                Only valid for -i, -d, or -u options"               \
  55      "  -k          Keep \`\${srcdir}' or \`\${destdir}' in build mode,"  \
  56      "              keep package directory in delete mode."               \
  57      "                Only valid for -b, -d or -u options"                \
  58      "  -p          Prune conflicts on package installations"             \
  59      "  -r <DIR>    Use the fully qualified named directory as the"       \
  60      "              root directory for all qi operations.  The target"    \
  61      "              directory and package directory will be relative to"  \
  62      "              the specified directory, including the log file for"  \
  63      "              graft"                                                \
  64      "  -v          Be verbose (a 2nd -v gives more)"                     \
  65      ""                                                                   \
  66      "Options for 'build' mode (-b):"                                     \
  67      "  -O  <DIR>   Where the packages produced are written"              \
  68      "  -W  <DIR>   Where archives, patches, and recipes are expected"    \
  69      "  -Z  <DIR>   Where (compressed) sources will be found"             \
  70      "  -a          Architecture to use [detected]"                       \
  71      "  -j          Parallel jobs for the compiler"                       \
  72      "  -1          Increment release number (\`\${release}' + 1)"        \
  73      "  -n          Don't create a .tlz package"                          \
  74      "  -S          Selects the option to skip completed recipes"         \
  75      ""                                                                   \
  76      "Informative options:"                                               \
  77      "  -L          Print default directory locations"                    \
  78      "  -h          Display this help and exit"                           \
  79      "  -V          Output version information"                           \
  80      ""                                                                   \
  81      "Some influential environment variables:"                            \
  82      "  TMPDIR      Temporary directory for sources"                      \
  83      "  QICFLAGS    C compiler flags"                                     \
  84      "  QICXXFLAGS  C++ compiler flags"                                   \
  85      "  QILDFLAGS   Linker flags"                                         \
  86      ""                                                                   \
  87      "When FILE is -, read standard input."                               \
  88      ""
  89 }
  90
  91 version()
  92 {
  93     printf "%s\n" \
  94      "$PROGRAM @VERSION@" \
  95      "Copyright (C) 2016-2020 Matias Andres Fonzo." \
  96      "License GPLv3+: GNU GPL version 3 or later <http://gnu.org/licenses/gpl.html>" \
  97      "This is free software: you are free to change and redistribute it." \
  98      "There is NO WARRANTY, to the extent permitted by law."
  99 }
 100
 101 warn()
 102 {
 103     printf "%s\n" "$@" 1>&2
 104 }
 105
 106 is_readable()
 107 {
 108     if test -e "$1"
 109     then
 110         if ! test -r "$1"
 111         then
 112             echo "${PROGRAM}: cannot read ${1}: Permission denied" 1>&2
 113             return 1
 114         fi
 115     else
 116         echo "${PROGRAM}: cannot access ${1}: No such file or directory" 1>&2
 117         return 1
 118     fi
 119 }
 120
 121 # Portable alternative to the file operator -nt (among shells)
 122 is_newer()
 123 {
 124     if test -n "$(find $1 -prune -newer $2 -print)"
 125     then
 126         return 0
 127     fi
 128     return 1
 129 }
 130
 131 # Determine whether $2 matches pattern $1
 132 fnmatch()
 133 {
 134     case $2 in
 135     $1)
 136         return 0
 137         ;;
 138     *)
 139         return 1
 140         ;;
 141     esac
 142 }
 143
 144 chkstatus_or_exit()
 145 {
 146     status=$?
 147
 148     if test $status -ne 0
 149     then
 150         echo "^ Return status = $status" 1>&2
 151         exit ${1-2};    # If not given, defaults to 2
 152     fi
 153
 154     unset status
 155 }
 156
 157 readconfig()
 158 {
 159     if test $RC = RC
 160     then
 161         is_readable "$HOME/.qirc" 2> /dev/null && RCFILE="$HOME/.qirc";
 162
 163         echo "Processing \`${RCFILE}' ..."
 164
 165         test -f "$RCFILE" || {
 166             warn "${RCFILE} is not a regular file."
 167             return 1
 168         }
 169
 170         # Parse config file
 171         while IFS='=' read -r variable value
 172         do
 173             case $variable in
 174             \#* | "")   # Ignore commented or blank lines
 175                 continue
 176                 ;;
 177             esac
 178
 179             # Set variable name avoiding code execution
 180             eval "$variable=\${value}"
 181         done < "$RCFILE"
 182     fi
 183 }
 184
 185 #### Mode functions
 186
 187 build_mode()
 188 {
 189     recipe=$1
 190
 191     # A recipe is any valid regular file.  Qi sets priorities for reading a
 192     # recipe, the order in which qi looks for a recipe is:
 193     #
 194     # 1. Current working directory.
 195     #
 196     # 2. If the specified path name does not contain "recipe" as the last
 197     # component.  Qi will complete it by adding "recipe" to the path
 198     # name.
 199     #
 200     # 3. If the recipe is not in the current working directory, it will be
 201     # searched under '${worktree}/recipes'.  The last component will be
 202     # completed adding "recipe" to the specified path name.
 203
 204     if test ! -f "$recipe"
 205     then
 206         if test -f "${recipe}/recipe"
 207         then
 208             recipe="${recipe}/recipe"
 209         elif test -f "${worktree}/recipes/${recipe}/recipe"
 210         then
 211             recipe="${worktree}/recipes/${recipe}/recipe"
 212         fi
 213     fi
 214
 215     test -f "$recipe" || {
 216         warn "\`${recipe}' is not a regular file."
 217         return 4
 218     }
 219
 220     # Complain if the file name is not "recipe"
 221
 222     if test "${recipe##*/}" != recipe
 223     then
 224         warn "\`${recipe}' is not a valid recipe name."
 225         return 4
 226     fi
 227
 228     # Start preparations to import the recipe
 229
 230     # Get working directory and base name of the recipe
 231
 232     CWD=$(dirname -- "$recipe")
 233     recipe=$(basename -- "$recipe")
 234
 235     # Check readability for load the recipe on success
 236
 237     is_readable "${CWD}/$recipe" || exit 4
 238
 239     # Find target architecture if 'arch' is not set
 240     if test -z "$arch"
 241     then
 242         arch="$( ${CC:-cc} -dumpmachine 2> /dev/null )" || arch=unknown
 243         arch="${arch%%-*}"      # Get the rid of target triplet.
 244     fi
 245
 246     # Re-create external directories
 247     mkdir -p -- "${worktree}/archive" \
 248                 "${worktree}/patches" \
 249                 "${worktree}/recipes" \
 250                 "$tardir"
 251
 252     # Variables treatment for the current and next recipe.
 253     #
 254     # Unset special variables that can only be predefined on
 255     # the recipe and not coming from ${sysconfdir}/qirc
 256
 257     unset srcdir destdir pkgname pkgversion program version release \
 258           fetch description homepage license replace full_pkgname \
 259           CFLAGS CXXFLAGS LDFLAGS
 260
 261     # The following variables must be saved and restored
 262     save_arch="${save_arch:=$arch}"
 263     save_jobs="${save_jobs:=$jobs}"
 264     save_outdir="${save_outdir:=$outdir}"
 265     save_opt_nopkg="${save_opt_nopkg:=$opt_nopkg}"
 266
 267     # Reset variable values in case of return
 268     arch=$save_arch
 269     jobs=$save_jobs
 270     outdir=$save_outdir
 271     opt_nopkg=$save_opt_nopkg
 272
 273     # The following variables cannot be redefined on the recipe
 274     readonly worktree netget rsync
 275
 276     # Import the recipe
 277
 278     echo "{@} Building from ${CWD}/$recipe ..."
 279     . "${CWD}/$recipe"
 280     chkstatus_or_exit
 281
 282     # Check for required variables
 283     if test -z "$program"
 284     then
 285         warn "${recipe}: The variable 'program' is not defined."
 286         exit 5
 287     fi
 288     if test -z "$version"
 289     then
 290         warn "${recipe}: The variable 'version' is not defined."
 291         exit 5
 292     fi
 293     if test -z "$release"
 294     then
 295         warn "${recipe}: The variable 'release' is not defined."
 296         exit 5
 297     fi
 298
 299     # Pre-settings before to start building
 300
 301     # Increment the release number if the option was given
 302     if test "$opt_incr_release" = opt_incr_release
 303     then
 304         release=$(( $release + 1 ))
 305     fi
 306
 307     # Allow the dot as definition for 'tardir'
 308     if test "$tardir" = .
 309     then
 310         tardir="$CWD"
 311     fi
 312
 313     # Set default values for the following special variables
 314
 315     pkgname="${pkgname:=$program}"
 316     pkgversion="${pkgversion:=$version}"
 317     srcdir="${srcdir:=${program}-$version}"
 318     destdir="${destdir:=${TMPDIR}/package-$pkgname}"
 319
 320     # Complete package name adding 'pkgversion-arch+release'
 321     full_pkgname="${full_pkgname:=$pkgname-${pkgversion}-${arch}+${release}}"
 322
 323     # If a package is going to be created, the existence of a
 324     # previous build will be detected and reported.  Under normal
 325     # conditions the recipe is built as long as it is newer than
 326     # the produced package, if not, we warn to the user about it.
 327     # Rebuilding the package is possible (through the force ;-)
 328
 329     if test "$opt_nopkg" != opt_nopkg && \
 330      { test "$opt_force" != opt_force && \
 331        test -e "${outdir}/${full_pkgname}.tlz" ; }
 332     then
 333         if is_newer "${CWD}/$recipe" "${outdir}/${full_pkgname}.tlz"
 334         then
 335             warn \
 336              ""                                                          \
 337              "The recipe is more RECENT than the detected package:"      \
 338              ""                                                          \
 339              "$( stat -c "%y %n" "${CWD}/$recipe" )"                     \
 340              "$( stat -c "%y %n" "${outdir}/${full_pkgname}.tlz" )"      \
 341              ""                                                          \
 342              "    This recipe will be processed ..."                     \
 343              ""
 344         elif test -e "${CWD}/post-install" && \
 345              is_newer "${CWD}/post-install" "${CWD}/$recipe"
 346         then
 347             warn \
 348              ""                                                          \
 349              "The post-install script is more RECENT than the recipe:"   \
 350              ""                                                          \
 351              "$( stat -c "%y %n" "${CWD}/post-install" )"                \
 352              "$( stat -c "%y %n" "${CWD}/$recipe" )"                     \
 353              ""                                                          \
 354              "    The recipe will be re-processed ..."                   \
 355              ""
 356              touch "${CWD}/$recipe"
 357         elif test "$opt_skipqsts" = opt_skipqsts
 358         then
 359             warn "Recipe for '${full_pkgname}.tlz':  Ignored." ""
 360             return 0
 361         else
 362             warn \
 363              ""                                                          \
 364              "This recipe ALREADY produced a package:"                   \
 365              "$( stat -c "%y %n" "${outdir}/${full_pkgname}.tlz" )"      \
 366              ""                                                          \
 367              "The recipe is still OLDER than the produced package:"      \
 368              "$( stat -c "%y %n" "${CWD}/$recipe" )"                     \
 369              ""                                                          \
 370              "    Probably nothing has changed."                         \
 371              ""
 372
 373             # In non-interactive mode, the user is asked about
 374             # rebuilding the package.  In interactive mode,
 375             # the user need to pass the option explicitly
 376             if test ! -t 0
 377             then
 378                 printf "%s\n" \
 379                  "Do you want to rebuild this package?"   \
 380                  "1) Yes, built it"                       \
 381                  "2) No, skip it [default]"               \
 382                  "3) Resume, skipping completed recipes"  \
 383                  "Enter an option number:" > /dev/tty
 384                 IFS= read -r ANSWER < /dev/tty || exit 2;
 385                 case $ANSWER in
 386                 1*)
 387                     echo "$ANSWER" > /dev/tty
 388                     unset ANSWER
 389                     ;;
 390                 3*)
 391                     unset ANSWER
 392                     echo "Building UNPROCESSED/MODIFIED recipes ..." > /dev/tty
 393                     echo ""
 394                     opt_skipqsts=opt_skipqsts
 395                     readonly opt_skipqsts
 396                     return 0
 397                     ;;
 398                 *)
 399                     unset ANSWER
 400                     echo "Recipe for '${full_pkgname}.tlz':  Cancelled." > /dev/tty
 401                     echo ""
 402                     return 0
 403                     ;;
 404                 esac
 405             else
 406                 warn "Use the -f option to reprocess ${CWD}/$recipe." ""
 407                 return 6;
 408             fi
 409         fi
 410     fi
 411
 412     # Fetch remote sources
 413
 414     echo "Fetching remote sources if needed ..."
 415     if test -n "$fetch"
 416     then
 417         for origin in $fetch
 418         do
 419             _source="${origin##*/}"
 420
 421             echo "Looking for \"$_source\" ..."
 422
 423             echo "Verifying checksum file \"${_source}.sha256\" from '${tardir}'"
 424             if test -e "${tardir}/${_source}.sha256"
 425             then
 426                 ( cd -- "$tardir" && sha256sum - ) < "${tardir}/${_source}.sha256"
 427                 chkstatus_or_exit
 428                 continue;
 429             else
 430                 warn "${_source}.sha256: Checksum file does not exist, yet."
 431             fi
 432
 433             # Download source or resume if allowed
 434
 435             if test ! -e "${tardir}/$_source"
 436             then
 437                 warn "    Can't find $_source in ${tardir};" \
 438                      "attempting to get it from ${origin%/*} ..."
 439             fi
 440
 441             case $origin in
 442             rsync://*)
 443                     (
 444                         cd -- "$tardir" && $rsync $origin || exit $?
 445                         sha256sum $_source > ${_source}.sha256
 446                     );  chkstatus_or_exit 10
 447                 ;;
 448             *://*)
 449                     (
 450                         cd -- "$tardir" && $netget $origin || exit $?
 451                         sha256sum $_source > ${_source}.sha256
 452                     );  chkstatus_or_exit 10
 453                 ;;
 454             *)
 455                 warn "${PROGRAM}: Unrecognized protocol for ${origin}."
 456                 exit 4
 457             esac
 458         done
 459         unset origin _source
 460     else
 461         warn "The variable 'fetch' is empty."
 462     fi
 463
 464     # Prepare special directories for build the source,
 465     # the destination and the output of the package
 466
 467     echo "Preparing directories ..."
 468
 469     if test -d "${TMPDIR}/$srcdir" && test -z "$keep_srcdir"
 470     then
 471         rm -rf -- "${TMPDIR}/$srcdir" || chkstatus_or_exit
 472         echo "removed directory: '${TMPDIR}/$srcdir'"
 473     fi
 474
 475     if test -d "$destdir"
 476     then
 477         rm -rf -- "$destdir" || chkstatus_or_exit
 478         echo "removed directory: '$destdir'"
 479     fi
 480     mkdir -p -- "$destdir" || chkstatus_or_exit
 481     echo "mkdir: created directory '$destdir'"
 482
 483     if test ! -d "$outdir"
 484     then
 485         mkdir -p -- "$outdir" || chkstatus_or_exit
 486         echo "mkdir: created directory '$outdir'"
 487     fi
 488
 489     echo "Entering to 'TMPDIR': $TMPDIR ..."
 490     cd -- "$TMPDIR" || chkstatus_or_exit
 491
 492     # Set trap before to run the build() function in order
 493     # to catch the return status, exit code 2 if fails
 494
 495     trap 'chkstatus_or_exit 2' EXIT HUP INT QUIT ABRT TERM
 496
 497     # Determine if the debugging indicators of the shell should be
 498     # retained, assuming that it has been previously passed
 499     case $- in *x*)
 500         _xtrace_flag=_xtrace_flag_is_set ;;
 501     esac
 502
 503     echo "Running build() ..."
 504     build
 505     unset build
 506
 507     # Turn off possible shell flags coming from the recipe
 508
 509     set +e
 510     if test "${_xtrace_flag:+$_xtrace_flag}" != _xtrace_flag_is_set
 511     then
 512         set +x
 513     fi
 514
 515     # Reset given signals
 516     trap - EXIT HUP INT QUIT ABRT TERM
 517
 518     # If 'destdir' is empty, the package won't be created
 519     if rmdir -- "$destdir" 2> /dev/null
 520     then
 521         warn "The package \"${full_pkgname}.tlz\" won't be created.  'destdir' is empty."
 522         opt_nopkg=opt_nopkg
 523     fi
 524
 525     # Create (make) the package
 526
 527     if test "$opt_nopkg" != opt_nopkg
 528     then
 529         # Edit the recipe when 'release' is incremented
 530         if test "$opt_incr_release" = opt_incr_release
 531         then
 532             echo ",s/^\(release\)=.*/\1=${release}/"$'\nw' | \
 533              ed "${CWD}/$recipe" || chkstatus_or_exit
 534         fi
 535
 536         mkdir -p -- "${destdir}/var/lib/qi" || chkstatus_or_exit
 537
 538         # Include a recipe copy into the package
 539         cp -p "${CWD}/$recipe" \
 540               "${destdir}/var/lib/qi/${full_pkgname}.recipe" && \
 541         chmod 644 "${destdir}/var/lib/qi/${full_pkgname}.recipe" || chkstatus_or_exit
 542
 543         # Detect post-install script for inclusion
 544
 545         if test -f "${CWD}/post-install"
 546         then
 547             echo "${CWD}/post-install:  Detected."
 548             cp -p "${CWD}/post-install" \
 549                   "${destdir}/var/lib/qi/${full_pkgname}.sh" && \
 550             chmod 644 "${destdir}/var/lib/qi/${full_pkgname}.sh" || chkstatus_or_exit
 551         fi
 552
 553         # Detect declared package names for later replacement
 554
 555         if test -n "$replace"
 556         then
 557             warn \
 558              "The following package names has been declared for replacement:" \
 559              "    $replace"
 560
 561             rm -f "${destdir}/var/lib/qi/${full_pkgname}.replace"
 562             for item in $replace
 563             do
 564                 echo "$replace" >> "${destdir}/var/lib/qi/${full_pkgname}.replace"
 565             done
 566             unset item
 567         fi
 568
 569         # Create meta file for package information
 570         echo "Creating meta file ${full_pkgname}.tlz.txt ..."
 571         do_meta > "${outdir}/${full_pkgname}.tlz.txt" || chkstatus_or_exit
 572
 573         # Make a copy of it for the database
 574         cp -p "${outdir}/${full_pkgname}.tlz.txt" \
 575               "${destdir}/var/lib/qi/${full_pkgname}.txt" || chkstatus_or_exit
 576
 577         # Produce the package
 578         cd -- "$destdir" && create_mode "${outdir}/${full_pkgname}.tlz"
 579     fi
 580
 581     # Back to the current working directory
 582     cd -- "$CWD" || chkstatus_or_exit
 583
 584     # Delete 'srcdir' or 'destdir' if -k was not given
 585     if test "$opt_keep" != opt_keep
 586     then
 587         echo "Deleting temporary directories ..."
 588
 589         srcdir="${srcdir%%/*}"  # Directory name without parents.
 590
 591         if test -r "${TMPDIR}/$srcdir"
 592         then
 593             if test -z "$keep_srcdir"
 594             then
 595                 (
 596                     cd -- "$TMPDIR" && rm -rf -- "$srcdir" && \
 597                      echo "removed directory: '${TMPDIR}/${srcdir}'"
 598                 );  chkstatus_or_exit
 599             else
 600                 warn "The variable 'keep_srcdir' has been set;" \
 601                      "'${TMPDIR}/${srcdir}' will not be deleted."
 602             fi
 603         fi
 604
 605         if test -r "$destdir"
 606         then
 607             rm -rf -- "$destdir" || chkstatus_or_exit
 608             echo "removed directory: '$destdir'"
 609         fi
 610     fi
 611
 612     # Install or update the package if -i or -u was passed
 613     if test "$opt_nopkg" != opt_nopkg
 614     then
 615         if test "$opt_install" = opt_install
 616         then
 617             install_mode "${outdir}/${full_pkgname}.tlz"
 618         elif test "$opt_update" = opt_update
 619         then
 620             upgrade_mode "${outdir}/${full_pkgname}.tlz"
 621         fi
 622     fi
 623
 624     echo ""
 625     echo "All done for ${CWD}/${recipe}."
 626     echo ""
 627 }
 628
 629 create_mode()
 630 {
 631     directory=$(dirname -- "$1")
 632
 633     # Perform sanity checks
 634
 635     if ! fnmatch '/?*' "$directory"
 636     then
 637         warn "${PROGRAM}: Output directory \`${directory}' is not fully qualified"
 638         exit 4
 639     fi
 640     is_readable "$directory" || exit 4
 641
 642     name=$(basename -- "$1")
 643
 644     if test "$name" = "${name%.tlz}"
 645     then
 646         warn "Package format '$name' not supported." \
 647              "It should be \"name-version-architecture+release.tlz\""
 648         exit 4
 649     fi
 650
 651     echo "{#} Creating package $name ..."
 652
 653     ( umask 022 ; tarlz --solid -9 -cvf - * ) > "${directory}/$name"
 654     chkstatus_or_exit 3
 655
 656     ( cd -- "$directory" && sha256sum $name > ${name}.sha256 )
 657     chkstatus_or_exit 4
 658
 659     echo "Package created on \`${directory}/${name}'."
 660     echo ""
 661
 662     # Remove used variables
 663     unset directory name
 664 }
 665
 666 delete_mode()
 667 {
 668     expunge="${packagedir}/$(basename -- $1 .tlz)"
 669
 670     echo "{<} Deleting package $rootdir${expunge} ..."
 671
 672     # Complain if the package directory does not exist
 673
 674     test -d "$rootdir${expunge}" || {
 675         warn "Package directory '$rootdir${expunge}' does not exist."
 676         return 4
 677     }
 678
 679     # Complain if the package directory cannot be well-read
 680
 681     is_readable "$rootdir${expunge}" || exit 4
 682
 683     # Remove package from Graft control
 684
 685     # Scan for possible conflicts, stop if arise
 686     if test "$opt_prune" != opt_prune
 687     then
 688         echo "Checking for possible conflicts ..."
 689         if graft -d -n $graft_r -t "$targetdir" "$expunge" 2>&1 | \
 690          grep ^CONFLICT
 691         then
 692             warn "" \
 693              "    A conflict occurred during uninstallation;"  \
 694              "Unless the -p option is given, this package will be PRESERVED."
 695             return 6;
 696         fi
 697     fi
 698
 699     # Ignore some signals up to completing the deinstallation
 700     trap "" HUP INT QUIT ABRT TERM
 701
 702     # Remove objects (files, links or directories) from the target
 703     # directory that are in conflict with the package directory
 704
 705     echo "Pruning any conflict ..."
 706     graft -p -D -u $graft_r -t "$targetdir" "$expunge"
 707     chkstatus_or_exit 2
 708
 709     echo "Disabling links ..."
 710     graft -d -D -u $graft_v $graft_r -t "$targetdir" "$expunge"
 711     chkstatus_or_exit 2
 712
 713     # Delete package directory
 714     if test "$opt_keep" != opt_keep
 715     then
 716         echo "Deleting package directory, if it exists as such ..."
 717
 718         if test -d "${rootdir}$expunge"
 719         then
 720             rm -rf -- "${rootdir}$expunge" || chkstatus_or_exit
 721             echo "removed directory: '${rootdir}$expunge'"
 722         fi
 723     fi
 724
 725     # Reset given signals
 726     trap - HUP INT QUIT ABRT TERM
 727
 728     # Remove used variables
 729     unset expunge
 730 }
 731
 732 install_mode()
 733 {
 734     # Complain if the package cannot be well-read
 735
 736     is_readable "$1" || exit 4
 737
 738     # Complain if the package does not end in .tlz
 739
 740     if ! fnmatch '*.tlz' "$1"
 741     then
 742         warn "\`${1}' does not end in .tlz"
 743         return 4
 744     fi
 745
 746     # Make preparations to install the package
 747
 748     echo "{>} Installing package $1 ..."
 749
 750     # Get the filename
 751     name=$(basename -- "$1" .tlz)
 752
 753     echo "Checking tarball integrity ..."
 754     tarlz -tf "$1" > /dev/null
 755     chkstatus_or_exit 3
 756
 757     # Create package directory using 'name'
 758     if ! test -d "$rootdir${packagedir}/$name"
 759     then
 760         mkdir -p -- "$rootdir${packagedir}/$name" || chkstatus_or_exit
 761         echo "mkdir: created directory '$rootdir${packagedir}/$name'"
 762     fi
 763
 764     # Scan for possible conflicts, stop if arise
 765     if test "$opt_prune" != opt_prune
 766     then
 767         echo "Checking for possible conflicts ..."
 768         if graft -i -n $graft_r -t "$targetdir" "${packagedir}/$name" 2>&1 | \
 769          grep ^CONFLICT
 770         then
 771             warn "" \
 772              "    A conflict occurred during installation;"  \
 773              "Unless the -p option is given, this package won't be LINKED."
 774              return 6;
 775         fi
 776     fi
 777
 778     # Ignore some signals up to completing the installation
 779     trap "" HUP INT QUIT ABRT TERM
 780
 781     echo "Decompressing $1 ..."
 782     ( cd -- "$rootdir${packagedir}/$name" && tarlz -xf - ) < "$1"
 783     chkstatus_or_exit 3
 784
 785     # Transite package to Graft control
 786
 787     # Remove objects (files, links or directories) from the target
 788     # directory that are in conflict with the package directory
 789     echo "Pruning any conflict ..."
 790     graft -p -D -u $graft_r -t "$targetdir" "${packagedir}/$name"
 791     chkstatus_or_exit 2
 792
 793     echo "Enabling symbolic links ..."
 794     graft -i -P $graft_v $graft_r -t "$targetdir" "${packagedir}/$name"
 795     chkstatus_or_exit 2
 796
 797     # Avoid unnecessary runs coming from the upgrade_mode(),
 798     # this is when the incoming package is **pre-installed**
 799
 800     if test "$_isUpgrade" != _isUpgrade.on
 801     then
 802         # Show package description
 803         if test -r "$rootdir${packagedir}/${name}/var/lib/qi/${name}.txt"
 804         then
 805             grep '^#' "$rootdir${packagedir}/${name}/var/lib/qi/${name}.txt"
 806         elif test -r "${1}.txt"
 807         then
 808             # From external meta file (current directory)
 809             grep '^#' "${1}.txt"
 810         else
 811             warn "Description file not found for '$name'."
 812         fi
 813
 814         # Check and run the post-install script if exist
 815         if test -r "$rootdir${packagedir}/${name}/var/lib/qi/${name}.sh"
 816         then
 817             echo "Running post-install script for \`${name}' ..."
 818             (
 819                 # Rely on 'targetdir' if 'rootdir' is empty
 820                 cd -- "${rootdir:-$targetdir}"/ && \
 821                  . "$rootdir${packagedir}/${name}/var/lib/qi/${name}.sh"
 822             )
 823         fi
 824
 825         # Check if there are declared packages for replacement
 826         if test -r "$rootdir${packagedir}/${name}/var/lib/qi/${name}.replace"
 827         then
 828             while read -r line
 829             do
 830                 for replace in "$rootdir${packagedir}/$(pkgbase $line)"-*
 831                 do
 832                     if ! test -e "$replace"
 833                     then
 834                         warn "${replace}: Declared package does not exist. (ignored)"
 835                         continue;
 836                     fi
 837
 838                     replace="${replace##*/}"
 839
 840                     # The search for the package to be replaced cannot
 841                     # be the same to the incoming package, even to the
 842                     # temporary location coming from the upgrade_mode()
 843                     if test "$replace" = "$name" || test "$replace" = "${PRVLOC##*/}"
 844                     then
 845                         continue;
 846                     fi
 847
 848                     warn "WARNING: Replacing package \`${replace}' ..."
 849
 850                     # Since the links belongs to the new package, only
 851                     # those which are not in conflict can be deleted.
 852                     # To complete, we will remove the package directory
 853
 854                     graft -d -D -u $graft_r \
 855                      -t "$targetdir" "$replace" > /dev/null 2>&1
 856
 857                     rm -rf -- "$rootdir${packagedir}/$replace"
 858                 done
 859             done < "$rootdir${packagedir}/${name}/var/lib/qi/${name}.replace"
 860             unset line
 861         fi
 862     fi
 863
 864     # Reset given signals
 865     trap - HUP INT QUIT ABRT TERM
 866
 867     # Remove used variables
 868     unset name
 869 }
 870
 871 resolve_mode() {
 872     # Complain if the file cannot be well-read
 873
 874     is_readable "$1" || exit 4
 875
 876     # Complain if the file does not end in .order
 877
 878     if ! fnmatch '*.order' "$1"
 879     then
 880         warn "\`${1}' does not end in .order"
 881         return 4
 882     fi
 883
 884     # Get a clean list of the file while printing its contents in reverse
 885     # order. The last `awk 'in the pipeline eliminates the non-consecutive
 886     # lines, the duplicates. Blank lines, colons and parentheses are
 887     # simply ignored, comment lines beginning with '#' are allowed
 888
 889     awk \
 890     '{ gsub( /:|^#(.*)$|\([^)]*)|^$/,"" ); for( i=NF; i > 0; i-- ) print $i }' \
 891      "$1" | awk '!s[$0]++'
 892 }
 893
 894 upgrade_mode()
 895 {
 896     # Complain if the package does not end in .tlz
 897
 898     if ! fnmatch '*.tlz' "$1"
 899     then
 900         warn "\`${1}' does not end in .tlz"
 901         return 4
 902     fi
 903
 904     # Get the filename
 905     incoming=$(basename -- "$1" .tlz)
 906
 907     echo "{^} Upgrading to $incoming ..."
 908
 909     # Check packages in the blacklist for installation
 910
 911     echo "Checking blacklist ..."
 912     for item in $blacklist
 913     do
 914         case $item in
 915         ${incoming}*)
 916             if test ! -e "$rootdir${packagedir}/$incoming"
 917             then
 918                 warn \
 919                  ""                                                   \
 920                  "    The package declared in the blacklist will be"  \
 921                  "installed instead of being updated ..."             \
 922                  ""
 923                 opt_prune=opt_prune install_mode "$1"
 924                 return 0
 925             fi
 926
 927             if is_newer "$1" "$rootdir${packagedir}/$incoming"
 928             then
 929                 warn \
 930                  ""                                                             \
 931                  "Incoming package is more RECENT than the installed package:"  \
 932                  ""                                                             \
 933                  "$( stat -c "%y %n" "$1" )"                                    \
 934                  "$( stat -c "%y %n" "$rootdir${packagedir}/$incoming" )"       \
 935                  ""                                                             \
 936                  "    The package declared in the blacklist will be"            \
 937                  "    installed as part of the upgrade process ..."             \
 938                  ""
 939                 opt_prune=opt_prune install_mode "$1"
 940                 touch "$rootdir${packagedir}/$incoming"
 941                 return 0
 942             else
 943                 warn \
 944                  ""                                                        \
 945                  "Blacklisted package is already up-to-date:"              \
 946                  ""                                                        \
 947                  "$( stat -c "%y %n" "$rootdir${packagedir}/$incoming" )"  \
 948                  "$( stat -c "%y %n" "$1" )"                               \
 949                  ""
 950                 return 6
 951             fi
 952             ;;
 953         esac
 954     done
 955     unset item
 956
 957     # Check package pre-existence
 958     if test "$opt_force" != opt_force && \
 959        test -e "$rootdir${packagedir}/$incoming"
 960     then
 961         warn \
 962          ""                                                                \
 963          "    The package to be updated already exist;"                    \
 964          "Unless the -f option is given, this package won't be UPGRADED."
 965         return 6;
 966     fi
 967
 968     # Prepare the package to install it in a temporary location
 969
 970     # Set random directory using packagedir as prefix and 'incoming' as suffix
 971     PRVLOC=$(mktemp -dp "$rootdir${packagedir}" ${incoming}.XXXXXXXXXXXX) || exit 2
 972
 973     # Pre-install the package in the custom 'packagedir'
 974
 975     save_packagedir="$rootdir${packagedir}"
 976     packagedir="$PRVLOC"
 977
 978     echo "Pre-installing package in a temporary location ..."
 979     opt_prune=opt_prune         # Turn on prune operation.
 980     _isUpgrade=_isUpgrade.on install_mode "$1" > /dev/null
 981     _isUpgrade=_isUpgrade.off
 982
 983     # Restore variable before looking for old packages
 984     packagedir=$save_packagedir
 985     unset save_packagedir
 986
 987     echo "Looking for installations under the same name ..."
 988     for long_name in "$rootdir${packagedir}/$(pkgbase $incoming)"*
 989     do
 990         found="${long_name##*/}"
 991
 992         # The search for the package to be deleted
 993         # cannot be the same to the temporary location
 994         test "$long_name" = "$PRVLOC" && continue;
 995
 996         fnmatch "$(pkgbase $found)*" "$incoming" || continue;
 997         echo "${long_name}:  Detected."
 998
 999         # A package directory is preserved if -k is given
1000         delete_mode "$found" > /dev/null
1001     done
1002     unset long_name found
1003
1004     # Re-install the package removing the temporary location
1005
1006     install_mode "$1"
1007     opt_prune=opt_prune.off     # Turn off prune operation.
1008
1009     echo "Deleting temporary location ..."
1010     rm -rf -- "$PRVLOC" || chkstatus_or_exit
1011     echo "removed directory: '$PRVLOC'"
1012
1013     echo ""
1014     echo "Successful upgrade to '${incoming}'."
1015
1016     # Remove remaining variables
1017     unset incoming PRVLOC
1018 }
1019
1020 warn_mode()
1021 {
1022     # Complain if the package cannot be well-read
1023
1024     is_readable "$1" || exit 4
1025
1026     # Complain if the package does not end in .tlz
1027
1028     if ! fnmatch '*.tlz' "$1"
1029     then
1030         warn "\`${1}' does not end in .tlz"
1031         return 4
1032     fi
1033
1034     # List content of files excluding directories
1035     while test -f "$1"
1036     do
1037         tarlz -tvvf "$1" | awk '!/^drwx/'
1038         chkstatus_or_exit 3
1039         shift;
1040     done
1041     return 0
1042 }
1043
1044 extract_mode()
1045 {
1046     # Perform sanity checks before package extraction
1047
1048     is_readable "$1" || exit 4
1049
1050     test -f "$1" || {
1051         warn "\`${1}' is not a regular file."
1052         return 4
1053     }
1054
1055     # Preparations to extract the package
1056
1057     name=$(basename -- "$1" .tlz)
1058
1059     # Set random directory using 'name' as prefix
1060     PRVDIR="${TMPDIR}/${name}.${RANDOM-0}$$"
1061
1062     # Trap to remove 'PRVDIR' on disruptions
1063     trap "rm -rf -- $PRVDIR" HUP INT ABRT TERM
1064
1065     # Create 'PRVDIR' removing access for all but user
1066     ( umask 077 ; mkdir -- $PRVDIR )
1067     mkdir -p -m 700 -- $PRVDIR
1068
1069     echo "Extracting package $name ..."
1070     ( umask 000 ; cd -- $PRVDIR && tarlz -xvf - ) < "$1"
1071     if test $? -ne 0
1072     then
1073         # Try to remove (empty) 'PRVDIR' on failure
1074         rmdir -- $PRVDIR
1075         exit 3;
1076     fi
1077     echo "$name has been extracted on $PRVDIR"
1078
1079     # Reset given signals
1080     trap - HUP INT ABRT TERM
1081
1082     # Remove used variables
1083     unset name PRVDIR
1084 }
1085
1086 #### Extra functions used in the modes
1087
1088 pkgbase()
1089 {
1090     string=$(basename -- "$1" .tlz)
1091
1092     # Match cases to print the package name.
1093     #
1094     # We will take into account the four segments removing
1095     # the last two to print the package (long) name
1096     case $string in
1097     *-*-*+*)
1098         echo "${string%-*-*}"
1099         ;;
1100     *)
1101         echo "$string"
1102         ;;
1103     esac
1104
1105     unset string
1106 }
1107
1108 unpack()
1109 {
1110     for file in "$@"
1111     do
1112         case $file in
1113         *.tar)
1114             tar -tf "$file" > /dev/null && \
1115             tar -xpf "$file"
1116             chkstatus_or_exit 3
1117             ;;
1118         *.tar.gz | *.tgz | *.tar.Z )
1119             gzip -cd "$file" | tar -tf - > /dev/null && \
1120             gzip -cd "$file" | tar -xpf -
1121             chkstatus_or_exit 3
1122             ;;
1123         *.tar.bz2 | *.tbz2 | *.tbz )
1124             bzip2 -cd "$file" | tar -tf - > /dev/null && \
1125             bzip2 -cd "$file" | tar -xpf -
1126             chkstatus_or_exit 3
1127             ;;
1128         *.tar.lz | *.tlz )
1129             lzip -cd "$file" | tar -tf - > /dev/null && \
1130             lzip -cd "$file" | tar -xpf -
1131             chkstatus_or_exit 3
1132             ;;
1133         *.tar.xz | *.txz )
1134             xz -cd "$file" | tar -tf - > /dev/null && \
1135             xz -cd "$file" | tar -xpf -
1136             chkstatus_or_exit 3
1137             ;;
1138         *.zip | *.ZIP )
1139             unzip -t "$file" > /dev/null && \
1140             unzip "$file" > /dev/null
1141             chkstatus_or_exit 3
1142             ;;
1143         *.gz)
1144             gzip -t "$file" && \
1145             gzip -cd "$file" > "$(basename -- $file .gz)"
1146             chkstatus_or_exit 3
1147             ;;
1148         *.Z)
1149             gzip -t "$file" && \
1150             gzip -cd "$file" > "$(basename -- $file .Z)"
1151             chkstatus_or_exit 3
1152             ;;
1153         *.bz2)
1154             bzip2 -t "$file" && \
1155             bzip2 -cd "$file" > "$(basename -- $file .bz2)"
1156             chkstatus_or_exit 3
1157             ;;
1158         *.lz)
1159             lzip -t "$file" && \
1160             lzip -cd "$file" > "$(basename -- $file .lz)"
1161             chkstatus_or_exit 3
1162             ;;
1163         *.xz)
1164             xz -t "$file" && \
1165             xz -cd "$file" > "$(basename -- $file .xz)"
1166             chkstatus_or_exit 3
1167             ;;
1168         *)
1169             warn "${PROGRAM}: cannot unpack ${file}: Unsupported extension"
1170             exit 1
1171         esac
1172     done
1173     unset file
1174 }
1175
1176 do_meta()
1177 {
1178     # Extract information from the recipe to create the meta file.
1179     #
1180     # The package description is pre-formatted in 78 columns,
1181     # the '#' character and a space is added as prefix to conform
1182     # 80 columns in total
1183
1184     cat << EOF
1185 $(echo "$description" | fold -w 78 | awk '$0="# " $0')
1186
1187 QICFLAGS="$QICFLAGS"
1188 QICXXFLAGS="$QICXXFLAGS"
1189 QILDFLAGS="$QILDFLAGS"
1190 pkgname=$pkgname
1191 pkgversion=$pkgversion
1192 arch=$arch
1193 release=$release
1194 blurb="$(echo "$description" | sed -e '/^$/d;2q')"
1195 homepage="$homepage"
1196 license="$license"
1197 fetch="$fetch"
1198 replace="$replace"
1199
1200 EOF
1201 }
1202
1203 #### Default values
1204
1205 PROGRAM="${0##*/}"
1206 packagedir=@PACKAGEDIR@
1207 targetdir=@TARGETDIR@
1208 blacklist="perl5 graft tarlz plzip musl glibc"
1209 RC=RC
1210 RCFILE=@SYSCONFDIR@/qirc
1211 opt_install=opt_install.off
1212 opt_update=opt_update.off
1213 opt_force=opt_force.off
1214 opt_keep=opt_keep.off
1215 opt_incr_release=opt_incr_release.off
1216 opt_skipqsts=opt_skipqsts.off
1217 opt_nopkg=opt_nopkg.off
1218 opt_prune=opt_prune.off
1219 rootdir=""
1220 jobs=1
1221 mode=""
1222 verbose=0
1223 graft_v=-v
1224 graft_r=""
1225 _isUpgrade=_isUpgrade.off
1226 TMPDIR="${TMPDIR:=/usr/src/qi/build}"
1227 QICFLAGS="${QICFLAGS:=-g0 -Os}"
1228 QICXXFLAGS="${QICXXFLAGS:=$QICFLAGS}"
1229 QILDFLAGS="${QILDFLAGS:=-s}"
1230 worktree=/usr/src/qi
1231 tardir=${worktree}/sources
1232 outdir=/var/cache/qi/packages
1233 netget="wget -c -w1 -t3 --no-check-certificate"
1234 rsync="rsync -v -a -L -z -i --progress"
1235 configure_args="--prefix=@PREFIX@ --libexecdir=@LIBEXECDIR@ --bindir=@BINDIR@ --sbindir=@SBINDIR@ --sysconfdir=@SYSCONFDIR@ --localstatedir=@LOCALSTATEDIR@"
1236 infodir=@INFODIR@
1237 mandir=@MANDIR@
1238 docdir=@DOCDIR@
1239
1240 # Store (default) directory locations
1241 QI_TARGETDIR=$targetdir
1242 QI_PACKAGEDIR=$packagedir
1243 QI_WORKTREE=$worktree
1244 QI_TARDIR=$tardir
1245 QI_OUTDIR=$outdir
1246
1247 #### Parse options
1248
1249 while getopts :bcdiouwxLNP:t:fkvO:W:Z:a:j:1nSpr:hV name
1250 do
1251     case $name in
1252     b)
1253         if test -z "$mode"
1254         then
1255             readconfig
1256             mode=build_mode
1257         fi
1258         ;;
1259     c)
1260         mode=create_mode
1261         ;;
1262     d)
1263         readconfig
1264         mode=delete_mode
1265         ;;
1266     i)
1267         if test -z "$mode"
1268         then
1269             readconfig
1270             mode=install_mode
1271         fi
1272         if test "$mode" = build_mode
1273         then
1274             opt_install=opt_install
1275         fi
1276         ;;
1277     o)
1278         mode=resolve_mode
1279         ;;
1280     u)
1281         if test -z "$mode"
1282         then
1283             readconfig
1284             mode=upgrade_mode
1285         fi
1286         if test "$mode" = build_mode
1287         then
1288             opt_update=opt_update
1289         fi
1290         ;;
1291     w)
1292         mode=warn_mode
1293         ;;
1294     x)
1295         mode=extract_mode
1296         ;;
1297     L)
1298         printf "%s\n" \
1299          "QI_TARGETDIR=$QI_TARGETDIR"    \
1300          "QI_PACKAGEDIR=$QI_PACKAGEDIR"  \
1301          "QI_WORKTREE=$QI_WORKTREE"      \
1302          "QI_TARDIR=$QI_TARDIR"          \
1303          "QI_OUTDIR=$QI_OUTDIR"
1304         exit 0
1305         ;;
1306     N)
1307         RC=RC.off
1308         ;;
1309     P)
1310         packagedir="$OPTARG"
1311         ;;
1312     t)
1313         targetdir="$OPTARG"
1314         ;;
1315     f)
1316         opt_force=opt_force
1317         ;;
1318     k)
1319         opt_keep=opt_keep
1320         ;;
1321     v)
1322         verbose=$(( verbose + 1 ))
1323         ;;
1324     O)
1325         outdir="$OPTARG"
1326         ;;
1327     W)
1328         worktree="$OPTARG"
1329         ;;
1330     Z)
1331         tardir="$OPTARG"
1332         ;;
1333     a)
1334         arch="$OPTARG"
1335         ;;
1336     j)
1337         jobs="$OPTARG"
1338         ;;
1339     1)
1340         opt_incr_release=opt_incr_release
1341         ;;
1342     n)
1343         opt_nopkg=opt_nopkg
1344         ;;
1345     S)
1346         opt_skipqsts=opt_skipqsts
1347         ;;
1348     p)
1349         opt_prune=opt_prune
1350         ;;
1351     r)
1352         rootdir="$OPTARG"
1353         ;;
1354     h)
1355         usage
1356         exit 0
1357         ;;
1358     V)
1359         version
1360         exit 0
1361         ;;
1362     :)
1363         warn "Option '-${OPTARG}' requires an argument"
1364         usage
1365         exit 1
1366         ;;
1367     \?)
1368         warn "Illegal option -- '-${OPTARG}'"
1369         usage
1370         exit 1
1371         ;;
1372     esac
1373 done
1374 shift $(( OPTIND - 1 ))
1375
1376 if test $# -eq 0
1377 then
1378     usage
1379     exit 1
1380 fi
1381
1382 # Program sanity check
1383 for need in awk basename chmod cp dirname find fold graft grep \
1384             mkdir mktemp rm rmdir sed sha256sum stat tarlz
1385 do
1386     if ! type $need > /dev/null
1387     then
1388         warn "${PROGRAM}: Prerequisite \`${need}' not found in PATH"
1389         exit 2
1390     fi
1391 done
1392 unset need
1393
1394 # Determine verbosity level/flag
1395
1396 if test "$verbose" -gt 1
1397 then
1398     graft_v=-V
1399 fi
1400
1401 # Read standard input if FILE is -, or when
1402 # FILE is not connected to a terminal.
1403
1404 if test "$1" = - || test ! -t 0
1405 then
1406     # Unset positional parameters setting $# to zero
1407     set --
1408
1409     # Assign remaining arguments to the positional parameters
1410     while read -r input
1411     do
1412         set -- "$@" "$input"
1413     done
1414 fi
1415
1416 # We need at least one operating mode
1417 if test -z "$mode"
1418 then
1419     usage
1420     exit 4
1421 fi
1422
1423 umask 022;      # Remove write permission for group and other.
1424
1425 # Validate 'packagedir' and 'targetdir' as canonical directories
1426
1427 # The single slash '/' does not qualify here
1428 if ! fnmatch '/?*' "$packagedir"
1429 then
1430     warn "${PROGRAM}: Package directory \`${packagedir}' is not fully qualified"
1431     exit 4
1432 fi
1433 if test ! -d "$packagedir"
1434 then
1435     warn "${PROGRAM}: Package directory \`${packagedir}' does not exist"
1436     exit 4
1437 fi
1438
1439 # The single slash '/' is valid here
1440 if ! fnmatch '/*' "$targetdir"
1441 then
1442     warn "${PROGRAM}: Target directory \`${targetdir}' is not fully qualified"
1443     exit 4
1444 fi
1445 if test ! -d "$targetdir"
1446 then
1447     warn "${PROGRAM}: Target directory \`${targetdir}' does not exist"
1448     exit 4
1449 fi
1450
1451 # Validate 'rootdir' directory
1452
1453 if test -n "$rootdir"
1454 then
1455     if test -d "$rootdir" && test "$rootdir" != /
1456     then
1457         # Remove slash from the end
1458         rootdir="${rootdir%/}"
1459
1460         # A workaround for graft-2.13+.  The specified directory is
1461         # relative to the log file, we prepend it inside the rootdir
1462
1463         eval "$(graft -L)" ; GRAFT_LOGFILE="${GRAFT_LOGFILE:=/var/log/graft}"
1464         mkdir -p -- "$rootdir$(dirname -- $GRAFT_LOGFILE)" || chkstatus_or_exit
1465
1466         # Compose 'rootdir' and log file option to be used with graft(1)
1467         graft_r="-r $rootdir -l $GRAFT_LOGFILE"
1468
1469         # Unset variables coming from eval
1470         unset GRAFT_PERL GRAFT_LOGFILE GRAFT_TARGETDIR GRAFT_PACKAGEDIR
1471     else
1472         warn "${PROGRAM}: Root directory \`${rootdir}' is not fully qualified"
1473         exit 4
1474     fi
1475     export rootdir
1476 fi
1477
1478 # Ensure 'TMPDIR' creation to prefix temporary files
1479
1480 if test ! -d "$TMPDIR"
1481 then
1482     mkdir -p -- "$TMPDIR" || chkstatus_or_exit
1483 fi
1484 readonly TMPDIR
1485
1486 # Process each package or recipe provided on the command-line
1487
1488 for package in "$@"
1489 do
1490     $mode $package
1491 done
1492