Rem Copyright (c) 1999, 2002, Oracle Corporation.  All rights reserved.  
Rem
Rem    NAME
Rem      dridoc.pkh - Internal DOCument services
Rem
Rem    DESCRIPTION
Rem
Rem    RETURNS
Rem 
Rem    NOTES
Rem
Rem    MODIFIED   (MM/DD/YY)
Rem     ehuang     02/01/02  - add new package variables
Rem     jkud       02/01/00 -  add token_add
Rem     gkaminag   04/09/99 -  creation
Rem

CREATE OR REPLACE PACKAGE dridoc AS

type theme_rec is record (
  theme  varchar2(2000),
  weight number
);
type theme_tab is table of theme_rec index by binary_integer;

type token_rec is record (
  token varchar2(64),
  offset number,
  length number
);
type token_tab is table of token_rec index by binary_integer;
 
type highlight_rec is record (
  offset number,
  length number
);
type highlight_tab is table of highlight_rec index by binary_integer;

pv_theme_tab     theme_tab;
pv_highlight_tab highlight_tab;
pv_clob          clob;
pv_token_tab     token_tab;

MODE_CLOB        constant number := 1;
MODE_BLOB        constant number := 2;
MODE_BFILE       constant number := 3;
MODE_VCHR2       constant number := 4;
direct_mode      number;
direct_clob      clob;
direct_blob      blob;
direct_bfile     bfile;
direct_vchr2     varchar2(32767);
direct_lang      varchar2(256);      
direct_format    varchar2(256);
direct_cset      varchar2(256);

/*---------------------------- highlight_add -----------------------------*/
/* add a highlight to the internal result table -- called by C code */

PROCEDURE highlight_add(
  offset in number,
  length in number
);

/*---------------------------- theme_add ---------------------------------*/
/* add a theme to the internal result table -- called by C code */

PROCEDURE theme_add(
  theme  in varchar2,
  weight in number
);

/*---------------------------- token_add ---------------------------------*/
/* add a token to the internal result table -- called by C code */

PROCEDURE token_add(
  token  in varchar2,
  offset in number,
  length in number
);

/*---------------------------- text_new ----------------------------------*/
/* prepare the internal clob result -- called by dr0doc */

PROCEDURE text_new;

/*---------------------------- text_add ----------------------------------*/
/* add some text to the internal clob result -- called by C code */

PROCEDURE text_add(
  text   in varchar2
);

/*---------------------------- text_end ----------------------------------*/
/* clear the internal clob result -- called by dr0doc */

PROCEDURE text_end;

END dridoc;
/