| 328 | } |
| 329 | |
| 330 | void killlocals_rec(idhdl *root,int v, ring r) |
| 331 | { |
| 332 | idhdl h=*root; |
| 333 | while (h!=NULL) |
| 334 | { |
| 335 | if (IDLEV(h)>=v) |
| 336 | { |
| 337 | // Print("kill %s, lev %d for lev %d\n",IDID(h),IDLEV(h),v); |
| 338 | idhdl n=IDNEXT(h); |
| 339 | killhdl2(h,root,r); |
| 340 | h=n; |
| 341 | } |
| 342 | else if (IDTYP(h)==PACKAGE_CMD) |
| 343 | { |
| 344 | // Print("into pack %s, lev %d for lev %d\n",IDID(h),IDLEV(h),v); |
| 345 | if (IDPACKAGE(h)!=basePack) |
| 346 | killlocals_rec(&(IDRING(h)->idroot),v,r); |
| 347 | h=IDNEXT(h); |
| 348 | } |
| 349 | else if (IDTYP(h)==RING_CMD) |
| 350 | { |
| 351 | if ((IDRING(h)!=NULL) && (IDRING(h)->idroot!=NULL)) |
| 352 | // we have to test IDRING(h)!=NULL: qring Q=groebner(...): killlocals |
| 353 | { |
| 354 | // Print("into ring %s, lev %d for lev %d\n",IDID(h),IDLEV(h),v); |
| 355 | killlocals_rec(&(IDRING(h)->idroot),v,IDRING(h)); |
| 356 | } |
| 357 | h=IDNEXT(h); |
| 358 | } |
| 359 | else |
| 360 | { |
| 361 | // Print("skip %s lev %d for lev %d\n",IDID(h),IDLEV(h),v); |
| 362 | h=IDNEXT(h); |
| 363 | } |
| 364 | } |
| 365 | } |
| 366 | BOOLEAN killlocals_list(int v, lists L) |
| 367 | { |
| 368 | if (L==NULL) return FALSE; |
no test coverage detected