Re: Function name - Mailing list pgsql-novice

Hello, Sergey,

The code below will give you the current function name (when the parameter to test_function_name_top is 0) and the calling function name (when the parameter to test_function_name_top is 1).  In this example, the current function is "test_function_name" and the calling function is "test_function_name_top".  "function_name" does the work.

Like I said, it ain't pretty; but I don’t know of another way to do it.

Good luck and let me know if you have any questions,

Jack

- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -

--drop function test_function_name_top (function_level integer);

CREATE or replace FUNCTION test_function_name_top (function_level integer) RETURNS text AS $$

BEGIN

  return test_function_name (function_level);

END;

$$ LANGUAGE plpgsql;

--drop function test_function_name (function_level integer);

create or replace function test_function_name (function_level integer)

  returns text as $$

declare

  _function_name text;

begin

  -- do some stuff

  -- now need name of current or calling function (

  /* begin - call function name function */

  declare

    temp_var          integer;

    exception_context text;

  begin

    temp_var := 1/0;

  exception

    when division_by_zero then

      get stacked diagnostics exception_context = PG_EXCEPTION_CONTEXT;

      _function_name := function_name (function_level, exception_context);

  end;

  /* end - call function name function */

  -- use function name

  -- do more stuff

  return _function_name;

end;

$$ language plpgsql;

--drop function function_name (function_level integer, exception_context text);

create or replace function function_name (function_level integer, exception_context text)

  returns text as $$

declare

    _function_name_loc integer;

begin

  if  function_level <> 0 and function_level <> 1

  then

    return 'function level must be 0 or 1';

  end if;

  _function_name_loc       = strpos(exception_context, 'PL/pgSQL function') + 18;

  exception_context  = substr(exception_context, _function_name_loc);

  if function_level = 0 then

    return 'current function = ' ||

           substr(exception_context, 1, strpos(exception_context, '(') - 1);

  else

    _function_name_loc = strpos(exception_context, 'PL/pgSQL function') + 18;

    if _function_name_loc = 18 then

      return 'calling function name not found';

    end if;

    exception_context = substr(exception_context, _function_name_loc);

    return 'calling function = ' ||

           substr(exception_context, 1, strpos(exception_context, '(') - 1);

  end if;

end;

$$ language plpgsql;

select * from test_function_name_top (0);

--select * from test_function_name (0);

CONFIDENTIALITY
This e-mail message and any attachments thereto, is intended only for use by the addressee(s) named herein and may contain legally privileged and/or confidential information. If you are not the intended recipient of this e-mail message, you are hereby notified that any dissemination, distribution or copying of this e-mail message, and any attachments thereto, is strictly prohibited.  If you have received this e-mail message in error, please immediately notify the sender and permanently delete the original and any copies of this email and any prints thereof.
ABSENT AN EXPRESS STATEMENT TO THE CONTRARY HEREINABOVE, THIS E-MAIL IS NOT INTENDED AS A SUBSTITUTE FOR A WRITING.  Notwithstanding the Uniform Electronic Transactions Act or the applicability of any other law of similar substance and effect, absent an express statement to the contrary hereinabove, this e-mail message its contents, and any attachments hereto are not intended to represent an offer or acceptance to enter into a contract and are not otherwise intended to bind the sender, Sanmina Corporation (or any of its subsidiaries), or any other person or entity.