of_getancestorclasses

pfcapsrv.pbl   >   pfc_n_cst_metaclass   >   of_getancestorclasses

Name	Datatype
lcd_temp	classdefinition[]
lcd_test	classdefinition
li_cnt	int

public function integer of_getancestorclasses (classdefinition acd_sourceclass, ref classdefinition acd_ancestorclass[]);//////////////////////////////////////////////////////////////////////////////
//
//	Function:
//	of_getAncestorClasses
//
//	Access:
//	public
//
//	Arguments:
//	acd_sourceclass		classdefinition to get ancestor classes for
//	acd_ancestorclass[]	ancestor classesdefinitions by reference
//
//	Returns:
//	integer
//	Returns the number of ancestor classes
//	Returns -1 if there is an error
//
//	Description:
//	Gets all ancestor classdefinitions of a given classdefinition.
//	Classes are returned in ascending order (subclass to ancestor class)
//
//////////////////////////////////////////////////////////////////////////////
//
//	Revision History
//
//	Version
//	6.0   Initial version
//
//////////////////////////////////////////////////////////////////////////////
//
//	Copyright © 1996-1997 Sybase, Inc. and its subsidiaries.  All rights reserved.
//	Any distribution of the PowerBuilder Foundation Classes (PFC)
//	source code by other than Sybase, Inc. and its subsidiaries is prohibited.
//
//////////////////////////////////////////////////////////////////////////////

int	li_cnt = 1
classdefinition	lcd_test
classdefinition	lcd_temp[]

// Check source classdefinition
if not isValid (acd_sourceclass) or isNull (acd_sourceclass) then
	return -1
end if

// Clear the reference array
acd_ancestorclass[] = lcd_temp[]

// Get ancestor classes
lcd_test = acd_sourceclass.ancestor
do while isValid (lcd_test)
	acd_ancestorclass[li_cnt] = lcd_test
	li_cnt++
	lcd_test = lcd_test.ancestor
loop

return upperBound (acd_ancestorclass[])
end function

Name	Owner
pfc_n_cst_metaclass.of_getancestorclasses	pfc_n_cst_metaclass

Name	Owner
systemfunctions.isnull	systemfunctions
systemfunctions.isvalid	systemfunctions
systemfunctions.upperbound	systemfunctions