Changeset 8a150b in git for Singular/mpsr_GetMisc.cc

Timestamp:

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

Author:

Hans Schönemann <hannes@…>

Branches:

(u'spielwiese', 'fe61d9c35bf7c61f2b6cbf1b56e25e2f08d536cc')

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/mpsr_GetMisc.cc (modified) (16 diffs)

Singular/mpsr_GetMisc.cc

@@ -2 +2 @@
 *  Computer Algebra System SINGULAR     *
 ****************************************/
-/* $Id: mpsr_GetMisc.cc,v 1.13 1999-03-08 18:11:49 Singular Exp $ */
+/* $Id: mpsr_GetMisc.cc,v 1.14 1999-04-29 11:38:52 Singular Exp $ */
 
 /***************************************************************
@@ -38 +38 @@
 {
   // check for currRing
-  if (currRing != NULL && rInternalChar(currRing) == ch) 
+  if (currRing != NULL && rInternalChar(currRing) == ch)
   // orig: currRing->ch==ch ???
   {
     int i, n = currRing->N;
     char **names = currRing->names;
-    
+
     for (i=0; i<n; i++)
     {
@@ -60 +60 @@
 ring mpsr_rDefault(short ch)
 {
-  if (currRing != NULL && rInternalChar(currRing) == ch) 
+  if (currRing != NULL && rInternalChar(currRing) == ch)
   // orig: currRing->ch==ch ???
   {
@@ -157 +157 @@
     int i, n;
     poly *m1, *m2;
-    
+
     if (id2 == NULL) return 0;
     if ((n = IDELEMS(id1)) != IDELEMS(id2)) return 0;
@@ -172 +172 @@
 }
 
-  
+
 // returns TRUE, if r1 less or equals r2
 // FALSE, otherwise
@@ -201 +201 @@
       r1->order[1] != r2->order[1])
     return 0;
-  
+
   for (i=0; i<rPar(r1);i++)
   {
@@ -259 +259 @@
   lv = mlv1->lv;
   while (lv->next != NULL) lv = lv->next;
-  
+
   lv->next = mlv2->lv;
   mlv1->r = r;
@@ -274 +274 @@
 {
   int i, n;
-  
+
   while (l != NULL)
   {
     short typ = l->Typ();
-    
+
     switch(typ)
     {
@@ -310 +310 @@
           break;
         }
-          
+
         case LIST_CMD:
         {
@@ -342 +342 @@
           mpsr_SetCurrRing(to_ring, TRUE);
           nSetMap(rInternalChar(from_ring), from_ring->parameter,
-            rPar(from_ring), from_ring->minpoly);
+            rPar(from_ring), from_ring->minpoly);
           l->data = (void *) nMap(nn);
           mpsr_SetCurrRing(from_ring, FALSE);
@@ -351 +351 @@
   }
 }
-          
-           
+
+
 // searches for a ring handle which has a ring which is equal to r
 // if one is found, then this one is set to the new global ring
@@ -366 +366 @@
     return;
   }
-  
+
   rTest(r);
   // try to find an idhdl which is an equal ring
@@ -420 +420 @@
   return grname;
 }
-        
+
 // searches through the Singular namespace for a matching name:
 // the first found is returned together witht the respective ring
@@ -431 +431 @@
 #endif /* HAVE_NAMESPACES */
   r = NULL;
-  
+
   if (h != NULL)
   {
@@ -445 +445 @@
       h2 = (IDRING(h)->idroot!=NULL ?IDRING(h)->idroot->get(name, 0) :
             (idhdl) NULL);
-      
+
       if (h2 != NULL)
       {
@@ -550 +550 @@
 #ifdef  PARI_BIGINT_TEST
   init(4000000, 2);
-#endif  
+#endif
 }