|
FUNCTION check_label_length (l : translatable_label, l_length : INTEGER) : BOOLEAN; IF 'iso13584_iec61360_language_resource_schema.translated_label' IN TYPEOF ( l ) THEN REPEAT i := 1 TO SIZEOF ( l . labels ) ; IF LENGTH ( l . labels [ i ] ) > l_length THEN RETURN ( FALSE ) ; END_IF ; END_REPEAT ; RETURN ( TRUE ) ; ELSE RETURN ( LENGTH ( l ) <= l_length ) ; END_IF ; END_FUNCTION; -- check_label_length |
|
public class FCheck_label_length public static Value run(SdaiContext _context, Value l, Value l_length) |