rom/dos/loadseg.c

   1 /*
   2     Copyright © 1995-2006, The AROS Development Team. All rights reserved.
   3     $Id$
   4
   5     Desc: DOS function LoadSeg()
   6     Lang: english
   7 */
   8
   9 #define DEBUG 0
  10
  11 #include <dos/dos.h>
  12 #include <dos/dosextens.h>
  13 #include <proto/dos.h>
  14 #include <aros/debug.h>
  15 #include "dos_intern.h"
  16
  17 #if AROS_MODULES_DEBUG
  18 #include <exec/nodes.h>
  19 #include <exec/lists.h>
  20 #include <string.h>
  21
  22 struct MinList debug_seglist, free_debug_segnodes;
  23
  24 #endif
  25
  26 /*****************************************************************************
  27
  28     NAME */
  29 #include <proto/dos.h>
  30
  31         AROS_LH1(BPTR, LoadSeg,
  32
  33 /*  SYNOPSIS */
  34         AROS_LHA(CONST_STRPTR, name, D1),
  35
  36 /*  LOCATION */
  37         struct DosLibrary *, DOSBase, 25, Dos)
  38
  39 /*  FUNCTION
  40         Loads an executable file into memory. Each hunk of the loadfile
  41         is loaded into his own memory section and a handle on all of them
  42         is returned. The segments can be freed with UnLoadSeg().
  43
  44     INPUTS
  45         name - NUL terminated name of the file.
  46
  47     RESULT
  48         Handle to the loaded executable or NULL if the load failed.
  49         IoErr() gives additional information in that case.
  50
  51     NOTES
  52         This function is built on top of InternalLoadSeg()
  53
  54     EXAMPLE
  55
  56     BUGS
  57
  58     SEE ALSO
  59         UnLoadSeg()
  60
  61     INTERNALS
  62
  63 *****************************************************************************/
  64 {
  65     AROS_LIBFUNC_INIT
  66     AROS_LIBBASE_EXT_DECL(struct DosLibrary *,DOSBase)
  67
  68     void (* FunctionArray[3])();
  69     BPTR file, segs=0;
  70
  71     FunctionArray[0] = __AROS_GETVECADDR(DOSBase,7);
  72     FunctionArray[1] = __AROS_GETVECADDR(SysBase,33);
  73     FunctionArray[2] = __AROS_GETVECADDR(SysBase,35);
  74
  75     /* Open the file */
  76     D(bug("[LoadSeg] Opening '%s'...\n", name));
  77     file = Open (name, FMF_READ);
  78
  79     if (file)
  80     {
  81         D(bug("[LoadSeg] Loading '%s'...\n", name));
  82
  83         segs = InternalLoadSeg (file, NULL, (void *)FunctionArray, NULL);
  84
  85         if (segs)
  86         {
  87 #if AROS_MODULES_DEBUG
  88             struct debug_segnode *segnode;
  89
  90             Forbid();
  91             segnode = (struct debug_segnode *)REMHEAD(&free_debug_segnodes);
  92             Permit();
  93
  94             if (segnode)
  95             {
  96                 NameFromFH(file, segnode->name, sizeof(segnode->name));
  97
  98                 segnode->seglist = segs;
  99 #if defined(__AROS_SET_START_ADDR)
 100                 __AROS_SET_START_ADDR(segnode);
 101 #else
 102 #warning "if you want gdb debugging of loaded executables implement __AROS_GET_START_ADDR in machine.h"
 103 #endif
 104
 105                 Forbid();
 106                 ADDTAIL(&debug_seglist, segnode);
 107                 Permit();
 108             }
 109 #endif
 110
 111             SetIoErr(0);
 112         }
 113         else
 114             bug("[LoadSeg] Failed to load '%s'\n", name);
 115         Close(file);
 116     }
 117   D(else
 118         bug("[LoadSeg] Failed to open '%s'\n", name));
 119
 120
 121     /* And return */
 122     return segs;
 123
 124     AROS_LIBFUNC_EXIT
 125 } /* LoadSeg */