workbench/libs/rexxsupport/getpkt.c

   1 /*
   2     Copyright © 1995-2002, The AROS Development Team. All rights reserved.
   3     $Id$
   4
   5     Desc: Rexx function to wait for a packet on a port
   6     Lang: English
   7 */
   8
   9 #include <proto/exec.h>
  10 #include <proto/rexxsyslib.h>
  11 #include <proto/alib.h>
  12
  13 #include <exec/types.h>
  14 #include <exec/memory.h>
  15 #include <rexx/storage.h>
  16 #include <rexx/errors.h>
  17
  18 #include <string.h>
  19
  20 #include "rexxsupport_intern.h"
  21 #include "portnode.h"
  22
  23 LONG rxsupp_getpkt(struct Library *RexxSupportBase, struct RexxMsg *msg, UBYTE **argstring)
  24 {
  25     struct PortNodeData *data;
  26     struct Message *msg2;
  27
  28     data = (struct PortNodeData *)FindName(&RSBI(RexxSupportBase)->openports, ARG1(msg));
  29     if (data != NULL)
  30     {
  31         msg2 = GetMsg(data->port);
  32         AddTail(&data->msgs, (struct Node *)msg2);
  33         *argstring = CreateArgstring((UBYTE *)&msg2, sizeof(struct Message *));
  34         return RC_OK;
  35     }
  36     else
  37     {
  38         *argstring = NULL;
  39         return ERR10_018;
  40     }
  41 }