Go to the source code of this file.
◆ leftv
◆ ipPrint_MA0()
Definition at line 57 of file ipprint.cc.
58{
60 {
62 char *ss;
66
67
68 size_t len=14+strlen(
name);
71 vl=
si_max(vl,(
int)strlen(ss));
73
74
80 {
87 }
88
89
91 {
93 {
95 {
98 ss[0]='\0';
99 snprintf(ss,len,
"%s[%d,%d]",
name,
i+1,
j+1);
101 {
102 strcat(ss,",");
103 vl=
si_max(vl,(
int)strlen(ss));
104 }
105 }
108 }
109 }
110
111 int maxlen=0;
113 {
115 }
117 {
118
119
120
121
122 size_t len=14+strlen(
name);
124 {
126 {
129 {
133 ss[0]='\0';
134 snprintf(ss,len,
"%s[%d,%d]",
name,
i+1,
j+1);
136 {
137 strcat(ss,",");
138 }
141 {
142
143
144
146 }
148 }
149 else
150 {
152 }
153 }
154 }
155 }
156
158 {
163 {
165 {
168 }
172 }
174 }
175
178 }
180}
static int si_max(const int a, const int b)
const CanonicalForm int s
#define omFreeSize(addr, size)
#define omFreeBinAddr(addr)
void StringSetS(const char *st)
void StringAppendS(const char *st)
void PrintS(const char *s)
int name
New type name for int.
◆ jjDBPRINT()
Definition at line 318 of file ipprint.cc.
319{
322 {
323 print= (((int)((long)(u->
Data()))) > 0);
325 }
326 if (print)
327 {
328
332 {
341 }
342 }
344}
BOOLEAN jjPRINT(leftv res, leftv u)
◆ jjPRINT()
Definition at line 252 of file ipprint.cc.
253{
258 {
261 break;
262
265 break;
266
269 break;
270
272 {
277 break;
278 }
279
281 {
285 break;
286 }
287
290 break;
291
294 break;
295
298 break;
299
300 default:
302 break;
303 }
306 {
308 if (
s[
l-1]==
'\n')
s[
l-1]=
'\0';
309 }
311 return bo;
312}
char * String(void *d=NULL, BOOLEAN typed=FALSE, int dim=1)
Called for conversion to string (used by string(..), write(..),..)
void Print(leftv store=NULL, int spaces=0)
Called by type_cmd (e.g. "r;") or as default in jPRINT.
ideal id_Copy(ideal h1, const ring r)
copy an ideal
static BOOLEAN ipPrint_RING(ring r)
void ipPrint_MA0(matrix m, const char *name)
static BOOLEAN ipPrint_V(poly u)
static BOOLEAN ipPrint_MA(leftv u)
static BOOLEAN ipPrint_INTVEC(intvec *v)
static BOOLEAN ipPrint_INTMAT(intvec *v)
static BOOLEAN ipPrint_CRING(coeffs r)
The main handler for Singular numbers which are suitable for Singular polynomials.
VAR ring currRing
Widely used global variable which specifies the current polynomial ring for Singular interpreter and ...
void id_Delete(ideal *h, ring r)
deletes an ideal/module/matrix
matrix id_Module2Matrix(ideal mod, const ring R)
◆ jjPRINT_FORMAT()
Definition at line 391 of file ipprint.cc.
392{
393
394 if ((u->
Typ()==
INTMAT_CMD)&&(strcmp((
char *)
v->Data(),
"betti")==0))
395 {
401 }
402 else
403
404 {
407 if (strlen(ns) == 3 && ns[1] == '2')
408 {
410 ns[1] = ns[2];
411 ns[2] = '\0';
412 }
413 if (strcmp(ns,"%l") == 0)
414 {
417 {
418 char* ns = (
char*)
omAlloc(strlen((
char*)
res->data) + 2);
419 strcpy(ns, (
char*)
res->data);
421 strcat(ns, "\n");
423 }
424 }
425 else if (strcmp(ns,"%t") == 0)
426 {
431 ((
char*)
res->data)[strlen((
char*)
res->data) -1] =
'\0';
432 }
433 else if (strcmp(ns,"%;") == 0)
434 {
439 }
440 else if (strcmp(ns,"%p") == 0)
441 {
443 }
445 {
450 }
451 else
452 {
455 {
456 char* ns = (
char*)
omAlloc(strlen((
char*)
res->data) + 2);
457 strcpy(ns, (
char*)
res->data);
459 strcat(ns, "\n");
461 }
462 }
464 }
466}
const Variable & v
< [in] a sqrfree bivariate poly
BOOLEAN iiExprArith1(leftv res, leftv a, int op)
static void ipPrintBetti(leftv u)