test/rexxsyslibtest.c

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