]>
Commit | Line | Data |
---|---|---|
5530d518 MC |
1 | #!/usr/bin/perl |
2 | # Written by Matt Caswell for the OpenSSL project. | |
3 | # ==================================================================== | |
4 | # Copyright (c) 1998-2015 The OpenSSL Project. All rights reserved. | |
5 | # | |
6 | # Redistribution and use in source and binary forms, with or without | |
7 | # modification, are permitted provided that the following conditions | |
8 | # are met: | |
9 | # | |
10 | # 1. Redistributions of source code must retain the above copyright | |
11 | # notice, this list of conditions and the following disclaimer. | |
12 | # | |
13 | # 2. Redistributions in binary form must reproduce the above copyright | |
14 | # notice, this list of conditions and the following disclaimer in | |
15 | # the documentation and/or other materials provided with the | |
16 | # distribution. | |
17 | # | |
18 | # 3. All advertising materials mentioning features or use of this | |
19 | # software must display the following acknowledgment: | |
20 | # "This product includes software developed by the OpenSSL Project | |
21 | # for use in the OpenSSL Toolkit. (http://www.openssl.org/)" | |
22 | # | |
23 | # 4. The names "OpenSSL Toolkit" and "OpenSSL Project" must not be used to | |
24 | # endorse or promote products derived from this software without | |
25 | # prior written permission. For written permission, please contact | |
26 | # openssl-core@openssl.org. | |
27 | # | |
28 | # 5. Products derived from this software may not be called "OpenSSL" | |
29 | # nor may "OpenSSL" appear in their names without prior written | |
30 | # permission of the OpenSSL Project. | |
31 | # | |
32 | # 6. Redistributions of any form whatsoever must retain the following | |
33 | # acknowledgment: | |
34 | # "This product includes software developed by the OpenSSL Project | |
35 | # for use in the OpenSSL Toolkit (http://www.openssl.org/)" | |
36 | # | |
37 | # THIS SOFTWARE IS PROVIDED BY THE OpenSSL PROJECT ``AS IS'' AND ANY | |
38 | # EXPRESSED OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE | |
39 | # IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR | |
40 | # PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL THE OpenSSL PROJECT OR | |
41 | # ITS CONTRIBUTORS BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, | |
42 | # SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT | |
43 | # NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; | |
44 | # LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) | |
45 | # HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, | |
46 | # STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) | |
47 | # ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED | |
48 | # OF THE POSSIBILITY OF SUCH DAMAGE. | |
49 | # ==================================================================== | |
50 | # | |
51 | # This product includes cryptographic software written by Eric Young | |
52 | # (eay@cryptsoft.com). This product includes software written by Tim | |
53 | # Hudson (tjh@cryptsoft.com). | |
54 | ||
55 | use strict; | |
56 | use OpenSSL::Test qw/:DEFAULT top_file/; | |
57 | ||
58 | setup("test_ordinals"); | |
59 | ||
60 | plan tests => 2; | |
61 | ||
62 | ok(testordinals(top_file("util", "libeay.num")), "Test libeay.num"); | |
63 | ok(testordinals(top_file("util", "ssleay.num")), "Test ssleay.num"); | |
64 | ||
65 | sub testordinals | |
66 | { | |
67 | my $filename = shift; | |
68 | my $cnt = 0; | |
69 | my $ret = 1; | |
70 | my $qualifier = ""; | |
71 | my $newqual; | |
72 | my $lastfunc = ""; | |
73 | ||
74 | open(my $fh, '<', $filename); | |
75 | while (my $line = <$fh>) { | |
ea09088e | 76 | my @tokens = split(/(?:\s+|\s*:\s*)/, $line); |
5530d518 | 77 | #Check the line looks sane |
e863d920 | 78 | if ($#tokens < 5 || $#tokens > 6) { |
5530d518 MC |
79 | print STDERR "Invalid line:\n$line\n"; |
80 | $ret = 0; | |
81 | last; | |
82 | } | |
e863d920 | 83 | if ($tokens[3] eq "NOEXIST") { |
5530d518 MC |
84 | #Ignore this line |
85 | next; | |
86 | } | |
87 | #Some ordinals can be repeated, e.g. if one is VMS and another is !VMS | |
e863d920 | 88 | $newqual = $tokens[4]; |
5530d518 | 89 | $newqual =~ s/!//g; |
ea09088e RL |
90 | if ($cnt > $tokens[1] |
91 | || ($cnt == $tokens[1] && ($qualifier ne $newqual | |
5530d518 | 92 | || $qualifier eq "FUNCTION"))) { |
ea09088e | 93 | print STDERR "Invalid ordinal detected: ".$tokens[1]."\n"; |
5530d518 MC |
94 | $ret = 0; |
95 | last; | |
96 | } | |
ea09088e | 97 | $cnt = $tokens[1]; |
5530d518 MC |
98 | $qualifier = $newqual; |
99 | $lastfunc = $tokens[0]; | |
100 | } | |
101 | close($fh); | |
102 | ||
103 | return $ret; | |
104 | } |