source: git/kernel/numbers.h @ 07625cb

spielwiese
Last change on this file since 07625cb was 6f8225, checked in by Hans Schönemann <hannes@…>, 17 years ago
*hannes: Conway tables git-svn-id: file:///usr/local/Singular/svn/trunk@10279 2c84dea3-7e68-4137-9b89-c4e89433aadc
  • Property mode set to 100644
File size: 3.6 KB
Line 
1#ifndef NUMBERS_H
2#define NUMBERS_H
3/****************************************
4*  Computer Algebra System SINGULAR     *
5****************************************/
6/* $Id: numbers.h,v 1.11 2007-07-31 15:25:48 Singular Exp $ */
7/*
8* ABSTRACT: interface to coefficient aritmetics
9*/
10#include "structs.h"
11
12#define n_Copy(n, r)          (r)->cf->cfCopy(n,r)
13#define n_Delete(n, r)        (r)->cf->cfDelete(n,r)
14#define n_Mult(n1, n2, r)     (r)->cf->nMult(n1, n2)
15#define n_Add(n1, n2, r)      (r)->cf->nAdd(n1, n2)
16#define n_IsZero(n, r)        (r)->cf->nIsZero(n)
17#define n_Equal(n1, n2, r)    (r)->cf->nEqual(n1, n2)
18#define n_Neg(n, r)           (r)->cf->nNeg(n)
19#define n_Sub(n1, n2, r)      (r)->cf->nSub(n1, n2)
20//#define n_GetChar(r)          ((r)->cf->nChar)
21#define n_GetChar(r)          ((r)->ch)
22#define n_Init(i, r)          (r)->cf->nInit(i)
23#define n_IsOne(n, r)         (r)->cf->nIsOne(n)
24#define n_IsMOne(n, r)        (r)->cf->nIsMOne(n)
25#define n_GreaterZero(n, r)   (r)->cf->nGreaterZero(n)
26#define n_Write(n, r)         (r)->cf->nWrite(n)
27#define n_Normalize(n, r)     (r)->cf->nNormalize(n)
28#define n_Gcd(a, b, r)        (r)->cf->nGcd(a,b,r)
29#define n_IntDiv(a, b, r)     (r)->cf->nIntDiv(a,b)
30#define n_Div(a, b, r)        (r)->cf->nDiv(a,b)
31#define n_ExactDiv(a, b, r)   (r)->cf->nExactDiv(a,b)
32#define n_Test(a,r)           (r)->cf->nDBTest(a,__FILE__,__LINE__)
33
34#define n_InpMult(a, b, r)    (r)->cf->nInpMult(a,b,r)
35#define n_Power(a, b, res, r) (r)->cf->nPower(a,b,res)
36#define n_Size(n,r)           (r)->cf->nSize(n)
37
38/* variables */
39extern unsigned short fftable[];
40
41/* prototypes */
42extern numberfunc nMult, nSub ,nAdd ,nDiv, nIntDiv, nIntMod, nExactDiv;
43extern void    (*nNew)(number * a);
44extern number  (*nInit)(int i);
45extern number  (*nPar)(int i);
46extern int     (*nParDeg)(number n);
47extern int     (*nSize)(number n);
48extern int     (*nInt)(number &n);
49#ifdef HAVE_RINGS
50extern int     (*nComp)(number a,number b);
51extern BOOLEAN (*nIsUnit)(number a);
52extern number  (*nGetUnit)(number a);
53extern number  (*nExtGcd)(number a, number b, number *s, number *t);
54#endif
55// always use in the form    n=nNeg(n) !
56extern number  (*nNeg)(number a);
57extern number  (*nInvers)(number a);
58extern number  (*nCopy)(number a);
59extern number  (*nRePart)(number a);
60extern number  (*nImPart)(number a);
61extern void    (*nWrite)(number &a);
62extern char *  (*nRead)(char * s, number * a);
63extern void    (*nNormalize)(number &a);
64extern BOOLEAN (*nGreater)(number a,number b),
65#ifdef HAVE_RINGS
66               (*nDivBy)(number a,number b),
67#endif
68               (*nEqual)(number a,number b),
69               (*nIsZero)(number a),
70               (*nIsOne)(number a),
71               (*nIsMOne)(number a),
72               (*nGreaterZero)(number a);
73extern void    (*nPower)(number a, int i, number * result);
74extern number (*nGcd)(number a, number b, const ring r);
75extern number (*nLcm)(number a, number b, const ring r);
76
77extern number nNULL; /* the 0 as constant */
78
79extern void    (*n__Delete)(number * a, const ring r);
80#define nTest(a) (1)
81#define nDelete(A) (currRing)->cf->cfDelete(A,currRing)
82#define nGetDenom(N) (currRing->cf->n_GetDenom((N),currRing))
83
84#define nSetMap(R) (currRing->cf->cfSetMap(R,currRing))
85extern char *  (*nName)(number n);
86
87void nDummy1(number* d);
88void ndDelete(number* d, const ring r);
89void nDummy2(number &d);
90number ndGcd(number a, number b, const ring);
91number ndCopy(number a);
92void   ndInpMult(number &a, number b, const ring r);
93
94#ifdef LDEBUG
95void nDBDummy1(number* d,char *f, int l);
96#endif
97#define nGetChar() n_GetChar(currRing)
98
99void nInitChar(ring r);
100void nKillChar(ring r);
101void nSetChar(ring r);
102
103#define nDivBy0 "div by 0"
104#endif
Note: See TracBrowser for help on using the repository browser.