15#include "singularconfig.h"
76 for (
int i = 0;
i < n;
i++)
94 for (
int i = 0;
i < n;
i++)
139 for (
int i = 0;
i < n;
i++)
193 WerrorS(
"ring with Z/p coeffs required");
230 l->data = (
void*)
NULL;
316 res->data=(
void*)(
long)
A->m;
323 res->data=(
void*)(
long)
A->n;
355 p->iiAddCproc(
"spasm.so",
"spasm_rref",
FALSE,
rref);
363 PrintS(
"no spasm support\n");
int setBlackboxStuff(blackbox *bb, const char *n)
define a new type
BOOLEAN blackboxDefaultOp3(int, leftv, leftv, leftv, leftv)
default procedure blackboxDefaultOp3, to be called as "default:" branch
BOOLEAN blackboxDefaultOp1(int op, leftv l, leftv r)
default procedure blackboxDefaultOp1, to be called as "default:" branch
Class used for (list of) interpreter objects.
static FORCE_INLINE number n_Init(long i, const coeffs r)
a number representing i in the given coeff field/ring r
const CanonicalForm int const CFList const Variable & y
const Variable & v
< [in] a sqrfree bivariate poly
void WerrorS(const char *s)
matrix mpNew(int r, int c)
create a r x c zero-matrix
#define MATELEM(mat, i, j)
1-based access to matrix
static number & pGetCoeff(poly p)
return an alias to the leading coefficient of p assumes that p != NULL NOTE: not copy
poly p_ISet(long i, const ring r)
returns the poly representing the integer i
static poly p_Add_q(poly p, poly q, const ring r)
static unsigned long p_SetComp(poly p, unsigned long c, ring r)
VAR ring currRing
Widely used global variable which specifies the current polynomial ring for Singular interpreter and ...
void PrintS(const char *s)
static BOOLEAN rField_is_Zp(const ring r)
int status int void * buf
ideal idInit(int idsize, int rank)
initialise an ideal / module
int SI_MOD_INIT() sispasm(SModulFunctions *psModulFunctions)