FUNCTION stripped_typeof
(* SCHEMA engineering_properties_schema; *)
FUNCTION stripped_typeof(arg : GENERIC:G) : SET OF STRING;
LOCAL
types : SET OF STRING := TYPEOF (arg);
stypes : SET OF STRING := [];
n : INTEGER := LENGTH (schema_prefix);
END_LOCAL;
REPEAT i := 1 TO SIZEOF (types);
IF types[i][1:n] = schema_prefix THEN
stypes := stypes + [types[i][n+1:LENGTH(types[i])]];
ELSE
stypes := stypes + [types[i]];
END_IF;
END_REPEAT;
RETURN (stypes);
END_FUNCTION; -- stripped_typeof
Referenced By
Defintion stripped_typeof is references by the following definitions:
[Top Level Definitions] [Exit]Generated by STEP Tools® EXPRESS to HTML Converter
2012-03-27T17:18:51-04:00