FUNCTION compute_known_visible_properties
(cl : class_bsu) : SET [0:?] OF property_bsu;
LOCAL s: SET OF property_BSU := []; END_LOCAL;
s := s + USEDIN(cl, 'ISO13584_IEC61360_DICTIONARY_SCHEMA' + '.PROPERTY_BSU.NAME_SCOPE'); IF SIZEOF(cl.definition) = 0 THEN RETURN(s); ELSE IF EXISTS(cl.definition[1]\class.its_superclass) THEN s := s + compute_known_visible_properties( cl.definition[1]\class.its_superclass); END_IF; RETURN(s); END_IF; END_FUNCTION; -- compute_known_visible_properties
|