| 843 | |
| 844 | #ifdef OLD_RES |
| 845 | void iiMakeResolv(resolvente r, int length, int rlen, char * name, int typ0, |
| 846 | intvec ** weights) |
| 847 | { |
| 848 | lists L=liMakeResolv(r,length,rlen,typ0,weights); |
| 849 | int i=0; |
| 850 | idhdl h; |
| 851 | size_t len=strlen(name)+5; |
| 852 | char * s=(char *)omAlloc(len); |
| 853 | |
| 854 | while (i<=L->nr) |
| 855 | { |
| 856 | snprintf(s,len,"%s(%d)",name,i+1); |
| 857 | if (i==0) |
| 858 | h=enterid(s,myynest,typ0,&(currRing->idroot), FALSE); |
| 859 | else |
| 860 | h=enterid(s,myynest,MODUL_CMD,&(currRing->idroot), FALSE); |
| 861 | if (h!=NULL) |
| 862 | { |
| 863 | h->data.uideal=(ideal)L->m[i].data; |
| 864 | h->attribute=L->m[i].attribute; |
| 865 | if (BVERBOSE(V_DEF_RES)) |
| 866 | Print("//defining: %s as %d-th syzygy module\n",s,i+1); |
| 867 | } |
| 868 | else |
| 869 | { |
| 870 | idDelete((ideal *)&(L->m[i].data)); |
| 871 | Warn("cannot define %s",s); |
| 872 | } |
| 873 | //L->m[i].data=NULL; |
| 874 | //L->m[i].rtyp=0; |
| 875 | //L->m[i].attribute=NULL; |
| 876 | i++; |
| 877 | } |
| 878 | omFreeSize((ADDRESS)L->m,(L->nr+1)*sizeof(sleftv)); |
| 879 | omFreeBin((ADDRESS)L, slists_bin); |
| 880 | omFreeSize((ADDRESS)s,strlen(name)+5); |
| 881 | } |
| 882 | #endif |
| 883 | |
| 884 | //resolvente iiFindRes(char * name, int * len, int *typ0) |