mirror of https://github.com/postgres/postgres
- added bigint as synonym of int8 - set typelem of varlen non-array types to 0REL7_1_STABLE
Peter Eisentraut
25 years ago
parent
364985542b
commit
de85dd1d51
@ -0,0 +1,181 @@ |
||||
/* $Header: /cvsroot/pgsql/src/backend/utils/adt/format_type.c,v 1.1 2000/07/07 19:24:37 petere Exp $ */ |
||||
|
||||
#include "postgres.h" |
||||
|
||||
#include <ctype.h> |
||||
#include <stdarg.h> |
||||
|
||||
#include "fmgr.h" |
||||
#include "catalog/pg_type.h" |
||||
#include "utils/builtins.h" |
||||
#include "utils/syscache.h" |
||||
|
||||
#define streq(a, b) (strcmp((a), (b))==0) |
||||
#define MAX_INT32_LEN 11 |
||||
|
||||
|
||||
static char * |
||||
psnprintf(size_t len, const char * fmt, ...) |
||||
{ |
||||
va_list ap; |
||||
char * buf; |
||||
|
||||
buf = palloc(len); |
||||
|
||||
va_start(ap, fmt); |
||||
vsnprintf(buf, len, fmt, ap); |
||||
va_end(ap); |
||||
|
||||
return buf; |
||||
} |
||||
|
||||
|
||||
#define _textin(str) DirectFunctionCall1(textin, CStringGetDatum(str)) |
||||
|
||||
|
||||
/*
|
||||
* SQL function: format_type(type_oid, typemod) |
||||
* |
||||
* `type_oid' is from pg_type.oid, `typemod' is from |
||||
* pg_attribute.atttypmod. This function will get the type name and |
||||
* format it and the modifier to canonical SQL format, if the type is |
||||
* a standard type. Otherwise you just get pg_type.typname back, |
||||
* double quoted if it contains funny characters. |
||||
* |
||||
* If typemod is null (in the SQL sense) then you won't get any |
||||
* "..(x)" type qualifiers. The result is not technically correct, |
||||
* because the various types interpret missing type modifiers |
||||
* differently, but it can be used as a convenient way to format |
||||
* system catalogs, e.g., pg_aggregate, in psql. |
||||
*/ |
||||
Datum |
||||
format_type(PG_FUNCTION_ARGS) |
||||
{ |
||||
Oid type_oid; |
||||
bool with_typemod; |
||||
int32 typemod = 0; |
||||
char * buf; |
||||
char * name; |
||||
Oid array_base_type; |
||||
int16 typlen; |
||||
bool is_array; |
||||
HeapTuple tuple; |
||||
|
||||
if (PG_ARGISNULL(0)) |
||||
PG_RETURN_NULL(); |
||||
|
||||
type_oid = DatumGetObjectId(PG_GETARG_DATUM(0)); |
||||
|
||||
with_typemod = !PG_ARGISNULL(1); |
||||
if (with_typemod) |
||||
typemod = PG_GETARG_INT32(1); |
||||
|
||||
tuple = SearchSysCacheTuple(TYPEOID, ObjectIdGetDatum(type_oid), |
||||
0, 0, 0); |
||||
|
||||
if (!HeapTupleIsValid(tuple)) |
||||
PG_RETURN_TEXT_P(_textin("???")); |
||||
|
||||
array_base_type = ((Form_pg_type) GETSTRUCT(tuple))->typelem; |
||||
typlen = ((Form_pg_type) GETSTRUCT(tuple))->typlen; |
||||
if (array_base_type != 0 && typlen < 0) |
||||
{ |
||||
tuple = SearchSysCacheTuple(TYPEOID, |
||||
ObjectIdGetDatum(array_base_type), |
||||
0, 0, 0); |
||||
if (!HeapTupleIsValid(tuple)) |
||||
PG_RETURN_TEXT_P(_textin("???[]")); |
||||
is_array = true; |
||||
} |
||||
else |
||||
is_array = false; |
||||
|
||||
|
||||
name = NameStr(((Form_pg_type) GETSTRUCT(tuple))->typname); |
||||
|
||||
if (streq(name, "bit")) |
||||
{ |
||||
if (with_typemod) |
||||
buf = psnprintf(5 + MAX_INT32_LEN + 1, "bit(%d)", (int) typemod - 4); |
||||
else |
||||
buf = pstrdup("bit"); |
||||
} |
||||
|
||||
else if (streq(name, "bool")) |
||||
buf = pstrdup("boolean"); |
||||
|
||||
else if (streq(name, "bpchar")) |
||||
{ |
||||
if (with_typemod) |
||||
buf = psnprintf(11 + MAX_INT32_LEN + 1, "character(%d)", (int) typemod - 4); |
||||
else |
||||
buf = pstrdup("character"); |
||||
} |
||||
|
||||
/* This char type is the single-byte version. You have to
|
||||
* double-quote it to get at it in the parser. */ |
||||
else if (streq(name, "char")) |
||||
buf = pstrdup("\"char\""); |
||||
#if 0 |
||||
/* The parser has these backwards, so leave as is for now. */ |
||||
else if (streq(name, "float4")) |
||||
buf = pstrdup("real"); |
||||
|
||||
else if (streq(name, "float8")) |
||||
buf = pstrdup("double precision"); |
||||
#endif |
||||
else if (streq(name, "int2")) |
||||
buf = pstrdup("smallint"); |
||||
|
||||
else if (streq(name, "int4")) |
||||
buf = pstrdup("integer"); |
||||
|
||||
else if (streq(name, "int8")) |
||||
buf = pstrdup("bigint"); |
||||
|
||||
else if (streq(name, "numeric")) |
||||
{ |
||||
if (with_typemod) |
||||
buf = psnprintf(10 + 2 * MAX_INT32_LEN + 1, "numeric(%d,%d)", |
||||
((typemod - VARHDRSZ) >> 16) & 0xffff, |
||||
(typemod - VARHDRSZ) & 0xffff); |
||||
else |
||||
buf = pstrdup("numeric"); |
||||
} |
||||
|
||||
else if (streq(name, "timetz")) |
||||
buf = pstrdup("time with time zone"); |
||||
|
||||
else if (streq(name, "varbit")) |
||||
{ |
||||
if (with_typemod) |
||||
buf = psnprintf(13 + MAX_INT32_LEN + 1, "bit varying(%d)", (int) typemod - 4); |
||||
else |
||||
buf = pstrdup("bit varying"); |
||||
} |
||||
|
||||
else if (streq(name, "varchar")) |
||||
{ |
||||
if (with_typemod) |
||||
buf = psnprintf(19 + MAX_INT32_LEN + 1, "character varying(%d)", (int) typemod - 4); |
||||
else |
||||
buf = pstrdup("character varying"); |
||||
} |
||||
|
||||
else |
||||
{ |
||||
if (strspn(name, "abcdefghijklmnopqrstuvwxyz0123456789_") != strlen(name) |
||||
|| isdigit((int) name[0])) |
||||
buf = psnprintf(strlen(name) + 3, "\"%s\"", name); |
||||
else |
||||
buf = name; |
||||
} |
||||
|
||||
if (is_array) |
||||
{ |
||||
char * buf2 = psnprintf(strlen(buf) + 3, "%s[]", buf); |
||||
buf = buf2; |
||||
} |
||||
|
||||
PG_RETURN_TEXT_P(_textin(buf)); |
||||
} |
||||
Loading…
Reference in new issue