workbench/libs/rexxsupport/reply.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 <stdlib.h>
  19
  20 #include "rexxsupport_intern.h"
  21 #include "portnode.h"
  22
  23 LONG rxsupp_reply(struct Library *RexxSupportBase, struct RexxMsg *msg, UBYTE **argstring)
  24 {
  25     struct RexxMsg *msg2 = *(struct RexxMsg **)ARG1(msg);
  26
  27     if (msg2 == NULL)
  28     {
  29         *argstring = NULL;
  30         return ERR10_018;
  31     }
  32
  33     if ((msg->rm_Action & RXARGMASK) == 2 && IsRexxMsg(msg2))
  34     {
  35         char *end;
  36         int code = strtoul(ARG1(msg), &end, 10);
  37         if ((*end != 0) || code<0)
  38         {
  39             *argstring = NULL;
  40             return ERR10_018;
  41         }
  42         else
  43         {
  44             msg2->rm_Result1 = code;
  45             msg2->rm_Result2 = (IPTR)NULL;
  46         }
  47     }
  48
  49     Remove((struct Node *)msg2);
  50     ReplyMsg((struct Message *)msg2);
  51     *argstring = CreateArgstring("1", 1);
  52     return RC_OK;
  53 }