Changeset 67e0dc in git for Singular/ipshell.cc
- Timestamp:
- Oct 21, 2015, 2:57:17 PM (8 years ago)
- Branches:
- (u'spielwiese', '4a9821a93ffdc22a6696668bd4f6b8c9de3e6c5f')
- Children:
- 5bd9ec36b87fa8f176a21995de2b56724d67be2d
- Parents:
- a1b6c917a1c8886b1bba1b05680ff06cfd39c82def1a968e317a12b42f88e04cd7f9483e47fba2f7
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
Singular/ipshell.cc
ref1a96 r67e0dc 65 65 #include <Singular/subexpr.h> 66 66 #include <Singular/fevoices.h> 67 #include <Singular/sdb.h> 67 68 68 69 #include <math.h> … … 165 166 switch(IDTYP(h)) 166 167 { 168 case ALIAS_CMD: Print(" for %s",IDID((idhdl)IDDATA(h))); break; 167 169 case INT_CMD: Print(" %d",IDINT(h)); break; 168 170 case INTVEC_CMD:Print(" (%d)",IDINTVEC(h)->length()); break; … … 782 784 v->rtyp=IDEAL_CMD; 783 785 char *tmp = theMap->preimage; 784 786 theMap->preimage=(char*)1L; 785 787 // map gets 1 as its rank (as an ideal) 786 788 v->data=fast_map(IDIDEAL(w), src_ring, (ideal)theMap, currRing); … … 1029 1031 void iiDebug() 1030 1032 { 1033 #ifdef HAVE_SDB 1034 sdb_flags=1; 1035 #endif 1031 1036 Print("\n-- break point in %s --\n",VoiceName()); 1032 1037 if (iiDebugMarker) VoiceBackTrack(); … … 1322 1327 return res; 1323 1328 } 1324 BOOLEAN iiAlias(leftv p)1325 {1326 if (iiCurrArgs==NULL)1327 {1328 Werror("not enough arguments for proc %s",VoiceName());1329 p->CleanUp();1330 return TRUE;1331 }1332 leftv h=iiCurrArgs;1333 iiCurrArgs=h->next;1334 h->next=NULL;1335 if (h->rtyp!=IDHDL)1336 {1337 BOOLEAN res=iiAssign(p,h);1338 h->CleanUp();1339 omFreeBin((ADDRESS)h, sleftv_bin);1340 return res;1341 }1342 if (h->Typ()!=p->Typ())1343 {1344 WerrorS("type mismatch");1345 return TRUE;1346 }1347 idhdl pp=(idhdl)p->data;1348 switch(pp->typ)1349 {1350 #ifdef SINGULAR_4_11351 case CRING_CMD:1352 nKillChar((coeffs)pp);1353 break;1354 #endif1355 case INT_CMD:1356 break;1357 case INTVEC_CMD:1358 case INTMAT_CMD:1359 delete IDINTVEC(pp);1360 break;1361 case NUMBER_CMD:1362 nDelete(&IDNUMBER(pp));1363 break;1364 case BIGINT_CMD:1365 n_Delete(&IDNUMBER(pp),coeffs_BIGINT);1366 break;1367 case MAP_CMD:1368 {1369 map im = IDMAP(pp);1370 omFree((ADDRESS)im->preimage);1371 }1372 // continue as ideal:1373 case IDEAL_CMD:1374 case MODUL_CMD:1375 case MATRIX_CMD:1376 idDelete(&IDIDEAL(pp));1377 break;1378 case PROC_CMD:1379 case RESOLUTION_CMD:1380 case STRING_CMD:1381 omFree((ADDRESS)IDSTRING(pp));1382 break;1383 case LIST_CMD:1384 IDLIST(pp)->Clean();1385 break;1386 case LINK_CMD:1387 omFreeBin(IDLINK(pp),sip_link_bin);1388 break;1389 // case ring: cannot happen1390 default:1391 Werror("unknown type %d",p->Typ());1392 return TRUE;1393 }1394 pp->typ=ALIAS_CMD;1395 IDDATA(pp)=(char*)h->data;1396 h->CleanUp();1397 omFreeBin((ADDRESS)h, sleftv_bin);1398 return FALSE;1399 }1400 1401 1329 static BOOLEAN iiInternalExport (leftv v, int toLev) 1402 1330 {
Note: See TracChangeset
for help on using the changeset viewer.