|
FUNCTION disjoint_package_terminals (input : SET [0:?] OF package_terminal_armx) : BOOLEAN; LOCAL pk : SET OF package_armx := [ ] ; END_LOCAL ; REPEAT i := 1 TO HIINDEX ( input ) ; pk := pk + input [ i ] . associated_definition ; END_REPEAT ; RETURN ( SIZEOF ( input ) = SIZEOF ( pk ) ) ; END_FUNCTION; -- disjoint_package_terminals |
|
public class FDisjoint_package_terminals public static Value run(SdaiContext _context, Value input) |