diff options
Diffstat (limited to 'bpkg-rep')
| -rw-r--r-- | bpkg-rep/buildfile | 10 | ||||
| -rw-r--r-- | bpkg-rep/package-archive.bash.in | 167 |
2 files changed, 176 insertions, 1 deletions
diff --git a/bpkg-rep/buildfile b/bpkg-rep/buildfile index 6f84fd1..9177409 100644 --- a/bpkg-rep/buildfile +++ b/bpkg-rep/buildfile @@ -1,8 +1,16 @@ # file : bpkg-rep/buildfile # license : MIT; see accompanying LICENSE file -./: exe{bpkg-rep-publish} +import mods = libbutl.bash%bash{manifest-parser} + +./: exe{bpkg-rep-publish} bash{package-archive} exe{bpkg-rep-publish}: in{publish} bash{utility} +# Public modules. +# +bash{package-archive}: in{package-archive} $mods + +# Private modules. +# bash{utility}: in{utility} diff --git a/bpkg-rep/package-archive.bash.in b/bpkg-rep/package-archive.bash.in new file mode 100644 index 0000000..3669a1b --- /dev/null +++ b/bpkg-rep/package-archive.bash.in @@ -0,0 +1,167 @@ +# file : bpkg-rep/package-archive.bash.in +# license : MIT; see accompanying LICENSE file + +# Utility functions useful for managing package archives. + +if [ "$bpkg_rep_package_archive" ]; then + return 0 +else + bpkg_rep_package_archive=true +fi + +@import libbutl/manifest-parser@ + +# We expect the user to set the bpkg_rep_bpkg variable to the bpkg program +# path. +# +if [ ! -v bpkg_rep_bpkg ]; then + echo "error: variable bpkg_rep_bpkg is not set" >&2 + exit 1 +fi + +# Extract the package information from a package archive and print it in the +# '<name> <version> <project>' form, where the project field is empty if the +# project value is not specified in the manifest. +# +function bpkg_rep_pkg_verify_archive () # <path> +{ + # We can't use the process substitution for input redirect here, since such + # a process failure is not trapped. Thus, read the manifest file into a + # variable and parse it afterwards, which is probably ok since package + # manifests are normally not too big. + # + # Note that alternatively we could use the process substitution for running + # bpkg, treat the name value absence as indication of a failure, and exit + # with non-zero status if that's the case. Feels a bit hackish though. + # + local m + m="$("$bpkg_rep_bpkg" pkg-verify --manifest "$1")" + + butl_manifest_parser_start <<<"$m" + + local name= + local version= + local project= + + local n v + while IFS=: read -ru "$butl_manifest_parser_ofd" -d '' n v; do + case "$n" in + name) name="$v" ;; + version) version="$v" ;; + project) project="$v" ;; + esac + done + + butl_manifest_parser_finish + + echo -n "$name $version $project" +} + +# Search for package archives in a directory using the package name and +# version pattern and printing their paths newline-separated. If the version +# argument is '*', then print archives for all package versions. Otherwise if +# the version contains the trailing '*', then print archives for all revisions +# of the specified version and for the exact version otherwise. For example: +# +# bpkg_rep_pkg_find_archives foo '*' dir/ +# bpkg_rep_pkg_find_archives foo '1.0*' dir/ +# bpkg_rep_pkg_find_archives foo '1.0' dir/ +# +# Note that the resulting archive paths include the specified directory as a +# prefix. +# +# NOTE: this function can be called with overriden IFS. +# +function bpkg_rep_pkg_find_archives () # <name> <version> <dir> +{ + IFS=$' \t\n' bpkg_rep_pkg_find_archives_impl "$@" +} + +function bpkg_rep_pkg_find_archives_impl () +{ + local nam="$1" + local ver="$2" + local dir="$3" + + local r="" + + if [ -d "$dir" ]; then + local vr # Version with the revision stripped, if search for revisions. + local np # File name pattern for archives search. + + if [ "$ver" != "*" -a "${ver: -1}" == "*" ]; then # <version>* + vr="$(sed -n -re 's%^(\+?[^+]+)(\+[0-9]+)?\*$%\1%p' <<<"$ver")" + np="$nam-$vr*.*" # foo-1.0*.*, etc. + else # * or <version> + np="$nam-$ver.*" # foo-*.*, foo-1.0.*, etc. + fi + + # Go through the potentially matching archives (for example, for 'foo' + # '1.2.3+2*': foo-1.2.3.tar.gz, foo-1.2.3+1.tar.gz, foo-1.2.30.tar.gz, + # etc) and return those which package name and version match properly. + # + local f + while read f; do + local p + p=($(bpkg_rep_pkg_verify_archive "$f")) + + local n="${p[0]}" + local v="${p[1]}" + + if [[ "$n" == "$nam" && + ( "$ver" == "*" || \ + "$v" == "$ver" || \ + ( -n "$vr" && "$v" =~ ^"$vr"(\+[0-9]+)?$ )) ]]; then + + if [ -n "$r" ]; then + r="$r"$'\n'"$f" + else + r="$f" + fi + fi + done < <(find "$dir" -type f -name "$np") + fi + + if [ -n "$r" ]; then + echo -n "$r" + fi +} + +# Search for a package archive in a directory using a file name pattern. If +# the archive is found, then print the package information in the +# '<name>\n<version>\n<project>\n<path>' form, where the project field is +# empty if the project value is not specified in the manifest. +# +# Note that if there are multiple archives matching the pattern, then it is +# unspecified which one is picked. +# +# NOTE: this function can be called with overriden IFS. +# +function bpkg_rep_pkg_find_archive () # <pattern> <dir> +{ + IFS=$' \t\n' bpkg_rep_pkg_find_archive_impl "$@" +} + +function bpkg_rep_pkg_find_archive_impl () +{ + local pat="$1" + local dir="$2" + + if [ -d "$dir" ]; then + local f + + # We could probably use -print -quit but this is not portable (NetBSD + # needs -exit instead of -quit). + # + f="$(find "$dir" -type f -name "$pat" | head -n 1)" + + if [ -n "$f" ]; then + + local p + p=($(bpkg_rep_pkg_verify_archive "$f")) + + printf "${p[0]}\n${p[1]}\n${p[2]}\n$f" + return + fi + fi +} |