scripts/mono-find-requires.in

   1 #!/bin/bash
   2 #
   3 # mono-find-requires
   4 #
   5 # Authors:
   6 #       Ben Maurer (bmaurer@ximian.com)
   7 #
   8 # (C) 2005 Novell (http://www.novell.com)
   9 #
  10
  11 IFS=$'\n'
  12 filelist=($(grep -Ev '/usr/doc/|/usr/share/doc/'))
  13 monolist=($(printf "%s\n" "${filelist[@]}" | egrep "\\.(exe|dll)\$"))
  14
  15 # parse .config files to find which native libraries to depend on
  16 #  (target attribute must have double quotes for this to work, ie: target="file" )
  17 # Add /etc/mono/config ?
  18 configlist=($(printf "%s\n" "${filelist[@]}" | egrep "\\.config\$"))
  19
  20 # Set the prefix, unless it is overriden (used when building mono rpms)
  21 : ${prefix=@prefix@}
  22
  23 libdir=$prefix/@reloc_libdir@
  24 bindir=$prefix/bin
  25
  26 # Bail out if monodis or libmono is missing
  27 if [ ! -x $bindir/monodis ] || [ ! -f $libdir/libmono.so ] ; then
  28         echo "monodis missing or unusable, exiting..." 1>&2
  29         exit 1
  30 fi
  31
  32 # special case for 64bit archs
  33 if test "x@reloc_libdir@" = "xlib64" ; then
  34         libext="()(64bit)"
  35 else
  36         libext=""
  37 fi
  38
  39 # set LD_LIBRARY_PATH to ensure that libmono.so is found
  40 export LD_LIBRARY_PATH=$libdir${LD_LIBRARY_PATH:+:$LD_LIBRARY_PATH}
  41
  42 REQUIRES=$(
  43         for i in "${monolist[@]}"; do
  44                 ($bindir/monodis --assemblyref $i | awk '
  45                         BEGIN { START=0; LIBNAME=""; VERSION=""; }
  46                         (START==0) && /^[0-9]+: Version=/ {
  47                                 START=1;
  48                                 sub(/Version=/, "", $2);
  49                                 VERSION=$2
  50                         }
  51
  52                         (START==1) && /^\tName=/ {
  53                                 sub(/Name=/, "", $1);
  54                                 LIBNAME=$1
  55                                 # Allow rpm deps to be resolved for 1.0 profile version
  56                                 if (VERSION=="1.0.3300.0")
  57                                         OP=">="
  58                                 else
  59                                         OP="="
  60                                 print "mono(" LIBNAME ") " OP " " VERSION
  61                                 START=0
  62                         }
  63                     ') 2> /dev/null
  64         done
  65         # Parse the xml .config files to see what native binaries we call into
  66         # TODO: also check monodis --moduleref
  67         for i in "${configlist[@]}"; do
  68                 awk 'match($_, /<dllmap .*target=.*/) {
  69                         ignore=0
  70                         req=""
  71                         split($_, toks, "\"")
  72                         toks_size=0
  73                         for(tok in toks) { toks_size++ }
  74                         for(i=1; i <= toks_size; i++) {
  75                                 if(toks[i] ~ /target=/) {
  76                                         req=toks[i+1]
  77                                 }
  78                                 if(toks[i] ~ /os=/) {
  79                                         negate=0
  80                                         found=0
  81
  82                                         attr=toks[i+1]
  83                                         if(attr ~ /^!/) {
  84                                                 attr=substr(attr, 2, length(attr)-1)
  85                                                 negate=1
  86                                         }
  87
  88                                         split(attr, os_targets, ",")
  89                                         os_targets_size=0
  90                                         for(os_target in os_targets) { os_targets_size++ }
  91                                         for(j=1; j <= os_targets_size; j++) {
  92                                                 if(os_targets[j] == "linux") {
  93                                                         found=1
  94                                                 }
  95                                         }
  96
  97                                         if(negate) {
  98                                                 found=!found
  99                                         }
 100                                         if (!found) {
 101                                                 ignore=1
 102                                         }
 103                                 }
 104                         }
 105                         if(!ignore) {
 106                                 system("rpm -q --whatprovides --queryformat \"%{NAME}\n\" ""\""req"'$libext'""\"")
 107                         }
 108                 } ' $i 2>/dev/null
 109         done
 110 )
 111
 112 # Note about above:
 113 #  Use to do: system("rpm -q --whatprovides --queryformat \"%{NAME}\n\" ""\""req"'$libext'""\"")
 114 #  rpmlint prefers to have lib names instead of package names.  There was a reason I was using package names but it slips me now...
 115 #  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
 116 #   on the package name instead.
 117
 118 PROVIDES=$(
 119         for i in "${monolist[@]}"; do
 120                 ($bindir/monodis --assembly $i | awk '
 121                         BEGIN { LIBNAME=""; VERSION=""; }
 122                         /^Version:/ { VERSION=$2 }
 123                         /^Name:/    { LIBNAME=$2 }
 124                         END {
 125                                 if (VERSION && LIBNAME)
 126                                         print "mono(" LIBNAME ") = " VERSION
 127                         }
 128                     ') 2>/dev/null
 129         done
 130 )
 131 #
 132 # This is a little magic trick to get all REQUIRES that are not
 133 # in PROVIDES. While RPM functions correctly when such deps exist,
 134 # they make the metadata a bit bloated.
 135 #
 136
 137 # Filter out dups from both lists
 138 REQUIRES=$(echo "$REQUIRES" | sort | uniq)
 139 PROVIDES=$(echo "$PROVIDES" | sort | uniq)
 140
 141 #
 142 # Get a list of elements that exist in exactly one of PROVIDES or REQUIRES
 143 #
 144 UNIQ=$(echo "$PROVIDES
 145 $REQUIRES" | sort | uniq -u)
 146
 147 #
 148 # Of those, only choose the ones that are in REQUIRES
 149 #
 150 echo "$UNIQ
 151 $REQUIRES" | sort | uniq -d