From 65022fdd57f41b6250b2e29bdd7bac59b17f3cea Mon Sep 17 00:00:00 2001 From: P. J. McDermott Date: Sat, 22 Jul 2017 13:26:23 -0400 Subject: `git mv lib/*.sh src/` --- (limited to 'lib/remove.sh') diff --git a/lib/remove.sh b/lib/remove.sh deleted file mode 100644 index a3a06dd..0000000 --- a/lib/remove.sh +++ /dev/null @@ -1,92 +0,0 @@ -# pro-archman -# lib/remove.sh -# Functions for removing packges -# -# Copyright (C) 2013 Patrick "P. J." McDermott -# -# 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 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 . - -[ "x${_REMOVE_SM+set}" = 'xset' ] && return 0 -_REMOVE_SM=1 - -use locale -use output -use db - -remove_source_from_suite() -{ - local chan="${1}" - local dist="${2}" - local source="${3}" - local arch= - local plat= - - info "$(get_msg 'removing_from_suite')" \ - "${source}" "${chan}" "${dist}" - - while read -r arch plat; do - remove_packages_from_suite_archplat \ - "${chan}" "${dist}" "${arch}" "${plat}" "${source}" - done <<-EOF - $(db_get_archplats "${chan}" "${dist}" "${source}") - EOF - - db_del_srcver "${chan}" "${dist}" "${source}" - - return 0 -} - -remove_packages_from_suite_archplat() -{ - local chan="${1}" - local dist="${2}" - local arch="${3}" - local plat="${4}" - local source="${5}" - local binver= - local refs= - local size= - local sect= - local pkg= - local file= - - info_v "$(get_msg 'removing_from_suite_archplat')" \ - "${source}" "${chan}" "${dist}" "${arch}" "${plat}" - - binver="$(db_get_binver "${chan}" "${dist}" "${arch}" "${plat}" \ - "${source}")" - if [ "x${binver}" = 'x' ]; then - return 0 - fi - db_del_binver "${chan}" "${dist}" "${arch}" "${plat}" "${source}" - refs=$(db_dec_references "${arch}" "${plat}" "${source}" "${binver}") - - while read -r size sect pkg; do - feed_remove_package "${chan}" "${dist}" "${arch}" "${plat}" \ - "${sect}" "${pkg}" - if [ ${refs} -eq 0 ]; then - file="pool/$(hash_name "${source}")/${source}" - file="${file}/${pkg}_${binver}_${arch}_${plat}.opk" - mark_pool_garbage "${file}" - fi - done <<-EOF - $(db_get_packages "${arch}" "${plat}" "${source}" "${binver}") - EOF - - if [ ${refs} -eq 0 ]; then - db_del_packages "${arch}" "${plat}" "${source}" "${binver}" - fi - - return 0 -} -- cgit v0.9.1