char* CDlpObject::GetFQName(char* lpsName, BOOL bForceArray)
{
return CDlpObject_GetFQName(this,lpsName,bForceArray);
}
/*
* Manual page at var.def
*/
INT16 CGEN_PUBLIC CVar_Status(CVar *_this)
{
char lpsBuf[255];
CVar_PopOwnValue(_this);
printf("\n"); dlp_fprint_x_line(stdout,'-',dlp_maxprintcols());
printf("\n Status of instance");
printf("\n var %s\n",BASEINST(_this)->m_lpInstanceName);
dlp_fprint_x_line(stdout,'-',dlp_maxprintcols());
switch (_this->m_nType)
{
case T_BOOL:
printf("\n Type : boolean");
printf("\n Value: %d",(int)_this->m_bBVal);
break;
case T_DOUBLE:
dlp_sprintc(lpsBuf,_this->m_nNVal,FALSE);
printf("\n Type : double");
printf("\n Value: %s", lpsBuf);
break;
case T_COMPLEX:
dlp_sprintc(lpsBuf,_this->m_nNVal,FALSE);
printf("\n Type : complex");
printf("\n Value: %s", lpsBuf);
break;
case T_STRING:
printf("\n Type : string");
printf("\n Value: \"%s\"",_this->m_lpsSVal?_this->m_lpsSVal:"(null)");
break;
case T_INSTANCE:
printf("\n Type : instance");
printf("\n Value: %s",CDlpObject_GetFQName(BASEINST(_this)->m_iAliasInst,lpsBuf,255));
break;
case T_RDOUBLE:
printf("\n Type : double random" );
printf("\n Low boundary : %8lg", (double)_this->m_nLow );
printf("\n High boundary : %8lg", (double)_this->m_nHi );
printf("\n Step size : %8lg", (double)_this->m_nDelta );
printf("\n Most recent value: %8lg", (double)_this->m_nNVal.x );
break;
case T_RDDATA:
printf("\n Type : numeric random data selector");
printf("\n Data table : %s",CDlpObject_GetFQName(_this->m_idRndSet,lpsBuf,255));
printf("\n Component index : %5ld",(long)_this->m_nInd );
printf("\n Component type : %5ld",(long)_this->m_nType);
printf("\n Most recent value: %8lg",(double)_this->m_nNVal.x);
break;
case T_RSDATA:
printf("\n Type : string random data selector");
printf("\n Data table : %s",CDlpObject_GetFQName(_this->m_idRndSet,lpsBuf,255));
printf("\n Component index : %5ld", (long)_this->m_nInd );
printf("\n Component type : %5ld", (long)_this->m_nType);
printf("\n Most recent value: %s",_this->m_lpsSVal?_this->m_lpsSVal:"(null)");
default:
DLPASSERT(FMSG("Unknown variable type"));
}
printf("\n");
dlp_fprint_x_line(stdout,'-',dlp_maxprintcols());
printf("\n");
return O_K;
}
