Changeset a5d5fc in git
- Timestamp:
- Jun 6, 2011, 7:41:45 PM (12 years ago)
- Branches:
- (u'spielwiese', '91fdef05f09f54b8d58d92a472e9c4a43aa4656f')
- Children:
- aacb5ac3506ca9207c0dc541708e70838974185c
- Parents:
- f0910569263b99287146ba84e626f35f43980b56
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
Singular/ssiLink.cc
rf09105 ra5d5fc 122 122 else if (n->s==3) 123 123 { 124 fp rintf(d->f_write,"3 ");124 fputs("3 ",d->f_write); 125 125 mpz_out_str(d->f_write,10,n->z); 126 fp rintf(d->f_write," ");126 fputc(' ',d->f_write); 127 127 //gmp_fprintf(d->f_write,"3 %Zd ",n->z); 128 128 //if (d->f_debug!=NULL) gmp_fprintf(d->f_debug,"bigint: gmp \"%Zd\" ",n->z); 129 129 } 130 else Werror ("illiegal bigint");130 else WerrorS("illiegal bigint"); 131 131 SSI_UNBLOCK_CHLD; 132 132 } … … 161 161 fprintf(d->f_write,"%d ",n->s+5); 162 162 mpz_out_str (d->f_write,32, n->z); 163 fp rintf(d->f_write," ");163 fputc(' ',d->f_write); 164 164 mpz_out_str (d->f_write,32, n->n); 165 fp rintf(d->f_write," ");165 fputc(' ',d->f_write); 166 166 167 167 //if (d->f_debug!=NULL) gmp_fprintf(d->f_debug,"number: s=%d gmp/gmp \"%Zd %Zd\" ",n->s,n->z,n->n); … … 170 170 { 171 171 //gmp_fprintf(d->f_write,"3 %Zd ",n->z); 172 fp rintf(d->f_write,"8 ");172 fputs("8 ",d->f_write); 173 173 mpz_out_str (d->f_write,32, n->z); 174 fp rintf(d->f_write," ");174 fputc(' ',d->f_write); 175 175 176 176 //if (d->f_debug!=NULL) gmp_fprintf(d->f_debug,"number: gmp \"%Zd\" ",n->z); … … 1011 1011 if (d->send_quit_at_exit) 1012 1012 { 1013 fp rintf(d->f_write,"99\n");fflush(d->f_write);1013 fputs("99\n",d->f_write);fflush(d->f_write); 1014 1014 } 1015 1015 } … … 1166 1166 switch(tt /*data->Typ()*/) 1167 1167 { 1168 case NONE/* nothing*/:fp rintf(d->f_write,"16 ");1168 case NONE/* nothing*/:fputs("16 ",d->f_write); 1169 1169 break; 1170 case STRING_CMD: fp rintf(d->f_write,"2 ");1170 case STRING_CMD: fputs("2 ",d->f_write); 1171 1171 ssiWriteString(d,(char *)dd); 1172 1172 break; 1173 case INT_CMD: fp rintf(d->f_write,"1 ");1173 case INT_CMD: fputs("1 ",d->f_write); 1174 1174 ssiWriteInt(d,(int)(long)dd); 1175 1175 break; 1176 case BIGINT_CMD:fp rintf(d->f_write,"4 ");1176 case BIGINT_CMD:fputs("4 ",d->f_write); 1177 1177 ssiWriteBigInt(d,(number)dd); 1178 1178 break; … … 1180 1180 if (d->r!=currRing) 1181 1181 { 1182 fp rintf(d->f_write,"15 ");1182 fputs("15 ",d->f_write); 1183 1183 ssiWriteRing(d,currRing); 1184 if (d->level<=1) fp rintf(d->f_write,"\n");1184 if (d->level<=1) fputc('\n',d->f_write); 1185 1185 } 1186 fp rintf(d->f_write,"3 ");1186 fputs("3 ",d->f_write); 1187 1187 ssiWriteNumber(d,(number)dd); 1188 1188 break; 1189 case RING_CMD:fp rintf(d->f_write,"5 ");1189 case RING_CMD:fputs("5 ",d->f_write); 1190 1190 ssiWriteRing(d,(ring)dd); 1191 1191 break; … … 1194 1194 if (d->r!=currRing) 1195 1195 { 1196 fp rintf(d->f_write,"15 ");1196 fputs("15 ",d->f_write); 1197 1197 ssiWriteRing(d,currRing); 1198 if (d->level<=1) fp rintf(d->f_write,"\n");1198 if (d->level<=1) fputc('\n',d->f_write); 1199 1199 } 1200 if(tt==POLY_CMD) fp rintf(d->f_write,"6 ");1201 else fp rintf(d->f_write,"9 ");1200 if(tt==POLY_CMD) fputs("6 ",d->f_write); 1201 else fputs("9 ",d->f_write); 1202 1202 ssiWritePoly(d,tt,(poly)dd); 1203 1203 break; … … 1207 1207 if (d->r!=currRing) 1208 1208 { 1209 fp rintf(d->f_write,"15 ");1209 fputs("15 ",d->f_write); 1210 1210 ssiWriteRing(d,currRing); 1211 if (d->level<=1) fp rintf(d->f_write,"\n");1211 if (d->level<=1) fputc('\n',d->f_write); 1212 1212 } 1213 if(tt==IDEAL_CMD) fp rintf(d->f_write,"7 ");1214 else if(tt==MATRIX_CMD) fp rintf(d->f_write,"8 ");1215 else fp rintf(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); 1216 1216 ssiWriteIdeal(d,tt,(ideal)dd); 1217 1217 break; 1218 1218 case COMMAND: 1219 fp rintf(d->f_write,"11 ");1219 fputs("11 ",d->f_write); 1220 1220 ssiWriteCommand(l,(command)dd); 1221 1221 break; 1222 1222 case DEF_CMD: /* not evaluated stuff in quotes */ 1223 fp rintf(d->f_write,"12 ");1223 fputs("12 ",d->f_write); 1224 1224 ssiWriteString(d,data->Name()); 1225 1225 break; 1226 1226 case PROC_CMD: 1227 fp rintf(d->f_write,"13 ");1227 fputs("13 ",d->f_write); 1228 1228 ssiWriteProc(d,(procinfov)dd); 1229 1229 break; 1230 1230 case LIST_CMD: 1231 fp rintf(d->f_write,"14 ");1231 fputs("14 ",d->f_write); 1232 1232 ssiWriteList(l,(lists)dd); 1233 1233 break; 1234 1234 case INTVEC_CMD: 1235 fp rintf(d->f_write,"17 ");1235 fputs("17 ",d->f_write); 1236 1236 ssiWriteIntvec(d,(intvec *)dd); 1237 1237 break; … … 1240 1240 { 1241 1241 blackbox *b=getBlackboxStuff(tt); 1242 fp rintf(d->f_write,"20 ");1242 fputs("20 ",d->f_write); 1243 1243 b->blackbox_serialize(b,dd,l); 1244 1244 } … … 1251 1251 break; 1252 1252 } 1253 if (d->level<=1) { fp rintf(d->f_write,"\n"); fflush(d->f_write); }1253 if (d->level<=1) { fputc('\n',d->f_write); fflush(d->f_write); } 1254 1254 data=data->next; 1255 1255 }
Note: See TracChangeset
for help on using the changeset viewer.