/*
   Copyright (c) 2003-2023 Greg Sabino Mullane and others: see the Changes file
    
   You may distribute under the terms of either the GNU General Public
   License or the Artistic License, as specified in the Perl README file.
*/
/*
    Please do not edit the C portions of this file directly. 
    It is automatically generated by the enclosed Perl script.
*/
#include "Pg.h"
static sql_type_info_t pg_types[] = {
 {PG_ACLITEMARRAY                  ,"_aclitem"                     ,1,',',"array_out"           ,quote_string,dequote_string,{0},0},
 {PG_BITARRAY                      ,"_bit"                         ,1,',',"array_out"           ,quote_string,dequote_string,{0},0},
 {PG_BOOLARRAY                     ,"_bool"                        ,1,',',"array_out"           ,quote_string,dequote_string,{0},3},
 {PG_BOXARRAY                      ,"_box"                         ,1,';',"array_out"           ,quote_string,dequote_string,{0},0},
 {PG_BPCHARARRAY                   ,"_bpchar"                      ,1,',',"array_out"           ,quote_string,dequote_string,{0},0},
 {PG_BYTEAARRAY                    ,"_bytea"                       ,1,',',"array_out"           ,quote_string,dequote_string,{0},0},
 {PG_CHARARRAY                     ,"_char"                        ,1,',',"array_out"           ,quote_string,dequote_string,{0},0},
 {PG_CIDARRAY                      ,"_cid"                         ,1,',',"array_out"           ,quote_string,dequote_string,{0},0},
 {PG_CIDRARRAY                     ,"_cidr"                        ,1,',',"array_out"           ,quote_string,dequote_string,{0},0},
 {PG_CIRCLEARRAY                   ,"_circle"                      ,1,',',"array_out"           ,quote_string,dequote_string,{0},0},
 {PG_CSTRINGARRAY                  ,"_cstring"                     ,1,',',"array_out"           ,quote_string,dequote_string,{0},0},
 {PG_DATEARRAY                     ,"_date"                        ,1,',',"array_out"           ,quote_string,dequote_string,{0},0},
 {PG_DATEMULTIRANGEARRAY           ,"_datemultirange"              ,1,',',"array_out"           ,quote_string,dequote_string,{0},0},
 {PG_DATERANGEARRAY                ,"_daterange"                   ,1,',',"array_out"           ,quote_string,dequote_string,{0},0},
 {PG_FLOAT4ARRAY                   ,"_float4"                      ,1,',',"array_out"           ,quote_string,dequote_string,{0},2},
 {PG_FLOAT8ARRAY                   ,"_float8"                      ,1,',',"array_out"           ,quote_string,dequote_string,{0},2},
 {PG_GTSVECTORARRAY                ,"_gtsvector"                   ,1,',',"array_out"           ,quote_string,dequote_string,{0},0},
 {PG_INETARRAY                     ,"_inet"                        ,1,',',"array_out"           ,quote_string,dequote_string,{0},0},
 {PG_INT2ARRAY                     ,"_int2"                        ,1,',',"array_out"           ,quote_string,dequote_string,{0},1},
 {PG_INT2VECTORARRAY               ,"_int2vector"                  ,1,',',"array_out"           ,quote_string,dequote_string,{0},0},
 {PG_INT4ARRAY                     ,"_int4"                        ,1,',',"array_out"           ,quote_string,dequote_string,{0},1},
 {PG_INT4MULTIRANGEARRAY           ,"_int4multirange"              ,1,',',"array_out"           ,quote_string,dequote_string,{0},0},
 {PG_INT4RANGEARRAY                ,"_int4range"                   ,1,',',"array_out"           ,quote_string,dequote_string,{0},0},
 {PG_INT8ARRAY                     ,"_int8"                        ,1,',',"array_out"           ,quote_string,dequote_string,{0},0},
 {PG_INT8MULTIRANGEARRAY           ,"_int8multirange"              ,1,',',"array_out"           ,quote_string,dequote_string,{0},0},
 {PG_INT8RANGEARRAY                ,"_int8range"                   ,1,',',"array_out"           ,quote_string,dequote_string,{0},0},
 {PG_INTERVALARRAY                 ,"_interval"                    ,1,',',"array_out"           ,quote_string,dequote_string,{0},0},
 {PG_JSONARRAY                     ,"_json"                        ,1,',',"array_out"           ,quote_string,dequote_string,{0},0},
 {PG_JSONBARRAY                    ,"_jsonb"                       ,1,',',"array_out"           ,quote_string,dequote_string,{0},0},
 {PG_JSONPATHARRAY                 ,"_jsonpath"                    ,1,',',"array_out"           ,quote_string,dequote_string,{0},0},
 {PG_LINEARRAY                     ,"_line"                        ,1,',',"array_out"           ,quote_string,dequote_string,{0},0},
 {PG_LSEGARRAY                     ,"_lseg"                        ,1,',',"array_out"           ,quote_string,dequote_string,{0},0},
 {PG_MACADDRARRAY                  ,"_macaddr"                     ,1,',',"array_out"           ,quote_string,dequote_string,{0},0},
 {PG_MACADDR8ARRAY                 ,"_macaddr8"                    ,1,',',"array_out"           ,quote_string,dequote_string,{0},0},
 {PG_MONEYARRAY                    ,"_money"                       ,1,',',"array_out"           ,quote_string,dequote_string,{0},0},
 {PG_NAMEARRAY                     ,"_name"                        ,1,',',"array_out"           ,quote_string,dequote_string,{0},0},
 {PG_NUMERICARRAY                  ,"_numeric"                     ,1,',',"array_out"           ,quote_string,dequote_string,{0},2},
 {PG_NUMMULTIRANGEARRAY            ,"_nummultirange"               ,1,',',"array_out"           ,quote_string,dequote_string,{0},0},
 {PG_NUMRANGEARRAY                 ,"_numrange"                    ,1,',',"array_out"           ,quote_string,dequote_string,{0},0},
 {PG_OIDARRAY                      ,"_oid"                         ,1,',',"array_out"           ,quote_string,dequote_string,{0},1},
 {PG_OIDVECTORARRAY                ,"_oidvector"                   ,1,',',"array_out"           ,quote_string,dequote_string,{0},0},
 {PG_PATHARRAY                     ,"_path"                        ,1,',',"array_out"           ,quote_string,dequote_string,{0},0},
 {PG_PG_ATTRIBUTEARRAY             ,"_pg_attribute"                ,1,',',"array_out"           ,quote_string,dequote_string,{0},0},
 {PG_PG_CLASSARRAY                 ,"_pg_class"                    ,1,',',"array_out"           ,quote_string,dequote_string,{0},0},
 {PG_PG_LSNARRAY                   ,"_pg_lsn"                      ,1,',',"array_out"           ,quote_string,dequote_string,{0},0},
 {PG_PG_PROCARRAY                  ,"_pg_proc"                     ,1,',',"array_out"           ,quote_string,dequote_string,{0},0},
 {PG_PG_SNAPSHOTARRAY              ,"_pg_snapshot"                 ,1,',',"array_out"           ,quote_string,dequote_string,{0},0},
 {PG_PG_TYPEARRAY                  ,"_pg_type"                     ,1,',',"array_out"           ,quote_string,dequote_string,{0},0},
 {PG_POINTARRAY                    ,"_point"                       ,1,',',"array_out"           ,quote_string,dequote_string,{0},0},
 {PG_POLYGONARRAY                  ,"_polygon"                     ,1,',',"array_out"           ,quote_string,dequote_string,{0},0},
 {PG_RECORDARRAY                   ,"_record"                      ,1,',',"array_out"           ,quote_string,dequote_string,{0},0},
 {PG_REFCURSORARRAY                ,"_refcursor"                   ,1,',',"array_out"           ,quote_string,dequote_string,{0},0},
 {PG_REGCLASSARRAY                 ,"_regclass"                    ,1,',',"array_out"           ,quote_string,dequote_string,{0},0},
 {PG_REGCOLLATIONARRAY             ,"_regcollation"                ,1,',',"array_out"           ,quote_string,dequote_string,{0},0},
 {PG_REGCONFIGARRAY                ,"_regconfig"                   ,1,',',"array_out"           ,quote_string,dequote_string,{0},0},
 {PG_REGDICTIONARYARRAY            ,"_regdictionary"               ,1,',',"array_out"           ,quote_string,dequote_string,{0},0},
 {PG_REGNAMESPACEARRAY             ,"_regnamespace"                ,1,',',"array_out"           ,quote_string,dequote_string,{0},0},
 {PG_REGOPERARRAY                  ,"_regoper"                     ,1,',',"array_out"           ,quote_string,dequote_string,{0},0},
 {PG_REGOPERATORARRAY              ,"_regoperator"                 ,1,',',"array_out"           ,quote_string,dequote_string,{0},0},
 {PG_REGPROCARRAY                  ,"_regproc"                     ,1,',',"array_out"           ,quote_string,dequote_string,{0},0},
 {PG_REGPROCEDUREARRAY             ,"_regprocedure"                ,1,',',"array_out"           ,quote_string,dequote_string,{0},0},
 {PG_REGROLEARRAY                  ,"_regrole"                     ,1,',',"array_out"           ,quote_string,dequote_string,{0},0},
 {PG_REGTYPEARRAY                  ,"_regtype"                     ,1,',',"array_out"           ,quote_string,dequote_string,{0},0},
 {PG_TEXTARRAY                     ,"_text"                        ,1,',',"array_out"           ,quote_string,dequote_string,{0},0},
 {PG_TIDARRAY                      ,"_tid"                         ,1,',',"array_out"           ,quote_string,dequote_string,{0},0},
 {PG_TIMEARRAY                     ,"_time"                        ,1,',',"array_out"           ,quote_string,dequote_string,{0},0},
 {PG_TIMESTAMPARRAY                ,"_timestamp"                   ,1,',',"array_out"           ,quote_string,dequote_string,{0},0},
 {PG_TIMESTAMPTZARRAY              ,"_timestamptz"                 ,1,',',"array_out"           ,quote_string,dequote_string,{0},0},
 {PG_TIMETZARRAY                   ,"_timetz"                      ,1,',',"array_out"           ,quote_string,dequote_string,{0},0},
 {PG_TSMULTIRANGEARRAY             ,"_tsmultirange"                ,1,',',"array_out"           ,quote_string,dequote_string,{0},0},
 {PG_TSQUERYARRAY                  ,"_tsquery"                     ,1,',',"array_out"           ,quote_string,dequote_string,{0},0},
 {PG_TSRANGEARRAY                  ,"_tsrange"                     ,1,',',"array_out"           ,quote_string,dequote_string,{0},0},
 {PG_TSTZMULTIRANGEARRAY           ,"_tstzmultirange"              ,1,',',"array_out"           ,quote_string,dequote_string,{0},0},
 {PG_TSTZRANGEARRAY                ,"_tstzrange"                   ,1,',',"array_out"           ,quote_string,dequote_string,{0},0},
 {PG_TSVECTORARRAY                 ,"_tsvector"                    ,1,',',"array_out"           ,quote_string,dequote_string,{0},0},
 {PG_TXID_SNAPSHOTARRAY            ,"_txid_snapshot"               ,1,',',"array_out"           ,quote_string,dequote_string,{0},0},
 {PG_UUIDARRAY                     ,"_uuid"                        ,1,',',"array_out"           ,quote_string,dequote_string,{0},0},
 {PG_VARBITARRAY                   ,"_varbit"                      ,1,',',"array_out"           ,quote_string,dequote_string,{0},0},
 {PG_VARCHARARRAY                  ,"_varchar"                     ,1,',',"array_out"           ,quote_string,dequote_string,{0},0},
 {PG_XIDARRAY                      ,"_xid"                         ,1,',',"array_out"           ,quote_string,dequote_string,{0},0},
 {PG_XID8ARRAY                     ,"_xid8"                        ,1,',',"array_out"           ,quote_string,dequote_string,{0},0},
 {PG_XMLARRAY                      ,"_xml"                         ,1,',',"array_out"           ,quote_string,dequote_string,{0},0},
 {PG_ACLITEM                       ,"aclitem"                      ,1,',',"aclitemout"          ,quote_string,dequote_string,{0},0},
 {PG_ANY                           ,"any"                          ,1,',',"any_out"             ,quote_string,dequote_string,{0},0},
 {PG_ANYARRAY                      ,"anyarray"                     ,1,',',"anyarray_out"        ,quote_string,dequote_string,{0},0},
 {PG_ANYCOMPATIBLE                 ,"anycompatible"                ,1,',',"anycompatible_out"   ,quote_string,dequote_string,{0},0},
 {PG_ANYCOMPATIBLEARRAY            ,"anycompatiblearray"           ,1,',',"anycompatiblearray_out",quote_string,dequote_string,{0},0},
 {PG_ANYCOMPATIBLEMULTIRANGE       ,"anycompatiblemultirange"      ,1,',',"anycompatiblemultirange_out",quote_string,dequote_string,{0},0},
 {PG_ANYCOMPATIBLENONARRAY         ,"anycompatiblenonarray"        ,1,',',"anycompatiblenonarray_out",quote_string,dequote_string,{0},0},
 {PG_ANYCOMPATIBLERANGE            ,"anycompatiblerange"           ,1,',',"anycompatiblerange_out",quote_string,dequote_string,{0},0},
 {PG_ANYELEMENT                    ,"anyelement"                   ,1,',',"anyelement_out"      ,quote_string,dequote_string,{0},0},
 {PG_ANYENUM                       ,"anyenum"                      ,1,',',"anyenum_out"         ,quote_string,dequote_string,{0},0},
 {PG_ANYMULTIRANGE                 ,"anymultirange"                ,1,',',"anymultirange_out"   ,quote_string,dequote_string,{0},0},
 {PG_ANYNONARRAY                   ,"anynonarray"                  ,1,',',"anynonarray_out"     ,quote_string,dequote_string,{0},0},
 {PG_ANYRANGE                      ,"anyrange"                     ,1,',',"anyrange_out"        ,quote_string,dequote_string,{0},0},
 {PG_BIT                           ,"bit"                          ,1,',',"bit_out"             ,quote_string,dequote_string,{0},0},
 {PG_BOOL                          ,"bool"                         ,1,',',"boolout"             ,quote_bool  ,dequote_bool  ,{SQL_BOOLEAN},3},
 {PG_BOX                           ,"box"                          ,1,';',"box_out"             ,quote_geom  ,dequote_string,{0},0},
 {PG_BPCHAR                        ,"bpchar"                       ,1,',',"bpcharout"           ,quote_string,dequote_char  ,{SQL_CHAR},0},
 {PG_BYTEA                         ,"bytea"                        ,1,',',"byteaout"            ,quote_bytea ,dequote_bytea ,{SQL_VARBINARY},0},
 {PG_CHAR                          ,"char"                         ,1,',',"charout"             ,quote_string,dequote_char  ,{SQL_CHAR},0},
 {PG_CID                           ,"cid"                          ,1,',',"cidout"              ,quote_string,dequote_string,{0},0},
 {PG_CIDR                          ,"cidr"                         ,1,',',"cidr_out"            ,quote_string,dequote_string,{0},0},
 {PG_CIRCLE                        ,"circle"                       ,1,',',"circle_out"          ,quote_circle,dequote_string,{0},0},
 {PG_CSTRING                       ,"cstring"                      ,1,',',"cstring_out"         ,quote_string,dequote_string,{0},0},
 {PG_DATE                          ,"date"                         ,1,',',"date_out"            ,quote_string,dequote_string,{SQL_TYPE_DATE},0},
 {PG_DATEMULTIRANGE                ,"datemultirange"               ,1,',',"multirange_out"      ,quote_string,dequote_string,{0},0},
 {PG_DATERANGE                     ,"daterange"                    ,1,',',"range_out"           ,quote_string,dequote_string,{0},0},
 {PG_EVENT_TRIGGER                 ,"event_trigger"                ,1,',',"event_trigger_out"   ,quote_string,dequote_string,{0},0},
 {PG_FDW_HANDLER                   ,"fdw_handler"                  ,1,',',"fdw_handler_out"     ,quote_string,dequote_string,{0},0},
 {PG_FLOAT4                        ,"float4"                       ,1,',',"float4out"           ,quote_float ,null_dequote  ,{0},2},
 {PG_FLOAT8                        ,"float8"                       ,1,',',"float8out"           ,quote_float ,null_dequote  ,{SQL_FLOAT},2},
 {PG_GTSVECTOR                     ,"gtsvector"                    ,1,',',"gtsvectorout"        ,quote_string,dequote_string,{0},0},
 {PG_INDEX_AM_HANDLER              ,"index_am_handler"             ,1,',',"index_am_handler_out",quote_string,dequote_string,{0},0},
 {PG_INET                          ,"inet"                         ,1,',',"inet_out"            ,quote_string,dequote_string,{0},0},
 {PG_INT2                          ,"int2"                         ,1,',',"int2out"             ,quote_int   ,null_dequote  ,{SQL_SMALLINT},1},
 {PG_INT2VECTOR                    ,"int2vector"                   ,1,',',"int2vectorout"       ,quote_string,dequote_string,{0},0},
 {PG_INT4                          ,"int4"                         ,1,',',"int4out"             ,quote_int   ,null_dequote  ,{SQL_INTEGER},1},
 {PG_INT4MULTIRANGE                ,"int4multirange"               ,1,',',"multirange_out"      ,quote_string,dequote_string,{0},0},
 {PG_INT4RANGE                     ,"int4range"                    ,1,',',"range_out"           ,quote_string,dequote_string,{0},0},
 {PG_INT8                          ,"int8"                         ,1,',',"int8out"             ,quote_int   ,null_dequote  ,{SQL_BIGINT},0},
 {PG_INT8MULTIRANGE                ,"int8multirange"               ,1,',',"multirange_out"      ,quote_string,dequote_string,{0},0},
 {PG_INT8RANGE                     ,"int8range"                    ,1,',',"range_out"           ,quote_string,dequote_string,{0},0},
 {PG_INTERNAL                      ,"internal"                     ,1,',',"internal_out"        ,quote_string,dequote_string,{0},0},
 {PG_INTERVAL                      ,"interval"                     ,1,',',"interval_out"        ,quote_string,dequote_string,{0},0},
 {PG_JSON                          ,"json"                         ,1,',',"json_out"            ,quote_string,dequote_string,{0},0},
 {PG_JSONB                         ,"jsonb"                        ,1,',',"jsonb_out"           ,quote_string,dequote_string,{0},0},
 {PG_JSONPATH                      ,"jsonpath"                     ,1,',',"jsonpath_out"        ,quote_string,dequote_string,{0},0},
 {PG_LANGUAGE_HANDLER              ,"language_handler"             ,1,',',"language_handler_out",quote_string,dequote_string,{0},0},
 {PG_LINE                          ,"line"                         ,1,',',"line_out"            ,quote_geom  ,dequote_string,{0},0},
 {PG_LSEG                          ,"lseg"                         ,1,',',"lseg_out"            ,quote_geom  ,dequote_string,{0},0},
 {PG_MACADDR                       ,"macaddr"                      ,1,',',"macaddr_out"         ,quote_string,dequote_string,{0},0},
 {PG_MACADDR8                      ,"macaddr8"                     ,1,',',"macaddr8_out"        ,quote_string,dequote_string,{0},0},
 {PG_MONEY                         ,"money"                        ,1,',',"cash_out"            ,quote_string,dequote_string,{0},0},
 {PG_NAME                          ,"name"                         ,1,',',"nameout"             ,quote_name  ,null_dequote  ,{SQL_VARCHAR},0},
 {PG_NUMERIC                       ,"numeric"                      ,1,',',"numeric_out"         ,quote_float ,null_dequote  ,{SQL_NUMERIC},2},
 {PG_NUMMULTIRANGE                 ,"nummultirange"                ,1,',',"multirange_out"      ,quote_string,dequote_string,{0},0},
 {PG_NUMRANGE                      ,"numrange"                     ,1,',',"range_out"           ,quote_string,dequote_string,{0},0},
 {PG_OID                           ,"oid"                          ,1,',',"oidout"              ,quote_int   ,null_dequote  ,{0},1},
 {PG_OIDVECTOR                     ,"oidvector"                    ,1,',',"oidvectorout"        ,quote_string,dequote_string,{0},0},
 {PG_PATH                          ,"path"                         ,1,',',"path_out"            ,quote_path  ,dequote_string,{0},0},
 {PG_PG_ATTRIBUTE                  ,"pg_attribute"                 ,1,',',"record_out"          ,quote_string,dequote_string,{0},0},
 {PG_PG_BRIN_BLOOM_SUMMARY         ,"pg_brin_bloom_summary"        ,1,',',"brin_bloom_summary_out",quote_string,dequote_string,{0},0},
 {PG_PG_BRIN_MINMAX_MULTI_SUMMARY  ,"pg_brin_minmax_multi_summary" ,1,',',"brin_minmax_multi_summary_out",quote_string,dequote_string,{0},0},
 {PG_PG_CLASS                      ,"pg_class"                     ,1,',',"record_out"          ,quote_string,dequote_string,{0},0},
 {PG_PG_DDL_COMMAND                ,"pg_ddl_command"               ,1,',',"pg_ddl_command_out"  ,quote_string,dequote_string,{0},0},
 {PG_PG_DEPENDENCIES               ,"pg_dependencies"              ,1,',',"pg_dependencies_out" ,quote_string,dequote_string,{0},0},
 {PG_PG_LSN                        ,"pg_lsn"                       ,1,',',"pg_lsn_out"          ,quote_string,dequote_string,{0},0},
 {PG_PG_MCV_LIST                   ,"pg_mcv_list"                  ,1,',',"pg_mcv_list_out"     ,quote_string,dequote_string,{0},0},
 {PG_PG_NDISTINCT                  ,"pg_ndistinct"                 ,1,',',"pg_ndistinct_out"    ,quote_string,dequote_string,{0},0},
 {PG_PG_NODE_TREE                  ,"pg_node_tree"                 ,1,',',"pg_node_tree_out"    ,quote_string,dequote_string,{0},0},
 {PG_PG_PROC                       ,"pg_proc"                      ,1,',',"record_out"          ,quote_string,dequote_string,{0},0},
 {PG_PG_SNAPSHOT                   ,"pg_snapshot"                  ,1,',',"pg_snapshot_out"     ,quote_string,dequote_string,{0},0},
 {PG_PG_TYPE                       ,"pg_type"                      ,1,',',"record_out"          ,quote_string,dequote_string,{0},0},
 {PG_POINT                         ,"point"                        ,1,',',"point_out"           ,quote_geom  ,dequote_string,{0},0},
 {PG_POLYGON                       ,"polygon"                      ,1,',',"poly_out"            ,quote_geom  ,dequote_string,{0},0},
 {PG_RECORD                        ,"record"                       ,1,',',"record_out"          ,quote_string,dequote_string,{0},0},
 {PG_REFCURSOR                     ,"refcursor"                    ,1,',',"textout"             ,quote_string,dequote_string,{0},0},
 {PG_REGCLASS                      ,"regclass"                     ,1,',',"regclassout"         ,quote_string,dequote_string,{0},0},
 {PG_REGCOLLATION                  ,"regcollation"                 ,1,',',"regcollationout"     ,quote_string,dequote_string,{0},0},
 {PG_REGCONFIG                     ,"regconfig"                    ,1,',',"regconfigout"        ,quote_string,dequote_string,{0},0},
 {PG_REGDICTIONARY                 ,"regdictionary"                ,1,',',"regdictionaryout"    ,quote_string,dequote_string,{0},0},
 {PG_REGNAMESPACE                  ,"regnamespace"                 ,1,',',"regnamespaceout"     ,quote_string,dequote_string,{0},0},
 {PG_REGOPER                       ,"regoper"                      ,1,',',"regoperout"          ,quote_string,dequote_string,{0},0},
 {PG_REGOPERATOR                   ,"regoperator"                  ,1,',',"regoperatorout"      ,quote_string,dequote_string,{0},0},
 {PG_REGPROC                       ,"regproc"                      ,1,',',"regprocout"          ,quote_string,dequote_string,{0},0},
 {PG_REGPROCEDURE                  ,"regprocedure"                 ,1,',',"regprocedureout"     ,quote_string,dequote_string,{0},0},
 {PG_REGROLE                       ,"regrole"                      ,1,',',"regroleout"          ,quote_string,dequote_string,{0},0},
 {PG_REGTYPE                       ,"regtype"                      ,1,',',"regtypeout"          ,quote_string,dequote_string,{0},0},
 {PG_TABLE_AM_HANDLER              ,"table_am_handler"             ,1,',',"table_am_handler_out",quote_string,dequote_string,{0},0},
 {PG_TEXT                          ,"text"                         ,1,',',"textout"             ,quote_string,dequote_string,{SQL_LONGVARCHAR},0},
 {PG_TID                           ,"tid"                          ,1,',',"tidout"              ,quote_geom  ,dequote_string,{0},0},
 {PG_TIME                          ,"time"                         ,1,',',"time_out"            ,quote_string,dequote_string,{SQL_TYPE_TIME},0},
 {PG_TIMESTAMP                     ,"timestamp"                    ,1,',',"timestamp_out"       ,quote_string,dequote_string,{SQL_TIMESTAMP},0},
 {PG_TIMESTAMPTZ                   ,"timestamptz"                  ,1,',',"timestamptz_out"     ,quote_string,dequote_string,{SQL_TYPE_TIMESTAMP_WITH_TIMEZONE},0},
 {PG_TIMETZ                        ,"timetz"                       ,1,',',"timetz_out"          ,quote_string,dequote_string,{0},0},
 {PG_TRIGGER                       ,"trigger"                      ,1,',',"trigger_out"         ,quote_string,dequote_string,{0},0},
 {PG_TSM_HANDLER                   ,"tsm_handler"                  ,1,',',"tsm_handler_out"     ,quote_string,dequote_string,{0},0},
 {PG_TSMULTIRANGE                  ,"tsmultirange"                 ,1,',',"multirange_out"      ,quote_string,dequote_string,{0},0},
 {PG_TSQUERY                       ,"tsquery"                      ,1,',',"tsqueryout"          ,quote_string,dequote_string,{0},0},
 {PG_TSRANGE                       ,"tsrange"                      ,1,',',"range_out"           ,quote_string,dequote_string,{0},0},
 {PG_TSTZMULTIRANGE                ,"tstzmultirange"               ,1,',',"multirange_out"      ,quote_string,dequote_string,{0},0},
 {PG_TSTZRANGE                     ,"tstzrange"                    ,1,',',"range_out"           ,quote_string,dequote_string,{0},0},
 {PG_TSVECTOR                      ,"tsvector"                     ,1,',',"tsvectorout"         ,quote_string,dequote_string,{0},0},
 {PG_TXID_SNAPSHOT                 ,"txid_snapshot"                ,1,',',"txid_snapshot_out"   ,quote_string,dequote_string,{0},0},
 {PG_UNKNOWN                       ,"unknown"                      ,1,',',"unknownout"          ,quote_string,dequote_string,{0},0},
 {PG_UUID                          ,"uuid"                         ,1,',',"uuid_out"            ,quote_string,dequote_string,{0},0},
 {PG_VARBIT                        ,"varbit"                       ,1,',',"varbit_out"          ,quote_string,dequote_string,{0},0},
 {PG_VARCHAR                       ,"varchar"                      ,1,',',"varcharout"          ,quote_string,dequote_string,{SQL_VARCHAR},0},
 {PG_VOID                          ,"void"                         ,1,',',"void_out"            ,quote_string,dequote_string,{0},0},
 {PG_XID                           ,"xid"                          ,1,',',"xidout"              ,quote_string,dequote_string,{0},0},
 {PG_XID8                          ,"xid8"                         ,1,',',"xid8out"             ,quote_string,dequote_string,{0},0},
 {PG_XML                           ,"xml"                          ,1,',',"xml_out"             ,quote_string,dequote_string,{0},0},
};
sql_type_info_t* pg_type_data(int sql_type)
{
    switch(sql_type) {
        case PG_ACLITEMARRAY:                   return &pg_types[0];
        case PG_BITARRAY:                       return &pg_types[1];
        case PG_BOOLARRAY:                      return &pg_types[2];
        case PG_BOXARRAY:                       return &pg_types[3];
        case PG_BPCHARARRAY:                    return &pg_types[4];
        case PG_BYTEAARRAY:                     return &pg_types[5];
        case PG_CHARARRAY:                      return &pg_types[6];
        case PG_CIDARRAY:                       return &pg_types[7];
        case PG_CIDRARRAY:                      return &pg_types[8];
        case PG_CIRCLEARRAY:                    return &pg_types[9];
        case PG_CSTRINGARRAY:                   return &pg_types[10];
        case PG_DATEARRAY:                      return &pg_types[11];
        case PG_DATEMULTIRANGEARRAY:            return &pg_types[12];
        case PG_DATERANGEARRAY:                 return &pg_types[13];
        case PG_FLOAT4ARRAY:                    return &pg_types[14];
        case PG_FLOAT8ARRAY:                    return &pg_types[15];
        case PG_GTSVECTORARRAY:                 return &pg_types[16];
        case PG_INETARRAY:                      return &pg_types[17];
        case PG_INT2ARRAY:                      return &pg_types[18];
        case PG_INT2VECTORARRAY:                return &pg_types[19];
        case PG_INT4ARRAY:                      return &pg_types[20];
        case PG_INT4MULTIRANGEARRAY:            return &pg_types[21];
        case PG_INT4RANGEARRAY:                 return &pg_types[22];
        case PG_INT8ARRAY:                      return &pg_types[23];
        case PG_INT8MULTIRANGEARRAY:            return &pg_types[24];
        case PG_INT8RANGEARRAY:                 return &pg_types[25];
        case PG_INTERVALARRAY:                  return &pg_types[26];
        case PG_JSONARRAY:                      return &pg_types[27];
        case PG_JSONBARRAY:                     return &pg_types[28];
        case PG_JSONPATHARRAY:                  return &pg_types[29];
        case PG_LINEARRAY:                      return &pg_types[30];
        case PG_LSEGARRAY:                      return &pg_types[31];
        case PG_MACADDRARRAY:                   return &pg_types[32];
        case PG_MACADDR8ARRAY:                  return &pg_types[33];
        case PG_MONEYARRAY:                     return &pg_types[34];
        case PG_NAMEARRAY:                      return &pg_types[35];
        case PG_NUMERICARRAY:                   return &pg_types[36];
        case PG_NUMMULTIRANGEARRAY:             return &pg_types[37];
        case PG_NUMRANGEARRAY:                  return &pg_types[38];
        case PG_OIDARRAY:                       return &pg_types[39];
        case PG_OIDVECTORARRAY:                 return &pg_types[40];
        case PG_PATHARRAY:                      return &pg_types[41];
        case PG_PG_ATTRIBUTEARRAY:              return &pg_types[42];
        case PG_PG_CLASSARRAY:                  return &pg_types[43];
        case PG_PG_LSNARRAY:                    return &pg_types[44];
        case PG_PG_PROCARRAY:                   return &pg_types[45];
        case PG_PG_SNAPSHOTARRAY:               return &pg_types[46];
        case PG_PG_TYPEARRAY:                   return &pg_types[47];
        case PG_POINTARRAY:                     return &pg_types[48];
        case PG_POLYGONARRAY:                   return &pg_types[49];
        case PG_RECORDARRAY:                    return &pg_types[50];
        case PG_REFCURSORARRAY:                 return &pg_types[51];
        case PG_REGCLASSARRAY:                  return &pg_types[52];
        case PG_REGCOLLATIONARRAY:              return &pg_types[53];
        case PG_REGCONFIGARRAY:                 return &pg_types[54];
        case PG_REGDICTIONARYARRAY:             return &pg_types[55];
        case PG_REGNAMESPACEARRAY:              return &pg_types[56];
        case PG_REGOPERARRAY:                   return &pg_types[57];
        case PG_REGOPERATORARRAY:               return &pg_types[58];
        case PG_REGPROCARRAY:                   return &pg_types[59];
        case PG_REGPROCEDUREARRAY:              return &pg_types[60];
        case PG_REGROLEARRAY:                   return &pg_types[61];
        case PG_REGTYPEARRAY:                   return &pg_types[62];
        case PG_TEXTARRAY:                      return &pg_types[63];
        case PG_TIDARRAY:                       return &pg_types[64];
        case PG_TIMEARRAY:                      return &pg_types[65];
        case PG_TIMESTAMPARRAY:                 return &pg_types[66];
        case PG_TIMESTAMPTZARRAY:               return &pg_types[67];
        case PG_TIMETZARRAY:                    return &pg_types[68];
        case PG_TSMULTIRANGEARRAY:              return &pg_types[69];
        case PG_TSQUERYARRAY:                   return &pg_types[70];
        case PG_TSRANGEARRAY:                   return &pg_types[71];
        case PG_TSTZMULTIRANGEARRAY:            return &pg_types[72];
        case PG_TSTZRANGEARRAY:                 return &pg_types[73];
        case PG_TSVECTORARRAY:                  return &pg_types[74];
        case PG_TXID_SNAPSHOTARRAY:             return &pg_types[75];
        case PG_UUIDARRAY:                      return &pg_types[76];
        case PG_VARBITARRAY:                    return &pg_types[77];
        case PG_VARCHARARRAY:                   return &pg_types[78];
        case PG_XIDARRAY:                       return &pg_types[79];
        case PG_XID8ARRAY:                      return &pg_types[80];
        case PG_XMLARRAY:                       return &pg_types[81];
        case PG_ACLITEM:                        return &pg_types[82];
        case PG_ANY:                            return &pg_types[83];
        case PG_ANYARRAY:                       return &pg_types[84];
        case PG_ANYCOMPATIBLE:                  return &pg_types[85];
        case PG_ANYCOMPATIBLEARRAY:             return &pg_types[86];
        case PG_ANYCOMPATIBLEMULTIRANGE:        return &pg_types[87];
        case PG_ANYCOMPATIBLENONARRAY:          return &pg_types[88];
        case PG_ANYCOMPATIBLERANGE:             return &pg_types[89];
        case PG_ANYELEMENT:                     return &pg_types[90];
        case PG_ANYENUM:                        return &pg_types[91];
        case PG_ANYMULTIRANGE:                  return &pg_types[92];
        case PG_ANYNONARRAY:                    return &pg_types[93];
        case PG_ANYRANGE:                       return &pg_types[94];
        case PG_BIT:                            return &pg_types[95];
        case PG_BOOL:                           return &pg_types[96];
        case PG_BOX:                            return &pg_types[97];
        case PG_BPCHAR:                         return &pg_types[98];
        case PG_BYTEA:                          return &pg_types[99];
        case PG_CHAR:                           return &pg_types[100];
        case PG_CID:                            return &pg_types[101];
        case PG_CIDR:                           return &pg_types[102];
        case PG_CIRCLE:                         return &pg_types[103];
        case PG_CSTRING:                        return &pg_types[104];
        case PG_DATE:                           return &pg_types[105];
        case PG_DATEMULTIRANGE:                 return &pg_types[106];
        case PG_DATERANGE:                      return &pg_types[107];
        case PG_EVENT_TRIGGER:                  return &pg_types[108];
        case PG_FDW_HANDLER:                    return &pg_types[109];
        case PG_FLOAT4:                         return &pg_types[110];
        case PG_FLOAT8:                         return &pg_types[111];
        case PG_GTSVECTOR:                      return &pg_types[112];
        case PG_INDEX_AM_HANDLER:               return &pg_types[113];
        case PG_INET:                           return &pg_types[114];
        case PG_INT2:                           return &pg_types[115];
        case PG_INT2VECTOR:                     return &pg_types[116];
        case PG_INT4:                           return &pg_types[117];
        case PG_INT4MULTIRANGE:                 return &pg_types[118];
        case PG_INT4RANGE:                      return &pg_types[119];
        case PG_INT8:                           return &pg_types[120];
        case PG_INT8MULTIRANGE:                 return &pg_types[121];
        case PG_INT8RANGE:                      return &pg_types[122];
        case PG_INTERNAL:                       return &pg_types[123];
        case PG_INTERVAL:                       return &pg_types[124];
        case PG_JSON:                           return &pg_types[125];
        case PG_JSONB:                          return &pg_types[126];
        case PG_JSONPATH:                       return &pg_types[127];
        case PG_LANGUAGE_HANDLER:               return &pg_types[128];
        case PG_LINE:                           return &pg_types[129];
        case PG_LSEG:                           return &pg_types[130];
        case PG_MACADDR:                        return &pg_types[131];
        case PG_MACADDR8:                       return &pg_types[132];
        case PG_MONEY:                          return &pg_types[133];
        case PG_NAME:                           return &pg_types[134];
        case PG_NUMERIC:                        return &pg_types[135];
        case PG_NUMMULTIRANGE:                  return &pg_types[136];
        case PG_NUMRANGE:                       return &pg_types[137];
        case PG_OID:                            return &pg_types[138];
        case PG_OIDVECTOR:                      return &pg_types[139];
        case PG_PATH:                           return &pg_types[140];
        case PG_PG_ATTRIBUTE:                   return &pg_types[141];
        case PG_PG_BRIN_BLOOM_SUMMARY:          return &pg_types[142];
        case PG_PG_BRIN_MINMAX_MULTI_SUMMARY:   return &pg_types[143];
        case PG_PG_CLASS:                       return &pg_types[144];
        case PG_PG_DDL_COMMAND:                 return &pg_types[145];
        case PG_PG_DEPENDENCIES:                return &pg_types[146];
        case PG_PG_LSN:                         return &pg_types[147];
        case PG_PG_MCV_LIST:                    return &pg_types[148];
        case PG_PG_NDISTINCT:                   return &pg_types[149];
        case PG_PG_NODE_TREE:                   return &pg_types[150];
        case PG_PG_PROC:                        return &pg_types[151];
        case PG_PG_SNAPSHOT:                    return &pg_types[152];
        case PG_PG_TYPE:                        return &pg_types[153];
        case PG_POINT:                          return &pg_types[154];
        case PG_POLYGON:                        return &pg_types[155];
        case PG_RECORD:                         return &pg_types[156];
        case PG_REFCURSOR:                      return &pg_types[157];
        case PG_REGCLASS:                       return &pg_types[158];
        case PG_REGCOLLATION:                   return &pg_types[159];
        case PG_REGCONFIG:                      return &pg_types[160];
        case PG_REGDICTIONARY:                  return &pg_types[161];
        case PG_REGNAMESPACE:                   return &pg_types[162];
        case PG_REGOPER:                        return &pg_types[163];
        case PG_REGOPERATOR:                    return &pg_types[164];
        case PG_REGPROC:                        return &pg_types[165];
        case PG_REGPROCEDURE:                   return &pg_types[166];
        case PG_REGROLE:                        return &pg_types[167];
        case PG_REGTYPE:                        return &pg_types[168];
        case PG_TABLE_AM_HANDLER:               return &pg_types[169];
        case PG_TEXT:                           return &pg_types[170];
        case PG_TID:                            return &pg_types[171];
        case PG_TIME:                           return &pg_types[172];
        case PG_TIMESTAMP:                      return &pg_types[173];
        case PG_TIMESTAMPTZ:                    return &pg_types[174];
        case PG_TIMETZ:                         return &pg_types[175];
        case PG_TRIGGER:                        return &pg_types[176];
        case PG_TSM_HANDLER:                    return &pg_types[177];
        case PG_TSMULTIRANGE:                   return &pg_types[178];
        case PG_TSQUERY:                        return &pg_types[179];
        case PG_TSRANGE:                        return &pg_types[180];
        case PG_TSTZMULTIRANGE:                 return &pg_types[181];
        case PG_TSTZRANGE:                      return &pg_types[182];
        case PG_TSVECTOR:                       return &pg_types[183];
        case PG_TXID_SNAPSHOT:                  return &pg_types[184];
        case PG_UNKNOWN:                        return &pg_types[185];
        case PG_UUID:                           return &pg_types[186];
        case PG_VARBIT:                         return &pg_types[187];
        case PG_VARCHAR:                        return &pg_types[188];
        case PG_VOID:                           return &pg_types[189];
        case PG_XID:                            return &pg_types[190];
        case PG_XID8:                           return &pg_types[191];
        case PG_XML:                            return &pg_types[192];
        default: return NULL;
    }
}
static sql_type_info_t sql_types[] = {
 {SQL_BOOLEAN,"SQL_BOOLEAN",1,',', "none", quote_bool, dequote_bool, {PG_BOOL}, 3},
 {SQL_CHAR,"SQL_CHAR",1,',', "none", quote_string, dequote_char, {PG_BPCHAR}, 0},
 {SQL_VARBINARY,"SQL_VARBINARY",1,',', "none", quote_bytea, dequote_bytea, {PG_BYTEA}, 0},
 {SQL_BLOB,"SQL_BLOB",1,',', "none", quote_bytea, dequote_bytea, {PG_BYTEA}, 0},
 {SQL_BINARY,"SQL_BINARY",1,',', "none", quote_bytea, dequote_bytea, {PG_BYTEA}, 0},
 {SQL_LONGVARBINARY,"SQL_LONGVARBINARY",1,',', "none", quote_bytea, dequote_bytea, {PG_BYTEA}, 0},
 {SQL_CHAR,"SQL_CHAR",1,',', "none", quote_string, dequote_char, {PG_CHAR}, 0},
 {SQL_TYPE_DATE,"SQL_TYPE_DATE",1,',', "none", quote_string, dequote_string, {PG_DATE}, 0},
 {SQL_FLOAT,"SQL_FLOAT",1,',', "none", quote_float, null_dequote, {PG_FLOAT8}, 2},
 {SQL_DOUBLE,"SQL_DOUBLE",1,',', "none", quote_float, null_dequote, {PG_FLOAT8}, 2},
 {SQL_REAL,"SQL_REAL",1,',', "none", quote_float, null_dequote, {PG_FLOAT8}, 2},
 {SQL_SMALLINT,"SQL_SMALLINT",1,',', "none", quote_int, null_dequote, {PG_INT2}, 1},
 {SQL_TINYINT,"SQL_TINYINT",1,',', "none", quote_int, null_dequote, {PG_INT2}, 1},
 {SQL_INTEGER,"SQL_INTEGER",1,',', "none", quote_int, null_dequote, {PG_INT4}, 1},
 {SQL_BIGINT,"SQL_BIGINT",1,',', "none", quote_int, null_dequote, {PG_INT8}, 0},
 {SQL_VARCHAR,"SQL_VARCHAR",1,',', "none", quote_name, null_dequote, {PG_NAME}, 0},
 {SQL_NUMERIC,"SQL_NUMERIC",1,',', "none", quote_float, null_dequote, {PG_NUMERIC}, 2},
 {SQL_DECIMAL,"SQL_DECIMAL",1,',', "none", quote_float, null_dequote, {PG_NUMERIC}, 2},
 {SQL_LONGVARCHAR,"SQL_LONGVARCHAR",1,',', "none", quote_string, dequote_string, {PG_TEXT}, 0},
 {SQL_TYPE_TIME,"SQL_TYPE_TIME",1,',', "none", quote_string, dequote_string, {PG_TIME}, 0},
 {SQL_TIMESTAMP,"SQL_TIMESTAMP",1,',', "none", quote_string, dequote_string, {PG_TIMESTAMP}, 0},
 {SQL_TYPE_TIMESTAMP,"SQL_TYPE_TIMESTAMP",1,',', "none", quote_string, dequote_string, {PG_TIMESTAMP}, 0},
 {SQL_TYPE_TIMESTAMP_WITH_TIMEZONE,"SQL_TYPE_TIMESTAMP_WITH_TIMEZONE",1,',', "none", quote_string, dequote_string, {PG_TIMESTAMPTZ}, 0},
 {SQL_TYPE_TIME_WITH_TIMEZONE,"SQL_TYPE_TIME_WITH_TIMEZONE",1,',', "none", quote_string, dequote_string, {PG_TIMESTAMPTZ}, 0},
 {SQL_VARCHAR,"SQL_VARCHAR",1,',', "none", quote_string, dequote_string, {PG_VARCHAR}, 0},
};
sql_type_info_t* sql_type_data(int sql_type)
{
    switch(sql_type) {
        case SQL_BOOLEAN:                      return &sql_types[0];
        case SQL_CHAR:                         return &sql_types[1];
        case SQL_VARBINARY:                    return &sql_types[2];
        case SQL_BLOB:                         return &sql_types[3];
        case SQL_BINARY:                       return &sql_types[4];
        case SQL_LONGVARBINARY:                return &sql_types[5];
        case SQL_TYPE_DATE:                    return &sql_types[7];
        case SQL_FLOAT:                        return &sql_types[8];
        case SQL_DOUBLE:                       return &sql_types[9];
        case SQL_REAL:                         return &sql_types[10];
        case SQL_SMALLINT:                     return &sql_types[11];
        case SQL_TINYINT:                      return &sql_types[12];
        case SQL_INTEGER:                      return &sql_types[13];
        case SQL_BIGINT:                       return &sql_types[14];
        case SQL_NUMERIC:                      return &sql_types[16];
        case SQL_DECIMAL:                      return &sql_types[17];
        case SQL_LONGVARCHAR:                  return &sql_types[18];
        case SQL_TYPE_TIME:                    return &sql_types[19];
        case SQL_TIMESTAMP:                    return &sql_types[20];
        case SQL_TYPE_TIMESTAMP:               return &sql_types[21];
        case SQL_TYPE_TIMESTAMP_WITH_TIMEZONE: return &sql_types[22];
        case SQL_TYPE_TIME_WITH_TIMEZONE:      return &sql_types[23];
        case SQL_VARCHAR:                      return &sql_types[24];
        default: return NULL;
    }
}
/*
#!perl
## Autogenerate all type information and populate
## all files referencing type information.
## You should only run this if you are developing DBD::Pg and
## understand what this script does
## Usage: perl -x $0 "path-to-pgsql-source"
use strict;
use warnings;
use autodie;
my $arg = shift || die "Usage: $0 path-to-pgsql-source\n";
-d $arg or die qq{Sorry, but "$arg" is not a directory!\n};
my $tag_file = "$arg/src/include/tcop/cmdtaglist.h";
open my $fh, '<', $tag_file;
my $tf = '(true|false)';
my %tag;
while (<$fh>) {
    chomp;
    next unless /^PG_CMDTAG/;
    if (! /^PG_CMDTAG\(([A-Z]+)(_[A-Z]+)+, "([A-Z? ]+)", $tf, $tf, $tf\)$/) {
        die "Could not parse PG_CMDTAG line at $. of $tag_file: >>$_<<\n";
    }
    next if $6 ne 'true';
    $tag{$3}++;
}
close $fh;
my %known_tag = map { $_, 1 } split / / =>
  'COPY DELETE FETCH INSERT MERGE MOVE SELECT UPDATE';
for my $t (sort keys %known_tag) {
    exists $tag{$t} or die "Did not find known tag inside $tag_file: $t\n";
}
for my $t (sort keys %tag) {
    exists $known_tag{$t} or die "Found a new tag inside $tag_file: $t\n";
}
my $dir = "$arg/src/include/catalog/";
my $maxlen = 1;
my %pgtype;
my $thisname = 0;
my $typefile;
if (-e "$dir/pg_type.dat") {
    $typefile = "$dir/pg_type.dat";
    require "$arg/src/backend/catalog/Catalog.pm";
    my $catalog = Catalog::ParseHeader("$dir/pg_type.h");
    my $types   = Catalog::ParseData($typefile, $catalog->{columns}, 0);
    %pgtype     = map +($_->{typname} => $_), @$types;
}
else {
    $typefile = "$dir/pg_type.h";
    open my $fh, '<', $typefile;
    while (<$fh>) {
        s/FLOAT8PASSBYVAL/t/;
        s/FLOAT4PASSBYVAL/t/;
        if (/^DATA\(insert OID\s+=\s+(\d+)\s+\(\s+(\S+)\s+\S+ \S+\s+\S+\s+[t|f]\s+. . [tf] ([tf]) \\(\d+) (\d+)\s+(\d+) (\d+) (\S+) (\S+) (\S+) (\S+)/o) {
            my ($oid,$name,$typedef,$delim,$typrelid,$typelem,$typarray,$tin,$tout,$bin,$bout) =
                ($1,$2,$3,chr(oct($4)),$5,$6,$7,$8,$9,$10,$11);
            die "Duplicated OID $oid!: $_\n" if exists $pgtype{$oid};
            $pgtype{$name} = {
                oid       => $oid,
                typdelim  => $delim,
                typinput  => $tin,
                typoutput => $tout,
                typrecv   => $bin,
                typsend   => $bout,
            };
            if ($name =~ /_/) {
                (my $basename = $name) =~ s/_//;
                if (exists $pgtype{$basename}) {
                    $pgtype{$name}{typdelim} = $pgtype{$basename}{typdelim};
                }
            }
            $thisname = $name;
        }
        elsif (/^DESCR\("(.+?)"/) {
            $pgtype{$thisname}{descr} = $1;
        }
        elsif (/^DATA/) {
            die "Bad line at $. ->$_\n";
        }
    }
    close $fh;
}
for my $name (keys %pgtype) {
    length($name) > $maxlen and $maxlen = length($name);
    $pgtype{$name} = {
        %{$pgtype{$name}},
        quote   => 'quote_string',
        dequote => 'dequote_string',
        define  => 'PG_' . uc($name),
        sql     => 0,
        sqlc    => 0,
        svtype  => 0,
    };
    ## Special hack for array types
    if ($pgtype{$name}{typinput} =~ /^array/ and $name =~ /^_/) {
        $pgtype{$name}{define} = 'PG' . uc $name . 'ARRAY';
    }
}
my ($oldfh,$newfh);
## Rewrite types.h
my $file = 'types.h';
open $newfh, '>', "$file.tmp";
my $slashstar = '/' . '*';
my $starslash = '*' . '/';
print $newfh qq{$slashstar
Do not edit this file directly - it is generated by types.c
$starslash
typedef struct sql_type_info {
    int     type_id;
    char*   type_name;
    bool    bind_ok;
    char    array_delimiter;
    char*   arrayout;
    char*   (*quote)();
    void    (*dequote)();
    union   {
            int pg;
            int sql;
    } type;
    int     svtype;
} sql_type_info_t;
sql_type_info_t* pg_type_data(int);
sql_type_info_t* sql_type_data(int);
};
$maxlen += 5;
for (sort {
        $pgtype{$a}{define} =~ /ARRAY/ <=> $pgtype{$b}{define} =~ /ARRAY/
        or $pgtype{$a}{define} cmp $pgtype{$b}{define}
    } keys %pgtype) {
    printf $newfh "#define %${maxlen}s  $pgtype{$_}{oid}\n", $pgtype{$_}{define};
}
print $newfh "\n";
close $newfh;
system("mv $file.tmp $file");
print "Wrote $file\n";
## Rewrite Pg.xs
$file = 'Pg.xs';
open $oldfh, '<', $file;
open $newfh, '>', "$file.tmp";
my $step = 0;
while (<$oldfh>) {
    if (0 == $step) {
        if (/ALIAS:/) {
            print $newfh $_;
            $step = 1;
            for (sort { $pgtype{$a}{define} cmp $pgtype{$b}{define} } keys %pgtype) {
                printf $newfh "    %-${maxlen}s = $pgtype{$_}{oid}\n", $pgtype{$_}{define};
            }
            printf $newfh "\n    %-${maxlen}s = 1\n", 'PG_ASYNC';
            printf $newfh "    %-${maxlen}s = 2\n", 'PG_OLDQUERY_CANCEL';
            printf $newfh "    %-${maxlen}s = 4\n\n", 'PG_OLDQUERY_WAIT';
            next;
        }
    }
    elsif (1 == $step) {
        next unless /CODE:/;
        $step = 2;
    }
    print $newfh $_;
}
close $newfh;
close $oldfh;
system("mv $file.tmp $file");
print "Wrote $file\n";
## Rewrite Pg.pm
$file = 'Pg.pm';
open $oldfh, '<', $file;
open $newfh, '>', "$file.tmp";
$step = 0;
while (<$oldfh>) {
    if (0 == $step) {
        if (/pg_types/) {
            chomp;
            print $newfh $_;
            $step = 0;
            for (sort { $pgtype{$a}{define} cmp $pgtype{$b}{define} } keys %pgtype) {
                printf $newfh "%s$pgtype{$_}{define}", !($step++ % 5) ? "\n            " : ' ';
            }
            print $newfh "\n";
            $step = 1;
            next;
        }
    }
    elsif (1 == $step) {
        next unless /\]/;
        $step = 2;
    }
    elsif (2 == $step) {
        if (/data types exported/) {
            print $newfh $_;
            $step = 0;
            for (sort { $pgtype{$a}{define} cmp $pgtype{$b}{define} } keys %pgtype) {
                printf $newfh "%s$pgtype{$_}{define}", !($step++ % 6) ? "\n " : ' ';
            }
            print $newfh "\n\n";
            $step = 3;
            next;
        }
    }
    elsif (3 == $step) {
        next unless /Be warned/;
        $step = 4;
    }
    print $newfh $_;
}
close $newfh;
close $oldfh;
system("mv $file.tmp $file");
print "Wrote $file\n";
## Rewrite 01constants.t
$file = 't/01constants.t';
open $oldfh, '<', $file;
open $newfh, '>', "$file.tmp";
$step = 0;
while (<$oldfh>) {
    if (0 == $step) {
        if (/^is/) {
            for (sort { $pgtype{$a}{define} cmp $pgtype{$b}{define} } keys %pgtype) {
                printf $newfh qq{is (%-*s, %5s, '%s returns correct value');\n},
                    3+$maxlen, $pgtype{$_}{define}, $pgtype{$_}{oid}, $pgtype{$_}{define};
            }
            print $newfh "\ndone_testing();\n";
            $step = 1;
            last;
        }
    }
    print $newfh $_;
}
close $newfh;
close $oldfh;
system("mv $file.tmp $file");
print "Wrote $file\n";
## Rewrite 99_pod.t
$file = 't/99_pod.t';
open $oldfh, '<', $file;
open $newfh, '>', "$file.tmp";
$step = 0;
while (<$oldfh>) {
    if (0 == $step) {
        if (/types.c/) {
            print $newfh $_;
            for (sort { $pgtype{$a}{define} cmp $pgtype{$b}{define} } keys %pgtype) {
                print $newfh "         qr{$pgtype{$_}{define}},\n";
            }
            print $newfh "\n";
            $step = 1;
            next;
        }
    }
    elsif (1 == $step) {
        next unless /;/;
        $step = 2;
    }
    print $newfh $_;
}
close $newfh;
close $oldfh;
system("mv $file.tmp $file");
print "Wrote $file\n";
## Rewrite types.c
$file = 'types.c';
open $newfh, '>', "$file.tmp";
print $newfh qq{$slashstar
   Copyright (c) 2003-2023 Greg Sabino Mullane and others: see the Changes file
    
   You may distribute under the terms of either the GNU General Public
   License or the Artistic License, as specified in the Perl README file.
$starslash
$slashstar
    Please do not edit the C portions of this file directly. 
    It is automatically generated by the enclosed Perl script.
$starslash
#include "Pg.h"
};
## Read in our DATA information to make things more specific
while (<DATA>) {
    last if /^__END__/;
    next unless /^[a-z]/o;
    chomp;
    my ($name,$q,$dq,$sql,$sqlc,$svtype) = split / +/ => $_;
    if (!exists $pgtype{$name}) {
        die qq{Type ($name) was not found in source file $typefile!\n};
    }
    $pgtype{$name}{quote}   = $q;
    $pgtype{$name}{dequote} = $dq;
    $pgtype{$name}{sql}     = $sql;
    $pgtype{$name}{sqlc}    = $sqlc;
    $pgtype{$name}{svtype}  = $svtype;
    ## For arrays, we want to echo the base svtype
    if ($svtype and exists $pgtype{"_$name"} and $pgtype{"_$name"}{typinput} =~ /array/) {
        $pgtype{"_$name"}{svtype} = $svtype;
    }
}
## Map all types into a sql_type_info structure
print $newfh "static sql_type_info_t pg_types[] = {\n";
my %pos;
my $item = 0;
for my $name (sort {$a cmp $b } keys %pgtype) {
    my $t = $pgtype{$name};
    my ($sqltype,$quote,$dequote) = (0,0,0);
    (my $sql = $t->{sql}) =~ s{^(\w+).*}{$1};
    printf $newfh qq! {%-*s,%-*s,%d,'%s',%-22s,%-12s,%-14s,\{%s\},%d\},\n!,
        $maxlen, $t->{define}, $maxlen-2, "\"$name\"", 1, $t->{typdelim}, "\"$t->{typoutput}\"", $t->{quote}, $t->{dequote}, $sql, $t->{svtype};
    $pos{$name} = $item++;
}
print $newfh "\};\n\n";
print $newfh
"sql_type_info_t* pg_type_data(int sql_type)
{
    switch(sql_type) {
\n";
for my $name (sort { $a cmp $b } keys %pgtype) {
    printf $newfh qq{        case %-*s return \&pg_types\[%d\];\n}, 1+$maxlen, "$pgtype{$name}{define}:", $pos{$name};
}
print $newfh "        default: return NULL;\n    \}\n\}\n\n";
print $newfh "static sql_type_info_t sql_types[] = \{\n";
undef %pos;
$item=0;
$maxlen = 1;
for my $name (sort { $a cmp $b } keys %pgtype) {
    next unless $pgtype{$name}{sql};
    for my $sql (split /\|/ => $pgtype{$name}{sql}) {
        ## {SQL_VARCHAR, "SQL_VARCHAR", quote_string, dequote_string, {VARCHAROID}, DBDPG_TRUE },
        printf $newfh qq! {%s,"%s",1,',', "none", $pgtype{$name}{quote}, $pgtype{$name}{dequote}, \{$pgtype{$name}{define}\}, $pgtype{$name}{svtype}\},\n!, $sql, $sql;
        $maxlen = length $sql if length $sql > $maxlen;
        $pos{$sql} = $item if $pgtype{$name}{sqlc};
        $item++;
    }
}
print $newfh "\};\n\n";
print $newfh "sql_type_info_t* sql_type_data(int sql_type)\n\{\n";
print $newfh "    switch(sql_type) \{\n";
for (sort { $pos{$a} <=> $pos{$b} } keys %pos) {
    printf $newfh qq{        case %-*s return \&sql_types\[%d\];\n}, 1+$maxlen, "$_:", $pos{$_};
}
print $newfh "        default: return NULL;\n    \}\n\}\n\n/" ."*\n";
seek(DATA,0,0);
1 while <DATA> !~ /!perl/;
print $newfh "#!perl\n";
while (<DATA>) { print $newfh $_; }
close $newfh;
system("mv $file.tmp $file");
print "Wrote $file\n";
exit;
__DATA__
## Format: for each type, there are 6 items, space separated:
## 1. The given name, from the Postgres source code (pg_type.h)
## 2. The function name we use to do the quoting, or 0 if we do not bind it
## 3. The function name we use for DE-quoting
## 4. The closest SQL_ datatype, or 0 if there is none. May be multiple, separated by |
## 5. Whether this is the one to use for reverse SQL_ type mapping
## 6. What type of SV we can put this in: 1: IV 2: NV
## Simple quoting (e.g. text) - wrap in single quotes, escape backslashes and apostrophes
## This is also the default action for types not specified here
varchar  quote_string  dequote_string  SQL_VARCHAR               1  0
text     quote_string  dequote_string  SQL_LONGVARCHAR           1  0
char     quote_string  dequote_char    SQL_CHAR                  0  0
bpchar   quote_string  dequote_char    SQL_CHAR                  1  0
cid      quote_string  dequote_string  0                         0  0
## Things that get special quoting
int2     quote_int     null_dequote    SQL_SMALLINT|SQL_TINYINT  1  1
int4     quote_int     null_dequote    SQL_INTEGER               1  1
int8     quote_int     null_dequote    SQL_BIGINT                1  0
float4   quote_float   null_dequote    0                         1  2
float8   quote_float   null_dequote    SQL_FLOAT|SQL_DOUBLE|SQL_REAL 1  2
numeric  quote_float   null_dequote    SQL_NUMERIC|SQL_DECIMAL   1  2
oid      quote_int     null_dequote    0                         0  1
name     quote_name    null_dequote    SQL_VARCHAR               0  0 ## XXX Wrong
## Boolean
bool     quote_bool    dequote_bool    SQL_BOOLEAN               1  3
## Geometric types
point    quote_geom    dequote_string  0                         0  0
line     quote_geom    dequote_string  0                         0  0
lseg     quote_geom    dequote_string  0                         0  0
box      quote_geom    dequote_string  0                         0  0
path     quote_path    dequote_string  0                         0  0
polygon  quote_geom    dequote_string  0                         0  0
circle   quote_circle  dequote_string  0                         0  0
## Similar enough to geometric types that we use the same quoting rules
tid      quote_geom    dequote_string  0                         0  0
## Binary - very different quoting rules
bytea    quote_bytea   dequote_bytea   SQL_VARBINARY|SQL_BLOB|SQL_BINARY|SQL_LONGVARBINARY             1  0
## Time and date
date        quote_string  dequote_string  SQL_TYPE_DATE                     1  0
time        quote_string  dequote_string  SQL_TYPE_TIME                     1  0
timestamp   quote_string  dequote_string  SQL_TIMESTAMP|SQL_TYPE_TIMESTAMP  1  0
timestamptz quote_string  dequote_string  SQL_TYPE_TIMESTAMP_WITH_TIMEZONE|SQL_TYPE_TIME_WITH_TIMEZONE       1  0
__END__
*/