Write out ADP Diagnostics Returns: None
| Return Type | Function name | Arguments |
|---|---|---|
| void | hdbADP::Report | (hzChain&,) |
Declared in file: hzDatabase.h
Defined in file : hdbADP.cpp
Function Logic:
Function body:
void hdbADP::Report (hzChain& Z)
{
// Write out ADP
//
// Diagnostics
//
// Argument: Z Output chain
//
// Returns: None
_hzfunc("hdbADP::Report") ;
const hdbDatatype* pDT ; // Data type
const hdbClass* pClass ; // Data class
const hdbMember* pMbr ; // Data class member
hdbEnum* pSlct ; // Data enum
uint32_t x ; // General iterator
uint32_t y ; // General iterator
Z.Printf("APPLICATION DELTA PROFILE\n") ;
// Z.Printf("User Categories\n") ;
// for (x = 0 ; x < m_UserTypes.Count() ; x++)
// { ut = m_UserTypes.GetObj(x) ; Z.Printf(" -- %s\n", *ut.m_Refname) ; }
Z.Printf("Data types\n") ;
Z.Printf(" -- Validation formats\n") ;
for (x = 0; x < m_mapDatatypes.Count() ; x++)
{
pDT = m_mapDatatypes.GetObj(x) ;
if (pDT->Basetype() != BASETYPE_APPDEF)
continue ;
Z.Printf("\t -- %s\n", pDT->txtType()) ;
}
Z.Printf(" -- Selectors\n") ;
for (x = 0; x < m_mapDatatypes.Count() ; x++)
{
pDT = m_mapDatatypes.GetObj(x) ;
if (pDT->Basetype() != BASETYPE_ENUM)
continue ;
pSlct = (hdbEnum*) pDT ;
Z.Printf("\t -- %s\n", pSlct->txtType()) ;
}
Z.Printf(" -- Clases\n") ;
for (x = 0; x < m_mapClasses.Count() ; x++)
{
pClass = m_mapClasses.GetObj(x) ;
Z.Printf("\t -- %s\n", pClass->txtType()) ;
for (y = 0; y < pClass->MbrCount() ; y++)
{
pMbr = pClass->GetMember(y) ;
Z.Printf("\t\t -- %s [%s]\n", pMbr->txtName(), Basetype2Txt(pMbr->Basetype())) ;
}
}
Z.Printf(" -- Class Delta ID assignments\n") ;
for (x = 0; x < m_mapClsCtxDtId.Count() ; x++)
{
y = m_mapClsCtxDtId.GetKey(x) ;
pClass = m_mapClsCtxDtId.GetObj(x) ;
Z.Printf("\t\t -- [%d] %s\n", y, pClass->txtType()) ;
}
}