plgadmin.sps

Oracle PL/SQL procedure generator (second generator type)

CREATE OR REPLACE PACKAGE PLGadmin

/*----------------------------------------------------------------
||                  PL/Generator from RevealNet 
||----------------------------------------------------------------
||    File: pldoir.sps
||  Author: Steven Feuerstein
||
|| This is a part of the PL/Generator from RevealNet Code library.
|| Copyright (C) 1996-99 RevealNet, Inc.
|| All rights reserved.
||
|| For more information, call RevealNet at 1-800-REVEAL4
|| or check out our Web page: www.revealnet.com
-----------------------------------------------------------------*/

/***************** Modification History **************************
|| Date     By     Description
|| -------- ------ -----------------------------------------------
|| 04/99    SEF    Add trial version logic
|| 07/98    SEF    Add UTL_FILE test.
|| 05/98    SEF    Created with export/import.
******************************************************************/

IS
   c_boolean CONSTANT CHAR(7) := 'BOOLEAN';
   c_date CONSTANT CHAR(4) := 'DATE';
   c_number CONSTANT CHAR(6) := 'NUMBER';
   c_varchar2 CONSTANT CHAR(8) := 'VARCHAR2';

   c_encrypted CONSTANT CHAR(9) := 'ENCRYPTED';

   /* Standard declaration for variables holding identifiers. */
   plsql_identifier VARCHAR2(200) := 'IRRELEVANT';
   SUBTYPE identifier IS plsql_identifier%TYPE;

   /* Standard declaration for maximum size strings. */
   max_varchar2 VARCHAR2(32767) := 'IRRELEVANT';
   SUBTYPE maxvc2 IS max_varchar2%TYPE;
   
   dbmax_varchar2 VARCHAR2(2000) := 'IRRELEVANT';
   SUBTYPE dbmaxvc2 IS dbmax_varchar2%TYPE;
   
   TYPE vc2000_tabtype IS TABLE OF VARCHAR2(2000)
      INDEX BY BINARY_INTEGER;

   TYPE integer_tabtype IS TABLE OF INTEGER
      INDEX BY BINARY_INTEGER;

   vcmax_len CONSTANT INTEGER := 32767;
   dbmax_len CONSTANT INTEGER := 2000;

/* In-line DECODE-like functionality */

   FUNCTION ifelse (bool_in IN BOOLEAN, tval_in IN BOOLEAN, fval_in IN BOOLEAN)
       RETURN BOOLEAN;
   PRAGMA RESTRICT_REFERENCES (ifelse, WNDS);

   FUNCTION ifelse (bool_in IN BOOLEAN, tval_in IN DATE, fval_in IN DATE)
       RETURN DATE;
   PRAGMA RESTRICT_REFERENCES (ifelse, WNDS);

   FUNCTION ifelse (bool_in IN BOOLEAN, tval_in IN NUMBER,  fval_in IN NUMBER)
       RETURN NUMBER;
   PRAGMA RESTRICT_REFERENCES (ifelse, WNDS);

   FUNCTION ifelse (bool_in IN BOOLEAN, tval_in IN VARCHAR2, fval_in IN VARCHAR2)
       RETURN VARCHAR2;
   PRAGMA RESTRICT_REFERENCES (ifelse, WNDS);

   PROCEDURE export (
      file IN VARCHAR2,      
      drv IN VARCHAR2,
      sch IN VARCHAR2 := NULL
      );

   PROCEDURE import (
      file IN VARCHAR2,      
      drv IN VARCHAR2,
      sch IN VARCHAR2 := NULL
      );

   PROCEDURE test_fileIO (
      loc IN VARCHAR2,
      nm IN VARCHAR2 := 'plgen.tst');

   PROCEDURE compile 
      (stg_in IN VARCHAR2, 
       show_err_in IN BOOLEAN := FALSE,
       add_cor IN BOOLEAN := TRUE,
       schema_in IN VARCHAR2 := NULL);

   PROCEDURE compile_from_file 
      (file_in IN VARCHAR2, 
       show_err_in IN BOOLEAN := FALSE,
       add_cor IN BOOLEAN := FALSE,
       schema_in IN VARCHAR2 := NULL);

   /* Version and trial version programs */
   FUNCTION version RETURN VARCHAR2;
   FUNCTION oraversion RETURN VARCHAR2;
   PROCEDURE set_version (vrsn IN VARCHAR2, pwd IN VARCHAR2);
   FUNCTION is_trial_version RETURN BOOLEAN;
   FUNCTION max_cgml_lines RETURN PLS_INTEGER;
   FUNCTION max_gen_lines RETURN PLS_INTEGER;
   PROCEDURE check_trial_gen_limit (
      drv IN VARCHAR2, line IN PLS_INTEGER);   
   PROCEDURE check_trial_cgml_limit (
      drv IN VARCHAR2, line IN PLS_INTEGER);   
   
   FUNCTION surrounded 
      (string_in IN VARCHAR2, char_in IN VARCHAR2, trimchar IN BOOLEAN := TRUE)
      RETURN VARCHAR2;

   FUNCTION isboolean (stg_in IN VARCHAR2) RETURN BOOLEAN;
   FUNCTION isdate (stg_in IN VARCHAR2) RETURN BOOLEAN;
   FUNCTION isnumber (stg_in IN VARCHAR2) RETURN BOOLEAN;
   FUNCTION isvarchar2 (stg_in IN VARCHAR2) RETURN BOOLEAN;

   FUNCTION encrypt (text IN VARCHAR2) RETURN VARCHAR2;
   FUNCTION decrypt (text IN VARCHAR2) RETURN VARCHAR2;

   PROCEDURE encrypt_file
      (from_dir IN VARCHAR2,
       fr_file IN VARCHAR2,
       to_dir IN VARCHAR2,
       to_file IN VARCHAR2);

   PROCEDURE encrypt_driver (
      driver IN VARCHAR2
      );

   FUNCTION genXowner RETURN VARCHAR2;
END PLGadmin;
/