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
81
82
|
#!/usr/bin/env perl
# Note: this script must not be used to build MPFR due to the
# dependency on perl, but this is OK for "make dist".
# Copyright 2010-2021 Free Software Foundation, Inc.
# This script is free software; the Free Software Foundation
# gives unlimited permission to copy and/or distribute it,
# with or without modifications, as long as this notice is preserved.
# This program is distributed in the hope that it will be useful,
# but WITHOUT ANY WARRANTY, to the extent permitted by law; without
# even the implied warranty of MERCHANTABILITY or FITNESS FOR A
# PARTICULAR PURPOSE.
use strict;
use Cwd;
if (! -d 'src')
{
getcwd() =~ m,/tools$,
or die "Execute $0 from the MPFR source directory\n";
chdir '..' or die "$!\n$0: can't change cwd\n";
}
open VERSION, '<', 'VERSION'
or die "$!\n$0: can't open VERSION file\n";
my $version = do { local $/; <VERSION> };
close VERSION or die "$!\n$0: can't close VERSION file\n";
my ($mv,$pl,$suf) = $version =~ /^(\d+\.\d+)\.(\d+)(-\S+)?/
or die "$0: bad VERSION format\n";
open MF, '<', 'src/Makefile.am'
or die "$!\n$0: can't open Makefile.am file\n";
my $cur = 0;
my $age = -1;
my $vinfo; # expected -version-info value
while (<MF>)
{
last if $cur && ! /^\s*(#.*)$/;
/^#\s+(\d+\.\d+)\.x\s+(\d+):x:(\d+)/ or next;
$2 == ++$cur or die "$0: bad CURRENT ($2)";
$3 == 0 || $3 == $age + 1 or die "$0: bad AGE ($3)";
$age = $3;
$mv eq $1 and $vinfo = "$cur:$pl:$age";
}
/^libmpfr_la_LDFLAGS\s+=.*\s-version-info\s+(\d+:\d+:\d+)\s/
or die "$0: missing correct libmpfr_la_LDFLAGS line";
close MF or die "$!\n$0: can't close Makefile.am file\n";
if (defined $vinfo)
{
# Check that the -version-info value in the libmpfr_la_LDFLAGS line
# corresponds to the expected value from the comment ($vinfo).
$vinfo eq $1
or die "$0: bad -version-info value ($1 instead of $vinfo)\n";
}
else
{
# If this is a release or a release candidate, make sure that $vinfo
# is defined. For intermediate versions, this value may not be known
# yet (for instance, the ABI may be broken some time later), so that
# defining $vinfo is not required.
$suf =~ /^(-rc.*)?$/
and die "$0: missing comment with -version-info value for MPFR $mv.x";
}
open CONFIGURE, '<', 'configure.ac'
or die "$!\n$0: can't open configure.ac file\n";
my $dllversion = $cur - $age;
my $dllvinconf;
while (<CONFIGURE>)
{
/^\s*LIBMPFR_LDFLAGS\s*=.*-Wl,--output-def,\.libs\/libmpfr-(\d+)\.dll\.def/
and $dllvinconf = $1, last;
}
close CONFIGURE or die "$!\n$0: can't close configure.ac file\n";
defined $dllvinconf or die "$0: missing correct LIBMPFR_LDFLAGS line\n";
$suf eq '-dev' || $dllversion eq $dllvinconf
or die "$0: bad libmpfr.dll-version value (libmpfr-$dllvinconf.dll.def".
" instead of libmpfr-$dllversion.dll.def)\n";
|
