43 for(i=0;i<v->
rows();i++)
45 for(j=0;j<v->
cols();j++)
68 ss=(
char *)
omAlloc(14+strlen(name));
70 vl=
si_max(vl,(
int)strlen(ss));
95 ss=(
char *)
omAlloc(14+strlen(name));
98 sprintf(ss,
"%s[%d,%d]",name,i+1,j+1);
102 vl=
si_max(vl,(
int)strlen(ss));
129 ss=(
char *)
omAlloc(14+strlen(name));
132 sprintf(ss,
"%s[%d,%d]",name,i+1,j+1);
195 PrintS(
"polynomial ring, over a ");
199 else PrintS(
"ring (with zero-divisors)");
202 if (r->OrdSgn==1)
PrintS(
", global");
203 else if (r->MixedOrder==1)
PrintS(
", mixed");
215 else PrintS(
"ring (with zero-divisors): ");
245 for(j=l-1;j>=0;j--)
pDelete(&m[j]);
306 if (s[l-1]==
'\n') s[l-1]=
'\0';
321 print= (((int)((
long)(u->
Data()))) > 0);
347 int row_shift=(int)((
long)(
atGet(u,
"rowShift",
INT_CMD)));
351 for(j=0;j<betti->
cols();j++)
Print(
" %5d",j);
353 for(j=0;j<betti->
cols();j++)
PrintS(
"------");
356 for(i=0;i<betti->
rows();i++)
358 Print(
"%5d:",i+row_shift);
359 for(j=1;j<=betti->
cols();j++)
371 for(j=0;j<betti->
cols();j++)
PrintS(
"------");
373 for(j=0;j<betti->
cols();j++)
376 for(i=0;i<betti->
rows();i++)
405 if (strlen(ns) == 3 && ns[1] ==
'2')
411 if (strcmp(ns,
"%l") == 0)
416 char* ns = (
char*)
omAlloc(strlen((
char*) res->
data) + 2);
417 strcpy(ns, (
char*) res->
data);
423 else if (strcmp(ns,
"%t") == 0)
429 ((
char*)res->
data)[strlen((
char*)res->
data) -1] =
'\0';
431 else if (strcmp(ns,
"%;") == 0)
438 else if (strcmp(ns,
"%p") == 0)
454 char* ns = (
char*)
omAlloc(strlen((
char*) res->
data) + 2);
455 strcpy(ns, (
char*) res->
data);
const CanonicalForm int s
Class used for (list of) interpreter objects.
static BOOLEAN ipPrint_RING(ring r)
static BOOLEAN ipPrint_INTVEC(intvec *v)
BOOLEAN iiExprArith1(leftv res, leftv a, int op)
Compatiblity layer for legacy polynomial operations (over currRing)
ideal id_Copy(ideal h1, const ring r)
copy an ideal
static BOOLEAN ipPrint_MA(leftv u)
#define omFreeSize(addr, size)
void id_Delete(ideal *h, ring r)
deletes an ideal/module/matrix
static BOOLEAN rField_is_Domain(const ring r)
static BOOLEAN ipPrint_CRING(coeffs r)
void Print(leftv store=NULL, int spaces=0)
Called by type_cmd (e.g. "r;") or as default in jPRINT.
static FORCE_INLINE BOOLEAN nCoeff_is_Ring(const coeffs r)
char * String(void *d=NULL, BOOLEAN typed=FALSE, int dim=1)
Called for conversion to string (used by string(..), write(..),..)
VAR ring currRing
Widely used global variable which specifies the current polynomial ring for Singular interpreter and ...
BOOLEAN jjPRINT(leftv res, leftv u)
The main handler for Singular numbers which are suitable for Singular polynomials.
void StringSetS(const char *st)
void StringAppendS(const char *st)
void p_Vec2Polys(poly v, poly **p, int *len, const ring r)
static FORCE_INLINE char * nCoeffName(const coeffs cf)
void ipPrint_MA0(matrix m, const char *name)
static BOOLEAN ipPrint_V(poly u)
static int si_max(const int a, const int b)
void PrintS(const char *s)
char name(const Variable &v)
matrix id_Module2Matrix(ideal mod, const ring R)
void rWrite(ring r, BOOLEAN details)
const Variable & v
< [in] a sqrfree bivariate poly
void * atGet(idhdl root, const char *name, int t, void *defaultReturnValue)
static BOOLEAN rField_is_Ring(const ring r)
static FORCE_INLINE BOOLEAN nCoeff_is_Domain(const coeffs r)
returns TRUE, if r is a field or r has no zero divisors (i.e is a domain)
static void ipPrintBetti(leftv u)
void show(int mat=0, int spaces=0) const
BOOLEAN jjDBPRINT(leftv res, leftv u)
static BOOLEAN ipPrint_INTMAT(intvec *v)
BOOLEAN jjPRINT_FORMAT(leftv res, leftv u, leftv v)
#define IMATELEM(M, I, J)