plgbool.sps

Oracle PL/SQL procedure generator (second generator type)

CREATE OR REPLACE PACKAGE PLGbool
/*----------------------------------------------------------------
||                  PL/Vision Professional 
||----------------------------------------------------------------
||    File: PLGbool.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

/* Packaged Constants */
   c_delim CONSTANT CHAR(1) := ',';
   
   c_tval CONSTANT CHAR(4) := 'TRUE';
   c_fval CONSTANT CHAR(5) := 'FALSE';
   c_nval CONSTANT CHAR(4) := 'NULL';
   
   c_tvalnum CONSTANT INTEGER := 1;
   c_fvalnum CONSTANT INTEGER := 0;

   /* Operator Constants */
   c_eq CONSTANT CHAR(1) := '=';
   c_gt CONSTANT CHAR(1) := '>';
   c_lt CONSTANT CHAR(1) := '<';
   c_ge CONSTANT CHAR(2) := '>=';
   c_le CONSTANT CHAR(2) := '<=';
   c_like CONSTANT CHAR(4) := 'LIKE';
   c_isnull CONSTANT CHAR(7) := 'IS NULL';
   c_isnotnull CONSTANT CHAR(11) := 'IS NOT NULL';

/* Set TRUE, FALSE, NULL Values */
   
   --PROCEDURE sett (val IN VARCHAR2 := c_tval);
   --PROCEDURE sett (val IN INTEGER := c_tvalnum);
   --FUNCTION tvalnum RETURN INTEGER;
   FUNCTION tval RETURN VARCHAR2;

   --PROCEDURE setf (val IN VARCHAR2 := c_fval);
   --PROCEDURE setf (val IN INTEGER := c_fvalnum);
   --FUNCTION fvalnum RETURN INTEGER;
   FUNCTION fval RETURN VARCHAR2;

   --PROCEDURE setn (val IN VARCHAR2 := c_nval);
   --FUNCTION nval RETURN VARCHAR2;

/* Conversion Functions */
    
   FUNCTION stg (bool IN BOOLEAN, tfvals IN VARCHAR2 := NULL) RETURN VARCHAR2;
   
   --FUNCTION to_char (bool IN BOOLEAN) RETURN VARCHAR2;

   --FUNCTION literalstg (bool IN BOOLEAN) RETURN VARCHAR2;

   --FUNCTION num (bool IN BOOLEAN) RETURN INTEGER;

   FUNCTION val (stg IN VARCHAR2) RETURN BOOLEAN;
   
   FUNCTION valnow (stg IN VARCHAR2, tfvals IN VARCHAR2) RETURN BOOLEAN;
   --FUNCTION val (num IN INTEGER) RETURN BOOLEAN;

/* Evaluation Functions */
		 
   /*
   FUNCTION val (val1 IN BOOLEAN, oper IN VARCHAR2) RETURN BOOLEAN;
   FUNCTION val (val1 IN DATE, oper IN VARCHAR2) RETURN BOOLEAN;
   FUNCTION val (val1 IN NUMBER, oper IN VARCHAR2) RETURN BOOLEAN;
   FUNCTION val (val1 IN VARCHAR2, oper IN VARCHAR2) RETURN BOOLEAN;

   FUNCTION val (val1 IN BOOLEAN, val2 IN BOOLEAN, oper IN VARCHAR2)
      RETURN BOOLEAN;
   FUNCTION val (val1 IN DATE, val2 IN DATE, oper IN VARCHAR2)
      RETURN BOOLEAN;
   FUNCTION val (val1 IN NUMBER, val2 IN NUMBER, oper IN VARCHAR2)
      RETURN BOOLEAN;
   FUNCTION val (val1 IN VARCHAR2, val2 IN VARCHAR2, oper IN VARCHAR2)
      RETURN BOOLEAN;
	*/
END PLGbool;
/