summaryrefslogtreecommitdiff
path: root/testeAbhaengigkeiten
diff options
context:
space:
mode:
authorErich Eckner <git@eckner.net>2016-06-13 09:31:06 +0200
committerErich Eckner <git@eckner.net>2016-06-13 09:31:06 +0200
commit094a6a06d2aa6df704682bb4142195ba8ba91b9b (patch)
tree04567db983e4aee29cf53fba8abafd68377eadac /testeAbhaengigkeiten
parent35d290fe1bfa1847cdfa5fa5b83417e4b4b124cd (diff)
downloadarchlinuxewe-094a6a06d2aa6df704682bb4142195ba8ba91b9b.tar.xz
perlFunktionen neu
Diffstat (limited to 'testeAbhaengigkeiten')
-rwxr-xr-xtesteAbhaengigkeiten187
1 files changed, 3 insertions, 184 deletions
diff --git a/testeAbhaengigkeiten b/testeAbhaengigkeiten
index 0023393e9..e50fdae11 100755
--- a/testeAbhaengigkeiten
+++ b/testeAbhaengigkeiten
@@ -1,46 +1,11 @@
#!/bin/bash
-set -e
-
if [ $# -ne 1 ]
then
>&2 echo "Verwendung: testeAbhaengigkeiten paket"
exit 1
fi
-substituiere() {
- dep="$1"
- name=${dep%>=*}
- dep=${dep#${name}}
- erg="$(
- cat "$(dirname "${me}")/perlSubstitutionen" | \
- sed 's|#.*$||' | \
- grep "\s${name}\(\s\|\$\)" | \
- sed "s|^\([^:]\+\):.*\$|perl-\1|" | \
- sed "s|^:.*\$|perl|"
- )"
- [ -z "${erg}" ] && erg="perl-${name}"
- if [ "${erg}" == "perl" ] && echo "${dep}" | grep -q "^[^.]*\.\(0[[:digit:]]\{2\}\)\{2\}"
- then
- dep="$(
- echo "${dep}" | \
- sed "s@^\([^.]*\....\)0\+@\1.@; s@^\([^.]*\.\)0\+@\1@"
- )"
- fi
- erg="${erg}${dep}"
-}
-
-versionsUniq() {
- tr ' ' '\n' | \
- sort -rV | \
- sed 's@^\([^<=>]*\)\(\(>=\|=\|<\)[0-9.]*\)$@\1\2 \1@' | \
- sed 's|^\(\S*\)$|\1 \1|' | \
- uniq -f1 "$@" | \
- awk '{print $1}' | \
- sort | \
- grep -v '^\s*$'
-}
-
paket="$1"
if [[ "${paket}" != "perl-"* ]]
@@ -51,160 +16,16 @@ fi
me="$(readlink -f "$0")"
cd "$(dirname "${me}")"
-cd "${paket}"
+. perlFunktionen
-makepkg -f --verifysource
-
-. PKGBUILD
-
-archiv="${_distdir}.tar.gz"
-[ -r "${archiv}" ] || archiv="${_distdir}.tgz"
-
-if [ ! -r "${archiv}" ]
-then
- >&2 echo "Kann Quelldatei nicht finden!"
- exit 1
-fi
-
-if ! tar -tzf "${archiv}" "${_distdir}/META.yml"
-then
-# da kann ich nichts machen
- exit 0
-fi
-
-echo "META.yml lesen ..."
-
-meta="$(
- tar -Oxzf "${archiv}" "${_distdir}/META.yml" | \
- tr '\r' ' ' | \
- grep -v "^\s*file:" | \
- grep -v "^version:" | \
- sed '
- :begin;
- $!N;
- s@^\(\S.*\)\n\s\+\(\S.*\)$@\1 \2@;
- tbegin;
- P;
- D
- ' | \
- sed "/^provides: /s@\(\s\S\+\):\s\+version:\s\+'\?v\?\([0-9.]\+\)'\?@\L\1=\2@g" | \
- sed "/^provides: /s@\s@ @g" | \
- sed "/^provides: /s@\(\s[^= ]\+\):\+\(\s\|\$\)@\L\1=${pkgver}\2@g" | \
- sed "s@\(\sperl:\s\+\)'\?\([[:digit:]]\+\)\.\([[:digit:]]\{3\}\)'\?\(\s\|\$\)@\1\2.\3.0\4@" | \
- sed "s@\(\sperl:\s\+\)'\?\([[:digit:]]\+\)\.\([[:digit:]]\{3\}\)\([[:digit:]]\+\)'\?\(\s\|\$\)@\1\2.\3.\4\5@" | \
- sed "s@\(\sperl:\s\+\)'\?\([[:digit:]]\+\)[._]0*\([1-9][[:digit:]]*\)[._]0*\([1-9][[:digit:]]*\)'\?\(\s\|\$\)@\1\2.\3.\4\5@" | \
- sed "s@\(\sperl:\s\+\)'\?\([[:digit:]]\+\)[._]0*\([1-9][[:digit:]]*\)[._]0\+'\?\(\s\|\$\)@\1\2.\3.0\4@"
-)"
+ladePkgbuild "${paket}" || exit $[$?-1]
-echo "... fertig, verarbeiten ..."
-
-declare -A metaInfos
-declare -A metaRegexe
-declare -A metaSubst
-declare -A metaYml
-declare -A pkgBuild
-
-metaRegexe["depends"]="requires"
-metaSubst["depends"]=true
-metaRegexe["makedepends"]="\(build\|configure\)_requires"
-metaSubst["makedepends"]=true
-metaRegexe["optdepends"]="recommends"
-metaSubst["optdepends"]=true
-metaRegexe["conflicts"]="conflicts"
-metaSubst["conflicts"]=true
-metaRegexe["provides"]="provides"
-metaSubst["provides"]=false
-
-set +e
-
-for sucheWonach in "${!metaRegexe[@]}"
-do
- metaInfos["${sucheWonach}"]=""
- for was in $(
- echo "${meta}" | \
- grep "^${metaRegexe["${sucheWonach}"]}:" | \
- sed "s@^${metaRegexe["${sucheWonach}"]}:\s*@@" | \
- sed "s@\(\S\+\):\s\+'\?v\?\([0-9.]*\)'\?\(\s\|\$\)@\L\1>=\L\2\n@g" | \
- sed "s@\(\S\+\):\s\+'\(<=\?\)\s*v\?\([0-9.]\+\)'\(\s\|\$\)@\L\1\2\L\3\n@g" | \
- sed "s@::@-@g" | \
- sed "s|>=0\$||" | \
- grep -v "^\({}\)\?$"
- )
- do
- if ${metaSubst["${sucheWonach}"]}
- then
- substituiere "${was}"
- else
- erg="perl-${was}"
- if [[ "${erg}" == "${pkgname}="* ]]
- then
- erg="perl-%skip"
- fi
- fi
- if [[ "${erg}" != "perl-%skip"* ]]
- then
- metaInfos["${sucheWonach}"]="${metaInfos["${sucheWonach}"]} ${erg}"
- fi
- done
- metaInfos["${sucheWonach}"]="$(
- echo "${metaInfos["${sucheWonach}"]}" | \
- versionsUniq
- )"
-done
+versteheMetaYml "${paket}" || exit $[$?-1]
err=false
for wasAusgeben in "${!metaRegexe[@]}"
do
- eval tmp=( '"${'${wasAusgeben}'[@]}"' )
- pkgBuild["${wasAusgeben}"]="$(
- echo "${tmp[@]}" | \
- tr " '" '\n\n' | \
- grep -v '^$' | \
- sort -u
- )"
- if [ -z "${pkgBuild["${wasAusgeben}"]}" ] && \
- [ "${wasAusgeben}" == "depends" ]
- then
- pkgBuild["${wasAusgeben}"]="perl"
- fi
-
- metaYml["${wasAusgeben}"]="$(
- (
- echo "${metaInfos["${wasAusgeben}"]}" | \
- grep -v '^$' | \
- grep '^\s*perl'
- echo "${pkgBuild["${wasAusgeben}"]}" | \
- grep -v '^\s*perl'
- ) | \
- versionsUniq
- )"
- if [ -z "${metaYml["${wasAusgeben}"]}" ] && \
- [ "${wasAusgeben}" == "depends" ]
- then
- metaYml["${wasAusgeben}"]="perl"
- fi
- if [ "${wasAusgeben}" == "makedepends" ]
- then
- metaYml["${wasAusgeben}"]="$(
- (
- (
- (
- echo "${metaYml["${wasAusgeben}"]}"
- echo "${metaYml["depends"]}"
- ) | \
- versionsUniq
- echo "${metaYml["depends"]}"
- ) | \
- sort | \
- uniq -d | \
- sed 'p'
- echo "${metaYml["${wasAusgeben}"]}"
- ) | \
- versionsUniq -u
- )"
- fi
-
probleme="$(
(
echo "${pkgBuild["${wasAusgeben}"]}"
@@ -269,5 +90,3 @@ then
sed "s|^depends=.*\$|${ersatz}|" -i PKGBUILD
"${me}" "$@"
fi
-
-echo "... fertig"