rom/dos/dopkt.c

   1 /*
   2     Copyright © 1995-2009, 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 0
  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
  71     BOOL i_am_process = TRUE;
  72
  73     if (NULL == dp)
  74     {
  75         return FALSE;
  76     }
  77
  78     kprintf("Allocated packet %p\n", dp);
  79
  80     if (__is_process(me))
  81     {
  82         replyPort = &me->pr_MsgPort;
  83     }
  84     else
  85     {
  86         /* Make sure that tasks can use DoPkt(). */
  87         replyPort = CreateMsgPort();
  88
  89         if (NULL == replyPort)
  90         {
  91             return FALSE;
  92         }
  93
  94         i_am_process = FALSE;
  95     }
  96
  97     dp->dp_Type = action;
  98     dp->dp_Arg1 = arg1;
  99     dp->dp_Arg2 = arg2;
 100     dp->dp_Arg3 = arg3;
 101     dp->dp_Arg4 = arg4;
 102     dp->dp_Arg5 = arg5;
 103
 104     SendPkt(dp, port, replyPort);
 105
 106     internal_WaitPkt(replyPort, DOSBase);
 107
 108     SetIoErr(dp->dp_Res2);
 109     res = dp->dp_Res1;
 110
 111     if (FALSE == i_am_process)
 112     {
 113         DeleteMsgPort(replyPort);
 114     }
 115
 116     FreeDosObject(DOS_STDPKT, dp);
 117
 118     return res;
 119
 120     AROS_LIBFUNC_EXIT
 121 } /* DoPkt */
 122
 123