rom/dos/allocdosobject.c

   1 /*
   2     Copyright © 1995-2007, The AROS Development Team. All rights reserved.
   3     $Id$
   4
   5     Desc:
   6     Lang: English
   7 */
   8 #include <exec/memory.h>
   9 #include <proto/exec.h>
  10 #include <dos/exall.h>
  11 #include <utility/tagitem.h>
  12 #include <proto/utility.h>
  13 #include <dos/rdargs.h>
  14 #include <dos/dostags.h>
  15 #include "dos_intern.h"
  16
  17 /*****************************************************************************
  18
  19     NAME */
  20 #include <proto/dos.h>
  21
  22         AROS_LH2(APTR, AllocDosObject,
  23
  24 /*  SYNOPSIS */
  25         AROS_LHA(ULONG           , type, D1),
  26         AROS_LHA(struct TagItem *, tags, D2),
  27
  28 /*  LOCATION */
  29         struct DosLibrary *, DOSBase, 38, Dos)
  30
  31 /*  FUNCTION
  32         Creates a new dos object of a given type. This memory has to be
  33         freed with FreeDosObject().
  34
  35     INPUTS
  36         type - Object type.
  37         tags - Pointer to taglist array with additional information. See
  38                <dos/dostags.h> for a list of all supported tags.
  39
  40     RESULT
  41         Pointer to new object or NULL, to indicate an error.
  42
  43     NOTES
  44
  45     EXAMPLE
  46
  47     BUGS
  48
  49     SEE ALSO
  50
  51     INTERNALS
  52
  53 *****************************************************************************/
  54 {
  55     AROS_LIBFUNC_INIT
  56     APTR mem;
  57
  58     switch(type)
  59     {
  60     case DOS_FILEHANDLE:
  61         mem = AllocMem(sizeof(struct FileHandle), MEMF_CLEAR);
  62
  63         if (mem != NULL)
  64         {
  65             struct FileHandle *fh = (struct FileHandle *)mem;
  66
  67             /* We set fh->fh_Arg1 to point back to 'fh' to make packet
  68                emulation possible */
  69             fh->fh_CompatibilityHack = fh;
  70         }
  71         else
  72         {
  73             SetIoErr(ERROR_NO_FREE_STORE);
  74         }
  75
  76         return mem;
  77
  78     case DOS_FIB:
  79         mem = AllocMem(sizeof(struct FileInfoBlock), MEMF_CLEAR);
  80
  81         if(mem == NULL)
  82             SetIoErr(ERROR_NO_FREE_STORE);
  83
  84         return mem;
  85
  86     case DOS_STDPKT:
  87         {
  88             struct StandardPacket *sp = AllocMem(sizeof(struct StandardPacket), MEMF_CLEAR);
  89
  90             if (sp == NULL) {
  91                 SetIoErr(ERROR_NO_FREE_STORE);
  92                 return NULL;
  93             }
  94
  95             sp->sp_Pkt.dp_Link = &(sp->sp_Msg);
  96             sp->sp_Msg.mn_Node.ln_Name = (char *) &(sp->sp_Pkt);
  97
  98             return (APTR) &(sp->sp_Pkt);
  99         }
 100
 101     case DOS_EXALLCONTROL:
 102         mem = AllocMem(sizeof(struct InternalExAllControl), MEMF_CLEAR);
 103
 104         if(mem == NULL)
 105             SetIoErr(ERROR_NO_FREE_STORE);
 106
 107         return mem;
 108
 109     case DOS_CLI:
 110         {
 111             struct CommandLineInterface *cli = NULL;
 112             struct TagItem defaults[] =
 113             {
 114                 /* 0 */ { ADO_DirLen,       255 },
 115                 /* 1 */ { ADO_CommNameLen,  255 },
 116                 /* 2 */ { ADO_CommFileLen,  255 },
 117                 /* 3 */ { ADO_PromptLen,    255 },
 118                         { TAG_END, 0 }
 119             };
 120
 121             STRPTR  dir     = NULL;
 122             STRPTR  command = NULL;
 123             STRPTR  file    = NULL;
 124             STRPTR  prompt  = NULL;
 125
 126             /* C has no exceptions. This is a simple replacement. */
 127 #define ENOMEM_IF(a)  if(a) goto enomem      /* Throw out of memory. */
 128
 129             cli = AllocMem(sizeof(struct CommandLineInterface), MEMF_CLEAR);
 130             ENOMEM_IF(cli == NULL);
 131
 132             cli->cli_FailLevel  = RETURN_ERROR;
 133             cli->cli_Background = DOSTRUE;
 134             ApplyTagChanges(defaults, tags);
 135
 136             dir = AllocVec(defaults[0].ti_Data + 1, MEMF_PUBLIC | MEMF_CLEAR);
 137             ENOMEM_IF(dir == NULL);
 138
 139             AROS_BSTR_setstrlen(MKBADDR(dir), 0);
 140             cli->cli_SetName = MKBADDR(dir);
 141
 142             command = AllocVec(defaults[1].ti_Data + 1,
 143                                MEMF_PUBLIC | MEMF_CLEAR);
 144             ENOMEM_IF(command == NULL);
 145
 146             AROS_BSTR_setstrlen(MKBADDR(command), 0);
 147             cli->cli_CommandName = MKBADDR(command);
 148
 149             file = AllocVec(defaults[2].ti_Data + 1, MEMF_PUBLIC | MEMF_CLEAR);
 150             ENOMEM_IF(file == NULL);
 151
 152             AROS_BSTR_setstrlen(MKBADDR(file), 0);
 153             cli->cli_CommandFile = MKBADDR(file);
 154
 155             prompt = AllocVec(defaults[3].ti_Data + 1,
 156                               MEMF_PUBLIC | MEMF_CLEAR);
 157             ENOMEM_IF(prompt == NULL);
 158
 159             AROS_BSTR_setstrlen(MKBADDR(prompt), 0);
 160             cli->cli_Prompt = MKBADDR(prompt);
 161
 162             return cli;
 163
 164 enomem:
 165             if(cli != NULL)
 166                 FreeMem(cli, sizeof(struct CommandLineInterface));
 167
 168             FreeVec(dir);
 169             FreeVec(command);
 170             FreeVec(file);
 171             FreeVec(prompt);
 172
 173             SetIoErr(ERROR_NO_FREE_STORE);
 174
 175             return NULL;
 176         }
 177
 178     case DOS_RDARGS:
 179         return AllocVec(sizeof(struct RDArgs), MEMF_CLEAR);
 180     }
 181
 182     SetIoErr(ERROR_BAD_NUMBER);
 183
 184     return NULL;
 185
 186     AROS_LIBFUNC_EXIT
 187 } /* AllocDosObject */