| 387 | return NULL; |
| 388 | } |
| 389 | void killid(const char * id, idhdl * ih) |
| 390 | { |
| 391 | if (id!=NULL) |
| 392 | { |
| 393 | idhdl h = (*ih)->get(id,myynest); |
| 394 | |
| 395 | // id not found in global list, is it defined in current ring ? |
| 396 | if (h==NULL) |
| 397 | { |
| 398 | if ((currRing!=NULL) && (*ih != (currRing->idroot))) |
| 399 | { |
| 400 | h = currRing->idroot->get(id,myynest); |
| 401 | if (h!=NULL) |
| 402 | { |
| 403 | killhdl2(h,&(currRing->idroot),currRing); |
| 404 | return; |
| 405 | } |
| 406 | } |
| 407 | Werror("`%s` is not defined",id); |
| 408 | return; |
| 409 | } |
| 410 | killhdl2(h,ih,currRing); |
| 411 | } |
| 412 | else |
| 413 | WerrorS("kill what ?"); |
| 414 | } |
| 415 | |
| 416 | void killhdl(idhdl h, package proot) |
| 417 | { |