|
FUNCTION parse_express_identifier (s : STRING, i : positive_integer) : positive_integer; LOCAL k : positive_integer ; END_LOCAL ; k := i ; IF i <= LENGTH ( s ) THEN IF ( s [ i ] LIKE '@' ) THEN REPEAT UNTIL ( k > LENGTH ( s ) ) OR ( ( s [ k ] <> '_' ) AND NOT ( s [ k ] LIKE '@' ) AND NOT ( s [ k ] LIKE '#' ) ) ; k := k + 1 ; END_REPEAT ; END_IF ; END_IF ; RETURN ( k ) ; END_FUNCTION; -- parse_express_identifier |
|
public class FParse_express_identifier public static Value run(SdaiContext _context, Value s, Value i) |