#include "kernel/mod2.h"
#include "misc/intvec.h"
#include "polys/matpol.h"
#include "kernel/polys.h"
#include "kernel/ideals.h"
#include "tok.h"
#include "ipid.h"
#include "subexpr.h"
#include "ipshell.h"
#include "ipprint.h"
#include "attrib.h"
Go to the source code of this file.
◆ ipPrint_CRING()
Definition at line 210 of file ipprint.cc.
215 else PrintS(
"ring (with zero-divisors): ");
static FORCE_INLINE BOOLEAN nCoeff_is_Ring(const coeffs r)
static FORCE_INLINE char * nCoeffName(const coeffs cf)
void PrintS(const char *s)
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)
◆ ipPrint_INTMAT()
Definition at line 40 of file ipprint.cc.
43 for(i=0;i<v->
rows();i++)
45 for(j=0;j<v->
cols();j++)
#define IMATELEM(M, I, J)
◆ ipPrint_INTVEC()
Definition at line 30 of file ipprint.cc.
void show(int mat=0, int spaces=0) const
◆ ipPrint_MA()
Definition at line 183 of file ipprint.cc.
void ipPrint_MA0(matrix m, const char *name)
◆ ipPrint_MA0()
Definition at line 57 of file ipprint.cc.
70 vl=
si_max(vl,(
int)strlen(ss));
98 sprintf(ss,
"%s[%d,%d]",
name,i+1,j+1);
102 vl=
si_max(vl,(
int)strlen(ss));
132 sprintf(ss,
"%s[%d,%d]",
name,i+1,j+1);
const CanonicalForm int s
#define omFreeSize(addr, size)
void StringSetS(const char *st)
void StringAppendS(const char *st)
static int si_max(const int a, const int b)
void PrintS(const char *s)
char name(const Variable &v)
◆ ipPrint_RING()
static BOOLEAN ipPrint_RING |
( |
ring |
r | ) |
|
|
static |
Definition at line 193 of file ipprint.cc.
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");
static BOOLEAN rField_is_Domain(const ring r)
void PrintS(const char *s)
void rWrite(ring r, BOOLEAN details)
static BOOLEAN rField_is_Ring(const ring r)
◆ ipPrint_V()
Definition at line 224 of file ipprint.cc.
245 for(j=l-1;j>=0;j--)
pDelete(&m[j]);
#define omFreeSize(addr, size)
VAR ring currRing
Widely used global variable which specifies the current polynomial ring for Singular interpreter and ...
void p_Vec2Polys(poly v, poly **p, int *len, const ring r)
void PrintS(const char *s)
◆ ipPrintBetti()
static void ipPrintBetti |
( |
leftv |
u | ) |
|
|
static |
Definition at line 344 of file ipprint.cc.
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++)
const CanonicalForm int s
void PrintS(const char *s)
void * atGet(idhdl root, const char *name, int t, void *defaultReturnValue)
#define IMATELEM(M, I, J)
◆ jjDBPRINT()
Definition at line 316 of file ipprint.cc.
321 print= (((int)((
long)(u->
Data()))) > 0);
Class used for (list of) interpreter objects.
BOOLEAN jjPRINT(leftv res, leftv u)
void PrintS(const char *s)
◆ jjPRINT()
Definition at line 250 of file ipprint.cc.
306 if (s[l-1]==
'\n') s[l-1]=
'\0';
const CanonicalForm int s
static BOOLEAN ipPrint_RING(ring r)
static BOOLEAN ipPrint_INTVEC(intvec *v)
ideal id_Copy(ideal h1, const ring r)
copy an ideal
static BOOLEAN ipPrint_MA(leftv u)
void id_Delete(ideal *h, ring r)
deletes an ideal/module/matrix
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.
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 ...
The main handler for Singular numbers which are suitable for Singular polynomials.
void ipPrint_MA0(matrix m, const char *name)
static BOOLEAN ipPrint_V(poly u)
void PrintS(const char *s)
matrix id_Module2Matrix(ideal mod, const ring R)
static BOOLEAN ipPrint_INTMAT(intvec *v)
◆ jjPRINT_FORMAT()
Definition at line 389 of file ipprint.cc.
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
BOOLEAN iiExprArith1(leftv res, leftv a, int op)
void Print(leftv store=NULL, int spaces=0)
Called by type_cmd (e.g. "r;") or as default in jPRINT.
char * String(void *d=NULL, BOOLEAN typed=FALSE, int dim=1)
Called for conversion to string (used by string(..), write(..),..)
static void ipPrintBetti(leftv u)