spk view lib/libspk.sh @ rev 62

Fixes and small improvments to spk-mirror, spk-ls handle extra repo
author Christophe Lincoln <pankso@slitaz.org>
date Fri May 18 02:49:36 2012 +0200 (2012-05-18)
parents 17ac07667767
children d0fa46ea46bd
line source
1 #!/bin/sh
2 #
3 # Libspk - The Spk base function and internal variables used by almost all
4 # spk-tools. Read the README before adding or modifing any code in spk!
5 #
6 # Copyright (C) SliTaz GNU/Linux - BSD License
7 # Author: See AUTHORS files
8 #
9 . /lib/libtaz.sh
10 . /usr/lib/slitaz/libpkg.sh
11 . /etc/slitaz/slitaz.conf
12
13 # Internal variables.
14 mirrorurl="${root}${PKGS_DB}/mirror"
15 mirrors="${root}${PKGS_DB}/mirrors"
16 installed="${root}${PKGS_DB}/installed"
17 pkgsdesc="${root}${PKGS_DB}/packages.desc"
18 pkgsmd5="${root}${PKGS_DB}/packages.$SUM"
19 pkgsequiv="${root}${PKGS_DB}/packages.equiv"
20 blocked="${root}${PKGS_DB}/blocked.list"
21 activity="${root}${PKGS_DB}/activity"
22 logdir="${root}/var/log/spk"
23 extradb="${root}${PKGS_DB}/extra"
24 tmpdir="/tmp/spk/$RANDOM"
25
26 #
27 # Sanity checks
28 #
29
30 if [ ! -d "${root}${PKGS_DB}" ]; then
31 gettext "Can't find DB:"; echo " ${root}${PKGS_DB}"
32 exit 1
33 fi
34
35 #
36 # Functions
37 #
38
39 # Display receipt information. Expects a receipt to be sourced
40 receipt_info() {
41 cat << EOT
42 $(gettext "Version :") ${VERSION}${EXTRAVERSION}
43 $(gettext "Short desc :") $SHORT_DESC
44 $(gettext "Category :") $CATEGORY
45 EOT
46 }
47
48 # Display package info from a packages.desc list
49 # Usage: read_pkgsdesc /path/to/packages.desc
50 read_pkgsdesc() {
51 local list="$1"
52 IFS="|"
53 cat $list | while read package version desc category
54 do
55 if [ "$short" ]; then
56 echo -n "$(colorize "$package" 32)"; indent 28 " $version"
57 else
58 newline
59 gettext "Package :"; colorize " $package" 32
60 gettext "Version :"; echo "$version"
61 gettext "Short desc :"; echo "$desc"
62 fi
63 done && unset IFS
64 }
65
66 # Extract receipt from tazpkg
67 # Parameters: result_dir package_file
68 extract_receipt() {
69 local dir="$1"
70 local file="$2"
71 cd "$dir"
72 { cpio --quiet -i receipt > /dev/null 2>&1; } < $file
73 cd - >/dev/null
74 }
75
76 # Extract files.list from tazpkg
77 # Parameters: result_dir package_file
78 extract_fileslist() {
79 local dir="$1"
80 local file="$2"
81 cd "$dir"
82 { cpio --quiet -i files.list > /dev/null 2>&1; } < $file
83 cd - >/dev/null
84 }
85
86 # Used by: list
87 count_installed() {
88 local count=$(ls $installed | wc -l)
89 gettext "Installed :"; echo " $count"
90 }
91
92 # Used by: list
93 count_mirrored() {
94 [ -f "$pkgsmd5" ] || return
95 local count=$(cat $pkgsmd5 | wc -l)
96 gettext "Mirrored :"; echo " $count"
97 }
98
99 is_package_mirrored() {
100 local name=$1
101 local occurance=$(grep "^$name |" $pkgsdesc)
102 [ -n "$occurance" ]
103 }
104
105 # Download a file trying all mirrors
106 # Parameters: package/file
107 download() {
108 local package=$1
109 local mirror="$(cat $mirrorurl)"
110 case "$package" in
111 *.tazpkg)
112 echo "${mirror%/}/$package"
113 wget -c ${mirror%/}/$package ;;
114 esac
115 if [ ! -f "$package" ]; then
116 gettext "ERROR: Missing package $package"; newline
117 newline && exit 1
118 fi
119 }
120
121 # Assume package name is valid
122 full_package() {
123 IFS="|"
124 local line="$(grep "^$1 |" $pkgsdesc)"
125 echo $line | busybox awk '{print $1 "-" $2}'
126 unset IFS
127 }
128
129 # Check if a package is already installed.
130 # Usage: check_installed package
131 check_installed() {
132 local name="$1"
133 if [ -d "$installed/$name" ]; then
134 echo $(boldify "$name") $(gettext "package is already installed")
135 [ "$forced" ] || rm -rf $tmpdir
136 continue
137 fi
138 }
139
140 # get an already installed package from packages.equiv TODO REDO!
141 equivalent_pkg() {
142 for i in $(grep -hs "^$1=" $pkgsequiv \
143 $extradb/*/packages.equiv | sed "s/^$1=//")
144 do
145 if echo $i | fgrep -q : ; then
146 # format 'alternative:newname'
147 # if alternative is installed then substitute newname
148 if [ -f $installed/${i%:*}/receipt ]; then
149 # substitute package dependancy
150 echo ${i#*:}
151 return
152 fi
153 else
154 # if alternative is installed then nothing to install
155 if [ -f $installed/$i/receipt ]; then
156 # substitute installed package
157 echo $i
158 return
159 fi
160 fi
161 done
162 # if not found in packages.equiv then no substitution
163 echo $1
164 }
165
166 # Check for missing deps listed in a receipt packages.
167 # Parameters: package dependencies
168 missing_deps() {
169 local package="$1"
170 shift 1
171 local depends="$@"
172
173 local deps=0
174 local missing
175
176 # Calculate missing dependencies
177 for pkgorg in $depends; do
178 local pkg=$(equivalent_pkg $pkgorg)
179 if [ ! -d "$installed/$pkg" ]; then
180 gettext "Missing:"; echo " $pkg"
181 deps=$(($deps+1))
182 elif [ ! -f "$installed/$pkg/receipt" ]; then
183 gettext "WARNING: Dependency loop between:"; newline
184 echo " $package --> $pkg"
185 fi
186 done
187
188 gettext "Missing dependencies:"; echo " $(colorize "$deps" 34)"
189
190 # Return true if missing deps
191 [ "$deps" != "0" ]
192 }
193
194 grepesc() {
195 sed 's/\[/\\[/g'
196 }
197
198 # Check for ELF file
199 is_elf() {
200 [ "$(dd if=$1 bs=1 skip=1 count=3 2> /dev/null)" = "ELF" ]
201 }