Add files via upload

Author: witold-swierzy

data-platform/autonomous-database/autonomous-json/document_format_conversion_api/sql/DocAttribute.plb

@@ -0,0 +1,26 @@
+create or replace type body DocAttribute as
+    constructor function DocAttribute(aName clob, avalue clob) return self as result
+    is
+    begin
+        key := aName;
+        val := aValue;
+        return;
+    end;
+    
+    overriding member function getCompType return integer
+    is
+    begin
+        return doc_utl.comp_attribute;
+    end;
+
+    overriding member function toString(fmt integer) return clob
+    is
+    begin
+        if fmt = doc_utl.fmt_xml then
+            return key||'="'||val||'"';
+        elsif fmt = doc_utl.fmt_json then
+            return '"'||key||'":"'||val||'"';
+        end if;
+    end;
+end;
+/

data-platform/autonomous-database/autonomous-json/document_format_conversion_api/sql/DocAttribute.pls

@@ -0,0 +1,11 @@
+create or replace type DocAttribute under DocComponent (
+    key  clob,
+    val  clob,
+    
+    constructor function DocAttribute(aName clob, avalue clob) return self as result,
+
+    overriding member function getCompType return integer,
+    overriding member function toString(fmt integer) return clob
+
+);
+/

data-platform/autonomous-database/autonomous-json/document_format_conversion_api/sql/DocComponent.pls

@@ -0,0 +1,8 @@
+create or replace type DocComponent as object
+( 
+    id integer,
+    not instantiable member function getCompType return integer,
+    not instantiable member function toString(fmt integer) return clob
+)
+not instantiable not final;
+/