 |
My Project
UNKNOWN_GIT_VERSION
|
#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()
◆ ipPrint_INTMAT()
◆ ipPrint_INTVEC()
◆ ipPrint_MA()
◆ ipPrint_MA0()
Definition at line 57 of file ipprint.cc.
71 vl=
si_max(vl,(
int)strlen(ss));
99 sprintf(ss,
"%s[%d,%d]",
name,
i+1,
j+1);
103 vl=
si_max(vl,(
int)strlen(ss));
133 sprintf(ss,
"%s[%d,%d]",
name,
i+1,
j+1);
◆ ipPrint_RING()
static BOOLEAN ipPrint_RING |
( |
ring |
r | ) |
|
|
static |
Definition at line 193 of file ipprint.cc.
196 PrintS(
"polynomial ring, over a ");
200 else PrintS(
"ring (with zero-divisors)");
203 if (r->OrdSgn==1)
PrintS(
", global");
204 else if (r->MixedOrder==1)
PrintS(
", mixed");
◆ ipPrint_V()
◆ ipPrintBetti()
static void ipPrintBetti |
( |
leftv |
u | ) |
|
|
static |
◆ jjDBPRINT()
Definition at line 316 of file ipprint.cc.
322 print= (((int)((
long)(u->
Data()))) > 0);
◆ jjPRINT()
◆ jjPRINT_FORMAT()
Definition at line 389 of file ipprint.cc.
393 if ((u->
Typ()==
INTMAT_CMD)&&(strcmp((
char *)
v->Data(),
"betti")==0))
406 if (strlen(ns) == 3 && ns[1] ==
'2')
412 if (strcmp(ns,
"%l") == 0)
417 char* ns = (
char*)
omAlloc(strlen((
char*)
res->data) + 2);
418 strcpy(ns, (
char*)
res->data);
424 else if (strcmp(ns,
"%t") == 0)
430 ((
char*)
res->data)[strlen((
char*)
res->data) -1] =
'\0';
432 else if (strcmp(ns,
"%;") == 0)
439 else if (strcmp(ns,
"%p") == 0)
455 char* ns = (
char*)
omAlloc(strlen((
char*)
res->data) + 2);
456 strcpy(ns, (
char*)
res->data);
static BOOLEAN ipPrint_V(poly u)
void StringAppendS(const char *st)
static BOOLEAN ipPrint_CRING(coeffs r)
static BOOLEAN rField_is_Domain(const ring r)
void Print(leftv store=NULL, int spaces=0)
Called by type_cmd (e.g. "r;") or as default in jPRINT.
BOOLEAN iiExprArith1(leftv res, leftv a, int op)
static BOOLEAN ipPrint_MA(leftv u)
static BOOLEAN ipPrint_INTVEC(intvec *v)
Class used for (list of) interpreter objects.
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
void PrintS(const char *s)
#define omFreeSize(addr, size)
static BOOLEAN rField_is_Ring(const ring r)
matrix id_Module2Matrix(ideal mod, const ring R)
static FORCE_INLINE BOOLEAN nCoeff_is_Ring(const coeffs r)
static void ipPrintBetti(leftv u)
BOOLEAN jjPRINT(leftv res, leftv u)
#define IMATELEM(M, I, J)
static BOOLEAN ipPrint_RING(ring r)
char * String(void *d=NULL, BOOLEAN typed=FALSE, int dim=1)
Called for conversion to string (used by string(..), write(..),..)
void rWrite(ring r, BOOLEAN details)
void StringSetS(const char *st)
static int si_max(const int a, const int b)
void ipPrint_MA0(matrix m, const char *name)
void * atGet(idhdl root, const char *name, int t, void *defaultReturnValue)
void p_Vec2Polys(poly v, poly **p, int *len, const ring r)
char name(const Variable &v)
static FORCE_INLINE char * nCoeffName(const coeffs cf)
const Variable & v
< [in] a sqrfree bivariate poly
const CanonicalForm int s
ideal id_Copy(ideal h1, const ring r)
copy an ideal
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 BOOLEAN ipPrint_INTMAT(intvec *v)