NAME
Math::Int64  Manipulate 64 bits integers in Perl
SYNOPSIS
use Math::Int64 qw(int64);
my $i = int64(1);
my $j = $i << 40;
my $k = int64("12345678901234567890");
print($i + $j * 1000000);
DESCRIPTION
This module adds support for 64 bit integers, signed and unsigned, to Perl.
Exportable functions
 int64()
 int64($value)

Creates a new int64 value and initializes it to
$value
, where $value can be a Perl number or a string containing a number.For instance:
$i = int64(34); $j = int64("123454321234543212345"); $k = int64(1234567698478483938988988); # wrong!!! # the unquoted number would # be converted first to a # real number causing it to # loose some precision.
Once the int64 number is created it can be manipulated as any other Perl value supporting all the standard operations (addition, negation, multiplication, postincrement, etc.).
 net_to_int64($str)

Converts an 8 bytes string containing an int64 in network order to the internal representation used by this module.
 int64_to_net($int64)

Returns an 8 bytes string with the representation of the int64 value in network order.
 native_to_int64($str)
 int64_to_native($int64)

similar to net_to_int64 and int64_to_net, but using the native CPU order.
 int64_to_number($int64)

returns the optimum representation of the int64 value using Perl internal types (IV, UV or NV). Precision may be lost.
For instance:
for my $l (10, 20, 30, 40, 50, 60) { my $i = int64(1) << $l; my $n = int64_to_number($i); print "int64:$i => perl:$n\n"; }
 string_to_int64($str, $base)

Converts the string to a int64 value. The conversion is done according to the given base, which must be a number between 2 and 36 inclusive or the special value 0.
$base
defaults to 0.The string may begin with an arbitrary amount of white space followed by a single optional
+
or
sign. If base is zero or 16, the string may then include a "0x" prefix, and the number will be read in base 16; otherwise, a zero base is taken as 10 (decimal) unless the next character is '0', in which case it is taken as 8 (octal).Underscore characters (
_
) between the digits are ignored.No overflow checks are performed by this function unless the
die_on_overflow
pragma is used (see "Die on overflow" below).See also strtoll(3).
 hex_to_int64($i64)

Shortcut for string_to_int64($str, 16)
 int64_to_string($i64, $base)

Converts the int64 value to its string representation in the given base (defaults to 10).
 int64_to_hex($i64)

Shortcut for
int64_to_string($i64, 16)
.  int64_rand

Generates a 64 bit random number using ISAAC64 algorithm.
 int64_srand($seed)
 int64_srand()

Sets the seed for the random number generator.
$seed
, if given, should be a 2KB long string.  uint64
 uint64_to_number
 net_to_uint64
 uint64_to_net
 native_to_uint64
 uint64_to_native
 string_to_uint64
 hex_to_uint64
 uint64_to_string
 uint64_to_hex

These functions are similar to their int64 counterparts, but manipulate 64 bit unsigned integers.
Die on overflow
The lexical pragma Math::Int64::die_on_overflow
configures the module to throw an error when some operation results in integer overflow.
For instance:
use Math::Int64 qw(uint64);
use Math::Int64::die_on_overflow;
my $zero = uint64(0);
say ($zero  1); # dies as 1 falls outside
# the uint64_t range
no Math::Int64::die_on_overflow; # deactivates lexical pragma
say ($zero  1); # no error is detected here!
The pragma can also be activated as follows:
use Math::Int64 ':die_on_overflow';
Once this pragma is used, several Math::Int64 operations may become slower. Deactivating the pragma will not make them fast again.
On Perl 5.8.x, as lexical pragmas support is not available, the pragma die_on_overflow
pragma is global and can not be deactivated.
Fallback to native 64bit support if available
If the lexical pragma Math::Int64::native_if_available
is used in your program and the version of perl in use has native support for 64bit intgers, the functions imported from the module that create 64bit integers (i.e. uint64
, int64
, string_to_int64
, native_to_int64
, etc.) will return regular perl scalars.
For instance:
use Math::Int64 qw(int64);
$a = int64(34); # always returns an object of the class Math::Int64
use Math::Int64::native_if_available;
$a = int64(34); # returns a regular scalar on perls compiled with
# 64bit support
This feature is not enabled by default because the semantics for perl scalars and for 64 bit integers as implemented in this module are not identical.
Perl is prone to coerze integers into floats while this module keeps then always as 64bit integers. Specifically, the division operation and overflows are the most problematic cases.
Besides that, in most situations it is safe to use the native fallback.
As happens with the die_on_overflow
pragma, on Perl 5.8.x it is global.
The pragma can also be activated as follows:
use Math::Int64 ':native_if_available';
Transparent conversion of objects to int64/uint64
When in some operation involving int64/uint64 numbers, a blessed object is passed as an operand, the module would try to coerce the object into an int64/uint64 number calling the methods as_int64
/as_uint64
respectively.
If the corresponding method is not implemented, the object will be stringified and then parsed as a base 10 number.
C API
This module provides a native C API that can be used to create and read Math::Int64 int64 and uint64 SVs from your own XS modules.
In order to use it you need to follow these steps:
Import the files
perl_math_int64.c
,perl_math_int64.h
and optionallytypemaps
from Math::Int64c_api
directory into your project directory.Include the file
perl_math_int64.h
in the C or XS source files where you want to convert 64bit integers to/from Perl SVs.Note that this header file requires the types int64_t and uint64_t to be defined beforehand.
Add the file
perl_math_int64.c
to your compilation targets (see the sample Makefile.PL below).Add a call to the macro
MATH_INT64_BOOT
to theBOOT
section of your XS file.
For instance:
 Foo64.xs 
#include "EXTERN.h"
#include "perl.h"
#include "XSUB.h"
#include "ppport.h"
/* #define MATH_INT64_NATIVE_IF_AVAILABLE */
#include "math_int64.h"
MODULE = Foo64 PACKAGE = Foo64
BOOT:
MATH_INT64_BOOT;
int64_t
some_int64()
CODE:
RETVAL = 42;
OUTPUT:
RETVAL
 Makefile.PL 
use ExtUtils::MakeMaker;
WriteMakefile( NAME => 'Foo64',
VERSION_FROM => 'lib/Foo64.pm',
OBJECT => '$(O_FILES)' );
If the macro MATH_INT64_NATIVE_IF_AVAILABLE
is defined before including perl_math_int64.h
and the perl interpreter is compiled with mative 64bit integer support, IVs will be used to represent 64bit integers instead of the object representation provided by Math::Int64.
These are the C macros available from Math::Int64 C API:
 SV *newSVi64(int64_t i64)

Returns an SV representing the given int64_t value.
 SV *newSVu64(uint64_t 64)

Returns an SV representing the given uint64_t value.
 int64_t SvI64(SV *sv)

Extracts the int64_t value from the given SV.
 uint64_t SvU64(SV *sv)

Extracts the uint64_t value from the given SV.
 int SvI64OK(SV *sv)

Returns true is the given SV contains a valid int64_t value.
 int SvU64OK(SV *sv)

Returns true is the given SV contains a valid uint64_t value.
If you require any other function available through the C API don't hesitate to ask for it!
BUGS AND SUPPORT
The die_on_overflow feature is completely experimental.
The C API feature is experimental.
The fallback to native 64bit integers feature is experimental.
This module requires int64 support from the C compiler.
For bug reports, feature requests or just help using this module, use the RT system at http://rt.cpan.org or send my and email or both!
The source code of this module is hosted at GitHub: http://github.com/salva/p5MathInt64.
SEE ALSO
The C API usage sample module Math::Int64::C_API::Sample.
Other modules that allow Perl to support larger integers or numbers are Math::BigInt, Math::BigRat and Math::Big, Math::BigInt::BitVect, Math::BigInt::Pari and Math::BigInt::GMP.
COPYRIGHT AND LICENSE
Copyright © 2007, 2009, 2011, 2012 by Salvador Fandiño (sfandino@yahoo.com)
This library is free software; you can redistribute it and/or modify it under the same terms as Perl itself, either Perl version 5.8.8 or, at your option, any later version of Perl 5 you may have available.