-
Notifications
You must be signed in to change notification settings - Fork 16
/
Copy pathbig_drv.h
137 lines (133 loc) · 7.61 KB
/
big_drv.h
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
/********************************************************************/
/* */
/* big_drv.h Driver functions for the bigInteger type. */
/* Copyright (C) 1989 - 2014 Thomas Mertes */
/* */
/* This file is part of the Seed7 Runtime Library. */
/* */
/* The Seed7 Runtime Library is free software; you can */
/* redistribute it and/or modify it under the terms of the GNU */
/* Lesser General Public License as published by the Free Software */
/* Foundation; either version 2.1 of the License, or (at your */
/* option) any later version. */
/* */
/* The Seed7 Runtime Library is distributed in the hope that it */
/* will be useful, but WITHOUT ANY WARRANTY; without even the */
/* implied warranty of MERCHANTABILITY or FITNESS FOR A PARTICULAR */
/* PURPOSE. See the GNU Lesser General Public License for more */
/* details. */
/* */
/* You should have received a copy of the GNU Lesser General */
/* Public License along with this program; if not, write to the */
/* Free Software Foundation, Inc., 51 Franklin Street, */
/* Fifth Floor, Boston, MA 02110-1301, USA. */
/* */
/* Module: Seed7 Runtime Library */
/* File: seed7/src/big_drv.h */
/* Changes: 2005, 2006, 2008 - 2010, 2013, 2014 Thomas Mertes */
/* Content: Driver functions for the bigInteger type. */
/* */
/********************************************************************/
#ifndef INT64TYPE
#define bigFromUInt64(x) 0
#define bigToInt64(x,e) 0
#endif
#if INTTYPE_SIZE == 64
#define bigIConv bigFromInt64
#define bigOrd(x) bigToInt64(x, NULL)
#elif INTTYPE_SIZE == 32
#define bigIConv bigFromInt32
#define bigOrd(x) bigToInt32(x, NULL)
#endif
void setupBig (void);
void closeBig (void);
#if (DO_HEAPSIZE_COMPUTATION || DO_HEAP_STATISTIC) && WITH_BIGINT_FREELIST
unsigned long bigFListCount (memSizeType *bigDigitCountAddr);
#else
#define bigFListCount(bigDigitCountAddr) (*(bigDigitCountAddr) = 0, 0)
#endif
cstriType bigHexCStri (const const_bigIntType big1);
bigIntType bigAbs (const const_bigIntType big1);
bigIntType bigAbsTemp (bigIntType big1);
bigIntType bigAdd (const_bigIntType summand1, const_bigIntType summand2);
void bigAddAssign (bigIntType *const big_variable, const const_bigIntType delta);
void bigAddAssignSignedDigit (bigIntType *const big_variable, const intType delta);
bigIntType bigAddTemp (bigIntType summand1, const const_bigIntType summand2);
bigIntType bigAnd (const_bigIntType big1, const_bigIntType big2);
intType bigBitLength (const const_bigIntType big1);
intType bigCmp (const const_bigIntType big1, const const_bigIntType big2);
intType bigCmpSignedDigit (const const_bigIntType big1, intType number);
void bigCpy (bigIntType *const dest, const const_bigIntType source);
bigIntType bigCreate (const const_bigIntType source);
void bigDecr (bigIntType *const big_variable);
void bigDestr (const const_bigIntType old_bigint);
bigIntType bigDiv (const const_bigIntType dividend, const const_bigIntType divisor);
bigIntType bigDivRem (const const_bigIntType dividend, const const_bigIntType divisor,
bigIntType *remainderAddr);
boolType bigEq (const const_bigIntType big1, const const_bigIntType big2);
boolType bigEqSignedDigit (const const_bigIntType big1, intType number);
bigIntType bigFromByteBufferBe (const memSizeType size,
const const_ustriType buffer, const boolType isSigned);
bigIntType bigFromByteBufferLe (const memSizeType size,
const const_ustriType buffer, const boolType isSigned);
bigIntType bigFromBStriBe (const const_bstriType bstri, const boolType isSigned);
bigIntType bigFromBStriLe (const const_bstriType bstri, const boolType isSigned);
bigIntType bigFromInt32 (int32Type number);
#ifdef INT64TYPE
bigIntType bigFromInt64 (int64Type number);
#endif
bigIntType bigFromUInt32 (uint32Type number);
#ifdef INT64TYPE
bigIntType bigFromUInt64 (uint64Type number);
#endif
bigIntType bigGcd (const const_bigIntType big1, const const_bigIntType big2);
intType bigHashCode (const const_bigIntType big1);
void bigIncr (bigIntType *const big_variable);
bigIntType bigIPow (const const_bigIntType base, intType exponent);
bigIntType bigIPowSignedDigit (intType base, intType exponent);
bigIntType bigLog10 (const const_bigIntType big1);
bigIntType bigLog2 (const const_bigIntType big1);
bigIntType bigLowerBits (const const_bigIntType big1, const intType bits);
bigIntType bigLowerBitsTemp (const bigIntType big1, const intType bits);
uint64Type bigLowerBits64 (const const_bigIntType big1);
intType bigLowestSetBit (const const_bigIntType big1);
bigIntType bigLShift (const const_bigIntType big1, const intType lshift);
void bigLShiftAssign (bigIntType *const big_variable, intType lshift);
bigIntType bigLShiftOne (const intType lshift);
bigIntType bigLog2BaseIPow (const intType log2base, const intType exponent);
bigIntType bigMDiv (const const_bigIntType dividend, const const_bigIntType divisor);
bigIntType bigMod (const const_bigIntType dividend, const const_bigIntType divisor);
bigIntType bigMult (const_bigIntType factor1, const_bigIntType factor2);
void bigMultAssign (bigIntType *const big_variable, const_bigIntType factor);
bigIntType bigMultSignedDigit (const_bigIntType factor1, intType factor2);
bigIntType bigNegate (const const_bigIntType big1);
bigIntType bigNegateTemp (bigIntType big1);
boolType bigOdd (const const_bigIntType big1);
bigIntType bigOr (const_bigIntType big1, const_bigIntType big2);
bigIntType bigParse (const const_striType stri);
bigIntType bigParseBased (const const_striType stri, intType base);
bigIntType bigPred (const const_bigIntType big1);
bigIntType bigPredTemp (bigIntType big1);
striType bigRadix (const const_bigIntType big1, intType base, boolType upperCase);
bigIntType bigRand (const const_bigIntType low, const const_bigIntType high);
bigIntType bigRem (const const_bigIntType dividend, const const_bigIntType divisor);
bigIntType bigRShift (const const_bigIntType big1, const intType rshift);
void bigRShiftAssign (bigIntType *const big_variable, intType rshift);
bigIntType bigSbtr (const const_bigIntType minuend, const const_bigIntType subtrahend);
void bigSbtrAssign (bigIntType *const big_variable, const const_bigIntType delta);
bigIntType bigSbtrTemp (bigIntType minuend, const_bigIntType subtrahend);
bigIntType bigSquare (const_bigIntType big1);
striType bigStrDecimal (const const_bigIntType big1);
striType bigStr (const const_bigIntType big1);
bigIntType bigSucc (const const_bigIntType big1);
bigIntType bigSuccTemp (bigIntType big1);
bstriType bigToBStriBe (const const_bigIntType big1, const boolType isSigned);
bstriType bigToBStriLe (const const_bigIntType big1, const boolType isSigned);
int16Type bigToInt16 (const const_bigIntType big1, errInfoType *err_info);
int32Type bigToInt32 (const const_bigIntType big1, errInfoType *err_info);
#ifdef INT64TYPE
int64Type bigToInt64 (const const_bigIntType big1, errInfoType *err_info);
uint64Type bigToUInt64 (const const_bigIntType big1);
#endif
bigIntType bigXor (const_bigIntType big1, const_bigIntType big2);
bigIntType bigZero (void);