A function for making super calls in OpenText Content Server OScript.

super.lxe

/**
 * Christopher Meyer chris@rhouse.ch
 * Copyright 2014 Red House Consulting GmbH
 *
 * Version: 1.3
 */
function Dynamic super(Object item, String func)
	
	switch GetMethodType(item, func)
		
		// root defined valued
		case 0
			return Undefined
		end
		
		// override from parent
		case 1
			return GetMethodFromParent(item, func)
		end
		
		// inherited featured
		case 2
			return super( GetParent(item), func ) 
		end
		
	end
		
end

function Dynamic GetObject(Dynamic item)
	if Type(item) == Frame.FrameType
		return GetObject( Frame.Parents(item)[1][2] )
	end
	
	return item
end

function Integer GetMethodType(Dynamic item, String func)	
	return OS.FeatureInfo( GetObject(item), func )[6]
end

function Dynamic GetParent(Dynamic item)	
	return OS.Parent( GetObject(item) )
end

function Dynamic GetMethodFromParent(Dynamic item, String func)
	return GetParent(item).(func)
end