From 114c154fbb3a4e75a6abed9dcecf4d19b8a344ad Mon Sep 17 00:00:00 2001 From: Isaac Morland Date: Tue, 17 Jan 2023 14:17:42 -0500 Subject: [PATCH] Remove source code display from \df+ The column is renamed to "Internal name" and will still show the internal name for C and Internal functions. --- doc/src/sgml/ref/psql-ref.sgml | 3 +- src/bin/psql/describe.c | 11 ++------ src/test/regress/expected/psql.out | 45 ++++++++++++++++++++++++++++++ src/test/regress/sql/psql.sql | 37 ++++++++++++++++++++++++ 4 files changed, 87 insertions(+), 9 deletions(-) diff --git a/doc/src/sgml/ref/psql-ref.sgml b/doc/src/sgml/ref/psql-ref.sgml index dc6528dc11..afdf8668d6 100644 --- a/doc/src/sgml/ref/psql-ref.sgml +++ b/doc/src/sgml/ref/psql-ref.sgml @@ -1650,7 +1650,8 @@ INSERT INTO tbl1 VALUES ($1, $2) \bind 'first value' 'second value' \g If the form \df+ is used, additional information about each function is shown, including volatility, parallel safety, owner, security classification, access privileges, - language, source code and description. + language, internal name (for C and Internal language functions only), + and description. Source code can be shown using \sf. diff --git a/src/bin/psql/describe.c b/src/bin/psql/describe.c index c8a0bb7b3a..e487fcd480 100644 --- a/src/bin/psql/describe.c +++ b/src/bin/psql/describe.c @@ -410,14 +410,9 @@ describeFunctions(const char *functypes, const char *func_pattern, appendPQExpBuffer(&buf, ",\n l.lanname as \"%s\"", gettext_noop("Language")); - if (pset.sversion >= 140000) - appendPQExpBuffer(&buf, - ",\n COALESCE(pg_catalog.pg_get_function_sqlbody(p.oid), p.prosrc) as \"%s\"", - gettext_noop("Source code")); - else - appendPQExpBuffer(&buf, - ",\n p.prosrc as \"%s\"", - gettext_noop("Source code")); + appendPQExpBuffer(&buf, + ",\n CASE WHEN l.lanname IN ('internal', 'c') THEN p.prosrc END AS \"%s\"", + gettext_noop("Internal name")); appendPQExpBuffer(&buf, ",\n pg_catalog.obj_description(p.oid, 'pg_proc') as \"%s\"", gettext_noop("Description")); diff --git a/src/test/regress/expected/psql.out b/src/test/regress/expected/psql.out index 8fc62cebd2..fffb6baace 100644 --- a/src/test/regress/expected/psql.out +++ b/src/test/regress/expected/psql.out @@ -5247,6 +5247,51 @@ reset work_mem; pg_catalog | && | anyarray | anyarray | boolean | overlaps (1 row) +-- check \df+ +BEGIN; +CREATE ROLE regress_psql_df; +CREATE OR REPLACE FUNCTION regress_psql_df_c (integer, integer, cstring, internal, integer) + RETURNS VOID + LANGUAGE c + IMMUTABLE PARALLEL SAFE STRICT +AS '$libdir/utf8_and_iso8859', 'utf8_to_iso8859'; +CREATE OR REPLACE FUNCTION regress_psql_df_internal (regclass, text) + RETURNS bigint + LANGUAGE internal + PARALLEL SAFE STRICT +AS 'pg_relation_size'; +CREATE OR REPLACE FUNCTION regress_psql_df_sql () + RETURNS VOID +BEGIN ATOMIC + SELECT NULL; +END; +CREATE OR REPLACE FUNCTION regress_psql_df_plpgsql () + RETURNS VOID + LANGUAGE plpgsql +AS $$ +BEGIN + RETURN; +END; +$$; +ALTER FUNCTION regress_psql_df_c (integer, integer, cstring, internal, integer) + OWNER TO regress_psql_df; +ALTER FUNCTION regress_psql_df_internal (regclass, text) + OWNER TO regress_psql_df; +ALTER FUNCTION regress_psql_df_sql () + OWNER TO regress_psql_df; +ALTER FUNCTION regress_psql_df_plpgsql () + OWNER TO regress_psql_df; +\df+ regress_psql_df_* + List of functions + Schema | Name | Result data type | Argument data types | Type | Volatility | Parallel | Owner | Security | Access privileges | Language | Internal name | Description +--------+--------------------------+------------------+----------------------------------------------+------+------------+----------+-----------------+----------+-------------------+----------+------------------+------------- + public | regress_psql_df_c | void | integer, integer, cstring, internal, integer | func | immutable | safe | regress_psql_df | invoker | | c | utf8_to_iso8859 | + public | regress_psql_df_internal | bigint | regclass, text | func | volatile | safe | regress_psql_df | invoker | | internal | pg_relation_size | + public | regress_psql_df_plpgsql | void | | func | volatile | unsafe | regress_psql_df | invoker | | plpgsql | | + public | regress_psql_df_sql | void | | func | volatile | unsafe | regress_psql_df | invoker | | sql | | +(4 rows) + +ROLLBACK; -- check \sf \sf information_schema._pg_expandarray CREATE OR REPLACE FUNCTION information_schema._pg_expandarray(anyarray, OUT x anyelement, OUT n integer) diff --git a/src/test/regress/sql/psql.sql b/src/test/regress/sql/psql.sql index 2da9665a19..9fb2e1e095 100644 --- a/src/test/regress/sql/psql.sql +++ b/src/test/regress/sql/psql.sql @@ -1275,6 +1275,43 @@ reset work_mem; \do - pg_catalog.int4 \do && anyarray * +-- check \df+ +BEGIN; +CREATE ROLE regress_psql_df; +CREATE OR REPLACE FUNCTION regress_psql_df_c (integer, integer, cstring, internal, integer) + RETURNS VOID + LANGUAGE c + IMMUTABLE PARALLEL SAFE STRICT +AS '$libdir/utf8_and_iso8859', 'utf8_to_iso8859'; +CREATE OR REPLACE FUNCTION regress_psql_df_internal (regclass, text) + RETURNS bigint + LANGUAGE internal + PARALLEL SAFE STRICT +AS 'pg_relation_size'; +CREATE OR REPLACE FUNCTION regress_psql_df_sql () + RETURNS VOID +BEGIN ATOMIC + SELECT NULL; +END; +CREATE OR REPLACE FUNCTION regress_psql_df_plpgsql () + RETURNS VOID + LANGUAGE plpgsql +AS $$ +BEGIN + RETURN; +END; +$$; +ALTER FUNCTION regress_psql_df_c (integer, integer, cstring, internal, integer) + OWNER TO regress_psql_df; +ALTER FUNCTION regress_psql_df_internal (regclass, text) + OWNER TO regress_psql_df; +ALTER FUNCTION regress_psql_df_sql () + OWNER TO regress_psql_df; +ALTER FUNCTION regress_psql_df_plpgsql () + OWNER TO regress_psql_df; +\df+ regress_psql_df_* +ROLLBACK; + -- check \sf \sf information_schema._pg_expandarray \sf+ information_schema._pg_expandarray -- 2.32.1 (Apple Git-133)