tools/winedump/misc.c

   1 /*
   2  *  Misc functions
   3  *
   4  *  Copyright 2000 Jon Griffiths
   5  *
   6  * This library is free software; you can redistribute it and/or
   7  * modify it under the terms of the GNU Lesser General Public
   8  * License as published by the Free Software Foundation; either
   9  * version 2.1 of the License, or (at your option) any later version.
  10  *
  11  * This library is distributed in the hope that it will be useful,
  12  * but WITHOUT ANY WARRANTY; without even the implied warranty of
  13  * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
  14  * Lesser General Public License for more details.
  15  *
  16  * You should have received a copy of the GNU Lesser General Public
  17  * License along with this library; if not, write to the Free Software
  18  * Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA  02111-1307  USA
  19  */
  20 #include "winedump.h"
  21
  22
  23 /*******************************************************************
  24  *         str_create
  25  *
  26  * Create a single string from many substrings
  27  */
  28 char *str_create(size_t num_str, ...)
  29 {
  30   va_list args;
  31   size_t len = 1, i = 0;
  32   char *tmp, *t;
  33
  34   va_start (args, num_str);
  35   for (i = 0; i < num_str; i++)
  36     if ((t = va_arg(args, char *)))
  37       len += strlen (t);
  38   va_end (args);
  39
  40   if (!(tmp = (char *) malloc (len)))
  41     fatal ("Out of memory");
  42
  43   tmp[0] = '\0';
  44
  45   va_start (args, num_str);
  46   for (i = 0; i < num_str; i++)
  47     if ((t = va_arg(args, char *)))
  48       strcat (tmp, t);
  49   va_end (args);
  50   return tmp;
  51 }
  52
  53
  54 /*******************************************************************
  55  *         str_create_num
  56  *
  57  * Create a single string from many substrings, terminating in a number
  58  */
  59 char *str_create_num(size_t num_str, int num, ...)
  60 {
  61   va_list args;
  62   size_t len = 8, i = 0;
  63   char *tmp, *t;
  64
  65   va_start (args, num);
  66   for (i = 0; i < num_str; i++)
  67     if ((t = va_arg(args, char *)))
  68       len += strlen (t);
  69   va_end (args);
  70
  71   if (!(tmp = (char *) malloc (len)))
  72     fatal ("Out of memory");
  73
  74   tmp[0] = '\0';
  75
  76   va_start (args, num);
  77   for (i = 0; i < num_str; i++)
  78     if ((t = va_arg(args, char *)))
  79       strcat (tmp, t);
  80   va_end (args);
  81   sprintf (tmp + len - 8, "%d", num);
  82   return tmp;
  83 }
  84
  85
  86 /*******************************************************************
  87  *         str_substring
  88  *
  89  * Create a new substring from a string
  90  */
  91 char *str_substring(const char *start, const char *end)
  92 {
  93   char *newstr;
  94
  95   assert (start && end && end > start);
  96
  97   if (!(newstr = (char *) malloc (end - start + 1)))
  98     fatal ("Out of memory");
  99
 100   memcpy (newstr, start, end - start);
 101   newstr [end - start] = '\0';
 102
 103   return newstr;
 104 }
 105
 106
 107 /*******************************************************************
 108  *         str_replace
 109  *
 110  * Swap two strings in another string, in place
 111  * Modified PD code from 'snippets'
 112  */
 113 char *str_replace (char *str, const char *oldstr, const char *newstr)
 114 {
 115   int oldlen, newlen;
 116   char *p, *q;
 117
 118   if (!(p = strstr(str, oldstr)))
 119     return p;
 120   oldlen = strlen (oldstr);
 121   newlen = strlen (newstr);
 122   memmove (q = p + newlen, p + oldlen, strlen (p + oldlen) + 1);
 123   memcpy (p, newstr, newlen);
 124   return q;
 125 }
 126
 127
 128 /*******************************************************************
 129  *         str_match
 130  *
 131  * Locate one string in another, ignoring spaces
 132  */
 133 const char *str_match (const char *str, const char *match, int *found)
 134 {
 135   assert(str && match && found);
 136
 137   while (*str == ' ') str++;
 138   if (!strncmp (str, match, strlen (match)))
 139   {
 140     *found = 1;
 141     str += strlen (match);
 142     while (*str == ' ') str++;
 143   }
 144   else
 145     *found = 0;
 146   return str;
 147 }
 148
 149
 150 /*******************************************************************
 151  *         str_find_set
 152  *
 153  * Locate the first occurrence of a set of characters in a string
 154  */
 155 const char *str_find_set (const char *str, const char *findset)
 156 {
 157   assert(str && findset);
 158
 159   while (*str)
 160   {
 161     const char *p = findset;
 162     while (*p)
 163       if (*p++ == *str)
 164         return str;
 165     str++;
 166   }
 167   return NULL;
 168 }
 169
 170
 171 /*******************************************************************
 172  *         str_toupper
 173  *
 174  * Uppercase a string
 175  */
 176 char *str_toupper (char *str)
 177 {
 178   char *save = str;
 179   while (*str)
 180   {
 181     *str = toupper (*str);
 182     str++;
 183   }
 184   return save;
 185 }
 186
 187
 188 /*******************************************************************
 189  *         open_file
 190  *
 191  * Open a file returning only on success
 192  */
 193 FILE *open_file (const char *name, const char *ext, const char *mode)
 194 {
 195   char  fname[128];
 196   FILE *fp;
 197
 198   if (((unsigned)snprintf (fname, sizeof (fname), "%s%s%s",
 199                  *mode == 'w' ? "./" : "", name, ext) > sizeof (fname)))
 200     fatal ("File name too long");
 201
 202   if (VERBOSE)
 203     printf ("Open file %s\n", fname);
 204
 205   fp = fopen (fname, mode);
 206   if (!fp)
 207     fatal ("Cant open file");
 208   return fp;
 209 }
 210
 211
 212 /*******************************************************************
 213  *         fatal
 214  *
 215  * Fatal error handling
 216  */
 217 void  fatal (const char *message)
 218 {
 219   if (errno)
 220     perror (message);
 221   else
 222     puts (message);
 223   do_usage ();
 224 }