40 if (
l->mode[0] !=
'\0' && (
strcmp(
l->mode,
"r") == 0))
46 else if (
strcmp(
l->mode,
"w") == 0) mode =
"w";
50 if (
l->name[0] ==
'\0')
68 char *filename=
l->name;
99 if (
l->name[0] !=
'\0')
110 if (
fp!=
NULL &&
l->name[0] !=
'\0')
118 Print(
"//Reading %ld chars\n",len);
131 WerrorS(
"read(<link>,<string>) expected");
146 tmp.data=(
void*)
"? ";
177 for(
int i=0;
i<
l->nr;
i++)
179 char *
s=
l->m[
i].String();
199 WerrorS(
"cannot convert to string");
214 else return "not ready";
219 else return "not ready";
221 else return "unknown status request";
240 while((*
p!=
NULL) && (*
p!=(
char*)1))
469 if (
fprintf(
fd,
"ideal temp_ideal = %s;\n",
472 if (
fputs(
"attrib(temp_ideal, \"isSB\", 1);\n",
fd) ==
EOF)
return TRUE;
489 (*list_of_libs)[0]=
name;
490 (*list_of_libs)[
MAX_LIBS-1]=(
char*)1;
496 while (((*
p)!=
NULL)&&((*
p!=(
char*)1)))
541 while (*
pstr !=
'\0')
555 char *
pstr =
pi->data.s.body;
557 while (*
pstr !=
'\0')
569 char *
rhs =
h->String();
599 if (
l->name[0] ==
'\0')
601 WerrorS(
"getdump: Can not get dump from stdin");
static BOOLEAN slGetDumpAscii(si_link l)
static BOOLEAN DumpAscii(FILE *fd, idhdl h, char ***list_of_libs)
static const char * GetIdString(idhdl h)
static BOOLEAN CollectLibs(char *name, char ***list_of_libs)
static BOOLEAN DumpNCring(FILE *fd, idhdl h)
static leftv slReadAscii2(si_link l, leftv pr)
static BOOLEAN slCloseAscii(si_link l)
EXTERN_VAR si_link_extension si_link_root
static int DumpRhs(FILE *fd, idhdl h)
static BOOLEAN slDumpAscii(si_link l)
const char * slStatusAscii(si_link l, const char *request)
static BOOLEAN DumpAsciiMaps(FILE *fd, idhdl h, idhdl rhdl)
static BOOLEAN slWriteAscii(si_link l, leftv v)
static BOOLEAN DumpAsciiIdhdl(FILE *fd, idhdl h, char ***list_of_libs)
static leftv slReadAscii(si_link l)
static BOOLEAN slOpenAscii(si_link l, short flag, leftv)
static BOOLEAN DumpQring(FILE *fd, idhdl h)
Class used for (list of) interpreter objects.
@ n_algExt
used for all algebraic extensions, i.e., the top-most extension in an extension tower is algebraic
static FORCE_INLINE int n_GetChar(const coeffs r)
Return the characteristic of the coeff. domain.
const CanonicalForm int s
const Variable & v
< [in] a sqrfree bivariate poly
char name(const Variable &v)
void WerrorS(const char *s)
FILE * myfopen(const char *path, const char *mode)
size_t myfread(void *ptr, size_t size, size_t nmemb, FILE *stream)
char *(* fe_fgets_stdin)(const char *pr, char *s, int size)
BOOLEAN newFile(char *fname)
const char * Tok2Cmdname(int tok)
EXTERN_VAR omBin sleftv_bin
char * iiStringMatrix(matrix im, int dim, const ring r, char ch)
void p_Write(poly p, ring lmRing, ring tailRing)
VAR ring currRing
Widely used global variable which specifies the current polynomial ring for Singular interpreter and ...
void StringSetS(const char *st)
static BOOLEAN rIsPluralRing(const ring r)
we must always have this test!
static BOOLEAN rIsLPRing(const ring r)
static BOOLEAN rIsNCRing(const ring r)
int status int void * buf
VAR omBin s_si_link_extension_bin
#define SI_LINK_W_OPEN_P(l)
#define SI_LINK_SET_CLOSE_P(l)
#define SI_LINK_R_OPEN_P(l)
#define SI_LINK_SET_OPEN_P(l, flag)