Convert inet-related functions to new fmgr style. I have also taken it

on myself to do something about the non-self-consistency of the inet
comparison functions.  The results are probably still semantically wrong
(inet and cidr should have different comparison semantics, I think)
but at least the boolean operators now agree with each other and with
the sort order of indexes on inet/cidr.

diff --git a/src/backend/utils/adt/mac.c b/src/backend/utils/adt/mac.c
index 5b542504643c689c9213fcb1fb4cf2dc84b29f1c..e8d502b87d27f09a5c2d1ec89d31bc3881537c55 100644 (file)
--- a/src/backend/utils/adt/mac.c
+++ b/src/backend/utils/adt/mac.c
@@ -1,20 +1,18 @@
 /*
  *     PostgreSQL type definitions for MAC addresses.
  *
- *     $Header: /cvsroot/pgsql/src/backend/utils/adt/mac.c,v 1.16 2000/07/06 05:48:11 tgl Exp $
+ *     $Header: /cvsroot/pgsql/src/backend/utils/adt/mac.c,v 1.17 2000/08/03 23:07:46 tgl Exp $
  */
 
 #include "postgres.h"
 
 #include "utils/builtins.h"
-
+#include "utils/inet.h"
 
 /*
- * macaddr is a pass-by-reference datatype.
+ * XXX this table of manufacturers is long out of date, and should never
+ * have been wired into the code in the first place.
  */
-#define PG_GETARG_MACADDR_P(n)  ((macaddr *) PG_GETARG_POINTER(n))
-#define PG_RETURN_MACADDR_P(x)  return PointerGetDatum(x)
-
 
 typedef struct manufacturer
 {
@@ -145,18 +143,18 @@ static manufacturer manufacturers[] = {
  */
 
 #define hibits(addr) \
-  ((unsigned long)((addr->a<<16)|(addr->b<<8)|(addr->c)))
+  ((unsigned long)(((addr)->a<<16)|((addr)->b<<8)|((addr)->c)))
 
 #define lobits(addr) \
-  ((unsigned long)((addr->d<<16)|(addr->e<<8)|(addr->f)))
+  ((unsigned long)(((addr)->d<<16)|((addr)->e<<8)|((addr)->f)))
 
 /*
  *     MAC address reader.  Accepts several common notations.
  */
-
-macaddr    *
-macaddr_in(char *str)
+Datum
+macaddr_in(PG_FUNCTION_ARGS)
 {
+       char       *str = PG_GETARG_CSTRING(0);
        int                     a,
                                b,
                                c,
@@ -201,21 +199,18 @@ macaddr_in(char *str)
        result->e = e;
        result->f = f;
 
-       return (result);
+       PG_RETURN_MACADDR_P(result);
 }
 
 /*
  *     MAC address output function.  Fixed format.
  */
-
-char *
-macaddr_out(macaddr *addr)
+Datum
+macaddr_out(PG_FUNCTION_ARGS)
 {
+       macaddr    *addr = PG_GETARG_MACADDR_P(0);
        char       *result;
 
-       if (addr == NULL)
-               return (NULL);
-
        result = (char *) palloc(32);
 
        if ((hibits(addr) > 0) || (lobits(addr) > 0))
@@ -225,84 +220,95 @@ macaddr_out(macaddr *addr)
        }
        else
        {
-               result[0] = 0;                  /* special case for missing address */
+               result[0] = '\0';               /* special case for missing address */
        }
-       return (result);
+
+       PG_RETURN_CSTRING(result);
 }
 
 /*
- *     Boolean tests.
+ *     Comparison function for sorting:
  */
 
-bool
-macaddr_lt(macaddr *a1, macaddr *a2)
+static int32
+macaddr_cmp_internal(macaddr *a1, macaddr *a2)
 {
-       if (!PointerIsValid(a1) || !PointerIsValid(a2))
-               return FALSE;
-       return ((hibits(a1) < hibits(a2)) ||
-                       ((hibits(a1) == hibits(a2)) && lobits(a1) < lobits(a2)));
+       if (hibits(a1) < hibits(a2))
+               return -1;
+       else if (hibits(a1) > hibits(a2))
+               return 1;
+       else if (lobits(a1) < lobits(a2))
+               return -1;
+       else if (lobits(a1) > lobits(a2))
+               return 1;
+       else
+               return 0;
 }
 
-bool
-macaddr_le(macaddr *a1, macaddr *a2)
+Datum
+macaddr_cmp(PG_FUNCTION_ARGS)
 {
-       if (!PointerIsValid(a1) || !PointerIsValid(a2))
-               return FALSE;
-       return ((hibits(a1) < hibits(a2)) ||
-                       ((hibits(a1) == hibits(a2)) && lobits(a1) <= lobits(a2)));
+       macaddr    *a1 = PG_GETARG_MACADDR_P(0);
+       macaddr    *a2 = PG_GETARG_MACADDR_P(1);
+
+       PG_RETURN_INT32(macaddr_cmp_internal(a1, a2));
 }
 
-bool
-macaddr_eq(macaddr *a1, macaddr *a2)
+/*
+ *     Boolean comparisons.
+ */
+Datum
+macaddr_lt(PG_FUNCTION_ARGS)
 {
-       if (!PointerIsValid(a1) || !PointerIsValid(a2))
-               return FALSE;
-       return ((hibits(a1) == hibits(a2)) && (lobits(a1) == lobits(a2)));
+       macaddr    *a1 = PG_GETARG_MACADDR_P(0);
+       macaddr    *a2 = PG_GETARG_MACADDR_P(1);
+
+       PG_RETURN_BOOL(macaddr_cmp_internal(a1, a2) < 0);
 }
 
-bool
-macaddr_ge(macaddr *a1, macaddr *a2)
+Datum
+macaddr_le(PG_FUNCTION_ARGS)
 {
-       if (!PointerIsValid(a1) || !PointerIsValid(a2))
-               return FALSE;
-       return ((hibits(a1) > hibits(a2)) ||
-                       ((hibits(a1) == hibits(a2)) && lobits(a1) >= lobits(a2)));
+       macaddr    *a1 = PG_GETARG_MACADDR_P(0);
+       macaddr    *a2 = PG_GETARG_MACADDR_P(1);
+
+       PG_RETURN_BOOL(macaddr_cmp_internal(a1, a2) <= 0);
 }
 
-bool
-macaddr_gt(macaddr *a1, macaddr *a2)
+Datum
+macaddr_eq(PG_FUNCTION_ARGS)
 {
-       if (!PointerIsValid(a1) || !PointerIsValid(a2))
-               return FALSE;
-       return ((hibits(a1) > hibits(a2)) ||
-                       ((hibits(a1) == hibits(a2)) && lobits(a1) > lobits(a2)));
+       macaddr    *a1 = PG_GETARG_MACADDR_P(0);
+       macaddr    *a2 = PG_GETARG_MACADDR_P(1);
+
+       PG_RETURN_BOOL(macaddr_cmp_internal(a1, a2) == 0);
 }
 
-bool
-macaddr_ne(macaddr *a1, macaddr *a2)
+Datum
+macaddr_ge(PG_FUNCTION_ARGS)
 {
-       if (!PointerIsValid(a1) || !PointerIsValid(a2))
-               return FALSE;
-       return ((hibits(a1) != hibits(a2)) || (lobits(a1) != lobits(a2)));
+       macaddr    *a1 = PG_GETARG_MACADDR_P(0);
+       macaddr    *a2 = PG_GETARG_MACADDR_P(1);
+
+       PG_RETURN_BOOL(macaddr_cmp_internal(a1, a2) >= 0);
 }
 
-/*
- *     Comparison function for sorting:
- */
+Datum
+macaddr_gt(PG_FUNCTION_ARGS)
+{
+       macaddr    *a1 = PG_GETARG_MACADDR_P(0);
+       macaddr    *a2 = PG_GETARG_MACADDR_P(1);
+
+       PG_RETURN_BOOL(macaddr_cmp_internal(a1, a2) > 0);
+}
 
-int4
-macaddr_cmp(macaddr *a1, macaddr *a2)
+Datum
+macaddr_ne(PG_FUNCTION_ARGS)
 {
-       if (hibits(a1) < hibits(a2))
-               return -1;
-       else if (hibits(a1) > hibits(a2))
-               return 1;
-       else if (lobits(a1) < lobits(a2))
-               return -1;
-       else if (lobits(a1) > lobits(a2))
-               return 1;
-       else
-               return 0;
+       macaddr    *a1 = PG_GETARG_MACADDR_P(0);
+       macaddr    *a2 = PG_GETARG_MACADDR_P(1);
+
+       PG_RETURN_BOOL(macaddr_cmp_internal(a1, a2) != 0);
 }
 
 /*

diff --git a/src/backend/utils/adt/network.c b/src/backend/utils/adt/network.c
index eb489d9cd71127f357d55f82fdf5c7a91e386fde..9765444eace67fbb464312c827ff2632fd9b149f 100644 (file)
--- a/src/backend/utils/adt/network.c
+++ b/src/backend/utils/adt/network.c
@@ -3,7 +3,7 @@
  *     is for IP V4 CIDR notation, but prepared for V6: just
  *     add the necessary bits where the comments indicate.
  *
- *     $Header: /cvsroot/pgsql/src/backend/utils/adt/network.c,v 1.23 2000/07/06 05:48:11 tgl Exp $
+ *     $Header: /cvsroot/pgsql/src/backend/utils/adt/network.c,v 1.24 2000/08/03 23:07:46 tgl Exp $
  *
  *     Jon Postel RIP 16 Oct 1998
  */
@@ -17,16 +17,11 @@
 #include <arpa/inet.h>
 
 #include "utils/builtins.h"
-
-/*
- * inet is a pass-by-reference datatype.  It's not toastable, and we
- * don't try to hide the pass-by-refness, so these macros are simple.
- */
-#define PG_GETARG_INET_P(n)  ((inet *) PG_GETARG_POINTER(n))
-#define PG_RETURN_INET_P(x)  return PointerGetDatum(x)
+#include "utils/inet.h"
 
 
 static int     v4bitncmp(unsigned int a1, unsigned int a2, int bits);
+static int32 network_cmp_internal(inet *a1, inet *a2);
 
 /*
  *     Access macros.  Add IPV6 support.
@@ -54,12 +49,7 @@ network_in(char *src, int type)
        int                     bits;
        inet       *dst;
 
-       if (!src)
-               return NULL;
-
-       dst = palloc(VARHDRSZ + sizeof(inet_struct));
-       if (dst == NULL)
-               elog(ERROR, "unable to allocate memory in network_in()");
+       dst = (inet *) palloc(VARHDRSZ + sizeof(inet_struct));
 
        /* First, try for an IP V4 address: */
        ip_family(dst) = AF_INET;
@@ -74,32 +64,37 @@ network_in(char *src, int type)
                + ip_addrsize(dst);
        ip_bits(dst) = bits;
        ip_type(dst) = type;
+
        return dst;
 }
 
 /* INET address reader.  */
-inet *
-inet_in(char *src)
+Datum
+inet_in(PG_FUNCTION_ARGS)
 {
-       return network_in(src, 0);
+       char       *src = PG_GETARG_CSTRING(0);
+
+       PG_RETURN_INET_P(network_in(src, 0));
 }
 
 /* CIDR address reader.  */
-inet *
-cidr_in(char *src)
+Datum
+cidr_in(PG_FUNCTION_ARGS)
 {
-       return network_in(src, 1);
+       char       *src = PG_GETARG_CSTRING(0);
+
+       PG_RETURN_INET_P(network_in(src, 1));
 }
 
 /*
  *     INET address output function.
  */
-
-char *
-inet_out(inet *src)
+Datum
+inet_out(PG_FUNCTION_ARGS)
 {
-       char       *dst,
-                               tmp[sizeof("255.255.255.255/32")];
+       inet       *src = PG_GETARG_INET_P(0);
+       char            tmp[sizeof("255.255.255.255/32")];
+       char       *dst;
 
        if (ip_family(src) == AF_INET)
        {
@@ -118,211 +113,201 @@ inet_out(inet *src)
                /* Go for an IPV6 address here, before faulting out: */
                elog(ERROR, "unknown address family (%d)", ip_family(src));
 
-       dst = palloc(strlen(tmp) + 1);
-       if (dst == NULL)
-               elog(ERROR, "unable to allocate memory in inet_out()");
-
-       strcpy(dst, tmp);
-       return dst;
+       PG_RETURN_CSTRING(pstrdup(tmp));
 }
 
 
-/* just a stub */
-char *
-cidr_out(inet *src)
+/* share code with INET case */
+Datum
+cidr_out(PG_FUNCTION_ARGS)
 {
-       return inet_out(src);
+       return inet_out(fcinfo);
 }
 
+
 /*
- *     Boolean tests for magnitude.  Add V4/V6 testing!
+ *     Basic comparison function for sorting and inet/cidr comparisons.
+ *
+ * XXX this ignores bits to the right of the mask.  That's probably
+ * correct for CIDR, almost certainly wrong for INET.  We need to have
+ * two sets of comparator routines, not just one.  Note that suggests
+ * that CIDR and INET should not be considered binary-equivalent by
+ * the parser?
  */
 
-bool
-network_lt(inet *a1, inet *a2)
+static int32
+network_cmp_internal(inet *a1, inet *a2)
 {
-       if (!PointerIsValid(a1) || !PointerIsValid(a2))
-               return FALSE;
-       if ((ip_family(a1) == AF_INET) && (ip_family(a2) == AF_INET))
+       if (ip_family(a1) == AF_INET && ip_family(a2) == AF_INET)
        {
-               int                     order = v4bitncmp(ip_v4addr(a1), ip_v4addr(a2), ip_bits(a2));
+               int             order = v4bitncmp(ip_v4addr(a1), ip_v4addr(a2),
+                                                                 Min(ip_bits(a1), ip_bits(a2)));
 
-               return ((order < 0) || ((order == 0) && (ip_bits(a1) < ip_bits(a2))));
+               if (order != 0)
+                       return order;
+               return ((int32) ip_bits(a1)) - ((int32) ip_bits(a2));
        }
        else
        {
                /* Go for an IPV6 address here, before faulting out: */
                elog(ERROR, "cannot compare address families %d and %d",
                         ip_family(a1), ip_family(a2));
-               return FALSE;
+               return 0;                               /* keep compiler quiet */
        }
 }
 
-bool
-network_le(inet *a1, inet *a2)
+Datum
+network_cmp(PG_FUNCTION_ARGS)
 {
-       if (!PointerIsValid(a1) || !PointerIsValid(a2))
-               return FALSE;
-       return (network_lt(a1, a2) || network_eq(a1, a2));
+       inet       *a1 = PG_GETARG_INET_P(0);
+       inet       *a2 = PG_GETARG_INET_P(1);
+
+       PG_RETURN_INT32(network_cmp_internal(a1, a2));
 }
 
-bool
-network_eq(inet *a1, inet *a2)
+/*
+ *     Boolean ordering tests.
+ */
+Datum
+network_lt(PG_FUNCTION_ARGS)
 {
-       if (!PointerIsValid(a1) || !PointerIsValid(a2))
-               return FALSE;
-       if ((ip_family(a1) == AF_INET) && (ip_family(a2) == AF_INET))
-       {
-               return ((ip_bits(a1) == ip_bits(a2))
-                && (v4bitncmp(ip_v4addr(a1), ip_v4addr(a2), ip_bits(a1)) == 0));
-       }
-       else
-       {
-               /* Go for an IPV6 address here, before faulting out: */
-               elog(ERROR, "cannot compare address families %d and %d",
-                        ip_family(a1), ip_family(a2));
-               return FALSE;
-       }
+       inet       *a1 = PG_GETARG_INET_P(0);
+       inet       *a2 = PG_GETARG_INET_P(1);
+
+       PG_RETURN_BOOL(network_cmp_internal(a1, a2) < 0);
 }
 
-bool
-network_ge(inet *a1, inet *a2)
+Datum
+network_le(PG_FUNCTION_ARGS)
 {
-       if (!PointerIsValid(a1) || !PointerIsValid(a2))
-               return FALSE;
-       return (network_gt(a1, a2) || network_eq(a1, a2));
+       inet       *a1 = PG_GETARG_INET_P(0);
+       inet       *a2 = PG_GETARG_INET_P(1);
+
+       PG_RETURN_BOOL(network_cmp_internal(a1, a2) <= 0);
 }
 
-bool
-network_gt(inet *a1, inet *a2)
+Datum
+network_eq(PG_FUNCTION_ARGS)
 {
-       if (!PointerIsValid(a1) || !PointerIsValid(a2))
-               return FALSE;
-       if ((ip_family(a1) == AF_INET) && (ip_family(a2) == AF_INET))
-       {
-               int                     order = v4bitncmp(ip_v4addr(a1), ip_v4addr(a2), ip_bits(a2));
+       inet       *a1 = PG_GETARG_INET_P(0);
+       inet       *a2 = PG_GETARG_INET_P(1);
 
-               return ((order > 0) || ((order == 0) && (ip_bits(a1) > ip_bits(a2))));
-       }
-       else
-       {
-               /* Go for an IPV6 address here, before faulting out: */
-               elog(ERROR, "cannot compare address families %d and %d",
-                        ip_family(a1), ip_family(a2));
-               return FALSE;
-       }
+       PG_RETURN_BOOL(network_cmp_internal(a1, a2) == 0);
+}
+
+Datum
+network_ge(PG_FUNCTION_ARGS)
+{
+       inet       *a1 = PG_GETARG_INET_P(0);
+       inet       *a2 = PG_GETARG_INET_P(1);
+
+       PG_RETURN_BOOL(network_cmp_internal(a1, a2) >= 0);
 }
 
-bool
-network_ne(inet *a1, inet *a2)
+Datum
+network_gt(PG_FUNCTION_ARGS)
 {
-       if (!PointerIsValid(a1) || !PointerIsValid(a2))
-               return FALSE;
-       return (!network_eq(a1, a2));
+       inet       *a1 = PG_GETARG_INET_P(0);
+       inet       *a2 = PG_GETARG_INET_P(1);
+
+       PG_RETURN_BOOL(network_cmp_internal(a1, a2) > 0);
 }
 
-bool
-network_sub(inet *a1, inet *a2)
+Datum
+network_ne(PG_FUNCTION_ARGS)
 {
-       if (!PointerIsValid(a1) || !PointerIsValid(a2))
-               return FALSE;
+       inet       *a1 = PG_GETARG_INET_P(0);
+       inet       *a2 = PG_GETARG_INET_P(1);
+
+       PG_RETURN_BOOL(network_cmp_internal(a1, a2) != 0);
+}
+
+/*
+ *     Boolean network-inclusion tests.
+ */
+Datum
+network_sub(PG_FUNCTION_ARGS)
+{
+       inet       *a1 = PG_GETARG_INET_P(0);
+       inet       *a2 = PG_GETARG_INET_P(1);
 
        if ((ip_family(a1) == AF_INET) && (ip_family(a2) == AF_INET))
        {
-               return ((ip_bits(a1) > ip_bits(a2))
-                && (v4bitncmp(ip_v4addr(a1), ip_v4addr(a2), ip_bits(a2)) == 0));
+               PG_RETURN_BOOL(ip_bits(a1) > ip_bits(a2)
+                       && v4bitncmp(ip_v4addr(a1), ip_v4addr(a2), ip_bits(a2)) == 0);
        }
        else
        {
                /* Go for an IPV6 address here, before faulting out: */
                elog(ERROR, "cannot compare address families %d and %d",
                         ip_family(a1), ip_family(a2));
-               return FALSE;
+               PG_RETURN_BOOL(false);
        }
 }
 
-bool
-network_subeq(inet *a1, inet *a2)
+Datum
+network_subeq(PG_FUNCTION_ARGS)
 {
-       if (!PointerIsValid(a1) || !PointerIsValid(a2))
-               return FALSE;
+       inet       *a1 = PG_GETARG_INET_P(0);
+       inet       *a2 = PG_GETARG_INET_P(1);
 
        if ((ip_family(a1) == AF_INET) && (ip_family(a2) == AF_INET))
        {
-               return ((ip_bits(a1) >= ip_bits(a2))
-                && (v4bitncmp(ip_v4addr(a1), ip_v4addr(a2), ip_bits(a2)) == 0));
+               PG_RETURN_BOOL(ip_bits(a1) >= ip_bits(a2)
+                       && v4bitncmp(ip_v4addr(a1), ip_v4addr(a2), ip_bits(a2)) == 0);
        }
        else
        {
                /* Go for an IPV6 address here, before faulting out: */
                elog(ERROR, "cannot compare address families %d and %d",
                         ip_family(a1), ip_family(a2));
-               return FALSE;
+               PG_RETURN_BOOL(false);
        }
 }
 
-bool
-network_sup(inet *a1, inet *a2)
+Datum
+network_sup(PG_FUNCTION_ARGS)
 {
-       if (!PointerIsValid(a1) || !PointerIsValid(a2))
-               return FALSE;
+       inet       *a1 = PG_GETARG_INET_P(0);
+       inet       *a2 = PG_GETARG_INET_P(1);
 
        if ((ip_family(a1) == AF_INET) && (ip_family(a2) == AF_INET))
        {
-               return ((ip_bits(a1) < ip_bits(a2))
-                && (v4bitncmp(ip_v4addr(a1), ip_v4addr(a2), ip_bits(a1)) == 0));
+               PG_RETURN_BOOL(ip_bits(a1) < ip_bits(a2)
+                       && v4bitncmp(ip_v4addr(a1), ip_v4addr(a2), ip_bits(a1)) == 0);
        }
        else
        {
                /* Go for an IPV6 address here, before faulting out: */
                elog(ERROR, "cannot compare address families %d and %d",
                         ip_family(a1), ip_family(a2));
-               return FALSE;
+               PG_RETURN_BOOL(false);
        }
 }
 
-bool
-network_supeq(inet *a1, inet *a2)
+Datum
+network_supeq(PG_FUNCTION_ARGS)
 {
-       if (!PointerIsValid(a1) || !PointerIsValid(a2))
-               return FALSE;
+       inet       *a1 = PG_GETARG_INET_P(0);
+       inet       *a2 = PG_GETARG_INET_P(1);
 
        if ((ip_family(a1) == AF_INET) && (ip_family(a2) == AF_INET))
        {
-               return ((ip_bits(a1) <= ip_bits(a2))
-                && (v4bitncmp(ip_v4addr(a1), ip_v4addr(a2), ip_bits(a1)) == 0));
+               PG_RETURN_BOOL(ip_bits(a1) <= ip_bits(a2)
+                       && v4bitncmp(ip_v4addr(a1), ip_v4addr(a2), ip_bits(a1)) == 0);
        }
        else
        {
                /* Go for an IPV6 address here, before faulting out: */
                elog(ERROR, "cannot compare address families %d and %d",
                         ip_family(a1), ip_family(a2));
-               return FALSE;
+               PG_RETURN_BOOL(false);
        }
 }
 
 /*
- *     Comparison function for sorting.  Add V4/V6 testing!
+ * Extract data from a network datatype.
  */
-
-int4
-network_cmp(inet *a1, inet *a2)
-{
-       if (ntohl(ip_v4addr(a1)) < ntohl(ip_v4addr(a2)))
-               return (-1);
-
-       if (ntohl(ip_v4addr(a1)) > ntohl(ip_v4addr(a2)))
-               return (1);
-
-       if (ip_bits(a1) < ip_bits(a2))
-               return (-1);
-
-       if (ip_bits(a1) > ip_bits(a2))
-               return (1);
-
-       return 0;
-}
-
 Datum
 network_host(PG_FUNCTION_ARGS)
 {
@@ -357,13 +342,12 @@ network_host(PG_FUNCTION_ARGS)
        PG_RETURN_TEXT_P(ret);
 }
 
-int4
-network_masklen(inet *ip)
+Datum
+network_masklen(PG_FUNCTION_ARGS)
 {
-       if (!PointerIsValid(ip))
-               return 0;
+       inet       *ip = PG_GETARG_INET_P(0);
 
-       return ip_bits(ip);
+       PG_RETURN_INT32(ip_bits(ip));
 }
 
 Datum

diff --git a/src/include/catalog/pg_proc.h b/src/include/catalog/pg_proc.h
index 8556c83f53edd15709e1312d371ae45572b17286..9919f1509be3a42033cd594d529a7aea143f51e5 100644 (file)
--- a/src/include/catalog/pg_proc.h
+++ b/src/include/catalog/pg_proc.h
@@ -7,7 +7,7 @@
  * Portions Copyright (c) 1996-2000, PostgreSQL, Inc
  * Portions Copyright (c) 1994, Regents of the University of California
  *
- * $Id: pg_proc.h,v 1.156 2000/08/03 16:34:31 tgl Exp $
+ * $Id: pg_proc.h,v 1.157 2000/08/03 23:07:46 tgl Exp $
  *
  * NOTES
  *       The script catalog/genbki.sh reads this file and generates .bki
@@ -2174,68 +2174,68 @@ DATA(insert OID = 1688 (  varbitsubstr          PGUID 11 f t t t 2 f 1562 "1562 1562" 10
 DESCR("bitwise field");
 
 /* for mac type support */
-DATA(insert OID = 436 (  macaddr_in                    PGUID 11 f t t t 1 f 829 "0" 100 0 0 100        macaddr_in - ));
+DATA(insert OID = 436 (  macaddr_in                    PGUID 12 f t t t 1 f 829 "0" 100 0 0 100        macaddr_in - ));
 DESCR("(internal)");
-DATA(insert OID = 437 (  macaddr_out           PGUID 11 f t t t 1 f 23 "0" 100 0 0 100  macaddr_out - ));
+DATA(insert OID = 437 (  macaddr_out           PGUID 12 f t t t 1 f 23 "0" 100 0 0 100  macaddr_out - ));
 DESCR("(internal)");
 
-DATA(insert OID = 830 (  macaddr_eq               PGUID 11 f t t t 2 f 16 "829 829" 100 0 0 100        macaddr_eq - ));
+DATA(insert OID = 830 (  macaddr_eq               PGUID 12 f t t t 2 f 16 "829 829" 100 0 0 100        macaddr_eq - ));
 DESCR("equal");
-DATA(insert OID = 831 (  macaddr_lt               PGUID 11 f t t t 2 f 16 "829 829" 100 0 0 100        macaddr_lt - ));
+DATA(insert OID = 831 (  macaddr_lt               PGUID 12 f t t t 2 f 16 "829 829" 100 0 0 100        macaddr_lt - ));
 DESCR("less-than");
-DATA(insert OID = 832 (  macaddr_le               PGUID 11 f t t t 2 f 16 "829 829" 100 0 0 100        macaddr_le - ));
+DATA(insert OID = 832 (  macaddr_le               PGUID 12 f t t t 2 f 16 "829 829" 100 0 0 100        macaddr_le - ));
 DESCR("less-than-or-equal");
-DATA(insert OID = 833 (  macaddr_gt               PGUID 11 f t t t 2 f 16 "829 829" 100 0 0 100        macaddr_gt - ));
+DATA(insert OID = 833 (  macaddr_gt               PGUID 12 f t t t 2 f 16 "829 829" 100 0 0 100        macaddr_gt - ));
 DESCR("greater-than");
-DATA(insert OID = 834 (  macaddr_ge               PGUID 11 f t t t 2 f 16 "829 829" 100 0 0 100        macaddr_ge - ));
+DATA(insert OID = 834 (  macaddr_ge               PGUID 12 f t t t 2 f 16 "829 829" 100 0 0 100        macaddr_ge - ));
 DESCR("greater-than-or-equal");
-DATA(insert OID = 835 (  macaddr_ne               PGUID 11 f t t t 2 f 16 "829 829" 100 0 0 100        macaddr_ne - ));
+DATA(insert OID = 835 (  macaddr_ne               PGUID 12 f t t t 2 f 16 "829 829" 100 0 0 100        macaddr_ne - ));
 DESCR("not equal");
-DATA(insert OID = 836 (  macaddr_cmp      PGUID 11 f t t t 2 f 23 "829 829" 100 0 0 100        macaddr_cmp - ));
+DATA(insert OID = 836 (  macaddr_cmp      PGUID 12 f t t t 2 f 23 "829 829" 100 0 0 100        macaddr_cmp - ));
 DESCR("less-equal-greater");
 DATA(insert OID = 837 (  macaddr_manuf    PGUID 12 f t t t 1 f 25 "829" 100 0 0 100    macaddr_manuf - ));
 DESCR("MAC manufacturer");
 
 /* for inet type support */
-DATA(insert OID = 910 (  inet_in                       PGUID 11 f t t t 1 f 869 "0" 100 0 0 100        inet_in - ));
+DATA(insert OID = 910 (  inet_in                       PGUID 12 f t t t 1 f 869 "0" 100 0 0 100        inet_in - ));
 DESCR("(internal)");
-DATA(insert OID = 911 (  inet_out                      PGUID 11 f t t t 1 f 23 "0" 100 0 0 100  inet_out - ));
+DATA(insert OID = 911 (  inet_out                      PGUID 12 f t t t 1 f 23 "0" 100 0 0 100  inet_out - ));
 DESCR("(internal)");
 
 /* for cidr type support */
-DATA(insert OID = 1267 (  cidr_in                      PGUID 11 f t t t 1 f 650 "0" 100 0 0 100        cidr_in - ));
+DATA(insert OID = 1267 (  cidr_in                      PGUID 12 f t t t 1 f 650 "0" 100 0 0 100        cidr_in - ));
 DESCR("(internal)");
-DATA(insert OID = 1427 (  cidr_out                     PGUID 11 f t t t 1 f 23 "0" 100 0 0 100  cidr_out - ));
+DATA(insert OID = 1427 (  cidr_out                     PGUID 12 f t t t 1 f 23 "0" 100 0 0 100  cidr_out - ));
 DESCR("(internal)");
 
 /* these are used for both inet and cidr */
-DATA(insert OID = 920 (  network_eq               PGUID 11 f t t t 2 f 16 "869 869" 100 0 0 100        network_eq - ));
+DATA(insert OID = 920 (  network_eq               PGUID 12 f t t t 2 f 16 "869 869" 100 0 0 100        network_eq - ));
 DESCR("equal");
-DATA(insert OID = 921 (  network_lt               PGUID 11 f t t t 2 f 16 "869 869" 100 0 0 100        network_lt - ));
+DATA(insert OID = 921 (  network_lt               PGUID 12 f t t t 2 f 16 "869 869" 100 0 0 100        network_lt - ));
 DESCR("less-than");
-DATA(insert OID = 922 (  network_le               PGUID 11 f t t t 2 f 16 "869 869" 100 0 0 100        network_le - ));
+DATA(insert OID = 922 (  network_le               PGUID 12 f t t t 2 f 16 "869 869" 100 0 0 100        network_le - ));
 DESCR("less-than-or-equal");
-DATA(insert OID = 923 (  network_gt               PGUID 11 f t t t 2 f 16 "869 869" 100 0 0 100        network_gt - ));
+DATA(insert OID = 923 (  network_gt               PGUID 12 f t t t 2 f 16 "869 869" 100 0 0 100        network_gt - ));
 DESCR("greater-than");
-DATA(insert OID = 924 (  network_ge               PGUID 11 f t t t 2 f 16 "869 869" 100 0 0 100        network_ge - ));
+DATA(insert OID = 924 (  network_ge               PGUID 12 f t t t 2 f 16 "869 869" 100 0 0 100        network_ge - ));
 DESCR("greater-than-or-equal");
-DATA(insert OID = 925 (  network_ne               PGUID 11 f t t t 2 f 16 "869 869" 100 0 0 100        network_ne - ));
+DATA(insert OID = 925 (  network_ne               PGUID 12 f t t t 2 f 16 "869 869" 100 0 0 100        network_ne - ));
 DESCR("not equal");
-DATA(insert OID = 926 (  network_cmp              PGUID 11 f t t t 2 f 23 "869 869" 100 0 0 100        network_cmp - ));
+DATA(insert OID = 926 (  network_cmp              PGUID 12 f t t t 2 f 23 "869 869" 100 0 0 100        network_cmp - ));
 DESCR("less-equal-greater");
-DATA(insert OID = 927 (  network_sub              PGUID 11 f t t t 2 f 16 "869 869" 100 0 0 100        network_sub - ));
+DATA(insert OID = 927 (  network_sub              PGUID 12 f t t t 2 f 16 "869 869" 100 0 0 100        network_sub - ));
 DESCR("is-subnet");
-DATA(insert OID = 928 (  network_subeq            PGUID 11 f t t t 2 f 16 "869 869" 100 0 0 100        network_subeq - ));
+DATA(insert OID = 928 (  network_subeq            PGUID 12 f t t t 2 f 16 "869 869" 100 0 0 100        network_subeq - ));
 DESCR("is-subnet-or-equal");
-DATA(insert OID = 929 (  network_sup              PGUID 11 f t t t 2 f 16 "869 869" 100 0 0 100        network_sup - ));
+DATA(insert OID = 929 (  network_sup              PGUID 12 f t t t 2 f 16 "869 869" 100 0 0 100        network_sup - ));
 DESCR("is-supernet");
-DATA(insert OID = 930 (  network_supeq            PGUID 11 f t t t 2 f 16 "869 869" 100 0 0 100        network_supeq - ));
+DATA(insert OID = 930 (  network_supeq            PGUID 12 f t t t 2 f 16 "869 869" 100 0 0 100        network_supeq - ));
 DESCR("is-supernet-or-equal");
 
 /* inet/cidr versions */
 DATA(insert OID = 696 (  netmask                               PGUID 12 f t t t 1 f 25 "869" 100 0 0 100  network_netmask - ));
 DESCR("netmask of address");
-DATA(insert OID = 697 (  masklen                               PGUID 11 f t t t 1 f 23 "869" 100 0 0 100  network_masklen - ));
+DATA(insert OID = 697 (  masklen                               PGUID 12 f t t t 1 f 23 "869" 100 0 0 100  network_masklen - ));
 DESCR("netmask length");
 DATA(insert OID = 698 (  broadcast                             PGUID 12 f t t t 1 f 25 "869" 100 0 0 100  network_broadcast - ));
 DESCR("broadcast address");

diff --git a/src/include/utils/builtins.h b/src/include/utils/builtins.h
index bb483164130ef26242d9cc408d4d3bff79d3b76a..4fa7481f042ec711570b348b7a2f5dcb6f78d67d 100644 (file)
--- a/src/include/utils/builtins.h
+++ b/src/include/utils/builtins.h
@@ -7,7 +7,7 @@
  * Portions Copyright (c) 1996-2000, PostgreSQL, Inc
  * Portions Copyright (c) 1994, Regents of the University of California
  *
- * $Id: builtins.h,v 1.129 2000/08/03 16:34:50 tgl Exp $
+ * $Id: builtins.h,v 1.130 2000/08/03 23:07:51 tgl Exp $
  *
  *-------------------------------------------------------------------------
  */
@@ -16,7 +16,6 @@
 
 #include "nodes/relation.h"            /* for amcostestimate parameters */
 #include "storage/itemptr.h"
-#include "utils/inet.h"
 #include "utils/numeric.h"
 
 /*
@@ -436,7 +435,6 @@ extern Datum textlike(PG_FUNCTION_ARGS);
 extern Datum textnlike(PG_FUNCTION_ARGS);
 
 /* oracle_compat.c */
-
 extern Datum lower(PG_FUNCTION_ARGS);
 extern Datum upper(PG_FUNCTION_ARGS);
 extern Datum initcap(PG_FUNCTION_ARGS);
@@ -450,48 +448,48 @@ extern Datum ichar(PG_FUNCTION_ARGS);
 extern Datum repeat(PG_FUNCTION_ARGS);
 extern Datum ascii(PG_FUNCTION_ARGS);
 
-/* acl.c */
-
 /* inet_net_ntop.c */
-extern char *inet_net_ntop(int af, const void *src, int bits, char *dst, size_t size);
-extern char *inet_cidr_ntop(int af, const void *src, int bits, char *dst, size_t size);
+extern char *inet_net_ntop(int af, const void *src, int bits,
+                                                  char *dst, size_t size);
+extern char *inet_cidr_ntop(int af, const void *src, int bits,
+                                                       char *dst, size_t size);
 
 /* inet_net_pton.c */
-extern int     inet_net_pton(int af, const char *src, void *dst, size_t size);
+extern int     inet_net_pton(int af, const char *src,
+                                                 void *dst, size_t size);
 
 /* network.c */
-extern inet *inet_in(char *str);
-extern char *inet_out(inet *addr);
-extern inet *cidr_in(char *str);
-extern char *cidr_out(inet *addr);
-extern bool network_lt(inet *a1, inet *a2);
-extern bool network_le(inet *a1, inet *a2);
-extern bool network_eq(inet *a1, inet *a2);
-extern bool network_ge(inet *a1, inet *a2);
-extern bool network_gt(inet *a1, inet *a2);
-extern bool network_ne(inet *a1, inet *a2);
-extern bool network_sub(inet *a1, inet *a2);
-extern bool network_subeq(inet *a1, inet *a2);
-extern bool network_sup(inet *a1, inet *a2);
-extern bool network_supeq(inet *a1, inet *a2);
-extern int4 network_cmp(inet *a1, inet *a2);
-
+extern Datum inet_in(PG_FUNCTION_ARGS);
+extern Datum inet_out(PG_FUNCTION_ARGS);
+extern Datum cidr_in(PG_FUNCTION_ARGS);
+extern Datum cidr_out(PG_FUNCTION_ARGS);
+extern Datum network_cmp(PG_FUNCTION_ARGS);
+extern Datum network_lt(PG_FUNCTION_ARGS);
+extern Datum network_le(PG_FUNCTION_ARGS);
+extern Datum network_eq(PG_FUNCTION_ARGS);
+extern Datum network_ge(PG_FUNCTION_ARGS);
+extern Datum network_gt(PG_FUNCTION_ARGS);
+extern Datum network_ne(PG_FUNCTION_ARGS);
+extern Datum network_sub(PG_FUNCTION_ARGS);
+extern Datum network_subeq(PG_FUNCTION_ARGS);
+extern Datum network_sup(PG_FUNCTION_ARGS);
+extern Datum network_supeq(PG_FUNCTION_ARGS);
 extern Datum network_network(PG_FUNCTION_ARGS);
 extern Datum network_netmask(PG_FUNCTION_ARGS);
-extern int4 network_masklen(inet *addr);
+extern Datum network_masklen(PG_FUNCTION_ARGS);
 extern Datum network_broadcast(PG_FUNCTION_ARGS);
 extern Datum network_host(PG_FUNCTION_ARGS);
 
 /* mac.c */
-extern macaddr *macaddr_in(char *str);
-extern char *macaddr_out(macaddr *addr);
-extern bool macaddr_lt(macaddr *a1, macaddr *a2);
-extern bool macaddr_le(macaddr *a1, macaddr *a2);
-extern bool macaddr_eq(macaddr *a1, macaddr *a2);
-extern bool macaddr_ge(macaddr *a1, macaddr *a2);
-extern bool macaddr_gt(macaddr *a1, macaddr *a2);
-extern bool macaddr_ne(macaddr *a1, macaddr *a2);
-extern int4 macaddr_cmp(macaddr *a1, macaddr *a2);
+extern Datum macaddr_in(PG_FUNCTION_ARGS);
+extern Datum macaddr_out(PG_FUNCTION_ARGS);
+extern Datum macaddr_cmp(PG_FUNCTION_ARGS);
+extern Datum macaddr_lt(PG_FUNCTION_ARGS);
+extern Datum macaddr_le(PG_FUNCTION_ARGS);
+extern Datum macaddr_eq(PG_FUNCTION_ARGS);
+extern Datum macaddr_ge(PG_FUNCTION_ARGS);
+extern Datum macaddr_gt(PG_FUNCTION_ARGS);
+extern Datum macaddr_ne(PG_FUNCTION_ARGS);
 extern Datum macaddr_manuf(PG_FUNCTION_ARGS);
 
 /* numeric.c */

diff --git a/src/include/utils/inet.h b/src/include/utils/inet.h
index 075d66aa6b3f20a2b259f3eb92c23c22e8c2b8d9..5b39801f9c1544828688535857eb3ae8e2f6402b 100644 (file)
--- a/src/include/utils/inet.h
+++ b/src/include/utils/inet.h
@@ -7,17 +7,17 @@
  * Portions Copyright (c) 1996-2000, PostgreSQL, Inc
  * Portions Copyright (c) 1994, Regents of the University of California
  *
- * $Id: inet.h,v 1.7 2000/07/06 05:48:31 tgl Exp $
+ * $Id: inet.h,v 1.8 2000/08/03 23:07:51 tgl Exp $
  *
  *-------------------------------------------------------------------------
  */
-#ifndef MAC_H
-#define MAC_H
+#ifndef INET_H
+#define INET_H
 
 /*
- *     This is the internal storage format for IP addresses:
+ *     This is the internal storage format for IP addresses
+ *     (both INET and CIDR datatypes):
  */
-
 typedef struct
 {
        unsigned char family;
@@ -30,8 +30,17 @@ typedef struct
        }                       addr;
 } inet_struct;
 
+/*
+ * Both INET and CIDR addresses are represented within Postgres as varlena
+ * objects, ie, there is a varlena header (basically a length word) in front
+ * of the struct type depicted above.
+ *
+ * Although these types are variable-length, the maximum length
+ * is pretty short, so we make no provision for TOASTing them.
+ */
 typedef struct varlena inet;
 
+
 /*
  *     This is the internal storage format for MAC addresses:
  */
@@ -45,4 +54,18 @@ typedef struct macaddr
        unsigned char f;
 } macaddr;
 
-#endif  /* MAC_H */
+/*
+ * fmgr interface macros
+ */
+#define DatumGetInetP(X)    ((inet *) DatumGetPointer(X))
+#define InetPGetDatum(X)    PointerGetDatum(X)
+#define PG_GETARG_INET_P(n) DatumGetInetP(PG_GETARG_DATUM(n))
+#define PG_RETURN_INET_P(x) return InetPGetDatum(x)
+/* macaddr is a fixed-length pass-by-reference datatype */
+#define DatumGetMacaddrP(X)    ((macaddr *) DatumGetPointer(X))
+#define MacaddrPGetDatum(X)    PointerGetDatum(X)
+#define PG_GETARG_MACADDR_P(n) DatumGetMacaddrP(PG_GETARG_DATUM(n))
+#define PG_RETURN_MACADDR_P(x) return MacaddrPGetDatum(x)
+
+
+#endif  /* INET_H */

diff --git a/src/test/regress/expected/inet.out b/src/test/regress/expected/inet.out
index 35bfd77809dca50cc620beb4006c438587534ec3..6822ae3895451518a54eaede78bef8a59b500365 100644 (file)
--- a/src/test/regress/expected/inet.out
+++ b/src/test/regress/expected/inet.out
@@ -128,7 +128,7 @@ SELECT '' AS ten, i, c,
      | 192.168.1.226/24 | 192.168.1/24 | f  | t  | t  | t  | f  | f  | f  | t   | f   | t
      | 192.168.1.226    | 192.168.1/24 | f  | f  | f  | t  | t  | t  | t  | t   | f   | f
      | 10.1.2.3/8       | 10/8         | f  | t  | t  | t  | f  | f  | f  | t   | f   | t
-     | 10.1.2.3/8       | 10.0.0.0/32  | f  | f  | f  | t  | t  | t  | f  | f   | t   | t
+     | 10.1.2.3/8       | 10.0.0.0/32  | t  | t  | f  | f  | f  | t  | f  | f   | t   | t
      | 10.1.2.3         | 10.1.2.3/32  | f  | t  | t  | t  | f  | f  | f  | t   | f   | t
      | 10.1.2.3/24      | 10.1.2/24    | f  | t  | t  | t  | f  | f  | f  | t   | f   | t
      | 10.1.2.3/16      | 10.1/16      | f  | t  | t  | t  | f  | f  | f  | t   | f   | t