workbench/libs/rexxsyslib/clearrexxmsg.c

   1 /*
   2         Copyright © 1995-2002, The AROS Development Team. All rights reserved.
   3     $Id$
   4
   5     Desc:
   6     Lang: english
   7 */
   8 #include "rexxsyslib_intern.h"
   9
  10 /*****************************************************************************
  11
  12     NAME */
  13 #include <clib/rexxsyslib_protos.h>
  14
  15         AROS_LH2(VOID, ClearRexxMsg,
  16
  17 /*  SYNOPSIS */
  18         AROS_LHA(struct RexxMsg *, msgptr, A0),
  19         AROS_LHA(ULONG           , count , D0),
  20
  21 /*  LOCATION */
  22         struct Library *, RexxSysBase, 26, RexxSys)
  23
  24 /*  FUNCTION
  25         This function will clear a specified number of arguments by calling
  26         DeleteArgstring on them.
  27
  28     INPUTS
  29         msgptr - RexxMsg to clear the arguments from
  30         count  - The number of arguments in the message to clear
  31
  32     RESULT
  33         void
  34
  35     NOTES
  36
  37     EXAMPLE
  38
  39     BUGS
  40
  41     SEE ALSO
  42          FillRexxMsg(), DeleteArgstring()
  43
  44     INTERNALS
  45
  46
  47 *****************************************************************************/
  48 {
  49     AROS_LIBFUNC_INIT
  50
  51     ULONG i;
  52
  53     for (i = 0; i < count; i++)
  54     {
  55         if (msgptr->rm_Args[i] != 0)
  56         {
  57             DeleteArgstring(RXARG(msgptr,i));
  58             msgptr->rm_Args[i] = 0;
  59         }
  60     }
  61
  62     ReturnVoid("ClearRexxMsg");
  63     AROS_LIBFUNC_EXIT
  64 } /* ClearRexxMsg */