Changeset 5a3ae8 in git


Ignore:
Timestamp:
Mar 23, 2011, 3:23:26 PM (12 years ago)
Author:
Hans Schoenemann <hannes@…>
Branches:
(u'jengelh-datetime', 'ceac47cbc86fe4a15902392bdbb9bd2ae0ea02c6')(u'spielwiese', 'a800fe4b3e9d37a38c5a10cc0ae9dfa0c15a4ee6')
Children:
a22a8227b35ff5ff3ca67bc9be266ae7f0f60380
Parents:
e0d8d1b3734f485420a004dfc86eb0b5c5cc62e9
git-author:
Hans Schoenemann <hannes@mathematik.uni-kl.de>2011-03-23 15:23:26+01:00
git-committer:
Mohamed Barakat <mohamed.barakat@rwth-aachen.de>2011-11-09 12:04:10+01:00
Message:
p_SetCompP -> p_polys.h
Location:
libpolys/polys
Files:
2 edited

Legend:

Unmodified
Added
Removed

  • libpolys/polys/monomials/p_polys.h

    re0d8d1 r5a3ae8  
    330330
    331331// sets component of poly a to i, returns length of a
    332 static inline   void p_SetCompP(poly a, int i, ring r);
     332static inline   void p_SetCompP(poly a, int i, ring r)
     333{
     334  if (p != NULL)
     335  {
     336#ifdef PDEBUG
     337    poly q = p;
     338    int l = 0;
     339#endif
     340
     341    if (rOrd_SetCompRequiresSetm(r))
     342    {
     343      do
     344      {
     345        p_SetComp(p, i, r);
     346        p_SetmComp(p, r);
     347#ifdef PDEBUG
     348        l++;
     349#endif
     350        pIter(p);
     351      }
     352      while (p != NULL);
     353    }
     354    else
     355    {
     356      do
     357      {
     358        p_SetComp(p, i, r);
     359#ifdef PDEBUG
     360        l++;
     361#endif
     362        pIter(p);
     363      }
     364      while(p != NULL);
     365    }
     366#ifdef PDEBUG
     367    p_Test(q, r);
     368    assume(l == pLength(q));
     369#endif
     370  }
     371}
     372
    333373static inline   void p_SetCompP(poly a, int i, ring lmRing, ring tailRing);
     374{
     375  if (p != NULL)
     376  {
     377    p_SetComp(p, i, lmRing);
     378    p_SetmComp(p, lmRing);
     379    p_SetCompP(pNext(p), i, tailRing);
     380  }
     381}
    334382
    335383// returns maximal column number in the modul element a (or 0)

  • libpolys/polys/pInline0.h

    re0d8d1 r5a3ae8  
    2020#include <polys/monomials/p_polys.h>
    2121#include <polys/monomials/ring.h>
    22 
    23 PINLINE0 void p_SetCompP(poly p, int i, ring r)
    24 {
    25   if (p != NULL)
    26   {
    27 #ifdef PDEBUG
    28     poly q = p;
    29     int l = 0;
    30 #endif
    31 
    32     if (rOrd_SetCompRequiresSetm(r))
    33     {
    34       do
    35       {
    36         p_SetComp(p, i, r);
    37         p_SetmComp(p, r);
    38 #ifdef PDEBUG
    39         l++;
    40 #endif
    41         pIter(p);
    42       }
    43       while (p != NULL);
    44     }
    45     else
    46     {
    47       do
    48       {
    49         p_SetComp(p, i, r);
    50 #ifdef PDEBUG
    51         l++;
    52 #endif
    53         pIter(p);
    54       }
    55       while(p != NULL);
    56     }
    57 #ifdef PDEBUG
    58     p_Test(q, r);
    59     assume(l == pLength(q));
    60 #endif
    61   }
    62 }
    63 
    64 PINLINE0 void p_SetCompP(poly p, int i, ring lmRing, ring tailRing)
    65 {
    66   if (p != NULL)
    67   {
    68     p_SetComp(p, i, lmRing);
    69     p_SetmComp(p, lmRing);
    70     p_SetCompP(pNext(p), i, tailRing);
    71   }
    72 }
    7322
    7423// returns minimal column number in the modul element a (or 0)
Note: See TracChangeset for help on using the changeset viewer.