diff options
| -rwxr-xr-x | src/toru/toru | 308 |
1 files changed, 0 insertions, 308 deletions
diff --git a/src/toru/toru b/src/toru/toru deleted file mode 100755 index 34a7649..0000000 --- a/src/toru/toru +++ /dev/null @@ -1,308 +0,0 @@ -#!/usr/bin/env bash -# Queries the ABS - -# Copyright (C) 2011-2012 Nicolás Reynolds <fauno@parabola.nu> -# Copyright (C) 2011 Joshua Ismael Haase Hernández (xihh) <hahj87@gmail.com> -# Copyright (C) 2012-2013 Michał Masłowski <mtjm@mtjm.eu> -# Copyright (C) 2013 Luke Shumaker <lukeshu@sbcglobal.net> -# -# License: GNU GPLv3+ -# -# This program is free software: you can redistribute it and/or modify -# it under the terms of the GNU General Public License as published by -# the Free Software Foundation, either version 3 of the License, or -# (at your option) any later version. -# -# This program is distributed in the hope that it will be useful, -# but WITHOUT ANY WARRANTY; without even the implied warranty of -# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the -# GNU Affero General Public License for more details. -# -# You should have received a copy of the GNU General Public License -# along with this program. If not, see <http://www.gnu.org/licenses/>. - -## TODO -# * Add license text -# * Create symlinks from pkgbase to pkgname[@] for easy package finding - -## GOALS -# * Have a searchable database of PKGBUILD metadata -# * Have an interface for source-only builds -# * Possibility to hook up ABS dirs besides ABSROOT (low priority) -# * Tell updates and non available binary packages (working on this) - -source toru-utils - -# Saves contents on a named cache -# $1 cache name (repo) -# $2+ contents -function store_cache { - cache=$1; shift - - [ -z "$cache" ] && return 1 - - cat $@ > ${TORUPATH}/${cache}.cache - - return $? -} - -# Return cache contents -# $1 cache name -read_cache() { - cat ${TORUPATH}/${1}.cache 2>/dev/null - - return $? -} - -# Outputs an ordered package-fullpkgver array -print_package_array() { - echo "$@" | tr " " "\n" | sort -u -} - - -# Gets repo.db contents (unordered) -# $1 repo -get_db_contents() { - [ ! -r /var/lib/pacman/sync/$1.db ] && return 0 - - bsdtar -tf /var/lib/pacman/sync/$1.db | cut -d'/' -f1 | sort -u -} - -# Get the pkgname -# pkgname from pkgver separator can be either '-' or ' ' -extract_pkgname() { - echo "$@" | tr " " "\n" | sed "s/^\(.\+\)[- ][^-]\+-[^-]\+$/\1/" -} - -# Get all the pkgnames from a file -# pkgname from pkgver separator can be either '-' or ' ' -extract_pkgname_from_file() { - sed "s/^\(.\+\)[- ][^-]\+-[^-]\+$/\1/" $1 -} - -# Split pkgnames from pkgvers -split_pkgname_from_pkgver() { - sed "s/^\(.\+\)-\([^-]\+-[^-]\+\)$/\1 \2/" $1 -} - -# Get the fullpkgver -# pkgname from pkgver separator can be either '-' or ' ' -extract_fullpkgver() { - echo "$@" | tr " " "\n" | sed "s/^.\+[ -]\([^-]\+-[^-]\+\)$/\1/" -} - -# Checks if $1 is a valid repo -is_repo() { - if ! in_array ${1} ${REPOS[@]}; then - $quiet || warning "${1} is not a valid repo (check REPOS array at libretools.conf)" - return 1 - fi -} - -# Updates the database by finding all PKGBUILDS -# Workflow: -# * Find all PKGBUILDs on the ABS repo specified -# * Get all packages already on package repos -# * Compare them -# Args: -update() { - local update_sync_file=false - # The PKGBUILDs found - local -a pkgbuilds=() - # The list of pkgname-fullpkgver - local -a packages_in_abs=() - local -a pkg_updates=() - local -a package_paths=() - - # Traverse all specified repos - for __repo in $@; do - # Check if the repo is set as such, otherwise skip - is_repo ${__repo} || continue - - # Fullpath of the repo - _repopath=$(readlink -f ${__repo}) - - # This is the syncfile, stores the last date as content and mtime - local lastsyncfile=${TORUPATH}/${__repo}.lastsync - - # Find all the PKGBUILDs newer than the last update - # Update newer, otherwise everything - if [[ $force = true || ! -e ${lastsyncfile} ]]; then - - $quiet || warning "Forcing upgrade" - # Get all PKGBUILDs - pkgbuilds=($(find ${_repopath} -maxdepth 2 -type f -name 'PKGBUILD')) - - else - - # Only find newer than lastsyncfile and read everything else from cache - pkgbuilds=($(find ${_repopath} -maxdepth 2 -type f -name 'PKGBUILD' -newer ${lastsyncfile})) - packages_in_abs=($(read_cache ${__repo})) - - $quiet || msg2 "Getting ${#packages_in_abs[@]} packages from cache" - - fi - - package_paths=($(read_cache ${__repo}.paths || true)) - - # Inform how many PKGBUILDS were found and quit immediately if none - $quiet || msg "Found $((${#pkgbuilds[*]}-1)) PKGBUILDs to update" - - # Traverse all found PKGBUILDs - for _pkgbuild in ${pkgbuilds[@]}; do - # Update the sync file because there are pkgbuilds to update - update_sync_file=true - - # Load PKGBUILD's metadata - source ${_pkgbuild} || continue - - # Guess pkgbase from PKGBUILD's basedir - _pkgpath=$(dirname "${_pkgbuild}") - _pkgbase=${pkgbase:-${pkgname[0]}} - - # We won't need this (all unsets are for memory efficiency) - unset build package url md5sums install pkgdesc backup options - # TODO fill a license list - unset license - # TODO create source tarballs? - unset mksource - # TODO solve dependency tree? - unset depends makedepends - - for _pkg in ${pkgname[@]}; do - # Keep removing unneeded stuff - unset package_${_pkg} >/dev/null 2>&1 || true - # Fill the list of packages to find - packages_in_abs+=($_pkg-$(get_full_version $_pkg)) - package_paths+=($_pkg:$_pkgpath) - done # end pkgnames - - unset pkgbase pkgname pkgver pkgrel source epoch - done # end pkgbuilds - - # Sync! (Only if there was an actual sync) - ${update_sync_file} && lastsync ${lastsyncfile} - - if [ "${lastsyncfile}" -nt "${TORUPATH}/${__repo}.paths.cache" ]; then - print_package_array "${package_paths[@]}" > $TMPDIR/paths - store_cache ${__repo}.paths $TMPDIR/paths - fi - - # If there isn't an update cache or it's older than the last update, we check - if [ "${lastsyncfile}" -nt "${TORUPATH}/${__repo}.updates.cache" ]; then - - # Get repo database contents - packages_in_sync=($(get_db_contents ${__repo})) - # Drops arrays into files - print_package_array "${packages_in_abs[@]}" > ${TMPDIR}/packages_in_abs - print_package_array "${packages_in_sync[@]}" > ${TMPDIR}/packages_in_sync - - # Work with files - unset packages_in_abs package_in_sync - - # Use a different separator for pkgnames and pkgvers - # so we can join them by pkgname (first field) - split_pkgname_from_pkgver ${TMPDIR}/packages_in_abs | sort -k1b,1 > ${TMPDIR}/in_abs - split_pkgname_from_pkgver ${TMPDIR}/packages_in_sync | sort -k1b,1 > ${TMPDIR}/in_sync - - $quiet || msg "These packages are available to update" - # Join both files by pkgname, the end result is: - # pkgname syncver absver - join ${TMPDIR}/in_sync ${TMPDIR}/in_abs | \ - while read need_line; do - _pkg=$(echo "${need_line}" | cut -d' ' -f1) - _syncver=$(echo "${need_line}" | cut -d' ' -f2) - _absver=$(echo "${need_line}" | cut -d' ' -f3) - - # If the versions differ we need an update - # TODO move this to update query - if [ "${_syncver}" != "${_absver}" ]; then - $quiet || msg2 "$_pkg update from $_syncver to $_absver" - $quiet && echo "$_pkg" - - # FIXME this works all right but it's unset once the while ends - #pkg_updates+=("$_pkg") - - # Fix for the above problem, but it access the file every time instead of - # puting all packages together once - echo $_pkg >> ${TMPDIR}/updates - - fi - done # end need_line - - unset _pkg _syncver _absver need_line - - # Save the cache - store_cache ${__repo} ${TMPDIR}/packages_in_abs - - # See above FIXME - # print_package_array "${updates[@]}" > ${TMPDIR}/updates - if [ -r ${TMPDIR}/updates ]; then - store_cache ${__repo}.updates ${TMPDIR}/updates - fi - - else - $quiet || msg "Reading updates from cache..." - read_cache ${__repo}.updates - fi - - done # end repos -} - -## Finds a PKGBUILD on toru's path cache -## usage: where_is <pkgname> -# Look in all caches but pick the first one -where_is() { - local __repo - local _path - for __repo in ${REPOS[@]}; do - _path=$(grep "^${1}:" "${TORUPATH}/${__repo}.paths.cache" 2>/dev/null | - cut -d: -f2) - - [ -n "${_path}" ] && break - done - - [ -z "$_path" ] && return 1 - - echo ${_path} -} - -usage() { - print 'Usage: %s [OPTIONS] REPO1...REPON' "${0##*/}" - print "Make a db containing PKGBUILD metadata." - echo - #flag '-a' "Update all repos at once" \ - flag '-f' "Rebuild the db even if it is updated" \ - "-p <$(_ PKGNAME)>" "Return the path for PKGNAME" \ - '-q' "Quiet" \ - '-u' "Update repo information" \ - '-h' "Show this message" -} - -## MAIN -commands=() -repos=() -quiet=false -force=false -while getopts 'fp:quh' arg; do - case $arg in - #a) update_all_repos ;; # TODO: Update all repos on $REPOS array - f) force=true ;; - p) where_is "$OPTARG" || exit 1 ;; - q) quiet=true ;; - u) commands+=(update);; - h) usage; exit 0 ;; - ?) usage 1>&2; exit 1 ;; - esac - - shift $(( OPTIND - 1 )) -done -[[ ${#commands[@]} -eq 0 ]] && { usage 1>&2; exit 1 ;; - -TMPDIR=$(mktemp -d) - -[[ -z ${TMPDIR} ]] && exit 1 - -${commands[0]} ${@} - -exit $? |