Changeset a9a7be in git for Singular/mpsr_PutPoly.cc

Timestamp:

Sep 27, 1999, 5:05:35 PM (25 years ago)

Author:

Olaf Bachmann <obachman@…>

Branches:

(u'spielwiese', 'fe61d9c35bf7c61f2b6cbf1b56e25e2f08d536cc')

Children:

7c19609b3106a80912e66f6ac4fa0fa446532b1f

Parents:

7d423ecfe560c226d3e99aed883841c463e884ec

Message:

* walk stuff


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

File:

• Singular/mpsr_PutPoly.cc (modified) (20 diffs)

Singular/mpsr_PutPoly.cc

@@ -3 +3 @@
 ****************************************/
 
-/* $Id: mpsr_PutPoly.cc,v 1.15 1999-03-12 12:05:24 Singular Exp $ */
+/* $Id: mpsr_PutPoly.cc,v 1.16 1999-09-27 15:05:28 obachman Exp $ */
 
 /***************************************************************
@@ -13 +13 @@
  * Change History (most recent first):
  *  o 1/97 obachman
- *    Updated routines to MP and MPP v1.1 
+ *    Updated routines to MP and MPP v1.1
  *
  ***************************************************************/
@@ -26 +26 @@
 #include "ring.h"
 #include "polys.h"
-#include "ipid.h"
+//#include "ipid.h"
 
 #ifdef PARI_BIGINT_TEST
@@ -144 +144 @@
   if (a == NULL)
     mp_return( MP_PutSint32Packet(link, 0, 0));
-  
+
   // check for SR_INT type
   if (SR_HDL(a) & SR_INT)
@@ -160 +160 @@
 //     return PutRationalNumber(link, a);
 //   }
-  
+
   // send number itself
   mp_failr(MP_PutCommonOperatorPacket(link,
@@ -259 +259 @@
     pTest(p);
 #endif
-  
+
   if (gNvars > 1)
   {
     short i;
     MP_Sint32_t *ta1 = &(gTa[1]);
-    
+
     while (p != NULL)
     {
@@ -290 +290 @@
   if (cring != CurrPutRing)
     SetPutFuncs(cring);
-  
+
   if (gNvars > 1)
   {
@@ -348 +348 @@
   if (r->minpoly != NULL && r->parameter == NULL && r->ch > 0)
     failr(PutMinPolyAnnot(link,r));
-  
+
   if (r->qideal != NULL)
     return PutDefRelsAnnot(link, r);
@@ -358 +358 @@
                                        BOOLEAN mv)
 {
-  // each element of the poly is a 
+  // each element of the poly is a
   mp_failr(MP_PutAnnotationPacket(link,
                                   MP_ProtoDict,
@@ -392 +392 @@
                                     MP_CmtProtoIMP_Uint32,
                                     1));
-    // but are taken as modulo numbers 
+    // but are taken as modulo numbers
     mp_failr(MP_PutAnnotationPacket(link,
                                     MP_NumberDict,
@@ -418 +418 @@
   else if (rField_is_R(r))
   {
-    // floats 
+    // floats
     mp_failr(MP_PutCommonMetaTypePacket(link,
                                     MP_ProtoDict,
@@ -439 +439 @@
     alg_r->minpoly = r->minpoly;
 
-    // Algebraic numbers are 
+    // Algebraic numbers are
     // a fraction of two Dense Dist Polys
     mp_failr(MP_PutCommonMetaOperatorPacket(link,
@@ -478 +478 @@
 }
 
-    
+
 static mpsr_Status_t PutVarNamesAnnot(MP_Link_pt link, ring r)
 {
@@ -507 +507 @@
                                     MP_AnnotProtoPrototype,
                                     MP_AnnotReqValNode));
-                                 
+
     mp_failr(MP_PutCommonMetaTypePacket(link,
                                     MP_ProtoDict,
@@ -528 +528 @@
 }
 
-  
+
 static mpsr_Status_t PutOrderingAnnot(MP_Link_pt link, ring r, BOOLEAN mv)
 {
@@ -566 +566 @@
                        order[index] == ringorder_c)))
     {
-      // a product ordering is sent as triple 
+      // a product ordering is sent as triple
       mp_failr(MP_PutCommonOperatorPacket(link,
                                           MP_BasicDict,
@@ -598 +598 @@
   if (vlength == 0) return mpsr_Success;
 
-  // deal with the weights 
+  // deal with the weights
   mp_failr(MP_PutAnnotationPacket(link,
                                   MP_PolyDict,
@@ -649 +649 @@
   }
 
-  // weights are all what remains 
+  // weights are all what remains
   for (i=0; i<vlength; i++)
     mp_failr(IMP_PutSint32(link, (MP_Sint32_t) r->wvhdl[index][i]));
@@ -659 +659 @@
 {
   mpsr_assume(r->minpoly != NULL && r->ch > 0 && r->parameter == NULL);
-  
+
   number minpoly = r->minpoly;
   r->minpoly = 0;
@@ -688 +688 @@
     PutAlgAlgNumber = PutRationalNumber;
   gNalgvars = r->N;
-  
+
   r->minpoly = minpoly;
   return PutAlgPoly(link, ((lnumber) minpoly)->z);
 }
 
-  
+
 static mpsr_Status_t PutDefRelsAnnot(MP_Link_pt link, ring r)
 {