rom/dos/allocdosobject.c

   1 /*
   2     Copyright © 1995-2013 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(const 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 = AllocVec(sizeof(struct FileHandle), MEMF_CLEAR);
  62
  63         if (mem != NULL)
  64         {
  65             struct FileHandle *fh = (struct FileHandle *)mem;
  66
  67             fh->fh_Pos = -1;
  68             fh->fh_End = -1;
  69
  70             fh->fh_Func2 = DOS_FH_MAGIC;
  71         }
  72         return mem;
  73
  74     case DOS_FIB:
  75         return AllocVec(sizeof(struct FileInfoBlock), MEMF_CLEAR);
  76
  77     case DOS_STDPKT:
  78         return allocdospacket();
  79
  80     case DOS_EXALLCONTROL:
  81         return AllocVec(sizeof(struct InternalExAllControl), MEMF_CLEAR);
  82
  83     case DOS_CLI:
  84         {
  85             struct CommandLineInterface *cli = NULL;
  86             struct TagItem defaults[] =
  87             {
  88                 /* 0 */ { ADO_DirLen,       255 },
  89                 /* 1 */ { ADO_CommNameLen,  255 },
  90                 /* 2 */ { ADO_CommFileLen,  255 },
  91                 /* 3 */ { ADO_PromptLen,    255 },
  92                         { TAG_END, 0 }
  93             };
  94
  95             STRPTR  dir     = NULL;
  96             STRPTR  command = NULL;
  97             STRPTR  file    = NULL;
  98             STRPTR  prompt  = NULL;
  99
 100             /* C has no exceptions. This is a simple replacement. */
 101 #define ENOMEM_IF(a)  if(a) goto enomem      /* Throw out of memory. */
 102
 103             cli = AllocVec(sizeof(struct CommandLineInterface), MEMF_CLEAR);
 104             ENOMEM_IF(cli == NULL);
 105
 106             cli->cli_FailLevel  = RETURN_ERROR;
 107             cli->cli_Background = DOSTRUE;
 108             ApplyTagChanges(defaults, (struct TagItem *)tags);
 109
 110             dir = AllocVec(defaults[0].ti_Data + 1, MEMF_PUBLIC | MEMF_CLEAR);
 111             ENOMEM_IF(dir == NULL);
 112
 113             AROS_BSTR_setstrlen(MKBADDR(dir), 0);
 114             cli->cli_SetName = MKBADDR(dir);
 115
 116             command = AllocVec(defaults[1].ti_Data + 1,
 117                                MEMF_PUBLIC | MEMF_CLEAR);
 118             ENOMEM_IF(command == NULL);
 119
 120             AROS_BSTR_setstrlen(MKBADDR(command), 0);
 121             cli->cli_CommandName = MKBADDR(command);
 122
 123             file = AllocVec(defaults[2].ti_Data + 1, MEMF_PUBLIC | MEMF_CLEAR);
 124             ENOMEM_IF(file == NULL);
 125
 126             AROS_BSTR_setstrlen(MKBADDR(file), 0);
 127             cli->cli_CommandFile = MKBADDR(file);
 128
 129             prompt = AllocVec(defaults[3].ti_Data + 1,
 130                               MEMF_PUBLIC | MEMF_CLEAR);
 131             ENOMEM_IF(prompt == NULL);
 132
 133             AROS_BSTR_setstrlen(MKBADDR(prompt), 0);
 134             cli->cli_Prompt = MKBADDR(prompt);
 135
 136             return cli;
 137
 138 enomem:
 139             FreeVec(cli);
 140
 141             FreeVec(dir);
 142             FreeVec(command);
 143             FreeVec(file);
 144             FreeVec(prompt);
 145
 146             SetIoErr(ERROR_NO_FREE_STORE);
 147
 148             return NULL;
 149         }
 150
 151     case DOS_RDARGS:
 152         return AllocVec(sizeof(struct RDArgs), MEMF_CLEAR);
 153     }
 154
 155     SetIoErr(ERROR_BAD_NUMBER);
 156
 157     return NULL;
 158
 159     AROS_LIBFUNC_EXIT
 160 } /* AllocDosObject */
 161
 162 /* Internal routines for packet allocation. Does not require DOSBase. */
 163 struct DosPacket *allocdospacket(void)
 164 {
 165     struct StandardPacket *sp = AllocVec(sizeof(struct StandardPacket), MEMF_CLEAR);
 166
 167     if (sp == NULL)
 168         return NULL;
 169
 170     sp->sp_Pkt.dp_Link = &sp->sp_Msg;
 171     sp->sp_Msg.mn_Node.ln_Name = (char *)&sp->sp_Pkt;
 172
 173     return &sp->sp_Pkt;
 174 }