rom/exec/initcode.c

   1 /*
   2     Copyright © 1995-2001, The AROS Development Team. All rights reserved.
   3     $Id$
   4
   5     Desc: Initialize resident modules
   6     Lang: english
   7 */
   8 #include "exec_intern.h"
   9 #include <exec/resident.h>
  10 #include <proto/exec.h>
  11
  12 #include <aros/debug.h>
  13
  14 /*****************************************************************************
  15
  16     NAME */
  17
  18         AROS_LH2(void, InitCode,
  19
  20 /*  SYNOPSIS */
  21         AROS_LHA(ULONG, startClass, D0),
  22         AROS_LHA(ULONG, version, D1),
  23
  24 /*  LOCATION */
  25         struct ExecBase *, SysBase, 12, Exec)
  26
  27 /*  FUNCTION
  28         Traverse the ResModules array and InitResident() all modules with
  29         versions greater than or equal to version, and of a class equal to
  30         startClass.
  31
  32     INPUTS
  33         startClass - which type of module to start
  34         version - a version number
  35
  36     RESULT
  37
  38     NOTES
  39
  40     EXAMPLE
  41
  42     BUGS
  43
  44     SEE ALSO
  45
  46     INTERNALS
  47
  48 *****************************************************************************/
  49 {
  50     AROS_LIBFUNC_INIT
  51     AROS_LIBBASE_EXT_DECL(struct ExecBase *,SysBase)
  52
  53     ULONG *list = SysBase->ResModules;
  54
  55     D(bug("enter InitCode(0x%x, %d)\n", startClass, version));
  56
  57     if(list)
  58     {
  59         while(*list)
  60         {
  61             /*
  62                 If bit 31 is set, this doesn't point to a Resident module, but
  63                 to another list of modules.
  64             */
  65             if(*list & 0x80000000) list = (ULONG *)(*list & 0x7fffffff);
  66
  67             if( (((struct Resident *)*list)->rt_Version >= (UBYTE)version)
  68              && (((struct Resident *)*list)->rt_Flags & (UBYTE)startClass) )
  69             {
  70                 D(bug("calling InitResident(\"%s\", NULL)\n",
  71                         ((struct Resident *)(*list))->rt_Name));
  72                 InitResident((struct Resident *)*list, NULL);
  73             }
  74             else
  75                 D(bug("NOT calling InitResident(\"%s\", NULL)\n",
  76                       ((struct Resident *)(*list))->rt_Name)
  77                 );
  78             list++;
  79         }
  80     }
  81
  82     D(bug("leave InitCode(0x%x, %d)\n", startClass, version));
  83
  84     AROS_LIBFUNC_EXIT
  85 } /* InitCode */