/Users/deen/code/yugabyte-db/src/postgres/src/bin/psql/describe.c

Source (jump to first uncovered line)
/*
 * psql - the PostgreSQL interactive terminal
 *
 * Support for the various \d ("describe") commands.  Note that the current
 * expectation is that all functions in this file will succeed when working
 * with servers of versions 7.4 and up.  It's okay to omit irrelevant
 * information for an old server, but not to fail outright.
 *
 * Copyright (c) 2000-2018, PostgreSQL Global Development Group
 *
 * src/bin/psql/describe.c
 */
#include "postgres_fe.h"

#include <ctype.h>

#include "catalog/pg_attribute_d.h"
#include "catalog/pg_cast_d.h"
#include "catalog/pg_class_d.h"
#include "catalog/pg_default_acl_d.h"
#include "fe_utils/string_utils.h"

#include "common.h"
#include "describe.h"
#include "fe_utils/mbprint.h"
#include "fe_utils/print.h"
#include "settings.h"
#include "variables.h"


static bool describeOneTableDetails(const char *schemaname,
            const char *relationname,
            const char *oid,
            bool verbose);
static void add_tablespace_footer(printTableContent *const cont, char relkind,
            Oid tablespace, const bool newline);
static void add_tablegroup_footer(printTableContent *const cont, char relkind,
            Oid tablegroup, const bool newline);
static void add_role_attribute(PQExpBuffer buf, const char *const str);
static bool listTSParsersVerbose(const char *pattern);
static bool describeOneTSParser(const char *oid, const char *nspname,
          const char *prsname);
static bool listTSConfigsVerbose(const char *pattern);
static bool describeOneTSConfig(const char *oid, const char *nspname,
          const char *cfgname,
          const char *pnspname, const char *prsname);
static void printACLColumn(PQExpBuffer buf, const char *colname);
static bool listOneExtensionContents(const char *extname, const char *oid);


/*----------------
 * Handlers for various slash commands displaying some sort of list
 * of things in the database.
 *
 * Note: try to format the queries to look nice in -E output.
 *----------------
 */


/*
 * \da
 * Takes an optional regexp to select particular aggregates
 */
bool
describeAggregates(const char *pattern, bool verbose, bool showSystem)
{
  PQExpBufferData buf;
  PGresult   *res;
  printQueryOpt myopt = pset.popt;

  initPQExpBuffer(&buf);

  printfPQExpBuffer(&buf,
            "SELECT n.nspname as \"%s\",\n"
            "  p.proname AS \"%s\",\n"
            "  pg_catalog.format_type(p.prorettype, NULL) AS \"%s\",\n",
            gettext_noop("Schema"),
            gettext_noop("Name"),
            gettext_noop("Result data type"));

  if (pset.sversion >= 80400)
    appendPQExpBuffer(&buf,
              "  CASE WHEN p.pronargs = 0\n"
              "    THEN CAST('*' AS pg_catalog.text)\n"
              "    ELSE pg_catalog.pg_get_function_arguments(p.oid)\n"
              "  END AS \"%s\",\n",
              gettext_noop("Argument data types"));
  else if (pset.sversion >= 80200)
    appendPQExpBuffer(&buf,
              "  CASE WHEN p.pronargs = 0\n"
              "    THEN CAST('*' AS pg_catalog.text)\n"
              "    ELSE\n"
              "    pg_catalog.array_to_string(ARRAY(\n"
              "      SELECT\n"
              "        pg_catalog.format_type(p.proargtypes[s.i], NULL)\n"
              "      FROM\n"
              "        pg_catalog.generate_series(0, pg_catalog.array_upper(p.proargtypes, 1)) AS s(i)\n"
              "    ), ', ')\n"
              "  END AS \"%s\",\n",
              gettext_noop("Argument data types"));
  else
    appendPQExpBuffer(&buf,
              "  pg_catalog.format_type(p.proargtypes[0], NULL) AS \"%s\",\n",
              gettext_noop("Argument data types"));

  if (pset.sversion >= 110000)
    appendPQExpBuffer(&buf,
              "  pg_catalog.obj_description(p.oid, 'pg_proc') as \"%s\"\n"
              "FROM pg_catalog.pg_proc p\n"
              "     LEFT JOIN pg_catalog.pg_namespace n ON n.oid = p.pronamespace\n"
              "WHERE p.prokind = 'a'\n",
              gettext_noop("Description"));
  else
    appendPQExpBuffer(&buf,
              "  pg_catalog.obj_description(p.oid, 'pg_proc') as \"%s\"\n"
              "FROM pg_catalog.pg_proc p\n"
              "     LEFT JOIN pg_catalog.pg_namespace n ON n.oid = p.pronamespace\n"
              "WHERE p.proisagg\n",
              gettext_noop("Description"));

  if (!showSystem && !pattern)
    appendPQExpBufferStr(&buf, "      AND n.nspname <> 'pg_catalog'\n"
               "      AND n.nspname <> 'information_schema'\n");

  processSQLNamePattern(pset.db, &buf, pattern, true, false,
              "n.nspname", "p.proname", NULL,
              "pg_catalog.pg_function_is_visible(p.oid)");

  appendPQExpBufferStr(&buf, "ORDER BY 1, 2, 4;");

  res = PSQLexec(buf.data);
  termPQExpBuffer(&buf);
  if (!res)
    return false;

  myopt.nullPrint = NULL;
  myopt.title = _("List of aggregate functions");
  myopt.translate_header = true;

  printQuery(res, &myopt, pset.queryFout, false, pset.logfile);

  PQclear(res);
  return true;
}

/*
 * \dA
 * Takes an optional regexp to select particular access methods
 */
bool
describeAccessMethods(const char *pattern, bool verbose)
{
  PQExpBufferData buf;
  PGresult   *res;
  printQueryOpt myopt = pset.popt;
  static const bool translate_columns[] = {false, true, false, false};

  if (pset.sversion < 90600)
  {
    char    sverbuf[32];

    psql_error("The server (version %s) does not support access methods.\n",
           formatPGVersionNumber(pset.sversion, false,
                     sverbuf, sizeof(sverbuf)));
    return true;
  }

  initPQExpBuffer(&buf);

  printfPQExpBuffer(&buf,
            "SELECT amname AS \"%s\",\n"
            "  CASE amtype"
            " WHEN 'i' THEN '%s'"
            " END AS \"%s\"",
            gettext_noop("Name"),
            gettext_noop("Index"),
            gettext_noop("Type"));

  if (verbose)
  {
    appendPQExpBuffer(&buf,
              ",\n  amhandler AS \"%s\",\n"
              "  pg_catalog.obj_description(oid, 'pg_am') AS \"%s\"",
              gettext_noop("Handler"),
              gettext_noop("Description"));
  }

  appendPQExpBufferStr(&buf,
             "\nFROM pg_catalog.pg_am\n");

  processSQLNamePattern(pset.db, &buf, pattern, false, false,
              NULL, "amname", NULL,
              NULL);

  appendPQExpBufferStr(&buf, "ORDER BY 1;");

  res = PSQLexec(buf.data);
  termPQExpBuffer(&buf);
  if (!res)
    return false;

  myopt.nullPrint = NULL;
  myopt.title = _("List of access methods");
  myopt.translate_header = true;
  myopt.translate_columns = translate_columns;
  myopt.n_translate_columns = lengthof(translate_columns);

  printQuery(res, &myopt, pset.queryFout, false, pset.logfile);

  PQclear(res);
  return true;
}

/*
 * \db
 * Takes an optional regexp to select particular tablespaces
 */
bool
describeTablespaces(const char *pattern, bool verbose)
{
  PQExpBufferData buf;
  PGresult   *res;
  printQueryOpt myopt = pset.popt;

  if (pset.sversion < 80000)
  {
    char    sverbuf[32];

    psql_error("The server (version %s) does not support tablespaces.\n",
           formatPGVersionNumber(pset.sversion, false,
                     sverbuf, sizeof(sverbuf)));
    return true;
  }

  initPQExpBuffer(&buf);

  if (pset.sversion >= 90200)
    printfPQExpBuffer(&buf,
              "SELECT spcname AS \"%s\",\n"
              "  pg_catalog.pg_get_userbyid(spcowner) AS \"%s\",\n"
              "  pg_catalog.pg_tablespace_location(oid) AS \"%s\"",
              gettext_noop("Name"),
              gettext_noop("Owner"),
              gettext_noop("Location"));
  else
    printfPQExpBuffer(&buf,
              "SELECT spcname AS \"%s\",\n"
              "  pg_catalog.pg_get_userbyid(spcowner) AS \"%s\",\n"
              "  spclocation AS \"%s\"",
              gettext_noop("Name"),
              gettext_noop("Owner"),
              gettext_noop("Location"));

  if (verbose)
  {
    appendPQExpBufferStr(&buf, ",\n  ");
    printACLColumn(&buf, "spcacl");
  }

  if (verbose && pset.sversion >= 90000)
    appendPQExpBuffer(&buf,
              ",\n  spcoptions AS \"%s\"",
              gettext_noop("Options"));

  if (verbose && pset.sversion >= 90200)
    appendPQExpBuffer(&buf,
              ",\n  pg_catalog.pg_size_pretty(pg_catalog.pg_tablespace_size(oid)) AS \"%s\"",
              gettext_noop("Size"));

  if (verbose && pset.sversion >= 80200)
    appendPQExpBuffer(&buf,
              ",\n  pg_catalog.shobj_description(oid, 'pg_tablespace') AS \"%s\"",
              gettext_noop("Description"));

  appendPQExpBufferStr(&buf,
             "\nFROM pg_catalog.pg_tablespace\n");

  processSQLNamePattern(pset.db, &buf, pattern, false, false,
              NULL, "spcname", NULL,
              NULL);

  appendPQExpBufferStr(&buf, "ORDER BY 1;");

  res = PSQLexec(buf.data);
  termPQExpBuffer(&buf);
  if (!res)
    return false;

  myopt.nullPrint = NULL;
  myopt.title = _("List of tablespaces");
  myopt.translate_header = true;

  printQuery(res, &myopt, pset.queryFout, false, pset.logfile);

  PQclear(res);
  return true;
}


/*
 * \df
 * Takes an optional regexp to select particular functions.
 *
 * As with \d, you can specify the kinds of functions you want:
 *
 * a for aggregates
 * n for normal
 * t for trigger
 * w for window
 *
 * and you can mix and match these in any order.
 */
bool
describeFunctions(const char *functypes, const char *pattern, bool verbose, bool showSystem)
{
  bool    showAggregate = strchr(functypes, 'a') != NULL;
  bool    showNormal = strchr(functypes, 'n') != NULL;
  bool    showProcedure = strchr(functypes, 'p') != NULL;
  bool    showTrigger = strchr(functypes, 't') != NULL;
  bool    showWindow = strchr(functypes, 'w') != NULL;
  bool    have_where;
  PQExpBufferData buf;
  PGresult   *res;
  printQueryOpt myopt = pset.popt;
  static const bool translate_columns[] = {false, false, false, false, true, true, true, false, true, false, false, false, false};

  /* No "Parallel" column before 9.6 */
  static const bool translate_columns_pre_96[] = {false, false, false, false, true, true, false, true, false, false, false, false};

  if (strlen(functypes) != strspn(functypes, "anptwS+"))
  {
    psql_error("\\df only takes [anptwS+] as options\n");
    return true;
  }

  if (showProcedure && pset.sversion < 1100000)
  {
    char    sverbuf[32];

    psql_error("\\df does not take a \"%c\" option with server version %s\n",
           'p',
           formatPGVersionNumber(pset.sversion, false,
                     sverbuf, sizeof(sverbuf)));
    return true;
  }

  if (showWindow && pset.sversion < 804000)
  {
    char    sverbuf[32];

    psql_error("\\df does not take a \"%c\" option with server version %s\n",
           'w',
           formatPGVersionNumber(pset.sversion, false,
                     sverbuf, sizeof(sverbuf)));
    return true;
  }

  if (!showAggregate && !showNormal && !showProcedure && !showTrigger && !showWindow)
  {
    showAggregate = showNormal = showTrigger = true;
    if (pset.sversion >= 110000)
      showProcedure = true;
    if (pset.sversion >= 80400)
      showWindow = true;
  }

  initPQExpBuffer(&buf);

  printfPQExpBuffer(&buf,
            "SELECT n.nspname as \"%s\",\n"
            "  p.proname as \"%s\",\n",
            gettext_noop("Schema"),
            gettext_noop("Name"));

  if (pset.sversion >= 110000)
    appendPQExpBuffer(&buf,
              "  pg_catalog.pg_get_function_result(p.oid) as \"%s\",\n"
              "  pg_catalog.pg_get_function_arguments(p.oid) as \"%s\",\n"
              " CASE p.prokind\n"
              "  WHEN 'a' THEN '%s'\n"
              "  WHEN 'w' THEN '%s'\n"
              "  WHEN 'p' THEN '%s'\n"
              "  ELSE '%s'\n"
              " END as \"%s\"",
              gettext_noop("Result data type"),
              gettext_noop("Argument data types"),
    /* translator: "agg" is short for "aggregate" */
              gettext_noop("agg"),
              gettext_noop("window"),
              gettext_noop("proc"),
              gettext_noop("func"),
              gettext_noop("Type"));
  else if (pset.sversion >= 80400)
    appendPQExpBuffer(&buf,
              "  pg_catalog.pg_get_function_result(p.oid) as \"%s\",\n"
              "  pg_catalog.pg_get_function_arguments(p.oid) as \"%s\",\n"
              " CASE\n"
              "  WHEN p.proisagg THEN '%s'\n"
              "  WHEN p.proiswindow THEN '%s'\n"
              "  WHEN p.prorettype = 'pg_catalog.trigger'::pg_catalog.regtype THEN '%s'\n"
              "  ELSE '%s'\n"
              " END as \"%s\"",
              gettext_noop("Result data type"),
              gettext_noop("Argument data types"),
    /* translator: "agg" is short for "aggregate" */
              gettext_noop("agg"),
              gettext_noop("window"),
              gettext_noop("trigger"),
              gettext_noop("func"),
              gettext_noop("Type"));
  else if (pset.sversion >= 80100)
    appendPQExpBuffer(&buf,
              "  CASE WHEN p.proretset THEN 'SETOF ' ELSE '' END ||\n"
              "  pg_catalog.format_type(p.prorettype, NULL) as \"%s\",\n"
              "  CASE WHEN proallargtypes IS NOT NULL THEN\n"
              "    pg_catalog.array_to_string(ARRAY(\n"
              "      SELECT\n"
              "        CASE\n"
              "          WHEN p.proargmodes[s.i] = 'i' THEN ''\n"
              "          WHEN p.proargmodes[s.i] = 'o' THEN 'OUT '\n"
              "          WHEN p.proargmodes[s.i] = 'b' THEN 'INOUT '\n"
              "          WHEN p.proargmodes[s.i] = 'v' THEN 'VARIADIC '\n"
              "        END ||\n"
              "        CASE\n"
              "          WHEN COALESCE(p.proargnames[s.i], '') = '' THEN ''\n"
              "          ELSE p.proargnames[s.i] || ' '\n"
              "        END ||\n"
              "        pg_catalog.format_type(p.proallargtypes[s.i], NULL)\n"
              "      FROM\n"
              "        pg_catalog.generate_series(1, pg_catalog.array_upper(p.proallargtypes, 1)) AS s(i)\n"
              "    ), ', ')\n"
              "  ELSE\n"
              "    pg_catalog.array_to_string(ARRAY(\n"
              "      SELECT\n"
              "        CASE\n"
              "          WHEN COALESCE(p.proargnames[s.i+1], '') = '' THEN ''\n"
              "          ELSE p.proargnames[s.i+1] || ' '\n"
              "          END ||\n"
              "        pg_catalog.format_type(p.proargtypes[s.i], NULL)\n"
              "      FROM\n"
              "        pg_catalog.generate_series(0, pg_catalog.array_upper(p.proargtypes, 1)) AS s(i)\n"
              "    ), ', ')\n"
              "  END AS \"%s\",\n"
              "  CASE\n"
              "    WHEN p.proisagg THEN '%s'\n"
              "    WHEN p.prorettype = 'pg_catalog.trigger'::pg_catalog.regtype THEN '%s'\n"
              "    ELSE '%s'\n"
              "  END AS \"%s\"",
              gettext_noop("Result data type"),
              gettext_noop("Argument data types"),
    /* translator: "agg" is short for "aggregate" */
              gettext_noop("agg"),
              gettext_noop("trigger"),
              gettext_noop("func"),
              gettext_noop("Type"));
  else
    appendPQExpBuffer(&buf,
              "  CASE WHEN p.proretset THEN 'SETOF ' ELSE '' END ||\n"
              "  pg_catalog.format_type(p.prorettype, NULL) as \"%s\",\n"
              "  pg_catalog.oidvectortypes(p.proargtypes) as \"%s\",\n"
              "  CASE\n"
              "    WHEN p.proisagg THEN '%s'\n"
              "    WHEN p.prorettype = 'pg_catalog.trigger'::pg_catalog.regtype THEN '%s'\n"
              "    ELSE '%s'\n"
              "  END AS \"%s\"",
              gettext_noop("Result data type"),
              gettext_noop("Argument data types"),
    /* translator: "agg" is short for "aggregate" */
              gettext_noop("agg"),
              gettext_noop("trigger"),
              gettext_noop("func"),
              gettext_noop("Type"));

  if (verbose)
  {
    appendPQExpBuffer(&buf,
              ",\n CASE\n"
              "  WHEN p.provolatile = 'i' THEN '%s'\n"
              "  WHEN p.provolatile = 's' THEN '%s'\n"
              "  WHEN p.provolatile = 'v' THEN '%s'\n"
              " END as \"%s\"",
              gettext_noop("immutable"),
              gettext_noop("stable"),
              gettext_noop("volatile"),
              gettext_noop("Volatility"));
    if (pset.sversion >= 90600)
      appendPQExpBuffer(&buf,
                ",\n CASE\n"
                "  WHEN p.proparallel = 'r' THEN '%s'\n"
                "  WHEN p.proparallel = 's' THEN '%s'\n"
                "  WHEN p.proparallel = 'u' THEN '%s'\n"
                " END as \"%s\"",
                gettext_noop("restricted"),
                gettext_noop("safe"),
                gettext_noop("unsafe"),
                gettext_noop("Parallel"));
    appendPQExpBuffer(&buf,
              ",\n pg_catalog.pg_get_userbyid(p.proowner) as \"%s\""
              ",\n CASE WHEN prosecdef THEN '%s' ELSE '%s' END AS \"%s\"",
              gettext_noop("Owner"),
              gettext_noop("definer"),
              gettext_noop("invoker"),
              gettext_noop("Security"));
    appendPQExpBufferStr(&buf, ",\n ");
    printACLColumn(&buf, "p.proacl");
    appendPQExpBuffer(&buf,
              ",\n l.lanname as \"%s\""
              ",\n p.prosrc as \"%s\""
              ",\n pg_catalog.obj_description(p.oid, 'pg_proc') as \"%s\"",
              gettext_noop("Language"),
              gettext_noop("Source code"),
              gettext_noop("Description"));
  }

  appendPQExpBufferStr(&buf,
             "\nFROM pg_catalog.pg_proc p"
             "\n     LEFT JOIN pg_catalog.pg_namespace n ON n.oid = p.pronamespace\n");

  if (verbose)
    appendPQExpBufferStr(&buf,
               "     LEFT JOIN pg_catalog.pg_language l ON l.oid = p.prolang\n");

  have_where = false;

  /* filter by function type, if requested */
  if (showNormal && showAggregate && showProcedure && showTrigger && showWindow)
     /* Do nothing */ ;
  else if (showNormal)
  {
    if (!showAggregate)
    {
      if (have_where)
        appendPQExpBufferStr(&buf, "      AND ");
      else
      {
        appendPQExpBufferStr(&buf, "WHERE ");
        have_where = true;
      }
      if (pset.sversion >= 110000)
        appendPQExpBufferStr(&buf, "p.prokind <> 'a'\n");
      else
        appendPQExpBufferStr(&buf, "NOT p.proisagg\n");
    }
    if (!showProcedure && pset.sversion >= 110000)
    {
      if (have_where)
        appendPQExpBufferStr(&buf, "      AND ");
      else
      {
        appendPQExpBufferStr(&buf, "WHERE ");
        have_where = true;
      }
      appendPQExpBufferStr(&buf, "p.prokind <> 'p'\n");
    }
    if (!showTrigger)
    {
      if (have_where)
        appendPQExpBufferStr(&buf, "      AND ");
      else
      {
        appendPQExpBufferStr(&buf, "WHERE ");
        have_where = true;
      }
      appendPQExpBufferStr(&buf, "p.prorettype <> 'pg_catalog.trigger'::pg_catalog.regtype\n");
    }
    if (!showWindow && pset.sversion >= 80400)
    {
      if (have_where)
        appendPQExpBufferStr(&buf, "      AND ");
      else
      {
        appendPQExpBufferStr(&buf, "WHERE ");
        have_where = true;
      }
      if (pset.sversion >= 110000)
        appendPQExpBufferStr(&buf, "p.prokind <> 'w'\n");
      else
        appendPQExpBufferStr(&buf, "NOT p.proiswindow\n");
    }
  }
  else
  {
    bool    needs_or = false;

    appendPQExpBufferStr(&buf, "WHERE (\n       ");
    have_where = true;
    /* Note: at least one of these must be true ... */
    if (showAggregate)
    {
      if (pset.sversion >= 110000)
        appendPQExpBufferStr(&buf, "p.prokind = 'a'\n");
      else
        appendPQExpBufferStr(&buf, "p.proisagg\n");
      needs_or = true;
    }
    if (showTrigger)
    {
      if (needs_or)
        appendPQExpBufferStr(&buf, "       OR ");
      appendPQExpBufferStr(&buf,
                 "p.prorettype = 'pg_catalog.trigger'::pg_catalog.regtype\n");
      needs_or = true;
    }
    if (showProcedure)
    {
      if (needs_or)
        appendPQExpBufferStr(&buf, "       OR ");
      appendPQExpBufferStr(&buf, "p.prokind = 'p'\n");
      needs_or = true;
    }
    if (showWindow)
    {
      if (needs_or)
        appendPQExpBufferStr(&buf, "       OR ");
      if (pset.sversion >= 110000)
        appendPQExpBufferStr(&buf, "p.prokind = 'w'\n");
      else
        appendPQExpBufferStr(&buf, "p.proiswindow\n");
      needs_or = true;
    }
    appendPQExpBufferStr(&buf, "      )\n");
  }

  processSQLNamePattern(pset.db, &buf, pattern, have_where, false,
              "n.nspname", "p.proname", NULL,
              "pg_catalog.pg_function_is_visible(p.oid)");

  if (!showSystem && !pattern)
    appendPQExpBufferStr(&buf, "      AND n.nspname <> 'pg_catalog'\n"
               "      AND n.nspname <> 'information_schema'\n");

  appendPQExpBufferStr(&buf, "ORDER BY 1, 2, 4;");

  res = PSQLexec(buf.data);
  termPQExpBuffer(&buf);
  if (!res)
    return false;

  myopt.nullPrint = NULL;
  myopt.title = _("List of functions");
  myopt.translate_header = true;
  if (pset.sversion >= 90600)
  {
    myopt.translate_columns = translate_columns;
    myopt.n_translate_columns = lengthof(translate_columns);
  }
  else
  {
    myopt.translate_columns = translate_columns_pre_96;
    myopt.n_translate_columns = lengthof(translate_columns_pre_96);
  }

  printQuery(res, &myopt, pset.queryFout, false, pset.logfile);

  PQclear(res);
  return true;
}



/*
 * \dT
 * describe types
 */
bool
describeTypes(const char *pattern, bool verbose, bool showSystem)
{
  PQExpBufferData buf;
  PGresult   *res;
  printQueryOpt myopt = pset.popt;

  initPQExpBuffer(&buf);

  printfPQExpBuffer(&buf,
            "SELECT n.nspname as \"%s\",\n"
            "  pg_catalog.format_type(t.oid, NULL) AS \"%s\",\n",
            gettext_noop("Schema"),
            gettext_noop("Name"));
  if (verbose)
    appendPQExpBuffer(&buf,
              "  t.typname AS \"%s\",\n"
              "  CASE WHEN t.typrelid != 0\n"
              "      THEN CAST('tuple' AS pg_catalog.text)\n"
              "    WHEN t.typlen < 0\n"
              "      THEN CAST('var' AS pg_catalog.text)\n"
              "    ELSE CAST(t.typlen AS pg_catalog.text)\n"
              "  END AS \"%s\",\n",
              gettext_noop("Internal name"),
              gettext_noop("Size"));
  if (verbose && pset.sversion >= 803000)
  {
    appendPQExpBufferStr(&buf,
               "  pg_catalog.array_to_string(\n"
               "      ARRAY(\n"
               "          SELECT e.enumlabel\n"
               "          FROM pg_catalog.pg_enum e\n"
               "          WHERE e.enumtypid = t.oid\n");

    if (pset.sversion >= 90100)
      appendPQExpBufferStr(&buf,
                 "          ORDER BY e.enumsortorder\n");
    else
      appendPQExpBufferStr(&buf,
                 "          ORDER BY e.oid\n");

    appendPQExpBuffer(&buf,
              "      ),\n"
              "      E'\\n'\n"
              "  ) AS \"%s\",\n",
              gettext_noop("Elements"));
  }
  if (verbose)
  {
    appendPQExpBuffer(&buf,
              "  pg_catalog.pg_get_userbyid(t.typowner) AS \"%s\",\n",
              gettext_noop("Owner"));
  }
  if (verbose && pset.sversion >= 902000)
  {
    printACLColumn(&buf, "t.typacl");
    appendPQExpBufferStr(&buf, ",\n  ");
  }

  appendPQExpBuffer(&buf,
            "  pg_catalog.obj_description(t.oid, 'pg_type') as \"%s\"\n",
            gettext_noop("Description"));

  appendPQExpBufferStr(&buf, "FROM pg_catalog.pg_type t\n"
             "     LEFT JOIN pg_catalog.pg_namespace n ON n.oid = t.typnamespace\n");

  /*
   * do not include complex types (typrelid!=0) unless they are standalone
   * composite types
   */
  appendPQExpBufferStr(&buf, "WHERE (t.typrelid = 0 ");
  appendPQExpBufferStr(&buf, "OR (SELECT c.relkind = " CppAsString2(RELKIND_COMPOSITE_TYPE)
             " FROM pg_catalog.pg_class c "
             "WHERE c.oid = t.typrelid))\n");

  /*
   * do not include array types (before 8.3 we have to use the assumption
   * that their names start with underscore)
   */
  if (pset.sversion >= 80300)
    appendPQExpBufferStr(&buf, "  AND NOT EXISTS(SELECT 1 FROM pg_catalog.pg_type el WHERE el.oid = t.typelem AND el.typarray = t.oid)\n");
  else
    appendPQExpBufferStr(&buf, "  AND t.typname !~ '^_'\n");

  if (!showSystem && !pattern)
    appendPQExpBufferStr(&buf, "      AND n.nspname <> 'pg_catalog'\n"
               "      AND n.nspname <> 'information_schema'\n");

  /* Match name pattern against either internal or external name */
  processSQLNamePattern(pset.db, &buf, pattern, true, false,
              "n.nspname", "t.typname",
              "pg_catalog.format_type(t.oid, NULL)",
              "pg_catalog.pg_type_is_visible(t.oid)");

  appendPQExpBufferStr(&buf, "ORDER BY 1, 2;");

  res = PSQLexec(buf.data);
  termPQExpBuffer(&buf);
  if (!res)
    return false;

  myopt.nullPrint = NULL;
  myopt.title = _("List of data types");
  myopt.translate_header = true;

  printQuery(res, &myopt, pset.queryFout, false, pset.logfile);

  PQclear(res);
  return true;
}


/*
 * \do
 * Describe operators
 */
bool
describeOperators(const char *pattern, bool verbose, bool showSystem)
{
  PQExpBufferData buf;
  PGresult   *res;
  printQueryOpt myopt = pset.popt;

  initPQExpBuffer(&buf);

  /*
   * Note: before Postgres 9.1, we did not assign comments to any built-in
   * operators, preferring to let the comment on the underlying function
   * suffice.  The coalesce() on the obj_description() calls below supports
   * this convention by providing a fallback lookup of a comment on the
   * operator's function.  As of 9.1 there is a policy that every built-in
   * operator should have a comment; so the coalesce() is no longer
   * necessary so far as built-in operators are concerned.  We keep it
   * anyway, for now, because (1) third-party modules may still be following
   * the old convention, and (2) we'd need to do it anyway when talking to a
   * pre-9.1 server.
   */

  printfPQExpBuffer(&buf,
            "SELECT n.nspname as \"%s\",\n"
            "  o.oprname AS \"%s\",\n"
            "  CASE WHEN o.oprkind='l' THEN NULL ELSE pg_catalog.format_type(o.oprleft, NULL) END AS \"%s\",\n"
            "  CASE WHEN o.oprkind='r' THEN NULL ELSE pg_catalog.format_type(o.oprright, NULL) END AS \"%s\",\n"
            "  pg_catalog.format_type(o.oprresult, NULL) AS \"%s\",\n",
            gettext_noop("Schema"),
            gettext_noop("Name"),
            gettext_noop("Left arg type"),
            gettext_noop("Right arg type"),
            gettext_noop("Result type"));

  if (verbose)
    appendPQExpBuffer(&buf,
              "  o.oprcode AS \"%s\",\n",
              gettext_noop("Function"));

  appendPQExpBuffer(&buf,
            "  coalesce(pg_catalog.obj_description(o.oid, 'pg_operator'),\n"
            "           pg_catalog.obj_description(o.oprcode, 'pg_proc')) AS \"%s\"\n"
            "FROM pg_catalog.pg_operator o\n"
            "     LEFT JOIN pg_catalog.pg_namespace n ON n.oid = o.oprnamespace\n",
            gettext_noop("Description"));

  if (!showSystem && !pattern)
    appendPQExpBufferStr(&buf, "WHERE n.nspname <> 'pg_catalog'\n"
               "      AND n.nspname <> 'information_schema'\n");

  processSQLNamePattern(pset.db, &buf, pattern, !showSystem && !pattern, true,
              "n.nspname", "o.oprname", NULL,
              "pg_catalog.pg_operator_is_visible(o.oid)");

  appendPQExpBufferStr(&buf, "ORDER BY 1, 2, 3, 4;");

  res = PSQLexec(buf.data);
  termPQExpBuffer(&buf);
  if (!res)
    return false;

  myopt.nullPrint = NULL;
  myopt.title = _("List of operators");
  myopt.translate_header = true;

  printQuery(res, &myopt, pset.queryFout, false, pset.logfile);

  PQclear(res);
  return true;
}


/*
 * listAllDbs
 *
 * for \l, \list, and -l switch
 */
bool
listAllDbs(const char *pattern, bool verbose)
{
  PGresult   *res;
  PQExpBufferData buf;
  printQueryOpt myopt = pset.popt;

  initPQExpBuffer(&buf);

  printfPQExpBuffer(&buf,
            "SELECT d.datname as \"%s\",\n"
            "       pg_catalog.pg_get_userbyid(d.datdba) as \"%s\",\n"
            "       pg_catalog.pg_encoding_to_char(d.encoding) as \"%s\",\n",
            gettext_noop("Name"),
            gettext_noop("Owner"),
            gettext_noop("Encoding"));
  if (pset.sversion >= 80400)
    appendPQExpBuffer(&buf,
              "       d.datcollate as \"%s\",\n"
              "       d.datctype as \"%s\",\n",
              gettext_noop("Collate"),
              gettext_noop("Ctype"));
  appendPQExpBufferStr(&buf, "       ");
  printACLColumn(&buf, "d.datacl");
  if (verbose && pset.sversion >= 80200)
    appendPQExpBuffer(&buf,
              ",\n       CASE WHEN pg_catalog.has_database_privilege(d.datname, 'CONNECT')\n"
              "            THEN pg_catalog.pg_size_pretty(pg_catalog.pg_database_size(d.datname))\n"
              "            ELSE 'No Access'\n"
              "       END as \"%s\"",
              gettext_noop("Size"));
  if (verbose && pset.sversion >= 80000)
    appendPQExpBuffer(&buf,
              ",\n       t.spcname as \"%s\"",
              gettext_noop("Tablespace"));
  if (verbose && pset.sversion >= 80200)
    appendPQExpBuffer(&buf,
              ",\n       pg_catalog.shobj_description(d.oid, 'pg_database') as \"%s\"",
              gettext_noop("Description"));
  appendPQExpBufferStr(&buf,
             "\nFROM pg_catalog.pg_database d\n");
  if (verbose && pset.sversion >= 80000)
    appendPQExpBufferStr(&buf,
               "  JOIN pg_catalog.pg_tablespace t on d.dattablespace = t.oid\n");

  if (pattern)
    processSQLNamePattern(pset.db, &buf, pattern, false, false,
                NULL, "d.datname", NULL, NULL);

  appendPQExpBufferStr(&buf, "ORDER BY 1;");
  res = PSQLexec(buf.data);
  termPQExpBuffer(&buf);
  if (!res)
    return false;

  myopt.nullPrint = NULL;
  myopt.title = _("List of databases");
  myopt.translate_header = true;

  printQuery(res, &myopt, pset.queryFout, false, pset.logfile);

  PQclear(res);
  return true;
}


/*
 * List Tables' Grant/Revoke Permissions
 * \z (now also \dp -- perhaps more mnemonic)
 */
bool
permissionsList(const char *pattern)
{
  PQExpBufferData buf;
  PGresult   *res;
  printQueryOpt myopt = pset.popt;
  static const bool translate_columns[] = {false, false, true, false, false, false};

  initPQExpBuffer(&buf);

  /*
   * we ignore indexes and toast tables since they have no meaningful rights
   */
  printfPQExpBuffer(&buf,
            "SELECT n.nspname as \"%s\",\n"
            "  c.relname as \"%s\",\n"
            "  CASE c.relkind"
            " WHEN " CppAsString2(RELKIND_RELATION) " THEN '%s'"
            " WHEN " CppAsString2(RELKIND_VIEW) " THEN '%s'"
            " WHEN " CppAsString2(RELKIND_MATVIEW) " THEN '%s'"
            " WHEN " CppAsString2(RELKIND_SEQUENCE) " THEN '%s'"
            " WHEN " CppAsString2(RELKIND_FOREIGN_TABLE) " THEN '%s'"
            " WHEN " CppAsString2(RELKIND_PARTITIONED_TABLE) " THEN '%s'"
            " END as \"%s\",\n"
            "  ",
            gettext_noop("Schema"),
            gettext_noop("Name"),
            gettext_noop("table"),
            gettext_noop("view"),
            gettext_noop("materialized view"),
            gettext_noop("sequence"),
            gettext_noop("foreign table"),
            gettext_noop("table"),  /* partitioned table */
            gettext_noop("Type"));

  printACLColumn(&buf, "c.relacl");

  if (pset.sversion >= 80400)
    appendPQExpBuffer(&buf,
              ",\n  pg_catalog.array_to_string(ARRAY(\n"
              "    SELECT attname || E':\\n  ' || pg_catalog.array_to_string(attacl, E'\\n  ')\n"
              "    FROM pg_catalog.pg_attribute a\n"
              "    WHERE attrelid = c.oid AND NOT attisdropped AND attacl IS NOT NULL\n"
              "  ), E'\\n') AS \"%s\"",
              gettext_noop("Column privileges"));

  if (pset.sversion >= 90500 && pset.sversion < 100000)
    appendPQExpBuffer(&buf,
              ",\n  pg_catalog.array_to_string(ARRAY(\n"
              "    SELECT polname\n"
              "    || CASE WHEN polcmd != '*' THEN\n"
              "           E' (' || polcmd || E'):'\n"
              "       ELSE E':'\n"
              "       END\n"
              "    || CASE WHEN polqual IS NOT NULL THEN\n"
              "           E'\\n  (u): ' || pg_catalog.pg_get_expr(polqual, polrelid)\n"
              "       ELSE E''\n"
              "       END\n"
              "    || CASE WHEN polwithcheck IS NOT NULL THEN\n"
              "           E'\\n  (c): ' || pg_catalog.pg_get_expr(polwithcheck, polrelid)\n"
              "       ELSE E''\n"
              "       END"
              "    || CASE WHEN polroles <> '{0}' THEN\n"
              "           E'\\n  to: ' || pg_catalog.array_to_string(\n"
              "               ARRAY(\n"
              "                   SELECT rolname\n"
              "                   FROM pg_catalog.pg_roles\n"
              "                   WHERE oid = ANY (polroles)\n"
              "                   ORDER BY 1\n"
              "               ), E', ')\n"
              "       ELSE E''\n"
              "       END\n"
              "    FROM pg_catalog.pg_policy pol\n"
              "    WHERE polrelid = c.oid), E'\\n')\n"
              "    AS \"%s\"",
              gettext_noop("Policies"));

  if (pset.sversion >= 100000)
    appendPQExpBuffer(&buf,
              ",\n  pg_catalog.array_to_string(ARRAY(\n"
              "    SELECT polname\n"
              "    || CASE WHEN NOT polpermissive THEN\n"
              "       E' (RESTRICTIVE)'\n"
              "       ELSE '' END\n"
              "    || CASE WHEN polcmd != '*' THEN\n"
              "           E' (' || polcmd || E'):'\n"
              "       ELSE E':'\n"
              "       END\n"
              "    || CASE WHEN polqual IS NOT NULL THEN\n"
              "           E'\\n  (u): ' || pg_catalog.pg_get_expr(polqual, polrelid)\n"
              "       ELSE E''\n"
              "       END\n"
              "    || CASE WHEN polwithcheck IS NOT NULL THEN\n"
              "           E'\\n  (c): ' || pg_catalog.pg_get_expr(polwithcheck, polrelid)\n"
              "       ELSE E''\n"
              "       END"
              "    || CASE WHEN polroles <> '{0}' THEN\n"
              "           E'\\n  to: ' || pg_catalog.array_to_string(\n"
              "               ARRAY(\n"
              "                   SELECT rolname\n"
              "                   FROM pg_catalog.pg_roles\n"
              "                   WHERE oid = ANY (polroles)\n"
              "                   ORDER BY 1\n"
              "               ), E', ')\n"
              "       ELSE E''\n"
              "       END\n"
              "    FROM pg_catalog.pg_policy pol\n"
              "    WHERE polrelid = c.oid), E'\\n')\n"
              "    AS \"%s\"",
              gettext_noop("Policies"));

  appendPQExpBufferStr(&buf, "\nFROM pg_catalog.pg_class c\n"
             "     LEFT JOIN pg_catalog.pg_namespace n ON n.oid = c.relnamespace\n"
             "WHERE c.relkind IN ("
             CppAsString2(RELKIND_RELATION) ","
             CppAsString2(RELKIND_VIEW) ","
             CppAsString2(RELKIND_MATVIEW) ","
             CppAsString2(RELKIND_SEQUENCE) ","
             CppAsString2(RELKIND_FOREIGN_TABLE) ","
             CppAsString2(RELKIND_PARTITIONED_TABLE) ")\n");

  /*
   * Unless a schema pattern is specified, we suppress system and temp
   * tables, since they normally aren't very interesting from a permissions
   * point of view.  You can see 'em by explicit request though, eg with \z
   * pg_catalog.*
   */
  processSQLNamePattern(pset.db, &buf, pattern, true, false,
              "n.nspname", "c.relname", NULL,
              "n.nspname !~ '^pg_' AND pg_catalog.pg_table_is_visible(c.oid)");

  appendPQExpBufferStr(&buf, "ORDER BY 1, 2;");

  res = PSQLexec(buf.data);
  if (!res)
  {
    termPQExpBuffer(&buf);
    return false;
  }

  myopt.nullPrint = NULL;
  printfPQExpBuffer(&buf, _("Access privileges"));
  myopt.title = buf.data;
  myopt.translate_header = true;
  myopt.translate_columns = translate_columns;
  myopt.n_translate_columns = lengthof(translate_columns);

  printQuery(res, &myopt, pset.queryFout, false, pset.logfile);

  termPQExpBuffer(&buf);
  PQclear(res);
  return true;
}


/*
 * \ddp
 *
 * List Default ACLs.  The pattern can match either schema or role name.
 */
bool
listDefaultACLs(const char *pattern)
{
  PQExpBufferData buf;
  PGresult   *res;
  printQueryOpt myopt = pset.popt;
  static const bool translate_columns[] = {false, false, true, false};

  if (pset.sversion < 90000)
  {
    char    sverbuf[32];

    psql_error("The server (version %s) does not support altering default privileges.\n",
           formatPGVersionNumber(pset.sversion, false,
                     sverbuf, sizeof(sverbuf)));
    return true;
  }

  initPQExpBuffer(&buf);

  printfPQExpBuffer(&buf,
            "SELECT pg_catalog.pg_get_userbyid(d.defaclrole) AS \"%s\",\n"
            "  n.nspname AS \"%s\",\n"
            "  CASE d.defaclobjtype WHEN '%c' THEN '%s' WHEN '%c' THEN '%s' WHEN '%c' THEN '%s' WHEN '%c' THEN '%s' WHEN '%c' THEN '%s' WHEN '%c' THEN '%s' END AS \"%s\",\n"
            "  ",
            gettext_noop("Owner"),
            gettext_noop("Schema"),
            DEFACLOBJ_RELATION,
            gettext_noop("table"),
            DEFACLOBJ_SEQUENCE,
            gettext_noop("sequence"),
            DEFACLOBJ_FUNCTION,
            gettext_noop("function"),
            DEFACLOBJ_TYPE,
            gettext_noop("type"),
            DEFACLOBJ_NAMESPACE,
            gettext_noop("schema"),
            DEFACLOBJ_TABLEGROUP,
            gettext_noop("tablegroup"),
            gettext_noop("Type"));

  printACLColumn(&buf, "d.defaclacl");

  appendPQExpBufferStr(&buf, "\nFROM pg_catalog.pg_default_acl d\n"
             "     LEFT JOIN pg_catalog.pg_namespace n ON n.oid = d.defaclnamespace\n");

  processSQLNamePattern(pset.db, &buf, pattern, false, false,
              NULL,
              "n.nspname",
              "pg_catalog.pg_get_userbyid(d.defaclrole)",
              NULL);

  appendPQExpBufferStr(&buf, "ORDER BY 1, 2, 3;");

  res = PSQLexec(buf.data);
  if (!res)
  {
    termPQExpBuffer(&buf);
    return false;
  }

  myopt.nullPrint = NULL;
  printfPQExpBuffer(&buf, _("Default access privileges"));
  myopt.title = buf.data;
  myopt.translate_header = true;
  myopt.translate_columns = translate_columns;
  myopt.n_translate_columns = lengthof(translate_columns);

  printQuery(res, &myopt, pset.queryFout, false, pset.logfile);

  termPQExpBuffer(&buf);
  PQclear(res);
  return true;
}


/*
 * Get object comments
 *
 * \dd [foo]
 *
 * Note: This command only lists comments for object types which do not have
 * their comments displayed by their own backslash commands. The following
 * types of objects will be displayed: constraint, operator class,
 * operator family, rule, and trigger.
 *
 */
bool
objectDescription(const char *pattern, bool showSystem)
{
  PQExpBufferData buf;
  PGresult   *res;
  printQueryOpt myopt = pset.popt;
  static const bool translate_columns[] = {false, false, true, false};

  initPQExpBuffer(&buf);

  appendPQExpBuffer(&buf,
            "SELECT DISTINCT tt.nspname AS \"%s\", tt.name AS \"%s\", tt.object AS \"%s\", d.description AS \"%s\"\n"
            "FROM (\n",
            gettext_noop("Schema"),
            gettext_noop("Name"),
            gettext_noop("Object"),
            gettext_noop("Description"));

  /* Table constraint descriptions */
  appendPQExpBuffer(&buf,
            "  SELECT pgc.oid as oid, pgc.tableoid AS tableoid,\n"
            "  n.nspname as nspname,\n"
            "  CAST(pgc.conname AS pg_catalog.text) as name,"
            "  CAST('%s' AS pg_catalog.text) as object\n"
            "  FROM pg_catalog.pg_constraint pgc\n"
            "    JOIN pg_catalog.pg_class c "
            "ON c.oid = pgc.conrelid\n"
            "    LEFT JOIN pg_catalog.pg_namespace n "
            "    ON n.oid = c.relnamespace\n",
            gettext_noop("table constraint"));

  if (!showSystem && !pattern)
    appendPQExpBufferStr(&buf, "WHERE n.nspname <> 'pg_catalog'\n"
               "      AND n.nspname <> 'information_schema'\n");

  processSQLNamePattern(pset.db, &buf, pattern, !showSystem && !pattern,
              false, "n.nspname", "pgc.conname", NULL,
              "pg_catalog.pg_table_is_visible(c.oid)");

  /* Domain constraint descriptions */
  appendPQExpBuffer(&buf,
            "UNION ALL\n"
            "  SELECT pgc.oid as oid, pgc.tableoid AS tableoid,\n"
            "  n.nspname as nspname,\n"
            "  CAST(pgc.conname AS pg_catalog.text) as name,"
            "  CAST('%s' AS pg_catalog.text) as object\n"
            "  FROM pg_catalog.pg_constraint pgc\n"
            "    JOIN pg_catalog.pg_type t "
            "ON t.oid = pgc.contypid\n"
            "    LEFT JOIN pg_catalog.pg_namespace n "
            "    ON n.oid = t.typnamespace\n",
            gettext_noop("domain constraint"));

  if (!showSystem && !pattern)
    appendPQExpBufferStr(&buf, "WHERE n.nspname <> 'pg_catalog'\n"
               "      AND n.nspname <> 'information_schema'\n");

  processSQLNamePattern(pset.db, &buf, pattern, !showSystem && !pattern,
              false, "n.nspname", "pgc.conname", NULL,
              "pg_catalog.pg_type_is_visible(t.oid)");


  /*
   * pg_opclass.opcmethod only available in 8.3+
   */
  if (pset.sversion >= 80300)
  {
    /* Operator class descriptions */
    appendPQExpBuffer(&buf,
              "UNION ALL\n"
              "  SELECT o.oid as oid, o.tableoid as tableoid,\n"
              "  n.nspname as nspname,\n"
              "  CAST(o.opcname AS pg_catalog.text) as name,\n"
              "  CAST('%s' AS pg_catalog.text) as object\n"
              "  FROM pg_catalog.pg_opclass o\n"
              "    JOIN pg_catalog.pg_am am ON "
              "o.opcmethod = am.oid\n"
              "    JOIN pg_catalog.pg_namespace n ON "
              "n.oid = o.opcnamespace\n",
              gettext_noop("operator class"));

    if (!showSystem && !pattern)
      appendPQExpBufferStr(&buf, "      AND n.nspname <> 'pg_catalog'\n"
                 "      AND n.nspname <> 'information_schema'\n");

    processSQLNamePattern(pset.db, &buf, pattern, true, false,
                "n.nspname", "o.opcname", NULL,
                "pg_catalog.pg_opclass_is_visible(o.oid)");
  }

  /*
   * although operator family comments have been around since 8.3,
   * pg_opfamily_is_visible is only available in 9.2+
   */
  if (pset.sversion >= 90200)
  {
    /* Operator family descriptions */
    appendPQExpBuffer(&buf,
              "UNION ALL\n"
              "  SELECT opf.oid as oid, opf.tableoid as tableoid,\n"
              "  n.nspname as nspname,\n"
              "  CAST(opf.opfname AS pg_catalog.text) AS name,\n"
              "  CAST('%s' AS pg_catalog.text) as object\n"
              "  FROM pg_catalog.pg_opfamily opf\n"
              "    JOIN pg_catalog.pg_am am "
              "ON opf.opfmethod = am.oid\n"
              "    JOIN pg_catalog.pg_namespace n "
              "ON opf.opfnamespace = n.oid\n",
              gettext_noop("operator family"));

    if (!showSystem && !pattern)
      appendPQExpBufferStr(&buf, "      AND n.nspname <> 'pg_catalog'\n"
                 "      AND n.nspname <> 'information_schema'\n");

    processSQLNamePattern(pset.db, &buf, pattern, true, false,
                "n.nspname", "opf.opfname", NULL,
                "pg_catalog.pg_opfamily_is_visible(opf.oid)");
  }

  /* Rule descriptions (ignore rules for views) */
  appendPQExpBuffer(&buf,
            "UNION ALL\n"
            "  SELECT r.oid as oid, r.tableoid as tableoid,\n"
            "  n.nspname as nspname,\n"
            "  CAST(r.rulename AS pg_catalog.text) as name,"
            "  CAST('%s' AS pg_catalog.text) as object\n"
            "  FROM pg_catalog.pg_rewrite r\n"
            "       JOIN pg_catalog.pg_class c ON c.oid = r.ev_class\n"
            "       LEFT JOIN pg_catalog.pg_namespace n ON n.oid = c.relnamespace\n"
            "  WHERE r.rulename != '_RETURN'\n",
            gettext_noop("rule"));

  if (!showSystem && !pattern)
    appendPQExpBufferStr(&buf, "      AND n.nspname <> 'pg_catalog'\n"
               "      AND n.nspname <> 'information_schema'\n");

  processSQLNamePattern(pset.db, &buf, pattern, true, false,
              "n.nspname", "r.rulename", NULL,
              "pg_catalog.pg_table_is_visible(c.oid)");

  /* Trigger descriptions */
  appendPQExpBuffer(&buf,
            "UNION ALL\n"
            "  SELECT t.oid as oid, t.tableoid as tableoid,\n"
            "  n.nspname as nspname,\n"
            "  CAST(t.tgname AS pg_catalog.text) as name,"
            "  CAST('%s' AS pg_catalog.text) as object\n"
            "  FROM pg_catalog.pg_trigger t\n"
            "       JOIN pg_catalog.pg_class c ON c.oid = t.tgrelid\n"
            "       LEFT JOIN pg_catalog.pg_namespace n ON n.oid = c.relnamespace\n",
            gettext_noop("trigger"));

  if (!showSystem && !pattern)
    appendPQExpBufferStr(&buf, "WHERE n.nspname <> 'pg_catalog'\n"
               "      AND n.nspname <> 'information_schema'\n");

  processSQLNamePattern(pset.db, &buf, pattern, !showSystem && !pattern, false,
              "n.nspname", "t.tgname", NULL,
              "pg_catalog.pg_table_is_visible(c.oid)");

  appendPQExpBufferStr(&buf,
             ") AS tt\n"
             "  JOIN pg_catalog.pg_description d ON (tt.oid = d.objoid AND tt.tableoid = d.classoid AND d.objsubid = 0)\n");

  appendPQExpBufferStr(&buf, "ORDER BY 1, 2, 3;");

  res = PSQLexec(buf.data);
  termPQExpBuffer(&buf);
  if (!res)
    return false;

  myopt.nullPrint = NULL;
  myopt.title = _("Object descriptions");
  myopt.translate_header = true;
  myopt.translate_columns = translate_columns;
  myopt.n_translate_columns = lengthof(translate_columns);

  printQuery(res, &myopt, pset.queryFout, false, pset.logfile);

  PQclear(res);
  return true;
}


/*
 * describeTableDetails (for \d)
 *
 * This routine finds the tables to be displayed, and calls
 * describeOneTableDetails for each one.
 *
 * verbose: if true, this is \d+
 */
bool
describeTableDetails(const char *pattern, bool verbose, bool showSystem)
{
  PQExpBufferData buf;
  PGresult   *res;
  int     i;

  initPQExpBuffer(&buf);

  printfPQExpBuffer(&buf,
            "SELECT c.oid,\n"
            "  n.nspname,\n"
            "  c.relname\n"
            "FROM pg_catalog.pg_class c\n"
            "     LEFT JOIN pg_catalog.pg_namespace n ON n.oid = c.relnamespace\n");

  if (!showSystem && !pattern)
    appendPQExpBufferStr(&buf, "WHERE n.nspname <> 'pg_catalog'\n"
               "      AND n.nspname <> 'information_schema'\n");

  processSQLNamePattern(pset.db, &buf, pattern, !showSystem && !pattern, false,
              "n.nspname", "c.relname", NULL,
              "pg_catalog.pg_table_is_visible(c.oid)");

  appendPQExpBufferStr(&buf, "ORDER BY 2, 3;");

  res = PSQLexec(buf.data);
  termPQExpBuffer(&buf);
  if (!res)
    return false;

  if (PQntuples(res) == 0)
  {
    if (!pset.quiet)
    {
      if (pattern)
        psql_error("Did not find any relation named \"%s\".\n",
               pattern);
      else
        psql_error("Did not find any relations.\n");
    }
    PQclear(res);
    return false;
  }

  for (i = 0; 4i < PQntuples(res); i++19)
  {
    const char *oid;
    const char *nspname;
    const char *relname;

    oid = PQgetvalue(res, i, 0);
    nspname = PQgetvalue(res, i, 1);
    relname = PQgetvalue(res, i, 2);

    if (!describeOneTableDetails(nspname, relname, oid, verbose))
    {
      PQclear(res);
      return false;
    }
    if (cancel_pressed)
    {
      PQclear(res);
      return false;
    }
  }

  PQclear(res);
  return true;
}

/*
 * describeOneTableDetails (for \d)
 *
 * Unfortunately, the information presented here is so complicated that it
 * cannot be done in a single query. So we have to assemble the printed table
 * by hand and pass it to the underlying printTable() function.
 */
static bool
describeOneTableDetails(const char *schemaname,
            const char *relationname,
            const char *oid,
            bool verbose)
{
  bool    retval = false;
  PQExpBufferData buf;
  PGresult   *res = NULL;
  PGresult   *tgres = NULL;
  printTableOpt myopt = pset.popt.topt;
  printTableContent cont;
  bool    printTableInitialized = false;
  int     i;
  char     *view_def = NULL;
  char     *headers[11];
  PQExpBufferData title;
  PQExpBufferData tmpbuf;
  PQExpBufferData tablegroupbuf;
  int     cols;
  int     attname_col = -1, /* column indexes in "res" */
        atttype_col = -1,
        attrdef_col = -1,
        attnotnull_col = -1,
        attcoll_col = -1,
        attidentity_col = -1,
        isindexkey_col = -1,
        indexdef_col = -1,
        fdwopts_col = -1,
        attstorage_col = -1,
        attstattarget_col = -1,
        attdescr_col = -1;
  int     numrows;
  struct
  {
    int16   checks;
    char    relkind;
    bool    hasindex;
    bool    hasrules;
    bool    hastriggers;
    bool    rowsecurity;
    bool    forcerowsecurity;
    bool    hasoids;
    Oid     tablespace;
    char     *reloptions;
    char     *reloftype;
    char    relpersistence;
    char    relreplident;
    Oid     tablegroup;
  }     tableinfo;
  bool    show_column_details = false;

  myopt.default_footer = false;
  /* This output looks confusing in expanded mode. */
  myopt.expanded = false;

  initPQExpBuffer(&buf);
  initPQExpBuffer(&title);
  initPQExpBuffer(&tmpbuf);
  initPQExpBuffer(&tablegroupbuf);

  /* Get general table info */
  if (pset.sversion >= 90500)
  {
    printfPQExpBuffer(&buf,
              "SELECT c.relchecks, c.relkind, c.relhasindex, c.relhasrules, "
              "c.relhastriggers, c.relrowsecurity, c.relforcerowsecurity, "
              "c.relhasoids, %s, c.reltablespace, "
              "CASE WHEN c.reloftype = 0 THEN '' ELSE c.reloftype::pg_catalog.regtype::pg_catalog.text END, "
              "c.relpersistence, c.relreplident\n"
              "FROM pg_catalog.pg_class c\n "
              "LEFT JOIN pg_catalog.pg_class tc ON (c.reltoastrelid = tc.oid)\n"
              "WHERE c.oid = '%s';",
              (verbose ?
               "pg_catalog.array_to_string(c.reloptions || "
               "array(select 'toast.' || x from pg_catalog.unnest(tc.reloptions) x), ', ')\n"
               : "''"),
              oid);
  }
  else if (pset.sversion >= 90400)
  {
    printfPQExpBuffer(&buf,
              "SELECT c.relchecks, c.relkind, c.relhasindex, c.relhasrules, "
              "c.relhastriggers, false, false, c.relhasoids, "
              "%s, c.reltablespace, "
              "CASE WHEN c.reloftype = 0 THEN '' ELSE c.reloftype::pg_catalog.regtype::pg_catalog.text END, "
              "c.relpersistence, c.relreplident\n"
              "FROM pg_catalog.pg_class c\n "
              "LEFT JOIN pg_catalog.pg_class tc ON (c.reltoastrelid = tc.oid)\n"
              "WHERE c.oid = '%s';",
              (verbose ?
               "pg_catalog.array_to_string(c.reloptions || "
               "array(select 'toast.' || x from pg_catalog.unnest(tc.reloptions) x), ', ')\n"
               : "''"),
              oid);
  }
  else if (pset.sversion >= 90100)
  {
    printfPQExpBuffer(&buf,
              "SELECT c.relchecks, c.relkind, c.relhasindex, c.relhasrules, "
              "c.relhastriggers, false, false, c.relhasoids, "
              "%s, c.reltablespace, "
              "CASE WHEN c.reloftype = 0 THEN '' ELSE c.reloftype::pg_catalog.regtype::pg_catalog.text END, "
              "c.relpersistence\n"
              "FROM pg_catalog.pg_class c\n "
              "LEFT JOIN pg_catalog.pg_class tc ON (c.reltoastrelid = tc.oid)\n"
              "WHERE c.oid = '%s';",
              (verbose ?
               "pg_catalog.array_to_string(c.reloptions || "
               "array(select 'toast.' || x from pg_catalog.unnest(tc.reloptions) x), ', ')\n"
               : "''"),
              oid);
  }
  else if (pset.sversion >= 90000)
  {
    printfPQExpBuffer(&buf,
              "SELECT c.relchecks, c.relkind, c.relhasindex, c.relhasrules, "
              "c.relhastriggers, false, false, c.relhasoids, "
              "%s, c.reltablespace, "
              "CASE WHEN c.reloftype = 0 THEN '' ELSE c.reloftype::pg_catalog.regtype::pg_catalog.text END\n"
              "FROM pg_catalog.pg_class c\n "
              "LEFT JOIN pg_catalog.pg_class tc ON (c.reltoastrelid = tc.oid)\n"
              "WHERE c.oid = '%s';",
              (verbose ?
               "pg_catalog.array_to_string(c.reloptions || "
               "array(select 'toast.' || x from pg_catalog.unnest(tc.reloptions) x), ', ')\n"
               : "''"),
              oid);
  }
  else if (pset.sversion >= 80400)
  {
    printfPQExpBuffer(&buf,
              "SELECT c.relchecks, c.relkind, c.relhasindex, c.relhasrules, "
              "c.relhastriggers, false, false, c.relhasoids, "
              "%s, c.reltablespace\n"
              "FROM pg_catalog.pg_class c\n "
              "LEFT JOIN pg_catalog.pg_class tc ON (c.reltoastrelid = tc.oid)\n"
              "WHERE c.oid = '%s';",
              (verbose ?
               "pg_catalog.array_to_string(c.reloptions || "
               "array(select 'toast.' || x from pg_catalog.unnest(tc.reloptions) x), ', ')\n"
               : "''"),
              oid);
  }
  else if (pset.sversion >= 80200)
  {
    printfPQExpBuffer(&buf,
              "SELECT relchecks, relkind, relhasindex, relhasrules, "
              "reltriggers <> 0, false, false, relhasoids, "
              "%s, reltablespace\n"
              "FROM pg_catalog.pg_class WHERE oid = '%s';",
              (verbose ?
               "pg_catalog.array_to_string(reloptions, E', ')" : "''"),
              oid);
  }
  else if (pset.sversion >= 80000)
  {
    printfPQExpBuffer(&buf,
              "SELECT relchecks, relkind, relhasindex, relhasrules, "
              "reltriggers <> 0, false, false, relhasoids, "
              "'', reltablespace\n"
              "FROM pg_catalog.pg_class WHERE oid = '%s';",
              oid);
  }
  else
  {
    printfPQExpBuffer(&buf,
              "SELECT relchecks, relkind, relhasindex, relhasrules, "
              "reltriggers <> 0, false, false, relhasoids, "
              "'', ''\n"
              "FROM pg_catalog.pg_class WHERE oid = '%s';",
              oid);
  }

  res = PSQLexec(buf.data);
  if (!res)
    goto error_return;

  /* Did we get anything? */
  if (PQntuples(res) == 0)
  {
    if (!pset.quiet)
      psql_error("Did not find any relation with OID %s.\n", oid);
    goto error_return;
  }

  tableinfo.checks = atoi(PQgetvalue(res, 0, 0));
  tableinfo.relkind = *(PQgetvalue(res, 0, 1));
  tableinfo.hasindex = strcmp(PQgetvalue(res, 0, 2), "t") == 0;
  tableinfo.hasrules = strcmp(PQgetvalue(res, 0, 3), "t") == 0;
  tableinfo.hastriggers = strcmp(PQgetvalue(res, 0, 4), "t") == 0;
  tableinfo.rowsecurity = strcmp(PQgetvalue(res, 0, 5), "t") == 0;
  tableinfo.forcerowsecurity = strcmp(PQgetvalue(res, 0, 6), "t") == 0;
  tableinfo.hasoids = strcmp(PQgetvalue(res, 0, 7), "t") == 0;
  tableinfo.reloptions = (pset.sversion >= 80200) ?
    pg_strdup(PQgetvalue(res, 0, 8)) : NULL;
  tableinfo.tablespace = (pset.sversion >= 80000) ?
    atooid(PQgetvalue(res, 0, 9)) : 00;
  tableinfo.reloftype = (pset.sversion >= 90000 &&
               strcmp(PQgetvalue(res, 0, 10), "") != 0) ?
    pg_strdup(PQgetvalue(res, 0, 10)) : NULL;
  tableinfo.relpersistence = (pset.sversion >= 90100) ?
    *(PQgetvalue(res, 0, 11)) : 00;
  tableinfo.relreplident = (pset.sversion >= 90400) ?
    *(PQgetvalue(res, 0, 12)) : 'd'0;
  PQclear(res);
  res = NULL;


  /* Get information about tablegroup (if any) */
  printfPQExpBuffer(&tablegroupbuf,
            "SELECT SUBSTRING(unnest(reloptions) from '.*tablegroup_oid=(\\d*).*') AS tablegroup\n"
            "FROM pg_catalog.pg_class WHERE oid = '%s';",
            oid);

  tgres = PSQLexec(tablegroupbuf.data);

  if (tgres && PQntuples(tgres) > 0)
  {
    tableinfo.tablegroup = atooid(PQgetvalue(tgres, 0, 0));
  }
  else
    tableinfo.tablegroup = 0;

  PQclear(tgres);
  tgres = NULL;

  /*
   * If it's a sequence, deal with it here separately.
   */
  if (tableinfo.relkind == RELKIND_SEQUENCE)
  {
    PGresult   *result = NULL;
    printQueryOpt myopt = pset.popt;
    char     *footers[2] = {NULL, NULL};

    if (pset.sversion >= 100000)
    {
      printfPQExpBuffer(&buf,
                "SELECT pg_catalog.format_type(seqtypid, NULL) AS \"%s\",\n"
                "       seqstart AS \"%s\",\n"
                "       seqmin AS \"%s\",\n"
                "       seqmax AS \"%s\",\n"
                "       seqincrement AS \"%s\",\n"
                "       CASE WHEN seqcycle THEN '%s' ELSE '%s' END AS \"%s\",\n"
                "       seqcache AS \"%s\"\n",
                gettext_noop("Type"),
                gettext_noop("Start"),
                gettext_noop("Minimum"),
                gettext_noop("Maximum"),
                gettext_noop("Increment"),
                gettext_noop("yes"),
                gettext_noop("no"),
                gettext_noop("Cycles?"),
                gettext_noop("Cache"));
      appendPQExpBuffer(&buf,
                "FROM pg_catalog.pg_sequence\n"
                "WHERE seqrelid = '%s';",
                oid);
    }
    else
    {
      printfPQExpBuffer(&buf,
                "SELECT 'bigint' AS \"%s\",\n"
                "       start_value AS \"%s\",\n"
                "       min_value AS \"%s\",\n"
                "       max_value AS \"%s\",\n"
                "       increment_by AS \"%s\",\n"
                "       CASE WHEN is_cycled THEN '%s' ELSE '%s' END AS \"%s\",\n"
                "       cache_value AS \"%s\"\n",
                gettext_noop("Type"),
                gettext_noop("Start"),
                gettext_noop("Minimum"),
                gettext_noop("Maximum"),
                gettext_noop("Increment"),
                gettext_noop("yes"),
                gettext_noop("no"),
                gettext_noop("Cycles?"),
                gettext_noop("Cache"));
      appendPQExpBuffer(&buf, "FROM %s", fmtId(schemaname));
      /* must be separate because fmtId isn't reentrant */
      appendPQExpBuffer(&buf, ".%s;", fmtId(relationname));
    }

    res = PSQLexec(buf.data);
    if (!res)
      goto error_return;

    /* Footer information about a sequence */

    /* Get the column that owns this sequence */
    printfPQExpBuffer(&buf, "SELECT pg_catalog.quote_ident(nspname) || '.' ||"
              "\n   pg_catalog.quote_ident(relname) || '.' ||"
              "\n   pg_catalog.quote_ident(attname),"
              "\n   d.deptype"
              "\nFROM pg_catalog.pg_class c"
              "\nINNER JOIN pg_catalog.pg_depend d ON c.oid=d.refobjid"
              "\nINNER JOIN pg_catalog.pg_namespace n ON n.oid=c.relnamespace"
              "\nINNER JOIN pg_catalog.pg_attribute a ON ("
              "\n a.attrelid=c.oid AND"
              "\n a.attnum=d.refobjsubid)"
              "\nWHERE d.classid='pg_catalog.pg_class'::pg_catalog.regclass"
              "\n AND d.refclassid='pg_catalog.pg_class'::pg_catalog.regclass"
              "\n AND d.objid='%s'"
              "\n AND d.deptype IN ('a', 'i')",
              oid);

    result = PSQLexec(buf.data);

    /*
     * If we get no rows back, don't show anything (obviously). We should
     * never get more than one row back, but if we do, just ignore it and
     * don't print anything.
     */
    if (!result)
      goto error_return;
    else if (PQntuples(result) == 1)
    {
      switch (PQgetvalue(result, 0, 1)[0])
      {
        case 'a':
          footers[0] = psprintf(_("Owned by: %s"),
                      PQgetvalue(result, 0, 0));
          break;
        case 'i':
          footers[0] = psprintf(_("Sequence for identity column: %s"),
                      PQgetvalue(result, 0, 0));
          break;
      }
    }
    PQclear(result);

    printfPQExpBuffer(&title, _("Sequence \"%s.%s\""),
              schemaname, relationname);

    myopt.footers = footers;
    myopt.topt.default_footer = false;
    myopt.title = title.data;
    myopt.translate_header = true;

    printQuery(res, &myopt, pset.queryFout, false, pset.logfile);

    if (footers[0])
      free(footers[0]);

    retval = true;
    goto error_return;    /* not an error, just return early */
  }

  /* Identify whether we should print collation, nullable, default vals */
  if (tableinfo.relkind == RELKIND_RELATION ||
    tableinfo.relkind == 18RELKIND_VIEW18 ||
    tableinfo.relkind == 18RELKIND_MATVIEW18 ||
    tableinfo.relkind == 18RELKIND_FOREIGN_TABLE18 ||
    tableinfo.relkind == 0RELKIND_COMPOSITE_TYPE0 ||
    tableinfo.relkind == 0RELKIND_PARTITIONED_TABLE0)
    show_column_details = true;

  /*
   * Get per-column info
   *
   * Since the set of query columns we need varies depending on relkind and
   * server version, we compute all the column numbers on-the-fly.  Column
   * number variables for columns not fetched are left as -1; this avoids
   * duplicative test logic below.
   */
  cols = 0;
  printfPQExpBuffer(&buf, "SELECT a.attname");
  attname_col = cols++;
  appendPQExpBufferStr(&buf, ",\n  pg_catalog.format_type(a.atttypid, a.atttypmod)");
  atttype_col = cols++;

  if (show_column_details)
  {
    appendPQExpBufferStr(&buf,
               ",\n  (SELECT substring(pg_catalog.pg_get_expr(d.adbin, d.adrelid) for 128)"
               "\n   FROM pg_catalog.pg_attrdef d"
               "\n   WHERE d.adrelid = a.attrelid AND d.adnum = a.attnum AND a.atthasdef)"
               ",\n  a.attnotnull");
    attrdef_col = cols++;
    attnotnull_col = cols++;
    if (pset.sversion >= 90100)
      appendPQExpBufferStr(&buf, ",\n  (SELECT c.collname FROM pg_catalog.pg_collation c, pg_catalog.pg_type t\n"
                 "   WHERE c.oid = a.attcollation AND t.oid = a.atttypid AND a.attcollation <> t.typcollation) AS attcollation");
    else
      appendPQExpBufferStr(&buf, ",\n  NULL AS attcollation");
    attcoll_col = cols++;
    if (pset.sversion >= 100000)
      appendPQExpBufferStr(&buf, ",\n  a.attidentity");
    else
      appendPQExpBufferStr(&buf, ",\n  ''::pg_catalog.char AS attidentity");
    attidentity_col = cols++;
  }
  if (tableinfo.relkind == RELKIND_INDEX ||
    tableinfo.relkind == RELKIND_PARTITIONED_INDEX)
  {
    if (pset.sversion >= 110000)
    {
      appendPQExpBuffer(&buf, ",\n  CASE WHEN a.attnum <= (SELECT i.indnkeyatts FROM pg_catalog.pg_index i WHERE i.indexrelid = '%s') THEN '%s' ELSE '%s' END AS is_key",
                oid,
                gettext_noop("yes"),
                gettext_noop("no"));
      isindexkey_col = cols++;
    }
    appendPQExpBufferStr(&buf, ",\n  pg_catalog.pg_get_indexdef(a.attrelid, a.attnum, TRUE) AS indexdef");
    indexdef_col = cols++;
  }
  /* FDW options for foreign table column, only for 9.2 or later */
  if (tableinfo.relkind == RELKIND_FOREIGN_TABLE && pset.sversion >= 9020018)
  {
    appendPQExpBufferStr(&buf, ",\n  CASE WHEN attfdwoptions IS NULL THEN '' ELSE "
               "  '(' || pg_catalog.array_to_string(ARRAY(SELECT pg_catalog.quote_ident(option_name) || ' ' || pg_catalog.quote_literal(option_value)  FROM "
               "  pg_catalog.pg_options_to_table(attfdwoptions)), ', ') || ')' END AS attfdwoptions");
    fdwopts_col = cols++;
  }
  if (verbose)
  {
    appendPQExpBufferStr(&buf, ",\n  a.attstorage");
    attstorage_col = cols++;

    /* stats target, if relevant to relkind */
    if (tableinfo.relkind == RELKIND_RELATION ||
      tableinfo.relkind == RELKIND_INDEX ||
      tableinfo.relkind == RELKIND_PARTITIONED_INDEX ||
      tableinfo.relkind == RELKIND_MATVIEW ||
      tableinfo.relkind == RELKIND_FOREIGN_TABLE ||
      tableinfo.relkind == RELKIND_PARTITIONED_TABLE)
    {
      appendPQExpBufferStr(&buf, ",\n  CASE WHEN a.attstattarget=-1 THEN NULL ELSE a.attstattarget END AS attstattarget");
      attstattarget_col = cols++;
    }

    /*
     * In 9.0+, we have column comments for: relations, views, composite
     * types, and foreign tables (cf. CommentObject() in comment.c).
     */
    if (tableinfo.relkind == RELKIND_RELATION ||
      tableinfo.relkind == RELKIND_VIEW ||
      tableinfo.relkind == RELKIND_MATVIEW ||
      tableinfo.relkind == RELKIND_FOREIGN_TABLE ||
      tableinfo.relkind == RELKIND_COMPOSITE_TYPE ||
      tableinfo.relkind == RELKIND_PARTITIONED_TABLE)
    {
      appendPQExpBufferStr(&buf, ",\n  pg_catalog.col_description(a.attrelid, a.attnum)");
      attdescr_col = cols++;
    }
  }

  appendPQExpBufferStr(&buf, "\nFROM pg_catalog.pg_attribute a");
  appendPQExpBuffer(&buf, "\nWHERE a.attrelid = '%s' AND a.attnum > 0 AND NOT a.attisdropped", oid);
  appendPQExpBufferStr(&buf, "\nORDER BY a.attnum;");

  res = PSQLexec(buf.data);
  if (!res)
    goto error_return;
  numrows = PQntuples(res);

  /* Make title */
  switch (tableinfo.relkind)
  {
    case RELKIND_RELATION:
      if (tableinfo.relpersistence == 'u')
        printfPQExpBuffer(&title, _("Unlogged table \"%s.%s\""),
                  schemaname, relationname);
      else
        printfPQExpBuffer(&title, _("Table \"%s.%s\""),
                  schemaname, relationname);
      break;
    case RELKIND_VIEW:
      printfPQExpBuffer(&title, _("View \"%s.%s\""),
                schemaname, relationname);
      break;
    case RELKIND_MATVIEW:
      if (tableinfo.relpersistence == 'u')
        printfPQExpBuffer(&title, _("Unlogged materialized view \"%s.%s\""),
                  schemaname, relationname);
      else
        printfPQExpBuffer(&title, _("Materialized view \"%s.%s\""),
                  schemaname, relationname);
      break;
    case RELKIND_INDEX:
    case RELKIND_PARTITIONED_INDEX:
      if (tableinfo.relpersistence == 'u')
        printfPQExpBuffer(&title, _("Unlogged index \"%s.%s\""),
                  schemaname, relationname);
      else
        printfPQExpBuffer(&title, _("Index \"%s.%s\""),
                  schemaname, relationname);
      break;
    case 's':
      /* not used as of 8.2, but keep it for backwards compatibility */
      printfPQExpBuffer(&title, _("Special relation \"%s.%s\""),
                schemaname, relationname);
      break;
    case RELKIND_TOASTVALUE:
      printfPQExpBuffer(&title, _("TOAST table \"%s.%s\""),
                schemaname, relationname);
      break;
    case RELKIND_COMPOSITE_TYPE:
      printfPQExpBuffer(&title, _("Composite type \"%s.%s\""),
                schemaname, relationname);
      break;
    case RELKIND_FOREIGN_TABLE:
      printfPQExpBuffer(&title, _("Foreign table \"%s.%s\""),
                schemaname, relationname);
      break;
    case RELKIND_PARTITIONED_TABLE:
      if (tableinfo.relpersistence == 'u')
        printfPQExpBuffer(&title, _("Unlogged table \"%s.%s\""),
                  schemaname, relationname);
      else
        printfPQExpBuffer(&title, _("Table \"%s.%s\""),
                  schemaname, relationname);
      break;
    default:
      /* untranslated unknown relkind */
      printfPQExpBuffer(&title, "?%c? \"%s.%s\"",
                tableinfo.relkind, schemaname, relationname);
      break;
  }

  /* Fill headers[] with the names of the columns we will output */
  cols = 0;
  headers[cols++] = gettext_noop("Column");
  headers[cols++] = gettext_noop("Type");
  if (show_column_details)
  {
    headers[cols++] = gettext_noop("Collation");
    headers[cols++] = gettext_noop("Nullable");
    headers[cols++] = gettext_noop("Default");
  }
  if (isindexkey_col >= 0)
    headers[cols++] = gettext_noop("Key?");
  if (indexdef_col >= 0)
    headers[cols++] = gettext_noop("Definition");
  if (fdwopts_col >= 0)
    headers[cols++] = gettext_noop("FDW options");
  if (attstorage_col >= 0)
    headers[cols++] = gettext_noop("Storage");
  if (attstattarget_col >= 0)
    headers[cols++] = gettext_noop("Stats target");
  if (attdescr_col >= 0)
    headers[cols++] = gettext_noop("Description");

  Assert(cols <= lengthof(headers));

  printTableInit(&cont, &myopt, title.data, cols, numrows);
  printTableInitialized = true;

  for (i = 0; i < cols; i++113)
    printTableAddHeader(&cont, headers[i], true, 'l');

  /* Generate table cells to be printed */
  for (i = 0; i < numrows; i++34)
  {
    /* Column */
    printTableAddCell(&cont, PQgetvalue(res, i, attname_col), false, false);

    /* Type */
    printTableAddCell(&cont, PQgetvalue(res, i, atttype_col), false, false);

    /* Collation, Nullable, Default */
    if (show_column_details)
    {
      char     *identity;
      char     *default_str = "";

      printTableAddCell(&cont, PQgetvalue(res, i, attcoll_col), false, false);

      printTableAddCell(&cont,
                strcmp(PQgetvalue(res, i, attnotnull_col), "t") == 0 ? "not null"2 : ""32,
                false, false);

      identity = PQgetvalue(res, i, attidentity_col);

      if (!identity[0])
        /* (note: above we cut off the 'default' string at 128) */
        default_str = PQgetvalue(res, i, attrdef_col);
      else if (identity[0] == ATTRIBUTE_IDENTITY_ALWAYS)
        default_str = "generated always as identity";
      else if (identity[0] == ATTRIBUTE_IDENTITY_BY_DEFAULT)
        default_str = "generated by default as identity";

      printTableAddCell(&cont, default_str, false, false);
    }

    /* Info for index columns */
    if (isindexkey_col >= 0)
      printTableAddCell(&cont, PQgetvalue(res, i, isindexkey_col), true, false);
    if (indexdef_col >= 0)
      printTableAddCell(&cont, PQgetvalue(res, i, indexdef_col), false, false);

    /* FDW options for foreign table columns */
    if (fdwopts_col >= 0)
      printTableAddCell(&cont, PQgetvalue(res, i, fdwopts_col), false, false);

    /* Storage and Description */
    if (attstorage_col >= 0)
    {
      char     *storage = PQgetvalue(res, i, attstorage_col);

      /* these strings are literal in our syntax, so not translated. */
      printTableAddCell(&cont, (storage[0] == 'p' ? "plain" :
                    (storage[0] == 'm' ? "main" :
                     (storage[0] == 'x' ? "extended" :
                    (storage[0] == 'e' ? "external" :
                     "???")))),
                false, false);
    }

    /* Statistics target, if the relkind supports this feature */
    if (attstattarget_col >= 0)
      printTableAddCell(&cont, PQgetvalue(res, i, attstattarget_col),
                false, false);

    /* Column comments, if the relkind supports this feature */
    if (attdescr_col >= 0)
      printTableAddCell(&cont, PQgetvalue(res, i, attdescr_col),
                false, false);
  }

  /* Make footers */
  if (pset.sversion >= 100000)
  {
    /* Get the partition information */
    PGresult   *result;
    char     *parent_name;
    char     *partdef;
    char     *partconstraintdef = NULL;

    printfPQExpBuffer(&buf,
              "SELECT inhparent::pg_catalog.regclass,\n"
              "  pg_catalog.pg_get_expr(c.relpartbound, inhrelid)");
    /* If verbose, also request the partition constraint definition */
    if (verbose)
      appendPQExpBuffer(&buf,
                ",\n  pg_catalog.pg_get_partition_constraintdef(inhrelid)");
    appendPQExpBuffer(&buf,
              "\nFROM pg_catalog.pg_class c"
              " JOIN pg_catalog.pg_inherits i"
              " ON c.oid = inhrelid"
              "\nWHERE c.oid = '%s' AND c.relispartition;", oid);
    result = PSQLexec(buf.data);
    if (!result)
      goto error_return;

    if (PQntuples(result) > 0)
    {
      parent_name = PQgetvalue(result, 0, 0);
      partdef = PQgetvalue(result, 0, 1);

      if (PQnfields(result) == 3 && !PQgetisnull(result, 0, 2))
        partconstraintdef = PQgetvalue(result, 0, 2);

      printfPQExpBuffer(&tmpbuf, _("Partition of: %s %s"), parent_name,
                partdef);
      printTableAddFooter(&cont, tmpbuf.data);

      if (verbose)
      {
        /* If there isn't any constraint, show that explicitly */
        if (partconstraintdef == NULL || partconstraintdef[0] == '\0')
          printfPQExpBuffer(&tmpbuf, _("No partition constraint"));
        else
          printfPQExpBuffer(&tmpbuf, _("Partition constraint: %s"),
                    partconstraintdef);
        printTableAddFooter(&cont, tmpbuf.data);
      }
    }

    PQclear(result);
  }

  if (tableinfo.relkind == RELKIND_PARTITIONED_TABLE)
  {
    /* Get the partition key information  */
    PGresult   *result;
    char     *partkeydef;

    printfPQExpBuffer(&buf,
              "SELECT pg_catalog.pg_get_partkeydef('%s'::pg_catalog.oid);",
              oid);
    result = PSQLexec(buf.data);
    if (!result || PQntuples(result) != 1)
      goto error_return;

    partkeydef = PQgetvalue(result, 0, 0);
    printfPQExpBuffer(&tmpbuf, _("Partition key: %s"), partkeydef);
    printTableAddFooter(&cont, tmpbuf.data);
    PQclear(result);
  }

  if (tableinfo.relkind == RELKIND_INDEX ||
    tableinfo.relkind == RELKIND_PARTITIONED_INDEX)
  {
    /* Footer information about an index */
    PGresult   *result;

    printfPQExpBuffer(&buf,
              "SELECT i.indisunique, i.indisprimary, i.indisclustered, ");
    if (pset.sversion >= 80200)
      appendPQExpBufferStr(&buf, "i.indisvalid,\n");
    else
      appendPQExpBufferStr(&buf, "true AS indisvalid,\n");
    if (pset.sversion >= 90000)
      appendPQExpBufferStr(&buf,
                 "  (NOT i.indimmediate) AND "
                 "EXISTS (SELECT 1 FROM pg_catalog.pg_constraint "
                 "WHERE conrelid = i.indrelid AND "
                 "conindid = i.indexrelid AND "
                 "contype IN ('p','u','x') AND "
                 "condeferrable) AS condeferrable,\n"
                 "  (NOT i.indimmediate) AND "
                 "EXISTS (SELECT 1 FROM pg_catalog.pg_constraint "
                 "WHERE conrelid = i.indrelid AND "
                 "conindid = i.indexrelid AND "
                 "contype IN ('p','u','x') AND "
                 "condeferred) AS condeferred,\n");
    else
      appendPQExpBufferStr(&buf,
                 "  false AS condeferrable, false AS condeferred,\n");

    if (pset.sversion >= 90400)
      appendPQExpBuffer(&buf, "i.indisreplident,\n");
    else
      appendPQExpBuffer(&buf, "false AS indisreplident,\n");

    appendPQExpBuffer(&buf, "  a.amname, c2.relname, "
              "pg_catalog.pg_get_expr(i.indpred, i.indrelid, true)\n"
              "FROM pg_catalog.pg_index i, pg_catalog.pg_class c, pg_catalog.pg_class c2, pg_catalog.pg_am a\n"
              "WHERE i.indexrelid = c.oid AND c.oid = '%s' AND c.relam = a.oid\n"
              "AND i.indrelid = c2.oid;",
              oid);

    result = PSQLexec(buf.data);
    if (!result)
      goto error_return;
    else if (PQntuples(result) != 1)
    {
      PQclear(result);
      goto error_return;
    }
    else
    {
      char     *indisunique = PQgetvalue(result, 0, 0);
      char     *indisprimary = PQgetvalue(result, 0, 1);
      char     *indisclustered = PQgetvalue(result, 0, 2);
      char     *indisvalid = PQgetvalue(result, 0, 3);
      char     *deferrable = PQgetvalue(result, 0, 4);
      char     *deferred = PQgetvalue(result, 0, 5);
      char     *indisreplident = PQgetvalue(result, 0, 6);
      char     *indamname = PQgetvalue(result, 0, 7);
      char     *indtable = PQgetvalue(result, 0, 8);
      char     *indpred = PQgetvalue(result, 0, 9);

      if (strcmp(indisprimary, "t") == 0)
        printfPQExpBuffer(&tmpbuf, _("primary key, "));
      else if (strcmp(indisunique, "t") == 0)
        printfPQExpBuffer(&tmpbuf, _("unique, "));
      else
        resetPQExpBuffer(&tmpbuf);
      appendPQExpBuffer(&tmpbuf, "%s, ", indamname);

      /* we assume here that index and table are in same schema */
      appendPQExpBuffer(&tmpbuf, _("for table \"%s.%s\""),
                schemaname, indtable);

      if (strlen(indpred))
        appendPQExpBuffer(&tmpbuf, _(", predicate (%s)"), indpred);

      if (strcmp(indisclustered, "t") == 0)
        appendPQExpBufferStr(&tmpbuf, _(", clustered"));

      if (strcmp(indisvalid, "t") != 0)
        appendPQExpBufferStr(&tmpbuf, _(", invalid"));

      if (strcmp(deferrable, "t") == 0)
        appendPQExpBufferStr(&tmpbuf, _(", deferrable"));

      if (strcmp(deferred, "t") == 0)
        appendPQExpBufferStr(&tmpbuf, _(", initially deferred"));

      if (strcmp(indisreplident, "t") == 0)
        appendPQExpBuffer(&tmpbuf, _(", replica identity"));

      printTableAddFooter(&cont, tmpbuf.data);
      add_tablespace_footer(&cont, tableinfo.relkind,
                  tableinfo.tablespace, true);
      add_tablegroup_footer(&cont, tableinfo.relkind,
                  tableinfo.tablegroup, true);
    }

    PQclear(result);
  }
  else if (tableinfo.relkind == RELKIND_RELATION ||
       tableinfo.relkind == 18RELKIND_MATVIEW18 ||
       tableinfo.relkind == 18RELKIND_FOREIGN_TABLE18 ||
       tableinfo.relkind == 0RELKIND_PARTITIONED_TABLE0)
  {
    /* Footer information about a table */
    PGresult   *result = NULL;
    int     tuples = 0;

    /* print indexes */
    if (tableinfo.hasindex)
    {
      printfPQExpBuffer(&buf,
                "SELECT c2.relname, i.indisprimary, i.indisunique, i.indisclustered, ");
      if (pset.sversion >= 80200)
        appendPQExpBufferStr(&buf, "i.indisvalid, ");
      else
        appendPQExpBufferStr(&buf, "true as indisvalid, ");
      appendPQExpBufferStr(&buf, "pg_catalog.pg_get_indexdef(i.indexrelid, 0, true),\n  ");
      if (pset.sversion >= 90000)
        appendPQExpBufferStr(&buf,
                   "pg_catalog.pg_get_constraintdef(con.oid, true), "
                   "contype, condeferrable, condeferred");
      else
        appendPQExpBufferStr(&buf,
                   "null AS constraintdef, null AS contype, "
                   "false AS condeferrable, false AS condeferred");
      if (pset.sversion >= 90400)
        appendPQExpBufferStr(&buf, ", i.indisreplident");
      else
        appendPQExpBufferStr(&buf, ", false AS indisreplident");
      if (pset.sversion >= 80000)
        appendPQExpBufferStr(&buf, ", c2.reltablespace");
      appendPQExpBufferStr(&buf,
                 "\nFROM pg_catalog.pg_class c, pg_catalog.pg_class c2, pg_catalog.pg_index i\n");
      if (pset.sversion >= 90000)
        appendPQExpBufferStr(&buf,
                   "  LEFT JOIN pg_catalog.pg_constraint con ON (conrelid = i.indrelid AND conindid = i.indexrelid AND contype IN ('p','u','x'))\n");
      appendPQExpBuffer(&buf,
                "WHERE c.oid = '%s' AND c.oid = i.indrelid AND i.indexrelid = c2.oid\n"
                "ORDER BY i.indisprimary DESC, i.indisunique DESC, c2.relname;",
                oid);
      result = PSQLexec(buf.data);
      if (!result)
        goto error_return;
      else
        tuples = PQntuples(result);

      if (tuples > 0)
      {
        printTableAddFooter(&cont, _("Indexes:"));
        for (i = 0; i < tuples; i++)
        {
          /* untranslated index name */
          printfPQExpBuffer(&buf, "    \"%s\"",
                    PQgetvalue(result, i, 0));

          /* If exclusion constraint, print the constraintdef */
          if (strcmp(PQgetvalue(result, i, 7), "x") == 0)
          {
            appendPQExpBuffer(&buf, " %s",
                      PQgetvalue(result, i, 6));
          }
          else
          {
            const char *indexdef;
            const char *usingpos;

            /* Label as primary key or unique (but not both) */
            if (strcmp(PQgetvalue(result, i, 1), "t") == 0)
              appendPQExpBufferStr(&buf, " PRIMARY KEY,");
            else if (strcmp(PQgetvalue(result, i, 2), "t") == 0)
            {
              if (strcmp(PQgetvalue(result, i, 7), "u") == 0)
                appendPQExpBufferStr(&buf, " UNIQUE CONSTRAINT,");
              else
                appendPQExpBufferStr(&buf, " UNIQUE,");
            }

            /* Everything after "USING" is echoed verbatim */
            indexdef = PQgetvalue(result, i, 5);
            usingpos = strstr(indexdef, " USING ");
            if (usingpos)
              indexdef = usingpos + 7;
            appendPQExpBuffer(&buf, " %s", indexdef);

            /* Need these for deferrable PK/UNIQUE indexes */
            if (strcmp(PQgetvalue(result, i, 8), "t") == 0)
              appendPQExpBufferStr(&buf, " DEFERRABLE");

            if (strcmp(PQgetvalue(result, i, 9), "t") == 0)
              appendPQExpBufferStr(&buf, " INITIALLY DEFERRED");
          }

          /* Add these for all cases */
          if (strcmp(PQgetvalue(result, i, 3), "t") == 0)
            appendPQExpBufferStr(&buf, " CLUSTER");

          if (strcmp(PQgetvalue(result, i, 4), "t") != 0)
            appendPQExpBufferStr(&buf, " INVALID");

          if (strcmp(PQgetvalue(result, i, 10), "t") == 0)
            appendPQExpBuffer(&buf, " REPLICA IDENTITY");

          printTableAddFooter(&cont, buf.data);

          /* Print tablespace of the index on the same line */
          if (pset.sversion >= 80000)
            add_tablespace_footer(&cont, RELKIND_INDEX,
                        atooid(PQgetvalue(result, i, 11)),
                        false);

          /* Get information about tablegroup (if any) */
          printfPQExpBuffer(&tablegroupbuf,
                    "SELECT SUBSTRING(unnest(reloptions) from '.*tablegroup_oid=(\\d*).*') AS tablegroup\n"
                    "FROM pg_catalog.pg_class WHERE relname = '%s';",
                    PQgetvalue(result, i, 0));

          tgres = PSQLexec(tablegroupbuf.data);
          Oid idx_tablegroup;
          if (tgres && PQntuples(tgres) > 0)
          {
            idx_tablegroup = atooid(PQgetvalue(tgres, 0, 0));
          }
          else
            idx_tablegroup = 0;

          PQclear(tgres);
          tgres = NULL;

          /* Print tablegroup of the index on the same line */
          add_tablegroup_footer(&cont, RELKIND_INDEX, idx_tablegroup, false);
        }
      }
      PQclear(result);
    }

    /* print table (and column) check constraints */
    if (tableinfo.checks)
    {
      printfPQExpBuffer(&buf,
                "SELECT r.conname, "
                "pg_catalog.pg_get_constraintdef(r.oid, true)\n"
                "FROM pg_catalog.pg_constraint r\n"
                "WHERE r.conrelid = '%s' AND r.contype = 'c'\n"
                "ORDER BY 1;",
                oid);
      result = PSQLexec(buf.data);
      if (!result)
        goto error_return;
      else
        tuples = PQntuples(result);

      if (tuples > 0)
      {
        printTableAddFooter(&cont, _("Check constraints:"));
        for (i = 0; i < tuples; i++)
        {
          /* untranslated constraint name and def */
          printfPQExpBuffer(&buf, "    \"%s\" %s",
                    PQgetvalue(result, i, 0),
                    PQgetvalue(result, i, 1));

          printTableAddFooter(&cont, buf.data);
        }
      }
      PQclear(result);
    }

    /*
     * Print foreign-key constraints (there are none if no triggers,
     * except if the table is partitioned, in which case the triggers
     * appear in the partitions)
     */
    if (tableinfo.hastriggers ||
      tableinfo.relkind == RELKIND_PARTITIONED_TABLE)
    {
      printfPQExpBuffer(&buf,
                "SELECT conname,\n"
                "  pg_catalog.pg_get_constraintdef(r.oid, true) as condef\n"
                "FROM pg_catalog.pg_constraint r\n"
                "WHERE r.conrelid = '%s' AND r.contype = 'f' ORDER BY 1;",
                oid);
      result = PSQLexec(buf.data);
      if (!result)
        goto error_return;
      else
        tuples = PQntuples(result);

      if (tuples > 0)
      {
        printTableAddFooter(&cont, _("Foreign-key constraints:"));
        for (i = 0; i < tuples; i++)
        {
          /* untranslated constraint name and def */
          printfPQExpBuffer(&buf, "    \"%s\" %s",
                    PQgetvalue(result, i, 0),
                    PQgetvalue(result, i, 1));

          printTableAddFooter(&cont, buf.data);
        }
      }
      PQclear(result);
    }

    /* print incoming foreign-key references (none if no triggers) */
    if (tableinfo.hastriggers)
    {
      printfPQExpBuffer(&buf,
                "SELECT conname, conrelid::pg_catalog.regclass,\n"
                "  pg_catalog.pg_get_constraintdef(c.oid, true) as condef\n"
                "FROM pg_catalog.pg_constraint c\n"
                "WHERE c.confrelid = '%s' AND c.contype = 'f' ORDER BY 1;",
                oid);
      result = PSQLexec(buf.data);
      if (!result)
        goto error_return;
      else
        tuples = PQntuples(result);

      if (tuples > 0)
      {
        printTableAddFooter(&cont, _("Referenced by:"));
        for (i = 0; i < tuples; i++)
        {
          printfPQExpBuffer(&buf, "    TABLE \"%s\" CONSTRAINT \"%s\" %s",
                    PQgetvalue(result, i, 1),
                    PQgetvalue(result, i, 0),
                    PQgetvalue(result, i, 2));

          printTableAddFooter(&cont, buf.data);
        }
      }
      PQclear(result);
    }

    /* print any row-level policies */
    if (pset.sversion >= 90500)
    {
      printfPQExpBuffer(&buf, "SELECT pol.polname,");
      if (pset.sversion >= 100000)
        appendPQExpBuffer(&buf,
                  " pol.polpermissive,\n");
      else
        appendPQExpBuffer(&buf,
                  " 't' as polpermissive,\n");
      appendPQExpBuffer(&buf,
                "  CASE WHEN pol.polroles = '{0}' THEN NULL ELSE pg_catalog.array_to_string(array(select rolname from pg_catalog.pg_roles where oid = any (pol.polroles) order by 1),',') END,\n"
                "  pg_catalog.pg_get_expr(pol.polqual, pol.polrelid),\n"
                "  pg_catalog.pg_get_expr(pol.polwithcheck, pol.polrelid),\n"
                "  CASE pol.polcmd\n"
                "    WHEN 'r' THEN 'SELECT'\n"
                "    WHEN 'a' THEN 'INSERT'\n"
                "    WHEN 'w' THEN 'UPDATE'\n"
                "    WHEN 'd' THEN 'DELETE'\n"
                "    END AS cmd\n"
                "FROM pg_catalog.pg_policy pol\n"
                "WHERE pol.polrelid = '%s' ORDER BY 1;",
                oid);

      result = PSQLexec(buf.data);
      if (!result)
        goto error_return;
      else
        tuples = PQntuples(result);

      /*
       * Handle cases where RLS is enabled and there are policies, or
       * there aren't policies, or RLS isn't enabled but there are
       * policies
       */
      if (tableinfo.rowsecurity && !tableinfo.forcerowsecurity0 && tuples > 00)
        printTableAddFooter(&cont, _("Policies:"));

      if (tableinfo.rowsecurity && tableinfo.forcerowsecurity0 && tuples > 00)
        printTableAddFooter(&cont, _("Policies (forced row security enabled):"));

      if (tableinfo.rowsecurity && !tableinfo.forcerowsecurity0 && tuples == 00)
        printTableAddFooter(&cont, _("Policies (row security enabled): (none)"));

      if (tableinfo.rowsecurity && tableinfo.forcerowsecurity0 && tuples == 00)
        printTableAddFooter(&cont, _("Policies (forced row security enabled): (none)"));

      if (!tableinfo.rowsecurity && tuples > 0)
        printTableAddFooter(&cont, _("Policies (row security disabled):"));

      /* Might be an empty set - that's ok */
      for (i = 0; i < tuples; i++0)
      {
        printfPQExpBuffer(&buf, "    POLICY \"%s\"",
                  PQgetvalue(result, i, 0));

        if (*(PQgetvalue(result, i, 1)) == 'f')
          appendPQExpBuffer(&buf, " AS RESTRICTIVE");

        if (!PQgetisnull(result, i, 5))
          appendPQExpBuffer(&buf, " FOR %s",
                    PQgetvalue(result, i, 5));

        if (!PQgetisnull(result, i, 2))
        {
          appendPQExpBuffer(&buf, "\n      TO %s",
                    PQgetvalue(result, i, 2));
        }

        if (!PQgetisnull(result, i, 3))
          appendPQExpBuffer(&buf, "\n      USING (%s)",
                    PQgetvalue(result, i, 3));

        if (!PQgetisnull(result, i, 4))
          appendPQExpBuffer(&buf, "\n      WITH CHECK (%s)",
                    PQgetvalue(result, i, 4));

        printTableAddFooter(&cont, buf.data);

      }
      PQclear(result);
    }

    /* print any extended statistics */
    if (pset.sversion >= 100000)
    {
      printfPQExpBuffer(&buf,
                "SELECT oid, "
                "stxrelid::pg_catalog.regclass, "
                "stxnamespace::pg_catalog.regnamespace AS nsp, "
                "stxname,\n"
                "  (SELECT pg_catalog.string_agg(pg_catalog.quote_ident(attname),', ')\n"
                "   FROM pg_catalog.unnest(stxkeys) s(attnum)\n"
                "   JOIN pg_catalog.pg_attribute a ON (stxrelid = a.attrelid AND\n"
                "        a.attnum = s.attnum AND NOT attisdropped)) AS columns,\n"
                "  'd' = any(stxkind) AS ndist_enabled,\n"
                "  'f' = any(stxkind) AS deps_enabled\n"
                "FROM pg_catalog.pg_statistic_ext stat "
                "WHERE stxrelid = '%s'\n"
                "ORDER BY 1;",
                oid);

      result = PSQLexec(buf.data);
      if (!result)
        goto error_return;
      else
        tuples = PQntuples(result);

      if (tuples > 0)
      {
        printTableAddFooter(&cont, _("Statistics objects:"));

        for (i = 0; i < tuples; i++)
        {
          bool    gotone = false;

          printfPQExpBuffer(&buf, "    ");

          /* statistics object name (qualified with namespace) */
          appendPQExpBuffer(&buf, "\"%s\".\"%s\" (",
                    PQgetvalue(result, i, 2),
                    PQgetvalue(result, i, 3));

          /* options */
          if (strcmp(PQgetvalue(result, i, 5), "t") == 0)
          {
            appendPQExpBufferStr(&buf, "ndistinct");
            gotone = true;
          }

          if (strcmp(PQgetvalue(result, i, 6), "t") == 0)
          {
            appendPQExpBuffer(&buf, "%sdependencies", gotone ? ", " : "");
          }

          appendPQExpBuffer(&buf, ") ON %s FROM %s",
                    PQgetvalue(result, i, 4),
                    PQgetvalue(result, i, 1));

          printTableAddFooter(&cont, buf.data);
        }
      }
      PQclear(result);
    }

    /* print rules */
    if (tableinfo.hasrules && tableinfo.relkind != 0RELKIND_MATVIEW0)
    {
      if (pset.sversion >= 80300)
      {
        printfPQExpBuffer(&buf,
                  "SELECT r.rulename, trim(trailing ';' from pg_catalog.pg_get_ruledef(r.oid, true)), "
                  "ev_enabled\n"
                  "FROM pg_catalog.pg_rewrite r\n"
                  "WHERE r.ev_class = '%s' ORDER BY 1;",
                  oid);
      }
      else
      {
        printfPQExpBuffer(&buf,
                  "SELECT r.rulename, trim(trailing ';' from pg_catalog.pg_get_ruledef(r.oid, true)), "
                  "'O' AS ev_enabled\n"
                  "FROM pg_catalog.pg_rewrite r\n"
                  "WHERE r.ev_class = '%s' ORDER BY 1;",
                  oid);
      }
      result = PSQLexec(buf.data);
      if (!result)
        goto error_return;
      else
        tuples = PQntuples(result);

      if (tuples > 0)
      {
        bool    have_heading;
        int     category;

        for (category = 0; category < 4; category++)
        {
          have_heading = false;

          for (i = 0; i < tuples; i++)
          {
            const char *ruledef;
            bool    list_rule = false;

            switch (category)
            {
              case 0:
                if (*PQgetvalue(result, i, 2) == 'O')
                  list_rule = true;
                break;
              case 1:
                if (*PQgetvalue(result, i, 2) == 'D')
                  list_rule = true;
                break;
              case 2:
                if (*PQgetvalue(result, i, 2) == 'A')
                  list_rule = true;
                break;
              case 3:
                if (*PQgetvalue(result, i, 2) == 'R')
                  list_rule = true;
                break;
            }
            if (!list_rule)
              continue;

            if (!have_heading)
            {
              switch (category)
              {
                case 0:
                  printfPQExpBuffer(&buf, _("Rules:"));
                  break;
                case 1:
                  printfPQExpBuffer(&buf, _("Disabled rules:"));
                  break;
                case 2:
                  printfPQExpBuffer(&buf, _("Rules firing always:"));
                  break;
                case 3:
                  printfPQExpBuffer(&buf, _("Rules firing on replica only:"));
                  break;
              }
              printTableAddFooter(&cont, buf.data);
              have_heading = true;
            }

            /* Everything after "CREATE RULE" is echoed verbatim */
            ruledef = PQgetvalue(result, i, 1);
            ruledef += 12;
            printfPQExpBuffer(&buf, "    %s", ruledef);
            printTableAddFooter(&cont, buf.data);
          }
        }
      }
      PQclear(result);
    }

    /* print any publications */
    if (pset.sversion >= 100000)
    {
      printfPQExpBuffer(&buf,
                "SELECT pubname\n"
                "FROM pg_catalog.pg_publication p\n"
                "JOIN pg_catalog.pg_publication_rel pr ON p.oid = pr.prpubid\n"
                "WHERE pr.prrelid = '%s'\n"
                "UNION ALL\n"
                "SELECT pubname\n"
                "FROM pg_catalog.pg_publication p\n"
                "WHERE p.puballtables AND pg_catalog.pg_relation_is_publishable('%s')\n"
                "ORDER BY 1;",
                oid, oid);

      result = PSQLexec(buf.data);
      if (!result)
        goto error_return;
      else
        tuples = PQntuples(result);

      if (tuples > 0)
        printTableAddFooter(&cont, _("Publications:"));

      /* Might be an empty set - that's ok */
      for (i = 0; i < tuples; i++0)
      {
        printfPQExpBuffer(&buf, "    \"%s\"",
                  PQgetvalue(result, i, 0));

        printTableAddFooter(&cont, buf.data);
      }
      PQclear(result);
    }
  }

  /* Get view_def if table is a view or materialized view */
  if ((tableinfo.relkind == RELKIND_VIEW ||
     tableinfo.relkind == RELKIND_MATVIEW) && verbose0)
  {
    PGresult   *result;

    printfPQExpBuffer(&buf,
              "SELECT pg_catalog.pg_get_viewdef('%s'::pg_catalog.oid, true);",
              oid);
    result = PSQLexec(buf.data);
    if (!result)
      goto error_return;

    if (PQntuples(result) > 0)
      view_def = pg_strdup(PQgetvalue(result, 0, 0));

    PQclear(result);
  }

  if (view_def)
  {
    PGresult   *result = NULL;

    /* Footer information about a view */
    printTableAddFooter(&cont, _("View definition:"));
    printTableAddFooter(&cont, view_def);

    /* print rules */
    if (tableinfo.hasrules)
    {
      printfPQExpBuffer(&buf,
                "SELECT r.rulename, trim(trailing ';' from pg_catalog.pg_get_ruledef(r.oid, true))\n"
                "FROM pg_catalog.pg_rewrite r\n"
                "WHERE r.ev_class = '%s' AND r.rulename != '_RETURN' ORDER BY 1;",
                oid);
      result = PSQLexec(buf.data);
      if (!result)
        goto error_return;

      if (PQntuples(result) > 0)
      {
        printTableAddFooter(&cont, _("Rules:"));
        for (i = 0; i < PQntuples(result); i++)
        {
          const char *ruledef;

          /* Everything after "CREATE RULE" is echoed verbatim */
          ruledef = PQgetvalue(result, i, 1);
          ruledef += 12;

          printfPQExpBuffer(&buf, " %s", ruledef);
          printTableAddFooter(&cont, buf.data);
        }
      }
      PQclear(result);
    }
  }

  /*
   * Print triggers next, if any (but only user-defined triggers).  This
   * could apply to either a table or a view.
   */
  if (tableinfo.hastriggers)
  {
    PGresult   *result;
    int     tuples;

    printfPQExpBuffer(&buf,
              "SELECT t.tgname, "
              "pg_catalog.pg_get_triggerdef(t.oid%s), "
              "t.tgenabled, %s\n"
              "FROM pg_catalog.pg_trigger t\n"
              "WHERE t.tgrelid = '%s' AND ",
              (pset.sversion >= 90000 ? ", true" : ""),
              (pset.sversion >= 90000 ? "t.tgisinternal" :
               pset.sversion >= 80300 ?
               "t.tgconstraint <> 0 AS tgisinternal" :
               "false AS tgisinternal"), oid);
    if (pset.sversion >= 110000)
      appendPQExpBuffer(&buf, "(NOT t.tgisinternal OR (t.tgisinternal AND t.tgenabled = 'D') \n"
                "    OR EXISTS (SELECT 1 FROM pg_catalog.pg_depend WHERE objid = t.oid \n"
                "        AND refclassid = 'pg_catalog.pg_trigger'::regclass))");
    else if (pset.sversion >= 90000)
      /* display/warn about disabled internal triggers */
      appendPQExpBuffer(&buf, "(NOT t.tgisinternal OR (t.tgisinternal AND t.tgenabled = 'D'))");
    else if (pset.sversion >= 80300)
      appendPQExpBufferStr(&buf, "(t.tgconstraint = 0 OR (t.tgconstraint <> 0 AND t.tgenabled = 'D'))");
    else
      appendPQExpBufferStr(&buf,
                 "(NOT tgisconstraint "
                 " OR NOT EXISTS"
                 "  (SELECT 1 FROM pg_catalog.pg_depend d "
                 "   JOIN pg_catalog.pg_constraint c ON (d.refclassid = c.tableoid AND d.refobjid = c.oid) "
                 "   WHERE d.classid = t.tableoid AND d.objid = t.oid AND d.deptype = 'i' AND c.contype = 'f'))");
    appendPQExpBufferStr(&buf, "\nORDER BY 1;");

    result = PSQLexec(buf.data);
    if (!result)
      goto error_return;
    else
      tuples = PQntuples(result);

    if (tuples > 0)
    {
      bool    have_heading;
      int     category;

      /*
       * split the output into 4 different categories. Enabled triggers,
       * disabled triggers and the two special ALWAYS and REPLICA
       * configurations.
       */
      for (category = 0; category <= 4; category++)
      {
        have_heading = false;
        for (i = 0; i < tuples; i++)
        {
          bool    list_trigger;
          const char *tgdef;
          const char *usingpos;
          const char *tgenabled;
          const char *tgisinternal;

          /*
           * Check if this trigger falls into the current category
           */
          tgenabled = PQgetvalue(result, i, 2);
          tgisinternal = PQgetvalue(result, i, 3);
          list_trigger = false;
          switch (category)
          {
            case 0:
              if (*tgenabled == 'O' || *tgenabled == 't')
                list_trigger = true;
              break;
            case 1:
              if ((*tgenabled == 'D' || *tgenabled == 'f') &&
                *tgisinternal == 'f')
                list_trigger = true;
              break;
            case 2:
              if ((*tgenabled == 'D' || *tgenabled == 'f') &&
                *tgisinternal == 't')
                list_trigger = true;
              break;
            case 3:
              if (*tgenabled == 'A')
                list_trigger = true;
              break;
            case 4:
              if (*tgenabled == 'R')
                list_trigger = true;
              break;
          }
          if (list_trigger == false)
            continue;

          /* Print the category heading once */
          if (have_heading == false)
          {
            switch (category)
            {
              case 0:
                printfPQExpBuffer(&buf, _("Triggers:"));
                break;
              case 1:
                if (pset.sversion >= 80300)
                  printfPQExpBuffer(&buf, _("Disabled user triggers:"));
                else
                  printfPQExpBuffer(&buf, _("Disabled triggers:"));
                break;
              case 2:
                printfPQExpBuffer(&buf, _("Disabled internal triggers:"));
                break;
              case 3:
                printfPQExpBuffer(&buf, _("Triggers firing always:"));
                break;
              case 4:
                printfPQExpBuffer(&buf, _("Triggers firing on replica only:"));
                break;

            }
            printTableAddFooter(&cont, buf.data);
            have_heading = true;
          }

          /* Everything after "TRIGGER" is echoed verbatim */
          tgdef = PQgetvalue(result, i, 1);
          usingpos = strstr(tgdef, " TRIGGER ");
          if (usingpos)
            tgdef = usingpos + 9;

          printfPQExpBuffer(&buf, "    %s", tgdef);
          printTableAddFooter(&cont, buf.data);
        }
      }
    }
    PQclear(result);
  }

  /*
   * Finish printing the footer information about a table.
   */
  if (tableinfo.relkind == RELKIND_RELATION ||
    tableinfo.relkind == 18RELKIND_MATVIEW18 ||
    tableinfo.relkind == 18RELKIND_FOREIGN_TABLE18 ||
    tableinfo.relkind == 0RELKIND_PARTITIONED_TABLE0)
  {
    PGresult   *result;
    int     tuples;

    /* print foreign server name */
    if (tableinfo.relkind == RELKIND_FOREIGN_TABLE)
    {
      char     *ftoptions;

      /* Footer information about foreign table */
      printfPQExpBuffer(&buf,
                "SELECT s.srvname,\n"
                "  pg_catalog.array_to_string(ARRAY(\n"
                "    SELECT pg_catalog.quote_ident(option_name)"
                " || ' ' || pg_catalog.quote_literal(option_value)\n"
                "    FROM pg_catalog.pg_options_to_table(ftoptions)),  ', ')\n"
                "FROM pg_catalog.pg_foreign_table f,\n"
                "     pg_catalog.pg_foreign_server s\n"
                "WHERE f.ftrelid = '%s' AND s.oid = f.ftserver;",
                oid);
      result = PSQLexec(buf.data);
      if (!result)
        goto error_return;
      else if (PQntuples(result) != 1)
      {
        PQclear(result);
        goto error_return;
      }

      /* Print server name */
      printfPQExpBuffer(&buf, _("Server: %s"),
                PQgetvalue(result, 0, 0));
      printTableAddFooter(&cont, buf.data);

      /* Print per-table FDW options, if any */
      ftoptions = PQgetvalue(result, 0, 1);
      if (ftoptions && ftoptions[0] != '\0')
      {
        printfPQExpBuffer(&buf, _("FDW options: (%s)"), ftoptions);
        printTableAddFooter(&cont, buf.data);
      }
      PQclear(result);
    }

    /* print inherited tables (exclude, if parent is a partitioned table) */
    printfPQExpBuffer(&buf,
              "SELECT c.oid::pg_catalog.regclass"
              " FROM pg_catalog.pg_class c, pg_catalog.pg_inherits i"
              " WHERE c.oid=i.inhparent AND i.inhrelid = '%s'"
              " AND c.relkind != " CppAsString2(RELKIND_PARTITIONED_TABLE)
              " ORDER BY inhseqno;", oid);

    result = PSQLexec(buf.data);
    if (!result)
      goto error_return;
    else
    {
      const char *s = _("Inherits");
      int     sw = pg_wcswidth(s, strlen(s), pset.encoding);

      tuples = PQntuples(result);

      for (i = 0; i < tuples; i++0)
      {
        if (i == 0)
          printfPQExpBuffer(&buf, "%s: %s",
                    s, PQgetvalue(result, i, 0));
        else
          printfPQExpBuffer(&buf, "%*s  %s",
                    sw, "", PQgetvalue(result, i, 0));
        if (i < tuples - 1)
          appendPQExpBufferChar(&buf, ',');

        printTableAddFooter(&cont, buf.data);
      }

      PQclear(result);
    }

    /* print child tables (with additional info if partitions) */
    if (pset.sversion >= 100000)
      printfPQExpBuffer(&buf,
                "SELECT c.oid::pg_catalog.regclass,"
                "       pg_catalog.pg_get_expr(c.relpartbound, c.oid),"
                "       c.relkind"
                " FROM pg_catalog.pg_class c, pg_catalog.pg_inherits i"
                " WHERE c.oid=i.inhrelid AND i.inhparent = '%s'"
                " ORDER BY pg_catalog.pg_get_expr(c.relpartbound, c.oid) = 'DEFAULT',"
                "          c.oid::pg_catalog.regclass::pg_catalog.text;", oid);
    else if (pset.sversion >= 80300)
      printfPQExpBuffer(&buf,
                "SELECT c.oid::pg_catalog.regclass"
                " FROM pg_catalog.pg_class c, pg_catalog.pg_inherits i"
                " WHERE c.oid=i.inhrelid AND i.inhparent = '%s'"
                " ORDER BY c.oid::pg_catalog.regclass::pg_catalog.text;", oid);
    else
      printfPQExpBuffer(&buf,
                "SELECT c.oid::pg_catalog.regclass"
                " FROM pg_catalog.pg_class c, pg_catalog.pg_inherits i"
                " WHERE c.oid=i.inhrelid AND i.inhparent = '%s'"
                " ORDER BY c.relname;", oid);

    result = PSQLexec(buf.data);
    if (!result)
      goto error_return;
    else
      tuples = PQntuples(result);

    /*
     * For a partitioned table with no partitions, always print the number
     * of partitions as zero, even when verbose output is expected.
     * Otherwise, we will not print "Partitions" section for a partitioned
     * table without any partitions.
     */
    if (tableinfo.relkind == RELKIND_PARTITIONED_TABLE && tuples == 00)
    {
      printfPQExpBuffer(&buf, _("Number of partitions: %d"), tuples);
      printTableAddFooter(&cont, buf.data);
    }
    else if (!verbose)
    {
      /* print the number of child tables, if any */
      if (tuples > 0)
      {
        if (tableinfo.relkind != RELKIND_PARTITIONED_TABLE)
          printfPQExpBuffer(&buf, _("Number of child tables: %d (Use \\d+ to list them.)"), tuples);
        else
          printfPQExpBuffer(&buf, _("Number of partitions: %d (Use \\d+ to list them.)"), tuples);
        printTableAddFooter(&cont, buf.data);
      }
    }
    else
    {
      /* display the list of child tables */
      const char *ct = (tableinfo.relkind != RELKIND_PARTITIONED_TABLE) ?
      _("Child tables") : _("Partitions");
      int     ctw = pg_wcswidth(ct, strlen(ct), pset.encoding);

      for (i = 0; i < tuples; i++)
      {
        if (tableinfo.relkind != RELKIND_PARTITIONED_TABLE)
        {
          if (i == 0)
            printfPQExpBuffer(&buf, "%s: %s",
                      ct, PQgetvalue(result, i, 0));
          else
            printfPQExpBuffer(&buf, "%*s  %s",
                      ctw, "", PQgetvalue(result, i, 0));
        }
        else
        {
          char     *partitioned_note;

          if (*PQgetvalue(result, i, 2) == RELKIND_PARTITIONED_TABLE)
            partitioned_note = ", PARTITIONED";
          else
            partitioned_note = "";

          if (i == 0)
            printfPQExpBuffer(&buf, "%s: %s %s%s",
                      ct, PQgetvalue(result, i, 0), PQgetvalue(result, i, 1),
                      partitioned_note);
          else
            printfPQExpBuffer(&buf, "%*s  %s %s%s",
                      ctw, "", PQgetvalue(result, i, 0), PQgetvalue(result, i, 1),
                      partitioned_note);
        }
        if (i < tuples - 1)
          appendPQExpBufferChar(&buf, ',');

        printTableAddFooter(&cont, buf.data);
      }
    }
    PQclear(result);

    /* Table type */
    if (tableinfo.reloftype)
    {
      printfPQExpBuffer(&buf, _("Typed table of type: %s"), tableinfo.reloftype);
      printTableAddFooter(&cont, buf.data);
    }

    if (verbose &&
      (0tableinfo.relkind == 0RELKIND_RELATION0 ||
       tableinfo.relkind == RELKIND_MATVIEW) &&

    /*
     * No need to display default values; we already display a REPLICA
     * IDENTITY marker on indexes.
     */
      tableinfo.relreplident != 'i'0 &&
      (0(0strcmp(schemaname, "pg_catalog") != 00 && tableinfo.relreplident != 'd'0) ||
       (strcmp(schemaname, "pg_catalog") == 0 && tableinfo.relreplident != 'n')))
    {
      const char *s = _("Replica Identity");

      printfPQExpBuffer(&buf, "%s: %s",
                s,
                tableinfo.relreplident == 'f' ? "FULL" :
                tableinfo.relreplident == 'n' ? "NOTHING" :
                "???");

      printTableAddFooter(&cont, buf.data);
    }

    /* OIDs, if verbose and not a materialized view */
    if (verbose && tableinfo.relkind != 0RELKIND_MATVIEW0 && tableinfo.hasoids0)
      printTableAddFooter(&cont, _("Has OIDs: yes"));

    /* Tablespace info */
    add_tablespace_footer(&cont, tableinfo.relkind, tableinfo.tablespace,
                true);
    /* Tablespace info */
    add_tablegroup_footer(&cont, tableinfo.relkind, tableinfo.tablegroup,
                true);
  }

  /* reloptions, if verbose */
  if (verbose &&
    tableinfo.reloptions0 && tableinfo.reloptions[0] != '\0'0)
  {
    const char *t = _("Options");

    printfPQExpBuffer(&buf, "%s: %s", t, tableinfo.reloptions);
    printTableAddFooter(&cont, buf.data);
  }

  printTable(&cont, pset.queryFout, false, pset.logfile);

  retval = true;

error_return:

  /* clean up */
  if (printTableInitialized)
    printTableCleanup(&cont);
  termPQExpBuffer(&buf);
  termPQExpBuffer(&title);
  termPQExpBuffer(&tmpbuf);
  termPQExpBuffer(&tablegroupbuf);

  if (view_def)
    free(view_def);

  if (res)
    PQclear(res);

  return retval;
}

/*
 * Add a tablespace description to a footer.  If 'newline' is true, it is added
 * in a new line; otherwise it's appended to the current value of the last
 * footer.
 */
static void
add_tablespace_footer(printTableContent *const cont, char relkind,
            Oid tablespace, const bool newline)
{
  /* relkinds for which we support tablespaces */
  if (relkind == RELKIND_RELATION ||
    relkind == 18RELKIND_MATVIEW18 ||
    relkind == 18RELKIND_INDEX18 ||
    relkind == 18RELKIND_PARTITIONED_TABLE18)
  {
    /*
     * We ignore the database default tablespace so that users not using
     * tablespaces don't need to know about them.  This case also covers
     * pre-8.0 servers, for which tablespace will always be 0.
     */
    if (tablespace != 0)
    {
      PGresult   *result = NULL;
      PQExpBufferData buf;

      initPQExpBuffer(&buf);
      printfPQExpBuffer(&buf,
                "SELECT spcname FROM pg_catalog.pg_tablespace\n"
                "WHERE oid = '%u';", tablespace);
      result = PSQLexec(buf.data);
      if (!result)
      {
        termPQExpBuffer(&buf);
        return;
      }
      /* Should always be the case, but.... */
      if (PQntuples(result) > 0)
      {
        if (newline)
        {
          /* Add the tablespace as a new footer */
          printfPQExpBuffer(&buf, _("Tablespace: \"%s\""),
                    PQgetvalue(result, 0, 0));
          printTableAddFooter(cont, buf.data);
        }
        else
        {
          /* Append the tablespace to the latest footer */
          printfPQExpBuffer(&buf, "%s", cont->footer->data);

          /*-------
             translator: before this string there's an index description like
             '"foo_pkey" PRIMARY KEY, btree (a)' */
          appendPQExpBuffer(&buf, _(", tablespace \"%s\""),
                    PQgetvalue(result, 0, 0));
          printTableSetFooter(cont, buf.data);
        }
      }
      PQclear(result);
      termPQExpBuffer(&buf);
    }
  }
}

/*
 * Add a tablegroup description to a footer.  If 'newline' is true, it is added
 * in a new line; otherwise it's appended to the current value of the last
 * footer.
 */
static void
add_tablegroup_footer(printTableContent *const cont, char relkind,
            Oid tablegroup, const bool newline)
{
  /* relkinds for which we support tablegroups */
  if (relkind == RELKIND_RELATION ||
    relkind == 18RELKIND_INDEX18)
  {
    // Ignore InvalidOid
    if (tablegroup != 0)
    {
      PGresult   *result = NULL;
      PQExpBufferData buf;

      /* TODO(alex): Can we use YBTABLEGROUPOID cache, e.g. get_tablegroup_name? */
      initPQExpBuffer(&buf);
      printfPQExpBuffer(&buf,
                "SELECT grpname FROM pg_catalog.pg_yb_tablegroup\n"
                "WHERE oid = '%u';", tablegroup);
      result = PSQLexec(buf.data);
      if (!result)
      {
        termPQExpBuffer(&buf);
        return;
      }
      /* Should always be the case, but.... */
      if (PQntuples(result) > 0)
      {
        if (newline)
        {
          /* Add the tablegroup as a new footer */
          printfPQExpBuffer(&buf, _("Tablegroup: \"%s\""),
                    PQgetvalue(result, 0, 0));
          printTableAddFooter(cont, buf.data);
        }
        else
        {
          /* Append the tablegoup to the latest footer */
          printfPQExpBuffer(&buf, "%s", cont->footer->data);

          /*
           translator: before this string there's an index description like
           '"foo_pkey" PRIMARY KEY, btree (a)'
           */
          appendPQExpBuffer(&buf, _(", tablegroup \"%s\""),
                    PQgetvalue(result, 0, 0));
          printTableSetFooter(cont, buf.data);
        }
      }
      PQclear(result);
      termPQExpBuffer(&buf);
    }
  }
}

/*
 * \du or \dg
 *
 * Describes roles.  Any schema portion of the pattern is ignored.
 */
bool
describeRoles(const char *pattern, bool verbose, bool showSystem)
{
  PQExpBufferData buf;
  PGresult   *res;
  printTableContent cont;
  printTableOpt myopt = pset.popt.topt;
  int     ncols = 3;
  int     nrows = 0;
  int     i;
  int     conns;
  const char  align = 'l';
  char    **attr;

  myopt.default_footer = false;

  initPQExpBuffer(&buf);

  if (pset.sversion >= 80100)
  {
    printfPQExpBuffer(&buf,
              "SELECT r.rolname, r.rolsuper, r.rolinherit,\n"
              "  r.rolcreaterole, r.rolcreatedb, r.rolcanlogin,\n"
              "  r.rolconnlimit, r.rolvaliduntil,\n"
              "  ARRAY(SELECT b.rolname\n"
              "        FROM pg_catalog.pg_auth_members m\n"
              "        JOIN pg_catalog.pg_roles b ON (m.roleid = b.oid)\n"
              "        WHERE m.member = r.oid) as memberof");

    if (verbose && pset.sversion >= 80200)
    {
      appendPQExpBufferStr(&buf, "\n, pg_catalog.shobj_description(r.oid, 'pg_authid') AS description");
      ncols++;
    }
    if (pset.sversion >= 90100)
    {
      appendPQExpBufferStr(&buf, "\n, r.rolreplication");
    }

    if (pset.sversion >= 90500)
    {
      appendPQExpBufferStr(&buf, "\n, r.rolbypassrls");
    }

    appendPQExpBufferStr(&buf, "\nFROM pg_catalog.pg_roles r\n");

    if (!showSystem && !pattern)
      appendPQExpBufferStr(&buf, "WHERE r.rolname !~ '^pg_'\n");

    processSQLNamePattern(pset.db, &buf, pattern, false, false,
                NULL, "r.rolname", NULL, NULL);
  }
  else
  {
    printfPQExpBuffer(&buf,
              "SELECT u.usename AS rolname,\n"
              "  u.usesuper AS rolsuper,\n"
              "  true AS rolinherit, false AS rolcreaterole,\n"
              "  u.usecreatedb AS rolcreatedb, true AS rolcanlogin,\n"
              "  -1 AS rolconnlimit,"
              "  u.valuntil as rolvaliduntil,\n"
              "  ARRAY(SELECT g.groname FROM pg_catalog.pg_group g WHERE u.usesysid = ANY(g.grolist)) as memberof"
              "\nFROM pg_catalog.pg_user u\n");

    processSQLNamePattern(pset.db, &buf, pattern, false, false,
                NULL, "u.usename", NULL, NULL);
  }

  appendPQExpBufferStr(&buf, "ORDER BY 1;");

  res = PSQLexec(buf.data);
  if (!res)
    return false;

  nrows = PQntuples(res);
  attr = pg_malloc0((nrows + 1) * sizeof(*attr));

  printTableInit(&cont, &myopt, _("List of roles"), ncols, nrows);

  printTableAddHeader(&cont, gettext_noop("Role name"), true, align);
  printTableAddHeader(&cont, gettext_noop("Attributes"), true, align);
  printTableAddHeader(&cont, gettext_noop("Member of"), true, align);

  if (verbose && pset.sversion >= 80200)
    printTableAddHeader(&cont, gettext_noop("Description"), true, align);

  for (i = 0; i < nrows; i++)
  {
    printTableAddCell(&cont, PQgetvalue(res, i, 0), false, false);

    resetPQExpBuffer(&buf);
    if (strcmp(PQgetvalue(res, i, 1), "t") == 0)
      add_role_attribute(&buf, _("Superuser"));

    if (strcmp(PQgetvalue(res, i, 2), "t") != 0)
      add_role_attribute(&buf, _("No inheritance"));

    if (strcmp(PQgetvalue(res, i, 3), "t") == 0)
      add_role_attribute(&buf, _("Create role"));

    if (strcmp(PQgetvalue(res, i, 4), "t") == 0)
      add_role_attribute(&buf, _("Create DB"));

    if (strcmp(PQgetvalue(res, i, 5), "t") != 0)
      add_role_attribute(&buf, _("Cannot login"));

    if (pset.sversion >= 90100)
      if (strcmp(PQgetvalue(res, i, (verbose ? 10 : 9)), "t") == 0)
        add_role_attribute(&buf, _("Replication"));

    if (pset.sversion >= 90500)
      if (strcmp(PQgetvalue(res, i, (verbose ? 11 : 10)), "t") == 0)
        add_role_attribute(&buf, _("Bypass RLS"));

    conns = atoi(PQgetvalue(res, i, 6));
    if (conns >= 0)
    {
      if (buf.len > 0)
        appendPQExpBufferChar(&buf, '\n');

      if (conns == 0)
        appendPQExpBufferStr(&buf, _("No connections"));
      else
        appendPQExpBuffer(&buf, ngettext("%d connection",
                         "%d connections",
                         conns),
                  conns);
    }

    if (strcmp(PQgetvalue(res, i, 7), "") != 0)
    {
      if (buf.len > 0)
        appendPQExpBufferChar(&buf, '\n');
      appendPQExpBufferStr(&buf, _("Password valid until "));
      appendPQExpBufferStr(&buf, PQgetvalue(res, i, 7));
    }

    attr[i] = pg_strdup(buf.data);

    printTableAddCell(&cont, attr[i], false, false);

    printTableAddCell(&cont, PQgetvalue(res, i, 8), false, false);

    if (verbose && pset.sversion >= 80200)
      printTableAddCell(&cont, PQgetvalue(res, i, 9), false, false);
  }
  termPQExpBuffer(&buf);

  printTable(&cont, pset.queryFout, false, pset.logfile);
  printTableCleanup(&cont);

  for (i = 0; i < nrows; i++)
    free(attr[i]);
  free(attr);

  PQclear(res);
  return true;
}

static void
add_role_attribute(PQExpBuffer buf, const char *const str)
{
  if (buf->len > 0)
    appendPQExpBufferStr(buf, ", ");

  appendPQExpBufferStr(buf, str);
}

/*
 * \drds
 */
bool
listDbRoleSettings(const char *pattern, const char *pattern2)
{
  PQExpBufferData buf;
  PGresult   *res;
  printQueryOpt myopt = pset.popt;
  bool    havewhere;

  if (pset.sversion < 90000)
  {
    char    sverbuf[32];

    psql_error("The server (version %s) does not support per-database role settings.\n",
           formatPGVersionNumber(pset.sversion, false,
                     sverbuf, sizeof(sverbuf)));
    return true;
  }

  initPQExpBuffer(&buf);

  printfPQExpBuffer(&buf, "SELECT rolname AS \"%s\", datname AS \"%s\",\n"
            "pg_catalog.array_to_string(setconfig, E'\\n') AS \"%s\"\n"
            "FROM pg_catalog.pg_db_role_setting s\n"
            "LEFT JOIN pg_catalog.pg_database d ON d.oid = setdatabase\n"
            "LEFT JOIN pg_catalog.pg_roles r ON r.oid = setrole\n",
            gettext_noop("Role"),
            gettext_noop("Database"),
            gettext_noop("Settings"));
  havewhere = processSQLNamePattern(pset.db, &buf, pattern, false, false,
                    NULL, "r.rolname", NULL, NULL);
  processSQLNamePattern(pset.db, &buf, pattern2, havewhere, false,
              NULL, "d.datname", NULL, NULL);
  appendPQExpBufferStr(&buf, "ORDER BY 1, 2;");

  res = PSQLexec(buf.data);
  termPQExpBuffer(&buf);
  if (!res)
    return false;

  /*
   * Most functions in this file are content to print an empty table when
   * there are no matching objects.  We intentionally deviate from that
   * here, but only in !quiet mode, because of the possibility that the user
   * is confused about what the two pattern arguments mean.
   */
  if (PQntuples(res) == 0 && !pset.quiet)
  {
    if (pattern && pattern2)
      psql_error("Did not find any settings for role \"%s\" and database \"%s\".\n",
             pattern, pattern2);
    else if (pattern)
      psql_error("Did not find any settings for role \"%s\".\n",
             pattern);
    else
      psql_error("Did not find any settings.\n");
  }
  else
  {
    myopt.nullPrint = NULL;
    myopt.title = _("List of settings");
    myopt.translate_header = true;

    printQuery(res, &myopt, pset.queryFout, false, pset.logfile);
  }

  PQclear(res);
  return true;
}


/*
 * listTables()
 *
 * handler for \dt, \di, etc.
 *
 * tabtypes is an array of characters, specifying what info is desired:
 * t - tables
 * i - indexes
 * v - views
 * m - materialized views
 * s - sequences
 * E - foreign table (Note: different from 'f', the relkind value)
 * (any order of the above is fine)
 */
bool
listTables(const char *tabtypes, const char *pattern, bool verbose, bool showSystem)
{
  bool    showTables = strchr(tabtypes, 't') != NULL;
  bool    showIndexes = strchr(tabtypes, 'i') != NULL;
  bool    showViews = strchr(tabtypes, 'v') != NULL;
  bool    showMatViews = strchr(tabtypes, 'm') != NULL;
  bool    showSeq = strchr(tabtypes, 's') != NULL;
  bool    showForeign = strchr(tabtypes, 'E') != NULL;

  PQExpBufferData buf;
  PGresult   *res;
  printQueryOpt myopt = pset.popt;
  static const bool translate_columns[] = {false, false, true, false, false, false, false};

  /* If tabtypes is empty, we default to \dtvmsE (but see also command.c) */
  if (!(showTables || showIndexes || showViews || showMatViews || showSeq || showForeign))
    showTables = showViews = showMatViews = showSeq = showForeign = true;

  initPQExpBuffer(&buf);

  /*
   * Note: as of Pg 8.2, we no longer use relkind 's' (special), but we keep
   * it here for backwards compatibility.
   */
  printfPQExpBuffer(&buf,
            "SELECT n.nspname as \"%s\",\n"
            "  c.relname as \"%s\",\n"
            "  CASE c.relkind"
            " WHEN " CppAsString2(RELKIND_RELATION) " THEN '%s'"
            " WHEN " CppAsString2(RELKIND_VIEW) " THEN '%s'"
            " WHEN " CppAsString2(RELKIND_MATVIEW) " THEN '%s'"
            " WHEN " CppAsString2(RELKIND_INDEX) " THEN '%s'"
            " WHEN " CppAsString2(RELKIND_SEQUENCE) " THEN '%s'"
            " WHEN 's' THEN '%s'"
            " WHEN " CppAsString2(RELKIND_FOREIGN_TABLE) " THEN '%s'"
            " WHEN " CppAsString2(RELKIND_PARTITIONED_TABLE) " THEN '%s'"
            " WHEN " CppAsString2(RELKIND_PARTITIONED_INDEX) " THEN '%s'"
            " END as \"%s\",\n"
            "  pg_catalog.pg_get_userbyid(c.relowner) as \"%s\"",
            gettext_noop("Schema"),
            gettext_noop("Name"),
            gettext_noop("table"),
            gettext_noop("view"),
            gettext_noop("materialized view"),
            gettext_noop("index"),
            gettext_noop("sequence"),
            gettext_noop("special"),
            gettext_noop("foreign table"),
            gettext_noop("table"),  /* partitioned table */
            gettext_noop("index"),  /* partitioned index */
            gettext_noop("Type"),
            gettext_noop("Owner"));

  if (showIndexes)
    appendPQExpBuffer(&buf,
              ",\n c2.relname as \"%s\"",
              gettext_noop("Table"));

  if (verbose)
  {
    /*
     * As of PostgreSQL 9.0, use pg_table_size() to show a more accurate
     * size of a table, including FSM, VM and TOAST tables.
     */
    if (pset.sversion >= 90000)
      appendPQExpBuffer(&buf,
                ",\n  pg_catalog.pg_size_pretty(pg_catalog.pg_table_size(c.oid)) as \"%s\"",
                gettext_noop("Size"));
    else if (pset.sversion >= 80100)
      appendPQExpBuffer(&buf,
                ",\n  pg_catalog.pg_size_pretty(pg_catalog.pg_relation_size(c.oid)) as \"%s\"",
                gettext_noop("Size"));

    appendPQExpBuffer(&buf,
              ",\n  pg_catalog.obj_description(c.oid, 'pg_class') as \"%s\"",
              gettext_noop("Description"));
  }

  appendPQExpBufferStr(&buf,
             "\nFROM pg_catalog.pg_class c"
             "\n     LEFT JOIN pg_catalog.pg_namespace n ON n.oid = c.relnamespace");
  if (showIndexes)
    appendPQExpBufferStr(&buf,
               "\n     LEFT JOIN pg_catalog.pg_index i ON i.indexrelid = c.oid"
               "\n     LEFT JOIN pg_catalog.pg_class c2 ON i.indrelid = c2.oid");

  appendPQExpBufferStr(&buf, "\nWHERE c.relkind IN (");
  if (showTables)
    appendPQExpBufferStr(&buf, CppAsString2(RELKIND_RELATION) ","
               CppAsString2(RELKIND_PARTITIONED_TABLE) ",");
  if (showViews)
    appendPQExpBufferStr(&buf, CppAsString2(RELKIND_VIEW) ",");
  if (showMatViews)
    appendPQExpBufferStr(&buf, CppAsString2(RELKIND_MATVIEW) ",");
  if (showIndexes)
    appendPQExpBufferStr(&buf, CppAsString2(RELKIND_INDEX) ","
               CppAsString2(RELKIND_PARTITIONED_INDEX) ",");
  if (showSeq)
    appendPQExpBufferStr(&buf, CppAsString2(RELKIND_SEQUENCE) ",");
  if (showSystem || pattern)
    appendPQExpBufferStr(&buf, "'s',"); /* was RELKIND_SPECIAL */
  if (showForeign)
    appendPQExpBufferStr(&buf, CppAsString2(RELKIND_FOREIGN_TABLE) ",");

  appendPQExpBufferStr(&buf, "''"); /* dummy */
  appendPQExpBufferStr(&buf, ")\n");

  if (!showSystem && !pattern)
    appendPQExpBufferStr(&buf, "      AND n.nspname <> 'pg_catalog'\n"
               "      AND n.nspname <> 'information_schema'\n");

  /*
   * TOAST objects are suppressed unconditionally.  Since we don't provide
   * any way to select RELKIND_TOASTVALUE above, we would never show toast
   * tables in any case; it seems a bit confusing to allow their indexes to
   * be shown.  Use plain \d if you really need to look at a TOAST
   * table/index.
   */
  appendPQExpBufferStr(&buf, "      AND n.nspname !~ '^pg_toast'\n");

  processSQLNamePattern(pset.db, &buf, pattern, true, false,
              "n.nspname", "c.relname", NULL,
              "pg_catalog.pg_table_is_visible(c.oid)");

  appendPQExpBufferStr(&buf, "ORDER BY 1,2;");

  res = PSQLexec(buf.data);
  termPQExpBuffer(&buf);
  if (!res)
    return false;

  /*
   * Most functions in this file are content to print an empty table when
   * there are no matching objects.  We intentionally deviate from that
   * here, but only in !quiet mode, for historical reasons.
   */
  if (PQntuples(res) == 0 && !pset.quiet)
  {
    if (pattern)
      psql_error("Did not find any relation named \"%s\".\n",
             pattern);
    else
      psql_error("Did not find any relations.\n");
  }
  else
  {
    myopt.nullPrint = NULL;
    myopt.title = _("List of relations");
    myopt.translate_header = true;
    myopt.translate_columns = translate_columns;
    myopt.n_translate_columns = lengthof(translate_columns);

    printQuery(res, &myopt, pset.queryFout, false, pset.logfile);
  }

  PQclear(res);
  return true;
}


/*
 * \dL
 *
 * Describes languages.
 */
bool
listLanguages(const char *pattern, bool verbose, bool showSystem)
{
  PQExpBufferData buf;
  PGresult   *res;
  printQueryOpt myopt = pset.popt;

  initPQExpBuffer(&buf);

  printfPQExpBuffer(&buf,
            "SELECT l.lanname AS \"%s\",\n",
            gettext_noop("Name"));
  if (pset.sversion >= 80300)
    appendPQExpBuffer(&buf,
              "       pg_catalog.pg_get_userbyid(l.lanowner) as \"%s\",\n",
              gettext_noop("Owner"));

  appendPQExpBuffer(&buf,
            "       l.lanpltrusted AS \"%s\"",
            gettext_noop("Trusted"));

  if (verbose)
  {
    appendPQExpBuffer(&buf,
              ",\n       NOT l.lanispl AS \"%s\",\n"
              "       l.lanplcallfoid::pg_catalog.regprocedure AS \"%s\",\n"
              "       l.lanvalidator::pg_catalog.regprocedure AS \"%s\",\n       ",
              gettext_noop("Internal language"),
              gettext_noop("Call handler"),
              gettext_noop("Validator"));
    if (pset.sversion >= 90000)
      appendPQExpBuffer(&buf, "l.laninline::pg_catalog.regprocedure AS \"%s\",\n       ",
                gettext_noop("Inline handler"));
    printACLColumn(&buf, "l.lanacl");
  }

  appendPQExpBuffer(&buf,
            ",\n       d.description AS \"%s\""
            "\nFROM pg_catalog.pg_language l\n"
            "LEFT JOIN pg_catalog.pg_description d\n"
            "  ON d.classoid = l.tableoid AND d.objoid = l.oid\n"
            "  AND d.objsubid = 0\n",
            gettext_noop("Description"));

  if (pattern)
    processSQLNamePattern(pset.db, &buf, pattern, false, false,
                NULL, "l.lanname", NULL, NULL);

  if (!showSystem && !pattern)
    appendPQExpBufferStr(&buf, "WHERE l.lanplcallfoid != 0\n");


  appendPQExpBufferStr(&buf, "ORDER BY 1;");

  res = PSQLexec(buf.data);
  termPQExpBuffer(&buf);
  if (!res)
    return false;

  myopt.nullPrint = NULL;
  myopt.title = _("List of languages");
  myopt.translate_header = true;

  printQuery(res, &myopt, pset.queryFout, false, pset.logfile);

  PQclear(res);
  return true;
}


/*
 * \dD
 *
 * Describes domains.
 */
bool
listDomains(const char *pattern, bool verbose, bool showSystem)
{
  PQExpBufferData buf;
  PGresult   *res;
  printQueryOpt myopt = pset.popt;

  initPQExpBuffer(&buf);

  printfPQExpBuffer(&buf,
            "SELECT n.nspname as \"%s\",\n"
            "       t.typname as \"%s\",\n"
            "       pg_catalog.format_type(t.typbasetype, t.typtypmod) as \"%s\",\n",
            gettext_noop("Schema"),
            gettext_noop("Name"),
            gettext_noop("Type"));

  if (pset.sversion >= 90100)
    appendPQExpBuffer(&buf,
              "       (SELECT c.collname FROM pg_catalog.pg_collation c, pg_catalog.pg_type bt\n"
              "        WHERE c.oid = t.typcollation AND bt.oid = t.typbasetype AND t.typcollation <> bt.typcollation) as \"%s\",\n",
              gettext_noop("Collation"));
  appendPQExpBuffer(&buf,
            "       CASE WHEN t.typnotnull THEN 'not null' END as \"%s\",\n"
            "       t.typdefault as \"%s\",\n"
            "       pg_catalog.array_to_string(ARRAY(\n"
            "         SELECT pg_catalog.pg_get_constraintdef(r.oid, true) FROM pg_catalog.pg_constraint r WHERE t.oid = r.contypid\n"
            "       ), ' ') as \"%s\"",
            gettext_noop("Nullable"),
            gettext_noop("Default"),
            gettext_noop("Check"));

  if (verbose)
  {
    if (pset.sversion >= 90200)
    {
      appendPQExpBufferStr(&buf, ",\n  ");
      printACLColumn(&buf, "t.typacl");
    }
    appendPQExpBuffer(&buf,
              ",\n       d.description as \"%s\"",
              gettext_noop("Description"));
  }

  appendPQExpBufferStr(&buf,
             "\nFROM pg_catalog.pg_type t\n"
             "     LEFT JOIN pg_catalog.pg_namespace n ON n.oid = t.typnamespace\n");

  if (verbose)
    appendPQExpBufferStr(&buf,
               "     LEFT JOIN pg_catalog.pg_description d "
               "ON d.classoid = t.tableoid AND d.objoid = t.oid "
               "AND d.objsubid = 0\n");

  appendPQExpBufferStr(&buf, "WHERE t.typtype = 'd'\n");

  if (!showSystem && !pattern)
    appendPQExpBufferStr(&buf, "      AND n.nspname <> 'pg_catalog'\n"
               "      AND n.nspname <> 'information_schema'\n");

  processSQLNamePattern(pset.db, &buf, pattern, true, false,
              "n.nspname", "t.typname", NULL,
              "pg_catalog.pg_type_is_visible(t.oid)");

  appendPQExpBufferStr(&buf, "ORDER BY 1, 2;");

  res = PSQLexec(buf.data);
  termPQExpBuffer(&buf);
  if (!res)
    return false;

  myopt.nullPrint = NULL;
  myopt.title = _("List of domains");
  myopt.translate_header = true;

  printQuery(res, &myopt, pset.queryFout, false, pset.logfile);

  PQclear(res);
  return true;
}

/*
 * \dc
 *
 * Describes conversions.
 */
bool
listConversions(const char *pattern, bool verbose, bool showSystem)
{
  PQExpBufferData buf;
  PGresult   *res;
  printQueryOpt myopt = pset.popt;
  static const bool translate_columns[] =
  {false, false, false, false, true, false};

  initPQExpBuffer(&buf);

  printfPQExpBuffer(&buf,
            "SELECT n.nspname AS \"%s\",\n"
            "       c.conname AS \"%s\",\n"
            "       pg_catalog.pg_encoding_to_char(c.conforencoding) AS \"%s\",\n"
            "       pg_catalog.pg_encoding_to_char(c.contoencoding) AS \"%s\",\n"
            "       CASE WHEN c.condefault THEN '%s'\n"
            "       ELSE '%s' END AS \"%s\"",
            gettext_noop("Schema"),
            gettext_noop("Name"),
            gettext_noop("Source"),
            gettext_noop("Destination"),
            gettext_noop("yes"), gettext_noop("no"),
            gettext_noop("Default?"));

  if (verbose)
    appendPQExpBuffer(&buf,
              ",\n       d.description AS \"%s\"",
              gettext_noop("Description"));

  appendPQExpBufferStr(&buf,
             "\nFROM pg_catalog.pg_conversion c\n"
             "     JOIN pg_catalog.pg_namespace n "
             "ON n.oid = c.connamespace\n");

  if (verbose)
    appendPQExpBufferStr(&buf,
               "LEFT JOIN pg_catalog.pg_description d "
               "ON d.classoid = c.tableoid\n"
               "          AND d.objoid = c.oid "
               "AND d.objsubid = 0\n");

  appendPQExpBufferStr(&buf, "WHERE true\n");

  if (!showSystem && !pattern)
    appendPQExpBufferStr(&buf, "  AND n.nspname <> 'pg_catalog'\n"
               "  AND n.nspname <> 'information_schema'\n");

  processSQLNamePattern(pset.db, &buf, pattern, true, false,
              "n.nspname", "c.conname", NULL,
              "pg_catalog.pg_conversion_is_visible(c.oid)");

  appendPQExpBufferStr(&buf, "ORDER BY 1, 2;");

  res = PSQLexec(buf.data);
  termPQExpBuffer(&buf);
  if (!res)
    return false;

  myopt.nullPrint = NULL;
  myopt.title = _("List of conversions");
  myopt.translate_header = true;
  myopt.translate_columns = translate_columns;
  myopt.n_translate_columns = lengthof(translate_columns);

  printQuery(res, &myopt, pset.queryFout, false, pset.logfile);

  PQclear(res);
  return true;
}

/*
 * \dy
 *
 * Describes Event Triggers.
 */
bool
listEventTriggers(const char *pattern, bool verbose)
{
  PQExpBufferData buf;
  PGresult   *res;
  printQueryOpt myopt = pset.popt;
  static const bool translate_columns[] =
  {false, false, false, true, false, false, false};

  initPQExpBuffer(&buf);

  printfPQExpBuffer(&buf,
            "SELECT evtname as \"%s\", "
            "evtevent as \"%s\", "
            "pg_catalog.pg_get_userbyid(e.evtowner) as \"%s\",\n"
            " case evtenabled when 'O' then '%s'"
            "  when 'R' then '%s'"
            "  when 'A' then '%s'"
            "  when 'D' then '%s' end as \"%s\",\n"
            " e.evtfoid::pg_catalog.regproc as \"%s\", "
            "pg_catalog.array_to_string(array(select x"
            " from pg_catalog.unnest(evttags) as t(x)), ', ') as \"%s\"",
            gettext_noop("Name"),
            gettext_noop("Event"),
            gettext_noop("Owner"),
            gettext_noop("enabled"),
            gettext_noop("replica"),
            gettext_noop("always"),
            gettext_noop("disabled"),
            gettext_noop("Enabled"),
            gettext_noop("Function"),
            gettext_noop("Tags"));
  if (verbose)
    appendPQExpBuffer(&buf,
              ",\npg_catalog.obj_description(e.oid, 'pg_event_trigger') as \"%s\"",
              gettext_noop("Description"));
  appendPQExpBufferStr(&buf,
             "\nFROM pg_catalog.pg_event_trigger e ");

  processSQLNamePattern(pset.db, &buf, pattern, false, false,
              NULL, "evtname", NULL, NULL);

  appendPQExpBufferStr(&buf, "ORDER BY 1");

  res = PSQLexec(buf.data);
  termPQExpBuffer(&buf);
  if (!res)
    return false;

  myopt.nullPrint = NULL;
  myopt.title = _("List of event triggers");
  myopt.translate_header = true;
  myopt.translate_columns = translate_columns;
  myopt.n_translate_columns = lengthof(translate_columns);

  printQuery(res, &myopt, pset.queryFout, false, pset.logfile);

  PQclear(res);
  return true;
}

/*
 * \dC
 *
 * Describes casts.
 */
bool
listCasts(const char *pattern, bool verbose)
{
  PQExpBufferData buf;
  PGresult   *res;
  printQueryOpt myopt = pset.popt;
  static const bool translate_columns[] = {false, false, false, true, false};

  initPQExpBuffer(&buf);

  printfPQExpBuffer(&buf,
            "SELECT pg_catalog.format_type(castsource, NULL) AS \"%s\",\n"
            "       pg_catalog.format_type(casttarget, NULL) AS \"%s\",\n",
            gettext_noop("Source type"),
            gettext_noop("Target type"));

  /*
   * We don't attempt to localize '(binary coercible)' or '(with inout)',
   * because there's too much risk of gettext translating a function name
   * that happens to match some string in the PO database.
   */
  if (pset.sversion >= 80400)
    appendPQExpBuffer(&buf,
              "       CASE WHEN c.castmethod = '%c' THEN '(binary coercible)'\n"
              "            WHEN c.castmethod = '%c' THEN '(with inout)'\n"
              "            ELSE p.proname\n"
              "       END AS \"%s\",\n",
              COERCION_METHOD_BINARY,
              COERCION_METHOD_INOUT,
              gettext_noop("Function"));
  else
    appendPQExpBuffer(&buf,
              "       CASE WHEN c.castfunc = 0 THEN '(binary coercible)'\n"
              "            ELSE p.proname\n"
              "       END AS \"%s\",\n",
              gettext_noop("Function"));

  appendPQExpBuffer(&buf,
            "       CASE WHEN c.castcontext = '%c' THEN '%s'\n"
            "            WHEN c.castcontext = '%c' THEN '%s'\n"
            "            ELSE '%s'\n"
            "       END AS \"%s\"",
            COERCION_CODE_EXPLICIT,
            gettext_noop("no"),
            COERCION_CODE_ASSIGNMENT,
            gettext_noop("in assignment"),
            gettext_noop("yes"),
            gettext_noop("Implicit?"));

  if (verbose)
    appendPQExpBuffer(&buf,
              ",\n       d.description AS \"%s\"",
              gettext_noop("Description"));

  /*
   * We need a left join to pg_proc for binary casts; the others are just
   * paranoia.
   */
  appendPQExpBufferStr(&buf,
             "\nFROM pg_catalog.pg_cast c LEFT JOIN pg_catalog.pg_proc p\n"
             "     ON c.castfunc = p.oid\n"
             "     LEFT JOIN pg_catalog.pg_type ts\n"
             "     ON c.castsource = ts.oid\n"
             "     LEFT JOIN pg_catalog.pg_namespace ns\n"
             "     ON ns.oid = ts.typnamespace\n"
             "     LEFT JOIN pg_catalog.pg_type tt\n"
             "     ON c.casttarget = tt.oid\n"
             "     LEFT JOIN pg_catalog.pg_namespace nt\n"
             "     ON nt.oid = tt.typnamespace\n");

  if (verbose)
    appendPQExpBufferStr(&buf,
               "     LEFT JOIN pg_catalog.pg_description d\n"
               "     ON d.classoid = c.tableoid AND d.objoid = "
               "c.oid AND d.objsubid = 0\n");

  appendPQExpBufferStr(&buf, "WHERE ( (true");

  /*
   * Match name pattern against either internal or external name of either
   * castsource or casttarget
   */
  processSQLNamePattern(pset.db, &buf, pattern, true, false,
              "ns.nspname", "ts.typname",
              "pg_catalog.format_type(ts.oid, NULL)",
              "pg_catalog.pg_type_is_visible(ts.oid)");

  appendPQExpBufferStr(&buf, ") OR (true");

  processSQLNamePattern(pset.db, &buf, pattern, true, false,
              "nt.nspname", "tt.typname",
              "pg_catalog.format_type(tt.oid, NULL)",
              "pg_catalog.pg_type_is_visible(tt.oid)");

  appendPQExpBufferStr(&buf, ") )\nORDER BY 1, 2;");

  res = PSQLexec(buf.data);
  termPQExpBuffer(&buf);
  if (!res)
    return false;

  myopt.nullPrint = NULL;
  myopt.title = _("List of casts");
  myopt.translate_header = true;
  myopt.translate_columns = translate_columns;
  myopt.n_translate_columns = lengthof(translate_columns);

  printQuery(res, &myopt, pset.queryFout, false, pset.logfile);

  PQclear(res);
  return true;
}

/*
 * \dO
 *
 * Describes collations.
 */
bool
listCollations(const char *pattern, bool verbose, bool showSystem)
{
  PQExpBufferData buf;
  PGresult   *res;
  printQueryOpt myopt = pset.popt;
  static const bool translate_columns[] = {false, false, false, false, false, false};

  if (pset.sversion < 90100)
  {
    char    sverbuf[32];

    psql_error("The server (version %s) does not support collations.\n",
           formatPGVersionNumber(pset.sversion, false,
                     sverbuf, sizeof(sverbuf)));
    return true;
  }

  initPQExpBuffer(&buf);

  printfPQExpBuffer(&buf,
            "SELECT n.nspname AS \"%s\",\n"
            "       c.collname AS \"%s\",\n"
            "       c.collcollate AS \"%s\",\n"
            "       c.collctype AS \"%s\"",
            gettext_noop("Schema"),
            gettext_noop("Name"),
            gettext_noop("Collate"),
            gettext_noop("Ctype"));

  if (pset.sversion >= 100000)
    appendPQExpBuffer(&buf,
              ",\n       CASE c.collprovider WHEN 'd' THEN 'default' WHEN 'c' THEN 'libc' WHEN 'i' THEN 'icu' END AS \"%s\"",
              gettext_noop("Provider"));

  if (verbose)
    appendPQExpBuffer(&buf,
              ",\n       pg_catalog.obj_description(c.oid, 'pg_collation') AS \"%s\"",
              gettext_noop("Description"));

  appendPQExpBufferStr(&buf,
             "\nFROM pg_catalog.pg_collation c, pg_catalog.pg_namespace n\n"
             "WHERE n.oid = c.collnamespace\n");

  if (!showSystem && !pattern)
    appendPQExpBufferStr(&buf, "      AND n.nspname <> 'pg_catalog'\n"
               "      AND n.nspname <> 'information_schema'\n");

  /*
   * Hide collations that aren't usable in the current database's encoding.
   * If you think to change this, note that pg_collation_is_visible rejects
   * unusable collations, so you will need to hack name pattern processing
   * somehow to avoid inconsistent behavior.
   */
  appendPQExpBufferStr(&buf, "      AND c.collencoding IN (-1, pg_catalog.pg_char_to_encoding(pg_catalog.getdatabaseencoding()))\n");

  processSQLNamePattern(pset.db, &buf, pattern, true, false,
              "n.nspname", "c.collname", NULL,
              "pg_catalog.pg_collation_is_visible(c.oid)");

  appendPQExpBufferStr(&buf, "ORDER BY 1, 2;");

  res = PSQLexec(buf.data);
  termPQExpBuffer(&buf);
  if (!res)
    return false;

  myopt.nullPrint = NULL;
  myopt.title = _("List of collations");
  myopt.translate_header = true;
  myopt.translate_columns = translate_columns;
  myopt.n_translate_columns = lengthof(translate_columns);

  printQuery(res, &myopt, pset.queryFout, false, pset.logfile);

  PQclear(res);
  return true;
}

/*
 * \dn
 *
 * Describes schemas (namespaces)
 */
bool
listSchemas(const char *pattern, bool verbose, bool showSystem)
{
  PQExpBufferData buf;
  PGresult   *res;
  printQueryOpt myopt = pset.popt;

  initPQExpBuffer(&buf);
  printfPQExpBuffer(&buf,
            "SELECT n.nspname AS \"%s\",\n"
            "  pg_catalog.pg_get_userbyid(n.nspowner) AS \"%s\"",
            gettext_noop("Name"),
            gettext_noop("Owner"));

  if (verbose)
  {
    appendPQExpBufferStr(&buf, ",\n  ");
    printACLColumn(&buf, "n.nspacl");
    appendPQExpBuffer(&buf,
              ",\n  pg_catalog.obj_description(n.oid, 'pg_namespace') AS \"%s\"",
              gettext_noop("Description"));
  }

  appendPQExpBuffer(&buf,
            "\nFROM pg_catalog.pg_namespace n\n");

  if (!showSystem && !pattern)
    appendPQExpBufferStr(&buf,
               "WHERE n.nspname !~ '^pg_' AND n.nspname <> 'information_schema'\n");

  processSQLNamePattern(pset.db, &buf, pattern,
              !showSystem && !pattern, false,
              NULL, "n.nspname", NULL,
              NULL);

  appendPQExpBufferStr(&buf, "ORDER BY 1;");

  res = PSQLexec(buf.data);
  termPQExpBuffer(&buf);
  if (!res)
    return false;

  myopt.nullPrint = NULL;
  myopt.title = _("List of schemas");
  myopt.translate_header = true;

  printQuery(res, &myopt, pset.queryFout, false, pset.logfile);

  PQclear(res);
  return true;
}

/*
 * \dgr and \dgrt
 *
 * These describe tablegroups. Usage is \dgr[t][+] [tablegroup_name] where the inclusion of 't' additionally describes
 * the tables within each tablegroup and the usage of '+' acts as a toggle for verbosity.
 * Explicit specification of a tablegroup name restricts the output to the contents of that tablegroup.
 *
 * \dgr displays the name and owner for each tablegroup.
 * \dgr+ displays the access privilegs, object description, and group options.
 *
 * \dgrt outputs a row for each relation that is in a tablegroup. In addition to the info about the relations's
 * tablegroup, it also includes the name, relkind, and owner of the table.
 * \dgrt+ also includes the relation's object description and size.

 */
bool
listTablegroups(const char *pattern, bool verbose, bool showRelations)
{
  PQExpBufferData buf;
  PGresult   *res;
  printQueryOpt myopt = pset.popt;

  initPQExpBuffer(&buf);

  // Show relations is true when '\dgrt' or '\dgrt+' is used.
  if (showRelations)
  {
    printfPQExpBuffer(&buf,
            "SELECT grpname AS \"%s\",\n"
            "  pg_catalog.pg_get_userbyid(grpowner) AS \"%s\", \n",
            gettext_noop("Group Name"),
            gettext_noop("Group Owner"));

    // If '+' is included, add the tablegroup's description and options
    if (verbose)
    {
      printACLColumn(&buf, "g.grpacl");
      appendPQExpBuffer(&buf,
                ",\n  pg_catalog.obj_description(g.oid, 'pg_yb_tablegroup') AS \"%s\"",
                gettext_noop("Group Description"));
      appendPQExpBuffer(&buf,
                ",\n  ts.spcname AS \"%s\"",
                gettext_noop("Group Tablespace"));
      appendPQExpBuffer(&buf,
                ",\n  g.grpoptions AS \"%s\",\n",
                gettext_noop("Group Options"));
    }

    // Get info about the table from pg_class
    appendPQExpBuffer(&buf,
            "  c.relname AS \"%s\", \n"
            "  CASE c.relkind"
            " WHEN " CppAsString2(RELKIND_RELATION) " THEN '%s'"
            " WHEN " CppAsString2(RELKIND_VIEW) " THEN '%s'"
            " WHEN " CppAsString2(RELKIND_MATVIEW) " THEN '%s'"
            " WHEN " CppAsString2(RELKIND_INDEX) " THEN '%s'"
            " WHEN " CppAsString2(RELKIND_SEQUENCE) " THEN '%s'"
            " WHEN 's' THEN '%s'"
            " WHEN " CppAsString2(RELKIND_FOREIGN_TABLE) " THEN '%s'"
            " WHEN " CppAsString2(RELKIND_PARTITIONED_TABLE) " THEN '%s'"
            " WHEN " CppAsString2(RELKIND_PARTITIONED_INDEX) " THEN '%s'"
            " END as \"%s\",\n"
            "  pg_catalog.pg_get_userbyid(c.relowner) AS \"%s\"",
            gettext_noop("Name"),
            gettext_noop("table"),
            gettext_noop("view"),
            gettext_noop("materialized view"),
            gettext_noop("index"),
            gettext_noop("sequence"),
            gettext_noop("special"),
            gettext_noop("foreign table"),
            gettext_noop("table"),  /* partitioned table */
            gettext_noop("index"),  /* partitioned index */
            gettext_noop("Type"),
            gettext_noop("Owner"));

    // If '+' is included, add the table's size and description
    if (verbose)
    {
      appendPQExpBuffer(&buf,
                ",\n  pg_catalog.obj_description(c.oid, 'pg_class') AS \"%s\",",
                gettext_noop("Rel Description"));
      appendPQExpBuffer(&buf,
                "\n  pg_catalog.pg_size_pretty(pg_catalog.pg_table_size(c.oid)) as \"%s\"",
                gettext_noop("Size"));
    }
  }
  else
  {
    printfPQExpBuffer(&buf,
            "SELECT g.grpname AS \"%s\",\n"
            "  pg_catalog.pg_get_userbyid(g.grpowner) AS \"%s\"",
            gettext_noop("Name"),
            gettext_noop("Owner"));

    // If '+' is included, add the tablegroup's description and options
    if (verbose)
    {
      appendPQExpBufferStr(&buf, ",\n  ");
      printACLColumn(&buf, "g.grpacl");
      appendPQExpBuffer(&buf,
                ",\n  pg_catalog.obj_description(g.oid, 'pg_yb_tablegroup') AS \"%s\"",
                gettext_noop("Description"));
      appendPQExpBuffer(&buf,
                ",\n  ts.spcname AS \"%s\"",
                gettext_noop("Tablespace"));
      appendPQExpBuffer(&buf,
                ",\n  g.grpoptions AS \"%s\"",
                gettext_noop("Options"));
    }
  }

  appendPQExpBufferStr(&buf,
             "\nFROM pg_catalog.pg_yb_tablegroup g\n");

  if (verbose)
    appendPQExpBufferStr(&buf,
               "\nLEFT JOIN pg_catalog.pg_tablespace ts ON ts.oid = g.grptablespace\n");

  // If 't' is included, need to do the join based on pg_class reloptions
  if (showRelations)
  {
    appendPQExpBufferStr(&buf,
               "\nJOIN (SELECT oid, relname, relkind, relowner, unnest(pg_catalog.pg_class.reloptions) " \
               "AS relopt FROM pg_catalog.pg_class) c");
    appendPQExpBufferStr(&buf,
               "\nON c.relopt LIKE CONCAT('%tablegroup_oid=%', CAST(g.oid AS TEXT), '%')\n");
  }

  processSQLNamePattern(pset.db, &buf, pattern, false, false,
                        NULL, "grpname", NULL, NULL);

  appendPQExpBufferStr(&buf, "ORDER BY 1;");

  res = PSQLexec(buf.data);
  termPQExpBuffer(&buf);
  if (!res)
    return false;

  myopt.nullPrint = NULL;
  if (showRelations)
  {
    myopt.title = _("List of tablegroup tables");
  }
  else
  {
    myopt.title = _("List of tablegroups");
  }

  myopt.translate_header = true;

  printQuery(res, &myopt, pset.queryFout, false, pset.logfile);

  PQclear(res);
  return true;
}

/*
 * \dFp
 * list text search parsers
 */
bool
listTSParsers(const char *pattern, bool verbose)
{
  PQExpBufferData buf;
  PGresult   *res;
  printQueryOpt myopt = pset.popt;

  if (pset.sversion < 80300)
  {
    char    sverbuf[32];

    psql_error("The server (version %s) does not support full text search.\n",
           formatPGVersionNumber(pset.sversion, false,
                     sverbuf, sizeof(sverbuf)));
    return true;
  }

  if (verbose)
    return listTSParsersVerbose(pattern);

  initPQExpBuffer(&buf);

  printfPQExpBuffer(&buf,
            "SELECT\n"
            "  n.nspname as \"%s\",\n"
            "  p.prsname as \"%s\",\n"
            "  pg_catalog.obj_description(p.oid, 'pg_ts_parser') as \"%s\"\n"
            "FROM pg_catalog.pg_ts_parser p\n"
            "LEFT JOIN pg_catalog.pg_namespace n ON n.oid = p.prsnamespace\n",
            gettext_noop("Schema"),
            gettext_noop("Name"),
            gettext_noop("Description")
    );

  processSQLNamePattern(pset.db, &buf, pattern, false, false,
              "n.nspname", "p.prsname", NULL,
              "pg_catalog.pg_ts_parser_is_visible(p.oid)");

  appendPQExpBufferStr(&buf, "ORDER BY 1, 2;");

  res = PSQLexec(buf.data);
  termPQExpBuffer(&buf);
  if (!res)
    return false;

  myopt.nullPrint = NULL;
  myopt.title = _("List of text search parsers");
  myopt.translate_header = true;

  printQuery(res, &myopt, pset.queryFout, false, pset.logfile);

  PQclear(res);
  return true;
}

/*
 * full description of parsers
 */
static bool
listTSParsersVerbose(const char *pattern)
{
  PQExpBufferData buf;
  PGresult   *res;
  int     i;

  initPQExpBuffer(&buf);

  printfPQExpBuffer(&buf,
            "SELECT p.oid,\n"
            "  n.nspname,\n"
            "  p.prsname\n"
            "FROM pg_catalog.pg_ts_parser p\n"
            "LEFT JOIN pg_catalog.pg_namespace n ON n.oid = p.prsnamespace\n"
    );

  processSQLNamePattern(pset.db, &buf, pattern, false, false,
              "n.nspname", "p.prsname", NULL,
              "pg_catalog.pg_ts_parser_is_visible(p.oid)");

  appendPQExpBufferStr(&buf, "ORDER BY 1, 2;");

  res = PSQLexec(buf.data);
  termPQExpBuffer(&buf);
  if (!res)
    return false;

  if (PQntuples(res) == 0)
  {
    if (!pset.quiet)
    {
      if (pattern)
        psql_error("Did not find any text search parser named \"%s\".\n",
               pattern);
      else
        psql_error("Did not find any text search parsers.\n");
    }
    PQclear(res);
    return false;
  }

  for (i = 0; i < PQntuples(res); i++)
  {
    const char *oid;
    const char *nspname = NULL;
    const char *prsname;

    oid = PQgetvalue(res, i, 0);
    if (!PQgetisnull(res, i, 1))
      nspname = PQgetvalue(res, i, 1);
    prsname = PQgetvalue(res, i, 2);

    if (!describeOneTSParser(oid, nspname, prsname))
    {
      PQclear(res);
      return false;
    }

    if (cancel_pressed)
    {
      PQclear(res);
      return false;
    }
  }

  PQclear(res);
  return true;
}

static bool
describeOneTSParser(const char *oid, const char *nspname, const char *prsname)
{
  PQExpBufferData buf;
  PGresult   *res;
  PQExpBufferData title;
  printQueryOpt myopt = pset.popt;
  static const bool translate_columns[] = {true, false, false};

  initPQExpBuffer(&buf);

  printfPQExpBuffer(&buf,
            "SELECT '%s' AS \"%s\",\n"
            "   p.prsstart::pg_catalog.regproc AS \"%s\",\n"
            "   pg_catalog.obj_description(p.prsstart, 'pg_proc') as \"%s\"\n"
            " FROM pg_catalog.pg_ts_parser p\n"
            " WHERE p.oid = '%s'\n"
            "UNION ALL\n"
            "SELECT '%s',\n"
            "   p.prstoken::pg_catalog.regproc,\n"
            "   pg_catalog.obj_description(p.prstoken, 'pg_proc')\n"
            " FROM pg_catalog.pg_ts_parser p\n"
            " WHERE p.oid = '%s'\n"
            "UNION ALL\n"
            "SELECT '%s',\n"
            "   p.prsend::pg_catalog.regproc,\n"
            "   pg_catalog.obj_description(p.prsend, 'pg_proc')\n"
            " FROM pg_catalog.pg_ts_parser p\n"
            " WHERE p.oid = '%s'\n"
            "UNION ALL\n"
            "SELECT '%s',\n"
            "   p.prsheadline::pg_catalog.regproc,\n"
            "   pg_catalog.obj_description(p.prsheadline, 'pg_proc')\n"
            " FROM pg_catalog.pg_ts_parser p\n"
            " WHERE p.oid = '%s'\n"
            "UNION ALL\n"
            "SELECT '%s',\n"
            "   p.prslextype::pg_catalog.regproc,\n"
            "   pg_catalog.obj_description(p.prslextype, 'pg_proc')\n"
            " FROM pg_catalog.pg_ts_parser p\n"
            " WHERE p.oid = '%s';",
            gettext_noop("Start parse"),
            gettext_noop("Method"),
            gettext_noop("Function"),
            gettext_noop("Description"),
            oid,
            gettext_noop("Get next token"),
            oid,
            gettext_noop("End parse"),
            oid,
            gettext_noop("Get headline"),
            oid,
            gettext_noop("Get token types"),
            oid);

  res = PSQLexec(buf.data);
  termPQExpBuffer(&buf);
  if (!res)
    return false;

  myopt.nullPrint = NULL;
  initPQExpBuffer(&title);
  if (nspname)
    printfPQExpBuffer(&title, _("Text search parser \"%s.%s\""),
              nspname, prsname);
  else
    printfPQExpBuffer(&title, _("Text search parser \"%s\""), prsname);
  myopt.title = title.data;
  myopt.footers = NULL;
  myopt.topt.default_footer = false;
  myopt.translate_header = true;
  myopt.translate_columns = translate_columns;
  myopt.n_translate_columns = lengthof(translate_columns);

  printQuery(res, &myopt, pset.queryFout, false, pset.logfile);

  PQclear(res);

  initPQExpBuffer(&buf);

  printfPQExpBuffer(&buf,
            "SELECT t.alias as \"%s\",\n"
            "  t.description as \"%s\"\n"
            "FROM pg_catalog.ts_token_type( '%s'::pg_catalog.oid ) as t\n"
            "ORDER BY 1;",
            gettext_noop("Token name"),
            gettext_noop("Description"),
            oid);

  res = PSQLexec(buf.data);
  termPQExpBuffer(&buf);
  if (!res)
    return false;

  myopt.nullPrint = NULL;
  if (nspname)
    printfPQExpBuffer(&title, _("Token types for parser \"%s.%s\""),
              nspname, prsname);
  else
    printfPQExpBuffer(&title, _("Token types for parser \"%s\""), prsname);
  myopt.title = title.data;
  myopt.footers = NULL;
  myopt.topt.default_footer = true;
  myopt.translate_header = true;
  myopt.translate_columns = NULL;
  myopt.n_translate_columns = 0;

  printQuery(res, &myopt, pset.queryFout, false, pset.logfile);

  termPQExpBuffer(&title);
  PQclear(res);
  return true;
}


/*
 * \dFd
 * list text search dictionaries
 */
bool
listTSDictionaries(const char *pattern, bool verbose)
{
  PQExpBufferData buf;
  PGresult   *res;
  printQueryOpt myopt = pset.popt;

  if (pset.sversion < 80300)
  {
    char    sverbuf[32];

    psql_error("The server (version %s) does not support full text search.\n",
           formatPGVersionNumber(pset.sversion, false,
                     sverbuf, sizeof(sverbuf)));
    return true;
  }

  initPQExpBuffer(&buf);

  printfPQExpBuffer(&buf,
            "SELECT\n"
            "  n.nspname as \"%s\",\n"
            "  d.dictname as \"%s\",\n",
            gettext_noop("Schema"),
            gettext_noop("Name"));

  if (verbose)
  {
    appendPQExpBuffer(&buf,
              "  ( SELECT COALESCE(nt.nspname, '(null)')::pg_catalog.text || '.' || t.tmplname FROM\n"
              "    pg_catalog.pg_ts_template t\n"
              "    LEFT JOIN pg_catalog.pg_namespace nt ON nt.oid = t.tmplnamespace\n"
              "    WHERE d.dicttemplate = t.oid ) AS  \"%s\",\n"
              "  d.dictinitoption as \"%s\",\n",
              gettext_noop("Template"),
              gettext_noop("Init options"));
  }

  appendPQExpBuffer(&buf,
            "  pg_catalog.obj_description(d.oid, 'pg_ts_dict') as \"%s\"\n",
            gettext_noop("Description"));

  appendPQExpBufferStr(&buf, "FROM pg_catalog.pg_ts_dict d\n"
             "LEFT JOIN pg_catalog.pg_namespace n ON n.oid = d.dictnamespace\n");

  processSQLNamePattern(pset.db, &buf, pattern, false, false,
              "n.nspname", "d.dictname", NULL,
              "pg_catalog.pg_ts_dict_is_visible(d.oid)");

  appendPQExpBufferStr(&buf, "ORDER BY 1, 2;");

  res = PSQLexec(buf.data);
  termPQExpBuffer(&buf);
  if (!res)
    return false;

  myopt.nullPrint = NULL;
  myopt.title = _("List of text search dictionaries");
  myopt.translate_header = true;

  printQuery(res, &myopt, pset.queryFout, false, pset.logfile);

  PQclear(res);
  return true;
}


/*
 * \dFt
 * list text search templates
 */
bool
listTSTemplates(const char *pattern, bool verbose)
{
  PQExpBufferData buf;
  PGresult   *res;
  printQueryOpt myopt = pset.popt;

  if (pset.sversion < 80300)
  {
    char    sverbuf[32];

    psql_error("The server (version %s) does not support full text search.\n",
           formatPGVersionNumber(pset.sversion, false,
                     sverbuf, sizeof(sverbuf)));
    return true;
  }

  initPQExpBuffer(&buf);

  if (verbose)
    printfPQExpBuffer(&buf,
              "SELECT\n"
              "  n.nspname AS \"%s\",\n"
              "  t.tmplname AS \"%s\",\n"
              "  t.tmplinit::pg_catalog.regproc AS \"%s\",\n"
              "  t.tmpllexize::pg_catalog.regproc AS \"%s\",\n"
              "  pg_catalog.obj_description(t.oid, 'pg_ts_template') AS \"%s\"\n",
              gettext_noop("Schema"),
              gettext_noop("Name"),
              gettext_noop("Init"),
              gettext_noop("Lexize"),
              gettext_noop("Description"));
  else
    printfPQExpBuffer(&buf,
              "SELECT\n"
              "  n.nspname AS \"%s\",\n"
              "  t.tmplname AS \"%s\",\n"
              "  pg_catalog.obj_description(t.oid, 'pg_ts_template') AS \"%s\"\n",
              gettext_noop("Schema"),
              gettext_noop("Name"),
              gettext_noop("Description"));

  appendPQExpBufferStr(&buf, "FROM pg_catalog.pg_ts_template t\n"
             "LEFT JOIN pg_catalog.pg_namespace n ON n.oid = t.tmplnamespace\n");

  processSQLNamePattern(pset.db, &buf, pattern, false, false,
              "n.nspname", "t.tmplname", NULL,
              "pg_catalog.pg_ts_template_is_visible(t.oid)");

  appendPQExpBufferStr(&buf, "ORDER BY 1, 2;");

  res = PSQLexec(buf.data);
  termPQExpBuffer(&buf);
  if (!res)
    return false;

  myopt.nullPrint = NULL;
  myopt.title = _("List of text search templates");
  myopt.translate_header = true;

  printQuery(res, &myopt, pset.queryFout, false, pset.logfile);

  PQclear(res);
  return true;
}


/*
 * \dF
 * list text search configurations
 */
bool
listTSConfigs(const char *pattern, bool verbose)
{
  PQExpBufferData buf;
  PGresult   *res;
  printQueryOpt myopt = pset.popt;

  if (pset.sversion < 80300)
  {
    char    sverbuf[32];

    psql_error("The server (version %s) does not support full text search.\n",
           formatPGVersionNumber(pset.sversion, false,
                     sverbuf, sizeof(sverbuf)));
    return true;
  }

  if (verbose)
    return listTSConfigsVerbose(pattern);

  initPQExpBuffer(&buf);

  printfPQExpBuffer(&buf,
            "SELECT\n"
            "   n.nspname as \"%s\",\n"
            "   c.cfgname as \"%s\",\n"
            "   pg_catalog.obj_description(c.oid, 'pg_ts_config') as \"%s\"\n"
            "FROM pg_catalog.pg_ts_config c\n"
            "LEFT JOIN pg_catalog.pg_namespace n ON n.oid = c.cfgnamespace\n",
            gettext_noop("Schema"),
            gettext_noop("Name"),
            gettext_noop("Description")
    );

  processSQLNamePattern(pset.db, &buf, pattern, false, false,
              "n.nspname", "c.cfgname", NULL,
              "pg_catalog.pg_ts_config_is_visible(c.oid)");

  appendPQExpBufferStr(&buf, "ORDER BY 1, 2;");

  res = PSQLexec(buf.data);
  termPQExpBuffer(&buf);
  if (!res)
    return false;

  myopt.nullPrint = NULL;
  myopt.title = _("List of text search configurations");
  myopt.translate_header = true;

  printQuery(res, &myopt, pset.queryFout, false, pset.logfile);

  PQclear(res);
  return true;
}

static bool
listTSConfigsVerbose(const char *pattern)
{
  PQExpBufferData buf;
  PGresult   *res;
  int     i;

  initPQExpBuffer(&buf);

  printfPQExpBuffer(&buf,
            "SELECT c.oid, c.cfgname,\n"
            "   n.nspname,\n"
            "   p.prsname,\n"
            "   np.nspname as pnspname\n"
            "FROM pg_catalog.pg_ts_config c\n"
            "   LEFT JOIN pg_catalog.pg_namespace n ON n.oid = c.cfgnamespace,\n"
            " pg_catalog.pg_ts_parser p\n"
            "   LEFT JOIN pg_catalog.pg_namespace np ON np.oid = p.prsnamespace\n"
            "WHERE  p.oid = c.cfgparser\n"
    );

  processSQLNamePattern(pset.db, &buf, pattern, true, false,
              "n.nspname", "c.cfgname", NULL,
              "pg_catalog.pg_ts_config_is_visible(c.oid)");

  appendPQExpBufferStr(&buf, "ORDER BY 3, 2;");

  res = PSQLexec(buf.data);
  termPQExpBuffer(&buf);
  if (!res)
    return false;

  if (PQntuples(res) == 0)
  {
    if (!pset.quiet)
    {
      if (pattern)
        psql_error("Did not find any text search configuration named \"%s\".\n",
               pattern);
      else
        psql_error("Did not find any text search configurations.\n");
    }
    PQclear(res);
    return false;
  }

  for (i = 0; i < PQntuples(res); i++)
  {
    const char *oid;
    const char *cfgname;
    const char *nspname = NULL;
    const char *prsname;
    const char *pnspname = NULL;

    oid = PQgetvalue(res, i, 0);
    cfgname = PQgetvalue(res, i, 1);
    if (!PQgetisnull(res, i, 2))
      nspname = PQgetvalue(res, i, 2);
    prsname = PQgetvalue(res, i, 3);
    if (!PQgetisnull(res, i, 4))
      pnspname = PQgetvalue(res, i, 4);

    if (!describeOneTSConfig(oid, nspname, cfgname, pnspname, prsname))
    {
      PQclear(res);
      return false;
    }

    if (cancel_pressed)
    {
      PQclear(res);
      return false;
    }
  }

  PQclear(res);
  return true;
}

static bool
describeOneTSConfig(const char *oid, const char *nspname, const char *cfgname,
          const char *pnspname, const char *prsname)
{
  PQExpBufferData buf,
        title;
  PGresult   *res;
  printQueryOpt myopt = pset.popt;

  initPQExpBuffer(&buf);

  printfPQExpBuffer(&buf,
            "SELECT\n"
            "  ( SELECT t.alias FROM\n"
            "    pg_catalog.ts_token_type(c.cfgparser) AS t\n"
            "    WHERE t.tokid = m.maptokentype ) AS \"%s\",\n"
            "  pg_catalog.btrim(\n"
            "    ARRAY( SELECT mm.mapdict::pg_catalog.regdictionary\n"
            "           FROM pg_catalog.pg_ts_config_map AS mm\n"
            "           WHERE mm.mapcfg = m.mapcfg AND mm.maptokentype = m.maptokentype\n"
            "           ORDER BY mapcfg, maptokentype, mapseqno\n"
            "    ) :: pg_catalog.text,\n"
            "  '{}') AS \"%s\"\n"
            "FROM pg_catalog.pg_ts_config AS c, pg_catalog.pg_ts_config_map AS m\n"
            "WHERE c.oid = '%s' AND m.mapcfg = c.oid\n"
            "GROUP BY m.mapcfg, m.maptokentype, c.cfgparser\n"
            "ORDER BY 1;",
            gettext_noop("Token"),
            gettext_noop("Dictionaries"),
            oid);

  res = PSQLexec(buf.data);
  termPQExpBuffer(&buf);
  if (!res)
    return false;

  initPQExpBuffer(&title);

  if (nspname)
    appendPQExpBuffer(&title, _("Text search configuration \"%s.%s\""),
              nspname, cfgname);
  else
    appendPQExpBuffer(&title, _("Text search configuration \"%s\""),
              cfgname);

  if (pnspname)
    appendPQExpBuffer(&title, _("\nParser: \"%s.%s\""),
              pnspname, prsname);
  else
    appendPQExpBuffer(&title, _("\nParser: \"%s\""),
              prsname);

  myopt.nullPrint = NULL;
  myopt.title = title.data;
  myopt.footers = NULL;
  myopt.topt.default_footer = false;
  myopt.translate_header = true;

  printQuery(res, &myopt, pset.queryFout, false, pset.logfile);

  termPQExpBuffer(&title);

  PQclear(res);
  return true;
}


/*
 * \dew
 *
 * Describes foreign-data wrappers
 */
bool
listForeignDataWrappers(const char *pattern, bool verbose)
{
  PQExpBufferData buf;
  PGresult   *res;
  printQueryOpt myopt = pset.popt;

  if (pset.sversion < 80400)
  {
    char    sverbuf[32];

    psql_error("The server (version %s) does not support foreign-data wrappers.\n",
           formatPGVersionNumber(pset.sversion, false,
                     sverbuf, sizeof(sverbuf)));
    return true;
  }

  initPQExpBuffer(&buf);
  printfPQExpBuffer(&buf,
            "SELECT fdw.fdwname AS \"%s\",\n"
            "  pg_catalog.pg_get_userbyid(fdw.fdwowner) AS \"%s\",\n",
            gettext_noop("Name"),
            gettext_noop("Owner"));
  if (pset.sversion >= 90100)
    appendPQExpBuffer(&buf,
              "  fdw.fdwhandler::pg_catalog.regproc AS \"%s\",\n",
              gettext_noop("Handler"));
  appendPQExpBuffer(&buf,
            "  fdw.fdwvalidator::pg_catalog.regproc AS \"%s\"",
            gettext_noop("Validator"));

  if (verbose)
  {
    appendPQExpBufferStr(&buf, ",\n  ");
    printACLColumn(&buf, "fdwacl");
    appendPQExpBuffer(&buf,
              ",\n CASE WHEN fdwoptions IS NULL THEN '' ELSE "
              "  '(' || pg_catalog.array_to_string(ARRAY(SELECT "
              "  pg_catalog.quote_ident(option_name) ||  ' ' || "
              "  pg_catalog.quote_literal(option_value)  FROM "
              "  pg_catalog.pg_options_to_table(fdwoptions)),  ', ') || ')' "
              "  END AS \"%s\"",
              gettext_noop("FDW options"));

    if (pset.sversion >= 90100)
      appendPQExpBuffer(&buf,
                ",\n  d.description AS \"%s\" ",
                gettext_noop("Description"));
  }

  appendPQExpBufferStr(&buf, "\nFROM pg_catalog.pg_foreign_data_wrapper fdw\n");

  if (verbose && pset.sversion >= 90100)
    appendPQExpBufferStr(&buf,
               "LEFT JOIN pg_catalog.pg_description d\n"
               "       ON d.classoid = fdw.tableoid "
               "AND d.objoid = fdw.oid AND d.objsubid = 0\n");

  processSQLNamePattern(pset.db, &buf, pattern, false, false,
              NULL, "fdwname", NULL, NULL);

  appendPQExpBufferStr(&buf, "ORDER BY 1;");

  res = PSQLexec(buf.data);
  termPQExpBuffer(&buf);
  if (!res)
    return false;

  myopt.nullPrint = NULL;
  myopt.title = _("List of foreign-data wrappers");
  myopt.translate_header = true;

  printQuery(res, &myopt, pset.queryFout, false, pset.logfile);

  PQclear(res);
  return true;
}

/*
 * \des
 *
 * Describes foreign servers.
 */
bool
listForeignServers(const char *pattern, bool verbose)
{
  PQExpBufferData buf;
  PGresult   *res;
  printQueryOpt myopt = pset.popt;

  if (pset.sversion < 80400)
  {
    char    sverbuf[32];

    psql_error("The server (version %s) does not support foreign servers.\n",
           formatPGVersionNumber(pset.sversion, false,
                     sverbuf, sizeof(sverbuf)));
    return true;
  }

  initPQExpBuffer(&buf);
  printfPQExpBuffer(&buf,
            "SELECT s.srvname AS \"%s\",\n"
            "  pg_catalog.pg_get_userbyid(s.srvowner) AS \"%s\",\n"
            "  f.fdwname AS \"%s\"",
            gettext_noop("Name"),
            gettext_noop("Owner"),
            gettext_noop("Foreign-data wrapper"));

  if (verbose)
  {
    appendPQExpBufferStr(&buf, ",\n  ");
    printACLColumn(&buf, "s.srvacl");
    appendPQExpBuffer(&buf,
              ",\n"
              "  s.srvtype AS \"%s\",\n"
              "  s.srvversion AS \"%s\",\n"
              "  CASE WHEN srvoptions IS NULL THEN '' ELSE "
              "  '(' || pg_catalog.array_to_string(ARRAY(SELECT "
              "  pg_catalog.quote_ident(option_name) ||  ' ' || "
              "  pg_catalog.quote_literal(option_value)  FROM "
              "  pg_catalog.pg_options_to_table(srvoptions)),  ', ') || ')' "
              "  END AS \"%s\",\n"
              "  d.description AS \"%s\"",
              gettext_noop("Type"),
              gettext_noop("Version"),
              gettext_noop("FDW options"),
              gettext_noop("Description"));
  }

  appendPQExpBufferStr(&buf,
             "\nFROM pg_catalog.pg_foreign_server s\n"
             "     JOIN pg_catalog.pg_foreign_data_wrapper f ON f.oid=s.srvfdw\n");

  if (verbose)
    appendPQExpBufferStr(&buf,
               "LEFT JOIN pg_catalog.pg_description d\n       "
               "ON d.classoid = s.tableoid AND d.objoid = s.oid "
               "AND d.objsubid = 0\n");

  processSQLNamePattern(pset.db, &buf, pattern, false, false,
              NULL, "s.srvname", NULL, NULL);

  appendPQExpBufferStr(&buf, "ORDER BY 1;");

  res = PSQLexec(buf.data);
  termPQExpBuffer(&buf);
  if (!res)
    return false;

  myopt.nullPrint = NULL;
  myopt.title = _("List of foreign servers");
  myopt.translate_header = true;

  printQuery(res, &myopt, pset.queryFout, false, pset.logfile);

  PQclear(res);
  return true;
}

/*
 * \deu
 *
 * Describes user mappings.
 */
bool
listUserMappings(const char *pattern, bool verbose)
{
  PQExpBufferData buf;
  PGresult   *res;
  printQueryOpt myopt = pset.popt;

  if (pset.sversion < 80400)
  {
    char    sverbuf[32];

    psql_error("The server (version %s) does not support user mappings.\n",
           formatPGVersionNumber(pset.sversion, false,
                     sverbuf, sizeof(sverbuf)));
    return true;
  }

  initPQExpBuffer(&buf);
  printfPQExpBuffer(&buf,
            "SELECT um.srvname AS \"%s\",\n"
            "  um.usename AS \"%s\"",
            gettext_noop("Server"),
            gettext_noop("User name"));

  if (verbose)
    appendPQExpBuffer(&buf,
              ",\n CASE WHEN umoptions IS NULL THEN '' ELSE "
              "  '(' || pg_catalog.array_to_string(ARRAY(SELECT "
              "  pg_catalog.quote_ident(option_name) ||  ' ' || "
              "  pg_catalog.quote_literal(option_value)  FROM "
              "  pg_catalog.pg_options_to_table(umoptions)),  ', ') || ')' "
              "  END AS \"%s\"",
              gettext_noop("FDW options"));

  appendPQExpBufferStr(&buf, "\nFROM pg_catalog.pg_user_mappings um\n");

  processSQLNamePattern(pset.db, &buf, pattern, false, false,
              NULL, "um.srvname", "um.usename", NULL);

  appendPQExpBufferStr(&buf, "ORDER BY 1, 2;");

  res = PSQLexec(buf.data);
  termPQExpBuffer(&buf);
  if (!res)
    return false;

  myopt.nullPrint = NULL;
  myopt.title = _("List of user mappings");
  myopt.translate_header = true;

  printQuery(res, &myopt, pset.queryFout, false, pset.logfile);

  PQclear(res);
  return true;
}

/*
 * \det
 *
 * Describes foreign tables.
 */
bool
listForeignTables(const char *pattern, bool verbose)
{
  PQExpBufferData buf;
  PGresult   *res;
  printQueryOpt myopt = pset.popt;

  if (pset.sversion < 90100)
  {
    char    sverbuf[32];

    psql_error("The server (version %s) does not support foreign tables.\n",
           formatPGVersionNumber(pset.sversion, false,
                     sverbuf, sizeof(sverbuf)));
    return true;
  }

  initPQExpBuffer(&buf);
  printfPQExpBuffer(&buf,
            "SELECT n.nspname AS \"%s\",\n"
            "  c.relname AS \"%s\",\n"
            "  s.srvname AS \"%s\"",
            gettext_noop("Schema"),
            gettext_noop("Table"),
            gettext_noop("Server"));

  if (verbose)
    appendPQExpBuffer(&buf,
              ",\n CASE WHEN ftoptions IS NULL THEN '' ELSE "
              "  '(' || pg_catalog.array_to_string(ARRAY(SELECT "
              "  pg_catalog.quote_ident(option_name) ||  ' ' || "
              "  pg_catalog.quote_literal(option_value)  FROM "
              "  pg_catalog.pg_options_to_table(ftoptions)),  ', ') || ')' "
              "  END AS \"%s\",\n"
              "  d.description AS \"%s\"",
              gettext_noop("FDW options"),
              gettext_noop("Description"));

  appendPQExpBufferStr(&buf,
             "\nFROM pg_catalog.pg_foreign_table ft\n"
             "  INNER JOIN pg_catalog.pg_class c"
             " ON c.oid = ft.ftrelid\n"
             "  INNER JOIN pg_catalog.pg_namespace n"
             " ON n.oid = c.relnamespace\n"
             "  INNER JOIN pg_catalog.pg_foreign_server s"
             " ON s.oid = ft.ftserver\n");
  if (verbose)
    appendPQExpBufferStr(&buf,
               "   LEFT JOIN pg_catalog.pg_description d\n"
               "          ON d.classoid = c.tableoid AND "
               "d.objoid = c.oid AND d.objsubid = 0\n");

  processSQLNamePattern(pset.db, &buf, pattern, false, false,
              "n.nspname", "c.relname", NULL,
              "pg_catalog.pg_table_is_visible(c.oid)");

  appendPQExpBufferStr(&buf, "ORDER BY 1, 2;");

  res = PSQLexec(buf.data);
  termPQExpBuffer(&buf);
  if (!res)
    return false;

  myopt.nullPrint = NULL;
  myopt.title = _("List of foreign tables");
  myopt.translate_header = true;

  printQuery(res, &myopt, pset.queryFout, false, pset.logfile);

  PQclear(res);
  return true;
}

/*
 * \dx
 *
 * Briefly describes installed extensions.
 */
bool
listExtensions(const char *pattern)
{
  PQExpBufferData buf;
  PGresult   *res;
  printQueryOpt myopt = pset.popt;

  if (pset.sversion < 90100)
  {
    char    sverbuf[32];

    psql_error("The server (version %s) does not support extensions.\n",
           formatPGVersionNumber(pset.sversion, false,
                     sverbuf, sizeof(sverbuf)));
    return true;
  }

  initPQExpBuffer(&buf);
  printfPQExpBuffer(&buf,
            "SELECT e.extname AS \"%s\", "
            "e.extversion AS \"%s\", n.nspname AS \"%s\", c.description AS \"%s\"\n"
            "FROM pg_catalog.pg_extension e "
            "LEFT JOIN pg_catalog.pg_namespace n ON n.oid = e.extnamespace "
            "LEFT JOIN pg_catalog.pg_description c ON c.objoid = e.oid "
            "AND c.classoid = 'pg_catalog.pg_extension'::pg_catalog.regclass\n",
            gettext_noop("Name"),
            gettext_noop("Version"),
            gettext_noop("Schema"),
            gettext_noop("Description"));

  processSQLNamePattern(pset.db, &buf, pattern,
              false, false,
              NULL, "e.extname", NULL,
              NULL);

  appendPQExpBufferStr(&buf, "ORDER BY 1;");

  res = PSQLexec(buf.data);
  termPQExpBuffer(&buf);
  if (!res)
    return false;

  myopt.nullPrint = NULL;
  myopt.title = _("List of installed extensions");
  myopt.translate_header = true;

  printQuery(res, &myopt, pset.queryFout, false, pset.logfile);

  PQclear(res);
  return true;
}

/*
 * \dx+
 *
 * List contents of installed extensions.
 */
bool
listExtensionContents(const char *pattern)
{
  PQExpBufferData buf;
  PGresult   *res;
  int     i;

  if (pset.sversion < 90100)
  {
    char    sverbuf[32];

    psql_error("The server (version %s) does not support extensions.\n",
           formatPGVersionNumber(pset.sversion, false,
                     sverbuf, sizeof(sverbuf)));
    return true;
  }

  initPQExpBuffer(&buf);
  printfPQExpBuffer(&buf,
            "SELECT e.extname, e.oid\n"
            "FROM pg_catalog.pg_extension e\n");

  processSQLNamePattern(pset.db, &buf, pattern,
              false, false,
              NULL, "e.extname", NULL,
              NULL);

  appendPQExpBufferStr(&buf, "ORDER BY 1;");

  res = PSQLexec(buf.data);
  termPQExpBuffer(&buf);
  if (!res)
    return false;

  if (PQntuples(res) == 0)
  {
    if (!pset.quiet)
    {
      if (pattern)
        psql_error("Did not find any extension named \"%s\".\n",
               pattern);
      else
        psql_error("Did not find any extensions.\n");
    }
    PQclear(res);
    return false;
  }

  for (i = 0; i < PQntuples(res); i++)
  {
    const char *extname;
    const char *oid;

    extname = PQgetvalue(res, i, 0);
    oid = PQgetvalue(res, i, 1);

    if (!listOneExtensionContents(extname, oid))
    {
      PQclear(res);
      return false;
    }
    if (cancel_pressed)
    {
      PQclear(res);
      return false;
    }
  }

  PQclear(res);
  return true;
}

static bool
listOneExtensionContents(const char *extname, const char *oid)
{
  PQExpBufferData buf;
  PGresult   *res;
  PQExpBufferData title;
  printQueryOpt myopt = pset.popt;

  initPQExpBuffer(&buf);
  printfPQExpBuffer(&buf,
            "SELECT pg_catalog.pg_describe_object(classid, objid, 0) AS \"%s\"\n"
            "FROM pg_catalog.pg_depend\n"
            "WHERE refclassid = 'pg_catalog.pg_extension'::pg_catalog.regclass AND refobjid = '%s' AND deptype = 'e'\n"
            "ORDER BY 1;",
            gettext_noop("Object description"),
            oid);

  res = PSQLexec(buf.data);
  termPQExpBuffer(&buf);
  if (!res)
    return false;

  myopt.nullPrint = NULL;
  initPQExpBuffer(&title);
  printfPQExpBuffer(&title, _("Objects in extension \"%s\""), extname);
  myopt.title = title.data;
  myopt.translate_header = true;

  printQuery(res, &myopt, pset.queryFout, false, pset.logfile);

  termPQExpBuffer(&title);
  PQclear(res);
  return true;
}

/*
 * \dRp
 * Lists publications.
 *
 * Takes an optional regexp to select particular publications
 */
bool
listPublications(const char *pattern)
{
  PQExpBufferData buf;
  PGresult   *res;
  printQueryOpt myopt = pset.popt;
  static const bool translate_columns[] = {false, false, false, false, false, false, false};

  if (pset.sversion < 100000)
  {
    char    sverbuf[32];

    psql_error("The server (version %s) does not support publications.\n",
           formatPGVersionNumber(pset.sversion, false,
                     sverbuf, sizeof(sverbuf)));
    return true;
  }

  initPQExpBuffer(&buf);

  printfPQExpBuffer(&buf,
            "SELECT pubname AS \"%s\",\n"
            "  pg_catalog.pg_get_userbyid(pubowner) AS \"%s\",\n"
            "  puballtables AS \"%s\",\n"
            "  pubinsert AS \"%s\",\n"
            "  pubupdate AS \"%s\",\n"
            "  pubdelete AS \"%s\"",
            gettext_noop("Name"),
            gettext_noop("Owner"),
            gettext_noop("All tables"),
            gettext_noop("Inserts"),
            gettext_noop("Updates"),
            gettext_noop("Deletes"));
  if (pset.sversion >= 110000)
    appendPQExpBuffer(&buf,
              ",\n  pubtruncate AS \"%s\"",
              gettext_noop("Truncates"));

  appendPQExpBufferStr(&buf,
             "\nFROM pg_catalog.pg_publication\n");

  processSQLNamePattern(pset.db, &buf, pattern, false, false,
              NULL, "pubname", NULL,
              NULL);

  appendPQExpBufferStr(&buf, "ORDER BY 1;");

  res = PSQLexec(buf.data);
  termPQExpBuffer(&buf);
  if (!res)
    return false;

  myopt.nullPrint = NULL;
  myopt.title = _("List of publications");
  myopt.translate_header = true;
  myopt.translate_columns = translate_columns;
  myopt.n_translate_columns = lengthof(translate_columns);

  printQuery(res, &myopt, pset.queryFout, false, pset.logfile);

  PQclear(res);

  return true;
}

/*
 * \dRp+
 * Describes publications including the contents.
 *
 * Takes an optional regexp to select particular publications
 */
bool
describePublications(const char *pattern)
{
  PQExpBufferData buf;
  int     i;
  PGresult   *res;
  bool    has_pubtruncate;

  if (pset.sversion < 100000)
  {
    char    sverbuf[32];

    psql_error("The server (version %s) does not support publications.\n",
           formatPGVersionNumber(pset.sversion, false,
                     sverbuf, sizeof(sverbuf)));
    return true;
  }

  has_pubtruncate = (pset.sversion >= 110000);

  initPQExpBuffer(&buf);

  printfPQExpBuffer(&buf,
            "SELECT oid, pubname,\n"
            "  pg_catalog.pg_get_userbyid(pubowner) AS owner,\n"
            "  puballtables, pubinsert, pubupdate, pubdelete");
  if (has_pubtruncate)
    appendPQExpBuffer(&buf,
              ", pubtruncate");
  appendPQExpBuffer(&buf,
            "\nFROM pg_catalog.pg_publication\n");

  processSQLNamePattern(pset.db, &buf, pattern, false, false,
              NULL, "pubname", NULL,
              NULL);

  appendPQExpBufferStr(&buf, "ORDER BY 2;");

  res = PSQLexec(buf.data);
  if (!res)
  {
    termPQExpBuffer(&buf);
    return false;
  }

  if (PQntuples(res) == 0)
  {
    if (!pset.quiet)
    {
      if (pattern)
        psql_error("Did not find any publication named \"%s\".\n",
               pattern);
      else
        psql_error("Did not find any publications.\n");
    }

    termPQExpBuffer(&buf);
    PQclear(res);
    return false;
  }

  for (i = 0; i < PQntuples(res); i++)
  {
    const char  align = 'l';
    int     ncols = 5;
    int     nrows = 1;
    int     tables = 0;
    PGresult   *tabres;
    char     *pubid = PQgetvalue(res, i, 0);
    char     *pubname = PQgetvalue(res, i, 1);
    bool    puballtables = strcmp(PQgetvalue(res, i, 3), "t") == 0;
    int     j;
    PQExpBufferData title;
    printTableOpt myopt = pset.popt.topt;
    printTableContent cont;

    if (has_pubtruncate)
      ncols++;

    initPQExpBuffer(&title);
    printfPQExpBuffer(&title, _("Publication %s"), pubname);
    printTableInit(&cont, &myopt, title.data, ncols, nrows);

    printTableAddHeader(&cont, gettext_noop("Owner"), true, align);
    printTableAddHeader(&cont, gettext_noop("All tables"), true, align);
    printTableAddHeader(&cont, gettext_noop("Inserts"), true, align);
    printTableAddHeader(&cont, gettext_noop("Updates"), true, align);
    printTableAddHeader(&cont, gettext_noop("Deletes"), true, align);
    if (has_pubtruncate)
      printTableAddHeader(&cont, gettext_noop("Truncates"), true, align);

    printTableAddCell(&cont, PQgetvalue(res, i, 2), false, false);
    printTableAddCell(&cont, PQgetvalue(res, i, 3), false, false);
    printTableAddCell(&cont, PQgetvalue(res, i, 4), false, false);
    printTableAddCell(&cont, PQgetvalue(res, i, 5), false, false);
    printTableAddCell(&cont, PQgetvalue(res, i, 6), false, false);
    if (has_pubtruncate)
      printTableAddCell(&cont, PQgetvalue(res, i, 7), false, false);

    if (!puballtables)
    {
      printfPQExpBuffer(&buf,
                "SELECT n.nspname, c.relname\n"
                "FROM pg_catalog.pg_class c,\n"
                "     pg_catalog.pg_namespace n,\n"
                "     pg_catalog.pg_publication_rel pr\n"
                "WHERE c.relnamespace = n.oid\n"
                "  AND c.oid = pr.prrelid\n"
                "  AND pr.prpubid = '%s'\n"
                "ORDER BY 1,2", pubid);

      tabres = PSQLexec(buf.data);
      if (!tabres)
      {
        printTableCleanup(&cont);
        PQclear(res);
        termPQExpBuffer(&buf);
        termPQExpBuffer(&title);
        return false;
      }
      else
        tables = PQntuples(tabres);

      if (tables > 0)
        printTableAddFooter(&cont, _("Tables:"));

      for (j = 0; j < tables; j++)
      {
        printfPQExpBuffer(&buf, "    \"%s.%s\"",
                  PQgetvalue(tabres, j, 0),
                  PQgetvalue(tabres, j, 1));

        printTableAddFooter(&cont, buf.data);
      }
      PQclear(tabres);
    }

    printTable(&cont, pset.queryFout, false, pset.logfile);
    printTableCleanup(&cont);

    termPQExpBuffer(&title);
  }

  termPQExpBuffer(&buf);
  PQclear(res);

  return true;
}

/*
 * \dRs
 * Describes subscriptions.
 *
 * Takes an optional regexp to select particular subscriptions
 */
bool
describeSubscriptions(const char *pattern, bool verbose)
{
  PQExpBufferData buf;
  PGresult   *res;
  printQueryOpt myopt = pset.popt;
  static const bool translate_columns[] = {false, false, false, false,
  false, false};

  if (pset.sversion < 100000)
  {
    char    sverbuf[32];

    psql_error("The server (version %s) does not support subscriptions.\n",
           formatPGVersionNumber(pset.sversion, false,
                     sverbuf, sizeof(sverbuf)));
    return true;
  }

  initPQExpBuffer(&buf);

  printfPQExpBuffer(&buf,
            "SELECT subname AS \"%s\"\n"
            ",  pg_catalog.pg_get_userbyid(subowner) AS \"%s\"\n"
            ",  subenabled AS \"%s\"\n"
            ",  subpublications AS \"%s\"\n",
            gettext_noop("Name"),
            gettext_noop("Owner"),
            gettext_noop("Enabled"),
            gettext_noop("Publication"));

  if (verbose)
  {
    appendPQExpBuffer(&buf,
              ",  subsynccommit AS \"%s\"\n"
              ",  subconninfo AS \"%s\"\n",
              gettext_noop("Synchronous commit"),
              gettext_noop("Conninfo"));
  }

  /* Only display subscriptions in current database. */
  appendPQExpBufferStr(&buf,
             "FROM pg_catalog.pg_subscription\n"
             "WHERE subdbid = (SELECT oid\n"
             "                 FROM pg_catalog.pg_database\n"
             "                 WHERE datname = pg_catalog.current_database())");

  processSQLNamePattern(pset.db, &buf, pattern, true, false,
              NULL, "subname", NULL,
              NULL);

  appendPQExpBufferStr(&buf, "ORDER BY 1;");

  res = PSQLexec(buf.data);
  termPQExpBuffer(&buf);
  if (!res)
    return false;

  myopt.nullPrint = NULL;
  myopt.title = _("List of subscriptions");
  myopt.translate_header = true;
  myopt.translate_columns = translate_columns;
  myopt.n_translate_columns = lengthof(translate_columns);

  printQuery(res, &myopt, pset.queryFout, false, pset.logfile);

  PQclear(res);
  return true;
}

/*
 * printACLColumn
 *
 * Helper function for consistently formatting ACL (privilege) columns.
 * The proper targetlist entry is appended to buf.  Note lack of any
 * whitespace or comma decoration.
 */
static void
printACLColumn(PQExpBuffer buf, const char *colname)
{
  if (pset.sversion >= 80100)
    appendPQExpBuffer(buf,
              "pg_catalog.array_to_string(%s, E'\\n') AS \"%s\"",
              colname, gettext_noop("Access privileges"));
  else
    appendPQExpBuffer(buf,
              "pg_catalog.array_to_string(%s, '\\n') AS \"%s\"",
              colname, gettext_noop("Access privileges"));
}

YugabyteDB (2.13.1.0-b60, 21121d69985fbf76aa6958d8f04a9bfa936293b5)

Coverage Report

Created: 2022-03-22 16:43