FUNCTION: SYS.GET_REALM_PARAMETERS

Source

1 function get_realm_parameters(realm in varchar2) return xs$realm_parameter_table
2 as
3   cnt         pls_integer;
4   param       varchar2(4000);
5   pattern     varchar2(129);
6   rule_params xs$realm_parameter_table := xs$realm_parameter_table();
7 begin
8   pattern := '&[[:alpha:]][[:alnum:]$#_]*';
9   -- Get the list of parameters from the membership rule.
10   cnt := 1;
11   LOOP
12     -- Find one parameter.
13     param := regexp_substr(realm, pattern, 1, cnt, 'i');
14 
15     EXIT WHEN (param IS NULL);
16 
17     rule_params.extend(1);
18     rule_params(cnt) := substr(param, 2);             -- Delete the symbol "&'.
19 
20     cnt := cnt + 1;
21   END LOOP;
22   return rule_params;
23 end;