Permalink
Switch branches/tags
Find file Copy path
Fetching contributors…
Cannot retrieve contributors at this time
191 lines (167 sloc) 4.78 KB
#!/bin/bash
#
# mono-find-requires
#
# Authors:
# Ben Maurer (bmaurer@ximian.com)
# Wade Berrier (wberrier@novell.com)
#
# (C) 2008 Novell (http://www.novell.com)
#
IFS=$'\n'
filelist=($(grep -Ev '/usr/doc/|/usr/share/doc/'))
monolist=($(printf "%s\n" "${filelist[@]}" | egrep "\\.(exe|dll)\$"))
# parse .config files to find which native libraries to depend on
# (target attribute must have double quotes for this to work, ie: target="file" )
# Add /etc/mono/config ?
configlist=($(printf "%s\n" "${filelist[@]}" | egrep "\\.config\$"))
# Set the prefix, unless it is overriden (used when building mono rpms)
: ${prefix=@prefix@}
# Can override .config scanning if specified
: ${IGNORE_CONFIG_SCAN=0}
libdir=$prefix/@reloc_libdir@
bindir=$prefix/bin
# Bail out if monodis or libmono is missing
if [ ! -x $bindir/monodis ] || [ ! -f $libdir/libmono-2.0.so.1 ] ; then
echo "monodis missing or unusable, exiting..." 1>&2
exit 1
fi
# special case for 64bit archs
if test "x@reloc_libdir@" = "xlib64" ; then
libext="()(64bit)"
else
# (note, this works on ppc64 since we only have 32bit mono)
libext=""
fi
# Exceptions:
case `uname -m` in
# ia64 doesn't use lib64 for 'libdir' (sles 9 rpm used to provide both... no longer)
ia64) libext="()(64bit)" ;;
esac
# set LD_LIBRARY_PATH to ensure that libmono is found
export LD_LIBRARY_PATH=$libdir${LD_LIBRARY_PATH:+:$LD_LIBRARY_PATH}
# and set MONO_PATH to ensure that mscorlib.dll can be found
export MONO_PATH=$prefix/lib/mono/2.0
REQUIRES=$(
for i in "${monolist[@]}"; do
($bindir/monodis --assemblyref $i | awk '
BEGIN { START=0; LIBNAME=""; VERSION=""; }
(START==0) && /^[0-9]+: Version=/ {
START=1;
sub(/Version=/, "", $2);
VERSION=$2
}
(START==1) && /^\tName=/ {
sub(/Name=/, "", $1);
LIBNAME=$1
# Allow rpm deps to be resolved for 1.0 profile version
if (VERSION=="1.0.3300.0")
OP=">="
else
OP="="
print "mono(" LIBNAME ") " OP " " VERSION
START=0
}
') 2> /dev/null
done
)
if [ $IGNORE_CONFIG_SCAN -eq 0 ] ; then
rpm_config_REQUIRES=$(
# Parse the xml .config files to see what native binaries we call into
# TODO: also check monodis --moduleref
for i in "${configlist[@]}"; do
awk 'match($_, /<dllmap .*target=.*/) {
ignore=0
req=""
split($_, toks, "\"")
toks_size=0
for(tok in toks) { toks_size++ }
for(i=1; i <= toks_size; i++) {
if(toks[i] ~ /target=/) {
req=toks[i+1]
}
if(toks[i] ~ /os=/) {
negate=0
found=0
attr=toks[i+1]
if(attr ~ /^!/) {
attr=substr(attr, 2, length(attr)-1)
negate=1
}
split(attr, os_targets, ",")
os_targets_size=0
for(os_target in os_targets) { os_targets_size++ }
for(j=1; j <= os_targets_size; j++) {
if(os_targets[j] == "linux") {
found=1
}
}
if(negate) {
found=!found
}
if (!found) {
ignore=1
}
}
}
if(!ignore) {
print req"'$libext'"
}
} ' $i 2>/dev/null
done
)
# Resolve provides to packages, warning on missing to stderr
config_REQUIRES=$(
first=1 # avoid an empty line if no .config reqs are found
for i in ${rpm_config_REQUIRES[@]} ; do
out=$(rpm -q --whatprovides --queryformat "%{NAME}\n" $i)
if [ $? -eq 0 ] ; then
if [ $first -eq 1 ] ; then
echo ""
first=0
fi
echo $out
else
# echo to stderr
echo "mono-find-requires: Warning, could not find package that provides: $i" >&2
fi
done
)
fi
# Note about above:
# Use to do: system("rpm -q --whatprovides --queryformat \"%{NAME}\n\" ""\""req"'$libext'""\"")
# rpmlint prefers to have lib names instead of package names. There was a reason I was using package names but it slips me now...
# Ah... now I remember... it's for noarch packs. The noarch packages can be built on either 32 or 64 bit... so we have to depend
# on the package name instead.
PROVIDES=$(
for i in "${monolist[@]}"; do
($bindir/monodis --assembly $i | awk '
BEGIN { LIBNAME=""; VERSION=""; }
/^Version:/ { VERSION=$2 }
/^Name:/ { LIBNAME=$2 }
END {
if (VERSION && LIBNAME)
print "mono(" LIBNAME ") = " VERSION
}
') 2>/dev/null
done
)
#
# This is a little magic trick to get all REQUIRES that are not
# in PROVIDES. While RPM functions correctly when such deps exist,
# they make the metadata a bit bloated.
#
# TODO: make this use the mono-find-provides script, to share code
# Filter out dups from both lists
REQUIRES=$(echo "$REQUIRES $config_REQUIRES" | sort | uniq)
PROVIDES=$(echo "$PROVIDES" | sort | uniq)
#
# Get a list of elements that exist in exactly one of PROVIDES or REQUIRES
#
UNIQ=$(echo "$PROVIDES
$REQUIRES" | sort | uniq -u)
#
# Of those, only choose the ones that are in REQUIRES
#
echo "$UNIQ
$REQUIRES" | sort | uniq -d