rom/dos/loadseg.c

   1 /*
   2     Copyright © 1995-2011, The AROS Development Team. All rights reserved.
   3     $Id$
   4
   5     Desc: DOS function LoadSeg()
   6     Lang: english
   7 */
   8
   9 #include <aros/asmcall.h>
  10 #include <aros/config.h>
  11 #include <dos/dos.h>
  12 #include <dos/stdio.h>
  13 #include <proto/dos.h>
  14 #include <aros/debug.h>
  15 #include "dos_intern.h"
  16
  17 static AROS_UFH4(LONG, ReadFunc,
  18         AROS_UFHA(BPTR, file,   D1),
  19         AROS_UFHA(APTR, buffer, D2),
  20         AROS_UFHA(LONG, length, D3),
  21         AROS_UFHA(struct DosLibrary *, DOSBase, A6)
  22 )
  23 {
  24     AROS_USERFUNC_INIT
  25
  26     return FRead(file, buffer, 1, length);
  27
  28     AROS_USERFUNC_EXIT
  29 }
  30
  31 static AROS_UFH4(LONG, SeekFunc,
  32         AROS_UFHA(BPTR, file,  D1),
  33         AROS_UFHA(LONG,   pos, D2),
  34         AROS_UFHA(LONG,  mode, D3),
  35         AROS_UFHA(struct DosLibrary *, DOSBase, A6)
  36 )
  37 {
  38     AROS_USERFUNC_INIT
  39
  40     return Seek(file, pos, mode);
  41
  42     AROS_USERFUNC_EXIT
  43 }
  44
  45
  46 static AROS_UFH3(APTR, AllocFunc,
  47         AROS_UFHA(ULONG, length, D0),
  48         AROS_UFHA(ULONG, flags,  D1),
  49         AROS_UFHA(struct ExecBase *, SysBase, A6)
  50 )
  51 {
  52     AROS_USERFUNC_INIT
  53
  54     return AllocMem(length, flags);
  55
  56     AROS_USERFUNC_EXIT
  57 }
  58
  59 static AROS_UFH3(void, FreeFunc,
  60         AROS_UFHA(APTR, buffer, A1),
  61         AROS_UFHA(ULONG, length, D0),
  62         AROS_UFHA(struct ExecBase *, SysBase, A6)
  63 )
  64 {
  65     AROS_USERFUNC_INIT
  66
  67     FreeMem(buffer, length);
  68
  69     AROS_USERFUNC_EXIT
  70 }
  71
  72 /*****************************************************************************
  73
  74     NAME */
  75 #include <proto/dos.h>
  76
  77         AROS_LH1(BPTR, LoadSeg,
  78
  79 /*  SYNOPSIS */
  80         AROS_LHA(CONST_STRPTR, name, D1),
  81
  82 /*  LOCATION */
  83         struct DosLibrary *, DOSBase, 25, Dos)
  84
  85 /*  FUNCTION
  86         Loads an executable file into memory. Each hunk of the loadfile
  87         is loaded into its own memory section and a handle on all of them
  88         is returned. The segments can be freed with UnLoadSeg().
  89
  90     INPUTS
  91         name - NUL terminated name of the file.
  92
  93     RESULT
  94         Handle to the loaded executable or NULL if the load failed.
  95         IoErr() gives additional information in that case.
  96
  97     NOTES
  98         This function is built on top of InternalLoadSeg()
  99
 100     EXAMPLE
 101
 102     BUGS
 103
 104     SEE ALSO
 105         UnLoadSeg()
 106
 107     INTERNALS
 108
 109 *****************************************************************************/
 110 {
 111     AROS_LIBFUNC_INIT
 112
 113     BPTR file, segs=0;
 114     SIPTR err;
 115     LONG_FUNC FunctionArray[] = {
 116         (LONG_FUNC)ReadFunc,
 117         (LONG_FUNC)AllocFunc,
 118         (LONG_FUNC)FreeFunc,
 119         (LONG_FUNC)SeekFunc,    /* Only needed for ELF */
 120     };
 121
 122     /* Open the file */
 123     D(bug("[LoadSeg] Opening '%s'...\n", name));
 124     file = Open (name, MODE_OLDFILE);
 125
 126     if (file)
 127     {
 128         D(bug("[LoadSeg] Loading '%s'...\n", name));
 129
 130         SetVBuf(file, NULL, BUF_FULL, 4096);
 131         segs = InternalLoadSeg(file, BNULL, FunctionArray, NULL);
 132         /* We cache the IoErr(), since Close() will alter it */
 133         err = IoErr();
 134
 135         D(if (segs == BNULL)
 136             bug("[LoadSeg] Failed to load '%s'\n", name));
 137 #if (AROS_FLAVOUR & AROS_FLAVOUR_BINCOMPAT)
 138         /* overlayed executables return -segs and handle must not be closed */
 139         if ((LONG)segs > 0)
 140             Close(file);
 141         else
 142             segs = (BPTR)-((LONG)segs);
 143 #else
 144         Close(file);
 145 #endif
 146         SetIoErr(err);
 147     }
 148
 149     D(bug("[LoadSeg] Returns '%p', IoErr=%d\n", segs, IoErr()));
 150
 151
 152     /* And return */
 153     return segs;
 154
 155     AROS_LIBFUNC_EXIT
 156 } /* LoadSeg */