rom/dos/dopkt.c

   1 /*
   2     Copyright © 1995-2007, 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
  60     /*
  61      * First I create a regular dos packet and then let
  62      * SendPkt rewrite it.
  63      */
  64
  65     LONG res;
  66     struct Process   *me = (struct Process *)FindTask(NULL);
  67     struct DosPacket *dp = (struct DosPacket *)AllocDosObject(DOS_STDPKT,
  68                                                               NULL);
  69     struct MsgPort   *replyPort;
  70     struct IOFileSys *iofs = NULL;
  71
  72     BOOL i_am_process = TRUE;
  73
  74     if (NULL == dp)
  75     {
  76         return FALSE;
  77     }
  78
  79     kprintf("Allocated packet %p\n", dp);
  80
  81     if (__is_process(me))
  82     {
  83         replyPort = &me->pr_MsgPort;
  84     }
  85     else
  86     {
  87         /* Make sure that tasks can use DoPkt(). */
  88         replyPort = CreateMsgPort();
  89
  90         if (NULL == replyPort)
  91         {
  92             return FALSE;
  93         }
  94
  95         i_am_process = FALSE;
  96     }
  97
  98     dp->dp_Type = action;
  99     dp->dp_Arg1 = arg1;
 100     dp->dp_Arg2 = arg2;
 101     dp->dp_Arg3 = arg3;
 102     dp->dp_Arg4 = arg4;
 103     dp->dp_Arg5 = arg5;
 104
 105     SendPkt(dp, port, replyPort);
 106
 107     internal_WaitPkt(replyPort, DOSBase);
 108
 109     SetIoErr(iofs->io_DosError);
 110
 111     res = dp->dp_Res1;
 112
 113     if (FALSE == i_am_process)
 114     {
 115         DeleteMsgPort(replyPort);
 116     }
 117
 118     FreeDosObject(DOS_STDPKT, dp);
 119
 120     return res;
 121
 122     AROS_LIBFUNC_EXIT
 123 } /* DoPkt */
 124
 125