rom/dos/allocdosobject.c

   1 /*
   2     Copyright © 1995-2011, 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             if(cli != NULL)
 140                 FreeVec(cli);
 141
 142             FreeVec(dir);
 143             FreeVec(command);
 144             FreeVec(file);
 145             FreeVec(prompt);
 146
 147             SetIoErr(ERROR_NO_FREE_STORE);
 148
 149             return NULL;
 150         }
 151
 152     case DOS_RDARGS:
 153         return AllocVec(sizeof(struct RDArgs), MEMF_CLEAR);
 154     }
 155
 156     SetIoErr(ERROR_BAD_NUMBER);
 157
 158     return NULL;
 159
 160     AROS_LIBFUNC_EXIT
 161 } /* AllocDosObject */
 162
 163 /* Internal routines for packet allocation. Does not require DOSBase. */
 164 struct DosPacket *allocdospacket(void)
 165 {
 166     struct StandardPacket *sp = AllocVec(sizeof(struct StandardPacket), MEMF_CLEAR);
 167
 168     if (sp == NULL)
 169         return NULL;
 170
 171     sp->sp_Pkt.dp_Link = &sp->sp_Msg;
 172     sp->sp_Msg.mn_Node.ln_Name = (char *)&sp->sp_Pkt;
 173
 174     return &sp->sp_Pkt;
 175 }