Mpf.pm
上传用户:qaz666999
上传日期:2022-08-06
资源大小:2570k
文件大小:3k
源码类别:

数学计算

开发平台:

Unix_Linux

  1. # GMP mpf module.
  2. # Copyright 2001, 2003 Free Software Foundation, Inc.
  3. #
  4. # This file is part of the GNU MP Library.
  5. #
  6. # The GNU MP Library is free software; you can redistribute it and/or modify
  7. # it under the terms of the GNU Lesser General Public License as published
  8. # by the Free Software Foundation; either version 3 of the License, or (at
  9. # your option) any later version.
  10. #
  11. # The GNU MP Library is distributed in the hope that it will be useful, but
  12. # WITHOUT ANY WARRANTY; without even the implied warranty of MERCHANTABILITY
  13. # or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU Lesser General Public
  14. # License for more details.
  15. #
  16. # You should have received a copy of the GNU Lesser General Public License
  17. # along with the GNU MP Library.  If not, see http://www.gnu.org/licenses/.
  18. package GMP::Mpf;
  19. require GMP;
  20. require Exporter;
  21. @ISA = qw(GMP Exporter);
  22. @EXPORT = qw();
  23. @EXPORT_OK = qw();
  24. %EXPORT_TAGS = ('all' => [qw(
  25.      ceil floor get_default_prec get_prec mpf mpf_eq
  26.      reldiff set_default_prec set_prec trunc)],
  27. 'constants'   => [@EXPORT],
  28. 'noconstants' => [@EXPORT]);
  29. Exporter::export_ok_tags('all');
  30. use overload
  31.     '+'   => &overload_add,     '+='  => &overload_addeq,
  32.     '-'   => &overload_sub,     '-='  => &overload_subeq,
  33.     '*'   => &overload_mul,     '*='  => &overload_muleq,
  34.     '/'   => &overload_div,     '/='  => &overload_diveq,
  35.     '**'  => &overload_pow,     '**=' => &overload_poweq,
  36.     '<<'  => &overload_lshift,  '<<=' => &overload_lshifteq,
  37.     '>>'  => &overload_rshift,  '>>=' => &overload_rshifteq,
  38.     'bool' => &overload_bool,
  39.     'not'  => &overload_not,
  40.     '!'    => &overload_not,
  41.     '<=>'  => &overload_spaceship,
  42.     '++'   => &overload_inc,
  43.     '--'   => &overload_dec,
  44.     'abs'  => &overload_abs,
  45.     'neg'  => &overload_neg,
  46.     'sqrt' => &overload_sqrt,
  47.     '='    => &overload_copy,
  48.     '""'   => &overload_string;
  49. sub import {
  50.   foreach (@_) {
  51.     if ($_ eq ':constants') {
  52.       overload::constant ('integer' => &overload_constant,
  53.   'binary'  => &overload_constant,
  54.   'float'   => &overload_constant);
  55.     } elsif ($_ eq ':noconstants') {
  56.       overload::remove_constant ('integer' => &overload_constant,
  57.  'binary'  => &overload_constant,
  58.  'float'   => &overload_constant);
  59.     }
  60.   }
  61.   goto &Exporter::import;
  62. }
  63. sub overload_string {
  64.   my $fmt;
  65.   BEGIN { $^W = 0; }
  66.   if (defined ($#)) {
  67.     $fmt = $#;
  68.     BEGIN { $^W = 1; }
  69.     # protect against calling sprintf_internal with a bad format
  70.     if ($fmt !~ /^((%%|[^%])*%[-+ .d]*)([eEfgG](%%|[^%])*)$/) {
  71.       die "GMP::Mpf: invalid $# format: $#n";
  72.     }
  73.     $fmt = $1 . 'F' . $3;
  74.   } else {
  75.     $fmt = '%.Fg';
  76.   }
  77.   GMP::sprintf_internal ($fmt, $_[0]);
  78. }
  79. 1;
  80. __END__
  81. # Local variables:
  82. # perl-indent-level: 2
  83. # End: