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; }