302 lines
7.4 KiB
SQL
302 lines
7.4 KiB
SQL
--
|
|
-- PostgreSQL code for IP addresses.
|
|
--
|
|
-- $Id: ip.sql,v 1.5 1998/06/16 05:35:10 momjian Exp $
|
|
-- Invoced from 1998/02/14 17:58:04 scrappy
|
|
--
|
|
-- New - INPUT/OUTPUT, functions, indexing by btree, test.
|
|
-- PART # 1 - ip.sql - load new type, functions and operators.
|
|
-- Then you should execute ipi.sql - add ipaddr_ops class to allow indexing.
|
|
|
|
load '/usr/local/pgsql/contrib/ip_and_macs/ip.so';
|
|
|
|
--
|
|
-- Input and output functions and the type itself:
|
|
-- Note - we input 193.124.23.1 as /32, and 193.124.23.0 as /24.
|
|
-- We output /24 network withouth /24 suffix, and /32 hosts wothouth suffixes
|
|
-- if it is not '0' address of /24 network.
|
|
-- Just the same, we threat 0.0.0.0 as 0.0.0.0/0 == DEFAULT.
|
|
--
|
|
|
|
create function ipaddr_in(opaque)
|
|
returns opaque
|
|
as '/usr/local/pgsql/contrib/ip_and_macs/ip.so'
|
|
language 'c';
|
|
|
|
|
|
|
|
create function ipaddr_out(opaque)
|
|
returns opaque
|
|
as '/usr/local/pgsql/contrib/ip_and_macs/ip.so'
|
|
language 'c';
|
|
|
|
create type ipaddr (
|
|
internallength = 6,
|
|
externallength = variable,
|
|
input = ipaddr_in,
|
|
output = ipaddr_out
|
|
);
|
|
|
|
--
|
|
-- Print address by format
|
|
-- %A - address
|
|
-- %P - /Pref
|
|
-- %M - maska
|
|
-- %B - reversed maska
|
|
drop function ipaddr_print;
|
|
create function ipaddr_print(ipaddr, text)
|
|
returns text
|
|
as '/usr/local/pgsql/contrib/ip_and_macs/ip.so'
|
|
language 'c';
|
|
);
|
|
|
|
--
|
|
-- The various boolean tests:
|
|
-- In case if addresseas are equal, we compare prefix length
|
|
-- It means 193.124.23.0/24 < 193.124.23.0/32
|
|
--
|
|
|
|
create function ipaddr_lt(ipaddr, ipaddr)
|
|
returns bool
|
|
as '/usr/local/pgsql/contrib/ip_and_macs/ip.so'
|
|
language 'c';
|
|
|
|
create function ipaddr_le(ipaddr, ipaddr)
|
|
returns bool
|
|
as '/usr/local/pgsql/contrib/ip_and_macs/ip.so'
|
|
language 'c';
|
|
|
|
create function ipaddr_eq(ipaddr, ipaddr)
|
|
returns bool
|
|
as '/usr/local/pgsql/contrib/ip_and_macs/ip.so'
|
|
language 'c';
|
|
|
|
create function ipaddr_ge(ipaddr, ipaddr)
|
|
returns bool
|
|
as '/usr/local/pgsql/contrib/ip_and_macs/ip.so'
|
|
language 'c';
|
|
|
|
create function ipaddr_gt(ipaddr, ipaddr)
|
|
returns bool
|
|
as '/usr/local/pgsql/contrib/ip_and_macs/ip.so'
|
|
language 'c';
|
|
|
|
create function ipaddr_ne(ipaddr, ipaddr)
|
|
returns bool
|
|
as '/usr/local/pgsql/contrib/ip_and_macs/ip.so'
|
|
language 'c';
|
|
|
|
--
|
|
-- Test if a1 is in net a2
|
|
-- Return TRUE if a1 is IN a2 subnet or if a1 == a2
|
|
--
|
|
create function ipaddr_in_net(ipaddr, ipaddr)
|
|
returns bool
|
|
as '/usr/local/pgsql/contrib/ip_and_macs/ip.so'
|
|
language 'c';
|
|
|
|
--
|
|
-- Return the network from the host/network address. This means
|
|
-- 193.124.23.4/24 -> 193.124.23.0/24.
|
|
-- This allow to use interface address (with the real netmask) to create
|
|
-- network, and to link interfaces and addresses belongs to the same network.
|
|
--
|
|
|
|
create function ipaddr_net(ipaddr)
|
|
returns ipaddr
|
|
as '/usr/local/pgsql/contrib/ip_and_macs/ip.so'
|
|
language 'c';
|
|
|
|
--
|
|
-- Return TRUE if addr describe NETWORK, not host in the network
|
|
-- It's equivalent to ipaddr_net(a) == a
|
|
--
|
|
|
|
create function ipaddr_is_net(ipaddr)
|
|
returns boolean
|
|
as '/usr/local/pgsql/contrib/ip_and_macs/ip.so'
|
|
language 'c';
|
|
|
|
--
|
|
-- Return the number of the hosts in the network
|
|
--
|
|
|
|
create function ipaddr_len(ipaddr)
|
|
returns int4
|
|
as '/usr/local/pgsql/contrib/ip_and_macs/ip.so'
|
|
language 'c';
|
|
|
|
--
|
|
-- Return the prefix length of the network
|
|
--
|
|
|
|
create function ipaddr_pref(ipaddr)
|
|
returns int4
|
|
as '/usr/local/pgsql/contrib/ip_and_macs/ip.so'
|
|
language 'c';
|
|
|
|
--
|
|
-- Convert network into the integer.
|
|
-- Can be used for 'compose' function
|
|
--
|
|
|
|
create function ipaddr_integer(ipaddr)
|
|
returns int4
|
|
as '/usr/local/pgsql/contrib/ip_and_macs/ip.so'
|
|
language 'c';
|
|
|
|
--
|
|
-- Compose ipaddr from the ADDRESS and PREF
|
|
-- ipaddr_compose(ipaddr_integer(a),ipaddr_pref(a)) == a
|
|
--
|
|
|
|
create function ipaddr_compose(int4,int4)
|
|
returns ipaddr
|
|
as '/usr/local/pgsql/contrib/ip_and_macs/ip.so'
|
|
language 'c';
|
|
|
|
--
|
|
-- Return MASK for the network
|
|
--
|
|
|
|
create function ipaddr_mask(ipaddr)
|
|
returns ipaddr
|
|
as '/usr/local/pgsql/contrib/ip_and_macs/ip.so'
|
|
language 'c';
|
|
|
|
--
|
|
-- Return BROADCAST address for the network
|
|
--
|
|
|
|
create function ipaddr_bcast(ipaddr)
|
|
returns ipaddr
|
|
as '/usr/local/pgsql/contrib/ip_and_macs/ip.so'
|
|
language 'c';
|
|
|
|
--
|
|
-- Compare 2 addresses. First, compare addresses, then, compare prefixes (if the addresses
|
|
-- are the same).
|
|
--
|
|
|
|
create function ipaddr_cmp(ipaddr,ipaddr)
|
|
returns int4
|
|
as '/usr/local/pgsql/contrib/ip_and_macs/ip.so'
|
|
language 'c';
|
|
|
|
--
|
|
-- Plus and Minus operators
|
|
--
|
|
|
|
create function ipaddr_plus(ipaddr,int4)
|
|
returns ipaddr
|
|
as '/usr/local/pgsql/contrib/ip_and_macs/ip.so'
|
|
language 'c';
|
|
|
|
create function ipaddr_minus(ipaddr,int4)
|
|
returns ipaddr
|
|
as '/usr/local/pgsql/contrib/ip_and_macs/ip.so'
|
|
language 'c';
|
|
|
|
--
|
|
-- Now the operators. Note how some of the parameters to some
|
|
-- of the 'create operator' commands are commented out. This
|
|
-- is because they reference as yet undefined operators, and
|
|
-- will be implicitly defined when those are, further down.
|
|
--
|
|
|
|
-- drop operator < ( ipaddr, ipaddr);
|
|
create operator < (
|
|
leftarg = ipaddr,
|
|
rightarg = ipaddr,
|
|
-- negator = >=,
|
|
procedure = ipaddr_lt,
|
|
restrict = intltsel,
|
|
join = intltjoinsel
|
|
);
|
|
|
|
-- drop operator <= (ipaddr,ipaddr);
|
|
create operator <= (
|
|
leftarg = ipaddr,
|
|
rightarg = ipaddr,
|
|
-- negator = >,
|
|
procedure = ipaddr_le,
|
|
restrict = intltsel,
|
|
join = intltjoinsel
|
|
);
|
|
|
|
-- drop operator = (ipaddr,ipaddr);
|
|
create operator = (
|
|
leftarg = ipaddr,
|
|
rightarg = ipaddr,
|
|
commutator = =,
|
|
-- negator = <>,
|
|
restrict = eqsel,
|
|
join = eqjoinsel,
|
|
procedure = ipaddr_eq
|
|
);
|
|
|
|
|
|
-- drop operator >= (ipaddr,ipaddr);
|
|
create operator >= (
|
|
leftarg = ipaddr,
|
|
rightarg = ipaddr,
|
|
negator = <,
|
|
procedure = ipaddr_ge,
|
|
restrict = intgtsel,
|
|
join = intgtjoinsel
|
|
);
|
|
|
|
-- drop operator > (ipaddr,ipaddr);
|
|
create operator > (
|
|
leftarg = ipaddr,
|
|
rightarg = ipaddr,
|
|
negator = <=,
|
|
procedure = ipaddr_gt,
|
|
restrict = intgtsel,
|
|
join = intgtjoinsel
|
|
);
|
|
|
|
-- drop operator <> (ipaddr,ipaddr);
|
|
create operator <> (
|
|
leftarg = ipaddr,
|
|
rightarg = ipaddr,
|
|
negator = =,
|
|
procedure = ipaddr_ne,
|
|
restrict = neqsel,
|
|
join = neqjoinsel
|
|
);
|
|
|
|
create operator @ (
|
|
leftarg = ipaddr,
|
|
rightarg = ipaddr,
|
|
procedure = ipaddr_in_net
|
|
);
|
|
|
|
create operator + (
|
|
leftarg = ipaddr,
|
|
rightarg = int4,
|
|
procedure = ipaddr_plus
|
|
);
|
|
|
|
create operator - (
|
|
leftarg = ipaddr,
|
|
rightarg = int4,
|
|
procedure = ipaddr_minus
|
|
);
|
|
|
|
-- *****************************************************************************************
|
|
-- * For now, you have: input/output (remember, '193.124.23.0' means /24 network, *
|
|
-- * '193.124.23.1' means /32 host) *
|
|
-- * <, <=, = <>, >=, > relational operations; host @ net (host is the part of the net) op *
|
|
-- * varchar ipaddr_print(addr, '%A/%P %M %B') - print by pattern function *
|
|
-- * ipaddr ipaddr_mask(a),ipaddr_bcast(a),ipaddr_net(a) functions (mask,bcast, start addr)*
|
|
-- * int4 ipaddr_len(a) - lenght of subnet; ipaddr_pref(a) - prefix length, *
|
|
-- * int4 ipaddr_integer(a) - integer value; ipaddr ipaddr_compose(integer_addr,pref_len) *
|
|
-- * compose ipaddr from addr and mask *
|
|
-- * '+' and '-' operators (ipaddr = ipaddr + integer),(ipaddr = ipaddr - integer) ops *
|
|
-- *****************************************************************************************
|
|
-- * R E A D T H I S T E X T B E F O R E E X I T I N G : *
|
|
-- * Now you should execute ipi.sql to allow BTREE indexing on this class. *
|
|
-- *****************************************************************************************
|
|
-- eof
|