src/usage.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 /*
  23  * Copyright (C) Linus Torvalds, 2005-2006.
  24  * Copyright (C) Synchrotron Soleil 2007-2008.
  25  */
  26
  27 #include <stdio.h>
  28 #include <stdlib.h>
  29 #include <stdarg.h>
  30
  31 #include <hkl/hkl-macros.h>
  32
  33 static void report(const char *prefix, const char *err, va_list params)
  34 {
  35         fputs(prefix, stderr);
  36         vfprintf(stderr, err, params);
  37         fputs("\n", stderr);
  38 }
  39
  40 static NORETURN void die_builtin(const char *err, va_list params)
  41 {
  42         report("fatal: ", err, params);
  43         exit(128);
  44 }
  45 static void warning_builtin(const char *err, va_list params)
  46 {
  47         report("warning: ", err, params);
  48 }
  49
  50
  51 /* If we are in a dlopen()ed .so write to a global variable would segfault
  52  * (ugh), so keep things static. */
  53 static void (*die_routine)(const char *err, va_list params) NORETURN = die_builtin;
  54 static void (*warning_routine)(const char *err, va_list params) = warning_builtin;
  55
  56 void set_die_routine(void (*routine)(const char *err, va_list params) NORETURN)
  57 {
  58         die_routine = routine;
  59 }
  60
  61 void set_warning_routine(void (*routine)(const char *err, va_list params))
  62 {
  63         warning_routine = routine;
  64 }
  65
  66 void die(const char *err, ...)
  67 {
  68         va_list params;
  69
  70         va_start(params, err);
  71         die_routine(err, params);
  72         va_end(params);
  73 }
  74
  75 void warning(const char *err, ...)
  76 {
  77         va_list params;
  78
  79         va_start(params, err);
  80         warning_routine(err, params);
  81         va_end(params);
  82 }
  83
  84 void hkl_printbt(void)
  85 {
  86         void *array[20];
  87         int size;
  88         char **strings;
  89         int i;
  90
  91         size = backtrace(array, 20);
  92         strings = backtrace_symbols(array, size);
  93
  94         printf("Got a backtrace:\n");
  95         for(i=0; i<size; ++i)
  96                 printf("#%i %s\n", i, strings[i]);
  97
  98         free(strings);
  99 }
 100
 101 __inline__ void *_hkl_malloc(int size, const char *error)
 102 {
 103         void *tmp;
 104
 105         tmp = calloc(1, size);
 106         if(!tmp)
 107                 die("%s", error);
 108
 109         return tmp;
 110 }