#!/usr/bin/perl
#
#  Main authors:
#     Christian Schulte <schulte@gecode.org>
#
#  Copyright:
#     Christian Schulte, 2010
#
#  Last modified:
#     $Date: 2011-01-19 22:58:04 +1100 (Wed, 19 Jan 2011) $ by $Author: schulte $
#     $Revision: 11552 $
#
#  This file is part of Gecode, the generic constraint
#  development environment:
#     http://www.gecode.org
#
#  Permission is hereby granted, free of charge, to any person obtaining
#  a copy of this software and associated documentation files (the
#  "Software"), to deal in the Software without restriction, including
#  without limitation the rights to use, copy, modify, merge, publish,
#  distribute, sublicense, and/or sell copies of the Software, and to
#  permit persons to whom the Software is furnished to do so, subject to
#  the following conditions:
#
#  The above copyright notice and this permission notice shall be
#  included in all copies or substantial portions of the Software.
#
#  THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND,
#  EXPRESS OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF
#  MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND
#  NONINFRINGEMENT. IN NO EVENT SHALL THE AUTHORS OR COPYRIGHT HOLDERS BE
#  LIABLE FOR ANY CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION
#  OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION
#  WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE.
#
#

$dllsuffix = $ARGV[0];
$file      = $ARGV[1];

if ($dllsuffix =~ /-([0-9]+)-([0-9]+)-([0-9]+)-[rd]-(x[0-9]+)\.dll/) {
  $revx = $1; $revy = $2; $revz = $3;
  $arch = $4;
}

if ($file =~ /(.*)Gecode([A-Za-z]+)-[0-9]+-[0-9]+-[0-9]+-[rd]-x[0-9]+\.dll\.manifest/) {
  $type = "Modules";
  $name = $2;
} elsif ($file =~ /(.*)\/examples\/(.+)\.exe/) {
  $type = "Examples";
  $name = $2;
} elsif ($file =~ /(.*)fz\.exe/) {
  $type = "Tools";
  $name = "FlatZinc";
} elsif ($file =~ /(.*)\/test\.exe/) {
  $type = "Tools";
  $name = "Test";
}

if ($arch =~ /x64/) {
  $arch = "amd64";
}

if (open (INMANIFEST, "<", $file)) {
  open (OUTMANIFEST, ">", "$file.tmp") || die "Could not open " . "$file.tmp";

  while ($l = <INMANIFEST>) {
    print OUTMANIFEST $l;
    if ($l =~ /\<assembly /) {
      print OUTMANIFEST "  <assemblyIdentity type=\"win32\"\n"; 
      print OUTMANIFEST "                    name=\"Gecode.$type.$name\"\n";
      print OUTMANIFEST "                    version=\"$revx.$revy.$revz.0\"\n";
      print OUTMANIFEST "                    processorArchitecture=\"$arch\"\n";
      print OUTMANIFEST "                    publicKeyToken=\"0000000000000000\"\n";
      print OUTMANIFEST "  />\n";
    }
  }

  close INMANIFEST;
  close OUTMANIFEST;

  system("rm -f \"$file\"");
  system("mv \"$file.tmp\" \"$file\"");
}