| 987 | |
| 988 | #if 0 /* debug only */ |
| 989 | void listall(int showproc) |
| 990 | { |
| 991 | idhdl hh=basePack->idroot; |
| 992 | PrintS("====== Top ==============\n"); |
| 993 | while (hh!=NULL) |
| 994 | { |
| 995 | if (showproc || (IDTYP(hh)!=PROC_CMD)) |
| 996 | { |
| 997 | if (IDDATA(hh)==(void *)currRing) PrintS("(R)"); |
| 998 | else if (IDDATA(hh)==(void *)currPack) PrintS("(P)"); |
| 999 | else PrintS(" "); |
| 1000 | Print("::%s, typ %s level %d data %lx", |
| 1001 | IDID(hh),Tok2Cmdname(IDTYP(hh)),IDLEV(hh),(long)IDDATA(hh)); |
| 1002 | if (IDTYP(hh)==RING_CMD) |
| 1003 | Print(" ref: %d\n",IDRING(hh)->ref); |
| 1004 | else |
| 1005 | PrintLn(); |
| 1006 | } |
| 1007 | hh=IDNEXT(hh); |
| 1008 | } |
| 1009 | hh=basePack->idroot; |
| 1010 | while (hh!=NULL) |
| 1011 | { |
| 1012 | if (IDDATA(hh)==(void *)basePack) |
| 1013 | Print("(T)::%s, typ %s level %d data %lx\n", |
| 1014 | IDID(hh),Tok2Cmdname(IDTYP(hh)),IDLEV(hh),(long)IDDATA(hh)); |
| 1015 | else |
| 1016 | if ((IDTYP(hh)==RING_CMD) |
| 1017 | || (IDTYP(hh)==PACKAGE_CMD)) |
| 1018 | { |
| 1019 | Print("====== %s ==============\n",IDID(hh)); |
| 1020 | idhdl h2=IDRING(hh)->idroot; |
| 1021 | while (h2!=NULL) |
| 1022 | { |
| 1023 | if (showproc || (IDTYP(h2)!=PROC_CMD)) |
| 1024 | { |
| 1025 | if ((IDDATA(h2)==(void *)currRing) |
| 1026 | && (IDTYP(h2)==RING_CMD)) |
| 1027 | PrintS("(R)"); |
| 1028 | else if (IDDATA(h2)==(void *)currPack) PrintS("(P)"); |
| 1029 | else PrintS(" "); |
| 1030 | Print("%s::%s, typ %s level %d data %lx\n", |
| 1031 | IDID(hh),IDID(h2),Tok2Cmdname(IDTYP(h2)),IDLEV(h2),(long)IDDATA(h2)); |
| 1032 | } |
| 1033 | h2=IDNEXT(h2); |
| 1034 | } |
| 1035 | } |
| 1036 | hh=IDNEXT(hh); |
| 1037 | } |
| 1038 | Print("currRing:%lx, currPack:%lx,basePack:%lx\n",(long)currRing,(long)currPack,(long)basePack); |
| 1039 | iiCheckPack(currPack); |
| 1040 | } |
| 1041 | #endif |
| 1042 | |
| 1043 | #ifndef SING_NDEBUG |
no test coverage detected