packages/redboot/v2_0/src/net/inet_addr.c

   1 //==========================================================================
   2 //
   3 //      net/inet_addr.c
   4 //
   5 //      Stand-alone IP address parsing for RedBoot
   6 //
   7 //==========================================================================
   8 //####ECOSGPLCOPYRIGHTBEGIN####
   9 // -------------------------------------------
  10 // This file is part of eCos, the Embedded Configurable Operating System.
  11 // Copyright (C) 1998, 1999, 2000, 2001, 2002 Red Hat, Inc.
  12 //
  13 // eCos is free software; you can redistribute it and/or modify it under
  14 // the terms of the GNU General Public License as published by the Free
  15 // Software Foundation; either version 2 or (at your option) any later version.
  16 //
  17 // eCos is distributed in the hope that it will be useful, but WITHOUT ANY
  18 // WARRANTY; without even the implied warranty of MERCHANTABILITY or
  19 // FITNESS FOR A PARTICULAR PURPOSE.  See the GNU General Public License
  20 // for more details.
  21 //
  22 // You should have received a copy of the GNU General Public License along
  23 // with eCos; if not, write to the Free Software Foundation, Inc.,
  24 // 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA.
  25 //
  26 // As a special exception, if other files instantiate templates or use macros
  27 // or inline functions from this file, or you compile this file and link it
  28 // with other works to produce a work based on this file, this file does not
  29 // by itself cause the resulting work to be covered by the GNU General Public
  30 // License. However the source code for this file must still be made available
  31 // in accordance with section (3) of the GNU General Public License.
  32 //
  33 // This exception does not invalidate any other reasons why a work based on
  34 // this file might be covered by the GNU General Public License.
  35 //
  36 // Alternative licenses for eCos may be arranged by contacting Red Hat, Inc.
  37 // at http://sources.redhat.com/ecos/ecos-license/
  38 // -------------------------------------------
  39 //####ECOSGPLCOPYRIGHTEND####
  40 //==========================================================================
  41 //#####DESCRIPTIONBEGIN####
  42 //
  43 // Author(s):    gthomas
  44 // Contributors: gthomas
  45 // Date:         2000-07-14
  46 // Purpose:
  47 // Description:
  48 //
  49 // This code is part of RedBoot (tm).
  50 //
  51 //####DESCRIPTIONEND####
  52 //
  53 //==========================================================================
  54
  55 #include <redboot.h>
  56 #include <net/net.h>
  57
  58 bool
  59 inet_aton(const char *s, in_addr_t *addr)
  60 {
  61     int i, val, radix, digit;
  62     unsigned long res = 0;
  63     bool first;
  64     char c;
  65
  66     for (i = 0;  i < 4;  i++) {
  67         // Parse next digit string
  68         first = true;
  69         val = 0;
  70         radix = 10;
  71         while ((c = *s++) != '\0') {
  72             if (first && (c == '0') && (_tolower(*s) == 'x')) {
  73                 radix = 16;
  74                 s++;  // Skip over 0x
  75                 c = *s++;
  76             }
  77             first = false;
  78             if (_is_hex(c) && ((digit = _from_hex(c)) < radix)) {
  79                 // Valid digit
  80                 val = (val * radix) + digit;
  81             } else if (c == '.' && i < 3) { // all but last terminate by '.'
  82                 break;
  83             } else {
  84                 return false;
  85             }
  86         }
  87         // merge result
  88 #ifdef __LITTLE_ENDIAN__
  89         res |= val << ((3-i)*8);  // 24, 16, 8, 0
  90 #else
  91         res = (res << 8) | val;
  92 #endif
  93         if ('\0' == c) {
  94             if (0 == i) { // first field found end of string
  95                 res = val; // no shifting, use it as the whole thing
  96                 break; // permit entering a single number
  97             }
  98             if (3 > i) // we found end of string before getting 4 fields
  99                 return false;
 100         }
 101         // after that we check that it was 0..255 only
 102         if (val &~0xff) return false;
 103     }
 104     addr->s_addr = htonl(res);
 105     return true;
 106 }
 107
 108 // Assumes address is in network byte order
 109 char *
 110 inet_ntoa(in_addr_t *addr)
 111 {
 112     static char str[32];
 113     unsigned char *ap;
 114
 115     ap = (unsigned char *)addr;
 116     diag_sprintf(str, "%d.%d.%d.%d", ap[0], ap[1], ap[2], ap[3]);
 117     return str;
 118 }