File: pdbFRoutine.inl
/*************************************************************************/
/* DUCTAPE Version 2.0 */
/* Copyright (C) 2001 */
/* Forschungszentrum Juelich, Zentralinstitut fuer Angewandte Mathematik */
/*************************************************************************/
inline pdbFRoutine::pdbFRoutine(int id)
: pdbRoutine(id),
isRec(false), isElem(false), eIntface(false), prnt(0), alas(0) {}
inline pdbFRoutine::pdbFRoutine(const string& name, int id)
: pdbRoutine(name, id),
isRec(false), isElem(false), eIntface(false), prnt(0), alas(0) {}
inline bool pdbFRoutine::isRecursive() const { return isRec; }
inline bool pdbFRoutine::isElemental() const { return isElem; }
inline bool pdbFRoutine::hasExplicitInterface() const { return eIntface; }
inline const pdbFRoutine* pdbFRoutine::parentRoutine() const { return prnt; }
inline const pdbFRoutine* pdbFRoutine::isAliasFor() const { return alas; }
inline const pdbFRoutine::implvec& pdbFRoutine::implementedBy() const {
return impls;
}
inline const pdbRoutine::locvec& pdbFRoutine::stopLocations() const {
return stops;
}
inline void pdbFRoutine::isRecursive(bool r) { isRec = r; }
inline void pdbFRoutine::isElemental(bool e) { isElem = e; }
inline void pdbFRoutine::hasExplicitInterface(bool i) { eIntface = i; }
inline void pdbFRoutine::parentRoutine(const pdbFRoutine* p) { prnt = p; }
inline void pdbFRoutine::isAliasFor(const pdbFRoutine* a) { alas = a; }
inline void pdbFRoutine::addImplementation(pdbFRoutine* i) {
impls.push_back(i);
}
inline void pdbFRoutine::addStopLocation(pdbFile *file, int line, int col) {
stops.push_back(new pdbLoc(file, line, col));
}
Back to Index
Key to Colors and Styles