| 314 | } |
| 315 | |
| 316 | static BOOLEAN pMaximalOrder(leftv result, leftv arg) |
| 317 | { |
| 318 | nforder * o; |
| 319 | if (!checkArgumentIsOrder(arg, NULL, &o)) { |
| 320 | WerrorS("usage: pMaximalOrder(order, int)"); |
| 321 | return TRUE; |
| 322 | } |
| 323 | arg = arg->next; |
| 324 | long p = (int)(long)arg->Data(); |
| 325 | number P = n_Init(p, o->basecoeffs()); |
| 326 | |
| 327 | nforder *op = pmaximal(o, P); |
| 328 | |
| 329 | result->rtyp=CRING_CMD; // set the result type |
| 330 | result->data=(char*)nInitChar(nforder_type, op);// set the result data |
| 331 | assume(result->data); |
| 332 | |
| 333 | return FALSE; |
| 334 | } |
| 335 | |
| 336 | static BOOLEAN oneStep(leftv result, leftv arg) |
| 337 | { |
nothing calls this directly
no test coverage detected