summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rwxr-xr-xperlFunktionen206
-rw-r--r--perlSubstitutionen2
-rwxr-xr-xtesteAbhaengigkeiten187
3 files changed, 210 insertions, 185 deletions
diff --git a/perlFunktionen b/perlFunktionen
new file mode 100755
index 00000000..0d53857c
--- /dev/null
+++ b/perlFunktionen
@@ -0,0 +1,206 @@
+#!/bin/bash
+
+set -e
+
+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' | \
+ sed 's|^perl$|perl>=0|' | \
+ sort -rV | \
+ sed 's@^\([^<=>]*\)\(\(>=\|=\|<\)[0-9.]*\)$@\1\2 \1@' | \
+ sed 's|^\(\S*\)$|\1 \1|' | \
+ uniq -f1 "$@" | \
+ awk '{print $1}' | \
+ sed 's|^perl>=0$|perl|' | \
+ sort | \
+ grep -v '^\s*$'
+}
+
+ladePkgbuild() {
+ paket="$1"
+
+ if [[ "${paket}" != "perl-"* ]]
+ then
+ return 1
+ fi
+
+ me="$(readlink -f "$0")"
+ cd "$(dirname "${me}")"
+ cd "${paket}"
+
+ makepkg -f --verifysource
+
+ . PKGBUILD
+}
+
+versteheMetaYml() {
+ archiv="${_distdir}.tar.gz"
+ [ -r "${archiv}" ] || archiv="${_distdir}.tgz"
+
+ if [ ! -r "${archiv}" ]
+ then
+ >&2 echo "Kann Quelldatei nicht finden!"
+ return 2
+ fi
+
+ if ! tar -tzf "${archiv}" "${_distdir}/META.yml"
+ then
+ return 1
+ 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@"
+ )"
+
+ echo "... fertig, verarbeiten ..."
+
+ 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
+
+ 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
+ done
+ echo "... fertig"
+}
+
+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
diff --git a/perlSubstitutionen b/perlSubstitutionen
index 421e134a..910df440 100644
--- a/perlSubstitutionen
+++ b/perlSubstitutionen
@@ -1,4 +1,4 @@
-: perl
+: perl test-builder-module
%skip: b benchmark blib charnames config dynaloader extutils-typemaps fcntl feature file-basename file-copy file-find file-glob filehandle findbin ipc-open3
%skip: mro open overload perlio pod-text posix re strict subs symbol utf8 vars warnings {}
cache-cache: cache-filecache
diff --git a/testeAbhaengigkeiten b/testeAbhaengigkeiten
index 0023393e..e50fdae1 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"