Here is a diff of changes to the psql source code implementing a simple

'list domains' command '\dD'. This is the interface component of
rbt@zort.ca's domain backend modifications.

Jonathan Eisler

1 files changed, 49 insertions, 1 deletions

diff --git a/src/bin/psql/describe.c b/src/bin/psql/describe.c
index ef31c5ee90..823755ccd2 100644
--- a/src/bin/psql/describe.c
+++ b/src/bin/psql/describe.c
@@ -3,7 +3,7 @@
  *
  * Copyright 2000 by PostgreSQL Global Development Group
  *
- * $Header: /cvsroot/pgsql/src/bin/psql/describe.c,v 1.43 2002/03/05 02:42:56 momjian Exp $
+ * $Header: /cvsroot/pgsql/src/bin/psql/describe.c,v 1.44 2002/03/06 20:39:45 momjian Exp $
  */
 #include "postgres_fe.h"
 #include "describe.h"
@@ -1036,3 +1036,51 @@ listTables(const char *infotype, const char *name, bool desc)
 	PQclear(res);
 	return true;
 }
+
+/*
+ * \dD [domain]
+ *
+ * Describes domains, possibly based on a simplistic prefix search on the
+ * argument.
+ */
+
+bool
+listDomains(const char *name)
+{
+	char		buf[512 + REGEXP_CUTOFF];
+	PGresult   *res;
+	printQueryOpt myopt = pset.popt;
+
+	snprintf(buf, sizeof(buf),
+		 "SELECT t.typname as \"%s\",\n"
+		 "       format_type( t.typbasetype, t.typmod) as \"%s\",\n"
+		 "       CASE WHEN t.typnotnull AND t.typdefault IS NOT NULL THEN 'not null default '||t.typdefault\n"
+		 "            WHEN t.typnotnull AND t.typdefault IS NULL THEN 'not null'\n"
+		 "            WHEN NOT t.typnotnull AND t.typdefault IS NOT NULL THEN 'default '||t.typdefault\n"
+		 "            ELSE ''\n"
+		 "       END as \"%s\"\n"
+		 "FROM pg_type t\n"
+		 "WHERE t.typtype = 'd'\n",
+		 _("Name"),
+		 _("Type"),
+		 _("Modifier"));
+	if (name)
+	{
+		strcat(buf, "AND t.typname ~ '^");
+		strncat(buf, name, REGEXP_CUTOFF);
+		strcat(buf, "'\n");
+	}
+	strcat(buf, "ORDER BY 1;");
+
+	res = PSQLexec(buf);
+	if (!res)
+		return false;
+
+	myopt.nullPrint = NULL;
+	myopt.title = _("List of database domains");
+
+	printQuery(res, &myopt, pset.queryFout);
+
+	PQclear(res);
+	return true;
+}