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 #define DEBUG 0
   9
  10 #include <aros/asmcall.h>
  11 #include <aros/config.h>
  12 #include <dos/dos.h>
  13 #include <dos/dosextens.h>
  14 #include <dos/stdio.h>
  15 #include <proto/dos.h>
  16 #include <aros/debug.h>
  17 #include "dos_intern.h"
  18
  19 static AROS_UFH4(LONG, ReadFunc,
  20         AROS_UFHA(BPTR, file,   D1),
  21         AROS_UFHA(APTR, buffer, D2),
  22         AROS_UFHA(LONG, length, D3),
  23         AROS_UFHA(struct DosLibrary *, DOSBase, A6)
  24 )
  25 {
  26     AROS_USERFUNC_INIT
  27
  28     return FRead(file, buffer, 1, length);
  29
  30     AROS_USERFUNC_EXIT
  31 }
  32
  33 static AROS_UFH4(LONG, SeekFunc,
  34         AROS_UFHA(BPTR, file,  D1),
  35         AROS_UFHA(LONG,   pos, D2),
  36         AROS_UFHA(LONG,  mode, D3),
  37         AROS_UFHA(struct DosLibrary *, DOSBase, A6)
  38 )
  39 {
  40     AROS_USERFUNC_INIT
  41
  42     return Seek(file, pos, mode);
  43
  44     AROS_USERFUNC_EXIT
  45 }
  46
  47
  48 static AROS_UFH3(APTR, AllocFunc,
  49         AROS_UFHA(ULONG, length, D0),
  50         AROS_UFHA(ULONG, flags,  D1),
  51         AROS_UFHA(struct ExecBase *, SysBase, A6)
  52 )
  53 {
  54     AROS_USERFUNC_INIT
  55
  56     return AllocMem(length, flags);
  57
  58     AROS_USERFUNC_EXIT
  59 }
  60
  61 static AROS_UFH3(void, FreeFunc,
  62         AROS_UFHA(APTR, buffer, A1),
  63         AROS_UFHA(ULONG, length, D0),
  64         AROS_UFHA(struct ExecBase *, SysBase, A6)
  65 )
  66 {
  67     AROS_USERFUNC_INIT
  68
  69     FreeMem(buffer, length);
  70
  71     AROS_USERFUNC_EXIT
  72 }
  73
  74 #ifdef __mc68000
  75 static AROS_ENTRY(LONG, SetPatch_noop,
  76         AROS_UFHA(char *, argstr, A0),
  77         AROS_UFHA(ULONG, argsize, D0),
  78         struct ExecBase *, SysBase)
  79 {
  80     AROS_USERFUNC_INIT
  81
  82     APTR DOSBase = TaggedOpenLibrary(TAGGEDOPEN_DOS);
  83
  84     if (DOSBase) {
  85         struct CommandLineInterface *cli = Cli();
  86         if (cli && cli->cli_Interactive) {
  87             Printf("SetPatch is a reserved program name.\n");
  88         }
  89         CloseLibrary(DOSBase);
  90     }
  91
  92     return RETURN_WARN;
  93
  94     AROS_USERFUNC_EXIT
  95 }
  96 #endif
  97
  98 /*****************************************************************************
  99
 100     NAME */
 101 #include <proto/dos.h>
 102
 103         AROS_LH1(BPTR, LoadSeg,
 104
 105 /*  SYNOPSIS */
 106         AROS_LHA(CONST_STRPTR, name, D1),
 107
 108 /*  LOCATION */
 109         struct DosLibrary *, DOSBase, 25, Dos)
 110
 111 /*  FUNCTION
 112         Loads an executable file into memory. Each hunk of the loadfile
 113         is loaded into its own memory section and a handle on all of them
 114         is returned. The segments can be freed with UnLoadSeg().
 115
 116     INPUTS
 117         name - NUL terminated name of the file.
 118
 119     RESULT
 120         Handle to the loaded executable or NULL if the load failed.
 121         IoErr() gives additional information in that case.
 122
 123     NOTES
 124         This function is built on top of InternalLoadSeg()
 125
 126     EXAMPLE
 127
 128     BUGS
 129
 130     SEE ALSO
 131         UnLoadSeg()
 132
 133     INTERNALS
 134
 135 *****************************************************************************/
 136 {
 137     AROS_LIBFUNC_INIT
 138
 139     BPTR file, segs=0;
 140     SIPTR err;
 141     LONG_FUNC FunctionArray[] = {
 142         (LONG_FUNC)ReadFunc,
 143         (LONG_FUNC)AllocFunc,
 144         (LONG_FUNC)FreeFunc,
 145         (LONG_FUNC)SeekFunc,    /* Only needed for ELF */
 146     };
 147
 148 #ifdef __mc68000
 149     /* On m68k, we map SetPatch to a no-op seglist,
 150      * due to the fact that OS 3.x and higher's SetPatch
 151      * blindly patches without checking OS versions.
 152      */
 153     if (Stricmp(FilePart(name),"SetPatch") == 0)
 154         return CreateSegList(SetPatch_noop);
 155 #endif
 156
 157     /* Open the file */
 158     D(bug("[LoadSeg] Opening '%s'...\n", name));
 159     file = Open (name, MODE_OLDFILE);
 160
 161     if (file)
 162     {
 163         D(bug("[LoadSeg] Loading '%s'...\n", name));
 164
 165         SetVBuf(file, NULL, BUF_FULL, 4096);
 166         segs = InternalLoadSeg(file, BNULL, FunctionArray, NULL);
 167         /* We cache the IoErr(), since Close() will alter it */
 168         err = IoErr();
 169
 170         D(if (segs == BNULL)
 171             bug("[LoadSeg] Failed to load '%s'\n", name));
 172 #if (AROS_FLAVOUR & AROS_FLAVOUR_BINCOMPAT)
 173         /* overlayed executables return -segs and handle must not be closed */
 174         if ((LONG)segs > 0)
 175             Close(file);
 176         else
 177             segs = (BPTR)-((LONG)segs);
 178 #else
 179         Close(file);
 180 #endif
 181         SetIoErr(err);
 182     }
 183   D(else
 184         bug("[LoadSeg] Failed to open '%s'\n", name));
 185
 186
 187     /* And return */
 188     return segs;
 189
 190     AROS_LIBFUNC_EXIT
 191 } /* LoadSeg */