int
disp_current_seq()
/****************/
{
char name[66];
#ifdef VNMRJ
if (P_getstring(CURRENT,"pslabel",name,1,64)) ABORT;
disp_seq(name);
#else
if (P_getstring(CURRENT,"pslabel",name,1,15)) ABORT;
disp_seq(name);
#endif
RETURN;
}
/*====================================================
* disp_pvalue -- Display details of specified pvalue
* Drilldown in variable debugger
* This is primarily to display contents of container values
* val: [IN] value to display
*==================================================*/
static void
disp_pvalue (PVALUE val)
{
switch (which_pvalue_type(val)) {
case PGNODE:
{
NODE node = pvalue_to_node(val);
char buffer[256] = "";
size_t len = sizeof(buffer);
STRING str = buffer;
if (ntag(node)) {
llstrappf(str, len, uu8, "%s: ", ntag(node));
}
if (nval(node)) {
llstrapps(str, len, uu8, nval(node));
}
msg_info(str);
}
return;
case PINDI:
case PFAM:
case PSOUR:
case PEVEN:
case POTHR:
{
RECORD rec = pvalue_to_record(val);
NODE node = nztop(rec);
size_t len = 128;
STRING txt = generic_to_list_string(node, NULL, len, " ", NULL, TRUE);
msg_info(txt);
}
return;
case PLIST:
{
LIST list = pvalue_to_list(val);
disp_list(list);
}
return;
case PTABLE:
{
TABLE tab = pvalue_to_table(val);
disp_table(tab);
}
return;
case PSET:
{
INDISEQ seq = pvalue_to_seq(val);
disp_seq(seq);
}
return;
}
}
