Fix test case for hr_HR monetary formatting
[glibc.git] / manual / libm-err-tab.pl
blobe0bc3b7289f62f2625c38c3a449a8032b14f0019
1 #!/usr/bin/perl -w
2 # Copyright (C) 1999-2017 Free Software Foundation, Inc.
3 # This file is part of the GNU C Library.
4 # Contributed by Andreas Jaeger <aj@suse.de>, 1999.
6 # The GNU C Library is free software; you can redistribute it and/or
7 # modify it under the terms of the GNU Lesser General Public
8 # License as published by the Free Software Foundation; either
9 # version 2.1 of the License, or (at your option) any later version.
11 # The GNU C Library is distributed in the hope that it will be useful,
12 # but WITHOUT ANY WARRANTY; without even the implied warranty of
13 # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
14 # Lesser General Public License for more details.
16 # You should have received a copy of the GNU Lesser General Public
17 # License along with the GNU C Library; if not, see
18 # <http://www.gnu.org/licenses/>.
20 # Information about tests are stored in: %results
21 # $results{$test}{"type"} is the result type, e.g. normal or complex.
22 # In the following description $platform, $type and $float are:
23 # - $platform is the used platform
24 # - $type is either "normal", "real" (for the real part of a complex number)
25 # or "imag" (for the imaginary part # of a complex number).
26 # - $float is either of float, ifloat, double, idouble, ldouble, ildouble;
27 # It represents the underlying floating point type (float, double or long
28 # double) and if inline functions (the leading i stands for inline)
29 # are used.
30 # $results{$test}{$platform}{$type}{$float} is defined and has a delta
31 # or 'fail' as value.
33 use File::Find;
35 use strict;
37 use vars qw ($sources @platforms %pplatforms);
38 use vars qw (%results @all_floats %suffices %all_functions);
41 # all_floats is in output order and contains all recognised float types that
42 # we're going to output
43 @all_floats = ('float', 'double', 'ldouble', 'float128');
44 %suffices =
45 ( 'float' => 'f',
46 'double' => '',
47 'ldouble' => 'l',
48 'float128' => 'f128'
51 # Pretty description of platform
52 %pplatforms = ();
54 %all_functions = ();
56 if ($#ARGV == 0) {
57 $sources = $ARGV[0];
58 } else {
59 $sources = '/usr/src/cvs/libc';
62 find (\&find_files, $sources);
64 @platforms = sort by_platforms @platforms;
66 &print_all;
68 sub find_files {
69 if ($_ eq 'libm-test-ulps') {
70 # print "Parsing $File::Find::name\n";
71 push @platforms, $File::Find::dir;
72 my ($file, $name);
73 $file = "${File::Find::name}-name";
74 open NAME, $file or die ("Can't open $file: $!");
75 $name = <NAME>;
76 chomp $name;
77 close NAME;
78 $pplatforms{$File::Find::dir} = $name;
79 &parse_ulps ($File::Find::name, $File::Find::dir);
83 # Parse ulps file
84 sub parse_ulps {
85 my ($file, $platform) = @_;
86 my ($test, $type, $float, $eps, $ignore_fn);
88 # $type has the following values:
89 # "normal": No complex variable
90 # "real": Real part of complex result
91 # "imag": Imaginary part of complex result
92 open ULP, $file or die ("Can't open $file: $!");
93 while (<ULP>) {
94 chop;
95 # ignore comments and empty lines
96 next if /^#/;
97 next if /^\s*$/;
98 if (/^Function: /) {
99 if (/Real part of/) {
100 s/Real part of //;
101 $type = 'real';
102 } elsif (/Imaginary part of/) {
103 s/Imaginary part of //;
104 $type = 'imag';
105 } else {
106 $type = 'normal';
108 ($test) = ($_ =~ /^Function:\s*\"([a-zA-Z0-9_]+)\"/);
109 next;
111 if ($test =~ /_(downward|towardzero|upward|vlen)/) {
112 $ignore_fn = 1;
113 } else {
114 $ignore_fn = 0;
115 $all_functions{$test} = 1;
117 if (/^i?(float|double|ldouble|float128):/) {
118 ($float, $eps) = split /\s*:\s*/,$_,2;
119 if ($ignore_fn) {
120 next;
121 } elsif ($eps eq 'fail') {
122 $results{$test}{$platform}{$type}{$float} = 'fail';
123 } elsif ($eps eq "0") {
124 # ignore
125 next;
126 } elsif (!exists $results{$test}{$platform}{$type}{$float}
127 || $results{$test}{$platform}{$type}{$float} ne 'fail') {
128 $results{$test}{$platform}{$type}{$float} = $eps;
130 if ($type =~ /^real|imag$/) {
131 $results{$test}{'type'} = 'complex';
132 } elsif ($type eq 'normal') {
133 $results{$test}{'type'} = 'normal';
135 next;
137 print "Skipping unknown entry: `$_'\n";
139 close ULP;
142 sub get_value {
143 my ($fct, $platform, $type, $float) = @_;
145 return (exists $results{$fct}{$platform}{$type}{$float}
146 ? $results{$fct}{$platform}{$type}{$float} : "0");
149 sub print_platforms {
150 my (@p) = @_;
151 my ($fct, $platform, $float, $first, $i, $platform_no, $platform_total);
153 print '@multitable {nexttowardf} ';
154 foreach (@p) {
155 print ' {1000 + i 1000}';
157 print "\n";
159 print '@item Function ';
160 foreach (@p) {
161 print ' @tab ';
162 print $pplatforms{$_};
164 print "\n";
167 foreach $fct (sort keys %all_functions) {
168 foreach $float (@all_floats) {
169 print "\@item $fct$suffices{$float} ";
170 foreach $platform (@p) {
171 print ' @tab ';
172 if (exists $results{$fct}{$platform}{'normal'}{$float}
173 || exists $results{$fct}{$platform}{'real'}{$float}
174 || exists $results{$fct}{$platform}{'imag'}{$float}) {
175 if ($results{$fct}{'type'} eq 'complex') {
176 print &get_value ($fct, $platform, 'real', $float),
177 ' + i ', &get_value ($fct, $platform, 'imag', $float);
178 } else {
179 print $results{$fct}{$platform}{'normal'}{$float};
181 } else {
182 print '-';
185 print "\n";
189 print "\@end multitable\n";
192 sub print_all {
193 my ($i, $max);
195 my ($columns) = 5;
197 # Print only 5 platforms at a time.
198 for ($i=0; $i < $#platforms; $i+=$columns) {
199 $max = $i+$columns-1 > $#platforms ? $#platforms : $i+$columns-1;
200 print_platforms (@platforms[$i .. $max]);
204 sub by_platforms {
205 return $pplatforms{$a} cmp $pplatforms{$b};