Something went wrong. Try again.
This repository has no description
Something went wrong. Try again.
2.7 kB · 80 lines
at develop
123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081#!/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\"");}