Initial revision

lib/ether.c

@@ -0,0 +1,144 @@
+/*
+ * lib/ether.c	This file contains an implementation of the "Ethernet"
+ *		support functions for the NET-2 base distribution.
+ *
+ * Version:	@(#)ether.c	1.10	10/07/93
+ *
+ * Author:	Fred N. van Kempen, <waltje@uwalt.nl.mugnet.org>
+ *		Copyright 1993 MicroWalt Corporation
+ *
+ *		This program is free software; you can redistribute it
+ *		and/or  modify it under  the terms of  the GNU General
+ *		Public  License as  published  by  the  Free  Software
+ *		Foundation;  either  version 2 of the License, or  (at
+ *		your option) any later version.
+ */
+#include "config.h"
+
+#if HAVE_HWETHER
+#include <sys/types.h>
+#include <sys/socket.h>
+#include <net/if_arp.h>
+#include <linux/if_ether.h>
+#include <stdlib.h>
+#include <stdio.h>
+#include <errno.h>
+#include <ctype.h>
+#include <string.h>
+#include <unistd.h>
+#include "net-support.h"
+#include "pathnames.h"
+#define  EXTERN
+#include "net-locale.h"
+
+
+extern struct hwtype ether_hwtype;
+
+
+/* Display an Ethernet address in readable format. */
+static char *
+pr_ether(unsigned char *ptr)
+{
+  static char buff[64];
+
+  sprintf(buff, "%02X:%02X:%02X:%02X:%02X:%02X",
+	(ptr[0] & 0377), (ptr[1] & 0377), (ptr[2] & 0377),
+	(ptr[3] & 0377), (ptr[4] & 0377), (ptr[5] & 0377)
+  );
+  return(buff);
+}
+
+
+/* Display an Ethernet socket address. */
+static char *
+pr_sether(struct sockaddr *sap)
+{
+  static char buf[64];
+
+  if (sap->sa_family == 0xFFFF || sap->sa_family == 0)
+    return(NLS_CATBUFF (catfd, etherSet, ether_none, "[NONE SET]", buf, 64));
+  return(pr_ether(sap->sa_data));
+}
+
+
+/* Input an Ethernet address and convert to binary. */
+static int
+in_ether(char *bufp, struct sockaddr *sap)
+{
+  unsigned char *ptr;
+  char c, *orig;
+  int i, val;
+
+  sap->sa_family = ether_hwtype.type;
+  ptr = sap->sa_data;
+
+  i = 0;
+  orig = bufp;
+  while((*bufp != '\0') && (i < ETH_ALEN)) {
+	val = 0;
+	c = *bufp++;
+	if (isdigit(c)) val = c - '0';
+	  else if (c >= 'a' && c <= 'f') val = c - 'a' + 10;
+	  else if (c >= 'A' && c <= 'F') val = c - 'A' + 10;
+	  else {
+#ifdef DEBUG
+		fprintf(stderr, NLS_CATGETS(catfd, etherSet, ether_debug1,
+					    "in_ether(%s): invalid ether address!\n"), orig);
+#endif
+		errno = EINVAL;
+		return(-1);
+	}
+	val <<= 4;
+	c = *bufp++;
+	if (isdigit(c)) val |= c - '0';
+	  else if (c >= 'a' && c <= 'f') val |= c - 'a' + 10;
+	  else if (c >= 'A' && c <= 'F') val |= c - 'A' + 10;
+	  else {
+#ifdef DEBUG
+		fprintf(stderr, NLS_CATGETS(catfd, etherSet, ether_debug2,
+					    "in_ether(%s): invalid ether address!\n"), orig);
+#endif
+		errno = EINVAL;
+		return(-1);
+	}
+	*ptr++ = (unsigned char) (val & 0377);
+	i++;
+
+	/* We might get a semicolon here - not required. */
+	if (*bufp == ':') {
+		if (i == ETH_ALEN) {
+#ifdef DEBUG
+			fprintf(stderr, NLS_CATGETS(catfd, etherSet, ether_debug3,
+						    "in_ether(%s): trailing : ignored!\n"),
+									orig)
+#endif
+						; /* nothing */
+		}
+		bufp++;
+	}
+  }
+
+  /* That's it.  Any trailing junk? */
+  if ((i == ETH_ALEN) && (*bufp != '\0')) {
+#ifdef DEBUG
+	fprintf(stderr, NLS_CATGETS(catfd, etherSet, ether_debug4, "in_ether(%s): trailing junk!\n"), orig);
+	errno = EINVAL;
+	return(-1);
+#endif
+  }
+
+#ifdef DEBUG
+  fprintf(stderr, "in_ether(%s): %s\n", orig, pr_ether(sap->sa_data));
+#endif
+
+  return(0);
+}
+
+
+struct hwtype ether_hwtype = {
+  "ether",	NULL, /*"10Mbps Ethernet",*/		ARPHRD_ETHER,	ETH_ALEN,
+  pr_ether,	pr_sether,	in_ether,	NULL
+};
+
+
+#endif	/* HAVE_HWETHER */