rom/dos/internalloadseg.c

   1
   2 /*
   3     Copyright © 1995-2001, The AROS Development Team. All rights reserved.
   4     $Id$
   5
   6     Desc: DOS function InternalLoadSeg()
   7     Lang: english
   8 */
   9
  10
  11 #define DEBUG 0
  12
  13 #include <dos/dos.h>
  14 #include <dos/dosextens.h>
  15 #include <proto/dos.h>
  16 #include <aros/debug.h>
  17 #include "dos_intern.h"
  18 #include "internalloadseg.h"
  19
  20 /*****************************************************************************
  21
  22     NAME */
  23 #include <proto/dos.h>
  24
  25         AROS_LH4(BPTR, InternalLoadSeg,
  26
  27 /*  SYNOPSIS */
  28         AROS_LHA(BPTR     , fh           , D0),
  29         AROS_LHA(BPTR     , table        , A0),
  30         AROS_LHA(LONG_FUNC, functionarray, A1),
  31         AROS_LHA(LONG *   , stack        , A2),
  32
  33 /*  LOCATION */
  34         struct DosLibrary *, DOSBase, 126, Dos)
  35
  36 /*  FUNCTION
  37         Loads from fh.
  38         Functionarray is a pointer to an array of functions. See below.
  39
  40         This function really only tries to load the different file
  41         formats aos, elf and aout.
  42
  43     INPUTS
  44         fh            : Filehandle to load from
  45         table         : ignored
  46         functionarray : Array of function to be used fro read, alloc and free
  47            FuncTable[0] -> bytes  = ReadFunc(readhandle, buffer, length),DOSBase
  48                            D0                D1          A0      D0      A6
  49            FuncTable[1] -> Memory = AllocFunc(size,flags), ExecBase
  50                            D0                 D0   D1      A6
  51            FuncTable[2] -> FreeFunc(memory, size), ExecBase
  52                                     A1       D0    A6
  53         stack         : pointer to storage (ULONG) for stacksize.
  54                         (currently ignored)
  55
  56     RESULT
  57         seglist  - pointer to loaded Seglist or NULL in case of failure.
  58
  59     NOTES
  60
  61     EXAMPLE
  62
  63     BUGS
  64        Use of table and stack are not implemented, yet!
  65
  66     SEE ALSO
  67         UnLoadSeg()
  68
  69     INTERNALS
  70
  71 *****************************************************************************/
  72 {
  73     AROS_LIBFUNC_INIT
  74     AROS_LIBBASE_EXT_DECL(struct DosLibrary *,DOSBase)
  75
  76     typedef struct _segfunc_t
  77     {
  78         BPTR (*func)(BPTR, BPTR, LONG *, LONG *, struct DosLibrary *);
  79         D(CONST_STRPTR format;)
  80     } segfunc_t;
  81
  82     #define SEGFUNC(format) { InternalLoadSeg_##format D(, #format)}
  83
  84     static const segfunc_t funcs[] =
  85     {
  86         SEGFUNC(ELF),
  87     #if !defined(__mc68000__) && !defined(__arm__)
  88         SEGFUNC(ELF_AROS),
  89     #endif
  90         SEGFUNC(AOS),
  91         SEGFUNC(AOUT)
  92     };
  93
  94     BPTR segs = 0;
  95
  96     if (fh)
  97     {
  98         int i = 0;
  99         const int num_funcs = sizeof(funcs)/sizeof(funcs[0]);
 100
 101         do
 102         {
 103             SetIoErr(0);
 104
 105             segs = (*funcs[i].func)(fh, MKBADDR(NULL), (LONG *)functionarray, NULL, DOSBase);
 106
 107             D(bug("[InternalLoadSeg] %s loading %p as an %s object.\n",
 108                   segs ? "Succeeded" : "FAILED", fh, funcs[i].format));
 109
 110         } while (!segs && (IoErr() == ERROR_NOT_EXECUTABLE) && (++i < num_funcs));
 111     }
 112
 113     return segs;
 114
 115     AROS_LIBFUNC_EXIT
 116 } /* InternalLoadSeg */