out_pkg: printf, die, assert for PL/SQL

CREATE OR REPLACE PACKAGE "OUT_PKG"
IS
TYPE type_tab_strings
IS
  TABLE OF clob;

  FUNCTION sprintf(
      p_format IN clob,
      p_arg1   IN VARCHAR2 DEFAULT NULL,
      p_arg2   IN VARCHAR2 DEFAULT NULL,
      p_arg3   IN VARCHAR2 DEFAULT NULL,
      p_arg4   IN VARCHAR2 DEFAULT NULL,
      p_arg5   IN VARCHAR2 DEFAULT NULL,
      p_arg6   IN VARCHAR2 DEFAULT NULL,
      p_arg7   IN VARCHAR2 DEFAULT NULL,
      p_arg8   IN VARCHAR2 DEFAULT NULL,
      p_arg9   IN VARCHAR2 DEFAULT NULL)
    RETURN clob;

  PROCEDURE printf(
      p_format IN clob,
      p_arg1   IN VARCHAR2 DEFAULT NULL,
      p_arg2   IN VARCHAR2 DEFAULT NULL,
      p_arg3   IN VARCHAR2 DEFAULT NULL,
      p_arg4   IN VARCHAR2 DEFAULT NULL,
      p_arg5   IN VARCHAR2 DEFAULT NULL,
      p_arg6   IN VARCHAR2 DEFAULT NULL,
      p_arg7   IN VARCHAR2 DEFAULT NULL,
      p_arg8   IN VARCHAR2 DEFAULT NULL,
      p_arg9   IN VARCHAR2 DEFAULT NULL);

  PROCEDURE die(
      p_format IN clob DEFAULT 'died',
      p_arg1   IN VARCHAR2 DEFAULT NULL,
      p_arg2   IN VARCHAR2 DEFAULT NULL,
      p_arg3   IN VARCHAR2 DEFAULT NULL,
      p_arg4   IN VARCHAR2 DEFAULT NULL,
      p_arg5   IN VARCHAR2 DEFAULT NULL,
      p_arg6   IN VARCHAR2 DEFAULT NULL,
      p_arg7   IN VARCHAR2 DEFAULT NULL,
      p_arg8   IN VARCHAR2 DEFAULT NULL,
      p_arg9   IN VARCHAR2 DEFAULT NULL);

  FUNCTION die(
      p_format IN clob DEFAULT 'died',
      p_arg1   IN VARCHAR2 DEFAULT NULL,
      p_arg2   IN VARCHAR2 DEFAULT NULL,
      p_arg3   IN VARCHAR2 DEFAULT NULL,
      p_arg4   IN VARCHAR2 DEFAULT NULL,
      p_arg5   IN VARCHAR2 DEFAULT NULL,
      p_arg6   IN VARCHAR2 DEFAULT NULL,
      p_arg7   IN VARCHAR2 DEFAULT NULL,
      p_arg8   IN VARCHAR2 DEFAULT NULL,
      p_arg9   IN VARCHAR2 DEFAULT NULL)
    RETURN VARCHAR2;

  PROCEDURE assert(
      p_condition IN BOOLEAN,
      p_format    IN VARCHAR2 DEFAULT 'assertion failed',
      p_arg1      IN VARCHAR2 DEFAULT NULL,
      p_arg2      IN VARCHAR2 DEFAULT NULL,
      p_arg3      IN VARCHAR2 DEFAULT NULL,
      p_arg4      IN VARCHAR2 DEFAULT NULL,
      p_arg5      IN VARCHAR2 DEFAULT NULL,
      p_arg6      IN VARCHAR2 DEFAULT NULL,
      p_arg7      IN VARCHAR2 DEFAULT NULL,
      p_arg8      IN VARCHAR2 DEFAULT NULL,
      p_arg9      IN VARCHAR2 DEFAULT NULL);

  PROCEDURE assert_is_not_null(
      p_value  IN VARCHAR2,
      p_format IN clob DEFAULT 'value',
      p_arg1   IN VARCHAR2 DEFAULT NULL,
      p_arg2   IN VARCHAR2 DEFAULT NULL,
      p_arg3   IN VARCHAR2 DEFAULT NULL,
      p_arg4   IN VARCHAR2 DEFAULT NULL,
      p_arg5   IN VARCHAR2 DEFAULT NULL,
      p_arg6   IN VARCHAR2 DEFAULT NULL,
      p_arg7   IN VARCHAR2 DEFAULT NULL,
      p_arg8   IN VARCHAR2 DEFAULT NULL,
      p_arg9   IN VARCHAR2 DEFAULT NULL);

  PROCEDURE assert_is_null(
      p_value  IN VARCHAR2,
      p_format IN clob DEFAULT 'value',
      p_arg1   IN VARCHAR2 DEFAULT NULL,
      p_arg2   IN VARCHAR2 DEFAULT NULL,
      p_arg3   IN VARCHAR2 DEFAULT NULL,
      p_arg4   IN VARCHAR2 DEFAULT NULL,
      p_arg5   IN VARCHAR2 DEFAULT NULL,
      p_arg6   IN VARCHAR2 DEFAULT NULL,
      p_arg7   IN VARCHAR2 DEFAULT NULL,
      p_arg8   IN VARCHAR2 DEFAULT NULL,
      p_arg9   IN VARCHAR2 DEFAULT NULL);

  FUNCTION join(
      p_tab_strings IN type_tab_strings,
      p_delimiter   IN VARCHAR2 := ',')
    RETURN clob;

  FUNCTION boolean_to_number(
      p_boolean IN BOOLEAN)
    RETURN NUMBER;

  FUNCTION boolean_to_char(
      p_boolean IN BOOLEAN)
    RETURN VARCHAR2;

  FUNCTION dtchr(
      p_date IN DATE)
    RETURN VARCHAR2;

  FUNCTION chrdt(
      p_char IN VARCHAR2)
    RETURN DATE;

END out_pkg;

/

CREATE OR REPLACE PACKAGE BODY "OUT_PKG"
IS

  FUNCTION sprintf(
      p_format IN clob,
      p_arg1   IN VARCHAR2 DEFAULT NULL,
      p_arg2   IN VARCHAR2 DEFAULT NULL,
      p_arg3   IN VARCHAR2 DEFAULT NULL,
      p_arg4   IN VARCHAR2 DEFAULT NULL,
      p_arg5   IN VARCHAR2 DEFAULT NULL,
      p_arg6   IN VARCHAR2 DEFAULT NULL,
      p_arg7   IN VARCHAR2 DEFAULT NULL,
      p_arg8   IN VARCHAR2 DEFAULT NULL,
      p_arg9   IN VARCHAR2 DEFAULT NULL)
    RETURN clob
  IS
  BEGIN

    RETURN utl_lms.format_message ( p_format, p_arg1, p_arg2, p_arg3, p_arg4, p_arg5, p_arg6, p_arg7, p_arg8, p_arg9);

  END sprintf;

  PROCEDURE printf(
      p_format IN clob,
      p_arg1   IN VARCHAR2 DEFAULT NULL,
      p_arg2   IN VARCHAR2 DEFAULT NULL,
      p_arg3   IN VARCHAR2 DEFAULT NULL,
      p_arg4   IN VARCHAR2 DEFAULT NULL,
      p_arg5   IN VARCHAR2 DEFAULT NULL,
      p_arg6   IN VARCHAR2 DEFAULT NULL,
      p_arg7   IN VARCHAR2 DEFAULT NULL,
      p_arg8   IN VARCHAR2 DEFAULT NULL,
      p_arg9   IN VARCHAR2 DEFAULT NULL)
  IS
  BEGIN
    DBMS_OUTPUT.put_line (sprintf ( p_format, p_arg1, p_arg2, p_arg3, p_arg4, p_arg5, p_arg6, p_arg7, p_arg8, p_arg9));

  END printf;

  PROCEDURE die(
      p_format IN clob DEFAULT 'died',
      p_arg1   IN VARCHAR2 DEFAULT NULL,
      p_arg2   IN VARCHAR2 DEFAULT NULL,
      p_arg3   IN VARCHAR2 DEFAULT NULL,
      p_arg4   IN VARCHAR2 DEFAULT NULL,
      p_arg5   IN VARCHAR2 DEFAULT NULL,
      p_arg6   IN VARCHAR2 DEFAULT NULL,
      p_arg7   IN VARCHAR2 DEFAULT NULL,
      p_arg8   IN VARCHAR2 DEFAULT NULL,
      p_arg9   IN VARCHAR2 DEFAULT NULL)
  IS
  BEGIN
    raise_application_error ( -20200, sprintf ( p_format, p_arg1, p_arg2, p_arg3, p_arg4, p_arg5, p_arg6, p_arg7,
    p_arg8, p_arg9));

  END die;

  FUNCTION die(
      p_format IN clob DEFAULT 'died',
      p_arg1   IN VARCHAR2 DEFAULT NULL,
      p_arg2   IN VARCHAR2 DEFAULT NULL,
      p_arg3   IN VARCHAR2 DEFAULT NULL,
      p_arg4   IN VARCHAR2 DEFAULT NULL,
      p_arg5   IN VARCHAR2 DEFAULT NULL,
      p_arg6   IN VARCHAR2 DEFAULT NULL,
      p_arg7   IN VARCHAR2 DEFAULT NULL,
      p_arg8   IN VARCHAR2 DEFAULT NULL,
      p_arg9   IN VARCHAR2 DEFAULT NULL)
    RETURN VARCHAR2
  IS
  BEGIN
    raise_application_error ( -20200, sprintf ( p_format, p_arg1, p_arg2, p_arg3, p_arg4, p_arg5, p_arg6, p_arg7,
    p_arg8, p_arg9));

  END die;

  PROCEDURE assert(
      p_condition IN BOOLEAN,
      p_format    IN VARCHAR2 DEFAULT 'assertion failed',
      p_arg1      IN VARCHAR2 DEFAULT NULL,
      p_arg2      IN VARCHAR2 DEFAULT NULL,
      p_arg3      IN VARCHAR2 DEFAULT NULL,
      p_arg4      IN VARCHAR2 DEFAULT NULL,
      p_arg5      IN VARCHAR2 DEFAULT NULL,
      p_arg6      IN VARCHAR2 DEFAULT NULL,
      p_arg7      IN VARCHAR2 DEFAULT NULL,
      p_arg8      IN VARCHAR2 DEFAULT NULL,
      p_arg9      IN VARCHAR2 DEFAULT NULL)
  IS
  BEGIN
    $if $$disable_assertions $then NULL;
    $else

    IF NOT p_condition THEN
      die ( p_format, p_arg1, p_arg2, p_arg3, p_arg4, p_arg5, p_arg6, p_arg7, p_arg8, p_arg9);

    END IF;
    $end

  END assert;

  PROCEDURE assert_is_not_null(
      p_value  IN VARCHAR2,
      p_format IN clob DEFAULT 'value',
      p_arg1   IN VARCHAR2 DEFAULT NULL,
      p_arg2   IN VARCHAR2 DEFAULT NULL,
      p_arg3   IN VARCHAR2 DEFAULT NULL,
      p_arg4   IN VARCHAR2 DEFAULT NULL,
      p_arg5   IN VARCHAR2 DEFAULT NULL,
      p_arg6   IN VARCHAR2 DEFAULT NULL,
      p_arg7   IN VARCHAR2 DEFAULT NULL,
      p_arg8   IN VARCHAR2 DEFAULT NULL,
      p_arg9   IN VARCHAR2 DEFAULT NULL)
  IS
  BEGIN
    assert ( p_value IS NOT NULL, '%s is null', sprintf ( p_format, p_arg1, p_arg2, p_arg3, p_arg4, p_arg5, p_arg6,
    p_arg7, p_arg8, p_arg9));

  END assert_is_not_null;

  PROCEDURE assert_is_null(
      p_value  IN VARCHAR2,
      p_format IN clob DEFAULT 'value',
      p_arg1   IN VARCHAR2 DEFAULT NULL,
      p_arg2   IN VARCHAR2 DEFAULT NULL,
      p_arg3   IN VARCHAR2 DEFAULT NULL,
      p_arg4   IN VARCHAR2 DEFAULT NULL,
      p_arg5   IN VARCHAR2 DEFAULT NULL,
      p_arg6   IN VARCHAR2 DEFAULT NULL,
      p_arg7   IN VARCHAR2 DEFAULT NULL,
      p_arg8   IN VARCHAR2 DEFAULT NULL,
      p_arg9   IN VARCHAR2 DEFAULT NULL)
  IS
  BEGIN
    assert ( p_value IS NULL, '%s is not null', sprintf ( p_format, p_arg1, p_arg2, p_arg3, p_arg4, p_arg5, p_arg6,
    p_arg7, p_arg8, p_arg9));

  END assert_is_null;

  FUNCTION join(
      p_tab_strings IN type_tab_strings,
      p_delimiter   IN VARCHAR2 := ',')
    RETURN clob
  IS
    l_joined_result clob;
  BEGIN

    FOR i IN p_tab_strings.FIRST .. p_tab_strings.LAST
    LOOP
      l_joined_result := l_joined_result || p_tab_strings (i);

      IF i               < p_tab_strings.LAST THEN
        l_joined_result := l_joined_result || p_delimiter;

      END IF;

    END LOOP;

    RETURN l_joined_result;

  END join;

  FUNCTION boolean_to_number(
      p_boolean IN BOOLEAN)
    RETURN NUMBER
  IS
  BEGIN

    RETURN

    CASE p_boolean
    WHEN TRUE THEN
      1
    WHEN FALSE THEN
      0
    END;

  END boolean_to_number;

  FUNCTION boolean_to_char(
      p_boolean IN BOOLEAN)
    RETURN VARCHAR2
  IS
  BEGIN

    RETURN

    CASE p_boolean
    WHEN TRUE THEN
      'true'
    WHEN FALSE THEN
      'false'
    END;

  END boolean_to_char;

  FUNCTION dtchr(
      p_date IN DATE)
    RETURN VARCHAR2
  IS
  BEGIN

    RETURN TO_CHAR(p_date,'yyyy-mm-dd');

  END dtchr;

  FUNCTION chrdt(
      p_char IN VARCHAR2)
    RETURN DATE
  IS
  BEGIN

    RETURN TO_DATE(p_char,'yyyy-mm-dd');

  END chrdt;

END out_pkg;

/