tools/winegcc/utils.c

   1 /*
   2  * Useful functions for winegcc/winewrap
   3  *
   4  * Copyright 2000 Francois Gouget
   5  * Copyright 2002 Dimitrie O. Paun
   6  * Copyright 2003 Richard Cohen
   7  *
   8  * This library is free software; you can redistribute it and/or
   9  * modify it under the terms of the GNU Lesser General Public
  10  * License as published by the Free Software Foundation; either
  11  * version 2.1 of the License, or (at your option) any later version.
  12  *
  13  * This library is distributed in the hope that it will be useful,
  14  * but WITHOUT ANY WARRANTY; without even the implied warranty of
  15  * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
  16  * Lesser General Public License for more details.
  17  *
  18  * You should have received a copy of the GNU Lesser General Public
  19  * License along with this library; if not, write to the Free Software
  20  * Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA  02111-1307  USA
  21  */
  22 #include "config.h"
  23 #include "wine/port.h"
  24
  25 #include <stdio.h>
  26 #include <string.h>
  27 #include <stdarg.h>
  28 #include <stdlib.h>
  29 #include <errno.h>
  30
  31 #include "utils.h"
  32
  33 #if !defined(min)
  34 # define min(x,y) (((x) < (y)) ? (x) : (y))
  35 #endif
  36
  37 int verbose = 0;
  38
  39 void error(const char *s, ...)
  40 {
  41     va_list ap;
  42
  43     va_start(ap, s);
  44     fprintf(stderr, "Error: ");
  45     vfprintf(stderr, s, ap);
  46     fprintf(stderr, "\n");
  47     va_end(ap);
  48     exit(2);
  49 }
  50
  51 void *xmalloc(size_t size)
  52 {
  53     void *p;
  54     if ((p = malloc (size)) == NULL)
  55         error("Can not malloc %d bytes.", size);
  56
  57     return p;
  58 }
  59
  60 void *xrealloc(void* p, size_t size)
  61 {
  62     void* p2;
  63     if ((p2 = realloc (p, size)) == NULL)
  64         error("Can not realloc %d bytes.", size);
  65
  66     return p2;
  67 }
  68
  69 char *strmake(const char *fmt, ...)
  70 {
  71     int n;
  72     size_t size = 100;
  73     char *p;
  74     va_list ap;
  75     p = xmalloc (size);
  76
  77     while (1)
  78     {
  79         va_start(ap, fmt);
  80         n = vsnprintf (p, size, fmt, ap);
  81         va_end(ap);
  82         if (n > -1 && n < size) return p;
  83         size = min( size*2, n+1 );
  84         p = xrealloc (p, size);
  85     }
  86 }
  87
  88 strarray *strarray_alloc(void)
  89 {
  90     strarray *arr = xmalloc(sizeof(*arr));
  91     arr->maximum = arr->size = 0;
  92     arr->base = NULL;
  93     return arr;
  94 }
  95
  96 void strarray_free(strarray* arr)
  97 {
  98     free(arr->base);
  99     free(arr);
 100 }
 101
 102 void strarray_add(strarray* arr, char* str)
 103 {
 104     if (arr->size == arr->maximum)
 105     {
 106         arr->maximum += 10;
 107         arr->base = xrealloc(arr->base, sizeof(*(arr->base)) * arr->maximum);
 108     }
 109     arr->base[arr->size++] = str;
 110 }
 111
 112 void spawn(strarray* arr)
 113 {
 114     int i, status;
 115     char **argv = arr->base;
 116
 117     if (verbose)
 118     {
 119         for(i = 0; argv[i]; i++) printf("%s ", argv[i]);
 120         printf("\n");
 121     }
 122     if (!(status = spawnvp( _P_WAIT, argv[0], argv))) return;
 123
 124     if (status > 0) error("%s failed.", argv[0]);
 125     else perror("Error:");
 126     exit(3);
 127 }