Remove the 'toru' program, it has been replaced by 'toru-path'/'toru-where'

It dealt with plain-text caches, instead of the faster TokyoCabinet cache.

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 $?