| 3344 | #define SIMPL_NULL 2 |
| 3345 | #define SIMPL_NORM 1 |
| 3346 | static BOOLEAN jjSIMPL_ID(leftv res, leftv u, leftv v) |
| 3347 | { |
| 3348 | int sw = (int)(long)v->Data(); |
| 3349 | // CopyD for IDEAL_CMD and MODUL_CMD are identical: |
| 3350 | ideal id = (ideal)u->CopyD(IDEAL_CMD); |
| 3351 | if (sw & SIMPL_LMDIV) |
| 3352 | { |
| 3353 | id_DelDiv(id,currRing); |
| 3354 | } |
| 3355 | if (sw & SIMPL_LMEQ) |
| 3356 | { |
| 3357 | id_DelLmEquals(id,currRing); |
| 3358 | } |
| 3359 | if (sw & SIMPL_MULT) |
| 3360 | { |
| 3361 | id_DelMultiples(id,currRing); |
| 3362 | } |
| 3363 | else if(sw & SIMPL_EQU) |
| 3364 | { |
| 3365 | id_DelEquals(id,currRing); |
| 3366 | } |
| 3367 | if (sw & SIMPL_NULL) |
| 3368 | { |
| 3369 | idSkipZeroes(id); |
| 3370 | } |
| 3371 | if (sw & SIMPL_NORM) |
| 3372 | { |
| 3373 | id_Norm(id,currRing); |
| 3374 | } |
| 3375 | if (sw & SIMPL_NORMALIZE) |
| 3376 | { |
| 3377 | id_Normalize(id,currRing); |
| 3378 | } |
| 3379 | res->data = (char * )id; |
| 3380 | return FALSE; |
| 3381 | } |
| 3382 | EXTERN_VAR int singclap_factorize_retry; |
| 3383 | static BOOLEAN jjSQR_FREE2(leftv res, leftv u, leftv dummy) |
| 3384 | { |
nothing calls this directly
no test coverage detected