home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
ftptest.leeds.ac.uk
/
2015.02.ftptest.leeds.ac.uk.tar
/
ftptest.leeds.ac.uk
/
bionet
/
CAE-GROUP
/
SCL-WIN3x
/
SCL.EXE
/
EXPDICTI.CPP
< prev
next >
Wrap
Text File
|
1994-08-06
|
2KB
|
76 lines
/*
* NIST STEP Core Class Library
* clstepcore/ExpDict.inline.cc
* February, 1994
* K. C. Morris
* David Sauder
* Development of this software was funded by the United States Government,
* and is not subject to copyright.
*/
/* $Id: ExpDict.inline.cc,v 2.0.1.1 1994/04/05 16:39:14 sauderd Exp $ */
#include <ExpDict.h>
///////////////////////////////////////////////////////////////////////////////
// TypeDescriptor functions
///////////////////////////////////////////////////////////////////////////////
TypeDescriptor::TypeDescriptor( )
: _name (0), _fundamentalType(UNKNOWN_TYPE), _referentType (0), _description (0)
{
}
TypeDescriptor::TypeDescriptor
(const char * nm, BASE_TYPE ft, const char * d )
: _name (nm), _fundamentalType (ft), _referentType (0), _description (d)
{
}
const char *
TypeDescriptor::BaseTypeName () const
{
return BaseTypeDescriptor () ? BaseTypeDescriptor () -> Name () : 0;
}
const TypeDescriptor *
TypeDescriptor::BaseTypeIsA (const TypeDescriptor * td) const
{
switch (NonRefType ()) {
case AGGREGATE_TYPE:
return AggrElemTypeDescriptor () -> IsA (td);
case ENTITY_TYPE:
case SELECT_TYPE:
default:
return IsA (td);
}
}
///////////////////////////////////////////////////////////////////////////////
// AttrDescriptor functions
///////////////////////////////////////////////////////////////////////////////
AttrDescriptor::AttrDescriptor(
const char * name, // i.e. char *
const TypeDescriptor *domainType,
LOGICAL optional, // i.e. F U or T
LOGICAL unique, // i.e. F U or T
LOGICAL derived, // i.e. F U or T
const EntityDescriptor & owner )
: _name (name), _domainType (domainType), _optional(optional), _unique(unique), _derived (derived),
#ifdef __O3DB__
_owner (&owner)
#else
_owner ((EntityDescriptor&)owner)
#endif
{
}
AttrDescriptor::~AttrDescriptor () { }