CREATETYPE_pg_expandoidvector_typeAS (ooid, nint);

CREATEFUNCTION_pg_expandoidvector(oidvector)

RETURNS SETOF _pg_expandoidvector_type

CREATEFUNCTION_pg_expandarray(IN anyarray, OUT x anyelement, OUT nint)

RETURNS SETOF RECORD

LANGUAGE sql STRICT IMMUTABLE

from generate_series(0,array_upper($1,1),1) as g(s)';

CREATETYPE_pg_expandsmallint_typeAS (ismallint, nint);

CREATEFUNCTION_pg_expandsmallint(smallint[])

RETURNS SETOF _pg_expandsmallint_type

LANGUAGE sql STRICT IMMUTABLE

from generate_series(1,array_upper($1,1),1) as g(s)';

1) as g(s)';

CREATEFUNCTION_pg_keyissubset(smallint[],smallint[]) RETURNSboolean

LANGUAGE sql

FROM pg_attribute a,

(SELECTr.oid,nc.nspnameAS nc_nspname,c.conname,

nr.nspnameAS nr_nspname,r.relname,

_pg_expandsmallint(c.conkey)AS x

_pg_expandarray(c.conkey)AS x

FROM pg_namespace nr, pg_class r, pg_namespace nc,

pg_constraint c, pg_user u

WHEREnr.oid=r.relnamespace

ANDr.relowner=u.usesysid

ANDu.usename=current_user)AS ss

WHEREss.oid=a.attrelid

ANDa.attnum= (ss.x).i

ANDa.attnum= (ss.x).x

AND NOTa.attisdropped;

GRANTSELECTON key_column_usage TO PUBLIC;

CAST(n_nspnameAS sql_identifier)AS specific_schema,

CAST(proname||'_'|| CAST(p_oidAStext)AS sql_identifier)AS specific_name,

CAST((ss.x).nAS cardinal_number)AS ordinal_position,

CAST('IN'AS character_data)AS parameter_mode,

CAST(

CASE WHEN proargmodes ISNULL THEN'IN'

WHEN proargmodes[(ss.x).n]='i' THEN'IN'

WHEN proargmodes[(ss.x).n]='o' THEN'OUT'

WHEN proargmodes[(ss.x).n]='b' THEN'INOUT'

ENDAS character_data)AS parameter_mode,

CAST('NO'AS character_data)AS is_result,

CAST('NO'AS character_data)AS as_locator,

CAST(NULLIF(proargnames[(ss.x).n],'')AS sql_identifier)AS parameter_name,

FROM pg_type t, pg_namespace nt,

(SELECTn.nspnameAS n_nspname,p.proname,p.oidAS p_oid,

p.proargnames, _pg_expandoidvector(p.proargtypes)AS x

p.proargnames,p.proargmodes,

_pg_expandarray(coalesce(p.proallargtypes,p.proargtypes::oid[]))AS x

FROM pg_namespace n, pg_proc p, pg_user u

WHEREn.oid=p.pronamespace

ANDp.proowner=u.usesysid

AND (u.usename=current_userOR

has_function_privilege(p.oid,'EXECUTE')))AS ss

WHEREt.oid= (ss.x).oANDt.typnamespace=nt.oid;

WHEREt.oid= (ss.x).xANDt.typnamespace=nt.oid;

GRANTSELECTON parameters TO PUBLIC;

SELECT pronamespace, CAST(proname||'_'|| CAST(oidAStext)AS sql_identifier),

'ROUTINE'::text, (ss.x).n, (ss.x).o

'ROUTINE'::text, (ss.x).n, (ss.x).x

FROM (SELECTp.pronamespace,p.proname,p.oid,

_pg_expandoidvector(p.proargtypes)AS x

_pg_expandarray(coalesce(p.proallargtypes,p.proargtypes::oid[]))AS x

FROM pg_proc p)AS ss