| 334 | } |
| 335 | |
| 336 | static BOOLEAN oneStep(leftv result, leftv arg) |
| 337 | { |
| 338 | assume (arg->Typ()==CRING_CMD); |
| 339 | coeffs c = (coeffs)arg->Data(); |
| 340 | assume (c->type == nforder_type); |
| 341 | nforder * o = (nforder*)c->data; |
| 342 | arg = arg->next; |
| 343 | long p = (int)(long)arg->Data(); |
| 344 | number P = n_Init(p, o->basecoeffs()); |
| 345 | |
| 346 | nforder *op = onestep(o, P, o->basecoeffs()); |
| 347 | |
| 348 | result->rtyp=CRING_CMD; // set the result type |
| 349 | result->data=(char*)nInitChar(nforder_type, op);// set the result data |
| 350 | |
| 351 | return FALSE; |
| 352 | } |
| 353 | |
| 354 | static BOOLEAN nforder_simplify(leftv result, leftv arg) |
| 355 | { |