Changeset 454cb0 in git


Ignore:
Timestamp:
Feb 22, 2009, 12:22:08 PM (15 years ago)
Author:
Hans Schönemann <hannes@…>
Branches:
(u'fieker-DuVal', '117eb8c30fc9e991c4decca4832b1d19036c4c65')(u'spielwiese', '45e267b9942dec9429fe249ce3e5e44ab80a6a3a')
Children:
cb2088b08c04fc873962bfeb02cfb4f0674d5dc1
Parents:
cce4a2f69a8341c6b8fbb3f1e78b41bf26ed7970
Message:
*hannes: rIsRatGRing


git-svn-id: file:///usr/local/Singular/svn/trunk@11434 2c84dea3-7e68-4137-9b89-c4e89433aadc
Location:
kernel
Files:
2 edited

Legend:

Unmodified
Added
Removed
  • kernel/gr_kstd2.cc

    rcce4a2f r454cb0  
    22*  Computer Algebra System SINGULAR     *
    33****************************************/
    4 /* $Id: gr_kstd2.cc,v 1.26 2009-02-21 15:25:43 levandov Exp $ */
     4/* $Id: gr_kstd2.cc,v 1.27 2009-02-22 11:22:08 Singular Exp $ */
    55/*
    66*  ABSTRACT -  Kernel: noncomm. alg. of Buchberger
     
    11161116      pLmFree(strat->P.p);
    11171117      /* the real one */
    1118       if (ncRingType(currRing)==nc_lie) /* prod crit */
    1119         if(pHasNotCF(strat->P.p1,strat->P.p2))
    1120         {
     1118//      if (ncRingType(currRing)==nc_lie) /* prod crit */
     1119//        if(pHasNotCF(strat->P.p1,strat->P.p2))
     1120//        {
    11211121//          strat->cp++;
    1122           /* prod.crit itself in nc_CreateSpoly */
    1123         }
     1122//          /* prod.crit itself in nc_CreateSpoly */
     1123//        }
    11241124
    11251125      strat->P.p = nc_CreateSpoly(strat->P.p1,strat->P.p2,currRing);
  • kernel/ring.h

    rcce4a2f r454cb0  
    77* ABSTRACT - the interpreter related ring operations
    88*/
    9 /* $Id: ring.h,v 1.38 2009-02-21 17:50:29 Singular Exp $ */
     9/* $Id: ring.h,v 1.39 2009-02-22 11:22:08 Singular Exp $ */
    1010
    1111/* includes */
     
    3939  nc_struct *n;
    4040  return (r != NULL) && ((n=r->GetNC()) != NULL) /*&& (n->type != nc_error)*/;
     41#else
     42  return false;
     43#endif
     44}
     45
     46inline bool rIsRatGRing(const ring r)
     47{
     48#ifdef HAVE_PLURAL
     49  nc_struct *n;
     50  return (r != NULL) && ((n=r->GetNC()) != NULL)
     51          && (r->real_var_start>1);
    4152#else
    4253  return false;
Note: See TracChangeset for help on using the changeset viewer.