Changeset d30a399 in git for Singular/links/silink.cc


Ignore:
Timestamp:
Oct 19, 2012, 9:59:20 AM (10 years ago)
Author:
Hans Schoenemann <hannes@…>
Branches:
(u'jengelh-datetime', 'ceac47cbc86fe4a15902392bdbb9bd2ae0ea02c6')(u'spielwiese', 'a800fe4b3e9d37a38c5a10cc0ae9dfa0c15a4ee6')
Children:
8710ff0734063b049b29453b8d06161041fffbc7b37b3984a12e1552c7bafc9fd5a7849240ea7980
Parents:
f2359093b446e8c68c3bda0f0484c4dbf7bd93a8
Message:
chg: option handling: test,verbose renamed to si_opt_1,si_opt_2
File:
1 edited

Legend:

Unmodified
Added
Removed
  • Singular/links/silink.cc

    rf23590 rd30a399  
    236236leftv slRead(si_link l, leftv a)
    237237{
    238   char *mode;
    239238  leftv v = NULL;
    240239  if( ! SI_LINK_R_OPEN_P(l)) // open r ?
     
    381380
    382381/* =============== ASCII ============================================= */
    383 BOOLEAN slOpenAscii(si_link l, short flag, leftv h)
     382BOOLEAN slOpenAscii(si_link l, short flag, leftv)
    384383{
    385384  const char *mode;
     
    546545
    547546  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);
    549548  fprintf(fd, "RETURN();\n");
    550549  fflush(fd);
     
    665664        lists l = IDLIST(h);
    666665        int i, nl = l->nr + 1;
    667         char *name;
    668666
    669667        for (i=0; i<nl; i++)
     
    740738  else  if (type_id == STRING_CMD)
    741739  {
    742     char *pstr = IDSTRING(h), c;
     740    char *pstr = IDSTRING(h);
    743741    fputc('"', fd);
    744742    while (*pstr != '\0')
     
    753751  {
    754752    procinfov pi = IDPROC(h);
    755     if (pi->language == LANG_SINGULAR) {
     753    if (pi->language == LANG_SINGULAR)
     754    {
    756755      if( pi->data.s.body==NULL) iiGetLibProcBuffer(pi);
    757       char *pstr = pi->data.s.body, c;
     756      char *pstr = pi->data.s.body;
    758757      fputc('"', fd);
    759       while (*pstr != '\0') {
     758      while (*pstr != '\0')
     759      {
    760760        if (*pstr == '"' || *pstr == '\\') fputc('\\', fd);
    761761        fputc(*pstr, fd);
     
    763763      }
    764764      fputc('"', fd);
    765     } else fputs("(null)", fd);
     765    }
     766    else fputs("(null)", fd);
    766767  }
    767768  else
Note: See TracChangeset for help on using the changeset viewer.