sim/igen/misc.c

   1 /* The IGEN simulator generator for GDB, the GNU Debugger.
   2
   3    Copyright 2002-2018 Free Software Foundation, Inc.
   4
   5    Contributed by Andrew Cagney.
   6
   7    This file is part of GDB.
   8
   9    This program is free software; you can redistribute it and/or modify
  10    it under the terms of the GNU General Public License as published by
  11    the Free Software Foundation; either version 3 of the License, or
  12    (at your option) any later version.
  13
  14    This program is distributed in the hope that it will be useful,
  15    but WITHOUT ANY WARRANTY; without even the implied warranty of
  16    MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  17    GNU General Public License for more details.
  18
  19    You should have received a copy of the GNU General Public License
  20    along with this program.  If not, see <http://www.gnu.org/licenses/>.  */
  21
  22
  23
  24 #include <stdio.h>
  25 #include <stdarg.h>
  26 #include <ctype.h>
  27
  28 #include "config.h"
  29 #include "misc.h"
  30
  31 #ifdef HAVE_STDLIB_H
  32 #include <stdlib.h>
  33 #endif
  34
  35 #ifdef HAVE_STRING_H
  36 #include <string.h>
  37 #else
  38 #ifdef HAVE_STRINGS_H
  39 #include <strings.h>
  40 #endif
  41 #endif
  42
  43 /* NB: Because warning and error can be interchanged, neither append a
  44    trailing '\n' */
  45
  46 void
  47 error (const line_ref *line, char *msg, ...)
  48 {
  49   va_list ap;
  50   if (line != NULL)
  51     fprintf (stderr, "%s:%d: ", line->file_name, line->line_nr);
  52   va_start (ap, msg);
  53   vfprintf (stderr, msg, ap);
  54   va_end (ap);
  55   exit (1);
  56 }
  57
  58 void
  59 warning (const line_ref *line, char *msg, ...)
  60 {
  61   va_list ap;
  62   if (line != NULL)
  63     fprintf (stderr, "%s:%d: warning: ", line->file_name, line->line_nr);
  64   va_start (ap, msg);
  65   vfprintf (stderr, msg, ap);
  66   va_end (ap);
  67 }
  68
  69 void
  70 notify (const line_ref *line, char *msg, ...)
  71 {
  72   va_list ap;
  73   if (line != NULL)
  74     fprintf (stdout, "%s %d: info: ", line->file_name, line->line_nr);
  75   va_start (ap, msg);
  76   vfprintf (stdout, msg, ap);
  77   va_end (ap);
  78 }
  79
  80 void *
  81 zalloc (long size)
  82 {
  83   void *memory = malloc (size);
  84   if (memory == NULL)
  85     ERROR ("zalloc failed");
  86   memset (memory, 0, size);
  87   return memory;
  88 }
  89
  90
  91 unsigned long long
  92 a2i (const char *a)
  93 {
  94   int neg = 0;
  95   int base = 10;
  96   unsigned long long num = 0;
  97   int looping;
  98
  99   while (isspace (*a))
 100     a++;
 101
 102   if (strcmp (a, "true") == 0 || strcmp (a, "TRUE") == 0)
 103     return 1;
 104
 105   if (strcmp (a, "false") == 0 || strcmp (a, "FALSE") == 0)
 106     return 0;
 107
 108   if (*a == '-')
 109     {
 110       neg = 1;
 111       a++;
 112     }
 113
 114   if (*a == '0')
 115     {
 116       if (a[1] == 'x' || a[1] == 'X')
 117         {
 118           a += 2;
 119           base = 16;
 120         }
 121       else if (a[1] == 'b' || a[1] == 'B')
 122         {
 123           a += 2;
 124           base = 2;
 125         }
 126       else
 127         base = 8;
 128     }
 129
 130   looping = 1;
 131   while (looping)
 132     {
 133       int ch = *a++;
 134
 135       switch (base)
 136         {
 137         default:
 138           looping = 0;
 139           break;
 140
 141         case 2:
 142           if (ch >= '0' && ch <= '1')
 143             {
 144               num = (num * 2) + (ch - '0');
 145             }
 146           else
 147             {
 148               looping = 0;
 149             }
 150           break;
 151
 152         case 10:
 153           if (ch >= '0' && ch <= '9')
 154             {
 155               num = (num * 10) + (ch - '0');
 156             }
 157           else
 158             {
 159               looping = 0;
 160             }
 161           break;
 162
 163         case 8:
 164           if (ch >= '0' && ch <= '7')
 165             {
 166               num = (num * 8) + (ch - '0');
 167             }
 168           else
 169             {
 170               looping = 0;
 171             }
 172           break;
 173
 174         case 16:
 175           if (ch >= '0' && ch <= '9')
 176             {
 177               num = (num * 16) + (ch - '0');
 178             }
 179           else if (ch >= 'a' && ch <= 'f')
 180             {
 181               num = (num * 16) + (ch - 'a' + 10);
 182             }
 183           else if (ch >= 'A' && ch <= 'F')
 184             {
 185               num = (num * 16) + (ch - 'A' + 10);
 186             }
 187           else
 188             {
 189               looping = 0;
 190             }
 191           break;
 192         }
 193     }
 194
 195   if (neg)
 196     num = -num;
 197
 198   return num;
 199 }
 200
 201 unsigned
 202 target_a2i (int ms_bit_nr, const char *a)
 203 {
 204   if (ms_bit_nr)
 205     return (ms_bit_nr - a2i (a));
 206   else
 207     return a2i (a);
 208 }
 209
 210 unsigned
 211 i2target (int ms_bit_nr, unsigned bit)
 212 {
 213   if (ms_bit_nr)
 214     return ms_bit_nr - bit;
 215   else
 216     return bit;
 217 }
 218
 219
 220 int
 221 name2i (const char *names, const name_map * map)
 222 {
 223   const name_map *curr;
 224   const char *name = names;
 225   while (*name != '\0')
 226     {
 227       /* find our name */
 228       char *end = strchr (name, ',');
 229       char *next;
 230       unsigned len;
 231       if (end == NULL)
 232         {
 233           end = strchr (name, '\0');
 234           next = end;
 235         }
 236       else
 237         {
 238           next = end + 1;
 239         }
 240       len = end - name;
 241       /* look it up */
 242       curr = map;
 243       while (curr->name != NULL)
 244         {
 245           if (strncmp (curr->name, name, len) == 0
 246               && strlen (curr->name) == len)
 247             return curr->i;
 248           curr++;
 249         }
 250       name = next;
 251     }
 252   /* nothing found, possibly return a default */
 253   curr = map;
 254   while (curr->name != NULL)
 255     curr++;
 256   if (curr->i >= 0)
 257     return curr->i;
 258   else
 259     error (NULL, "%s contains no valid names", names);
 260   return 0;
 261 }
 262
 263 const char *
 264 i2name (const int i, const name_map * map)
 265 {
 266   while (map->name != NULL)
 267     {
 268       if (map->i == i)
 269         return map->name;
 270       map++;
 271     }
 272   error (NULL, "map lookup failed for %d\n", i);
 273   return NULL;
 274 }