qi/src/qi.in

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