| 110 | |
| 111 | #if 0 |
| 112 | void debug_list(leftv v) |
| 113 | { |
| 114 | idhdl r=basePackHdl; |
| 115 | idhdl h; |
| 116 | BOOLEAN found=FALSE; |
| 117 | const char *nn=v->name; |
| 118 | h=IDROOT->get(nn,myynest); |
| 119 | if (h!=NULL) |
| 120 | { |
| 121 | Print("Curr::%s, (%s)\n",nn,Tok2Cmdname((int)IDTYP(h))); |
| 122 | found=TRUE; |
| 123 | } |
| 124 | else Print("`%s` not found in IDROOT\n",nn); |
| 125 | while (r!=NULL) |
| 126 | { |
| 127 | if ((IDTYP(r)==PACKAGE_CMD) |
| 128 | || (IDTYP(r)==RING_CMD)) |
| 129 | { |
| 130 | h=IDPACKAGE(r)->idroot->get(nn,myynest); |
| 131 | if (h!=NULL) |
| 132 | { |
| 133 | Print("%s::%s, (%s)\n",r->id,nn,Tok2Cmdname((int)IDTYP(h))); |
| 134 | found=TRUE; |
| 135 | } |
| 136 | else Print("%s::%s not found\n",r->id,nn); |
| 137 | } |
| 138 | if (r==basePackHdl) r=IDPACKAGE(r)->idroot; |
| 139 | r=r->next; |
| 140 | if (r==basePackHdl) break; |
| 141 | } |
| 142 | if (!found) |
| 143 | { |
| 144 | listall(TRUE); |
| 145 | } |
| 146 | } |
| 147 | #endif |
| 148 | |
| 149 | /* From the bison docu: |
nothing calls this directly
no test coverage detected