Overview Schemas Index

ISO13584_IEC61360_DICTIONARY_SCHEMA (jsdai.SIso13584_iec61360_dictionary_schema)


FUNCTION is_subclass
          (sub : class, super : class) : LOGICAL;

IF (NOT EXISTS(sub)) OR (NOT EXISTS(super)) THEN
        RETURN(UNKNOWN);
    END_IF;
    
    IF  sub = super
    THEN
        RETURN(TRUE);
    END_IF;
    
    IF  NOT EXISTS(sub.its_superclass) 
    THEN
        
        RETURN(FALSE); 
    END_IF;
    
    IF  SIZEOF(sub.its_superclass.definition) = 1 
    THEN


        IF (sub.its_superclass.definition[1] = super) 
        THEN
            RETURN(TRUE);
        ELSE
            RETURN(is_subclass(sub.its_superclass.definition[1],
                super));
        END_IF;
    ELSE
        RETURN(UNKNOWN);
    END_IF;

END_FUNCTION; -- is_subclass

public class FIs_subclass
          public static Value run(SdaiContext _context, Value sub, Value super)