summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
Diffstat
-rw-r--r--Changes140
-rwxr-xr-xinstallperl2
-rw-r--r--lib/Math/Complex.pm167
-rw-r--r--pod/perldelta.pod16
-rwxr-xr-xt/lib/complex.t119
-rw-r--r--vms/vmsish.h5
6 files changed, 393 insertions, 56 deletions
diff --git a/Changes b/Changes
index 0f0cf7349a..3eb6f9ef18 100644
--- a/Changes
+++ b/Changes
@@ -95,6 +95,146 @@ Version v5.6.0
--------------
____________________________________________________________________________
+[ 5610] By: gsar on 2000/03/08 12:08:17
+ Log: add missing locks for op refcounts
+ Branch: perl
+ ! dosish.h embedvar.h makedef.pl op.c op.h perl.c perlapi.h
+ ! perlvars.h sv.c unixish.h vms/vmsish.h
+____________________________________________________________________________
+[ 5609] By: gsar on 2000/03/08 11:30:32
+ Log: Pod::InputObjects tweak (from Brad Appleton)
+ Branch: perl
+ ! lib/Pod/InputObjects.pm
+____________________________________________________________________________
+[ 5608] By: jhi on 2000/03/08 05:08:59
+ Log: Integrate with Sarathy.
+ Branch: cfgperl
+ !> (integrate 27 files)
+____________________________________________________________________________
+[ 5607] By: jhi on 2000/03/08 05:07:06
+ Log: Make the stringification more customizable.
+ A potentially backward incompatible change.
+ Based on a suggestion by Roman Kosenko <ra@amk.al.lg.ua>.
+ Branch: cfgperl
+ ! lib/Math/Complex.pm pod/perldelta.pod t/lib/complex.t
+____________________________________________________________________________
+[ 5606] By: jhi on 2000/03/08 00:49:14
+ Log: s/lfs/largefiles/
+ Branch: metaconfig
+ ! U/mksample
+____________________________________________________________________________
+[ 5605] By: gsar on 2000/03/07 23:37:48
+ Log: VMS build patch (from Peter Prymmer)
+ Branch: perl
+ ! configure.com installhtml lib/lib.pm vms/descrip_mms.template
+ ! vms/subconfigure.com vms/vms.c
+____________________________________________________________________________
+[ 5604] By: gsar on 2000/03/07 23:25:46
+ Log: CopFILEGV(&PL_compiling) must be reset properly (from Doug MacEachern)
+ Branch: perl
+ ! perl.c
+____________________________________________________________________________
+[ 5603] By: gsar on 2000/03/07 23:05:16
+ Log: type mismatch
+ Branch: perl
+ ! sv.c
+____________________________________________________________________________
+[ 5602] By: gsar on 2000/03/07 22:40:55
+ Log: add note to INSTALL about C++ compilers (from M J T Guy)
+ Branch: perl
+ ! INSTALL
+____________________________________________________________________________
+[ 5601] By: gsar on 2000/03/07 22:30:35
+ Log: separate options to incpush() for adding version directories and
+ architecture directories (from Andy Dougherty)
+ Branch: perl
+ ! embed.h embed.pl perl.c proto.h t/lib/fatal.t
+____________________________________________________________________________
+[ 5600] By: gsar on 2000/03/07 20:18:54
+ Log: support :void to enable croaking only in void context (from
+ Simon Cozens <simon@othersideofthe.earth.li>)
+ Branch: perl
+ ! lib/Fatal.pm t/lib/fatal.t
+____________________________________________________________________________
+[ 5599] By: gsar on 2000/03/07 18:35:21
+ Log: Pod::Html tweak to avoid false falses
+ Branch: perl
+ ! lib/Pod/Html.pm
+____________________________________________________________________________
+[ 5598] By: gsar on 2000/03/07 18:21:58
+ Log: skip null siblings encountered by goto out of loopish block
+ (from Doug Lankshear)
+ Branch: perl
+ ! pp_ctl.c
+____________________________________________________________________________
+[ 5597] By: gsar on 2000/03/07 16:33:29
+ Log: omit XSLoader from bytecode dumps
+ Branch: perl
+ ! ext/B/B/Bytecode.pm ext/B/B/Stash.pm ext/B/B/Xref.pm
+____________________________________________________________________________
+[ 5596] By: gsar on 2000/03/07 10:58:17
+ Log: avoid coredump on C<printf "%vd">
+ Branch: perl
+ ! sv.c
+____________________________________________________________________________
+[ 5595] By: gsar on 2000/03/07 10:26:03
+ Log: add missing HTML escapes that can be displayed in xterm (from
+ Tim Jenness <timj@jach.hawaii.edu>)
+ Branch: perl
+ ! lib/Pod/Text.pm
+____________________________________________________________________________
+[ 5594] By: gsar on 2000/03/07 10:24:55
+ Log: Fatal.pm pod tweak (from Matt Sergeant <matt@sergeant.org>)
+ Branch: perl
+ ! lib/Fatal.pm
+____________________________________________________________________________
+[ 5593] By: gsar on 2000/03/07 09:57:24
+ Log: get ByteLoader working again
+ Branch: perl
+ ! bytecode.pl ext/B/B/Asmdata.pm ext/B/B/Bytecode.pm
+ ! ext/B/B/C.pm ext/ByteLoader/bytecode.h
+ ! ext/ByteLoader/byterun.c
+____________________________________________________________________________
+[ 5592] By: gsar on 2000/03/07 05:14:49
+ Log: typo in makedef.pl
+ Branch: perl
+ ! lib/File/Path.pm makedef.pl
+____________________________________________________________________________
+[ 5591] By: jhi on 2000/03/06 22:56:24
+ Log: Integrate with Sarathy.
+ Branch: cfgperl
+ !> Changes ext/File/Glob/Glob.xs lib/Pod/Html.pm
+____________________________________________________________________________
+[ 5590] By: gsar on 2000/03/06 22:32:44
+ Log: fix incorrect prototypes in File::Glob
+ Branch: perl
+ ! ext/File/Glob/Glob.xs
+____________________________________________________________________________
+[ 5589] By: gsar on 2000/03/06 22:07:38
+ Log: update Changes
+ Branch: perl
+ ! Changes
+____________________________________________________________________________
+[ 5588] By: jhi on 2000/03/06 21:46:18
+ Log: From: "Craig A. Berry" <craig.berry@metamorgs.com>
+ To: vmsperl@perl.org, perl5-porters@perl.org
+ Cc: jhi@iki.fi, Charles Bailey <BAILEY@newman.upenn.edu>, gsar@activestate.com
+ Subject: [PATCH 5.5.670] circumvent VMS fileno bug in old DEC C version
+ Date: Mon, 06 Mar 2000 15:36:13 -0600
+ Message-Id: <4.2.2.20000306153539.00ca6420@exchi01.midwest.metamorgs.com>
+ Branch: cfgperl
+ ! vms/vmsish.h
+____________________________________________________________________________
+[ 5587] By: jhi on 2000/03/06 21:23:27
+ Log: Use $^O.
+ Branch: cfgperl
+ ! installperl
+____________________________________________________________________________
+[ 5586] By: jhi on 2000/03/06 21:19:15
+ Log: Undo drift from the mainline.
+ Branch: cfgperl
+ !> (integrate 1607 files)
+____________________________________________________________________________
[ 5585] By: gsar on 2000/03/06 20:23:37
Log: change#5513 accidentally undid change#5373, put it back
Branch: perl
diff --git a/installperl b/installperl
index 656943c787..b2ddc84c24 100755
--- a/installperl
+++ b/installperl
@@ -375,7 +375,7 @@ if (! $versiononly) {
if (! $versiononly) {
safe_unlink("$installscript/pstruct$scr_ext");
- if ($^O eq 'dos' or $Is_VMS) {
+ if ($^O eq 'dos' or $Is_VMS or $^O eq 'transit') {
copy("$installscript/c2ph$scr_ext", "$installscript/pstruct$scr_ext");
} else {
link("$installscript/c2ph$scr_ext", "$installscript/pstruct$scr_ext");
diff --git a/lib/Math/Complex.pm b/lib/Math/Complex.pm
index 5b7ddb6f2c..5d33020761 100644
--- a/lib/Math/Complex.pm
+++ b/lib/Math/Complex.pm
@@ -66,9 +66,10 @@ use overload
# Package "privates"
#
-my $package = 'Math::Complex'; # Package name
-my $display = 'cartesian'; # Default display format
-my $eps = 1e-14; # Epsilon
+my $package = 'Math::Complex'; # Package name
+my %DISPLAY_FORMAT = ('style' => 'cartesian',
+ 'polar_pretty_print' => 1);
+my $eps = 1e-14; # Epsilon
#
# Object attributes (internal):
@@ -161,7 +162,7 @@ sub new { &make } # For backward compatibility only.
#
sub cplx {
my ($re, $im) = @_;
- return $package->make($re, defined $im ? $im : 0);
+ return __PACKAGE__->make($re, defined $im ? $im : 0);
}
#
@@ -172,7 +173,7 @@ sub cplx {
#
sub cplxe {
my ($rho, $theta) = @_;
- return $package->emake($rho, defined $theta ? $theta : 0);
+ return __PACKAGE__->emake($rho, defined $theta ? $theta : 0);
}
#
@@ -836,7 +837,7 @@ sub acos {
my $u = CORE::atan2(CORE::sqrt(1-$beta*$beta), $beta);
my $v = CORE::log($alpha + CORE::sqrt($alpha*$alpha-1));
$v = -$v if $y > 0 || ($y == 0 && $x < -1);
- return $package->make($u, $v);
+ return __PACKAGE__->make($u, $v);
}
#
@@ -858,7 +859,7 @@ sub asin {
my $u = CORE::atan2($beta, CORE::sqrt(1-$beta*$beta));
my $v = -CORE::log($alpha + CORE::sqrt($alpha*$alpha-1));
$v = -$v if $y > 0 || ($y == 0 && $x < -1);
- return $package->make($u, $v);
+ return __PACKAGE__->make($u, $v);
}
#
@@ -1154,34 +1155,53 @@ sub atan2 {
# display_format
# ->display_format
#
-# Set (fetch if no argument) display format for all complex numbers that
+# Set (get if no argument) the display format for all complex numbers that
# don't happen to have overridden it via ->display_format
#
-# When called as a method, this actually sets the display format for
+# When called as an object method, this actually sets the display format for
# the current object.
#
# Valid object formats are 'c' and 'p' for cartesian and polar. The first
# letter is used actually, so the type can be fully spelled out for clarity.
#
sub display_format {
- my $self = shift;
- my $format = undef;
+ my $self = shift;
+ my %display_format = %DISPLAY_FORMAT;
- if (ref $self) { # Called as a method
- $format = shift;
- } else { # Regular procedure call
- $format = $self;
- undef $self;
+ if (ref $self) { # Called as an object method
+ if (exists $self->{display_format}) {
+ my %obj = %{$self->{display_format}};
+ @display_format{keys %obj} = values %obj;
+ }
+ if (@_ == 1) {
+ $display_format{style} = shift;
+ } else {
+ my %new = @_;
+ @display_format{keys %new} = values %new;
+ }
+ } else { # Called as a class method
+ if (@_ = 1) {
+ $display_format{style} = $self;
+ } else {
+ my %new = @_;
+ @display_format{keys %new} = values %new;
+ }
+ undef $self;
}
if (defined $self) {
- return defined $self->{display} ? $self->{display} : $display
- unless defined $format;
- return $self->{display} = $format;
+ $self->{display_format} = { %display_format };
+ return
+ wantarray ?
+ %{$self->{display_format}} :
+ $self->{display_format}->{style};
}
- return $display unless defined $format;
- return $display = $format;
+ %DISPLAY_FORMAT = %display_format;
+ return
+ wantarray ?
+ %DISPLAY_FORMAT :
+ $DISPLAY_FORMAT{style};
}
#
@@ -1196,12 +1216,12 @@ sub display_format {
#
sub stringify {
my ($z) = shift;
- my $format;
- $format = $display;
- $format = $z->{display} if defined $z->{display};
+ my $style = $z->display_format;
+
+ $style = $DISPLAY_FORMAT{style} unless defined $style;
- return $z->stringify_polar if $format =~ /^p/i;
+ return $z->stringify_polar if $style =~ /^p/i;
return $z->stringify_cartesian;
}
@@ -1221,17 +1241,27 @@ sub stringify_cartesian {
if int(CORE::abs($y)) != int(CORE::abs($y) + $eps);
$re = "$x" if CORE::abs($x) >= $eps;
- if ($y == 1) { $im = 'i' }
- elsif ($y == -1) { $im = '-i' }
- elsif (CORE::abs($y) >= $eps) { $im = $y . "i" }
+
+ my %format = $z->display_format;
+ my $format = $format{format};
+
+ if ($y == 1) { $im = 'i' }
+ elsif ($y == -1) { $im = '-i' }
+ elsif (CORE::abs($y) >= $eps) {
+ $im = (defined $format ? sprintf($format, $y) : $y) . "i";
+ }
my $str = '';
- $str = $re if defined $re;
- $str .= "+$im" if defined $im;
- $str =~ s/\+-/-/;
- $str =~ s/^\+//;
- $str =~ s/([-+])1i/$1i/; # Not redundant with the above 1/-1 tests.
- $str = '0' unless $str;
+ $str = defined $format ? sprintf($format, $re) : $re
+ if defined $re;
+ if (defined $im) {
+ if ($y < 0) {
+ $str .= $im;
+ } elsif ($y > 0) {
+ $str .= "+" if defined $re;
+ $str .= $im;
+ }
+ }
return $str;
}
@@ -1278,6 +1308,8 @@ sub stringify_polar {
return '[0,0]' if $r <= $eps;
+ my %format = $z->display_format;
+
my $nt = $t / pit2;
$nt = ($nt - int($nt)) * pit2;
$nt += pit2 if $nt < 0; # Range [0, 2pi]
@@ -1300,7 +1332,7 @@ sub stringify_polar {
$nt -= pit2 if $nt > pi;
- if (CORE::abs($nt) >= deg1) {
+ if ($format{polar_pretty_print} && CORE::abs($nt) >= deg1) {
my ($n, $k, $kpi);
for ($k = 1, $kpi = pi; $k < 10; $k++, $kpi += pi) {
@@ -1329,6 +1361,12 @@ sub stringify_polar {
if ($theta !~ m(^-?\d*pi/\d+$) and
int(CORE::abs($theta)) != int(CORE::abs($theta) + $eps));
+ my $format = $format{format};
+ if (defined $format) {
+ $r = sprintf($format, $r);
+ $theta = sprintf($format, $theta);
+ }
+
return "\[$r,$theta\]";
}
@@ -1618,9 +1656,9 @@ It is possible to write:
$x = cplxe(-3, pi/4);
-but that will be silently converted into C<[3,-3pi/4]>, since the modulus
-must be non-negative (it represents the distance to the origin in the complex
-plane).
+but that will be silently converted into C<[3,-3pi/4]>, since the
+modulus must be non-negative (it represents the distance to the origin
+in the complex plane).
It is also possible to have a complex number as either argument of
either the C<make> or C<emake>: the appropriate component of
@@ -1632,13 +1670,17 @@ the argument will be used.
=head1 STRINGIFICATION
When printed, a complex number is usually shown under its cartesian
-form I<a+bi>, but there are legitimate cases where the polar format
+style I<a+bi>, but there are legitimate cases where the polar style
I<[r,t]> is more appropriate.
-By calling the routine C<Math::Complex::display_format> and supplying either
-C<"polar"> or C<"cartesian">, you override the default display format,
-which is C<"cartesian">. Not supplying any argument returns the current
-setting.
+In the polar style Math::Complex will try to recognize certain common
+numbers such as multiples or small rationals of pi (2pi, pi/2) and
+prettyprint those numbers.
+
+By calling the class method C<Math::Complex::display_format> and
+supplying either C<"polar"> or C<"cartesian"> as an argument, you
+override the default display format, which is C<"cartesian">. Not
+supplying any argument returns the current settings.
This default can be overridden on a per-number basis by calling the
C<display_format> method instead. As before, not supplying any argument
@@ -1650,14 +1692,49 @@ For instance:
use Math::Complex;
Math::Complex::display_format('polar');
- $j = ((root(1, 3))[1];
- print "j = $j\n"; # Prints "j = [1,2pi/3]
+ $j = (root(1, 3))[1];
+ print "j = $j\n"; # Prints "j = [1,2pi/3]"
$j->display_format('cartesian');
print "j = $j\n"; # Prints "j = -0.5+0.866025403784439i"
The polar format attempts to emphasize arguments like I<k*pi/n>
(where I<n> is a positive integer and I<k> an integer within [-9,+9]).
+=head2 CHANGED IN PERL 5.6
+
+The C<display_format> class method and the corresponding
+C<display_format> object method can now be called using
+a parameter hash instead of just a one parameter.
+
+The old display format style, which can have values C<"cartesian"> or
+C<"polar">, can be changed using the C<"style"> parameter. (The one
+parameter calling convention also still works.)
+
+There are two new display parameters.
+
+The first one is C<"format">, which is a sprintf()-style format
+string to be used for both parts of the complex number(s). The
+default is C<undef>, which corresponds usually (this is somewhat
+system-dependent) to C<"%.15g">. You can revert to the default by
+setting the format string to C<undef>.
+
+ # the $j from the above example
+
+ $j->display_format('format' => '%.5f');
+ print "j = $j\n"; # Prints "j = -0.50000+0.86603i"
+ $j->display_format('format' => '%.6f');
+ print "j = $j\n"; # Prints "j = -0.5+0.86603i"
+
+Notice that this affects also the return values of the
+C<display_format> methods: in list context the whole parameter hash
+will be returned, as opposed to only the style parameter value. If
+you want to know the whole truth for a complex number, you must call
+both the class method and the object method:
+
+The second new display parameter is C<"polar_pretty_print">, which can be
+set to true or false, the default being true. See above for what this
+means.
+
=head1 USAGE
Thanks to overloading, the handling of arithmetics with complex numbers
diff --git a/pod/perldelta.pod b/pod/perldelta.pod
index 052162b49e..8fc8efe2b7 100644
--- a/pod/perldelta.pod
+++ b/pod/perldelta.pod
@@ -1678,6 +1678,22 @@ and C<~> are now supported on bigints.
The accessor methods Re, Im, arg, abs, rho, and theta can now also
act as mutators (accessor $z->Re(), mutator $z->Re(3)).
+The class method C<display_format> and the corresponding object method
+C<display_format>, in addition to accepting just one argument, now can
+also accept a parameter hash. Recognized keys of a parameter hash are
+C<"style">, which corresponds to the old one parameter case, and two
+new parameters: C<"format">, which is a printf()-style format string
+(defaults usually to C<"%.15g">, you can revert to the default by
+setting the format string to C<undef>) used for both parts of a
+complex number, and C<"polar_pretty_print"> (defaults to true),
+which controls whether an attempt is made to try to recognize small
+multiples and rationals of pi (2pi, pi/2) at the argument (angle) of a
+polar complex number.
+
+The potentially disruptive change is that in list context both methods
+now I<return the parameter hash>, instead of only the value of the
+C<"style"> parameter.
+
=item Math::Trig
A little bit of radial trigonometry (cylindrical and spherical),
diff --git a/t/lib/complex.t b/t/lib/complex.t
index 6fbdf8dd67..bd30e7e44f 100755
--- a/t/lib/complex.t
+++ b/t/lib/complex.t
@@ -73,6 +73,7 @@ push(@script, <<'EOT');
my $z = cplx( 1, 1);
$z->Re(2);
$z->Im(3);
+ print "# $test Re(z) = ",$z->Re(), " Im(z) = ", $z->Im(), " z = $z\n";
print 'not ' unless Re($z) == 2 and Im($z) == 3;
EOT
push(@script, qq(print "ok $test\\n"}\n));
@@ -82,6 +83,7 @@ push(@script, <<'EOT');
{
my $z = cplx( 1, 1);
$z->abs(3 * sqrt(2));
+ print "# $test Re(z) = ",$z->Re(), " Im(z) = ", $z->Im(), " z = $z\n";
print 'not ' unless (abs($z) - 3 * sqrt(2)) < $eps and
(arg($z) - pi / 4 ) < $eps and
(Re($z) - 3 ) < $eps and
@@ -94,6 +96,7 @@ push(@script, <<'EOT');
{
my $z = cplx( 1, 1);
$z->arg(-3 / 4 * pi);
+ print "# $test Re(z) = ",$z->Re(), " Im(z) = ", $z->Im(), " z = $z\n";
print 'not ' unless (arg($z) + 3 / 4 * pi) < $eps and
(abs($z) - sqrt(2) ) < $eps and
(Re($z) + 1 ) < $eps and
@@ -120,10 +123,11 @@ push(@script, $constants);
sub test_dbz {
for my $op (@_) {
$test++;
-
push(@script, <<EOT);
-eval '$op';
-print 'not ' unless (\$@ =~ /Division by zero/);
+ eval '$op';
+ (\$bad) = (\$@ =~ /(.+)/);
+ print "# $test op = $op divbyzero? \$bad...\n";
+ print 'not ' unless (\$@ =~ /Division by zero/);
EOT
push(@script, qq(print "ok $test\\n";\n));
}
@@ -134,10 +138,11 @@ EOT
sub test_loz {
for my $op (@_) {
$test++;
-
push(@script, <<EOT);
-eval '$op';
-print 'not ' unless (\$@ =~ /Logarithm of zero/);
+ eval '$op';
+ (\$bad) = (\$@ =~ /(.+)/);
+ print "# $test op = $op logofzero? \$bad...\n";
+ print 'not ' unless (\$@ =~ /Logarithm of zero/);
EOT
push(@script, qq(print "ok $test\\n";\n));
}
@@ -178,10 +183,11 @@ test_loz(
sub test_broot {
for my $op (@_) {
$test++;
-
push(@script, <<EOT);
-eval 'root(2, $op)';
-print 'not ' unless (\$@ =~ /root must be/);
+ eval 'root(2, $op)';
+ (\$bad) = (\$@ =~ /(.+)/);
+ print "# $test op = $op badroot? \$bad...\n";
+ print 'not ' unless (\$@ =~ /root must be/);
EOT
push(@script, qq(print "ok $test\\n";\n));
}
@@ -189,6 +195,99 @@ EOT
test_broot(qw(-3 -2.1 0 0.99));
+sub test_display_format {
+ push @script, <<EOS;
+ my \$j = (root(1,3))[1];
+
+ \$j->display_format('polar');
+EOS
+
+ $test++;
+ push @script, <<EOS;
+ print "# display_format polar?\n";
+ print "not " unless \$j->display_format eq 'polar';
+ print "ok $test\n";
+EOS
+
+ $test++;
+ push @script, <<EOS;
+ print "# j = \$j\n";
+ print "not " unless "\$j" eq "[1,2pi/3]";
+ print "ok $test\n";
+
+ my %display_format;
+
+ %display_format = \$j->display_format;
+EOS
+
+ $test++;
+ push @script, <<EOS;
+ print "# display_format{style} polar?\n";
+ print "not " unless \$display_format{style} eq 'polar';
+ print "ok $test\n";
+EOS
+
+ $test++;
+ push @script, <<EOS;
+ print "# keys %display_format == 2?\n";
+ print "not " unless keys %display_format == 2;
+ print "ok $test\n";
+
+ \$j->display_format('style' => 'cartesian', 'format' => '%.5f');
+EOS
+
+ $test++;
+ push @script, <<EOS;
+ print "# j = \$j\n";
+ print "not " unless "\$j" eq "-0.50000+0.86603i";
+ print "ok $test\n";
+
+ %display_format = \$j->display_format;
+EOS
+
+ $test++;
+ push @script, <<EOS;
+ print "# display_format{format} %.5f?\n";
+ print "not " unless \$display_format{format} eq '%.5f';
+ print "ok $test\n";
+EOS
+
+ $test++;
+ push @script, <<EOS;
+ print "# keys %display_format == 3?\n";
+ print "not " unless keys %display_format == 3;
+ print "ok $test\n";
+
+ \$j->display_format('format' => undef);
+EOS
+
+ $test++;
+ push @script, <<EOS;
+ print "# j = \$j\n";
+ print "not " unless "\$j" eq "-0.5+0.866025403784439i";
+ print "ok $test\n";
+
+ \$j->display_format('style' => 'polar', 'polar_pretty_print' => 0);
+EOS
+
+ $test++;
+ push @script, <<EOS;
+ print "# j = \$j\n";
+ print "not " unless "\$j" eq "[1,2.0943951023932]";
+ print "ok $test\n";
+
+ \$j->display_format('style' => 'cartesian', 'format' => '(%.5g)');
+EOS
+ $test++;
+ push @script, <<EOS;
+ print "# j = \$j\n";
+ print "not " unless "\$j" eq "(-0.5)+(0.86603)i";
+ print "ok $test\n";
+EOS
+}
+
+test_display_format();
+
print "1..$test\n";
eval join '', @script;
die $@ if $@;
@@ -294,7 +393,7 @@ sub value {
sub check {
my ($test, $try, $got, $expected, @z) = @_;
-# print "# @_\n";
+ print "# @_\n";
if ("$got" eq "$expected"
||
diff --git a/vms/vmsish.h b/vms/vmsish.h
index 6c5c506a42..55401f7f6b 100644
--- a/vms/vmsish.h
+++ b/vms/vmsish.h
@@ -717,4 +717,9 @@ typedef char __VMS_SEPYTOTORP__;
#undef HAS_NTOHL
#endif
+/* The C RTL manual says to undef the macro for DEC C 5.2 and lower. */
+#if defined(fileno) && defined(__DECC_VER) && __DECC_VER < 50300000
+# undef fileno
+#endif
+
#endif /* __vmsish_h_included */
View Lorry Controller Status