distrib/sets/syspkgdeps

   1 #!/bin/sh
   2 #
   3 # syspkgdeps [-a arch] [-m machine] [-s setsdir] [-p prefix] sets
   4 #
   5 # Compute naive package dependencies based on file & directory
   6 # nesting. E.g., if pkg P contains /foo/bar and Q contains /foo,
   7 # then Q is considered a dependency of P.
   8 #
   9 # Each line of output contains two syspkg names,
  10 # where the first syspkg depends on the second syspkg.
  11 #
  12
  13 #set -u
  14
  15 prog="${0##*/}"
  16 rundir="$(dirname "$0")" # ${0%/*} isn't good enough when there's no "/"
  17 . "${rundir}/sets.subr"
  18
  19 #
  20 # set defaults
  21 #
  22 prefix=/
  23
  24 usage()
  25 {
  26         cat 1>&2 <<USAGE
  27 Usage: ${0##*/} [-a arch] [-m machine] [-s setsdir] [-p prefix] setname [...]
  28         -a arch         set arch (e.g, m68k, mips, powerpc)     [${MACHINE_ARCH}]
  29         -m machine      set machine (e.g, amiga, i386, macppc)  [${MACHINE}]
  30         -s setsdir      directory to find sets                  [${setsdir}]
  31         -p prefix       prefix for created plist                [${prefix}]
  32         setname [...]   sets to find dependencies for
  33 USAGE
  34         exit 1
  35 }
  36
  37 # parse arguments
  38 while getopts a:m:p:s: ch; do
  39         case ${ch} in
  40         a)
  41                 MACHINE_ARCH="${OPTARG}"
  42                 MACHINE_CPU="$(arch_to_cpu "${OPTARG}")"
  43                 ;;
  44         m)
  45                 MACHINE="${OPTARG}"
  46                 ;;
  47         p)
  48                 prefix="${OPTARG}"
  49                 ;;
  50         s)
  51                 setsdir="${OPTARG}"
  52                 ;;
  53         *)
  54                 usage
  55                 ;;
  56         esac
  57 done
  58 shift $((${OPTIND} - 1))
  59 if [ $# -lt 1 ]; then
  60         usage
  61 fi
  62
  63 sets="$*"
  64 case "${sets}" in
  65 all)    sets="${nlists}" ;;
  66 esac
  67
  68 # TBD clean up
  69 SCRATCH="$(${MKTEMP} -d "/var/tmp/${prog}.XXXXXX")"
  70
  71 if [ $? -ne 0 ]; then
  72         echo >&2 "${prog}: Could not create scratch directory."
  73         exit 1
  74 fi
  75
  76 PATH_MEMBERSHIP="${SCRATCH}/path-membership"
  77 PATH_TO_PKGNAME="${SCRATCH}/pathpkg.db"
  78 PARENT_PKGNAMES="${SCRATCH}/parent-pkgnames"
  79 PARENT_PATHNAMES="${SCRATCH}/parent-pathnames"
  80
  81 echo >&2 "${prog}: indexing packages by pathnames"
  82
  83 list_set_files ${sets} | ${SED} 's/^\.\///' | \
  84 ${ENV_CMD} PREFIX="${prefix}" ${AWK} '{
  85         if ($1 == ".") {
  86                 print ENVIRON["PREFIX"] " " $2;
  87         } else {
  88                 print ENVIRON["PREFIX"] $1 " " $2;
  89         }
  90 }' | ${SORT} -k 1 -u > "${PATH_MEMBERSHIP}"
  91
  92 ${DB} -q -w -f - btree "${PATH_TO_PKGNAME}" < "${PATH_MEMBERSHIP}"
  93
  94 if [ $? -ne 0 ]; then
  95         echo >&2 "${prog}: error creating database, aborting"
  96         exit 1
  97 fi
  98
  99 echo >&2 "${prog}: computing parent pathnames"
 100
 101 while read pathname pkgname; do
 102         # print parent pathname.
 103         # (This uses a cheap implementation of dirname from sets.subr.)
 104         dirname "${pathname}"
 105 done < "${PATH_MEMBERSHIP}" > "${PARENT_PATHNAMES}"
 106
 107 echo >&2 "${prog}: selecting parent packages using parent pathnames"
 108
 109 ${DB} -q -f - btree "${PATH_TO_PKGNAME}" < "${PARENT_PATHNAMES}" | \
 110         ${PASTE} "${PATH_MEMBERSHIP}" - | \
 111         ${AWK} '{ if ($2 != $4) print $2 " " $4; }' | \
 112         ${SORT} -u > "${SCRATCH}/alldeps"
 113
 114 if [ $? -ne 0 ]; then
 115         echo >&2 "${prog}: error in parent-directory lookup, aborting"
 116         exit 1
 117 fi
 118
 119 echo >&2 "${prog}: checking for cyclic dependencies"
 120
 121 tsort_errors="$(${TSORT} < "${SCRATCH}/alldeps" 2>&1 >/dev/null)"
 122
 123 if [ -n "${tsort_errors}" ]; then
 124         # Errors from tsort are usually to do with cyclic dependencies.
 125         # The most likely underlying cause is that /foo and /foo/bar/baz
 126         # are in syspkg A, but /foo/bar is in syspkg B.
 127         echo >&2 "${tsort_errors}" # this is likely to be multiple lines
 128         echo >&2 "${prog}: Above messages probably indicate an error in the lists"
 129         exit 1
 130 fi
 131
 132 echo >&2 "${prog}: removing redundant dependencies"
 133
 134 ${HOST_SH} "${rundir}/culldeps" < "${SCRATCH}/alldeps"
 135
 136 if [ $? -ne 0 ]; then
 137         echo >&2 "${prog}: error in culldeps, aborting"
 138         exit 1
 139 fi