Changeset b147507 in git for kernel/ring.cc

Timestamp:

Oct 13, 2004, 12:50:37 PM (20 years ago)

Author:

Viktor Levandovskyy <levandov@…>

Branches:

(u'spielwiese', 'fe61d9c35bf7c61f2b6cbf1b56e25e2f08d536cc')

Children:

de1a82971d264aceac071d45613465890997aeb5

Parents:

9f28a8bf4d221b97630205e49678195c233e099d

Message:

*levandov: final and cosmetic changes to Opposite stuff


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

File:

• kernel/ring.cc (modified) (9 diffs)

kernel/ring.cc

@@ -2 +2 @@
 *  Computer Algebra System SINGULAR     *
 ****************************************/
-/* $Id: ring.cc,v 1.22 2004-10-12 16:16:37 Singular Exp $ */
+/* $Id: ring.cc,v 1.23 2004-10-13 10:50:37 levandov Exp $ */
 
 /*
@@ -3528 +3528 @@
   }
 }
+
 #define rOppVar(R,I) (rVar(R)+1-I)
 
@@ -3534 +3535 @@
   /* that is R^opp, where f (*^opp) g = g*f  */
 {
-  ring save=currRing;  
-  ring r=rCopy0(src);
+  ring save = currRing;  
+  ring    r = rCopy0(src);
   // change vars v1..vN -> vN..v1
   int i;
-  int i2=(rVar(r)-1)/2;
-  for(int i=i2; i>=0; i--)
+  int i2 = (rVar(r)-1)/2;
+  for(i=i2; i>=0; i--)
   {
     // index: 0..N-1
@@ -3545 +3546 @@
     // exchange names
     char *p;
-    p=r->names[rVar(r)-1-i];
-    r->names[rVar(r)-1-i]=r->names[i];
-    r->names[i]=p;
+    p = r->names[rVar(r)-1-i];
+    r->names[rVar(r)-1-i] = r->names[i];
+    r->names[i] = p;
   }
 //  i2=(rVar(r)+1)/2;
@@ -3564 +3565 @@
   {
     char *p=r->names[i];
-    if(isupper(*p)) *p=tolower(*p);
-    else            *p=toupper(*p);
+    if(isupper(*p)) *p = tolower(*p);
+    else            *p = toupper(*p);
   }
   // change ordering: listing
@@ -3609 +3610 @@
 //    }
 //  }
-  // Change order/block structurea (needed for rPrint, rAdd etc.)
+  // Change order/block structures (needed for rPrint, rAdd etc.)
   int j=0;
   int l=rBlocks(src);
@@ -3725 +3726 @@
   rComplete(r);
 #ifdef RDEBUG
-   rDebugPrint(r);
+  //   rDebugPrint(r);
 #endif
   rTest(r);
-  /* DO NOT CALL: rComplete(r); - it is all done */
 #ifdef HAVE_PLURAL
   /* now, we initialize a non-comm structure on r */
@@ -3738 +3738 @@
   rChangeCurrRing(r);  
   /* basic nc constructions  */
-  r->nc = (nc_struct *)omAlloc0(sizeof(nc_struct));
-  r->nc->ref = 1; /* in spite of Copy(src)? */
+  r->nc           = (nc_struct *)omAlloc0(sizeof(nc_struct));
+  r->nc->ref      = 1; /* in spite of rCopy(src)? */
   r->nc->basering = r;
-  r->nc->type =  src->nc->type;
-  int *perm = (int *)omAlloc0((rVar(r)+1)*sizeof(int));
-  int *par_perm = NULL;
-  nMapFunc nMap = nSetMap(src);
+  r->nc->type     =  src->nc->type;
+  int *perm       = (int *)omAlloc0((rVar(r)+1)*sizeof(int));
+  int *par_perm   = NULL;
+  nMapFunc nMap   = nSetMap(src);
   int j;
   int ni,nj;
@@ -3782 +3782 @@
 {
   ring Ropp = rOpposite(R);
-  ring Renv=NULL;
+  ring Renv = NULL;
   int stat = rSum(R, Ropp, Renv);
-  if (stat <=0)
+  if ( stat <=0 )
     WarnS("Error in rEnvelope at rSum");
   return Renv;