slitaz-base-files annotate rootfs/usr/lib/slitaz/libpkg.sh @ rev 155
add functions to libpkg
| author | Christian Mesh <meshca@clarkson.edu> |
|---|---|
| date | Fri May 11 10:12:12 2012 -0500 (2012-05-11) |
| parents | b51511c007b8 |
| children | 6f52c9934cfc |
| rev | line source |
|---|---|
| pankso@152 | 1 #!/bin/sh |
| pankso@152 | 2 # |
| pankso@152 | 3 # SliTaz Packages base functions used by packages manager, cook and |
| pankso@152 | 4 # all tools dealing with packages and receipts. |
| pankso@152 | 5 # |
| pankso@152 | 6 # Documentation: man libpkg or /usr/share/doc/slitaz/libpkg.txt |
| pankso@152 | 7 # |
| pankso@152 | 8 # Copyright (C) 2012 SliTaz GNU/Linux - BSD License |
| pankso@152 | 9 # |
| pankso@152 | 10 |
| pankso@152 | 11 # Unset all receipt variables. |
| pankso@152 | 12 unset_receipt() { |
| pankso@152 | 13 unset PACKAGE VERSION EXTRAVERSION SHORT_DESC HOST_ARCH TARBALL \ |
| pankso@152 | 14 DEPENDS BUILD_DEPENDS WANTED WGET_URL PROVIDE CROSS_BUG |
| pankso@152 | 15 } |
| meshca@155 | 16 |
| meshca@155 | 17 # Display receipt information. |
| meshca@155 | 18 receipt_info() { |
| meshca@155 | 19 cat << EOT |
| meshca@155 | 20 $(gettext "Version :") ${VERSION}${EXTRAVERSION} |
| meshca@155 | 21 $(gettext "Short desc :") $SHORT_DESC |
| meshca@155 | 22 $(gettext "Category :") $CATEGORY |
| meshca@155 | 23 EOT |
| meshca@155 | 24 } |
| meshca@155 | 25 |
| meshca@155 | 26 # converts /tmp/pkg.tazpkg to pkg |
| meshca@155 | 27 package_name() { |
| meshca@155 | 28 local name=$(basename $1) |
| meshca@155 | 29 echo ${name%.tazpkg} |
| meshca@155 | 30 } |
| meshca@155 | 31 |
| meshca@155 | 32 # checks to see if file is proper tazpkg |
| meshca@155 | 33 is_valid_tazpkg() { |
| meshca@155 | 34 local file=$1 |
| meshca@155 | 35 local file_dir=$(base_path $file) |
| meshca@155 | 36 [ -a $file ] && [ "$file" != "$(package_name $file)" ] |
| meshca@155 | 37 } |
| meshca@155 | 38 |
| meshca@155 | 39 check_valid_tazpkg() { |
| meshca@155 | 40 local file=$1 |
| meshca@155 | 41 if ! is_valid_tazpkg $file; then |
| meshca@155 | 42 gettext "$file is not a tazpkg. Exiting"; newline |
| meshca@155 | 43 exit 1 |
| meshca@155 | 44 fi |
| meshca@155 | 45 } |