workbench/libs/rexxsupport/getarg.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_getarg(struct Library *RexxSupportBase, struct RexxMsg *msg, UBYTE **argstring)
  24 {
  25     struct RexxMsg *msg2 = *(struct RexxMsg **)ARG1(msg);
  26     UBYTE arg;
  27
  28     if (msg2 == NULL || !IsRexxMsg(msg2))
  29     {
  30         *argstring = NULL;
  31         return ERR10_018;
  32     }
  33
  34     if ((msg->rm_Action & RXARGMASK) == 1)
  35         arg = 0;
  36     else
  37     {
  38         char *end;
  39         int size = strtoul(ARG1(msg), &end, 10);
  40         if ((*end != 0) || size<0 || size>15)
  41         {
  42             *argstring = NULL;
  43             return ERR10_018;
  44         }
  45         else
  46             arg = size;
  47     }
  48
  49     *argstring = CreateArgstring(RXARG(msg2, arg), LengthArgstring(RXARG(msg2, arg)));
  50     return RC_OK;
  51 }