plgprs.sps

Oracle PL/SQL procedure generator (second generator type)

CREATE OR REPLACE PACKAGE PLGprs 
/*----------------------------------------------------------------
||                  PL/Vision Professional 
||----------------------------------------------------------------
||    File: PLGprs.sps
||  Author: Steven Feuerstein
||
|| This is a part of the PL/Vision Professional Code library.
|| Copyright (C) 1996-99 Quest Software, Inc.
|| All rights reserved.
||
|| For more information, call Quest Software at 1-800-REVEAL4
|| or check out our Web page: www.Quest Software.com
||
******************************************************************/
IS
   c_ignore_case CONSTANT VARCHAR2(1) := 'I';
   c_respect_case CONSTANT VARCHAR2(1) := 'R';

   c_all CONSTANT VARCHAR(3) := 'ALL';
   c_word CONSTANT VARCHAR(4) := 'WORD';
   c_delim CONSTANT VARCHAR(5) := 'DELIM';

   /*
   || The standard list of delimiters. You can over-ride these with 
   || your own list when you call the procedures and functions below.
   || This list is a pretty standard set of delimiters, though.
   */
   std_delimiters CONSTANT VARCHAR2 (50) :=
       '!@#$%^&*()-_=+\|`~{[]};:''",<.>/?' ||
       CHR(10) ||
       CHR(9) ||
       ' ';

   plsql_delimiters CONSTANT VARCHAR2 (50) :=
       '!@%^&*()-=+\|`~{[]};:''",<.>/?' ||
       CHR(10) ||
       CHR(9) ||
       ' ';

   sql_delimiters CONSTANT VARCHAR2(3) := '$_#';

   PROCEDURE string 
      (string_in IN VARCHAR2, 
       atomics_list_out IN OUT PLGadmin.vc2000_tabtype, 
       delimiters_in IN VARCHAR2 := std_delimiters,
       type_in IN VARCHAR2 := c_all,
       usehash IN BOOLEAN := FALSE);

   PROCEDURE string1 (
   /* Parsing for a single character delimiter, default of CR,
      just return the "words". */
      string_in IN VARCHAR2,
      atomics_list_out IN OUT PLGadmin.vc2000_tabtype,
      delimiter_in IN VARCHAR2 := CHR(10));

   FUNCTION numinstr
      (string_in IN VARCHAR2,
       substring_in IN VARCHAR2,
       ignore_case_in IN VARCHAR2 := c_ignore_case)
   RETURN INTEGER;
END PLGprs;
/