63 ideal destIdeal =
NULL;
65 ring sourceRing =
IDRING(sourceRingHdl);
99 state=
walk64(sourceIdeal,currw64,destRing,destVec64,
100 destIdeal,sourcIdealIsSB);
114 Werror(
"ring %s and current ring are incompatible\n",
120 WerrorS(
"Order of basering not allowed,\n must be a combination of a,A,lp,dp,Dp,wp,Wp,M and C.\n");
125 Werror(
"Order of %s not allowed,\n must be a combination of a,A,lp,dp,Dp,wp,Wp,M and C.\n",first->
Name());
131 Werror(
"Can't find ideal %s in ring %s.\n",
137 WerrorS(
"Overflow occurred.\n");
177 ideal destIdeal =
NULL;
205 unperturbedStartVectorStrategy);
214 destIdeal=
idrMoveR(destIdeal, almostDestRing, destRing);
226 Werror(
"ring %s and current ring are incompatible\n",
234 Werror(
"Order of basering not allowed,\n must be a combination of lp,dp,Dp,wp,Wp and C or just M.\n");
241 Werror(
"Order of %s not allowed,\n must be a combination of lp,dp,Dp,wp,Wp and C or just M.\n",
249 Werror(
"Can't find ideal %s in ring %s.\n",
257 Werror(
"Overflow occurred in ring %s.\n", first->
Name() );
Class used for (list of) interpreter objects.
void WerrorS(const char *s)
#define omFreeSize(addr, size)
#define SI_SAVE_OPT(A, B)
#define SI_RESTORE_OPT(A, B)
void rChangeCurrRing(ring r)
VAR ring currRing
Widely used global variable which specifies the current polynomial ring for Singular interpreter and ...
Compatibility layer for legacy polynomial operations (over currRing)
ideal idrMoveR(ideal &id, ring src_r, ring dest_r)
void Werror(const char *fmt,...)
ideal idInit(int idsize, int rank)
initialise an ideal / module
WalkState fractalWalk64(ideal sourceIdeal, ring destRing, ideal &destIdeal, BOOLEAN sourceIsSB, BOOLEAN unperturbedStartVectorStrategy)
WalkState walk64(ideal I, int64vec *currw64, ring destRing, int64vec *destVec64, ideal &destIdeal, BOOLEAN sourceIsSB)
@ WalkIncompatibleDestRing
@ WalkIncompatibleSourceRing
WalkState fractalWalkConsistency(ring sring, ring dring, int *vperm)
WalkState walkConsistency(ring sring, ring dring, int *vperm)
int64vec * rGetGlobalOrderWeightVec(ring r)
int64vec * getiv64(lists l)
ideal fractalWalkProc(leftv first, leftv second)
ideal walkProc(leftv first, leftv second)