Changeset 753f9d2 in git
- Timestamp:
- Jan 6, 2009, 5:56:05 PM (14 years ago)
- Branches:
- (u'spielwiese', 'f6c3dc58b0df4bd712574325fe76d0626174ad97')
- Children:
- 71effd8d4069f667d9f2f898203f1f390d853f1a
- Parents:
- f201175fb183fa109dae6b40de38d0f249c2df83
- Files:
-
- 7 edited
Legend:
- Unmodified
- Added
- Removed
-
Singular/iparith.cc
rf20117 r753f9d2 2 2 * Computer Algebra System SINGULAR * 3 3 ****************************************/ 4 /* $Id: iparith.cc,v 1.48 5 2009-01-06 15:48:28Singular Exp $ */4 /* $Id: iparith.cc,v 1.486 2009-01-06 16:55:31 Singular Exp $ */ 5 5 6 6 /* … … 4427 4427 return TRUE; 4428 4428 } 4429 if (rHasLocalOrMixedOrdering_currRing )4429 if (rHasLocalOrMixedOrdering_currRing()) 4430 4430 { 4431 4431 WerrorS("ordering must be global for slimgb"); … … 5715 5715 } 5716 5716 } 5717 if (((currRing->qideal!=NULL) && (rHasLocalOrMixedOrdering_currRing ))5717 if (((currRing->qideal!=NULL) && (rHasLocalOrMixedOrdering_currRing())) 5718 5718 || ((rr->qideal!=NULL) && (rHasLocalOrMixedOrdering(rr)))) 5719 5719 { -
Singular/ipshell.cc
rf20117 r753f9d2 2 2 * Computer Algebra System SINGULAR * 3 3 ****************************************/ 4 /* $Id: ipshell.cc,v 1. 199 2009-01-06 15:48:29Singular Exp $ */4 /* $Id: ipshell.cc,v 1.200 2009-01-06 16:55:31 Singular Exp $ */ 5 5 /* 6 6 * ABSTRACT: … … 1409 1409 if(!idIsZeroDim(I)) return NULL; // not zero-dim. 1410 1410 poly po=NULL; 1411 if (rHasLocalOrMixedOrdering_currRing )1411 if (rHasLocalOrMixedOrdering_currRing()) 1412 1412 { 1413 1413 scComputeHC(I,currQuotient,ak,po); -
Singular/walk.cc
rf20117 r753f9d2 2 2 * Computer Algebra System SINGULAR * 3 3 *****************************************/ 4 /* $Id: walk.cc,v 1.1 6 2009-01-06 15:48:29Singular Exp $ */4 /* $Id: walk.cc,v 1.17 2009-01-06 16:55:31 Singular Exp $ */ 5 5 /* 6 6 * ABSTRACT: Implementation of the Groebner walk … … 162 162 //} 163 163 strat->initEcart(&h); 164 if (rHasLocalOrMixedOrdering_currRing )164 if (rHasLocalOrMixedOrdering_currRing()) 165 165 { 166 166 deleteHC(&h,strat); … … 304 304 strat->R = initR(); 305 305 strat->sevT = initsevT(); 306 if (rHasLocalOrMixedOrdering_currRing ) strat->honey = TRUE;306 if (rHasLocalOrMixedOrdering_currRing()) strat->honey = TRUE; 307 307 308 308 -
Singular/wrapper.cc
rf20117 r753f9d2 17 17 BOOLEAN jInitBasis(ideal v, jList **TT,jList **QQ) 18 18 { 19 if (rHasLocalOrMixedOrdering_currRing )19 if (rHasLocalOrMixedOrdering_currRing()) 20 20 { 21 21 WerrorS("janet only for well-orderings"); -
kernel/ring.h
rf20117 r753f9d2 7 7 * ABSTRACT - the interpreter related ring operations 8 8 */ 9 /* $Id: ring.h,v 1.3 6 2009-01-06 16:53:54Singular Exp $ */9 /* $Id: ring.h,v 1.37 2009-01-06 16:56:05 Singular Exp $ */ 10 10 11 11 /* includes */ … … 350 350 //{ return (r->OrdSgn==-1); } 351 351 #define rHasLocalOrMixedOrdering(R) ((R)->OrdSgn==-1) 352 #define rHasLocalOrMixedOrdering_currRing (pOrdSgn==-1)352 #define rHasLocalOrMixedOrdering_currRing() (pOrdSgn==-1) 353 353 BOOLEAN rOrd_is_Totaldegree_Ordering(ring r =currRing); 354 354 // return TRUE if p_SetComp requires p_Setm -
kernel/syz.cc
rf20117 r753f9d2 2 2 * Computer Algebra System SINGULAR * 3 3 ****************************************/ 4 /* $Id: syz.cc,v 1.1 7 2009-01-06 15:49:15Singular Exp $ */4 /* $Id: syz.cc,v 1.18 2009-01-06 16:53:54 Singular Exp $ */ 5 5 6 6 /* … … 140 140 while ((j>0) && (syz->m[j-1]==NULL)) j--; 141 141 existsUnit = FALSE; 142 if (rHasGlobalOrdering_currRing )142 if (rHasGlobalOrdering_currRing()) 143 143 { 144 144 while ((i<j) && (!existsUnit)) -
kernel/weight.cc
rf20117 r753f9d2 2 2 * Computer Algebra System SINGULAR * 3 3 ****************************************/ 4 /* $Id: weight.cc,v 1. 8 2009-01-06 15:49:15Singular Exp $ */4 /* $Id: weight.cc,v 1.9 2009-01-06 16:53:54 Singular Exp $ */ 5 5 6 6 /* … … 189 189 *eweight = 0; 190 190 n = pVariables; 191 if (rHasLocalOrMixedOrdering_currRing )191 if (rHasLocalOrMixedOrdering_currRing()) 192 192 wFunctional = wFunctionalMora; 193 193 else
Note: See TracChangeset
for help on using the changeset viewer.