From 2c5c4a1d1c0da1e743192423ce9a93795fa67213 Mon Sep 17 00:00:00 2001
From: unknown <zrh535@.sw.sherwin.com>
Date: Tue, 31 May 2016 08:47:43 -0400
Subject: [PATCH 1/4] update oos_transform examples to perform XSLT tranform to
 json object

---
 oos_transform_example.sql | 199 ++++++++++++++++++++++++++++++++++++++
 1 file changed, 199 insertions(+)

diff --git a/oos_transform_example.sql b/oos_transform_example.sql
index bb17066..b97ae33 100644
--- a/oos_transform_example.sql
+++ b/oos_transform_example.sql
@@ -88,3 +88,202 @@ begin
   dbms_output.put_line(oos_transform.refcur2csv2(v_rc));
 end;
 /
+
+SET DEFINE OFF;
+declare
+  v_rc sys_refcursor;
+  v_xml1 xmltype;
+  v_xml2 xmltype;
+  v_xslt constant xmltype := xmltype('<?xml version="1.0" encoding="UTF-8"?>
+<xsl:stylesheet version="1.0" xmlns:xsl="http://www.w3.org/1999/XSL/Transform">
+<!--
+  Copyright (c) 2006, Doeke Zanstra
+  All rights reserved.
+
+  Redistribution and use in source and binary forms, with or without modification,
+  are permitted provided that the following conditions are met:
+
+  Redistributions of source code must retain the above copyright notice, this
+  list of conditions and the following disclaimer. Redistributions in binary
+  form must reproduce the above copyright notice, this list of conditions and the
+  following disclaimer in the documentation and/or other materials provided with
+  the distribution.
+
+  Neither the name of the dzLib nor the names of its contributors may be used to
+  endorse or promote products derived from this software without specific prior
+  written permission.
+
+  THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS "AS IS" AND
+  ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED
+  WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE ARE DISCLAIMED.
+  IN NO EVENT SHALL THE COPYRIGHT OWNER OR CONTRIBUTORS BE LIABLE FOR ANY DIRECT,
+  INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING,
+  BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE,
+  DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF
+  LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR
+  OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF
+  THE POSSIBILITY OF SUCH DAMAGE.
+-->
+
+  <xsl:output indent="no" omit-xml-declaration="yes" method="text" encoding="UTF-8" media-type="text/x-json"/>
+  <xsl:strip-space elements="*"/>
+  <!--contant-->
+  <xsl:variable name="d">0123456789</xsl:variable>
+
+  <!-- ignore document text -->
+  <xsl:template match="text()[preceding-sibling::node() or following-sibling::node()]"/>
+
+  <!-- string -->
+  <xsl:template match="text()">
+    <xsl:call-template name="escape-string">
+      <xsl:with-param name="s" select="."/>
+    </xsl:call-template>
+  </xsl:template>
+
+  <!-- Main template for escaping strings; used by above template and for object-properties
+       Responsibilities: placed quotes around string, and chain up to next filter, escape-bs-string -->
+  <xsl:template name="escape-string">
+    <xsl:param name="s"/>
+    <xsl:text>"</xsl:text>
+    <xsl:call-template name="escape-bs-string">
+      <xsl:with-param name="s" select="$s"/>
+    </xsl:call-template>
+    <xsl:text>"</xsl:text>
+  </xsl:template>
+
+  <!-- Escape the backslash (\) before everything else. -->
+  <xsl:template name="escape-bs-string">
+    <xsl:param name="s"/>
+    <xsl:choose>
+      <xsl:when test="contains($s,''\'')">
+        <xsl:call-template name="escape-quot-string">
+          <xsl:with-param name="s" select="concat(substring-before($s,''\''),''\\'')"/>
+        </xsl:call-template>
+        <xsl:call-template name="escape-bs-string">
+          <xsl:with-param name="s" select="substring-after($s,''\'')"/>
+        </xsl:call-template>
+      </xsl:when>
+      <xsl:otherwise>
+        <xsl:call-template name="escape-quot-string">
+          <xsl:with-param name="s" select="$s"/>
+        </xsl:call-template>
+      </xsl:otherwise>
+    </xsl:choose>
+  </xsl:template>
+
+  <!-- Escape the double quote ("). -->
+  <xsl:template name="escape-quot-string">
+    <xsl:param name="s"/>
+    <xsl:choose>
+      <xsl:when test="contains($s,''&quot;'')">
+        <xsl:call-template name="encode-string">
+          <xsl:with-param name="s" select="concat(substring-before($s,''&quot;''),''\&quot;'')"/>
+        </xsl:call-template>
+        <xsl:call-template name="escape-quot-string">
+          <xsl:with-param name="s" select="substring-after($s,''&quot;'')"/>
+        </xsl:call-template>
+      </xsl:when>
+      <xsl:otherwise>
+        <xsl:call-template name="encode-string">
+          <xsl:with-param name="s" select="$s"/>
+        </xsl:call-template>
+      </xsl:otherwise>
+    </xsl:choose>
+  </xsl:template>
+
+  <!-- Replace tab, line feed and/or carriage return by its matching escape code. Can''t escape backslash
+       or double quote here, because they don''t replace characters (&#x0; becomes \t), but they prefix
+       characters (\ becomes \\). Besides, backslash should be seperate anyway, because it should be
+       processed first. This function can''t do that. -->
+  <xsl:template name="encode-string">
+    <xsl:param name="s"/>
+    <xsl:choose>
+      <!-- tab -->
+      <xsl:when test="contains($s,''&#x9;'')">
+        <xsl:call-template name="encode-string">
+          <xsl:with-param name="s" select="concat(substring-before($s,''&#x9;''),''\t'',substring-after($s,''&#x9;''))"/>
+        </xsl:call-template>
+      </xsl:when>
+      <!-- line feed -->
+      <xsl:when test="contains($s,''&#xA;'')">
+        <xsl:call-template name="encode-string">
+          <xsl:with-param name="s" select="concat(substring-before($s,''&#xA;''),''\n'',substring-after($s,''&#xA;''))"/>
+        </xsl:call-template>
+      </xsl:when>
+      <!-- carriage return -->
+      <xsl:when test="contains($s,''&#xD;'')">
+        <xsl:call-template name="encode-string">
+          <xsl:with-param name="s" select="concat(substring-before($s,''&#xD;''),''\r'',substring-after($s,''&#xD;''))"/>
+        </xsl:call-template>
+      </xsl:when>
+      <xsl:otherwise><xsl:value-of select="$s"/></xsl:otherwise>
+    </xsl:choose>
+  </xsl:template>
+
+  <!-- number (no support for javascript mantise) -->
+  <xsl:template match="text()[not(string(number())=''NaN'')]">
+    <xsl:value-of select="."/>
+  </xsl:template>
+
+  <!-- boolean, case-insensitive -->
+  <xsl:template match="text()[translate(.,''TRUE'',''true'')=''true'']">true</xsl:template>
+  <xsl:template match="text()[translate(.,''FALSE'',''false'')=''false'']">false</xsl:template>
+
+  <!-- item:null -->
+  <xsl:template match="*[count(child::node())=0]">
+    <xsl:call-template name="escape-string">
+      <xsl:with-param name="s" select="local-name()"/>
+    </xsl:call-template>
+    <xsl:text>:null</xsl:text>
+    <xsl:if test="following-sibling::*">,</xsl:if>
+    <xsl:if test="not(following-sibling::*)">}</xsl:if> <!-- MBR 30.01.2010: added this line as it appeared to be missing from stylesheet -->
+  </xsl:template>
+
+  <!-- object -->
+  <xsl:template match="*" name="base">
+    <xsl:if test="not(preceding-sibling::*)">{</xsl:if>
+    <xsl:call-template name="escape-string">
+      <xsl:with-param name="s" select="name()"/>
+    </xsl:call-template>
+    <xsl:text>:</xsl:text>
+    <xsl:apply-templates select="child::node()"/>
+    <xsl:if test="following-sibling::*">,</xsl:if>
+    <xsl:if test="not(following-sibling::*)">}</xsl:if>
+  </xsl:template>
+
+  <!-- array -->
+  <xsl:template match="*[count(../*[name(../*)=name(.)])=count(../*) and count(../*)&gt;1]">
+    <xsl:if test="not(preceding-sibling::*)">[</xsl:if>
+    <xsl:choose>
+      <xsl:when test="not(child::node())">
+        <xsl:text>null</xsl:text>
+      </xsl:when>
+      <xsl:otherwise>
+        <xsl:apply-templates select="child::node()"/>
+      </xsl:otherwise>
+    </xsl:choose>
+    <xsl:if test="following-sibling::*">,</xsl:if>
+    <xsl:if test="not(following-sibling::*)">]</xsl:if>
+  </xsl:template>
+
+  <!-- convert root element to an anonymous container -->
+  <xsl:template match="/">
+    <xsl:apply-templates select="node()"/>
+  </xsl:template>
+
+</xsl:stylesheet>');
+
+begin
+  open v_rc for
+    select level, q'[test"quotes'and,commas]' dummy, sysdate from dual
+    connect by level < 4
+  ;
+
+  v_xml1 := oos_transform.refcur2xml(v_rc);
+  dbms_output.put_line(v_xml1.getclobval());
+
+  v_xml2 := v_xml1.transform(v_xslt);
+  dbms_output.put_line(oos_transform.entity_decode(v_xml2.getclobval()));
+
+end;
+/

From 9c809c5930a05706dcb4a2e8e6d95fb9c2ba8ad0 Mon Sep 17 00:00:00 2001
From: unknown <zrh535@.sw.sherwin.com>
Date: Tue, 7 Jun 2016 10:51:27 -0400
Subject: [PATCH 2/4] create 2html and 2json procedures. update
 oos_transform_examples.sql to use these procedures

---
 oos_transform.pkb         | 244 +++++++++++++++++++++++++++++++++++---
 oos_transform.pks         |  10 ++
 oos_transform_example.sql | 199 ++-----------------------------
 3 files changed, 248 insertions(+), 205 deletions(-)

diff --git a/oos_transform.pkb b/oos_transform.pkb
index b953dea..3175751 100644
--- a/oos_transform.pkb
+++ b/oos_transform.pkb
@@ -38,25 +38,25 @@ create or replace package body oos_transform is
     v_xml2 xmltype;
     -- see: http://stackoverflow.com/questions/14088881/xml-to-csv-conversion-using-xquery
     v_xquery constant varchar2(32767) := q'[
-let $nl := codepoints-to-string(10),
-    $q := codepoints-to-string(34),
-    $nodes := /ROWSET/ROW
-for $i in $nodes
-   return concat(string-join($i/*/concat($q, normalize-space(replace(data(.), $q, concat($q,$q))), $q), ','),$nl)
-]';
+    let $nl := codepoints-to-string(10),
+        $q := codepoints-to-string(34),
+        $nodes := /ROWSET/ROW
+    for $i in $nodes
+       return concat(string-join($i/*/concat($q, normalize-space(replace(data(.), $q, concat($q,$q))), $q), ','),$nl)
+    ]';
     v_xquery_names constant varchar2(32767) := q'[
-let $nl := codepoints-to-string(10),
-    $q := codepoints-to-string(34),
-    $nodes := /ROWSET/ROW
-    return concat(
-              string-join(distinct-values($nodes/*/concat($q, name(.), $q)), ','),
-              $nl,
-              string-join(
-                 for $i in $nodes
+    let $nl := codepoints-to-string(10),
+        $q := codepoints-to-string(34),
+        $nodes := /ROWSET/ROW
+        return concat(
+            string-join(distinct-values($nodes/*/concat($q, name(.), $q)), ','),
+            $nl,
+            string-join(
+                for $i in $nodes
                     return string-join($i/*/concat($q, normalize-space(replace(data(.), $q, concat($q,$q))), $q),','),$nl),
-              $nl
-           )
-]';
+            $nl
+        )
+    ]';
   begin
     v_xml1 := refcur2xml(p_rc);
 
@@ -202,6 +202,216 @@ let $nl := codepoints-to-string(10),
   begin
     return dbms_xmlgen.convert(p_in, dbms_xmlgen.entity_decode);
   end;
+
+  function refcur2html(
+    p_rc in sys_refcursor
+  ) return clob is
+    v_xml1 xmltype;
+    v_xml2 xmltype;
+    v_xquery constant varchar2(32767) := q'[<table>
+  <thead>
+    <tr>{ for $i in /ROWSET/ROW[1]/* return <th>{name($i)}</th> }</tr>
+  </thead>
+  <tbody>
+  {
+    for $i in /ROWSET/* return <tr>{ for $j in $i/* return <td>{data($j)}</td> }</tr>
+  }
+  </tbody>
+</table>]';
+  begin
+    v_xml1 := refcur2xml(p_rc);
+    v_xml2 := xquery(v_xml1, v_xquery);
+    return entity_decode(v_xml2.getclobval());
+  end;
+
+  function refcur2json(
+    p_rc in sys_refcursor
+  ) return clob is
+    v_xml1 xmltype;
+    v_xml2 xmltype;
+    v_json_xslt constant xmltype := xmltype('<?xml version="1.0" encoding="UTF-8"?>
+<xsl:stylesheet version="1.0" xmlns:xsl="http://www.w3.org/1999/XSL/Transform">
+<!--
+  Copyright (c) 2006, Doeke Zanstra
+  All rights reserved.
+
+  Redistribution and use in source and binary forms, with or without modification,
+  are permitted provided that the following conditions are met:
+
+  Redistributions of source code must retain the above copyright notice, this
+  list of conditions and the following disclaimer. Redistributions in binary
+  form must reproduce the above copyright notice, this list of conditions and the
+  following disclaimer in the documentation and/or other materials provided with
+  the distribution.
+
+  Neither the name of the dzLib nor the names of its contributors may be used to
+  endorse or promote products derived from this software without specific prior
+  written permission.
+
+  THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS "AS IS" AND
+  ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED
+  WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE ARE DISCLAIMED.
+  IN NO EVENT SHALL THE COPYRIGHT OWNER OR CONTRIBUTORS BE LIABLE FOR ANY DIRECT,
+  INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING,
+  BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE,
+  DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF
+  LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR
+  OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF
+  THE POSSIBILITY OF SUCH DAMAGE.
+-->
+
+  <xsl:output indent="no" omit-xml-declaration="yes" method="text" encoding="UTF-8" media-type="text/x-json"/>
+  <xsl:strip-space elements="*"/>
+  <!--contant-->
+  <xsl:variable name="d">0123456789</xsl:variable>
+
+  <!-- ignore document text -->
+  <xsl:template match="text()[preceding-sibling::node() or following-sibling::node()]"/>
+
+  <!-- string -->
+  <xsl:template match="text()">
+    <xsl:call-template name="escape-string">
+      <xsl:with-param name="s" select="."/>
+    </xsl:call-template>
+  </xsl:template>
+
+  <!-- Main template for escaping strings; used by above template and for object-properties
+       Responsibilities: placed quotes around string, and chain up to next filter, escape-bs-string -->
+  <xsl:template name="escape-string">
+    <xsl:param name="s"/>
+    <xsl:text>"</xsl:text>
+    <xsl:call-template name="escape-bs-string">
+      <xsl:with-param name="s" select="$s"/>
+    </xsl:call-template>
+    <xsl:text>"</xsl:text>
+  </xsl:template>
+
+  <!-- Escape the backslash (\) before everything else. -->
+  <xsl:template name="escape-bs-string">
+    <xsl:param name="s"/>
+    <xsl:choose>
+      <xsl:when test="contains($s,''\'')">
+        <xsl:call-template name="escape-quot-string">
+          <xsl:with-param name="s" select="concat(substring-before($s,''\''),''\\'')"/>
+        </xsl:call-template>
+        <xsl:call-template name="escape-bs-string">
+          <xsl:with-param name="s" select="substring-after($s,''\'')"/>
+        </xsl:call-template>
+      </xsl:when>
+      <xsl:otherwise>
+        <xsl:call-template name="escape-quot-string">
+          <xsl:with-param name="s" select="$s"/>
+        </xsl:call-template>
+      </xsl:otherwise>
+    </xsl:choose>
+  </xsl:template>
+
+  <!-- Escape the double quote ("). -->
+  <xsl:template name="escape-quot-string">
+    <xsl:param name="s"/>
+    <xsl:choose>
+      <xsl:when test="contains($s,''&quot;'')">
+        <xsl:call-template name="encode-string">
+          <xsl:with-param name="s" select="concat(substring-before($s,''&quot;''),''\&quot;'')"/>
+        </xsl:call-template>
+        <xsl:call-template name="escape-quot-string">
+          <xsl:with-param name="s" select="substring-after($s,''&quot;'')"/>
+        </xsl:call-template>
+      </xsl:when>
+      <xsl:otherwise>
+        <xsl:call-template name="encode-string">
+          <xsl:with-param name="s" select="$s"/>
+        </xsl:call-template>
+      </xsl:otherwise>
+    </xsl:choose>
+  </xsl:template>
+
+  <!-- Replace tab, line feed and/or carriage return by its matching escape code. Can''t escape backslash
+       or double quote here, because they don''t replace characters (&#x0; becomes \t), but they prefix
+       characters (\ becomes \\). Besides, backslash should be seperate anyway, because it should be
+       processed first. This function can''t do that. -->
+  <xsl:template name="encode-string">
+    <xsl:param name="s"/>
+    <xsl:choose>
+      <!-- tab -->
+      <xsl:when test="contains($s,''&#x9;'')">
+        <xsl:call-template name="encode-string">
+          <xsl:with-param name="s" select="concat(substring-before($s,''&#x9;''),''\t'',substring-after($s,''&#x9;''))"/>
+        </xsl:call-template>
+      </xsl:when>
+      <!-- line feed -->
+      <xsl:when test="contains($s,''&#xA;'')">
+        <xsl:call-template name="encode-string">
+          <xsl:with-param name="s" select="concat(substring-before($s,''&#xA;''),''\n'',substring-after($s,''&#xA;''))"/>
+        </xsl:call-template>
+      </xsl:when>
+      <!-- carriage return -->
+      <xsl:when test="contains($s,''&#xD;'')">
+        <xsl:call-template name="encode-string">
+          <xsl:with-param name="s" select="concat(substring-before($s,''&#xD;''),''\r'',substring-after($s,''&#xD;''))"/>
+        </xsl:call-template>
+      </xsl:when>
+      <xsl:otherwise><xsl:value-of select="$s"/></xsl:otherwise>
+    </xsl:choose>
+  </xsl:template>
+
+  <!-- number (no support for javascript mantise) -->
+  <xsl:template match="text()[not(string(number())=''NaN'')]">
+    <xsl:value-of select="."/>
+  </xsl:template>
+
+  <!-- boolean, case-insensitive -->
+  <xsl:template match="text()[translate(.,''TRUE'',''true'')=''true'']">true</xsl:template>
+  <xsl:template match="text()[translate(.,''FALSE'',''false'')=''false'']">false</xsl:template>
+
+  <!-- item:null -->
+  <xsl:template match="*[count(child::node())=0]">
+    <xsl:call-template name="escape-string">
+      <xsl:with-param name="s" select="local-name()"/>
+    </xsl:call-template>
+    <xsl:text>:null</xsl:text>
+    <xsl:if test="following-sibling::*">,</xsl:if>
+    <xsl:if test="not(following-sibling::*)">}</xsl:if> <!-- MBR 30.01.2010: added this line as it appeared to be missing from stylesheet -->
+  </xsl:template>
+
+  <!-- object -->
+  <xsl:template match="*" name="base">
+    <xsl:if test="not(preceding-sibling::*)">{</xsl:if>
+    <xsl:call-template name="escape-string">
+      <xsl:with-param name="s" select="name()"/>
+    </xsl:call-template>
+    <xsl:text>:</xsl:text>
+    <xsl:apply-templates select="child::node()"/>
+    <xsl:if test="following-sibling::*">,</xsl:if>
+    <xsl:if test="not(following-sibling::*)">}</xsl:if>
+  </xsl:template>
+
+  <!-- array -->
+  <xsl:template match="*[count(../*[name(../*)=name(.)])=count(../*) and count(../*)&gt;1]">
+    <xsl:if test="not(preceding-sibling::*)">[</xsl:if>
+    <xsl:choose>
+      <xsl:when test="not(child::node())">
+        <xsl:text>null</xsl:text>
+      </xsl:when>
+      <xsl:otherwise>
+        <xsl:apply-templates select="child::node()"/>
+      </xsl:otherwise>
+    </xsl:choose>
+    <xsl:if test="following-sibling::*">,</xsl:if>
+    <xsl:if test="not(following-sibling::*)">]</xsl:if>
+  </xsl:template>
+
+  <!-- convert root element to an anonymous container -->
+  <xsl:template match="/">
+    <xsl:apply-templates select="node()"/>
+  </xsl:template>
+
+</xsl:stylesheet>');
+  begin
+    v_xml1 := refcur2xml(p_rc);
+    v_xml2 := xslt(v_xml1, v_json_xslt);
+    return entity_decode(v_xml2.getclobval());
+  end;
 end;
 /
 show errors
diff --git a/oos_transform.pks b/oos_transform.pks
index 0551e0b..e43458c 100644
--- a/oos_transform.pks
+++ b/oos_transform.pks
@@ -33,6 +33,16 @@ create or replace package oos_transform is
   -- decodes any encoded xml entities (e.g. double quotes and ampersand)
   function entity_decode(p_in clob) return clob;
 
+  -- transforms a ref cursor to an html table (xquery implementation)
+  function refcur2html(
+    p_rc in sys_refcursor
+  ) return clob;
+
+  -- transforms a ref cursor to json (xslt implementation)
+  function refcur2json(
+    p_rc in sys_refcursor
+  ) return clob;
+
 end;
 /
 show errors
diff --git a/oos_transform_example.sql b/oos_transform_example.sql
index b97ae33..13c3117 100644
--- a/oos_transform_example.sql
+++ b/oos_transform_example.sql
@@ -89,201 +89,24 @@ begin
 end;
 /
 
-SET DEFINE OFF;
 declare
   v_rc sys_refcursor;
-  v_xml1 xmltype;
-  v_xml2 xmltype;
-  v_xslt constant xmltype := xmltype('<?xml version="1.0" encoding="UTF-8"?>
-<xsl:stylesheet version="1.0" xmlns:xsl="http://www.w3.org/1999/XSL/Transform">
-<!--
-  Copyright (c) 2006, Doeke Zanstra
-  All rights reserved.
-
-  Redistribution and use in source and binary forms, with or without modification,
-  are permitted provided that the following conditions are met:
-
-  Redistributions of source code must retain the above copyright notice, this
-  list of conditions and the following disclaimer. Redistributions in binary
-  form must reproduce the above copyright notice, this list of conditions and the
-  following disclaimer in the documentation and/or other materials provided with
-  the distribution.
-
-  Neither the name of the dzLib nor the names of its contributors may be used to
-  endorse or promote products derived from this software without specific prior
-  written permission.
-
-  THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS "AS IS" AND
-  ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED
-  WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE ARE DISCLAIMED.
-  IN NO EVENT SHALL THE COPYRIGHT OWNER OR CONTRIBUTORS BE LIABLE FOR ANY DIRECT,
-  INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING,
-  BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE,
-  DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF
-  LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR
-  OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF
-  THE POSSIBILITY OF SUCH DAMAGE.
--->
-
-  <xsl:output indent="no" omit-xml-declaration="yes" method="text" encoding="UTF-8" media-type="text/x-json"/>
-  <xsl:strip-space elements="*"/>
-  <!--contant-->
-  <xsl:variable name="d">0123456789</xsl:variable>
-
-  <!-- ignore document text -->
-  <xsl:template match="text()[preceding-sibling::node() or following-sibling::node()]"/>
-
-  <!-- string -->
-  <xsl:template match="text()">
-    <xsl:call-template name="escape-string">
-      <xsl:with-param name="s" select="."/>
-    </xsl:call-template>
-  </xsl:template>
-
-  <!-- Main template for escaping strings; used by above template and for object-properties
-       Responsibilities: placed quotes around string, and chain up to next filter, escape-bs-string -->
-  <xsl:template name="escape-string">
-    <xsl:param name="s"/>
-    <xsl:text>"</xsl:text>
-    <xsl:call-template name="escape-bs-string">
-      <xsl:with-param name="s" select="$s"/>
-    </xsl:call-template>
-    <xsl:text>"</xsl:text>
-  </xsl:template>
-
-  <!-- Escape the backslash (\) before everything else. -->
-  <xsl:template name="escape-bs-string">
-    <xsl:param name="s"/>
-    <xsl:choose>
-      <xsl:when test="contains($s,''\'')">
-        <xsl:call-template name="escape-quot-string">
-          <xsl:with-param name="s" select="concat(substring-before($s,''\''),''\\'')"/>
-        </xsl:call-template>
-        <xsl:call-template name="escape-bs-string">
-          <xsl:with-param name="s" select="substring-after($s,''\'')"/>
-        </xsl:call-template>
-      </xsl:when>
-      <xsl:otherwise>
-        <xsl:call-template name="escape-quot-string">
-          <xsl:with-param name="s" select="$s"/>
-        </xsl:call-template>
-      </xsl:otherwise>
-    </xsl:choose>
-  </xsl:template>
-
-  <!-- Escape the double quote ("). -->
-  <xsl:template name="escape-quot-string">
-    <xsl:param name="s"/>
-    <xsl:choose>
-      <xsl:when test="contains($s,''&quot;'')">
-        <xsl:call-template name="encode-string">
-          <xsl:with-param name="s" select="concat(substring-before($s,''&quot;''),''\&quot;'')"/>
-        </xsl:call-template>
-        <xsl:call-template name="escape-quot-string">
-          <xsl:with-param name="s" select="substring-after($s,''&quot;'')"/>
-        </xsl:call-template>
-      </xsl:when>
-      <xsl:otherwise>
-        <xsl:call-template name="encode-string">
-          <xsl:with-param name="s" select="$s"/>
-        </xsl:call-template>
-      </xsl:otherwise>
-    </xsl:choose>
-  </xsl:template>
-
-  <!-- Replace tab, line feed and/or carriage return by its matching escape code. Can''t escape backslash
-       or double quote here, because they don''t replace characters (&#x0; becomes \t), but they prefix
-       characters (\ becomes \\). Besides, backslash should be seperate anyway, because it should be
-       processed first. This function can''t do that. -->
-  <xsl:template name="encode-string">
-    <xsl:param name="s"/>
-    <xsl:choose>
-      <!-- tab -->
-      <xsl:when test="contains($s,''&#x9;'')">
-        <xsl:call-template name="encode-string">
-          <xsl:with-param name="s" select="concat(substring-before($s,''&#x9;''),''\t'',substring-after($s,''&#x9;''))"/>
-        </xsl:call-template>
-      </xsl:when>
-      <!-- line feed -->
-      <xsl:when test="contains($s,''&#xA;'')">
-        <xsl:call-template name="encode-string">
-          <xsl:with-param name="s" select="concat(substring-before($s,''&#xA;''),''\n'',substring-after($s,''&#xA;''))"/>
-        </xsl:call-template>
-      </xsl:when>
-      <!-- carriage return -->
-      <xsl:when test="contains($s,''&#xD;'')">
-        <xsl:call-template name="encode-string">
-          <xsl:with-param name="s" select="concat(substring-before($s,''&#xD;''),''\r'',substring-after($s,''&#xD;''))"/>
-        </xsl:call-template>
-      </xsl:when>
-      <xsl:otherwise><xsl:value-of select="$s"/></xsl:otherwise>
-    </xsl:choose>
-  </xsl:template>
-
-  <!-- number (no support for javascript mantise) -->
-  <xsl:template match="text()[not(string(number())=''NaN'')]">
-    <xsl:value-of select="."/>
-  </xsl:template>
-
-  <!-- boolean, case-insensitive -->
-  <xsl:template match="text()[translate(.,''TRUE'',''true'')=''true'']">true</xsl:template>
-  <xsl:template match="text()[translate(.,''FALSE'',''false'')=''false'']">false</xsl:template>
-
-  <!-- item:null -->
-  <xsl:template match="*[count(child::node())=0]">
-    <xsl:call-template name="escape-string">
-      <xsl:with-param name="s" select="local-name()"/>
-    </xsl:call-template>
-    <xsl:text>:null</xsl:text>
-    <xsl:if test="following-sibling::*">,</xsl:if>
-    <xsl:if test="not(following-sibling::*)">}</xsl:if> <!-- MBR 30.01.2010: added this line as it appeared to be missing from stylesheet -->
-  </xsl:template>
-
-  <!-- object -->
-  <xsl:template match="*" name="base">
-    <xsl:if test="not(preceding-sibling::*)">{</xsl:if>
-    <xsl:call-template name="escape-string">
-      <xsl:with-param name="s" select="name()"/>
-    </xsl:call-template>
-    <xsl:text>:</xsl:text>
-    <xsl:apply-templates select="child::node()"/>
-    <xsl:if test="following-sibling::*">,</xsl:if>
-    <xsl:if test="not(following-sibling::*)">}</xsl:if>
-  </xsl:template>
-
-  <!-- array -->
-  <xsl:template match="*[count(../*[name(../*)=name(.)])=count(../*) and count(../*)&gt;1]">
-    <xsl:if test="not(preceding-sibling::*)">[</xsl:if>
-    <xsl:choose>
-      <xsl:when test="not(child::node())">
-        <xsl:text>null</xsl:text>
-      </xsl:when>
-      <xsl:otherwise>
-        <xsl:apply-templates select="child::node()"/>
-      </xsl:otherwise>
-    </xsl:choose>
-    <xsl:if test="following-sibling::*">,</xsl:if>
-    <xsl:if test="not(following-sibling::*)">]</xsl:if>
-  </xsl:template>
-
-  <!-- convert root element to an anonymous container -->
-  <xsl:template match="/">
-    <xsl:apply-templates select="node()"/>
-  </xsl:template>
-
-</xsl:stylesheet>');
-
 begin
   open v_rc for
     select level, q'[test"quotes'and,commas]' dummy, sysdate from dual
     connect by level < 4
   ;
+  dbms_output.put_line(oos_transform.refcur2html(v_rc));
+end;
+/
 
-  v_xml1 := oos_transform.refcur2xml(v_rc);
-  dbms_output.put_line(v_xml1.getclobval());
-
-  v_xml2 := v_xml1.transform(v_xslt);
-  dbms_output.put_line(oos_transform.entity_decode(v_xml2.getclobval()));
-
+declare
+  v_rc sys_refcursor;
+begin
+  open v_rc for
+    select level, q'[test"quotes'and,commas]' dummy, sysdate from dual
+    connect by level < 4
+  ;
+  dbms_output.put_line(oos_transform.refcur2json(v_rc));
 end;
 /

From 306c42aa34403cbfa47d6bd231b54c4f1bf12aa1 Mon Sep 17 00:00:00 2001
From: zhudock <zrhudock@outlook.com>
Date: Fri, 10 Jun 2016 10:31:09 -0400
Subject: [PATCH 3/4] update gitignore

---
 .gitignore | 1 +
 1 file changed, 1 insertion(+)
 create mode 100644 .gitignore

diff --git a/.gitignore b/.gitignore
new file mode 100644
index 0000000..3a4edf6
--- /dev/null
+++ b/.gitignore
@@ -0,0 +1 @@
+.project

From a4cb88b534866645e4921ce62b79872b5e4a411f Mon Sep 17 00:00:00 2001
From: zhudock <zrhudock@outlook.com>
Date: Fri, 10 Jun 2016 15:11:22 -0400
Subject: [PATCH 4/4] move entity_decode to end. clean up comments

---
 oos_transform.pkb | 791 ++++++++++++++++++++++------------------------
 oos_transform.pks |  96 +++---
 2 files changed, 422 insertions(+), 465 deletions(-)

diff --git a/oos_transform.pkb b/oos_transform.pkb
index 3175751..ecf772c 100644
--- a/oos_transform.pkb
+++ b/oos_transform.pkb
@@ -1,417 +1,374 @@
-create or replace package body oos_transform is
-
-  function refcur2xml(
-    p_rc in sys_refcursor
-   ,p_null_handling in number default dbms_xmlgen.null_attr
-  ) return xmltype is
-    l_context dbms_xmlgen.ctxhandle;
-    l_xml xmltype;
-  begin
-    l_context := dbms_xmlgen.newcontext(p_rc);
-
-    dbms_xmlgen.setnullhandling(l_context, p_null_handling);
-
-    l_xml := dbms_xmlgen.getxmltype(l_context, dbms_xmlgen.none);
-
-    dbms_xmlgen.closecontext(l_context);
-
-    return l_xml;
-  end;
-
-  function xslt(p_in in xmltype, p_trans in xmltype) return xmltype is
-  begin
-    return p_in.transform(p_trans);
-  end;
-
-  function xquery(p_in in xmltype, p_trans in varchar2) return xmltype is
-    l_out xmltype;
-  begin
-    select xmlquery(p_trans passing p_in returning content) into l_out from dual;
-    return l_out;
-  end;
-
-  function refcur2csv(
-    p_rc in sys_refcursor
-   ,p_column_names in boolean default false
-  ) return clob is
-    v_xml1 xmltype;
-    v_xml2 xmltype;
-    -- see: http://stackoverflow.com/questions/14088881/xml-to-csv-conversion-using-xquery
-    v_xquery constant varchar2(32767) := q'[
-    let $nl := codepoints-to-string(10),
-        $q := codepoints-to-string(34),
-        $nodes := /ROWSET/ROW
-    for $i in $nodes
-       return concat(string-join($i/*/concat($q, normalize-space(replace(data(.), $q, concat($q,$q))), $q), ','),$nl)
-    ]';
-    v_xquery_names constant varchar2(32767) := q'[
-    let $nl := codepoints-to-string(10),
-        $q := codepoints-to-string(34),
-        $nodes := /ROWSET/ROW
-        return concat(
-            string-join(distinct-values($nodes/*/concat($q, name(.), $q)), ','),
-            $nl,
-            string-join(
-                for $i in $nodes
-                    return string-join($i/*/concat($q, normalize-space(replace(data(.), $q, concat($q,$q))), $q),','),$nl),
-            $nl
-        )
-    ]';
-  begin
-    v_xml1 := refcur2xml(p_rc);
-
-    if p_column_names
-    then
-      v_xml2 := xquery(v_xml1, v_xquery_names);
-    else
-      v_xml2 := xquery(v_xml1, v_xquery);
-    end if;
-    return entity_decode(v_xml2.getclobval());
-  end;
-
-  function refcur2csv2(
-    p_rc           in out sys_refcursor
-   ,p_column_names in boolean default false
-   ,p_separator    in varchar2 default ','
-   ,p_endline      in varchar2 default chr(13)||chr(10)
-   ,p_date_fmt     in varchar2 default 'YYYY-MM-DD HH24:MI:SS'
-  ) return clob is
-    v_lob clob;
-    v_cur_id pls_integer;
-    v_col_count pls_integer;
-    v_col_desc dbms_sql.desc_tab3;
-
-    v_var_varchar2 varchar2(32767);
-    v_var_number number;
-    v_var_date date;
-
-    v_buf varchar2(32767);
-
-    procedure print(p_rec in dbms_sql.desc_rec3) is
-    begin
-      dbms_output.new_line;
-      dbms_output.put_line('---------------------');
-      dbms_output.put_line('col_type            = '
-                           || p_rec.col_type);
-      dbms_output.put_line('col_maxlen          = '
-                           || p_rec.col_max_len);
-      dbms_output.put_line('col_name            = '
-                           || p_rec.col_name);
-      dbms_output.put_line('col_name_len        = '
-                           || p_rec.col_name_len);
-      dbms_output.put_line('col_schema_name     = '
-                           || p_rec.col_schema_name);
-      dbms_output.put_line('col_schema_name_len = '
-                           || p_rec.col_schema_name_len);
-      dbms_output.put_line('col_precision       = '
-                           || p_rec.col_precision);
-      dbms_output.put_line('col_scale           = '
-                           || p_rec.col_scale);
-      dbms_output.put_line('col_charsetid       = '
-                           || p_rec.col_charsetid);
-      dbms_output.put_line('col_charsetform     = '
-                           || p_rec.col_charsetform);
-      dbms_output.put_line('col_type_name       = '
-                           || p_rec.col_type_name);
-      dbms_output.put_line('col_type_name_len   = '
-                           || p_rec.col_type_name_len);
-      dbms_output.put     ('col_null_ok         = ');
-      if (p_rec.col_null_ok) then
-        dbms_output.put_line('true');
-      else
-        dbms_output.put_line('false');
-      end if;
-    end;
-  begin
-    dbms_lob.createtemporary(lob_loc => v_lob,
-                             cache   => false,
-                             dur     => dbms_lob.call);
-
-    v_cur_id := dbms_sql.to_cursor_number(p_rc);
-
-    dbms_sql.describe_columns3(v_cur_id, v_col_count, v_col_desc);
-
-    if p_column_names
-    then
-      for i in 1 .. v_col_count
-      loop
-        v_buf := '"' || v_col_desc(i).col_name || '"';
-        if i < v_col_count
-        then
-          v_buf := v_buf || p_separator;
-        end if;
-        dbms_lob.writeappend(v_lob, length(v_buf), v_buf);
-      end loop;
-      dbms_lob.writeappend(v_lob, length(p_endline), p_endline);
-    end if;
-
-    for i in 1 .. v_col_count
-    loop
-      -- print(v_col_desc(i));
-      case v_col_desc(i).col_type
-        -- TODO: where to find all the numbers ?
-        -- See https://docs.oracle.com/cd/B10501_01/server.920/a96540/sql_elements2a.htm#45504
-        when  1 then dbms_sql.define_column(v_cur_id, i, v_var_varchar2, 32767);
-        when  2 then dbms_sql.define_column(v_cur_id, i, v_var_number);
-        when 12 then dbms_sql.define_column(v_cur_id, i, v_var_date);
-        when 96 then dbms_sql.define_column(v_cur_id, i, v_var_varchar2, 32767);
-        else         dbms_sql.define_column(v_cur_id, i, v_var_varchar2, 32767);
-      end case;
-    end loop;
-
-    -- TODO: A (double) quote character in a field must be represented by two
-    -- (double) quote characters.
-    -- CSV doesn't care about single quote characters. Only replace double quotes
-    -- using the regexp_replace below.
-    while dbms_sql.fetch_rows(v_cur_id) > 0
-    loop
-      for i in 1 .. v_col_count
-      loop
-        case v_col_desc(i).col_type
-          when  2 then
-            dbms_sql.column_value(v_cur_id, i, v_var_number);
-            -- dbms_output.put_line('v_var_number = ' || v_var_number);
-            v_buf := to_char(v_var_number); -- TODO format model
-          when 12 then
-            dbms_sql.column_value(v_cur_id, i, v_var_date);
-            -- dbms_output.put_line('v_var_date = ' || v_var_date);
-            v_buf := '"' || to_char(v_var_date, p_date_fmt) || '"';
-          when 96 then
-            dbms_sql.column_value(v_cur_id, i, v_var_varchar2);
-            -- dbms_output.put_line('v_var_varchar2 = ' || v_var_varchar2);
-            v_buf := '"' || regexp_replace(v_var_varchar2, '(' || chr(34) || ')', '\1' || '\1') || '"';
-          else
-            dbms_sql.column_value(v_cur_id, i, v_var_varchar2);
-            -- dbms_output.put_line('v_var_varchar2 = ' || v_var_varchar2);
-            v_buf := '"' || regexp_replace(v_var_varchar2, '(' || chr(34) || ')', '\1' || '\1') || '"';
-        end case;
-        if i < v_col_count
-        then
-          v_buf := v_buf || p_separator;
-        end if;
-        dbms_lob.writeappend(v_lob, length(v_buf), v_buf);
-      end loop;
-      dbms_lob.writeappend(v_lob, length(p_endline), p_endline);
-    end loop;
-
-    return v_lob;
-  end;
-
-  function entity_decode(p_in clob) return clob
-  is
-  begin
-    return dbms_xmlgen.convert(p_in, dbms_xmlgen.entity_decode);
-  end;
-
-  function refcur2html(
-    p_rc in sys_refcursor
-  ) return clob is
-    v_xml1 xmltype;
-    v_xml2 xmltype;
-    v_xquery constant varchar2(32767) := q'[<table>
-  <thead>
-    <tr>{ for $i in /ROWSET/ROW[1]/* return <th>{name($i)}</th> }</tr>
-  </thead>
-  <tbody>
-  {
-    for $i in /ROWSET/* return <tr>{ for $j in $i/* return <td>{data($j)}</td> }</tr>
-  }
-  </tbody>
-</table>]';
-  begin
-    v_xml1 := refcur2xml(p_rc);
-    v_xml2 := xquery(v_xml1, v_xquery);
-    return entity_decode(v_xml2.getclobval());
-  end;
-
-  function refcur2json(
-    p_rc in sys_refcursor
-  ) return clob is
-    v_xml1 xmltype;
-    v_xml2 xmltype;
-    v_json_xslt constant xmltype := xmltype('<?xml version="1.0" encoding="UTF-8"?>
-<xsl:stylesheet version="1.0" xmlns:xsl="http://www.w3.org/1999/XSL/Transform">
-<!--
-  Copyright (c) 2006, Doeke Zanstra
-  All rights reserved.
-
-  Redistribution and use in source and binary forms, with or without modification,
-  are permitted provided that the following conditions are met:
-
-  Redistributions of source code must retain the above copyright notice, this
-  list of conditions and the following disclaimer. Redistributions in binary
-  form must reproduce the above copyright notice, this list of conditions and the
-  following disclaimer in the documentation and/or other materials provided with
-  the distribution.
-
-  Neither the name of the dzLib nor the names of its contributors may be used to
-  endorse or promote products derived from this software without specific prior
-  written permission.
-
-  THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS "AS IS" AND
-  ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED
-  WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE ARE DISCLAIMED.
-  IN NO EVENT SHALL THE COPYRIGHT OWNER OR CONTRIBUTORS BE LIABLE FOR ANY DIRECT,
-  INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING,
-  BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE,
-  DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF
-  LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR
-  OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF
-  THE POSSIBILITY OF SUCH DAMAGE.
--->
-
-  <xsl:output indent="no" omit-xml-declaration="yes" method="text" encoding="UTF-8" media-type="text/x-json"/>
-  <xsl:strip-space elements="*"/>
-  <!--contant-->
-  <xsl:variable name="d">0123456789</xsl:variable>
-
-  <!-- ignore document text -->
-  <xsl:template match="text()[preceding-sibling::node() or following-sibling::node()]"/>
-
-  <!-- string -->
-  <xsl:template match="text()">
-    <xsl:call-template name="escape-string">
-      <xsl:with-param name="s" select="."/>
-    </xsl:call-template>
-  </xsl:template>
-
-  <!-- Main template for escaping strings; used by above template and for object-properties
-       Responsibilities: placed quotes around string, and chain up to next filter, escape-bs-string -->
-  <xsl:template name="escape-string">
-    <xsl:param name="s"/>
-    <xsl:text>"</xsl:text>
-    <xsl:call-template name="escape-bs-string">
-      <xsl:with-param name="s" select="$s"/>
-    </xsl:call-template>
-    <xsl:text>"</xsl:text>
-  </xsl:template>
-
-  <!-- Escape the backslash (\) before everything else. -->
-  <xsl:template name="escape-bs-string">
-    <xsl:param name="s"/>
-    <xsl:choose>
-      <xsl:when test="contains($s,''\'')">
-        <xsl:call-template name="escape-quot-string">
-          <xsl:with-param name="s" select="concat(substring-before($s,''\''),''\\'')"/>
-        </xsl:call-template>
-        <xsl:call-template name="escape-bs-string">
-          <xsl:with-param name="s" select="substring-after($s,''\'')"/>
-        </xsl:call-template>
-      </xsl:when>
-      <xsl:otherwise>
-        <xsl:call-template name="escape-quot-string">
-          <xsl:with-param name="s" select="$s"/>
-        </xsl:call-template>
-      </xsl:otherwise>
-    </xsl:choose>
-  </xsl:template>
-
-  <!-- Escape the double quote ("). -->
-  <xsl:template name="escape-quot-string">
-    <xsl:param name="s"/>
-    <xsl:choose>
-      <xsl:when test="contains($s,''&quot;'')">
-        <xsl:call-template name="encode-string">
-          <xsl:with-param name="s" select="concat(substring-before($s,''&quot;''),''\&quot;'')"/>
-        </xsl:call-template>
-        <xsl:call-template name="escape-quot-string">
-          <xsl:with-param name="s" select="substring-after($s,''&quot;'')"/>
-        </xsl:call-template>
-      </xsl:when>
-      <xsl:otherwise>
-        <xsl:call-template name="encode-string">
-          <xsl:with-param name="s" select="$s"/>
-        </xsl:call-template>
-      </xsl:otherwise>
-    </xsl:choose>
-  </xsl:template>
-
-  <!-- Replace tab, line feed and/or carriage return by its matching escape code. Can''t escape backslash
-       or double quote here, because they don''t replace characters (&#x0; becomes \t), but they prefix
-       characters (\ becomes \\). Besides, backslash should be seperate anyway, because it should be
-       processed first. This function can''t do that. -->
-  <xsl:template name="encode-string">
-    <xsl:param name="s"/>
-    <xsl:choose>
-      <!-- tab -->
-      <xsl:when test="contains($s,''&#x9;'')">
-        <xsl:call-template name="encode-string">
-          <xsl:with-param name="s" select="concat(substring-before($s,''&#x9;''),''\t'',substring-after($s,''&#x9;''))"/>
-        </xsl:call-template>
-      </xsl:when>
-      <!-- line feed -->
-      <xsl:when test="contains($s,''&#xA;'')">
-        <xsl:call-template name="encode-string">
-          <xsl:with-param name="s" select="concat(substring-before($s,''&#xA;''),''\n'',substring-after($s,''&#xA;''))"/>
-        </xsl:call-template>
-      </xsl:when>
-      <!-- carriage return -->
-      <xsl:when test="contains($s,''&#xD;'')">
-        <xsl:call-template name="encode-string">
-          <xsl:with-param name="s" select="concat(substring-before($s,''&#xD;''),''\r'',substring-after($s,''&#xD;''))"/>
-        </xsl:call-template>
-      </xsl:when>
-      <xsl:otherwise><xsl:value-of select="$s"/></xsl:otherwise>
-    </xsl:choose>
-  </xsl:template>
-
-  <!-- number (no support for javascript mantise) -->
-  <xsl:template match="text()[not(string(number())=''NaN'')]">
-    <xsl:value-of select="."/>
-  </xsl:template>
-
-  <!-- boolean, case-insensitive -->
-  <xsl:template match="text()[translate(.,''TRUE'',''true'')=''true'']">true</xsl:template>
-  <xsl:template match="text()[translate(.,''FALSE'',''false'')=''false'']">false</xsl:template>
-
-  <!-- item:null -->
-  <xsl:template match="*[count(child::node())=0]">
-    <xsl:call-template name="escape-string">
-      <xsl:with-param name="s" select="local-name()"/>
-    </xsl:call-template>
-    <xsl:text>:null</xsl:text>
-    <xsl:if test="following-sibling::*">,</xsl:if>
-    <xsl:if test="not(following-sibling::*)">}</xsl:if> <!-- MBR 30.01.2010: added this line as it appeared to be missing from stylesheet -->
-  </xsl:template>
-
-  <!-- object -->
-  <xsl:template match="*" name="base">
-    <xsl:if test="not(preceding-sibling::*)">{</xsl:if>
-    <xsl:call-template name="escape-string">
-      <xsl:with-param name="s" select="name()"/>
-    </xsl:call-template>
-    <xsl:text>:</xsl:text>
-    <xsl:apply-templates select="child::node()"/>
-    <xsl:if test="following-sibling::*">,</xsl:if>
-    <xsl:if test="not(following-sibling::*)">}</xsl:if>
-  </xsl:template>
-
-  <!-- array -->
-  <xsl:template match="*[count(../*[name(../*)=name(.)])=count(../*) and count(../*)&gt;1]">
-    <xsl:if test="not(preceding-sibling::*)">[</xsl:if>
-    <xsl:choose>
-      <xsl:when test="not(child::node())">
-        <xsl:text>null</xsl:text>
-      </xsl:when>
-      <xsl:otherwise>
-        <xsl:apply-templates select="child::node()"/>
-      </xsl:otherwise>
-    </xsl:choose>
-    <xsl:if test="following-sibling::*">,</xsl:if>
-    <xsl:if test="not(following-sibling::*)">]</xsl:if>
-  </xsl:template>
-
-  <!-- convert root element to an anonymous container -->
-  <xsl:template match="/">
-    <xsl:apply-templates select="node()"/>
-  </xsl:template>
-
-</xsl:stylesheet>');
-  begin
-    v_xml1 := refcur2xml(p_rc);
-    v_xml2 := xslt(v_xml1, v_json_xslt);
-    return entity_decode(v_xml2.getclobval());
-  end;
-end;
-/
-show errors
+create or replace package body oos_transform is
+
+  function refcur2xml(
+    p_rc in sys_refcursor
+   ,p_null_handling in number default dbms_xmlgen.null_attr
+  ) return xmltype is
+    l_context dbms_xmlgen.ctxhandle;
+    l_xml xmltype;
+  begin
+    l_context := dbms_xmlgen.newcontext(p_rc);
+
+    dbms_xmlgen.setnullhandling(l_context, p_null_handling);
+
+    l_xml := dbms_xmlgen.getxmltype(l_context, dbms_xmlgen.none);
+
+    dbms_xmlgen.closecontext(l_context);
+
+    return l_xml;
+  end;
+
+  function xslt(p_in in xmltype, p_trans in xmltype) return xmltype is
+  begin
+    return p_in.transform(p_trans);
+  end;
+
+  function xquery(p_in in xmltype, p_trans in varchar2) return xmltype is
+    l_out xmltype;
+  begin
+    select xmlquery(p_trans passing p_in returning content) into l_out from dual;
+    return l_out;
+  end;
+
+  function refcur2csv(
+    p_rc in sys_refcursor
+   ,p_column_names in boolean default false
+  ) return clob is
+    v_xml1 xmltype;
+    v_xml2 xmltype;
+    -- see: http://stackoverflow.com/questions/14088881/xml-to-csv-conversion-using-xquery
+    v_xquery constant varchar2(32767) := q'[
+    let $nl := codepoints-to-string(10),
+        $q := codepoints-to-string(34),
+        $nodes := /ROWSET/ROW
+    for $i in $nodes
+       return concat(string-join($i/*/concat($q, normalize-space(replace(data(.), $q, concat($q,$q))), $q), ','),$nl)
+    ]';
+    v_xquery_names constant varchar2(32767) := q'[
+    let $nl := codepoints-to-string(10),
+        $q := codepoints-to-string(34),
+        $nodes := /ROWSET/ROW
+        return concat(
+            string-join(distinct-values($nodes/*/concat($q, name(.), $q)), ','),
+            $nl,
+            string-join(
+                for $i in $nodes
+                    return string-join($i/*/concat($q, normalize-space(replace(data(.), $q, concat($q,$q))), $q),','),$nl),
+            $nl
+        )
+    ]';
+  begin
+    v_xml1 := refcur2xml(p_rc);
+
+    if p_column_names
+    then
+      v_xml2 := xquery(v_xml1, v_xquery_names);
+    else
+      v_xml2 := xquery(v_xml1, v_xquery);
+    end if;
+    return entity_decode(v_xml2.getclobval());
+  end;
+
+  function refcur2csv2(
+    p_rc           in out sys_refcursor
+   ,p_column_names in boolean default false
+   ,p_separator    in varchar2 default ','
+   ,p_endline      in varchar2 default chr(13)||chr(10)
+   ,p_date_fmt     in varchar2 default 'YYYY-MM-DD HH24:MI:SS'
+  ) return clob is
+    v_lob clob;
+    v_cur_id pls_integer;
+    v_col_count pls_integer;
+    v_col_desc dbms_sql.desc_tab3;
+
+    v_var_varchar2 varchar2(32767);
+    v_var_number number;
+    v_var_date date;
+
+    v_buf varchar2(32767);
+  begin
+    dbms_lob.createtemporary(lob_loc => v_lob,
+                             cache   => false,
+                             dur     => dbms_lob.call);
+
+    v_cur_id := dbms_sql.to_cursor_number(p_rc);
+
+    dbms_sql.describe_columns3(v_cur_id, v_col_count, v_col_desc);
+
+    if p_column_names
+    then
+      for i in 1 .. v_col_count
+      loop
+        v_buf := '"' || v_col_desc(i).col_name || '"';
+        if i < v_col_count
+        then
+          v_buf := v_buf || p_separator;
+        end if;
+        dbms_lob.writeappend(v_lob, length(v_buf), v_buf);
+      end loop;
+      dbms_lob.writeappend(v_lob, length(p_endline), p_endline);
+    end if;
+
+    for i in 1 .. v_col_count
+    loop
+      case v_col_desc(i).col_type
+        -- Numeric codes for Oracle built-in data types
+        -- See https://docs.oracle.com/cd/B10501_01/server.920/a96540/sql_elements2a.htm#45504
+        when  1 then dbms_sql.define_column(v_cur_id, i, v_var_varchar2, 32767);
+        when  2 then dbms_sql.define_column(v_cur_id, i, v_var_number);
+        when 12 then dbms_sql.define_column(v_cur_id, i, v_var_date);
+        when 96 then dbms_sql.define_column(v_cur_id, i, v_var_varchar2, 32767);
+        else         dbms_sql.define_column(v_cur_id, i, v_var_varchar2, 32767);
+      end case;
+    end loop;
+
+    -- A (double) quote character in a field must be represented by two
+    -- (double) quote characters.
+    while dbms_sql.fetch_rows(v_cur_id) > 0
+    loop
+      for i in 1 .. v_col_count
+      loop
+        case v_col_desc(i).col_type
+          when  2 then
+            dbms_sql.column_value(v_cur_id, i, v_var_number);
+            v_buf := to_char(v_var_number); -- TODO format model
+          when 12 then
+            dbms_sql.column_value(v_cur_id, i, v_var_date);
+            v_buf := '"' || to_char(v_var_date, p_date_fmt) || '"';
+          when 96 then
+            dbms_sql.column_value(v_cur_id, i, v_var_varchar2);
+            v_buf := '"' || regexp_replace(v_var_varchar2, '(' || chr(34) || ')', '\1' || '\1') || '"';
+          else
+            dbms_sql.column_value(v_cur_id, i, v_var_varchar2);
+            v_buf := '"' || regexp_replace(v_var_varchar2, '(' || chr(34) || ')', '\1' || '\1') || '"';
+        end case;
+        if i < v_col_count
+        then
+          v_buf := v_buf || p_separator;
+        end if;
+        dbms_lob.writeappend(v_lob, length(v_buf), v_buf);
+      end loop;
+      dbms_lob.writeappend(v_lob, length(p_endline), p_endline);
+    end loop;
+
+    return v_lob;
+  end;
+
+  function refcur2html(
+    p_rc in sys_refcursor
+  ) return clob is
+    v_xml1 xmltype;
+    v_xml2 xmltype;
+    v_xquery constant varchar2(32767) := q'[<table>
+  <thead>
+    <tr>{ for $i in /ROWSET/ROW[1]/* return <th>{name($i)}</th> }</tr>
+  </thead>
+  <tbody>
+  {
+    for $i in /ROWSET/* return <tr>{ for $j in $i/* return <td>{data($j)}</td> }</tr>
+  }
+  </tbody>
+</table>]';
+  begin
+    v_xml1 := refcur2xml(p_rc);
+    v_xml2 := xquery(v_xml1, v_xquery);
+    return entity_decode(v_xml2.getclobval());
+  end;
+
+  function refcur2json(
+    p_rc in sys_refcursor
+  ) return clob is
+    v_xml1 xmltype;
+    v_xml2 xmltype;
+    v_json_xslt constant xmltype := xmltype('<?xml version="1.0" encoding="UTF-8"?>
+<xsl:stylesheet version="1.0" xmlns:xsl="http://www.w3.org/1999/XSL/Transform">
+<!--
+  Copyright (c) 2006, Doeke Zanstra
+  All rights reserved.
+
+  Redistribution and use in source and binary forms, with or without modification,
+  are permitted provided that the following conditions are met:
+
+  Redistributions of source code must retain the above copyright notice, this
+  list of conditions and the following disclaimer. Redistributions in binary
+  form must reproduce the above copyright notice, this list of conditions and the
+  following disclaimer in the documentation and/or other materials provided with
+  the distribution.
+
+  Neither the name of the dzLib nor the names of its contributors may be used to
+  endorse or promote products derived from this software without specific prior
+  written permission.
+
+  THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS "AS IS" AND
+  ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED
+  WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE ARE DISCLAIMED.
+  IN NO EVENT SHALL THE COPYRIGHT OWNER OR CONTRIBUTORS BE LIABLE FOR ANY DIRECT,
+  INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING,
+  BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE,
+  DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF
+  LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR
+  OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF
+  THE POSSIBILITY OF SUCH DAMAGE.
+-->
+
+  <xsl:output indent="no" omit-xml-declaration="yes" method="text" encoding="UTF-8" media-type="text/x-json"/>
+  <xsl:strip-space elements="*"/>
+  <!--contant-->
+  <xsl:variable name="d">0123456789</xsl:variable>
+
+  <!-- ignore document text -->
+  <xsl:template match="text()[preceding-sibling::node() or following-sibling::node()]"/>
+
+  <!-- string -->
+  <xsl:template match="text()">
+    <xsl:call-template name="escape-string">
+      <xsl:with-param name="s" select="."/>
+    </xsl:call-template>
+  </xsl:template>
+
+  <!-- Main template for escaping strings; used by above template and for object-properties
+       Responsibilities: placed quotes around string, and chain up to next filter, escape-bs-string -->
+  <xsl:template name="escape-string">
+    <xsl:param name="s"/>
+    <xsl:text>"</xsl:text>
+    <xsl:call-template name="escape-bs-string">
+      <xsl:with-param name="s" select="$s"/>
+    </xsl:call-template>
+    <xsl:text>"</xsl:text>
+  </xsl:template>
+
+  <!-- Escape the backslash (\) before everything else. -->
+  <xsl:template name="escape-bs-string">
+    <xsl:param name="s"/>
+    <xsl:choose>
+      <xsl:when test="contains($s,''\'')">
+        <xsl:call-template name="escape-quot-string">
+          <xsl:with-param name="s" select="concat(substring-before($s,''\''),''\\'')"/>
+        </xsl:call-template>
+        <xsl:call-template name="escape-bs-string">
+          <xsl:with-param name="s" select="substring-after($s,''\'')"/>
+        </xsl:call-template>
+      </xsl:when>
+      <xsl:otherwise>
+        <xsl:call-template name="escape-quot-string">
+          <xsl:with-param name="s" select="$s"/>
+        </xsl:call-template>
+      </xsl:otherwise>
+    </xsl:choose>
+  </xsl:template>
+
+  <!-- Escape the double quote ("). -->
+  <xsl:template name="escape-quot-string">
+    <xsl:param name="s"/>
+    <xsl:choose>
+      <xsl:when test="contains($s,''&quot;'')">
+        <xsl:call-template name="encode-string">
+          <xsl:with-param name="s" select="concat(substring-before($s,''&quot;''),''\&quot;'')"/>
+        </xsl:call-template>
+        <xsl:call-template name="escape-quot-string">
+          <xsl:with-param name="s" select="substring-after($s,''&quot;'')"/>
+        </xsl:call-template>
+      </xsl:when>
+      <xsl:otherwise>
+        <xsl:call-template name="encode-string">
+          <xsl:with-param name="s" select="$s"/>
+        </xsl:call-template>
+      </xsl:otherwise>
+    </xsl:choose>
+  </xsl:template>
+
+  <!-- Replace tab, line feed and/or carriage return by its matching escape code. Can''t escape backslash
+       or double quote here, because they don''t replace characters (&#x0; becomes \t), but they prefix
+       characters (\ becomes \\). Besides, backslash should be seperate anyway, because it should be
+       processed first. This function can''t do that. -->
+  <xsl:template name="encode-string">
+    <xsl:param name="s"/>
+    <xsl:choose>
+      <!-- tab -->
+      <xsl:when test="contains($s,''&#x9;'')">
+        <xsl:call-template name="encode-string">
+          <xsl:with-param name="s" select="concat(substring-before($s,''&#x9;''),''\t'',substring-after($s,''&#x9;''))"/>
+        </xsl:call-template>
+      </xsl:when>
+      <!-- line feed -->
+      <xsl:when test="contains($s,''&#xA;'')">
+        <xsl:call-template name="encode-string">
+          <xsl:with-param name="s" select="concat(substring-before($s,''&#xA;''),''\n'',substring-after($s,''&#xA;''))"/>
+        </xsl:call-template>
+      </xsl:when>
+      <!-- carriage return -->
+      <xsl:when test="contains($s,''&#xD;'')">
+        <xsl:call-template name="encode-string">
+          <xsl:with-param name="s" select="concat(substring-before($s,''&#xD;''),''\r'',substring-after($s,''&#xD;''))"/>
+        </xsl:call-template>
+      </xsl:when>
+      <xsl:otherwise><xsl:value-of select="$s"/></xsl:otherwise>
+    </xsl:choose>
+  </xsl:template>
+
+  <!-- number (no support for javascript mantise) -->
+  <xsl:template match="text()[not(string(number())=''NaN'')]">
+    <xsl:value-of select="."/>
+  </xsl:template>
+
+  <!-- boolean, case-insensitive -->
+  <xsl:template match="text()[translate(.,''TRUE'',''true'')=''true'']">true</xsl:template>
+  <xsl:template match="text()[translate(.,''FALSE'',''false'')=''false'']">false</xsl:template>
+
+  <!-- item:null -->
+  <xsl:template match="*[count(child::node())=0]">
+    <xsl:call-template name="escape-string">
+      <xsl:with-param name="s" select="local-name()"/>
+    </xsl:call-template>
+    <xsl:text>:null</xsl:text>
+    <xsl:if test="following-sibling::*">,</xsl:if>
+    <xsl:if test="not(following-sibling::*)">}</xsl:if> <!-- MBR 30.01.2010: added this line as it appeared to be missing from stylesheet -->
+  </xsl:template>
+
+  <!-- object -->
+  <xsl:template match="*" name="base">
+    <xsl:if test="not(preceding-sibling::*)">{</xsl:if>
+    <xsl:call-template name="escape-string">
+      <xsl:with-param name="s" select="name()"/>
+    </xsl:call-template>
+    <xsl:text>:</xsl:text>
+    <xsl:apply-templates select="child::node()"/>
+    <xsl:if test="following-sibling::*">,</xsl:if>
+    <xsl:if test="not(following-sibling::*)">}</xsl:if>
+  </xsl:template>
+
+  <!-- array -->
+  <xsl:template match="*[count(../*[name(../*)=name(.)])=count(../*) and count(../*)&gt;1]">
+    <xsl:if test="not(preceding-sibling::*)">[</xsl:if>
+    <xsl:choose>
+      <xsl:when test="not(child::node())">
+        <xsl:text>null</xsl:text>
+      </xsl:when>
+      <xsl:otherwise>
+        <xsl:apply-templates select="child::node()"/>
+      </xsl:otherwise>
+    </xsl:choose>
+    <xsl:if test="following-sibling::*">,</xsl:if>
+    <xsl:if test="not(following-sibling::*)">]</xsl:if>
+  </xsl:template>
+
+  <!-- convert root element to an anonymous container -->
+  <xsl:template match="/">
+    <xsl:apply-templates select="node()"/>
+  </xsl:template>
+
+</xsl:stylesheet>');
+  begin
+    v_xml1 := refcur2xml(p_rc);
+    v_xml2 := xslt(v_xml1, v_json_xslt);
+    return entity_decode(v_xml2.getclobval());
+  end;
+
+  function entity_decode(p_in clob) return clob
+  is
+  begin
+    return dbms_xmlgen.convert(p_in, dbms_xmlgen.entity_decode);
+  end;
+end;
+/
+show errors
diff --git a/oos_transform.pks b/oos_transform.pks
index e43458c..0e7ed76 100644
--- a/oos_transform.pks
+++ b/oos_transform.pks
@@ -1,48 +1,48 @@
-create or replace package oos_transform is
-
-  -- converts a ref cursor to a canonical oracle xml
-  -- p_null_handling is an example how conversion can be configured
-  -- this is just a wrapper for dbms_xmlgen so refer to oracle documentation
-  -- http://docs.oracle.com/cd/E11882_01/appdev.112/e40758/d_xmlgen.htm
-  function refcur2xml(
-    p_rc in sys_refcursor
-   ,p_null_handling in number default dbms_xmlgen.null_attr
-  ) return xmltype;
-
-  -- transforms a canonical oracle xml with user provided xslt
-  function xslt(p_in in xmltype, p_trans in xmltype) return xmltype;
-
-  -- transforms a canonical oracle xml with user provided xquery
-  function xquery(p_in in xmltype, p_trans in varchar2) return xmltype;
-
-  -- transforms a ref cursor to csv (xquery implementation)
-  function refcur2csv(
-    p_rc in sys_refcursor
-   ,p_column_names in boolean default false
-  ) return clob;
-
-  -- transforms a ref cursor to csv (dbms_sql implementation)
-  function refcur2csv2(
-    p_rc        in out sys_refcursor
-   ,p_column_names in boolean default false
-   ,p_separator in varchar2 default ','
-   ,p_endline   in varchar2 default chr(13)||chr(10)
-   ,p_date_fmt  in varchar2 default 'YYYY-MM-DD HH24:MI:SS'
-  ) return clob;
-
-  -- decodes any encoded xml entities (e.g. double quotes and ampersand)
-  function entity_decode(p_in clob) return clob;
-
-  -- transforms a ref cursor to an html table (xquery implementation)
-  function refcur2html(
-    p_rc in sys_refcursor
-  ) return clob;
-
-  -- transforms a ref cursor to json (xslt implementation)
-  function refcur2json(
-    p_rc in sys_refcursor
-  ) return clob;
-
-end;
-/
-show errors
+create or replace package oos_transform is
+
+  -- converts a ref cursor to a canonical oracle xml
+  -- p_null_handling is an example how conversion can be configured
+  -- this is just a wrapper for dbms_xmlgen so refer to oracle documentation
+  -- http://docs.oracle.com/cd/E11882_01/appdev.112/e40758/d_xmlgen.htm
+  function refcur2xml(
+    p_rc in sys_refcursor
+   ,p_null_handling in number default dbms_xmlgen.null_attr
+  ) return xmltype;
+
+  -- transforms a canonical oracle xml with user provided xslt
+  function xslt(p_in in xmltype, p_trans in xmltype) return xmltype;
+
+  -- transforms a canonical oracle xml with user provided xquery
+  function xquery(p_in in xmltype, p_trans in varchar2) return xmltype;
+
+  -- transforms a ref cursor to csv (xquery implementation)
+  function refcur2csv(
+    p_rc in sys_refcursor
+   ,p_column_names in boolean default false
+  ) return clob;
+
+  -- transforms a ref cursor to csv (dbms_sql implementation)
+  function refcur2csv2(
+    p_rc        in out sys_refcursor
+   ,p_column_names in boolean default false
+   ,p_separator in varchar2 default ','
+   ,p_endline   in varchar2 default chr(13)||chr(10)
+   ,p_date_fmt  in varchar2 default 'YYYY-MM-DD HH24:MI:SS'
+  ) return clob;
+
+  -- transforms a ref cursor to an html table (xquery implementation)
+  function refcur2html(
+    p_rc in sys_refcursor
+  ) return clob;
+
+  -- transforms a ref cursor to json (xslt implementation)
+  function refcur2json(
+    p_rc in sys_refcursor
+  ) return clob;
+
+  -- decodes any encoded xml entities (e.g. &quot; -> ")
+  function entity_decode(p_in clob) return clob;
+
+end;
+/
+show errors