Changeset a5d5fc in git for Singular


Ignore:
Timestamp:
Jun 6, 2011, 7:41:45 PM (13 years ago)
Author:
Hans Schoenemann <hannes@…>
Branches:
(u'spielwiese', 'fe61d9c35bf7c61f2b6cbf1b56e25e2f08d536cc')
Children:
aacb5ac3506ca9207c0dc541708e70838974185c
Parents:
f0910569263b99287146ba84e626f35f43980b56
Message:
fprintf -> fputs/fputc

git-svn-id: file:///usr/local/Singular/svn/trunk@14262 2c84dea3-7e68-4137-9b89-c4e89433aadc
File:
1 edited

Legend:

Unmodified
Added
Removed
  • Singular/ssiLink.cc

    rf09105 ra5d5fc  
    122122  else if (n->s==3)
    123123  {
    124     fprintf(d->f_write,"3 ");
     124    fputs("3 ",d->f_write);
    125125    mpz_out_str(d->f_write,10,n->z);
    126     fprintf(d->f_write," ");
     126    fputc(' ',d->f_write);
    127127    //gmp_fprintf(d->f_write,"3 %Zd ",n->z);
    128128    //if (d->f_debug!=NULL) gmp_fprintf(d->f_debug,"bigint: gmp \"%Zd\" ",n->z);
    129129  }
    130   else Werror("illiegal bigint");
     130  else WerrorS("illiegal bigint");
    131131  SSI_UNBLOCK_CHLD;
    132132}
     
    161161      fprintf(d->f_write,"%d ",n->s+5);
    162162      mpz_out_str (d->f_write,32, n->z);
    163       fprintf(d->f_write," ");
     163      fputc(' ',d->f_write);
    164164      mpz_out_str (d->f_write,32, n->n);
    165       fprintf(d->f_write," ");
     165      fputc(' ',d->f_write);
    166166
    167167      //if (d->f_debug!=NULL) gmp_fprintf(d->f_debug,"number: s=%d gmp/gmp \"%Zd %Zd\" ",n->s,n->z,n->n);
     
    170170    {
    171171      //gmp_fprintf(d->f_write,"3 %Zd ",n->z);
    172       fprintf(d->f_write,"8 ");
     172      fputs("8 ",d->f_write);
    173173      mpz_out_str (d->f_write,32, n->z);
    174       fprintf(d->f_write," ");
     174      fputc(' ',d->f_write);
    175175
    176176      //if (d->f_debug!=NULL) gmp_fprintf(d->f_debug,"number: gmp \"%Zd\" ",n->z);
     
    10111011      if (d->send_quit_at_exit)
    10121012      {
    1013         fprintf(d->f_write,"99\n");fflush(d->f_write);
     1013        fputs("99\n",d->f_write);fflush(d->f_write);
    10141014      }
    10151015    }
     
    11661166    switch(tt /*data->Typ()*/)
    11671167    {
    1168           case NONE/* nothing*/:fprintf(d->f_write,"16 ");
     1168          case NONE/* nothing*/:fputs("16 ",d->f_write);
    11691169                          break;
    1170           case STRING_CMD: fprintf(d->f_write,"2 ");
     1170          case STRING_CMD: fputs("2 ",d->f_write);
    11711171                           ssiWriteString(d,(char *)dd);
    11721172                           break;
    1173           case INT_CMD: fprintf(d->f_write,"1 ");
     1173          case INT_CMD: fputs("1 ",d->f_write);
    11741174                        ssiWriteInt(d,(int)(long)dd);
    11751175                        break;
    1176           case BIGINT_CMD:fprintf(d->f_write,"4 ");
     1176          case BIGINT_CMD:fputs("4 ",d->f_write);
    11771177                        ssiWriteBigInt(d,(number)dd);
    11781178                        break;
     
    11801180                          if (d->r!=currRing)
    11811181                          {
    1182                             fprintf(d->f_write,"15 ");
     1182                            fputs("15 ",d->f_write);
    11831183                            ssiWriteRing(d,currRing);
    1184                             if (d->level<=1) fprintf(d->f_write,"\n");
     1184                            if (d->level<=1) fputc('\n',d->f_write);
    11851185                          }
    1186                           fprintf(d->f_write,"3 ");
     1186                          fputs("3 ",d->f_write);
    11871187                          ssiWriteNumber(d,(number)dd);
    11881188                        break;
    1189           case RING_CMD:fprintf(d->f_write,"5 ");
     1189          case RING_CMD:fputs("5 ",d->f_write);
    11901190                        ssiWriteRing(d,(ring)dd);
    11911191                        break;
     
    11941194                        if (d->r!=currRing)
    11951195                        {
    1196                           fprintf(d->f_write,"15 ");
     1196                          fputs("15 ",d->f_write);
    11971197                          ssiWriteRing(d,currRing);
    1198                           if (d->level<=1) fprintf(d->f_write,"\n");
     1198                          if (d->level<=1) fputc('\n',d->f_write);
    11991199                        }
    1200                         if(tt==POLY_CMD) fprintf(d->f_write,"6 ");
    1201                         else             fprintf(d->f_write,"9 ");
     1200                        if(tt==POLY_CMD) fputs("6 ",d->f_write);
     1201                        else             fputs("9 ",d->f_write);
    12021202                        ssiWritePoly(d,tt,(poly)dd);
    12031203                        break;
     
    12071207                        if (d->r!=currRing)
    12081208                        {
    1209                           fprintf(d->f_write,"15 ");
     1209                          fputs("15 ",d->f_write);
    12101210                          ssiWriteRing(d,currRing);
    1211                           if (d->level<=1) fprintf(d->f_write,"\n");
     1211                          if (d->level<=1) fputc('\n',d->f_write);
    12121212                        }
    1213                         if(tt==IDEAL_CMD)       fprintf(d->f_write,"7 ");
    1214                         else if(tt==MATRIX_CMD) fprintf(d->f_write,"8 ");
    1215                         else                    fprintf(d->f_write,"10 ");
     1213                        if(tt==IDEAL_CMD)       fputs("7 ",d->f_write);
     1214                        else if(tt==MATRIX_CMD) fputs("8 ",d->f_write);
     1215                        else                    fputs("10 ",d->f_write);
    12161216                        ssiWriteIdeal(d,tt,(ideal)dd);
    12171217                        break;
    12181218          case COMMAND:
    1219                    fprintf(d->f_write,"11 ");
     1219                   fputs("11 ",d->f_write);
    12201220                   ssiWriteCommand(l,(command)dd);
    12211221                   break;
    12221222          case DEF_CMD: /* not evaluated stuff in quotes */
    1223                    fprintf(d->f_write,"12 ");
     1223                   fputs("12 ",d->f_write);
    12241224                   ssiWriteString(d,data->Name());
    12251225                   break;
    12261226          case PROC_CMD:
    1227                    fprintf(d->f_write,"13 ");
     1227                   fputs("13 ",d->f_write);
    12281228                   ssiWriteProc(d,(procinfov)dd);
    12291229                   break;
    12301230          case LIST_CMD:
    1231                    fprintf(d->f_write,"14 ");
     1231                   fputs("14 ",d->f_write);
    12321232                   ssiWriteList(l,(lists)dd);
    12331233                   break;
    12341234          case INTVEC_CMD:
    1235                    fprintf(d->f_write,"17 ");
     1235                   fputs("17 ",d->f_write);
    12361236                   ssiWriteIntvec(d,(intvec *)dd);
    12371237                   break;
     
    12401240            {
    12411241              blackbox *b=getBlackboxStuff(tt);
    1242               fprintf(d->f_write,"20 ");
     1242              fputs("20 ",d->f_write);
    12431243              b->blackbox_serialize(b,dd,l);
    12441244            }
     
    12511251            break;
    12521252    }
    1253     if (d->level<=1) { fprintf(d->f_write,"\n"); fflush(d->f_write); }
     1253    if (d->level<=1) { fputc('\n',d->f_write); fflush(d->f_write); }
    12541254    data=data->next;
    12551255  }
Note: See TracChangeset for help on using the changeset viewer.