MethodTypes pc_ODC_FunctImp :: GetImplementationType (CTX_GUIBase *ctxptr, logical setup_opt ) { PropertyHandle *parent = GetParentProperty(); MethodTypes imptype = MT_Undefined; BEGINSEQ if ( !parent ) ERROR if ( !parent->IsA("ODC_PFunction") ) ERROR pc_ODC_PFunction pfunct_pc(parent); imptype = pfunct_pc.GetImplementationType(ctxptr,setup_opt); RECOVER ENDSEQ return(imptype); }
logical pc_ODC_FunctImp :: ExistDescription (char *names ) { PropertyHandle *parent = GetParentProperty(); logical cond = YES; BEGINSEQ if ( !IsPositioned() ) ERROR if ( !parent ) ERROR if ( !parent->IsA("ODC_PFunction") ) ERROR PropertyHandle impl_descr_copy(*parent->GPH("implementation_descr")); PropertyHandle phnames(names); if ( !impl_descr_copy.Get(phnames) ) ERROR RECOVER cond = NO; ENDSEQ return(cond); }