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 #define DEBUG 0
  10
  11 #include <aros/symbolsets.h>
  12 #include <aros/debug.h>
  13
  14 int _set_call_funcs(const void * const set[], int direction, int test_fail, struct ExecBase *SysBase)
  15 {
  16     int pos, (*func)(struct ExecBase *SysBase);
  17
  18     D(bug("entering set_call_funcs() - %p\n", set));
  19
  20     ForeachElementInSet(set, direction, pos, func)
  21     {
  22         D(bug("  %p[%d] %p()", set, pos, func));
  23
  24         if (test_fail)
  25         {
  26             int ret = (*func)(SysBase);
  27             D(bug(" => %d", ret));
  28             if (!ret)
  29                 return 0;
  30         }
  31         else
  32         {
  33             (void)(*func)(SysBase);
  34         }
  35         D(bug("\n"));
  36     }
  37
  38     return 1;
  39 }