#include <kernel/mod2.h>
#include <omalloc/omalloc.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 214 of file ipprint.cc.
220 else PrintS(
"ring (with zero-divisors): ");
static FORCE_INLINE BOOLEAN nCoeff_is_Ring(const coeffs r)
The main handler for Singular numbers which are suitable for Singular polynomials.
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 42 of file ipprint.cc.
46 for(i=0;i<v->
rows();i++)
48 for(j=0;j<v->
cols();j++)
const Variable & v
< [in] a sqrfree bivariate poly
#define IMATELEM(M, I, J)
◆ ipPrint_INTVEC()
Definition at line 31 of file ipprint.cc.
const Variable & v
< [in] a sqrfree bivariate poly
void show(int mat=0, int spaces=0) const
◆ ipPrint_MA()
Definition at line 186 of file ipprint.cc.
static void ipPrint_MA0(matrix m, const char *name)
◆ ipPrint_MA0()
static void ipPrint_MA0 |
( |
matrix |
m, |
|
|
const char * |
name |
|
) |
| |
|
static |
Definition at line 60 of file ipprint.cc.
73 vl=
si_max(vl,(
int)strlen(ss));
101 sprintf(ss,
"%s[%d,%d]",
name,i+1,j+1);
105 vl=
si_max(vl,(
int)strlen(ss));
135 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()
Definition at line 196 of file ipprint.cc.
198 ring
r=(ring)u->
Data();
199 PrintS(
"polynomial ring, over a ");
203 else PrintS(
"ring (with zero-divisors)");
206 if (r->OrdSgn==1)
PrintS(
", global");
207 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 229 of file ipprint.cc.
250 for(j=l-1;j>=0;j--)
pDelete(&m[j]);
#define omFreeSize(addr, size)
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 348 of file ipprint.cc.
351 int row_shift=(int)((
long)(
atGet(u,
"rowShift",
INT_CMD)));
355 for(j=0;j<betti->
cols();j++)
Print(
" %5d",j);
357 for(j=0;j<betti->
cols();j++)
PrintS(
"------");
360 for(i=0;i<betti->
rows();i++)
362 Print(
"%5d:",i+row_shift);
363 for(j=1;j<=betti->
cols();j++)
375 for(j=0;j<betti->
cols();j++)
PrintS(
"------");
377 for(j=0;j<betti->
cols();j++)
380 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 320 of file ipprint.cc.
325 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 255 of file ipprint.cc.
310 if (s[l-1]==
'\n') s[l-1]=
'\0';
const CanonicalForm int s
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_RING(leftv u)
static void ipPrint_MA0(matrix m, const char *name)
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(..),..)
ring currRing
Widely used global variable which specifies the current polynomial ring for Singular interpreter and ...
static BOOLEAN ipPrint_V(leftv u)
static BOOLEAN ipPrint_INTMAT(leftv u)
void PrintS(const char *s)
matrix id_Module2Matrix(ideal mod, const ring R)
static BOOLEAN ipPrint_CRING(leftv u)
static BOOLEAN ipPrint_INTVEC(leftv u)
◆ jjPRINT_FORMAT()
Definition at line 393 of file ipprint.cc.
409 if (strlen(ns) == 3 && ns[1] ==
'2')
415 if (strcmp(ns,
"%l") == 0)
420 char* ns = (
char*)
omAlloc(strlen((
char*) res->
data) + 2);
421 strcpy(ns, (
char*) res->
data);
427 else if (strcmp(ns,
"%t") == 0)
433 ((
char*)res->
data)[strlen((
char*)res->
data) -1] =
'\0';
435 else if (strcmp(ns,
"%;") == 0)
442 else if (strcmp(ns,
"%p") == 0)
458 char* ns = (
char*)
omAlloc(strlen((
char*) res->
data) + 2);
459 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)