compiler/autoinit/functions.c

   1 /*
   2     Copyright © 1995-2001, The AROS Development Team. All rights reserved.
   3     $Id$
   4
   5     Desc: autoinit library - functions sets handling
   6     Lang: english
   7 */
   8
   9 #include <aros/symbolsets.h>
  10 #include <aros/debug.h>
  11
  12 #define DEBUG 0
  13 int set_call_funcs(const void *set[], int direction, int test_fail)
  14 {
  15     int pos, (*func)(void);
  16
  17     D(bug("entering set_call_funcs() - %p\n", set));
  18
  19     D
  20     (
  21         ForeachElementInSet(set, direction, pos, func)
  22         {
  23             bug("pos = %d, func = %p\n", pos, func);
  24         }
  25     )
  26
  27     ForeachElementInSet(set, direction, pos, func)
  28     {
  29         if (test_fail)
  30         {
  31             if (!(*func)())
  32                 return 0;
  33         }
  34         else
  35         {
  36             (void)(*func)();
  37         }
  38     }
  39
  40     return 1;
  41 }