workbench/libs/rexxsyslib/lengthargstring.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_LH1(ULONG, LengthArgstring,
  16
  17 /*  SYNOPSIS */
  18         AROS_LHA(UBYTE *, argstring, A0),
  19
  20 /*  LOCATION */
  21         struct Library *, RexxSysBase, 23, RexxSys)
  22
  23 /*  FUNCTION
  24         This will return the length of a string created with CreateArgstring
  25
  26     INPUTS
  27         argstring - Pointer to the string part of a RexxArg structure returned
  28                     from CreateArgstring
  29
  30     RESULT
  31         length of the argstring
  32
  33     NOTES
  34
  35     EXAMPLE
  36
  37     BUGS
  38
  39     SEE ALSO
  40         CreateArgstring()
  41
  42     INTERNALS
  43
  44
  45 *****************************************************************************/
  46 {
  47     AROS_LIBFUNC_INIT
  48
  49     static struct RexxArg dummy;
  50     struct RexxArg *ra;
  51
  52     ra = (struct RexxArg *)(argstring - ((void *)dummy.ra_Buff - (void *)&dummy));
  53
  54     ReturnInt("LengthArgstring", ULONG, ra->ra_Length);
  55     AROS_LIBFUNC_EXIT
  56 } /* LengthArgstring */