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