test/rexx/rexxsyslibtest.c

   1 /*
   2     Copyright © 1995-2014, The AROS Development Team. All rights reserved.
   3     $Id$
   4 */
   5
   6 #include <proto/exec.h>
   7 #include <proto/rexxsyslib.h>
   8 #include <rexx/storage.h>
   9
  10 #include <stdio.h>
  11 #include <stdlib.h>
  12
  13 struct RxsLib *RexxSysBase;
  14
  15 int main(void)
  16 {
  17   UBYTE *s;
  18
  19   RexxSysBase = (struct RxsLib *)OpenLibrary("rexxsyslib.library", 0);
  20   if (RexxSysBase == NULL)
  21   {
  22     puts("Error opening rexxsyslib.library");
  23     exit(20);
  24   }
  25   else
  26   {
  27     puts("Opening rexxsyslib.library succeeded");
  28   }
  29
  30   puts("Creating Argstring");
  31   s = CreateArgstring("1234", 4);
  32   if (s == NULL)
  33   {
  34     puts("Error creating Argstring");
  35     exit(20);
  36   }
  37   puts("Getting length");
  38   printf("Length: %ld\n",(long)LengthArgstring(s));
  39   puts("Deleting Argstring");
  40   DeleteArgstring(s);
  41
  42   CloseLibrary((struct Library *)RexxSysBase);
  43   exit(0);
  44 }
  45