lib/hippi.c

   1 /*
   2  * lib/hippi.c        This file contains an implementation of the "HIPPI"
   3  *              support functions for the NET-2 base distribution.
   4  *
   5  * Version:     $Id$
   6  *
   7  * Author:      Fred N. van Kempen, <waltje@uwalt.nl.mugnet.org>
   8  *              Copyright 1993 MicroWalt Corporation
   9  *
  10  *              Modified for HIPPI by Jes Sorensen, <Jes.Sorensen@cern.ch>
  11  *
  12  *              This program is free software; you can redistribute it
  13  *              and/or  modify it under  the terms of  the GNU General
  14  *              Public  License as  published  by  the  Free  Software
  15  *              Foundation;  either  version 2 of the License, or  (at
  16  *              your option) any later version.
  17  */
  18 #include "config.h"
  19
  20 #if HAVE_HWHIPPI
  21 #include <sys/types.h>
  22 #include <sys/socket.h>
  23 #include <net/if_arp.h>
  24 #include <stdlib.h>
  25 #include <stdio.h>
  26 #include <errno.h>
  27 #include <ctype.h>
  28 #include <string.h>
  29 #include <unistd.h>
  30 #include "net-support.h"
  31 #include "pathnames.h"
  32 #include "intl.h"
  33 #include "util.h"
  34
  35 /*
  36  *    HIPPI magic constants.
  37  */
  38
  39 #define HIPPI_ALEN      6       /* Bytes in one HIPPI hw-addr        */
  40 #ifndef ARPHRD_HIPPI
  41 #define ARPHRD_HIPPI    780
  42 #warning "ARPHRD_HIPPI is not defined in <net/if_arp.h>. Using private value 708"
  43 #endif
  44
  45 extern struct hwtype hippi_hwtype;
  46
  47
  48 /* Display an HIPPI address in readable format. */
  49 static char *pr_hippi(unsigned char *ptr)
  50 {
  51     static char buff[64];
  52
  53     sprintf(buff, "%02X:%02X:%02X:%02X:%02X:%02X",
  54             (ptr[0] & 0377), (ptr[1] & 0377), (ptr[2] & 0377),
  55             (ptr[3] & 0377), (ptr[4] & 0377), (ptr[5] & 0377)
  56         );
  57     return (buff);
  58 }
  59
  60
  61 /* Input an HIPPI address and convert to binary. */
  62 static int in_hippi(char *bufp, struct sockaddr *sap)
  63 {
  64     unsigned char *ptr;
  65     char c, *orig;
  66     int i, val;
  67
  68     sap->sa_family = hippi_hwtype.type;
  69     ptr = sap->sa_data;
  70
  71     i = 0;
  72     orig = bufp;
  73     while ((*bufp != '\0') && (i < HIPPI_ALEN)) {
  74         val = 0;
  75         c = *bufp++;
  76         if (isdigit(c))
  77             val = c - '0';
  78         else if (c >= 'a' && c <= 'f')
  79             val = c - 'a' + 10;
  80         else if (c >= 'A' && c <= 'F')
  81             val = c - 'A' + 10;
  82         else {
  83 #ifdef DEBUG
  84             fprintf(stderr, _("in_hippi(%s): invalid hippi address!\n"), orig);
  85 #endif
  86             errno = EINVAL;
  87             return (-1);
  88         }
  89         val <<= 4;
  90         c = *bufp++;
  91         if (isdigit(c))
  92             val |= c - '0';
  93         else if (c >= 'a' && c <= 'f')
  94             val |= c - 'a' + 10;
  95         else if (c >= 'A' && c <= 'F')
  96             val |= c - 'A' + 10;
  97         else {
  98 #ifdef DEBUG
  99             fprintf(stderr, _("in_hippi(%s): invalid hippi address!\n"), orig);
 100 #endif
 101             errno = EINVAL;
 102             return (-1);
 103         }
 104         *ptr++ = (unsigned char) (val & 0377);
 105         i++;
 106
 107         /* We might get a semicolon here - not required. */
 108         if (*bufp == ':') {
 109             if (i == HIPPI_ALEN) {
 110 #ifdef DEBUG
 111                 fprintf(stderr, _("in_hippi(%s): trailing : ignored!\n"), orig)
 112 #endif
 113                     ;           /* nothing */
 114             }
 115             bufp++;
 116         }
 117     }
 118
 119     /* That's it.  Any trailing junk? */
 120     if ((i == HIPPI_ALEN) && (*bufp != '\0')) {
 121 #ifdef DEBUG
 122         fprintf(stderr, _("in_hippi(%s): trailing junk!\n"), orig);
 123         errno = EINVAL;
 124         return (-1);
 125 #endif
 126     }
 127 #ifdef DEBUG
 128     fprintf(stderr, "in_hippi(%s): %s\n", orig, pr_hippi(sap->sa_data));
 129 #endif
 130
 131     return (0);
 132 }
 133
 134
 135 struct hwtype hippi_hwtype =
 136 {
 137     "hippi", NULL, /*"HIPPI", */ ARPHRD_HIPPI, HIPPI_ALEN,
 138     pr_hippi, in_hippi, NULL, 0
 139 };
 140
 141
 142 #endif                          /* HAVE_HWHIPPI */