My Project
Macros | Functions | Variables
asciiLink.cc File Reference
#include "kernel/mod2.h"
#include "misc/options.h"
#include "Singular/tok.h"
#include "Singular/subexpr.h"
#include "Singular/ipshell.h"
#include "Singular/ipid.h"
#include "Singular/fevoices.h"
#include "kernel/oswrapper/feread.h"
#include "Singular/links/silink.h"

Go to the source code of this file.

Macros

#define MAX_LIBS   256
 

Functions

static BOOLEAN DumpAscii (FILE *fd, idhdl h, char ***list_of_libs)
 
static BOOLEAN DumpAsciiIdhdl (FILE *fd, idhdl h, char ***list_of_libs)
 
static const char * GetIdString (idhdl h)
 
static int DumpRhs (FILE *fd, idhdl h)
 
static BOOLEAN DumpQring (FILE *fd, idhdl h)
 
static BOOLEAN DumpNCring (FILE *fd, idhdl h)
 
static BOOLEAN DumpAsciiMaps (FILE *fd, idhdl h, idhdl rhdl)
 
static BOOLEAN CollectLibs (char *name, char ***list_of_libs)
 
BOOLEAN slOpenAscii (si_link l, short flag, leftv)
 
BOOLEAN slCloseAscii (si_link l)
 
leftv slReadAscii2 (si_link l, leftv pr)
 
leftv slReadAscii (si_link l)
 
BOOLEAN slWriteAscii (si_link l, leftv v)
 
const char * slStatusAscii (si_link l, const char *request)
 
BOOLEAN slDumpAscii (si_link l)
 
BOOLEAN slGetDumpAscii (si_link l)
 
void slStandardInit ()
 

Variables

EXTERN_VAR si_link_extension si_link_root
 

Macro Definition Documentation

◆ MAX_LIBS

#define MAX_LIBS   256

Function Documentation

◆ CollectLibs()

static BOOLEAN CollectLibs ( char *  name,
char ***  list_of_libs 
)
static

Definition at line 468 of file asciiLink.cc.

469{
470 if (*list_of_libs==NULL)
471 {
472 #define MAX_LIBS 256
473 (*list_of_libs)=(char**)omAlloc0(MAX_LIBS*sizeof(char**));
474 (*list_of_libs)[0]=name;
475 (*list_of_libs)[MAX_LIBS-1]=(char*)1;
476 return FALSE;
477 }
478 else
479 {
480 char **p=*list_of_libs;
481 while (((*p)!=NULL)&&((*p!=(char*)1)))
482 {
483 if (strcmp((*p),name)==0) return FALSE;
484 p++;
485 }
486 if (*p==(char*)1)
487 {
488 WerrorS("too many libs");
489 return TRUE;
490 }
491 else
492 {
493 *p=name;
494 }
495 }
496 return FALSE;
497}
#define NULL
Definition: auxiliary.h:104
#define TRUE
Definition: auxiliary.h:100
#define FALSE
Definition: auxiliary.h:96
int p
Definition: cfModGcd.cc:4080
char name(const Variable &v)
Definition: factory.h:196
void WerrorS(const char *s)
Definition: feFopen.cc:24
#define omAlloc0(size)
Definition: omAllocDecl.h:211

◆ DumpAscii()

static BOOLEAN DumpAscii ( FILE *  fd,
idhdl  h,
char ***  list_of_libs 
)
static

Definition at line 240 of file asciiLink.cc.

241{
242 if (h == NULL) return FALSE;
243
244 if (DumpAscii(fd, IDNEXT(h),list_of_libs)) return TRUE;
245
246 // need to set the ring before writing it, otherwise we get in
247 // trouble with minpoly
248 if (IDTYP(h) == RING_CMD)
249 rSetHdl(h);
250
251 if (DumpAsciiIdhdl(fd, h,list_of_libs)) return TRUE;
252
253 if (IDTYP(h) == RING_CMD)
254 return DumpAscii(fd, IDRING(h)->idroot,list_of_libs);
255 else
256 return FALSE;
257}
@ RING_CMD
Definition: grammar.cc:281
#define IDNEXT(a)
Definition: ipid.h:118
#define IDRING(a)
Definition: ipid.h:127
#define IDTYP(a)
Definition: ipid.h:119
void rSetHdl(idhdl h)
Definition: ipshell.cc:5210
STATIC_VAR Poly * h
Definition: janet.cc:971
int status int fd
Definition: si_signals.h:59

◆ DumpAsciiIdhdl()

static BOOLEAN DumpAsciiIdhdl ( FILE *  fd,
idhdl  h,
char ***  list_of_libs 
)
static

Definition at line 288 of file asciiLink.cc.

289{
290 const char *type_str = GetIdString(h);
291 int type_id = IDTYP(h);
292
293 if (type_id == PACKAGE_CMD)
294 {
295 if (strcmp(IDID(h),"Top")==0) return FALSE; // do not dump "Top"
296 if (IDPACKAGE(h)->language==LANG_SINGULAR) return FALSE;
297 if (IDPACKAGE(h)->language==LANG_MIX) return FALSE;
298 }
299 if (type_id == CRING_CMD)
300 {
301 // do not dump the default CRINGs:
302 if (strcmp(IDID(h),"QQ")==0) return FALSE;
303 if (strcmp(IDID(h),"ZZ")==0) return FALSE;
304 #ifdef SINGULAR_4_2
305 if (strcmp(IDID(h),"AE")==0) return FALSE;
306 if (strcmp(IDID(h),"QAE")==0) return FALSE;
307 #endif
308 }
309
310 // we do not throw an error if a wrong type was attempted to be dumped
311 if (type_str == NULL)
312 return FALSE;
313
314 // handle nc-rings separately
315 if ((type_id == RING_CMD)&&(rIsNCRing(IDRING(h))))
316 return DumpNCring(fd,h);
317
318 // handle qrings separately
319 if ((type_id == RING_CMD)&&(IDRING(h)->qideal!=NULL))
320 return DumpQring(fd, h);
321
322 // C-proc not to be dumped
323 if ((type_id == PROC_CMD) && (IDPROC(h)->language == LANG_C))
324 return FALSE;
325
326 // handle libraries
327 if ((type_id == PROC_CMD)
328 && (IDPROC(h)->language == LANG_SINGULAR)
329 && (IDPROC(h)->libname!=NULL))
330 return CollectLibs(IDPROC(h)->libname,list_of_libs);
331
332 // put type and name
333 if (fprintf(fd, "%s %s", type_str, IDID(h)) == EOF)
334 return TRUE;
335 // for matricies, append the dimension
336 if (type_id == MATRIX_CMD)
337 {
338 ideal id = IDIDEAL(h);
339 if (fprintf(fd, "[%d][%d]", id->nrows, id->ncols)== EOF) return TRUE;
340 }
341 else if (type_id == INTMAT_CMD)
342 {
343 if (fprintf(fd, "[%d][%d]", IDINTVEC(h)->rows(), IDINTVEC(h)->cols())
344 == EOF) return TRUE;
345 }
346 else if (type_id == SMATRIX_CMD)
347 {
348 ideal id = IDIDEAL(h);
349 if (fprintf(fd, "[%d][%d]", (int)id->rank, IDELEMS(id))== EOF) return TRUE;
350 }
351
352 if (type_id == PACKAGE_CMD)
353 {
354 return (fputs(";\n",fd) == EOF);
355 }
356
357 // write the equal sign
358 if (fputs(" = ",fd) == EOF) return TRUE;
359
360 // and the right hand side
361 if (DumpRhs(fd, h) == EOF) return TRUE;
362
363 // semicolon und tschuess
364 if (fputs(";\n",fd) == EOF) return TRUE;
365
366 return FALSE;
367}
@ MATRIX_CMD
Definition: grammar.cc:286
@ PROC_CMD
Definition: grammar.cc:280
@ INTMAT_CMD
Definition: grammar.cc:279
@ SMATRIX_CMD
Definition: grammar.cc:291
#define IDPROC(a)
Definition: ipid.h:140
#define IDINTVEC(a)
Definition: ipid.h:128
#define IDIDEAL(a)
Definition: ipid.h:133
#define IDID(a)
Definition: ipid.h:122
#define IDPACKAGE(a)
Definition: ipid.h:139
static BOOLEAN rIsNCRing(const ring r)
Definition: ring.h:421
#define IDELEMS(i)
Definition: simpleideals.h:23
@ LANG_SINGULAR
Definition: subexpr.h:22
@ LANG_MIX
Definition: subexpr.h:22
@ LANG_C
Definition: subexpr.h:22
@ CRING_CMD
Definition: tok.h:56
@ PACKAGE_CMD
Definition: tok.h:149

◆ DumpAsciiMaps()

static BOOLEAN DumpAsciiMaps ( FILE *  fd,
idhdl  h,
idhdl  rhdl 
)
static

Definition at line 259 of file asciiLink.cc.

260{
261 if (h == NULL) return FALSE;
262 if (DumpAsciiMaps(fd, IDNEXT(h), rhdl)) return TRUE;
263
264 if (IDTYP(h) == RING_CMD)
265 return DumpAsciiMaps(fd, IDRING(h)->idroot, h);
266 else if (IDTYP(h) == MAP_CMD)
267 {
268 char *rhs;
269 rSetHdl(rhdl);
270 rhs = h->String();
271
272 if (fprintf(fd, "setring %s;\n", IDID(rhdl)) == EOF) return TRUE;
273 if (fprintf(fd, "%s %s = %s, %s;\n", Tok2Cmdname(MAP_CMD), IDID(h),
274 IDMAP(h)->preimage, rhs) == EOF)
275 {
276 omFree(rhs);
277 return TRUE;
278 }
279 else
280 {
281 omFree(rhs);
282 return FALSE;
283 }
284 }
285 else return FALSE;
286}
const char * Tok2Cmdname(int tok)
Definition: gentable.cc:140
@ MAP_CMD
Definition: grammar.cc:285
#define IDMAP(a)
Definition: ipid.h:135
#define omFree(addr)
Definition: omAllocDecl.h:261

◆ DumpNCring()

static BOOLEAN DumpNCring ( FILE *  fd,
idhdl  h 
)
static

Definition at line 419 of file asciiLink.cc.

420{
421 char *ring_str = h->String();
422 ring r=IDRING(h);
423
424 if (rIsPluralRing(r))
425 {
426 if (fprintf(fd, "ring temp_ring = %s;\n", ring_str)
427 == EOF) return TRUE;
428 if (fprintf(fd, "ideal temp_C = %s;\n",
429 iiStringMatrix((matrix) r->GetNC()->C, 2, r, n_GetChar(r->cf)))
430 == EOF) return TRUE;
431 if (fprintf(fd, "ideal temp_D = %s;\n",
432 iiStringMatrix((matrix) r->GetNC()->D, 2, r, n_GetChar(r->cf)))
433 == EOF) return TRUE;
434 if (fprintf(fd, "def %s = nc_algebra(temp_C,temp_D);\n",IDID(h)) == EOF)
435 return TRUE;
436 if (fputs("kill temp_ring;\n",fd) == EOF) return TRUE;
437 }
438 if (rIsLPRing(r))
439 {
440 //if (fprintf(fd, "ring %s = %s;\n", IDID(h), ring_str) == EOF) return TRUE;
441 //if (fprintf(fd, "attrib(%s,\"isLetterplaceRing\",%d);\n",IDID(h),r->isLPring) ==EOF) return TRUE;
442 Warn("cannot write LP ring %s",IDID(h));
443 return TRUE;
444 }
445 omFree(ring_str);
446 return FALSE;
447}
static FORCE_INLINE int n_GetChar(const coeffs r)
Return the characteristic of the coeff. domain.
Definition: coeffs.h:445
#define Warn
Definition: emacs.cc:77
char * iiStringMatrix(matrix im, int dim, const ring r, char ch)
Definition: matpol.cc:855
static BOOLEAN rIsPluralRing(const ring r)
we must always have this test!
Definition: ring.h:400
static BOOLEAN rIsLPRing(const ring r)
Definition: ring.h:411

◆ DumpQring()

static BOOLEAN DumpQring ( FILE *  fd,
idhdl  h 
)
static

Definition at line 449 of file asciiLink.cc.

450{
451 char *ring_str = h->String();
452 ring r=IDRING(h);
453 if (fprintf(fd, "ring temp_ring = %s;\n", ring_str) == EOF) return TRUE;
454 if (fprintf(fd, "ideal temp_ideal = %s;\n",
455 iiStringMatrix((matrix) r->qideal, 1, currRing, n_GetChar(r->cf)))
456 == EOF) return TRUE;
457 if (fputs("attrib(temp_ideal, \"isSB\", 1);\n",fd) == EOF) return TRUE;
458 if (fprintf(fd, "qring %s = temp_ideal;\n",IDID(h)) == EOF)
459 return TRUE;
460 if (fputs("kill temp_ring;\n",fd) == EOF) return TRUE;
461 else
462 {
463 omFree(ring_str);
464 return FALSE;
465 }
466}
VAR ring currRing
Widely used global variable which specifies the current polynomial ring for Singular interpreter and ...
Definition: polys.cc:13

◆ DumpRhs()

static int DumpRhs ( FILE *  fd,
idhdl  h 
)
static

Definition at line 500 of file asciiLink.cc.

501{
502 int type_id = IDTYP(h);
503
504 if (type_id == LIST_CMD)
505 {
506 lists l = IDLIST(h);
507 int i, nl = l->nr;
508
509 fputs("list(",fd);
510
511 for (i=0; i<nl; i++)
512 {
513 if (DumpRhs(fd, (idhdl) &(l->m[i])) == EOF) return EOF;
514 fputs(",",fd);
515 }
516 if (nl > 0)
517 {
518 if (DumpRhs(fd, (idhdl) &(l->m[nl])) == EOF) return EOF;
519 }
520 fputs(")",fd);
521 }
522 else if (type_id == STRING_CMD)
523 {
524 char *pstr = IDSTRING(h);
525 fputc('"', fd);
526 while (*pstr != '\0')
527 {
528 if (*pstr == '"' || *pstr == '\\') fputc('\\', fd);
529 fputc(*pstr, fd);
530 pstr++;
531 }
532 fputc('"', fd);
533 }
534 else if (type_id == PROC_CMD)
535 {
536 procinfov pi = IDPROC(h);
537 if (pi->language == LANG_SINGULAR)
538 {
539 /* pi-Libname==NULL */
540 char *pstr = pi->data.s.body;
541 fputc('"', fd);
542 while (*pstr != '\0')
543 {
544 if (*pstr == '"' || *pstr == '\\') fputc('\\', fd);
545 fputc(*pstr, fd);
546 pstr++;
547 }
548 fputc('"', fd);
549 }
550 else fputs("(null)", fd);
551 }
552 else
553 {
554 char *rhs = h->String();
555
556 if (rhs == NULL) return EOF;
557
558 BOOLEAN need_klammer=FALSE;
559 if (type_id == INTVEC_CMD) { fputs("intvec(",fd);need_klammer=TRUE; }
560 else if (type_id == IDEAL_CMD) { fputs("ideal(",fd);need_klammer=TRUE; }
561 else if ((type_id == MODUL_CMD)||(type_id == SMATRIX_CMD))
562 { fputs("module(",fd);need_klammer=TRUE; }
563 else if (type_id == BIGINT_CMD) { fputs("bigint(",fd);need_klammer=TRUE; }
564
565 if (fputs(rhs,fd) == EOF) return EOF;
566 omFree(rhs);
567
568 if ((type_id == RING_CMD) &&
569 IDRING(h)->cf->type==n_algExt)
570 {
571 StringSetS("");
572 p_Write(IDRING(h)->cf->extRing->qideal->m[0],IDRING(h)->cf->extRing);
573 rhs = StringEndS();
574 if (fprintf(fd, "; minpoly = %s", rhs) == EOF) { omFree(rhs); return EOF;}
575 omFree(rhs);
576 }
577 else if (need_klammer) fputc(')',fd);
578 }
579 return 1;
580}
int BOOLEAN
Definition: auxiliary.h:87
int l
Definition: cfEzgcd.cc:100
int i
Definition: cfEzgcd.cc:132
CanonicalForm cf
Definition: cfModGcd.cc:4085
Definition: idrec.h:35
Definition: lists.h:24
@ n_algExt
used for all algebraic extensions, i.e., the top-most extension in an extension tower is algebraic
Definition: coeffs.h:36
@ IDEAL_CMD
Definition: grammar.cc:284
@ MODUL_CMD
Definition: grammar.cc:287
#define IDSTRING(a)
Definition: ipid.h:136
#define IDLIST(a)
Definition: ipid.h:137
#define pstr
Definition: libparse.cc:1246
#define pi
Definition: libparse.cc:1145
void p_Write(poly p, ring lmRing, ring tailRing)
Definition: polys0.cc:342
void StringSetS(const char *st)
Definition: reporter.cc:128
char * StringEndS()
Definition: reporter.cc:151
@ BIGINT_CMD
Definition: tok.h:38
@ LIST_CMD
Definition: tok.h:118
@ INTVEC_CMD
Definition: tok.h:101
@ STRING_CMD
Definition: tok.h:185

◆ GetIdString()

static const char * GetIdString ( idhdl  h)
static

Definition at line 369 of file asciiLink.cc.

370{
371 int type = IDTYP(h);
372
373 switch(type)
374 {
375 case LIST_CMD:
376 //{
377 //
378 //
379 // lists l = IDLIST(h);
380 // int i, nl = l->nr + 1;
381//
382 // for (i=0; i<nl; i++)
383 // if (GetIdString((idhdl) &(l->m[i])) == NULL) return NULL;
384 // break;
385 //}
386 case CRING_CMD:
387 #ifdef SINGULAR_4_2
388 case CNUMBER_CMD:
389 case CMATRIX_CMD:
390 #endif
391 case BIGINT_CMD:
392 case PACKAGE_CMD:
393 case INT_CMD:
394 case INTVEC_CMD:
395 case INTMAT_CMD:
396 case STRING_CMD:
397 case RING_CMD:
398 case QRING_CMD:
399 case PROC_CMD:
400 case NUMBER_CMD:
401 case POLY_CMD:
402 case IDEAL_CMD:
403 case VECTOR_CMD:
404 case MODUL_CMD:
405 case MATRIX_CMD:
406 case SMATRIX_CMD:
407 return Tok2Cmdname(type);
408
409 case MAP_CMD:
410 case LINK_CMD:
411 return NULL;
412
413 default:
414 Warn("Error dump data of type %s", Tok2Cmdname(IDTYP(h)));
415 return NULL;
416 }
417}
@ VECTOR_CMD
Definition: grammar.cc:292
@ NUMBER_CMD
Definition: grammar.cc:288
@ POLY_CMD
Definition: grammar.cc:289
@ CMATRIX_CMD
Definition: tok.h:46
@ CNUMBER_CMD
Definition: tok.h:47
@ LINK_CMD
Definition: tok.h:117
@ QRING_CMD
Definition: tok.h:158
@ INT_CMD
Definition: tok.h:96

◆ slCloseAscii()

BOOLEAN slCloseAscii ( si_link  l)

Definition at line 96 of file asciiLink.cc.

97{
99 if (l->name[0] != '\0')
100 {
101 return (fclose((FILE *)l->data)!=0);
102 }
103 return FALSE;
104}

◆ slDumpAscii()

BOOLEAN slDumpAscii ( si_link  l)

Definition at line 211 of file asciiLink.cc.

212{
213 FILE *fd = (FILE *) l->data;
214 idhdl h = IDROOT, rh = currRingHdl;
215 char **list_of_libs=NULL;
216 BOOLEAN status = DumpAscii(fd, h, &list_of_libs);
217
218 if (! status ) status = DumpAsciiMaps(fd, h, NULL);
219
220 if (currRingHdl != rh) rSetHdl(rh);
221 fprintf(fd, "option(set, intvec(%d, %d));\n", si_opt_1, si_opt_2);
222 char **p=list_of_libs;
223 if (p!=NULL)
224 {
225 while((*p!=NULL) && (*p!=(char*)1))
226 {
227 fprintf(fd,"load(\"%s\",\"try\");\n",*p);
228 p++;
229 }
230 omFree(list_of_libs);
231 }
232 fputs("RETURN();\n",fd);
233 fflush(fd);
234
235 return status;
236}
VAR idhdl currRingHdl
Definition: ipid.cc:59
#define IDROOT
Definition: ipid.h:19
VAR unsigned si_opt_2
Definition: options.c:6
VAR unsigned si_opt_1
Definition: options.c:5
int * status
Definition: si_signals.h:51

◆ slGetDumpAscii()

BOOLEAN slGetDumpAscii ( si_link  l)

Definition at line 582 of file asciiLink.cc.

583{
584 if (l->name[0] == '\0')
585 {
586 WerrorS("getdump: Can not get dump from stdin");
587 return TRUE;
588 }
589 else
590 {
591 BOOLEAN status = newFile(l->name);
592 if (status)
593 return TRUE;
594
595 int old_echo=si_echo;
596 si_echo=0;
597
598 status=yyparse();
599
600 si_echo=old_echo;
601
602 if (status)
603 return TRUE;
604 else
605 {
606 // lets reset the file pointer to the end to reflect that
607 // we are finished with reading
608 FILE *f = (FILE *) l->data;
609 fseek(f, 0L, SEEK_END);
610 return FALSE;
611 }
612 }
613}
f
Definition: cfModGcd.cc:4083
VAR int si_echo
Definition: febase.cc:35
BOOLEAN newFile(char *fname)
Definition: fevoices.cc:127
#define SEEK_END
Definition: mod2.h:109
int yyparse(void)
Definition: readcf.cc:945

◆ slOpenAscii()

BOOLEAN slOpenAscii ( si_link  l,
short  flag,
leftv   
)

Definition at line 35 of file asciiLink.cc.

36{
37 const char *mode;
38 if (flag & SI_LINK_OPEN)
39 {
40 if (l->mode[0] != '\0' && (strcmp(l->mode, "r") == 0))
41 flag = SI_LINK_READ;
42 else flag = SI_LINK_WRITE;
43 }
44
45 if (flag == SI_LINK_READ) mode = "r";
46 else if (strcmp(l->mode, "w") == 0) mode = "w";
47 else mode = "a";
48
49
50 if (l->name[0] == '\0')
51 {
52 // stdin or stdout
53 if (flag == SI_LINK_READ)
54 {
55 l->data = (void *) stdin;
56 mode = "r";
57 }
58 else
59 {
60 l->data = (void *) stdout;
61 mode = "a";
62 }
63 }
64 else
65 {
66 // normal ascii link to a file
67 FILE *outfile;
68 char *filename=l->name;
69
70 if(filename[0]=='>')
71 {
72 if (filename[1]=='>')
73 {
74 filename+=2;
75 mode = "a";
76 }
77 else
78 {
79 filename++;
80 mode="w";
81 }
82 }
83 outfile=myfopen(filename,mode);
84 if (outfile!=NULL)
85 l->data = (void *) outfile;
86 else
87 return TRUE;
88 }
89
90 omFree(l->mode);
91 l->mode = omStrDup(mode);
92 SI_LINK_SET_OPEN_P(l, flag);
93 return FALSE;
94}
FILE * myfopen(const char *path, const char *mode)
Definition: feFopen.cc:167
#define omStrDup(s)
Definition: omAllocDecl.h:263

◆ slReadAscii()

leftv slReadAscii ( si_link  l)

Definition at line 141 of file asciiLink.cc.

142{
143 sleftv tmp;
144 memset(&tmp,0,sizeof(sleftv));
145 tmp.rtyp=STRING_CMD;
146 tmp.data=(void*) "? ";
147 return slReadAscii2(l,&tmp);
148}
Class used for (list of) interpreter objects.
Definition: subexpr.h:83
int rtyp
Definition: subexpr.h:91
void * data
Definition: subexpr.h:88

◆ slReadAscii2()

leftv slReadAscii2 ( si_link  l,
leftv  pr 
)

Definition at line 106 of file asciiLink.cc.

107{
108 FILE * fp=(FILE *)l->data;
109 char * buf=NULL;
110 if (fp!=NULL && l->name[0] != '\0')
111 {
112 fseek(fp,0L,SEEK_END);
113 long len=ftell(fp);
114 if (len<0) len=0;
115 fseek(fp,0L,SEEK_SET);
116 buf=(char *)omAlloc((int)len+1);
117 if (BVERBOSE(V_READING))
118 Print("//Reading %ld chars\n",len);
119 if (len>0) myfread( buf, len, 1, fp);
120 buf[len]='\0';
121 }
122 else
123 {
124 if (pr->Typ()==STRING_CMD)
125 {
126 buf=(char *)omAlloc(80);
127 fe_fgets_stdin((char *)pr->Data(),buf,80);
128 }
129 else
130 {
131 WerrorS("read(<link>,<string>) expected");
132 buf=omStrDup("");
133 }
134 }
136 v->rtyp=STRING_CMD;
137 v->data=buf;
138 return v;
139}
if(both_non_zero==0)
Definition: cfEzgcd.cc:91
CanonicalForm fp
Definition: cfModGcd.cc:4104
int Typ()
Definition: subexpr.cc:1011
void * Data()
Definition: subexpr.cc:1154
#define Print
Definition: emacs.cc:80
const Variable & v
< [in] a sqrfree bivariate poly
Definition: facBivar.h:39
fq_nmod_t buf
Definition: facHensel.cc:101
size_t myfread(void *ptr, size_t size, size_t nmemb, FILE *stream)
Definition: feFopen.cc:195
char *(* fe_fgets_stdin)(const char *pr, char *s, int size)
Definition: feread.cc:30
EXTERN_VAR omBin sleftv_bin
Definition: ipid.h:145
#define SEEK_SET
Definition: mod2.h:113
#define omAlloc(size)
Definition: omAllocDecl.h:210
#define omAlloc0Bin(bin)
Definition: omAllocDecl.h:206
#define BVERBOSE(a)
Definition: options.h:34
#define V_READING
Definition: options.h:45
sleftv * leftv
Definition: structs.h:62

◆ slStandardInit()

void slStandardInit ( )

Definition at line 616 of file asciiLink.cc.

617{
618 si_link_extension s;
622 si_link_root->Kill=NULL;
629 si_link_root->type="ASCII";
630 s = si_link_root;
631 s->next = NULL;
632}
const CanonicalForm int s
Definition: facAbsFact.cc:51

◆ slStatusAscii()

const char * slStatusAscii ( si_link  l,
const char *  request 
)

Definition at line 194 of file asciiLink.cc.

195{
196 if (strcmp(request, "read") == 0)
197 {
198 if (SI_LINK_R_OPEN_P(l)) return "ready";
199 else return "not ready";
200 }
201 else if (strcmp(request, "write") == 0)
202 {
203 if (SI_LINK_W_OPEN_P(l)) return "ready";
204 else return "not ready";
205 }
206 else return "unknown status request";
207}

◆ slWriteAscii()

BOOLEAN slWriteAscii ( si_link  l,
leftv  v 
)

Definition at line 150 of file asciiLink.cc.

151{
152 FILE *outfile=(FILE *)l->data;
153 BOOLEAN err=FALSE;
154 char *s;
155 while (v!=NULL)
156 {
157 switch(v->Typ())
158 {
159 case IDEAL_CMD:
160 case MODUL_CMD:
161 case MATRIX_CMD:
162 {
163 ideal I=(ideal)v->Data();
164 for(int i=0;i<IDELEMS(I);i++)
165 {
166 char *s=pString(I->m[i]);
167 fwrite(s,strlen(s),1,outfile);
168 omFree(s);
169 if (i<IDELEMS(I)-1) fwrite(",",1,1,outfile);
170 }
171 break;
172 }
173 default:
174 s = v->String();
175 // free v ??
176 if (s!=NULL)
177 {
178 fputs(s,outfile);
179 fputc('\n',outfile);
180 omFree((ADDRESS)s);
181 }
182 else
183 {
184 WerrorS("cannot convert to string");
185 err=TRUE;
186 }
187 }
188 v = v->next;
189 }
190 fflush(outfile);
191 return err;
192}
void * ADDRESS
Definition: auxiliary.h:119
while(k > 0)
Definition: cfEzgcd.cc:133
Variable next() const
Definition: factory.h:153
char * pString(poly p)
Definition: polys.h:306

Variable Documentation

◆ si_link_root

EXTERN_VAR si_link_extension si_link_root

Definition at line 32 of file asciiLink.cc.