Changeset d30a399 in git for Singular/links/silink.cc
- Timestamp:
- Oct 19, 2012, 9:59:20 AM (10 years ago)
- Branches:
- (u'jengelh-datetime', 'ceac47cbc86fe4a15902392bdbb9bd2ae0ea02c6')(u'spielwiese', 'a800fe4b3e9d37a38c5a10cc0ae9dfa0c15a4ee6')
- Children:
- 8710ff0734063b049b29453b8d06161041fffbc7b37b3984a12e1552c7bafc9fd5a7849240ea7980
- Parents:
- f2359093b446e8c68c3bda0f0484c4dbf7bd93a8
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
Singular/links/silink.cc
rf23590 rd30a399 236 236 leftv slRead(si_link l, leftv a) 237 237 { 238 char *mode;239 238 leftv v = NULL; 240 239 if( ! SI_LINK_R_OPEN_P(l)) // open r ? … … 381 380 382 381 /* =============== ASCII ============================================= */ 383 BOOLEAN slOpenAscii(si_link l, short flag, leftv h)382 BOOLEAN slOpenAscii(si_link l, short flag, leftv) 384 383 { 385 384 const char *mode; … … 546 545 547 546 if (currRingHdl != rh) rSetHdl(rh); 548 fprintf(fd, "option(set, intvec(%d, %d));\n", test, verbose);547 fprintf(fd, "option(set, intvec(%d, %d));\n", si_opt_1, si_opt_2); 549 548 fprintf(fd, "RETURN();\n"); 550 549 fflush(fd); … … 665 664 lists l = IDLIST(h); 666 665 int i, nl = l->nr + 1; 667 char *name;668 666 669 667 for (i=0; i<nl; i++) … … 740 738 else if (type_id == STRING_CMD) 741 739 { 742 char *pstr = IDSTRING(h) , c;740 char *pstr = IDSTRING(h); 743 741 fputc('"', fd); 744 742 while (*pstr != '\0') … … 753 751 { 754 752 procinfov pi = IDPROC(h); 755 if (pi->language == LANG_SINGULAR) { 753 if (pi->language == LANG_SINGULAR) 754 { 756 755 if( pi->data.s.body==NULL) iiGetLibProcBuffer(pi); 757 char *pstr = pi->data.s.body , c;756 char *pstr = pi->data.s.body; 758 757 fputc('"', fd); 759 while (*pstr != '\0') { 758 while (*pstr != '\0') 759 { 760 760 if (*pstr == '"' || *pstr == '\\') fputc('\\', fd); 761 761 fputc(*pstr, fd); … … 763 763 } 764 764 fputc('"', fd); 765 } else fputs("(null)", fd); 765 } 766 else fputs("(null)", fd); 766 767 } 767 768 else
Note: See TracChangeset
for help on using the changeset viewer.