rom/dos/dopkt.c

   1 /*
   2     Copyright © 1995-2001, The AROS Development Team. All rights reserved.
   3     $Id$
   4
   5     Desc:
   6     Lang: English
   7 */
   8 #ifdef DEBUG
   9 #undef DEBUG
  10 #endif
  11 #define  DEBUG 1
  12 #include <aros/debug.h>
  13 #include "dos_intern.h"
  14
  15 /*****************************************************************************
  16
  17     NAME */
  18 #include <proto/dos.h>
  19
  20         AROS_LH7(LONG, DoPkt,
  21
  22 /*  SYNOPSIS */
  23         AROS_LHA(struct MsgPort *, port, D1),
  24         AROS_LHA(LONG            , action, D2),
  25         AROS_LHA(LONG            , arg1, D3),
  26         AROS_LHA(LONG            , arg2, D4),
  27         AROS_LHA(LONG            , arg3, D5),
  28         AROS_LHA(LONG            , arg4, D6),
  29         AROS_LHA(LONG            , arg5, D7),
  30
  31 /*  LOCATION */
  32         struct DosLibrary *, DOSBase, 40, Dos)
  33
  34 /*  FUNCTION
  35
  36     Send a dos packet to a filesystem and wait for the action to complete.
  37
  38     INPUTS
  39
  40     RESULT
  41
  42     NOTES
  43
  44     Callable from a task.
  45
  46     This function should NOT be used; it's only here for AmigaOS compatibility.
  47
  48     EXAMPLE
  49
  50     BUGS
  51
  52     SEE ALSO
  53
  54     INTERNALS
  55
  56 *****************************************************************************/
  57 {
  58     AROS_LIBFUNC_INIT
  59     AROS_LIBBASE_EXT_DECL(struct DosLibrary *,DOSBase)
  60
  61     /*
  62      * First I create a regular dos packet and then let
  63      * SendPkt rewrite it.
  64      */
  65
  66     LONG res;
  67     struct Process   *me = (struct Process *)FindTask(NULL);
  68     struct DosPacket *dp = (struct DosPacket *)AllocDosObject(DOS_STDPKT,
  69                                                               NULL);
  70     struct MsgPort   *replyPort;
  71     struct IOFileSys *iofs = NULL;
  72
  73     BOOL i_am_process = TRUE;
  74
  75     if (NULL == dp)
  76     {
  77         return FALSE;
  78     }
  79
  80     kprintf("Allocated packet %p\n", dp);
  81
  82     if (__is_process(me))
  83     {
  84         replyPort = &me->pr_MsgPort;
  85     }
  86     else
  87     {
  88         /* Make sure that tasks can use DoPkt(). */
  89         replyPort = CreateMsgPort();
  90
  91         if (NULL == replyPort)
  92         {
  93             return FALSE;
  94         }
  95
  96         i_am_process = FALSE;
  97     }
  98
  99     dp->dp_Type = action;
 100     dp->dp_Arg1 = arg1;
 101     dp->dp_Arg2 = arg2;
 102     dp->dp_Arg3 = arg3;
 103     dp->dp_Arg4 = arg4;
 104     dp->dp_Arg5 = arg5;
 105
 106     SendPkt(dp, port, replyPort);
 107
 108     internal_WaitPkt(replyPort, DOSBase);
 109
 110     SetIoErr(iofs->io_DosError);
 111
 112     res = dp->dp_Res1;
 113
 114     if (FALSE == i_am_process)
 115     {
 116         DeleteMsgPort(replyPort);
 117     }
 118
 119     FreeDosObject(DOS_STDPKT, dp);
 120
 121     return res;
 122
 123     AROS_LIBFUNC_EXIT
 124 } /* DoPkt */
 125
 126