(* SCHEMA step_merged_ap_schema; *)
-- DIFF IN AP238 STEP-NC
-- IN AP238 STEP-NC/AP242
FUNCTION dotted_identifiers_syntax
(str : STRING ) : BOOLEAN;
LOCAL
k : positive_integer;
m : positive_integer;
END_LOCAL;
IF NOT EXISTS(str) THEN
RETURN (FALSE);
END_IF;
k := parse_express_identifier(str, 1);
IF k = 1 THEN
RETURN (TRUE);
END_IF;
REPEAT WHILE k <= LENGTH(str);
IF (str[k] <> '.') OR (k = LENGTH(str)) THEN
RETURN (FALSE);
END_IF;
m := parse_express_identifier(str, k + 1);
IF m = k + 1 THEN
RETURN (TRUE);
END_IF;
k := m;
END_REPEAT;
RETURN (FALSE);
END_FUNCTION;
[Top Level Definitions] [Exit]
Generated by STEP Tools® EXPRESS to HTML Converter
2020-07-28T17:02:20-04:00