| 2555 | return FALSE; |
| 2556 | } |
| 2557 | static BOOLEAN jjKBASE2(leftv res, leftv u, leftv v) |
| 2558 | { |
| 2559 | assumeStdFlag(u); |
| 2560 | intvec *w_u=(intvec *)atGet(u,"isHomog",INTVEC_CMD); |
| 2561 | res->data = (char *)scKBase((int)(long)v->Data(), |
| 2562 | (ideal)(u->Data()),currRing->qideal, w_u); |
| 2563 | if (w_u!=NULL) |
| 2564 | { |
| 2565 | atSet(res,omStrDup("isHomog"),ivCopy(w_u),INTVEC_CMD); |
| 2566 | } |
| 2567 | return FALSE; |
| 2568 | } |
| 2569 | static BOOLEAN jjPREIMAGE(leftv res, leftv u, leftv v, leftv w); |
| 2570 | static BOOLEAN jjKERNEL(leftv res, leftv u, leftv v) |
| 2571 | { |