acs_object_type::supertype (private)

 acs_object_type::supertype -supertype supertype -subtype subtype

Defined in packages/acs-tcl/tcl/object-type-procs.tcl

Returns true if subtype is equal to, or a subtype of supertype.

Switches:
-supertype (required)
-subtype (required)
Author:
Lee Denison <lee@thaum.net>

Partial Call Graph (max 5 caller/called nodes):
%3 test_is_object_type_p is_object_type_p (test acs-tcl) acs_object_type::supertype acs_object_type::supertype test_is_object_type_p->acs_object_type::supertype acs_object_type::supertypes acs_object_type::supertypes (private) acs_object_type::supertype->acs_object_type::supertypes acs_object_type::get acs_object_type::get (public) acs_object_type::get->acs_object_type::supertype

Testcases:
is_object_type_p
Source code:
    set supertypes [acs_object_type::supertypes -subtype $subtype]
    lappend supertypes $subtype

    return [expr {$supertype in $supertypes}]
XQL Not present:
Generic
PostgreSQL XQL file:
packages/acs-tcl/tcl/object-type-procs-postgresql.xql

Oracle XQL file:
packages/acs-tcl/tcl/object-type-procs-oracle.xql

[ hide source ] | [ make this the default ]
Show another procedure: