rom/exec/replymsg.c

   1 /*
   2     Copyright © 1995-2001, The AROS Development Team. All rights reserved.
   3     $Id$
   4
   5     Desc: Reply a message
   6     Lang: english
   7 */
   8 #include "exec_intern.h"
   9 #include <aros/libcall.h>
  10 #include <exec/ports.h>
  11 #include <proto/exec.h>
  12
  13 /*****************************************************************************
  14
  15     NAME */
  16
  17         AROS_LH1(void, ReplyMsg,
  18
  19 /*  SYNOPSIS */
  20         AROS_LHA(struct Message *, message, A1),
  21
  22 /*  LOCATION */
  23         struct ExecBase *, SysBase, 63, Exec)
  24
  25 /*  FUNCTION
  26         Send a message back to where it came from. It's generally not
  27         wise to access the fields of a message after it has been replied.
  28
  29     INPUTS
  30         message - a message got with GetMsg().
  31
  32     RESULT
  33
  34     NOTES
  35
  36     EXAMPLE
  37
  38     BUGS
  39
  40     SEE ALSO
  41         WaitPort(), GetMsg(), PutMsg()
  42
  43     INTERNALS
  44
  45 ******************************************************************************/
  46 {
  47     AROS_LIBFUNC_INIT
  48
  49     struct MsgPort *port;
  50
  51     /* Protect the message against access by other tasks. */
  52     Disable();
  53
  54     /* Get replyport */
  55     port=message->mn_ReplyPort;
  56
  57     /* Not set? Only mark the message as no longer sent. */
  58     if(port==NULL)
  59         message->mn_Node.ln_Type=NT_FREEMSG;
  60     else
  61     {
  62         /* Mark the message as replied */
  63         message->mn_Node.ln_Type=NT_REPLYMSG;
  64
  65         /* Add it to the replyport's list */
  66         AddTail(&port->mp_MsgList,&message->mn_Node);
  67
  68         if(port->mp_SigTask)
  69         {
  70             /* And trigger the arrival action. */
  71             switch(port->mp_Flags&PF_ACTION)
  72             {
  73                 case PA_SIGNAL:
  74                     /* Send a signal */
  75                     Signal((struct Task *)port->mp_SigTask,1<<port->mp_SigBit);
  76                     break;
  77
  78                 case PA_SOFTINT:
  79                     /* Raise a software interrupt */
  80                     Cause((struct Interrupt *)port->mp_SoftInt);
  81                     break;
  82
  83                 case PA_IGNORE:
  84                     /* Do nothing */
  85                     break;
  86             }
  87         }
  88     }
  89
  90     /* All done */
  91     Enable();
  92     AROS_LIBFUNC_EXIT
  93 } /* ReplyMsg() */
  94