| 1034 | } |
| 1035 | |
| 1036 | int iiRegularity(lists L) |
| 1037 | { |
| 1038 | int len,reg,typ0; |
| 1039 | |
| 1040 | resolvente r=liFindRes(L,&len,&typ0); |
| 1041 | |
| 1042 | if (r==NULL) |
| 1043 | return -2; |
| 1044 | intvec *weights=NULL; |
| 1045 | int add_row_shift=0; |
| 1046 | intvec *ww=(intvec *)atGet(&(L->m[0]),"isHomog",INTVEC_CMD); |
| 1047 | if (ww!=NULL) |
| 1048 | { |
| 1049 | weights=ivCopy(ww); |
| 1050 | add_row_shift = ww->min_in(); |
| 1051 | (*weights) -= add_row_shift; |
| 1052 | } |
| 1053 | //Print("attr:%x\n",weights); |
| 1054 | |
| 1055 | intvec *dummy=syBetti(r,len,®,weights); |
| 1056 | if (weights!=NULL) delete weights; |
| 1057 | delete dummy; |
| 1058 | omFreeSize((ADDRESS)r,len*sizeof(ideal)); |
| 1059 | return reg+1+add_row_shift; |
| 1060 | } |
| 1061 | |
| 1062 | VAR BOOLEAN iiDebugMarker=TRUE; |
| 1063 | #define BREAK_LINE_LENGTH 80 |
no test coverage detected