Add helper package to generate underlying data

Author: tschf

util/provider_data.pkb

@@ -0,0 +1,86 @@
+create or replace PACKAGE BODY PROVIDER_DATA
+AS
+
+    type t_keyword_list is table of varchar2(50)
+        index by PLS_INTEGER;
+
+    function get_keywords
+    return t_keyword_list
+    as
+        l_keys t_keyword_list;
+    begin
+
+        select
+            '"'||keyword||'",'
+        bulk collect into
+            l_keys
+        from
+            v$reserved_words res_words
+            left outer join all_procedures procs on (procs.owner = 'SYS' and procs.object_name = 'STANDARD' and procs.procedure_name = res_words.keyword)
+        where
+            res_words.keyword not in (
+                '!',
+                '!=',
+                '&',
+                '(',
+                ')',
+                '*',
+                '+',
+                ',',
+                '-',
+                '.',
+                '/',
+                ':',
+                ';',
+                '<',
+                '<<',
+                '<=',
+                '=',
+                '=>',
+                '>',
+                '>=',
+                '@',
+                'A',
+                '[',
+                ']',
+                '^',
+                '{',
+                '|',
+                '}'
+            )
+            and procs.object_id is NULL
+        order by keyword;
+
+        return l_keys;
+    end get_keywords;
+
+
+    procedure keywords AS
+        l_keys t_keyword_list;
+    BEGIN
+        l_keys := get_keywords();
+
+        dbms_output.put_line('{');
+        dbms_output.put_line(chr(9) || '"keywords": [');
+
+        for i in 1..l_keys.COUNT
+        loop
+
+
+            if i = l_keys.COUNT
+            then
+                dbms_output.put_line(chr(9)||chr(9) || rtrim(l_keys(i), ','));
+            else
+                dbms_output.put_line(chr(9)||chr(9) || l_keys(i));
+            end if;
+
+        end loop;
+
+        dbms_output.put_line(chr(9) || ']');
+        dbms_output.put_line('}');
+
+
+    END keywords;
+
+END PROVIDER_DATA;
+/

util/provider_data.pks

@@ -0,0 +1,21 @@
+/*
+    Package: provider_data
+    Purpose: Generate the data as a JSON feed that Atom will use to aid in
+    its code completions.
+    Notes: Must be run as sys to gain access to DBA dictionary views
+    Status:
+        [*] - keywords
+        [ ] - Packages
+        [ ] - Package procedures
+        [ ] - Procedure arguments
+        [ ] - Package types
+
+
+*/
+create or replace package provider_data
+as
+
+    procedure keywords;
+
+end provider_data;
+/