diff options
author | Siep Kroonenberg <siepo@cybercomm.nl> | 2011-02-17 12:20:49 +0000 |
---|---|---|
committer | Siep Kroonenberg <siepo@cybercomm.nl> | 2011-02-17 12:20:49 +0000 |
commit | 316ee97c621496b0fe3267f57cce81bee44ca1e6 (patch) | |
tree | cb2cab1192b4f58a7971af19b213e980bceda4b4 /Master/tlpkg/tlperl/lib/Math/BigFloat/Trace.pm | |
parent | cd0f87b5d39480d85ad9bd4ee37f520f75bed560 (diff) |
Moving old tlperl prior to committing new one
git-svn-id: svn://tug.org/texlive/trunk@21422 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Master/tlpkg/tlperl/lib/Math/BigFloat/Trace.pm')
-rwxr-xr-x | Master/tlpkg/tlperl/lib/Math/BigFloat/Trace.pm | 58 |
1 files changed, 0 insertions, 58 deletions
diff --git a/Master/tlpkg/tlperl/lib/Math/BigFloat/Trace.pm b/Master/tlpkg/tlperl/lib/Math/BigFloat/Trace.pm deleted file mode 100755 index 871b2a969e8..00000000000 --- a/Master/tlpkg/tlperl/lib/Math/BigFloat/Trace.pm +++ /dev/null @@ -1,58 +0,0 @@ -#!/usr/bin/perl -w - -package Math::BigFloat::Trace; - -require 5.005_02; -use strict; - -use Exporter; -use Math::BigFloat; -use vars qw($VERSION @ISA $PACKAGE @EXPORT_OK - $accuracy $precision $round_mode $div_scale); - -@ISA = qw(Exporter Math::BigFloat); - -$VERSION = 0.01; - -use overload; # inherit overload from BigFloat - -# Globals -$accuracy = $precision = undef; -$round_mode = 'even'; -$div_scale = 40; - -sub new -{ - my $proto = shift; - my $class = ref($proto) || $proto; - - my $value = shift; - my $a = $accuracy; $a = $_[0] if defined $_[0]; - my $p = $precision; $p = $_[1] if defined $_[1]; - my $self = Math::BigFloat->new($value,$a,$p,$round_mode); - -# remember, downgrading may return a BigInt, so don't meddle with class -# bless $self,$class; - - print "MBF new '$value' => '$self' (",ref($self),")"; - return $self; -} - -sub import - { - print "MBF import ",join(' ',@_); - my $self = shift; - - # we catch the constants, the rest goes go BigFloat - my @a = (); - foreach (@_) - { - push @a, $_ if $_ ne ':constant'; - } - overload::constant float => sub { $self->new(shift); }; - - Math::BigFloat->import(@a); # need it for subclasses -# $self->export_to_level(1,$self,@_); # need this ? - } - -1; |