+/* Calculate the length of the data in a struct sockaddr_storage.
+ * THIS IS A HACK.
+ *
+ * To be truly portable, the length of an address should be passed
+ * in a companion variable. When such lengths are available
+ * everywhere they are needed, this macro should be removed.
+ */
+#ifdef WORKING_IPV6
+# define SS_LEN(ss) (((struct sockaddr *)(ss))->sa_family==AF_INET6?sizeof(struct sockaddr_in6):sizeof(struct sockaddr_in))
+#else
+# define SS_LEN(ss) (sizeof(struct sockaddr_in))
+#endif
+
+
+/* AF_NATIVE is the "best" address family we support, backward compatible
+ * through to AF_INET.
+ */
+#ifdef WORKING_IPV6
+#define AF_NATIVE AF_INET6
+#else
+#define AF_NATIVE AF_INET
+#endif
+
+/* SS_INIT(ss, family) initializes ss to all zeroes (as directed by RFC),
+ * and sets its ss_family as specified
+ */
+#define SS_INIT(ss, family) do { \
+ memset((ss), 0, sizeof(*(ss))); \
+ (ss)->ss_family = (family); \
+} while (0);
+
+/* SS_SET_INADDR_ANY(ss) sets ss to the family-appropriate equivalent of
+ * INADDR_ANY, a wildcard address and port.
+ */
+#ifdef WORKING_IPV6
+#define SS_SET_INADDR_ANY(ss) do { \
+ switch ((ss)->ss_family) { \
+ case AF_INET6: \
+ ((struct sockaddr_in6 *)(ss))->sin6_flowinfo = 0; \
+ ((struct sockaddr_in6 *)(ss))->sin6_addr = in6addr_any; \
+ break; \
+ case AF_INET: \
+ ((struct sockaddr_in *)(ss))->sin_addr.s_addr = INADDR_ANY; \
+ break; \
+ } \
+} while (0);
+#else
+#define SS_SET_INADDR_ANY(ss) do { \
+ ((struct sockaddr_in *)(ss))->sin_addr.s_addr = INADDR_ANY; \
+} while (0);
+#endif
+
+/* Set/get the port in a sockaddr_storage that already has an family */
+#ifdef WORKING_IPV6
+#define SS_SET_PORT(ss, port) \
+switch ((ss)->ss_family) { \
+ case AF_INET: \
+ ((struct sockaddr_in *)(ss))->sin_port = (in_port_t)htons((port)); \
+ break; \
+ case AF_INET6: \
+ ((struct sockaddr_in6 *)(ss))->sin6_port = (in_port_t)htons((port)); \
+ break; \
+ default: assert(0); \
+}
+#else
+#define SS_SET_PORT(ss, port) \
+ ((struct sockaddr_in *)(ss))->sin_port = (in_port_t)htons((port));
+#endif
+
+#ifdef WORKING_IPV6
+#define SS_GET_PORT(ss) (ntohs( \
+ (ss)->ss_family == AF_INET6? \
+ ((struct sockaddr_in6 *)(ss))->sin6_port \
+ :((struct sockaddr_in *)(ss))->sin_port))
+#else
+#define SS_GET_PORT(ss) (ntohs( \
+ ((struct sockaddr_in *)(ss))->sin_port))
+#endif
+
+/*
+ * The dbmalloc package comes from:
+ *
+ * http://www.clark.net/pub/dickey/dbmalloc/dbmalloc.tar.gz
+ *
+ * or
+ *
+ * ftp://gatekeeper.dec.com/pub/usenet/comp.sources.misc/volume32/dbmalloc/
+ *
+ * The following functions are sprinkled through the code, but are
+ * disabled unless USE_DBMALLOC is defined:
+ *
+ * malloc_enter(char *) -- stack trace for malloc reports
+ * malloc_leave(char *) -- stack trace for malloc reports
+ * malloc_mark(void *) -- mark an area as never to be free-d
+ * malloc_chain_check(void) -- check the malloc area now
+ * malloc_dump(int fd) -- report the malloc contents to a file descriptor
+ * malloc_list(int fd, ulong a, ulong b) -- report memory activated since
+ * history stamp a that is still active as of stamp b (leak check)
+ * malloc_inuse(ulong *h) -- create history stamp h and return the amount
+ * of memory currently in use.
+ */
+
+#ifdef USE_DBMALLOC
+#include "dbmalloc.h"
+#else
+#define malloc_enter(func) ((void)0)
+#define malloc_leave(func) ((void)0)
+#define malloc_mark(ptr) ((void)0)
+#define malloc_chain_check() ((void)0)
+#define malloc_dump(fd) ((void)0)
+#define malloc_list(a,b,c) ((void)0)
+#define malloc_inuse(hist) (*(hist) = 0, 0)
+#define dbmalloc_caller_loc(x,y) (x)
+#endif
+