]>
Commit | Line | Data |
---|---|---|
3b9bd321 | 1 | #!/bin/sh |
841081a6 | 2 | # TODO: add duplicate checker to seeif a pkg is in multiple virtual pkgs |
3b9bd321 | 3 | |
841081a6 | 4 | prog=$(basename $0) |
3b9bd321 | 5 | usage() { |
6 | echo "\ | |
7 | apkv: Quickly add and remove packages to/from Alpine virtual packages. | |
8 | ||
9 | Usage: | |
841081a6 | 10 | $prog add <packages> <virtual> |
3b9bd321 | 11 | Add <packages> to virtual package <virtual>. If the virtual package |
12 | does not exist, it will be created. | |
841081a6 | 13 | |
14 | $prog del <packages> <virtual> | |
3b9bd321 | 15 | Remove <packages> from virtual package <virtual>. Empty virtual |
841081a6 | 16 | packages are removed from world. The shorthand '$prog del * <virtual>' can |
3b9bd321 | 17 | be used to empty <virtual>. |
841081a6 | 18 | |
19 | $prog list [-o | packages] | |
20 | List virtual packages and their contents. | |
21 | packages List these virtual packages. If empty, list all. | |
22 | -o Only list orphan packages that are not owned by any | |
23 | virtual package. Orphans are automatically shown when | |
24 | listing all packages. | |
25 | ||
26 | $prog help | |
3b9bd321 | 27 | Show this help. |
28 | ||
841081a6 | 29 | Virtual packages must be prefixed with a dot to be managed with apkv. Virtual |
30 | package names passed as arguments will automatically be prefixed with dots if | |
31 | they are not present. | |
3b9bd321 | 32 | |
33 | Methods can be shortened to their closest unambiguous forms, e.g. a, d, or l. | |
34 | However, due to implementation specifics, any string starting with those forms | |
35 | will work; that functionality is unspecified and is not guaranteed. | |
36 | ||
841081a6 | 37 | For example, the following are equivalent, with the first being preferred: |
38 | $prog add syslinux .virt | |
39 | $prog a syslinux virt | |
40 | $prog abcdefg syslinux virt | |
3b9bd321 | 41 | |
42 | " | |
43 | } | |
44 | ||
45 | prepend_dot() { | |
46 | case $1 in | |
47 | .*) printf "$1";; | |
48 | *) printf ".$1";; | |
49 | esac | |
50 | } | |
51 | ||
52 | show_reqs() { | |
53 | _pkg="$1" | |
54 | shift >/dev/null | |
55 | [ -z "$_pkg" ] && return 1 | |
56 | if [ $# -gt 0 ]; then | |
841081a6 | 57 | # override reqs list for apkv add |
3b9bd321 | 58 | _list=$(echo "$(for x do echo $x; done)" | sort | uniq) |
59 | else | |
60 | apk info -e "$_pkg" >/dev/null || return 1 | |
61 | _list=$(apk info -R "$_pkg" | awk 'NR > 1 && NF' | sort) | |
62 | fi | |
63 | echo -e "\e[1m$_pkg\e[0m:" $_list | |
64 | } | |
65 | ||
66 | method="$1" | |
67 | shift >/dev/null | |
68 | case $method in | |
841081a6 | 69 | l*) method=list;; |
3b9bd321 | 70 | a*) method=add;; |
71 | d*) method=del;; | |
72 | h*) usage; exit;; | |
73 | -*) usage; exit;; | |
74 | *) [ -n "$method" ] && echo "Invalid method $method" >&2; usage; exit 1;; | |
75 | esac | |
76 | ||
841081a6 | 77 | if [ "$method" = list ]; then |
78 | if [ $# -eq 0 -o "$1" = '-o' ]; then | |
79 | if [ "$1" = '-o' -a $# -gt 1 ]; then | |
80 | echo "$method with -o switch does not accept arguments" >&2 | |
81 | usage | |
82 | exit 1 | |
83 | fi | |
84 | # ignore getopt's --, we don't care if an arg begins with - anyway | |
85 | [ "$1" = '--' ] && switch >/dev/null | |
86 | ||
7d7ffd76 | 87 | all=$(apk info | sort) |
841081a6 | 88 | # show packages if no args |
89 | if [ $# -eq 0 ]; then | |
90 | for x in $(echo "$all" | grep '^\.'); do | |
91 | show_reqs "$(prepend_dot "$x")" | |
92 | done | |
93 | fi | |
94 | # set all child packages of virtual packages as owned | |
bc096609 | 95 | # OPTIMIZE: getting deps of virtual packages is slow, it would be |
96 | # great to use apk info -R from show_reqs in orphan loop | |
97 | # NOTE: since we don't have arrays in sh, set individual vars instead | |
841081a6 | 98 | for v in $(echo "$all" | grep '^\.'); do |
99 | for c in $(apk info -R $v | tail +2 | grep -v '^\.'); do | |
100 | # NOTE: use tr because shell may not have ksh-derived ${c//} | |
bc096609 | 101 | # XXX: have not verified if package name may have more illegal |
102 | # chars for variable name past those already replaced, and | |
103 | # replacing chars may result in variable collision—but | |
104 | # official apk repos do not have any package names that | |
105 | # would cause issues | |
841081a6 | 106 | eval "__$(echo $c | tr -s '.:-' _)=1" |
107 | done | |
108 | done | |
109 | # check world against owned packages | |
bc096609 | 110 | # TODO: notify user if package is both in world and virtual package |
841081a6 | 111 | orphans=$( |
112 | for x in $(cat /etc/apk/world | grep -v '^\.'); do | |
113 | eval "[ \${__$( | |
bc096609 | 114 | echo $x | tr -s '.:-' _ | tr -s '<=~>@' "\n" | head -1 |
841081a6 | 115 | )-0} -eq 0 ]" && echo $x |
116 | done | |
117 | ) | |
118 | if [ -z "$orphans" ]; then | |
119 | echo "No orphan packages found." | |
120 | else | |
121 | show_reqs orphans $orphans | |
122 | fi | |
123 | else | |
124 | for x in $*; do | |
125 | show_reqs "$(prepend_dot "$x")" | |
126 | done | |
127 | fi | |
128 | exit | |
129 | fi | |
130 | ||
3b9bd321 | 131 | ## add/del |
132 | # get and validate packages | |
133 | pkgs= | |
134 | virt= | |
135 | for x; do | |
136 | if [ -n "$pkgs" ]; then | |
137 | pkgs="$pkgs $virt" | |
138 | elif [ -n "$virt" ]; then | |
139 | pkgs=$virt | |
140 | fi | |
141 | virt=$x | |
142 | done | |
143 | if [ -z "$pkgs" ]; then | |
144 | echo 'Not enough arguments' >&2 | |
145 | usage | |
146 | exit 1 | |
147 | fi | |
148 | virt=$(prepend_dot $virt) | |
149 | # exit if database locked (99) or no package found to delete from (1) | |
150 | apk info -e "$virt" >/dev/null | |
151 | code=$? | |
152 | if [ $code -eq 99 -o \( $method = del -a $code -ne 0 \) ]; then | |
153 | exit $code | |
154 | fi | |
155 | ||
156 | # we have validated our args, so let's prepare to run apk: get sudo command if | |
157 | # it exists and we are not already root | |
158 | # TODO: support doas | |
159 | if [ "$(id -u)" != 0 ] && command -v sudo >/dev/null 2>&1; then | |
160 | sudo=$(command -v sudo) | |
161 | fi | |
162 | ||
163 | # handle quick delete shorthand mentioned in help | |
164 | if [ $method = del -a '*' = "$pkgs" ]; then | |
165 | $sudo apk del "$virt" | |
166 | exit $? | |
167 | fi | |
168 | ||
169 | currpkgs=$(apk info -R "$virt" | awk 'NR > 1 && NF') | |
170 | case $method in | |
841081a6 | 171 | # NOTE: $(echo) construct uses word splitting to remove newlines |
3b9bd321 | 172 | add) currpkgs="$(echo $currpkgs) $pkgs";; |
173 | del) # XXX: there's probably a more efficient way to do this | |
dd4c892b | 174 | for x in $pkgs; do |
3b9bd321 | 175 | currpkgs=$(echo "$currpkgs" | grep -vFiw $x) |
176 | done;; | |
177 | esac | |
178 | ||
179 | if [ -z "$currpkgs" ]; then | |
180 | # virtual package is empty | |
181 | $sudo apk del "$virt" | |
841081a6 | 182 | code=$? |
3b9bd321 | 183 | else |
184 | show_reqs "$virt" $currpkgs | |
185 | $sudo apk add -t "$virt" $currpkgs | |
841081a6 | 186 | code=$? |
187 | if [ $method = add -a $code -eq 0 ]; then | |
188 | # remove packages from world if they are being moved to a virtual one | |
189 | del= | |
190 | for x in $pkgs; do | |
bc096609 | 191 | #apk_adb.c: [!]name[<,<=,<~,=,~,>~,>=,>,><]ver, @ for pinning |
192 | if grep -qE "^$x($|[<=~>@])" /etc/apk/world; then | |
841081a6 | 193 | del="$del $x" |
194 | fi | |
195 | done | |
196 | if [ -n "$del" ]; then | |
197 | echo "Removing packages from world:$del" | |
198 | $sudo apk del $del | |
199 | fi | |
200 | fi | |
3b9bd321 | 201 | fi |
202 | # pass along sudo/apk exit code | |
841081a6 | 203 | exit $code |
3b9bd321 | 204 | |
205 | # vi:sw=4:sts=4:et |