RETURNS trigger

AS :'regresslib'

LANGUAGE C;

CREATE FUNCTION get_columns_length(oid[])

RETURNS int

AS :'regresslib'

LANGUAGE C STRICT STABLE PARALLEL SAFE;

-- Use hand-rolled hash functions and operator classes to get predictable

-- result on different machines. The hash function for int4 simply returns

-- the sum of the values passed to it and the one for text returns the length

PG_RETURN_BOOL(IsBinaryCoercible(srctype,targettype));

}

PG_FUNCTION_INFO_V1(get_columns_length);

get_columns_length(PG_FUNCTION_ARGS)

{

ArrayType*ta=PG_GETARG_ARRAYTYPE_P(0);

Oid*type_oids;

intntypes;

intcolumn_offset=0;

if (ARR_HASNULL(ta)&&array_contains_nulls(ta))

elog(ERROR,"argument must not contain nulls");

if (ARR_NDIM(ta)>1)

elog(ERROR,"argument must be empty or one-dimensional array");

type_oids= (Oid*)ARR_DATA_PTR(ta);

ntypes=ArrayGetNItems(ARR_NDIM(ta),ARR_DIMS(ta));

for (inti=0;i<ntypes;i++)

{

Oidtypeoid=type_oids[i];

int16typlen;

booltypbyval;

chartypalign;

get_typlenbyvalalign(typeoid,&typlen,&typbyval,&typalign);

if (typlen<0)

elog(ERROR,"type %u is not fixed-length data type",typeoid);

column_offset=att_align_nominal(column_offset+typlen,typalign);

}

PG_RETURN_INT32(column_offset);

}

AS :'regresslib'

LANGUAGE C;

CREATEFUNCTIONget_columns_length(oid[])

RETURNSint

AS :'regresslib'

LANGUAGE C STRICT STABLE PARALLEL SAFE;