FUNCTION: SYS.STRING_TO_GRANTPATH

Source

1 FUNCTION     string_to_grantpath(path in varchar2)
2 RETURN grant_path IS
3   result grant_path := grant_path();
4   prev   number := 1;
5   curr   number := 0;
6 BEGIN
7   IF path is null THEN
8     return result;
9   END IF;
10 
11   curr := instr(path, ',', prev);
12   WHILE curr != 0 LOOP
13     result.extend;
14     result(result.count) := substr(path, prev, curr-prev);
15     prev := curr+1;
16     curr := instr(path, ',', prev);
17   END LOOP;
18   result.extend;
19   result(result.count) := substr(path, prev);
20 
21   RETURN result;
22 END;