Searched refs:bone (Results 1 - 6 of 6) sorted by relevance

/osnet-11/usr/src/cmd/perl/5.8.4/distrib/t/lib/Math/BigInt/
H A DSubclass.pm63 *bone = \&Math::BigInt::bone;
/osnet-11/usr/src/cmd/perl/5.8.4/distrib/lib/Math/BigInt/t/
H A Dreq_mbf1.t3 # check that simple requiring BigFloat and then bone() works
34 require Math::BigFloat; my $x = Math::BigFloat->bone(); ok ($x,1);
H A Dmbimbf.inc679 # test whether bone/bzero take additional A & P, or reset it etc
684 $x = $c->new(2)->bone(); ok_undef ($x->{_a}); ok_undef ($x->{_p});
699 $x = $c->new(2,1)->bone(); ok ($x->{_a},1); ok_undef ($x->{_p});
700 $x = $c->new(2,undef,1)->bone(); ok_undef ($x->{_a}); ok ($x->{_p},1);
702 $x = $c->new(2); $x->bone('+',2,undef); ok ($x->{_a},2); ok_undef ($x->{_p});
703 $x = $c->new(2); $x->bone('+',undef,2); ok_undef ($x->{_a}); ok ($x->{_p},2);
704 $x = $c->new(2); $x->bone('-',2,undef); ok ($x->{_a},2); ok_undef ($x->{_p});
705 $x = $c->new(2); $x->bone('-',undef,2); ok_undef ($x->{_a}); ok ($x->{_p},2);
712 # test whether bone/bzero honour globals
717 $x = $c->bone(); o
[all...]
/osnet-11/usr/src/cmd/perl/5.8.4/distrib/lib/Math/
H A DBigRat.pm77 $self->{_d} = $MBI->bone();
116 $self->{_d} = $MBI->bone();
124 $self->{_d} = $MBI->bone();
133 $self->{_d} = $MBI->bone();
225 $self->{_d} = $MBI->bone();
336 $x->{_d} = $MBI->bone() unless $x->{_d}->is_one();
377 # used by parent class bone() to initialize number to +inf/-inf
392 # used by parent class bone() to initialize number to +1/-1
394 $self->{_n} = $MBI->bone();
395 $self->{_d} = $MBI->bone();
[all...]
H A DBigFloat.pm100 bone binf bnan bzero
240 # used by parent class bone() to initialize number to NaN
258 # used by parent class bone() to initialize number to +-inf
276 # used by parent class bone() to initialize number to 1
286 # used by parent class bone() to initialize number to 0
661 return $x->badd($self->bone(),@r); # digits after dot
686 $x->badd($self->bone(),@r); # badd() does round
696 return $x->badd($self->bone('-'),@r); # digits after dot
722 $x->badd($self->bone('-'),@r); # does round
771 return $x->bone('
[all...]
H A DBigInt.pm115 # use $_[0]->bone(), it would modify $_[0] to be 1!
708 sub bone subroutine
721 return if $self->modify('bone');
738 # call like: $x->bone($sign,$a,$p,$r,$y);
743 # call like: $x->bone($sign,$a,$p,$r);
1169 $x->badd($self->bone(),$a,$p,$r); # badd does round
1185 return $x->badd($self->bone('-'),@r) unless $x->{sign} eq '+'; # inf/NaN
1977 return $self->bone() if $x->is_zero();
2584 $one = Math::BigInt->bone(); # create a +1
2585 $one = Math::BigInt->bone('
[all...]

Completed in 32 milliseconds