Thread

1. cidr

   Paul A Vixie <vixie@vix.com> — 1998-07-19T19:27:13Z

   i didn't realize that anybody else was working on an IP address
   data type or i'd've posted this six months ago when i first wrote
   it.  it lacks only the stuff needed to make it usable as a UNIQUE
   KEY.  it depends on BIND-8's libraries.
   
   #!/bin/sh
   # This is a shell archive (produced by GNU sharutils 4.2).
   # To extract the files from this archive, save it to some FILE, remove
   # everything before the `!/bin/sh' line above, then type `sh FILE'.
   #
   # Made on 1998-07-19 12:25 PDT by <vixie@bb.rc.vix.com>.
   # Source directory was `/tmp_mnt/mb/mb0/user/vixie/src/postgres-cidrtype'.
   #
   # Existing files will *not* be overwritten unless `-c' is specified.
   #
   # This shar contains:
   # length mode       name
   # ------ ---------- ------------------------------------------
   #    671 -r--r--r-- Makefile
   #   4572 -r--r--r-- cidr.c
   #   2877 -r--r--r-- cidr.source
   #   3068 -r--r--r-- cidr.sql
   #
   save_IFS="${IFS}"
   IFS="${IFS}:"
   gettext_dir=FAILED
   locale_dir=FAILED
   first_param="$1"
   for dir in $PATH
   do
     if test "$gettext_dir" = FAILED && test -f $dir/gettext \
        && ($dir/gettext --version >/dev/null 2>&1)
     then
       set `$dir/gettext --version 2>&1`
       if test "$3" = GNU
       then
         gettext_dir=$dir
       fi
     fi
     if test "$locale_dir" = FAILED && test -f $dir/shar \
        && ($dir/shar --print-text-domain-dir >/dev/null 2>&1)
     then
       locale_dir=`$dir/shar --print-text-domain-dir`
     fi
   done
   IFS="$save_IFS"
   if test "$locale_dir" = FAILED || test "$gettext_dir" = FAILED
   then
     echo=echo
   else
     TEXTDOMAINDIR=$locale_dir
     export TEXTDOMAINDIR
     TEXTDOMAIN=sharutils
     export TEXTDOMAIN
     echo="$gettext_dir/gettext -s"
   fi
   touch -am 1231235999 $$.touch >/dev/null 2>&1
   if test ! -f 1231235999 && test -f $$.touch; then
     shar_touch=touch
   else
     shar_touch=:
     echo
     $echo 'WARNING: not restoring timestamps.  Consider getting and'
     $echo "installing GNU \`touch', distributed in GNU File Utilities..."
     echo
   fi
   rm -f 1231235999 $$.touch
   #
   if mkdir _sh17086; then
     $echo 'x -' 'creating lock directory'
   else
     $echo 'failed to create lock directory'
     exit 1
   fi
   # ============= Makefile ==============
   if test -f 'Makefile' && test "$first_param" != -c; then
     $echo 'x -' SKIPPING 'Makefile' '(file already exists)'
   else
     $echo 'x -' extracting 'Makefile' '(text)'
     sed 's/^X//' << 'SHAR_EOF' > 'Makefile' &&
   ifndef PGDIR
   PGDIR= /db0/local/postgresql-6.2
   endif
   X
   SRCDIR= $(PGDIR)/src
   X
   include $(SRCDIR)/Makefile.global
   X
   CFLAGS+= -I$(PGDIR)/include -I$(PGDIR)/src/include -I$(LIBPQDIR)
   CFLAGS+= -I/usr/local/bind/include
   X
   CLIBS+= -L/usr/local/bind/lib -lbind
   X
   TARGETS= cidr.sql cidr${DLSUFFIX}
   X
   DLSUFFIX=.so
   X
   all:	$(TARGETS)
   X
   cidr${DLSUFFIX}: cidr.o
   X	shlicc2 -r -o cidr${DLSUFFIX} cidr.o -L/usr/local/bind/lib -lbind
   X
   install:
   X	$(MAKE) all
   X	cp -p cidr$(DLSUFFIX) $(LIBDIR)
   X
   %.sql: %.source
   X	rm -f $@; C=`pwd`; O=$$C; \
   X	if [ -d ${LIBDIR} ]; then O=${LIBDIR}; fi; \
   X	sed -e "s:_OBJWD_:$$O:g" \
   X	    -e "s:_DLSUFFIX_:$(DLSUFFIX):g" \
   X	    < $< > $@
   X
   clean: 
   X	rm -f $(TARGETS) cidr.o
   X
   SHAR_EOF
     $shar_touch -am 1108213897 'Makefile' &&
     chmod 0444 'Makefile' ||
     $echo 'restore of' 'Makefile' 'failed'
     if ( md5sum --help 2>&1 | grep 'sage: md5sum \[' ) >/dev/null 2>&1 \
     && ( md5sum --version 2>&1 | grep -v 'textutils 1.12' ) >/dev/null; then
       md5sum -c << SHAR_EOF >/dev/null 2>&1 \
       || $echo 'Makefile:' 'MD5 check failed'
   ecb325bcab4a92f4fd5657cdc29a9f63  Makefile
   SHAR_EOF
     else
       shar_count="`LC_ALL= LC_CTYPE= LANG= wc -c < 'Makefile'`"
       test 671 -eq "$shar_count" ||
       $echo 'Makefile:' 'original size' '671,' 'current size' "$shar_count!"
     fi
   fi
   # ============= cidr.c ==============
   if test -f 'cidr.c' && test "$first_param" != -c; then
     $echo 'x -' SKIPPING 'cidr.c' '(file already exists)'
   else
     $echo 'x -' extracting 'cidr.c' '(text)'
     sed 's/^X//' << 'SHAR_EOF' > 'cidr.c' &&
   /*
   X * cidr.c - Internal Classless InterDomain Routing entities for PostGreSQL
   X *
   X * Paul Vixie <paul@vix.com>, Internet Software Consortium, October 1997.
   X *
   X * $Id: cidr.c,v 1.4 1998/07/15 19:36:56 vixie Exp $
   X */
   X
   /* Import. */
   X
   #include <sys/types.h>
   #include <sys/socket.h>
   X
   #include <ctype.h>
   #include <errno.h>
   #include <stdio.h>
   #include <stdlib.h>
   #include <string.h>
   #include <time.h>
   X
   #include <netinet/in.h>
   #include <arpa/inet.h>
   #include <isc/misc.h>
   X
   #include "postgres.h"
   #include "utils/palloc.h"
   X
   /* Define. */
   X
   #define cidr_min(a, b) (((a) < (b)) ? (a) : (b))
   X
   typedef struct {
   X	unsigned char	family;
   X	unsigned char	bits;
   X	unsigned char	bytes[1];	/* This is really an open array. */
   } cidr;
   X
   #define	cidr_addrsize(fam) ((fam) == AF_INET ? 4 : -1)
   #define cidr_size(addrsize) (sizeof(cidr) - sizeof(unsigned char) + addrsize)
   X
   /* Export. */
   X
   cidr *	cidr_in(const char *);
   char *	cidr_out(const cidr *);
   X
   bool	cidr_eq(const cidr *, const cidr *);
   bool	cidr_ne(const cidr *, const cidr *);
   bool	cidr_lt(const cidr *, const cidr *);
   bool	cidr_gt(const cidr *, const cidr *);
   bool	cidr_le(const cidr *, const cidr *);
   bool	cidr_ge(const cidr *, const cidr *);
   bool	cidr_sub(const cidr *, const cidr *);
   bool	cidr_subeq(const cidr *, const cidr *);
   bool	cidr_sup(const cidr *, const cidr *);
   bool	cidr_supeq(const cidr *, const cidr *);
   int4	cidr_span(const cidr *, const cidr *);
   int4	cidr_cmp(const cidr *, const cidr *);
   X
   /* Functions. */
   X
   cidr *
   cidr_in(const char *src) {
   X	int bits, bytes;
   X	cidr *dst;
   X
   X	bytes = cidr_addrsize(AF_INET);
   X	if (bytes == -1) {
   X		elog(WARN, "Programming error in cidr_in()");
   X		return (NULL);
   X	}
   X	dst = palloc(cidr_size(bytes));
   X	if (dst == NULL) {
   X		elog(WARN, "Unable to allocate memory in cidr_in()");
   X		return (NULL);
   X	}
   X	bits = inet_net_pton(AF_INET, src, &dst->bytes, bytes);
   X	if (bits < 0 || bits > 32) {
   X		elog(WARN, "Bad CIDR expression (%s)", src);
   X		pfree(dst);
   X		return (NULL);
   X	}
   X	dst->bits = (unsigned char)bits;
   X	return (dst);
   }
   X
   char *
   cidr_out(const cidr *src) {
   X	char *dst, tmp[sizeof "255.255.255.255/32"];
   X
   X	if (inet_net_ntop(AF_INET, &src->bytes, src->bits,
   X			  tmp, sizeof tmp) < 0) {
   X		elog(WARN, "Unable to format CIDR (%s)", strerror(errno));
   X		pfree(dst);
   X		return (NULL);
   X	}
   X	dst = palloc(strlen(tmp) + 1);
   X	if (dst == NULL) {
   X		elog(WARN, "Unable to allocate memory in cidr_out()");
   X		return (NULL);
   X	}
   X	strcpy(dst, tmp);
   X	return (dst);
   }
   X
   /* Equality. */
   X
   bool
   cidr_eq(const cidr *lhs, const cidr *rhs) {
   X	return (lhs->bits == rhs->bits &&
   X		bitncmp(lhs->bytes, rhs->bytes, lhs->bits) == 0);
   }
   X
   bool
   cidr_ne(const cidr *lhs, const cidr *rhs) {
   X	return (!cidr_eq(lhs, rhs));
   }
   X
   /* Ordering. */
   X
   bool
   cidr_lt(const cidr *lhs, const cidr *rhs) {
   X	int x = bitncmp(lhs->bytes, rhs->bytes,
   X			cidr_min(lhs->bits, rhs->bits));
   X
   X	return (x < 0 || (x == 0 && lhs->bits < rhs->bits));
   }
   X
   bool
   cidr_le(const cidr *lhs, const cidr *rhs) {
   X	return (cidr_lt(lhs, rhs) || cidr_eq(lhs, rhs));
   }
   X
   bool
   cidr_gt(const cidr *lhs, const cidr *rhs) {
   X	int x = bitncmp(lhs->bytes, rhs->bytes,
   X			cidr_min(lhs->bits, rhs->bits));
   X
   X	return (x > 0 || (x == 0 && lhs->bits > rhs->bits));
   }
   X
   bool
   cidr_ge(const cidr *lhs, const cidr *rhs) {
   X	return (cidr_gt(lhs, rhs) || cidr_eq(lhs, rhs));
   }
   X
   /* Subnetting. */
   X
   bool
   cidr_sub(const cidr *lhs, const cidr *rhs) {
   X	return (lhs->bits > rhs->bits &&
   X		bitncmp(lhs->bytes, rhs->bytes, rhs->bits) == 0);
   }
   X
   bool
   cidr_subeq(const cidr *lhs, const cidr *rhs) {
   X	return (lhs->bits >= rhs->bits &&
   X		bitncmp(lhs->bytes, rhs->bytes, rhs->bits) == 0);
   }
   X
   /* Supernetting. */
   X
   bool
   cidr_sup(const cidr *lhs, const cidr *rhs) {
   X	return (lhs->bits < rhs->bits &&
   X		bitncmp(lhs->bytes, rhs->bytes, lhs->bits) == 0);
   }
   X
   bool
   cidr_supeq(const cidr *lhs, const cidr *rhs) {
   X	return (lhs->bits <= rhs->bits &&
   X		bitncmp(lhs->bytes, rhs->bytes, lhs->bits) == 0);
   }
   X
   int4
   cidr_span(const cidr *lhs, const cidr *rhs) {
   X	const u_char *l = lhs->bytes, *r = rhs->bytes;
   X	int n = cidr_min(lhs->bits, rhs->bits);
   X	int b = n >> 3;
   X	int4 result = 0;
   X	u_int lb, rb;
   X
   X	/* Find out how many full octets match. */
   X	while (b > 0 && *l == *r)
   X		b--, l++, r++, result += 8;
   X	/* Find out how many bits to check. */
   X	if (b == 0)
   X		b = n & 07;
   X	else
   X		b = 8;
   X	/* Find out how many bits match. */
   X	lb = *l, rb = *r;
   X	while (b > 0 && (lb & 0x80) == (rb & 0x80))
   X		b--, lb <<= 1, rb <<= 1, result++;
   X	return (result);
   }
   X
   int4
   cidr_cmp(const cidr *lhs, const cidr *rhs) {
   X	int x = bitncmp(lhs->bytes, rhs->bytes,
   X			cidr_min(lhs->bits, rhs->bits));
   X
   X	if (x < 0)
   X		return (-1);
   X	if (x > 0)
   X		return (1);
   X	return (0);
   }
   SHAR_EOF
     $shar_touch -am 0715123698 'cidr.c' &&
     chmod 0444 'cidr.c' ||
     $echo 'restore of' 'cidr.c' 'failed'
     if ( md5sum --help 2>&1 | grep 'sage: md5sum \[' ) >/dev/null 2>&1 \
     && ( md5sum --version 2>&1 | grep -v 'textutils 1.12' ) >/dev/null; then
       md5sum -c << SHAR_EOF >/dev/null 2>&1 \
       || $echo 'cidr.c:' 'MD5 check failed'
   f8fd720dbffa7ab05d594c9953b75170  cidr.c
   SHAR_EOF
     else
       shar_count="`LC_ALL= LC_CTYPE= LANG= wc -c < 'cidr.c'`"
       test 4572 -eq "$shar_count" ||
       $echo 'cidr.c:' 'original size' '4572,' 'current size' "$shar_count!"
     fi
   fi
   # ============= cidr.source ==============
   if test -f 'cidr.source' && test "$first_param" != -c; then
     $echo 'x -' SKIPPING 'cidr.source' '(file already exists)'
   else
     $echo 'x -' extracting 'cidr.source' '(text)'
     sed 's/^X//' << 'SHAR_EOF' > 'cidr.source' &&
   ---------------------------------------------------------------------------
   --
   -- cidr.sql-
   --    This file defines operators Classless InterDomain Routing entities.
   --
   ---------------------------------------------------------------------------
   X
   LOAD '_OBJWD_/cidr_DLSUFFIX_';
   X
   CREATE FUNCTION cidr_in(opaque)
   X	RETURNS cidr
   X	AS '_OBJWD_/cidr_DLSUFFIX_'
   X	LANGUAGE 'c';
   X
   CREATE FUNCTION cidr_out(opaque)
   X	RETURNS opaque
   X	AS '_OBJWD_/cidr_DLSUFFIX_'
   X	LANGUAGE 'c';
   X
   CREATE TYPE cidr (
   X	internallength = 6,
   X	input = cidr_in,
   X	output = cidr_out
   );
   X
   CREATE FUNCTION cidr_cmp(cidr, cidr)
   X	RETURNS int4
   X	AS '_OBJWD_/cidr_DLSUFFIX_'
   X	LANGUAGE 'c';
   X
   -----------------------------
   -- Create operators
   -----------------------------
   X
   -- equality (=)
   X
   CREATE FUNCTION cidr_eq(cidr, cidr)
   X	RETURNS bool
   X	AS '_OBJWD_/cidr_DLSUFFIX_'
   X	LANGUAGE 'c';
   X
   CREATE OPERATOR = (
   X	leftarg = cidr,
   X	rightarg = cidr,
   X	procedure = cidr_eq,
   X	commutator = =
   );
   X
   -- inequality (<>)
   X
   CREATE FUNCTION cidr_ne(cidr, cidr)
   X	RETURNS bool
   X	AS '_OBJWD_/cidr_DLSUFFIX_'
   X	LANGUAGE 'c';
   X
   CREATE OPERATOR <> (
   X	leftarg = cidr,
   X	rightarg = cidr,
   X	procedure = cidr_ne,
   X	commutator = <>
   );
   X
   -- less (<, <=)
   X
   CREATE FUNCTION cidr_lt(cidr, cidr)
   X	RETURNS bool
   X	AS '_OBJWD_/cidr_DLSUFFIX_'
   X	LANGUAGE 'c';
   X
   CREATE OPERATOR < (
   X	leftarg = cidr,
   X	rightarg = cidr,
   X	procedure = cidr_lt
   );
   X
   CREATE FUNCTION cidr_le(cidr, cidr)
   X	RETURNS bool
   X	AS '_OBJWD_/cidr_DLSUFFIX_'
   X	LANGUAGE 'c';
   X
   CREATE OPERATOR <= (
   X	leftarg = cidr,
   X	rightarg = cidr,
   X	procedure = cidr_le
   );
   X
   -- greater (>, >=)
   X
   CREATE FUNCTION cidr_gt(cidr, cidr)
   X	RETURNS bool
   X	AS '_OBJWD_/cidr_DLSUFFIX_'
   X	LANGUAGE 'c';
   X
   CREATE OPERATOR > (
   X	leftarg = cidr,
   X	rightarg = cidr,
   X	procedure = cidr_gt
   );
   X
   CREATE FUNCTION cidr_ge(cidr, cidr)
   X	RETURNS bool
   X	AS '_OBJWD_/cidr_DLSUFFIX_'
   X	LANGUAGE 'c';
   X
   CREATE OPERATOR >= (
   X	leftarg = cidr,
   X	rightarg = cidr,
   X	procedure = cidr_ge
   );
   X
   -- subnet (<<, <<=)
   X
   CREATE FUNCTION cidr_sub(cidr, cidr)
   X	RETURNS bool
   X	AS '_OBJWD_/cidr_DLSUFFIX_'
   X	LANGUAGE 'c';
   X
   CREATE OPERATOR << (
   X	leftarg = cidr,
   X	rightarg = cidr,
   X	procedure = cidr_sub
   );
   X
   CREATE FUNCTION cidr_subeq(cidr, cidr)
   X	RETURNS bool
   X	AS '_OBJWD_/cidr_DLSUFFIX_'
   X	LANGUAGE 'c';
   X
   CREATE OPERATOR <<= (
   X	leftarg = cidr,
   X	rightarg = cidr,
   X	procedure = cidr_subeq
   );
   X
   -- supernet (>>, >>=)
   X
   CREATE FUNCTION cidr_sup(cidr, cidr)
   X	RETURNS bool
   X	AS '_OBJWD_/cidr_DLSUFFIX_'
   X	LANGUAGE 'c';
   X
   CREATE OPERATOR >> (
   X	leftarg = cidr,
   X	rightarg = cidr,
   X	procedure = cidr_sup
   );
   X
   CREATE FUNCTION cidr_supeq(cidr, cidr)
   X	RETURNS bool
   X	AS '_OBJWD_/cidr_DLSUFFIX_'
   X	LANGUAGE 'c';
   X
   CREATE OPERATOR >>= (
   X	leftarg = cidr,
   X	rightarg = cidr,
   X	procedure = cidr_supeq
   );
   X
   -- spanning (length of prefix match)
   X
   CREATE FUNCTION cidr_span(cidr, cidr)
   X	RETURNS int4
   X	AS '_OBJWD_/cidr_DLSUFFIX_'
   X	LANGUAGE 'c';
   X
   CREATE FUNCTION cidr_masklen(cidr)
   X	RETURNS int2
   X	AS '_OBJWD_/cidr_DLSUFFIX_'
   X	LANGUAGE 'c';
   SHAR_EOF
     $shar_touch -am 0719122498 'cidr.source' &&
     chmod 0444 'cidr.source' ||
     $echo 'restore of' 'cidr.source' 'failed'
     if ( md5sum --help 2>&1 | grep 'sage: md5sum \[' ) >/dev/null 2>&1 \
     && ( md5sum --version 2>&1 | grep -v 'textutils 1.12' ) >/dev/null; then
       md5sum -c << SHAR_EOF >/dev/null 2>&1 \
       || $echo 'cidr.source:' 'MD5 check failed'
   dca27b8d433d030e5049bb04ad15df03  cidr.source
   SHAR_EOF
     else
       shar_count="`LC_ALL= LC_CTYPE= LANG= wc -c < 'cidr.source'`"
       test 2877 -eq "$shar_count" ||
       $echo 'cidr.source:' 'original size' '2877,' 'current size' "$shar_count!"
     fi
   fi
   # ============= cidr.sql ==============
   if test -f 'cidr.sql' && test "$first_param" != -c; then
     $echo 'x -' SKIPPING 'cidr.sql' '(file already exists)'
   else
     $echo 'x -' extracting 'cidr.sql' '(text)'
     sed 's/^X//' << 'SHAR_EOF' > 'cidr.sql' &&
   ---------------------------------------------------------------------------
   --
   -- cidr.sql-
   --    This file defines operators Classless InterDomain Routing entities.
   --
   ---------------------------------------------------------------------------
   X
   LOAD '/var/home/vixie/postgres-cidrtype/cidr.so';
   X
   CREATE FUNCTION cidr_in(opaque)
   X	RETURNS cidr
   X	AS '/var/home/vixie/postgres-cidrtype/cidr.so'
   X	LANGUAGE 'c';
   X
   CREATE FUNCTION cidr_out(opaque)
   X	RETURNS opaque
   X	AS '/var/home/vixie/postgres-cidrtype/cidr.so'
   X	LANGUAGE 'c';
   X
   CREATE TYPE cidr (
   X	internallength = 5,
   X	input = cidr_in,
   X	output = cidr_out
   );
   X
   CREATE FUNCTION cidr_cmp(cidr, cidr)
   X	RETURNS int4
   X	AS '/var/home/vixie/postgres-cidrtype/cidr.so'
   X	LANGUAGE 'c';
   X
   -----------------------------
   -- Create operators
   -----------------------------
   X
   -- equality (=)
   X
   CREATE FUNCTION cidr_eq(cidr, cidr)
   X	RETURNS bool
   X	AS '/var/home/vixie/postgres-cidrtype/cidr.so'
   X	LANGUAGE 'c';
   X
   CREATE OPERATOR = (
   X	leftarg = cidr,
   X	rightarg = cidr,
   X	procedure = cidr_eq,
   X	commutator = =
   );
   X
   -- inequality (<>)
   X
   CREATE FUNCTION cidr_ne(cidr, cidr)
   X	RETURNS bool
   X	AS '/var/home/vixie/postgres-cidrtype/cidr.so'
   X	LANGUAGE 'c';
   X
   CREATE OPERATOR <> (
   X	leftarg = cidr,
   X	rightarg = cidr,
   X	procedure = cidr_ne,
   X	commutator = <>
   );
   X
   -- less (<, <=)
   X
   CREATE FUNCTION cidr_lt(cidr, cidr)
   X	RETURNS bool
   X	AS '/var/home/vixie/postgres-cidrtype/cidr.so'
   X	LANGUAGE 'c';
   X
   CREATE OPERATOR < (
   X	leftarg = cidr,
   X	rightarg = cidr,
   X	procedure = cidr_lt
   );
   X
   CREATE FUNCTION cidr_le(cidr, cidr)
   X	RETURNS bool
   X	AS '/var/home/vixie/postgres-cidrtype/cidr.so'
   X	LANGUAGE 'c';
   X
   CREATE OPERATOR <= (
   X	leftarg = cidr,
   X	rightarg = cidr,
   X	procedure = cidr_le
   );
   X
   -- greater (>, >=)
   X
   CREATE FUNCTION cidr_gt(cidr, cidr)
   X	RETURNS bool
   X	AS '/var/home/vixie/postgres-cidrtype/cidr.so'
   X	LANGUAGE 'c';
   X
   CREATE OPERATOR > (
   X	leftarg = cidr,
   X	rightarg = cidr,
   X	procedure = cidr_gt
   );
   X
   CREATE FUNCTION cidr_ge(cidr, cidr)
   X	RETURNS bool
   X	AS '/var/home/vixie/postgres-cidrtype/cidr.so'
   X	LANGUAGE 'c';
   X
   CREATE OPERATOR >= (
   X	leftarg = cidr,
   X	rightarg = cidr,
   X	procedure = cidr_ge
   );
   X
   -- subnet (<<, <<=)
   X
   CREATE FUNCTION cidr_sub(cidr, cidr)
   X	RETURNS bool
   X	AS '/var/home/vixie/postgres-cidrtype/cidr.so'
   X	LANGUAGE 'c';
   X
   CREATE OPERATOR << (
   X	leftarg = cidr,
   X	rightarg = cidr,
   X	procedure = cidr_sub
   );
   X
   CREATE FUNCTION cidr_subeq(cidr, cidr)
   X	RETURNS bool
   X	AS '/var/home/vixie/postgres-cidrtype/cidr.so'
   X	LANGUAGE 'c';
   X
   CREATE OPERATOR <<= (
   X	leftarg = cidr,
   X	rightarg = cidr,
   X	procedure = cidr_subeq
   );
   X
   -- supernet (>>, >>=)
   X
   CREATE FUNCTION cidr_sup(cidr, cidr)
   X	RETURNS bool
   X	AS '/var/home/vixie/postgres-cidrtype/cidr.so'
   X	LANGUAGE 'c';
   X
   CREATE OPERATOR >> (
   X	leftarg = cidr,
   X	rightarg = cidr,
   X	procedure = cidr_sup
   );
   X
   CREATE FUNCTION cidr_supeq(cidr, cidr)
   X	RETURNS bool
   X	AS '/var/home/vixie/postgres-cidrtype/cidr.so'
   X	LANGUAGE 'c';
   X
   CREATE OPERATOR >>= (
   X	leftarg = cidr,
   X	rightarg = cidr,
   X	procedure = cidr_supeq
   );
   X
   -- spanning (length of prefix match)
   X
   CREATE FUNCTION cidr_span(cidr, cidr)
   X	RETURNS int4
   X	AS '/var/home/vixie/postgres-cidrtype/cidr.so'
   X	LANGUAGE 'c';
   SHAR_EOF
     $shar_touch -am 1201183797 'cidr.sql' &&
     chmod 0444 'cidr.sql' ||
     $echo 'restore of' 'cidr.sql' 'failed'
     if ( md5sum --help 2>&1 | grep 'sage: md5sum \[' ) >/dev/null 2>&1 \
     && ( md5sum --version 2>&1 | grep -v 'textutils 1.12' ) >/dev/null; then
       md5sum -c << SHAR_EOF >/dev/null 2>&1 \
       || $echo 'cidr.sql:' 'MD5 check failed'
   097a4f0f2b5915fc5478976233c714f3  cidr.sql
   SHAR_EOF
     else
       shar_count="`LC_ALL= LC_CTYPE= LANG= wc -c < 'cidr.sql'`"
       test 3068 -eq "$shar_count" ||
       $echo 'cidr.sql:' 'original size' '3068,' 'current size' "$shar_count!"
     fi
   fi
   rm -fr _sh17086
   exit 0
   
   

2. Re: [HACKERS] cidr

   Tom Ivar Helbekkmo <tih+mail@hamartun.priv.no> — 1998-07-20T20:25:32Z

   Paul A Vixie <vixie@vix.com> writes:
   
   > i didn't realize that anybody else was working on an IP address
   > data type or i'd've posted this six months ago when i first wrote
   > it.  it lacks only the stuff needed to make it usable as a UNIQUE
   > KEY.  it depends on BIND-8's libraries.
   
   Interesting -- looks nice at first glance, and does some things that
   neither Aleksei nor I had thought of.  I guess a merge of the three
   variations is in order.  At least I'll be doing that locally, and will
   make the result available.
   
   -tih
   -- 
   Popularity is the hallmark of mediocrity.  --Niles Crane, "Frasier"
   
   

3. Re: [HACKERS] cidr

   Bruce Momjian <maillist@candle.pha.pa.us> — 1998-07-20T21:44:52Z

   > Paul A Vixie <vixie@vix.com> writes:
   > 
   > > i didn't realize that anybody else was working on an IP address
   > > data type or i'd've posted this six months ago when i first wrote
   > > it.  it lacks only the stuff needed to make it usable as a UNIQUE
   > > KEY.  it depends on BIND-8's libraries.
   > 
   > Interesting -- looks nice at first glance, and does some things that
   > neither Aleksei nor I had thought of.  I guess a merge of the three
   > variations is in order.  At least I'll be doing that locally, and will
   > make the result available.
   
   OK, perhaps I will not apply the patch, and wait for a merged version.
   
   Comments?
   
   -- 
   Bruce Momjian                          |  830 Blythe Avenue
   maillist@candle.pha.pa.us              |  Drexel Hill, Pennsylvania 19026
     +  If your life is a hard drive,     |  (610) 353-9879(w)
     +  Christ can be your backup.        |  (610) 853-3000(h)