of_findmatchingevent

pfcapsrv.pbl   >   pfc_n_cst_metaclass   >   of_findmatchingevent

Name	Datatype
lb_found	boolean
li_cnt	int
li_scripts	int
lscrd_list	scriptdefinition[]
lscrd_object	scriptdefinition

public function scriptdefinition of_findmatchingevent (classdefinition acd_object, string as_eventname);//////////////////////////////////////////////////////////////////////////////
//
//	Function:
//	of_findMatchingEvent
//
//	Access:
//	public
//
//	Arguments:
//	acd_object	classdefinition reference to find event for
//	as_eventname	event name to find on class definition
//
//	Returns:
//	scriptdefinition
//	NULL scriptdefinition will be returned if acd_object is not valid or if as_eventname
//	could not be found.
//
//	Description:
//	Returns the scriptdefinition for a given eventname and classdefinition
//
//////////////////////////////////////////////////////////////////////////////
//
//	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.
//
//////////////////////////////////////////////////////////////////////////////

boolean	lb_found
int		li_scripts
int		li_cnt = 1
scriptdefinition	lscrd_object
scriptdefinition	lscrd_list[]

setNull (lscrd_object)

// Check class definition
if not isValid (acd_object) or isNull (acd_object) then
	return lscrd_object
end if

// Find event definition
lscrd_list[] = acd_object.scriptList[]
li_scripts = upperBound (lscrd_list[])
do while li_cnt <= li_scripts and not lb_found
	if acd_object.scriptlist[li_cnt].name = as_eventname and acd_object.scriptlist[li_cnt].kind = scriptevent! then
		lb_found = true
	else
		li_cnt++
	end if
loop

if lb_found then
	lscrd_object = acd_object.scriptlist[li_cnt]
end if

return lscrd_object
end function

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