| 1 | #ifndef NUMBER2_H |
|---|
| 2 | #define NUMBER2_H |
|---|
| 3 | |
|---|
| 4 | #include <libpolys/misc/auxiliary.h> |
|---|
| 5 | |
|---|
| 6 | #ifdef SINGULAR_4_1 |
|---|
| 7 | #include <omalloc/omalloc.h> |
|---|
| 8 | #include <coeffs/coeffs.h> |
|---|
| 9 | #include <kernel/structs.h> |
|---|
| 10 | struct snumber2; |
|---|
| 11 | typedef struct snumber2 * number2; |
|---|
| 12 | struct snumber2 |
|---|
| 13 | { coeffs cf; |
|---|
| 14 | number n; |
|---|
| 15 | }; |
|---|
| 16 | |
|---|
| 17 | static inline number2 n2Init(long i, coeffs c) |
|---|
| 18 | { number2 N=(number2)omAlloc0(sizeof(snumber2)); if (c!=NULL) { N->cf=c; N->n=n_Init(i,c);} return N;} |
|---|
| 19 | |
|---|
| 20 | char *crString(coeffs c); |
|---|
| 21 | |
|---|
| 22 | void crPrint(coeffs cf); |
|---|
| 23 | |
|---|
| 24 | BOOLEAN jjCRING_Zp(leftv res, leftv a, leftv b); |
|---|
| 25 | BOOLEAN jjCRING_Zm(leftv res, leftv a, leftv b); |
|---|
| 26 | |
|---|
| 27 | BOOLEAN jjEQUAL_CR(leftv res, leftv a, leftv b); // compare cring |
|---|
| 28 | |
|---|
| 29 | // type conversion: |
|---|
| 30 | BOOLEAN jjNUMBER2CR(leftv res, leftv a, leftv b); // <any>,cring ->number2 |
|---|
| 31 | BOOLEAN jjN2_CR(leftv res, leftv a); // number2 ->cring |
|---|
| 32 | BOOLEAN jjCM_CR(leftv res, leftv a); // cmatrix ->cring |
|---|
| 33 | BOOLEAN jjBIM2_CR(leftv res, leftv a); // bigint ->cring |
|---|
| 34 | BOOLEAN jjR2_CR(leftv res, leftv a); // ring ->cring |
|---|
| 35 | BOOLEAN jjN2_N(leftv res, leftv a); // number2 ->number |
|---|
| 36 | |
|---|
| 37 | // operations: |
|---|
| 38 | BOOLEAN jjNUMBER2_OP1(leftv res, leftv a); |
|---|
| 39 | BOOLEAN jjNUMBER2_OP2(leftv res, leftv a, leftv b); |
|---|
| 40 | |
|---|
| 41 | number2 n2Copy(const number2 d); |
|---|
| 42 | void n2Delete(number2 &d); |
|---|
| 43 | char *n2String(number2 d, BOOLEAN typed); |
|---|
| 44 | void n2Print(number2 d); |
|---|
| 45 | |
|---|
| 46 | BOOLEAN jjCMATRIX_3(leftv, leftv, leftv,leftv); |
|---|
| 47 | #endif |
|---|
| 48 | #endif |
|---|
