//test3.dll

#include "tidy.h" 
#include "buffio.h" 
#include <stdio.h> 
#include <errno.h> 
#include <oci.h> 
#include <ociextp.h>

void parseTidy( 
   OCIExtProcContext *ctx 
  ,OCILobLocator *clobinput 
  ,int *rc 
  ,OCILobLocator **cloboutxml 
  ,OCILobLocator **clobouterr 
  /* ... alle options ... */ 
) 
{ 
  // Need help with this one:
  //char *input = OCILobRead "<title>Foo</title><p>Foo!"; 

  char *input = "<title>Foo</title><p>Foo!"; // just to test
  TidyBuffer output = {0}; 
  TidyBuffer errbuf = {0}; 
  Bool ok; 

  TidyDoc tdoc = tidyCreate();                     // Initialize "document" 

  /* set options */ 
  ok = tidyOptSetBool( tdoc, TidyXhtmlOut, yes );  // Convert to XHTML 
  

  *rc = tidySetErrorBuffer( tdoc, &errbuf );        // Capture diagnostics 
  if ( *rc >= 0 ) 
    *rc = tidyParseString( tdoc, input );           // Parse the input 
  if ( *rc >= 0 ) 
    *rc = tidyCleanAndRepair( tdoc );               // Tidy it up! 
  if ( *rc >= 0 ) 
    *rc = tidyRunDiagnostics( tdoc );               // Kvetch 
  if ( *rc > 1 )                                    // If error, force output. 
    *rc = ( tidyOptSetBool(tdoc, TidyForceOutput, yes) ? rc : -1 ); 
  if ( *rc >= 0 ) 
    *rc = tidySaveBuffer( tdoc, &output );          // Pretty Print 

  // And need help with this one:
  //clobouterr = errbuf.bp 
  //cloboutxml = output.bp 

  tidyBufFree( &output ); 
  tidyBufFree( &errbuf ); 
  tidyRelease( tdoc ); 
}

create library TEST3_LIB is 'C:\app\XPMUser\product\11.2.0\dbhome_1\BIN\test3.dll';
/

set serveroutput on

declare 
  o_xml clob := ' ';
  o_err clob := ' ';
  rc pls_integer := -1;

  procedure test( 
     i_xml IN CLOB   
    ,o_rc  OUT PLS_INTEGER 
    ,o_xml IN OUT CLOB 
    ,o_err IN OUT CLOB 
  )   
  AS LANGUAGE C 
  NAME "parseTidy" 
  LIBRARY test3_lib 
  WITH CONTEXT 
  PARAMETERS ( 
     CONTEXT 
    ,i_xml
    ,o_rc BY REFERENCE 
    ,o_xml BY REFERENCE 
    ,o_err BY REFERENCE 
  ); 
begin 
  test('<title>Foo</title><p>Foo!',rc,o_xml,o_err);
  dbms_output.put_line(rc);
  rollback;
end; 
/

char *input = OCILobRead(clobinput); 

OCILobRead(*clobouterr, errbuf.bp); // errbuf.bp is type of byte*

set def off
set serveroutput on

declare 
  l_page clob := '<title>Foo</title><p>Foo!';

  procedure normalize
    --Normalize the l_page content to be a simple "TABLE" XML page
  is
  begin
    -- Replace any contiguous space string by a single space
    l_page := regexp_replace(l_page, '[[:space:]]+', ' ');
    -- Replace "&nbsp;" string by a space (Oracle seems to not like "&nbsp;")
    l_page := replace(l_page, '&nbsp;', ' ');
    -- Remove IMG element (any character case)
    l_page := regexp_replace(l_page, '<IMG[^>]+>', '', 1, 0, 'i');
    -- Remove all attributes in tags
    l_page := regexp_replace(l_page, '[[:alpha:]]+=[^>]+', '');
    -- Remove <SUP> parts (references to footnote in page) (any character case)
    l_page := regexp_replace(l_page, '<SUP *>[[:digit:]]+</SUP *>', '', 1, 0, 'i');
    -- Remove <A> tags (any character case)
    l_page := regexp_replace(l_page, '<[/]{0,1}A *>', '', 1, 0, 'i');
    -- Remove <DIV> tags (any character case)
    l_page := regexp_replace(l_page, '<[/]{0,1}DIV *>', '', 1, 0, 'i');
    -- Put remaining tags in upper case as Oracle XML query is case sensitive
    l_page := replace(l_page, '</table>', '</TABLE>');
    l_page := replace(l_page, '<tbody>', '<TBODY>');
    l_page := replace(l_page, '</tbody>', '</TBODY>');
    l_page := regexp_replace(l_page, 'td *>', 'TD>');
    l_page := regexp_replace(l_page, 'tr *>', 'TR>');
  end;
begin
  normalize;
  dbms_output.put_line(l_page);
end;
/