|
FUNCTION check_text_length (t : translatable_text, t_length : INTEGER) : BOOLEAN; IF 'iso13584_iec61360_language_resource_schema.translated_text' IN TYPEOF ( t ) THEN REPEAT i := 1 TO SIZEOF ( t . texts ) ; IF LENGTH ( t . texts [ i ] ) > t_length THEN RETURN ( FALSE ) ; END_IF ; END_REPEAT ; RETURN ( TRUE ) ; ELSE RETURN ( LENGTH ( t ) <= t_length ) ; END_IF ; END_FUNCTION; -- check_text_length |
|
public class FCheck_text_length public static Value run(SdaiContext _context, Value t, Value t_length) |