Changeset 8a150b in git for Singular/numbers.cc

Timestamp:

Apr 29, 1999, 1:38:59 PM (25 years ago)

Author:

Hans Schönemann <hannes@…>

Branches:

(u'fieker-DuVal', '117eb8c30fc9e991c4decca4832b1d19036c4c65')(u'spielwiese', '38dfc5131670d387a89455159ed1e071997eec94')

Children:

ce5fb2786eb5fa61fee54f85fe8647ef13e7be20

Parents:

4be737ee7176ba0340ece58c1e6920d666833ac2

Message:

* hannes: added long reals


git-svn-id: file:///usr/local/Singular/svn/trunk@3012 2c84dea3-7e68-4137-9b89-c4e89433aadc

File:

• Singular/numbers.cc (modified) (10 diffs)

Singular/numbers.cc

@@ -2 +2 @@
 *  Computer Algebra System SINGULAR      *
 *****************************************/
-/* $Id: numbers.cc,v 1.8 1999-01-21 15:00:08 Singular Exp $ */
+/* $Id: numbers.cc,v 1.9 1999-04-29 11:38:52 Singular Exp $ */
 
 /*
@@ -18 +18 @@
 #include "longalg.h"
 #include "modulop.h"
+#include "gnumpfl.h"
+#include "ring.h"
 #ifndef FAST_AND_DIRTY
 #undef npMultM
@@ -88 +90 @@
 * init operations for characteristic c (complete==TRUE)
 * init nDelete    for characteristic c (complete==FALSE)
-* param: the names of the parameters (read-only)
 */
-void nSetChar(int c, BOOLEAN complete, char ** param, int pars)
+void nSetChar(ring r, BOOLEAN complete)
 {
+  int c=rInternalChar(r);
+
   if (nNULL!=NULL)
   {
@@ -103 +106 @@
     nSize  = ndSize;
   }
-  //Print("n:c=%d compl=%d param=%d\n",c,complete,param);
-  if ((c == 1) || (c< (-1)))
-  {
-    naSetChar(c,complete,param,pars);
+  //Print("n:c=%d compl=%d param=%d\n",c,complete,r->parameter);
+  //if ((c == 1) || (c< (-1)))
+  if (rField_is_Extension(r))
+  {
+    naSetChar(c,complete,r->parameter,rPar(r));
 #ifdef LDEBUG
     nDBDelete= naDBDelete;
@@ -152 +156 @@
   }
   else
-  if (c == 0)
+  if (rField_is_Q(r))
   {
 #ifdef LDEBUG
@@ -195 +199 @@
     }
   }
-  else if ((c>1)&&(param==NULL))
+  else if (rField_is_Zp(r))
   /*----------------------char. p----------------*/
   {
@@ -241 +245 @@
   }
   else
-  if (c>1)
+  /* -------------- GF(p^m) -----------------------*/
+  if (rField_is_GF(r))
   {
 #ifdef LDEBUG
@@ -251 +256 @@
     {
       test &= ~Sy_bit(OPT_INTSTRATEGY); /*26*/
-      nfSetChar(c,param);
+      nfSetChar(c,r->parameter);
       nNew   = nDummy1;
       nNormalize=nDummy2;
@@ -288 +293 @@
   }
   else
-  //if (c==(-1)) // the rest...
+  /* -------------- R -----------------------*/
+  //if (c==(-1))
+  if (rField_is_R(r))
   {
 #ifdef LDEBUG
@@ -330 +337 @@
     }
   }
+  else
+  /* -------------- long R -----------------------*/
+  if (rField_is_long_R(r))
+  {
+    setGMPFloatPrecBytes(r->ch_flags);
+#ifdef LDEBUG
+    nDBDelete= ngfDBDelete;
+#else
+    nDelete= ngfDelete;
+#endif
+    if (complete)
+    {
+      nNew=ngfNew;
+      nNormalize=nDummy2;
+      nInit  = ngfInit;
+      nInt   = ngfInt;
+      nAdd   = ngfAdd;
+      nSub   = ngfSub;
+      nMult  = ngfMult;
+      nDiv   = ngfDiv;
+      nExactDiv= ngfDiv;
+      nIntDiv= ngfDiv;
+      nIntMod= ngfIntMod;
+      nNeg   = ngfNeg;
+      nInvers= ngfInvers;
+      nCopy  = ngfCopy;
+      nGreater = ngfGreater;
+      nEqual = ngfEqual;
+      nIsZero = ngfIsZero;
+      nIsOne = ngfIsOne;
+      nIsMOne = ngfIsMOne;
+      nGreaterZero = ngfGreaterZero;
+      nWrite = ngfWrite;
+      nRead = ngfRead;
+      nPower = ngfPower;
+      nGcd  = ndGcd;
+      nLcm  = ndGcd; /* tricky, isn't it ?*/
+      nSetMap=ngfSetMap;
+      nName=ndName;
+      /*nSize  = ndSize;*/
+#ifdef LDEBUG
+      nDBTest=ngfDBTest;
+#endif
+    }
+  }
+#ifdef TEST
+  else
+  {
+    WerrorS("unknown field");
+  }
+#endif
   if (complete&&(!errorreported)) nNULL=nInit(0);
 }