mirror of
https://github.com/Ed94/Odin.git
synced 2026-06-13 01:21:38 -07:00
Jeroen van Rijn
156 lines
3.3 KiB
Odin
156 lines
3.3 KiB
Odin
package big
|
|
|
|
/*
|
|
Copyright 2021 Jeroen van Rijn <nom@duclavier.com>.
|
|
Made available under Odin's BSD-2 license.
|
|
|
|
An arbitrary precision mathematics implementation in Odin.
|
|
For the theoretical underpinnings, see Knuth's The Art of Computer Programming, Volume 2, section 4.3.
|
|
The code started out as an idiomatic source port of libTomMath, which is in the public domain, with thanks.
|
|
|
|
This file collects public procs into proc maps, as well as any of their aliases.
|
|
/*
|
|
|
|
*/
|
|
=== === === === === === === === === === === === === === === === === === === === === === === ===
|
|
Basic arithmetic.
|
|
See `basic.odin`.
|
|
=== === === === === === === === === === === === === === === === === === === === === === === ===
|
|
*/
|
|
|
|
/*
|
|
err = add(dest, a, b);
|
|
*/
|
|
add :: proc {
|
|
/*
|
|
int_add :: proc(dest, a, b: ^Int) -> (err: Error)
|
|
*/
|
|
int_add,
|
|
/*
|
|
int_add_digit :: proc(dest, a: ^Int, digit: DIGIT) -> (err: Error)
|
|
*/
|
|
int_add_digit,
|
|
};
|
|
|
|
/*
|
|
err = sub(dest, a, b);
|
|
*/
|
|
sub :: proc {
|
|
/*
|
|
int_sub :: proc(dest, a, b: ^Int) -> (err: Error)
|
|
*/
|
|
int_sub,
|
|
/*
|
|
int_sub_digit :: proc(dest, a: ^Int, digit: DIGIT) -> (err: Error)
|
|
*/
|
|
int_sub_digit,
|
|
};
|
|
|
|
/*
|
|
=== === === === === === === === === === === === === === === === === === === === === === === ===
|
|
Comparisons.
|
|
See `compare.odin`.
|
|
=== === === === === === === === === === === === === === === === === === === === === === === ===
|
|
*/
|
|
|
|
is_initialized :: proc {
|
|
/*
|
|
int_is_initialized :: proc(a: ^Int) -> bool
|
|
*/
|
|
int_is_initialized,
|
|
};
|
|
|
|
is_zero :: proc {
|
|
/*
|
|
int_is_zero :: proc(a: ^Int) -> bool
|
|
*/
|
|
int_is_zero,
|
|
};
|
|
|
|
is_positive :: proc {
|
|
/*
|
|
int_is_positive :: proc(a: ^Int) -> bool
|
|
*/
|
|
int_is_positive,
|
|
};
|
|
is_pos :: is_positive;
|
|
|
|
is_negative :: proc {
|
|
/*
|
|
int_is_negative :: proc(a: ^Int) -> bool
|
|
*/
|
|
int_is_negative,
|
|
};
|
|
is_neg :: is_negative;
|
|
|
|
is_even :: proc {
|
|
/*
|
|
int_is_even :: proc(a: ^Int) -> bool
|
|
*/
|
|
int_is_even,
|
|
};
|
|
|
|
is_odd :: proc {
|
|
/*
|
|
int_is_odd :: proc(a: ^Int) -> bool
|
|
*/
|
|
int_is_odd,
|
|
};
|
|
|
|
is_power_of_two :: proc {
|
|
/*
|
|
platform_int_is_power_of_two :: proc(a: int) -> bool
|
|
*/
|
|
platform_int_is_power_of_two,
|
|
/*
|
|
int_is_power_of_two :: proc(a: ^Int) -> (res: bool)
|
|
*/
|
|
int_is_power_of_two,
|
|
};
|
|
|
|
compare :: proc {
|
|
/*
|
|
Compare two `Int`s, signed.
|
|
|
|
int_compare :: proc(a, b: ^Int) -> Comparison_Flag
|
|
*/
|
|
int_compare,
|
|
/*
|
|
Compare an `Int` to an unsigned number upto the size of the backing type.
|
|
|
|
int_compare_digit :: proc(a: ^Int, u: DIGIT) -> Comparison_Flag
|
|
*/
|
|
int_compare_digit,
|
|
};
|
|
cmp :: compare;
|
|
|
|
compare_magnitude :: proc {
|
|
/*
|
|
Compare the magnitude of two `Int`s, unsigned.
|
|
*/
|
|
int_compare_magnitude,
|
|
};
|
|
cmp_mag :: compare_magnitude;
|
|
|
|
/*
|
|
=== === === === === === === === === === === === === === === === === === === === === === === ===
|
|
Initialization and other helpers.
|
|
See `helpers.odin`.
|
|
=== === === === === === === === === === === === === === === === === === === === === === === ===
|
|
*/
|
|
|
|
destroy :: proc {
|
|
/*
|
|
Deallocates the backing memory of an `Int` and resets it.
|
|
|
|
int_destroy :: proc(a: ^Int, allocator_zeroes := false, allocator := context.allocator)
|
|
*/
|
|
int_destroy,
|
|
};
|
|
|
|
init :: proc{
|
|
int_init_sized,
|
|
int_init_from_integer,
|
|
int_init_copy,
|
|
};
|