FTKeyObjectPair Derived Type

public subroutine initFTObject(self)

Generic Name: init()

Arguments

public function className(self) result(s)

Class name returns a string with the name of the type of the object

Arguments

Return Value character(len=CLASS_NAME_CHARACTER_LENGTH)

private function copyFTObject(self) result(copy)

Base class implementation of the assignment function. Call this from within any subclasses copy assignment function. All FTObject's implementation does is set the reference count to one, implying no additional ownership to the caller that is creating the copy.

Arguments

Return Value class(FTObject), POINTER

public subroutine retainFTObject(self)

Retain increases the reference count by one and implies ownership to the caller. ### Usage: CALL obj\ % retain()

Arguments

public function isUnreferenced(self)

Owners of objects should call isUnreferenced after releasing a pointer object. If true, the object should be deallocated and then set to point to NULL()

Arguments

Return Value logical

public function refCount(self)

Returns the reference count for the object. Normally this is done only for debugging purposes.

Arguments

Return Value integer

public subroutine initWithObjectAndKey(self, v, key)

Arguments

public function FTKeyObjectPairDescription(self)

Arguments

Return Value character(len=description_character_length)

public recursive subroutine printFTKeyObjectPairDescription(self, iUnit)

Arguments

public function key(self)

Arguments

Return Value character(len=ftdict_kwd_string_length)

public function object(self)

Arguments

Return Value class(FTObject), POINTER