hkl/hkl-macros.c

   1 /* This file is part of the hkl library.
   2  *
   3  * The hkl library is free software: you can redistribute it and/or modify
   4  * it under the terms of the GNU General Public License as published by
   5  * the Free Software Foundation, either version 3 of the License, or
   6  * (at your option) any later version.
   7  *
   8  * The hkl library is distributed in the hope that it will be useful,
   9  * but WITHOUT ANY WARRANTY; without even the implied warranty of
  10  * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  11  * GNU General Public License for more details.
  12  *
  13  * You should have received a copy of the GNU General Public License
  14  * along with the hkl library.  If not, see <http://www.gnu.org/licenses/>.
  15  *
  16  * Copyright (C) 2003-2010 Synchrotron SOLEIL
  17  *                         L'Orme des Merisiers Saint-Aubin
  18  *                         BP 48 91192 GIF-sur-YVETTE CEDEX
  19  *
  20  * Authors: Picca Frédéric-Emmanuel <picca@synchrotron-soleil.fr>
  21  */
  22 #include <stdio.h>
  23 #include <hkl/hkl-macros.h>
  24
  25 #ifndef _MSC_VER
  26 void hkl_printbt(void)
  27 {
  28         void *array[20];
  29         int size;
  30         char **strings;
  31         int i;
  32
  33         size = backtrace(array, 20);
  34         strings = backtrace_symbols(array, size);
  35
  36         printf("Got a backtrace:\n");
  37         for(i=0; i<size; ++i)
  38                 fprintf(stderr, "#%i %s\n", i, strings[i]);
  39
  40         free(strings);
  41 }
  42 #else
  43 int vasprintf(char **strp, const char *fmt, va_list ap)
  44 {
  45         int len;
  46         char *buffer;
  47
  48         len = vsnprintf(*strp, 0, fmt, ap);
  49         buffer = malloc(len);
  50         vsnprintf(buffer, len-1, fmt, ap);
  51         *strp = buffer;
  52
  53         return len;
  54 }
  55 #endif
  56
  57 __inline__ void *_hkl_malloc(int size, const char *error)
  58 {
  59         void *tmp;
  60
  61         tmp = calloc(1, size);
  62         if(!tmp){
  63                 fprintf(stderr, "%s", error);
  64                 exit(128);
  65         }
  66
  67         return tmp;
  68 }