Jip J. Dekker
3e72b0e857
git-subtree-dir: software/gecode_on_record git-subtree-split: 37ed9bda495ea87e63217c19a374b5a93bb0078e
81 lines
2.6 KiB
Perl
81 lines
2.6 KiB
Perl
#!/usr/bin/perl
|
|
#
|
|
# Main authors:
|
|
# Christian Schulte <schulte@gecode.org>
|
|
#
|
|
# Copyright:
|
|
# Christian Schulte, 2010
|
|
#
|
|
# 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 =~ /(.*)fzn-gecode\.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\"");
|
|
}
|