|
FUNCTION control_characters_free (s : STRING) : BOOLEAN; LOCAL ch : STRING ; END_LOCAL ; REPEAT i := 1 TO LENGTH ( s ) ; ch := s [ i ] ; IF ( ch = '\x9' ) OR ( ch = '\xa' ) OR ( ch = '\xd' ) THEN RETURN ( FALSE ) ; END_IF ; END_REPEAT ; RETURN ( TRUE ) ; END_FUNCTION; -- control_characters_free |
|
public class FControl_characters_free public static Value run(SdaiContext _context, Value s) |