rom/dos/loadseg.c

   1 /*
   2     Copyright © 1995-2007, The AROS Development Team. All rights reserved.
   3     $Id$
   4
   5     Desc: DOS function LoadSeg()
   6     Lang: english
   7 */
   8 #ifdef __x86_64__
   9 #define DEBUG 1
  10 #else
  11 #define DEBUG 0
  12 #endif
  13
  14 #include <dos/dos.h>
  15 #include <dos/dosextens.h>
  16 #include <proto/dos.h>
  17 #include <aros/debug.h>
  18 #include "dos_intern.h"
  19
  20 /*****************************************************************************
  21
  22     NAME */
  23 #include <proto/dos.h>
  24
  25         AROS_LH1(BPTR, LoadSeg,
  26
  27 /*  SYNOPSIS */
  28         AROS_LHA(CONST_STRPTR, name, D1),
  29
  30 /*  LOCATION */
  31         struct DosLibrary *, DOSBase, 25, Dos)
  32
  33 /*  FUNCTION
  34         Loads an executable file into memory. Each hunk of the loadfile
  35         is loaded into its own memory section and a handle on all of them
  36         is returned. The segments can be freed with UnLoadSeg().
  37
  38     INPUTS
  39         name - NUL terminated name of the file.
  40
  41     RESULT
  42         Handle to the loaded executable or NULL if the load failed.
  43         IoErr() gives additional information in that case.
  44
  45     NOTES
  46         This function is built on top of InternalLoadSeg()
  47
  48     EXAMPLE
  49
  50     BUGS
  51
  52     SEE ALSO
  53         UnLoadSeg()
  54
  55     INTERNALS
  56
  57 *****************************************************************************/
  58 {
  59     AROS_LIBFUNC_INIT
  60
  61     void (* FunctionArray[3])();
  62     BPTR file, segs=0;
  63
  64     FunctionArray[0] = __AROS_GETVECADDR(DOSBase,7);  /* Read() */
  65     FunctionArray[1] = __AROS_GETVECADDR(SysBase,33); /* AllocMem() */
  66     FunctionArray[2] = __AROS_GETVECADDR(SysBase,35); /* FreeMem() */
  67
  68     /* Open the file */
  69     D(bug("[LoadSeg] Opening '%s'...\n", name));
  70     file = Open (name, FMF_READ);
  71
  72     if (file)
  73     {
  74         D(bug("[LoadSeg] Loading '%s'...\n", name));
  75
  76         segs = InternalLoadSeg(file, NULL, (void *)FunctionArray, NULL);
  77
  78         if (segs)
  79             SetIoErr(0);
  80         else
  81             bug("[LoadSeg] Failed to load '%s'\n", name);
  82         Close(file);
  83     }
  84   D(else
  85         bug("[LoadSeg] Failed to open '%s'\n", name));
  86
  87
  88     /* And return */
  89     return segs;
  90
  91     AROS_LIBFUNC_EXIT
  92 } /* LoadSeg */