lib/libmes.c

   1 /* -*-comment-start: "//";comment-end:""-*-
   2  * Mes --- Maxwell Equations of Software
   3  * Copyright © 2016,2017,2018 Jan (janneke) Nieuwenhuizen <janneke@gnu.org>
   4  *
   5  * This file is part of Mes.
   6  *
   7  * Mes is free software; you can redistribute it and/or modify it
   8  * under the terms of the GNU General Public License as published by
   9  * the Free Software Foundation; either version 3 of the License, or (at
  10  * your option) any later version.
  11  *
  12  * Mes is distributed in the hope that it will be useful, but
  13  * WITHOUT ANY WARRANTY; without even the implied warranty of
  14  * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  15  * GNU General Public License for more details.
  16  *
  17  * You should have received a copy of the GNU General Public License
  18  * along with Mes.  If not, see <http://www.gnu.org/licenses/>.
  19  */
  20
  21 #include <libmes.h>
  22 #include <string.h>
  23 #include <unistd.h>
  24
  25 int
  26 isdigit (int c)
  27 {
  28   return c >= '0' && c <= '9';
  29 }
  30
  31 int
  32 isxdigit (int c)
  33 {
  34   return isdigit (c) || c >= 'a' && c <= 'f';
  35 }
  36
  37 int
  38 isspace (int c)
  39 {
  40   return (c == '\t' || c == '\n' || c == '\v' || c == '\f' || c == '\r' || c == ' ');
  41 }
  42
  43 int
  44 isnumber (int c, int base)
  45 {
  46   if (base == 2)
  47     return (c >= '0') && (c <= '1');
  48   if (base == 8)
  49     return (c >= '0') && (c <= '7');
  50   if (base == 10)
  51     return isdigit (c);
  52   if (base == 16)
  53     return isxdigit (c);
  54 }
  55
  56 int
  57 abtoi (char const **p, int base)
  58 {
  59   char const *s = *p;
  60   int i = 0;
  61   int sign = 1;
  62   if (!base) base = 10;
  63   if (*s && *s == '-')
  64     {
  65       sign = -1;
  66       s++;
  67     }
  68   while (isnumber (*s, base))
  69     {
  70       i *= base;
  71       int m = *s > '9' ? 'a' - 10 : '0';
  72       i += *s - m;
  73       s++;
  74     }
  75   *p = s;
  76   return i * sign;
  77 }
  78
  79 int
  80 atoi (char const *s)
  81 {
  82   char const *p = s;
  83   return abtoi (&p, 0);
  84 }
  85
  86 char const*
  87 number_to_ascii (int x, int base, int signed_p)
  88 {
  89   static char itoa_buf[12];
  90   char *p = itoa_buf + 11;
  91   *p-- = 0;
  92
  93   int sign = 0;
  94   unsigned u = x;
  95   if (signed_p && x < 0)
  96     {
  97       sign = 1;
  98       u = -x;
  99     }
 100
 101   do
 102      {
 103        int i = u % base;
 104        *p-- = i > 9 ? 'a' + i - 10 : '0' + i;
 105        u = u / base;
 106      } while (u);
 107
 108   if (sign && *(p + 1) != '0')
 109     *p-- = '-';
 110
 111   return p+1;
 112 }
 113
 114 char const*
 115 itoab (int x, int base)
 116 {
 117   return number_to_ascii (x, base, 1);
 118 }
 119
 120 char const*
 121 itoa (int x)
 122 {
 123   return number_to_ascii (x, 10, 1);
 124 }
 125
 126 char const*
 127 utoa (unsigned x)
 128 {
 129   return number_to_ascii (x, 10, 0);
 130 }
 131
 132 int _ungetc_pos = -1;
 133 char _ungetc_buf[10];
 134
 135 int
 136 fdgetc (int fd)
 137 {
 138   char c;
 139   int i;
 140   if (_ungetc_pos == -1)
 141     {
 142       int r = read (fd, &c, 1);
 143       if (r < 1)
 144         return -1;
 145       i = c;
 146    }
 147   else
 148     {
 149       i = _ungetc_buf[_ungetc_pos];
 150       _ungetc_pos -= 1;
 151      }
 152   if (i < 0)
 153     i += 256;
 154
 155   return i;
 156 }
 157
 158 int
 159 fdputc (int c, int fd)
 160 {
 161   write (fd, (char*)&c, 1);
 162   return 0;
 163 }
 164
 165 int
 166 fdputs (char const* s, int fd)
 167 {
 168   int i = strlen (s);
 169   write (fd, s, i);
 170   return 0;
 171 }
 172
 173 int
 174 fdungetc (int c, int fd)
 175 {
 176   _ungetc_pos++;
 177   _ungetc_buf[_ungetc_pos] = c;
 178   return c;
 179 }
 180
 181 #if POSIX || __x86_64__
 182 #define STDERR 2
 183 int
 184 eputs (char const* s)
 185 {
 186   int i = strlen (s);
 187   write (STDERR, s, i);
 188   return 0;
 189 }
 190 #endif
 191
 192 int
 193 eputc (int c)
 194 {
 195   return fdputc (c, STDERR);
 196 }