1 #include <Object/BigInt.oh>
2 #include <CharClass.oh>
3 #include <Strings.oh>
4 typedef OOC_INT32 Object_BigInt__TwoDigits;
5 #define Object_BigInt__shift 15
6 #define Object_BigInt__base 32768
7 #define Object_BigInt__mask 32767
8 Object_BigInt__BigInt Object_BigInt__zero;
9 Object_BigInt__BigInt Object_BigInt__one;
10 static OOC_INT8 Object_BigInt__powerOf2[37];
11 static Object_BigInt__BigInt Object_BigInt__NewInstance(OOC_INT32 size);
12 static void Object_BigInt__Normalize(Object_BigInt__BigInt big);
13 static Object_BigInt__BigInt Object_BigInt__AddAbs(Object_BigInt__BigInt a, Object_BigInt__BigInt b);
14 static Object_BigInt__BigInt Object_BigInt__SubAbs(Object_BigInt__BigInt a, Object_BigInt__BigInt b);
15 static Object_BigInt__BigInt Object_BigInt__MulAbs(Object_BigInt__BigInt a, Object_BigInt__BigInt b);
16 static OOC_INT16 Object_BigInt__InplaceDivRem1(OOC_INT16 pout[], OOC_LEN pout_0d, OOC_INT16 pin[], OOC_LEN pin_0d, OOC_INT32 size, OOC_INT16 n);
17 static Object_BigInt__BigInt Object_BigInt__DivRem1(Object_BigInt__BigInt a, OOC_INT16 n, OOC_INT16 *rem);
18 static Object_BigInt__BigInt Object_BigInt__MulAdd1(Object_BigInt__BigInt a, OOC_INT16 n, OOC_INT16 add);
19 static Object_BigInt__BigInt Object_BigInt__DivRemAbs(Object_BigInt__BigInt v1, Object_BigInt__BigInt _w1, Object_BigInt__BigInt *rem);
20 static void Object_BigInt__DivRem(Object_BigInt__BigInt a, Object_BigInt__BigInt b, Object_BigInt__BigInt *div, Object_BigInt__BigInt *rem);
21 static void Object_BigInt__Init(void);
22
23 /* run-time meta data */
24 static RT0__ModuleDesc _mid;
25 RT0__StructDesc _td_Object_BigInt__BigInt = { (RT0__Struct[]){&_td_Object_BigInt__BigIntDesc}, NULL, NULL, &_mid, (OOC_CHAR8*)"BigInt", 8, -1, 0, RT0__strPointer };
26 RT0__StructDesc _td_Object_BigInt__1485 = { (RT0__Struct[]){&RT0__integer}, NULL, NULL, &_mid, NULL, 2, 1, (1<<RT0__flagAtomic), RT0__strOpenArray };
27 RT0__StructDesc _td_Object_BigInt__DigitArray = { (RT0__Struct[]){&_td_Object_BigInt__1485}, NULL, NULL, &_mid, (OOC_CHAR8*)"DigitArray", 8, -1, 0, RT0__strPointer };
28 RT0__StructDesc _td_Object_BigInt__BigIntDesc = { (RT0__Struct[]){&_td_RT0__ObjectDesc,&_td_Object__ObjectDesc,&_td_ADT_Storable__ObjectDesc,&_td_Object_Boxed__ObjectDesc,&_td_Object_BigInt__BigIntDesc}, (void*[]){(void*)RT0__ObjectDesc_Finalize,(void*)Object_BigInt__BigIntDesc_ToString,(void*)Object_BigInt__BigIntDesc_Equals,(void*)Object_BigInt__BigIntDesc_HashCode,(void*)Object_BigInt__BigIntDesc_Store,(void*)Object_BigInt__BigIntDesc_Load,(void*)Object_BigInt__BigIntDesc_Cmp,(void*)Object_BigInt__BigIntDesc_Copy,(void*)Object_BigInt__BigIntDesc_IsZero,(void*)Object_BigInt__BigIntDesc_NonZero,(void*)Object_BigInt__BigIntDesc_ToLongInt,(void*)Object_BigInt__BigIntDesc_Sign,(void*)Object_BigInt__BigIntDesc_Abs,(void*)Object_BigInt__BigIntDesc_Neg,(void*)Object_BigInt__BigIntDesc_Add,(void*)Object_BigInt__BigIntDesc_Sub,(void*)Object_BigInt__BigIntDesc_Mul,(void*)Object_BigInt__BigIntDesc_DivMod,(void*)Object_BigInt__BigIntDesc_Div,(void*)Object_BigInt__BigIntDesc_Mod,(void*)Object_BigInt__BigIntDesc_Format,(void*)Object_BigInt__BigIntDesc_Invert,(void*)Object_BigInt__BigIntDesc_LShift,(void*)Object_BigInt__BigIntDesc_RShift}, NULL, &_mid, (OOC_CHAR8*)"BigIntDesc", 16, 4, 0, RT0__strRecord };
29 RT0__StructDesc _td_Object_BigInt__2156 = { (RT0__Struct[]){&RT0__shortint}, NULL, NULL, &_mid, NULL, 37, 37, (1<<RT0__flagAtomic), RT0__strArray };
30 RT0__StructDesc _td_Object_BigInt__11375 = { (RT0__Struct[]){&RT0__integer}, NULL, NULL, &_mid, NULL, 2, 1, (1<<RT0__flagAtomic), RT0__strOpenArray };
31 RT0__StructDesc _td_Object_BigInt__11426 = { (RT0__Struct[]){&RT0__integer}, NULL, NULL, &_mid, NULL, 2, 1, (1<<RT0__flagAtomic), RT0__strOpenArray };
32 RT0__StructDesc _td_Object_BigInt__16944 = { (RT0__Struct[]){&RT0__char}, NULL, NULL, &_mid, NULL, 1, 1, (1<<RT0__flagAtomic), RT0__strOpenArray };
33 RT0__StructDesc _td_Object_BigInt__16933 = { (RT0__Struct[]){&_td_Object_BigInt__16944}, NULL, NULL, &_mid, NULL, 8, -1, 0, RT0__strPointer };
34 RT0__StructDesc _td_Object_BigInt__19821 = { (RT0__Struct[]){&RT0__char}, NULL, NULL, &_mid, NULL, 1, 1, (1<<RT0__flagAtomic), RT0__strOpenArray };
35 RT0__StructDesc _td_Object_BigInt__21284 = { (RT0__Struct[]){&RT0__char}, NULL, NULL, &_mid, NULL, 1, 1, (1<<RT0__flagAtomic), RT0__strOpenArray };
36 static RT0__ModuleDesc _mid = { (OOC_CHAR8*)"Object:BigInt", (RT0__Struct[]) { &_td_Object_BigInt__BigInt, &_td_Object_BigInt__DigitArray, &_td_Object_BigInt__BigIntDesc, NULL }, 0 };
37
OOC_Object_BigInt_open(RT0__Module client)38 extern void OOC_Object_BigInt_open(RT0__Module client) {
39 if (_mid.openCount == 0) {
40 OOC_CharClass_open(&_mid);
41 OOC_Strings_open(&_mid);
42 OOC_Object_open(&_mid);
43 OOC_Object_Boxed_open(&_mid);
44 OOC_IO_open(&_mid);
45 OOC_ADT_Storable_open(&_mid);
46 OOC_RT0_open(&_mid);
47 OOC_Object_open(&_mid);
48 OOC_Exception_open(&_mid);
49
50 RT0__RegisterModule(&_mid);
51 OOC_Object_BigInt_init();
52 }
53 _mid.openCount++;
54 }
OOC_Object_BigInt_close(RT0__Module client)55 extern void OOC_Object_BigInt_close(RT0__Module client) {
56 _mid.openCount--;
57 if (_mid.openCount == 0) {
58 OOC_Object_BigInt_destroy();
59 RT0__UnregisterModule(&_mid);
60
61 OOC_CharClass_close(&_mid);
62 OOC_Strings_close(&_mid);
63 OOC_Object_close(&_mid);
64 OOC_Object_Boxed_close(&_mid);
65 OOC_IO_close(&_mid);
66 OOC_ADT_Storable_close(&_mid);
67 OOC_RT0_close(&_mid);
68 OOC_Object_close(&_mid);
69 OOC_Exception_close(&_mid);
70 }
71 }
72
73 /* --- */
74