File: fixmanifest.perl

package info (click to toggle)
gecode 6.1.0-2
  • links: PTS
  • area: main
  • in suites: bullseye, buster, sid
  • size: 26,372 kB
  • sloc: cpp: 328,292; perl: 2,048; makefile: 1,793; sh: 214
file content (80 lines) | stat: -rw-r--r-- 2,658 bytes parent folder | download
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
#!/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\"");
}