rem {{ $Header: L:\\\\model\\jin\\RCS\\jricmnt.jps 40.2 1998/05/27 13:08:02 eharding Exp $
rem {{ -----------------------------------------------------------------------+
rem File:        $Workfile:   jrphcmnt.sql  $
rem Author:      $Author: eharding $
rem Date:        $Date: 1998/05/27 13:08:02 $
rem Version:     $Revision: 40.2 $
rem Status:      $State: Exp $
rem Locked_by:   $Locker:  $
rem Project:     The Oracle Repository
rem Description: Comment utilities package header
rem Notes:       
rem RealAuth:    Jay Gitterman
rem IncepDate:   19 December 1997
rem Copyright:   (c) Oracle Corporation 1997. All Rights Reserved.
rem Tagline:     -- Oracle Repository: Managing *all* your data --
rem --------------------------------------------------------------------------+
rem Log of Changes from Source Control System
rem --------------------------------------------------------------------------+
rem $Log: jricmnt.jps $
rem Revision 40.2  1998/05/27 13:08:02  eharding
rem Moved reference JR_* PL/SQL from ClearCase
rem
rem 
rem    Rev 1.3   14 Jan 1998 18:08:02   kmchorto
rem Restructuring: Checkpoint for Jon & DavidD
rem 
rem    Rev 1.2   12 Jan 1998 20:36:10   kmchorto
rem Checkpoint for Schema Cutover
rem 
rem    Rev 1.1   19 Dec 1997 11:03:48   jgitterm
rem add lookup()
rem 
rem    Rev 1.0   19 Dec 1997 10:27:00   jgitterm
rem Initial revision.
rem }} -----------------------------------------------------------------------+

prompt Package Header: jr_comment
create or replace package jr_comment is
  --
  type tvp is record (tag varchar2(100), value varchar2(100));
  type tvp_list is table of tvp;
  
  -- 
  -- GET_KEYWORDS takes a comment of the form:
  -- 
  -- 'This is some text in a comment. #REPOS_PRAGMA {NAME_COLUMN=NAME, NLS, EXTENSION=CONFIG}'
  -- 
  -- and returns a table of tag-value pairs:
  -- 
  --   Tag          Value
  --   -----------  ------
  --   NAME_COLUMN  NAME
  --   NLS          <null>
  --   EXTENSION    CONFIG
  -- 
  -- The comment will be returned with the pragma removed.
  -- 

  function get_keywords (a_comment in out varchar2) return tvp_list;

  -- 
  -- LOOKUP takes a list of tag-value pairs and a tag and supplies the corresponding value
  -- if there is one.
  -- 
  -- The function returns TRUE if a (case-insensitive) match is found, otherwise FALSE.
  -- 

  function lookup (a_list in tvp_list, keyword in varchar2, value out varchar2) return boolean;

  invalid_comment exception;  

end jr_comment;
/

rem 
rem ---------------------------------------------------------------------------+
rem }} End of file $Workfile:   jrphcmnt.sql  $  $$Header_is_done
rem --------------------------------------------------------------------------+