3 # Copyright 2001, 2002, 2003 Free Software Foundation, Inc.
5 # This file is part of the GNU MP Library.
7 # The GNU MP Library is free software; you can redistribute it and/or modify
8 # it under the terms of the GNU Lesser General Public License as published
9 # by the Free Software Foundation; either version 3 of the License, or (at
10 # your option) any later version.
12 # The GNU MP Library is distributed in the hope that it will be useful, but
13 # WITHOUT ANY WARRANTY; without even the implied warranty of MERCHANTABILITY
14 # or FITNESS FOR A PARTICULAR PURPOSE. See the GNU Lesser General Public
15 # License for more details.
17 # You should have received a copy of the GNU Lesser General Public License
18 # along with the GNU MP Library. If not, see http://www.gnu.org/licenses/.
25 @ISA = qw(GMP Exporter);
28 %EXPORT_TAGS = ('all' => [qw(
29 bin cdiv cdiv_2exp clrbit combit congruent_p
30 congruent_2exp_p divexact divisible_p
31 divisible_2exp_p even_p fac fdiv fdiv_2exp fib
32 fib2 gcd gcdext hamdist invert jacobi kronecker
33 lcm lucnum lucnum2 mod mpz mpz_export
34 mpz_import nextprime odd_p perfect_power_p
35 perfect_square_p popcount powm probab_prime_p
36 realloc remove root roote rootrem scan0 scan1
37 setbit sizeinbase sqrtrem tdiv tdiv_2exp
39 'constants' => [@EXPORT],
40 'noconstants' => [@EXPORT]);
41 Exporter::export_ok_tags('all');
44 '+' => \&overload_add, '+=' => \&overload_addeq,
45 '-' => \&overload_sub, '-=' => \&overload_subeq,
46 '*' => \&overload_mul, '*=' => \&overload_muleq,
47 '/' => \&overload_div, '/=' => \&overload_diveq,
48 '%' => \&overload_rem, '%=' => \&overload_remeq,
49 '<<' => \&overload_lshift, '<<=' => \&overload_lshifteq,
50 '>>' => \&overload_rshift, '>>=' => \&overload_rshifteq,
51 '**' => \&overload_pow, '**=' => \&overload_poweq,
52 '&' => \&overload_and, '&=' => \&overload_andeq,
53 '|' => \&overload_ior, '|=' => \&overload_ioreq,
54 '^' => \&overload_xor, '^=' => \&overload_xoreq,
56 'bool' => \&overload_bool,
57 'not' => \&overload_not,
58 '!' => \&overload_not,
59 '~' => \&overload_com,
60 '<=>' => \&overload_spaceship,
61 '++' => \&overload_inc,
62 '--' => \&overload_dec,
63 '=' => \&overload_copy,
64 'abs' => \&overload_abs,
65 'neg' => \&overload_neg,
66 'sqrt' => \&overload_sqrt,
67 '""' => \&overload_string;
71 if ($_ eq ':constants') {
72 overload::constant ('integer' => \&overload_constant,
73 'binary' => \&overload_constant,
74 'float' => \&overload_constant);
75 } elsif ($_ eq ':noconstants') {
76 overload::remove_constant ('integer' => \&overload_constant,
77 'binary' => \&overload_constant,
78 'float' => \&overload_constant);
81 goto &Exporter::import;
89 # perl-indent-level: 2