diff options
Diffstat (limited to 'asp32.in')
| -rw-r--r-- | asp32.in | 371 |
1 files changed, 371 insertions, 0 deletions
diff --git a/asp32.in b/asp32.in new file mode 100644 index 0000000..a4f5c5a --- /dev/null +++ b/asp32.in @@ -0,0 +1,371 @@ +#!/bin/bash + +ASP_VERSION=@ASP_VERSION@ +ARCH_GIT_REPOS=(packages community) + +OPT_ARCH=$(uname -m) +OPT_FORCE=0 +: ${ASPROOT:=${XDG_CACHE_HOME:-$HOME/.cache}/asp32} +: ${ASPCACHE:=$ASPROOT/cache} + +m4_include(util.inc.sh) +m4_include(remote.inc.sh) +m4_include(package.inc.sh) +m4_include(archweb.inc.sh) + +usage() { + cat<<EOF +asp32 $ASP_VERSION [OPTIONS...] {COMMAND} ... + +Manage build sources for Arch packages. + +Options: + -a ARCH Specify an architecture other than the host's + -f Allow files to be overwritten + -h Show this help + -V Show package version + +Package Commands: + checkout NAME... Create a mutable git repository for packages + difflog NAME Show revision history with diffs + export NAME... Export packages + list-all List all known packages + list-arches NAME... List architectures for packages + list-local List tracked packages + list-repos NAME... List repos for packages + log NAME Show revision history + ls-files NAME List files for package + shortlog NAME Show revision history in short form + show NAME [FILE] Show the PKGBUILD or other FILE + untrack NAME... Remove a package from the local repository + update [NAME...] Update packages (update all tracked if none specified) + +Meta Commands: + disk-usage Show amount of disk used by locally tracked packages + gc Cleanup and optimize the local repository + help Show this help + set-git-protocol PROTO Change git protocol (one of: git, http, https) + +EOF +} + +__require_argc() { + local min max argc=$2 + + case $1 in + *-*) + IFS=- read -r min max <<<"$1" + ;; + *-) + min=${1%-} + ;; + *) + min=$1 max=$1 + ;; + esac + + if (( min == max && argc != min )); then + log_fatal '%s expects %d args, got %d' "${FUNCNAME[1]#action__}" "$min" "$argc" + elif (( max && argc > max )); then + log_fatal '%s expects at most %d args, got %d' "${FUNCNAME[1]#action__}" "$max" "$argc" + elif (( argc < min )); then + log_fatal '%s expects at least %d args, got %d' "${FUNCNAME[1]#action__}" "$min" "$argc" + fi +} + +version() { + printf 'asp %s\n' "$ASP_VERSION" +} + +update_all() { + local r + + for r in "${ARCH_GIT_REPOS[@]}"; do + log_info "updating remote '%s'" "$r" + remote_update "$r" + done +} + +update_local_branches() { + local r=0 + + while read -r branchname; do + git branch -qf "$branchname" "refs/remotes/$branchname" || r=1 + done < <(git branch) + + return "$r" +} + +update_remote_branches() { + local refspecs=() remote pkgname + declare -A refspec_map + + if (( $# == 0 )); then + update_all + return + fi + + # map packages to remotes + for pkgname; do + package_init -n "$pkgname" remote || return 1 + refspec_map["$remote"]+=" packages/$pkgname" + done + + # update each remote all at once + for remote in "${!refspec_map[@]}"; do + read -ra refspecs <<<"${refspec_map["$remote"]}" + remote_update_refs "$remote" "${refspecs[@]}" + done +} + +update_packages() { + update_remote_branches "$@" && update_local_branches +} + +initialize() { + local remote + + umask 0022 + startdir=$PWD + + if [[ ! -d $ASPROOT ]]; then + log_info 'Initializing ASPROOT in %s' "$ASPROOT" + mkdir -p "$ASPROOT" + fi + + cd "$ASPROOT" || log_fatal "ASPROOT (%s) does not exist!" "$ASPROOT" + + if [[ ! -d $ASPCACHE ]] && ! mkdir -p "$ASPCACHE"; then + log_fatal 'failed to create ASPCACHE (%s)' "$ASPCACHE" + fi + + [[ -f .asp ]] && return 0 + + git init -q || return 1 + for remote in "${ARCH_GIT_REPOS[@]}"; do + git remote add "$remote" "https://git.archlinux.org/svntogit/$remote.git" + done + + touch .asp +} + +dump_packages() { + local remote refspecs dumpfn + + case $1 in + all) + dumpfn=remote_get_all_refs + ;; + local) + dumpfn=remote_get_tracked_refs + ;; + *) + die 'internal error: invalid dump type: "%s"' "$1" + ;; + esac + + for remote in "${ARCH_GIT_REPOS[@]}"; do + "$dumpfn" "$remote" refspecs + if [[ $refspecs ]]; then + printf '%s\n' "${refspecs[@]##*/}" + fi + done | sort +} + +list_local() { + dump_packages 'local' +} + +list_all() { + dump_packages 'all' +} + +shortlog() { + package_log "$@" "${FUNCNAME[0]}" +} + +log() { + package_log "$@" "${FUNCNAME[0]}" +} + +difflog() { + package_log "$@" "${FUNCNAME[0]}" +} + +gc() { + git gc --prune=all +} + +untrack() { + local pkgname=$1 remote + + package_init -n "$pkgname" remote || return 1 + + remote_untrack "$remote" "$pkgname" + package_untrack "$pkgname" "$remote" +} + +disk_usage() { + local usage + read usage _ < <(du -sh "$ASPROOT") + + log_info 'Using %s on disk.' "$usage" +} + +action__checkout() { + __require_argc 1- $# + map package_checkout "$@" +} + +action__difflog() { + __require_argc 1 $# + difflog "$1" +} + +action__disk-usage() { + __require_argc 0 $# + disk_usage +} + +action__export() { + __require_argc 1- $# + map package_export "$@" +} + +action__gc() { + __require_argc 0 $# + gc +} + +action__help() { + __require_argc 0 $# + usage +} + +action__list-all() { + __require_argc 0 $# + list_all +} + +action__list-arches() { + __require_argc 1- $# + map package_get_arches "$@" +} + +action__list-local() { + __require_argc 0 $# + list_local +} + +action__list-repos() { + __require_argc 1- $# + map package_get_repos "$@" +} + +action__log() { + __require_argc 1 $# + log "$1" +} + +action__shortlog() { + __require_argc 1 $# + shortlog "$1" +} + +action__show() { + __require_argc 1-2 $# + package_show_file "$@" +} + +action__untrack() { + __require_argc 1- $# + map untrack "$@" +} + +action__update() { + update_packages "$@" +} + +action__ls-files() { + __require_argc 1 $# + + package_list_files "$1" +} + +action__set-git-protocol() { + __require_argc 1 $# + + case $1 in + git|http|https) + ;; + *) + log_fatal 'invalid protocol: %s' "$1" + ;; + esac + + for remote in "${ARCH_GIT_REPOS[@]}"; do + git remote set-url "$remote" "$1://git.archlinux.org/svntogit/$remote.git" + done +} + +dispatch_action() { + local candidates + + [[ $1 ]] || log_fatal 'no action specified (use -h for help)' + + # exact match + if declare -F "action__$1" &>/dev/null; then + "action__$@" + return + fi + + # prefix match + mapfile -t candidates < <(compgen -A function "action__$1") + case ${#candidates[*]} in + 0) + log_fatal 'unknown action: %s' "$1" + ;; + 1) + "${candidates[0]}" "${@:2}" + return + ;; + *) + { + printf "error: verb '%s' is ambiguous; possibilities:" "$1" + printf " '%s'" "${candidates[@]#action__}" + echo + } >&2 + return 1 + ;; + esac +} + +initialize + +while getopts ':a:fhV' flag; do + case $flag in + a) + OPT_ARCH=$OPTARG + ;; + f) + OPT_FORCE=1 + ;; + h) + usage + exit 0 + ;; + V) + version + exit 0 + ;; + \?) + log_fatal "invalid option -- '%s'" "$OPTARG" + ;; + :) + log_fatal "option '-%s' requires an argument" "$OPTARG" + ;; + esac +done +shift $(( OPTIND - 1 )) + +dispatch_action "$@" |