Cast inet to bigint and back

bigint_to_inet.sql

create or replace function bigint_to_inet (intaddr bigint) returns inet
as
$BODY$
begin
	return '0.0.0.0'::inet + intaddr;
end
$BODY$
	language plpgsql immutable strict;

create cast (bigint as inet) with function bigint_to_inet(bigint);

create or replace function inet_to_bigint (addr inet) returns bigint
as
$BODY$
begin
	return addr - '0.0.0.0';
end
$BODY$
	language plpgsql immutable strict;

create cast (inet as bigint) with function inet_to_bigint(inet);