|
FUNCTION stripped_typeof (arg : GENERIC:g) : SET [0:?] 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 |
|
public class FStripped_typeof public static Value run(SdaiContext _context, Value arg) |