Fix SHOW SHOW command to separate the SHOW options which are device specific and unit specific
This commit is contained in:
parent
3ccd66d546
commit
2b43b358a8
1 changed files with 22 additions and 4 deletions
26
scp.c
26
scp.c
|
@ -2159,21 +2159,39 @@ return SCPE_OK;
|
||||||
|
|
||||||
t_stat show_dev_show_commands (FILE *st, DEVICE *dptr, UNIT *uptr, int32 flag, char *cptr)
|
t_stat show_dev_show_commands (FILE *st, DEVICE *dptr, UNIT *uptr, int32 flag, char *cptr)
|
||||||
{
|
{
|
||||||
int32 any, enb;
|
int32 any = 0;
|
||||||
MTAB *mptr;
|
MTAB *mptr;
|
||||||
|
|
||||||
any = enb = 0;
|
|
||||||
if (dptr->modifiers) {
|
if (dptr->modifiers) {
|
||||||
|
any = 0;
|
||||||
for (mptr = dptr->modifiers; mptr->mask != 0; mptr++) {
|
for (mptr = dptr->modifiers; mptr->mask != 0; mptr++) {
|
||||||
if ((!mptr->disp) || (!mptr->pstring))
|
if ((!mptr->disp) || (!mptr->pstring))
|
||||||
continue;
|
continue;
|
||||||
|
if (('\0' == *mptr->pstring) ||
|
||||||
|
(0 == (mptr->mask & MTAB_XTD)) ||
|
||||||
|
(0 == (mptr->mask & MTAB_VDV))) /* Device Option */
|
||||||
|
continue;
|
||||||
if (any++)
|
if (any++)
|
||||||
fprintf (st, ", %s", mptr->pstring);
|
fprintf (st, ", %s", mptr->pstring);
|
||||||
else fprintf (st, "sh{ow} %s\t%s", sim_dname (dptr), mptr->pstring);
|
else fprintf (st, "sh{ow} %s\t%s", sim_dname (dptr), mptr->pstring);
|
||||||
}
|
}
|
||||||
|
if (any)
|
||||||
|
fprintf (st, "\n");
|
||||||
|
any = 0;
|
||||||
|
for (mptr = dptr->modifiers; mptr->mask != 0; mptr++) {
|
||||||
|
if ((!mptr->disp) || (!mptr->pstring))
|
||||||
|
continue;
|
||||||
|
if (('\0' == *mptr->pstring) ||
|
||||||
|
(0 == (mptr->mask & MTAB_XTD)) ||
|
||||||
|
(0 == (mptr->mask & MTAB_VUN))) /* Unit Option */
|
||||||
|
continue;
|
||||||
|
if (any++)
|
||||||
|
fprintf (st, ", %s", mptr->pstring);
|
||||||
|
else fprintf (st, "sh{ow} %sn\t%s", sim_dname (dptr), mptr->pstring);
|
||||||
|
}
|
||||||
|
if (any)
|
||||||
|
fprintf (st, "\n");
|
||||||
}
|
}
|
||||||
if (any)
|
|
||||||
fprintf (st, "\n");
|
|
||||||
return SCPE_OK;
|
return SCPE_OK;
|
||||||
}
|
}
|
||||||
|
|
||||||
|
|
Loading…
Add table
Reference in a new issue