Casting text to reg*

I needed to do $SUBJECT in 8.2, which doesn't have the built-in
casts. In case anyone else needs to, the following works:

decibel(at)platter(dot)local=# create function regprocedure(text) returns
regprocedure language sql as 'select regprocedurein(textout($1))';
CREATE FUNCTION
decibel(at)platter(dot)local=# create cast(text as regprocedure) with
function regprocedure(text) as assignment;
CREATE CAST
decibel(at)platter(dot)local=# select 'abs(int)'::text::regprocedure;
regprocedure
--------------
abs(integer)
(1 row)

decibel(at)platter(dot)local=# select 'abs(int)'::text::regprocedure::oid;
oid
------
1397
(1 row)
--
Decibel! jnasby(at)cashnetusa(dot)com (512) 569-9461