test/rexx/vartest.c

   1 #include <proto/exec.h>
   2 #include <proto/alib.h>
   3 #include <proto/rexxsyslib.h>
   4
   5 #include <exec/ports.h>
   6 #include <rexx/errors.h>
   7 #include <rexx/storage.h>
   8 #include <stdio.h>
   9 #include <string.h>
  10
  11 int main(void)
  12 {
  13     struct MsgPort *port;
  14     struct RexxMsg *msg;
  15     struct Library *RexxSysBase;
  16     char *value;
  17
  18     RexxSysBase = OpenLibrary("rexxsyslib.library", 0);
  19     if (RexxSysBase == NULL)
  20     {
  21         puts("Error opening rexxsyslib.library");
  22         return 20;
  23     }
  24
  25     port = CreatePort("VARTEST", 1);
  26     if (port == NULL)
  27     {
  28         puts("Error creating port");
  29         CloseLibrary(RexxSysBase);
  30         return 20;
  31     }
  32
  33     printf("Port created %x, waiting for message\n", port);
  34     WaitPort(port);
  35     msg = (struct RexxMsg *)GetMsg(port);
  36     puts("Got a message");
  37     if (!IsRexxMsg(msg))
  38     {
  39         puts("Message is not a rexxmsg");
  40         ReplyMsg((struct Message *)msg);
  41         DeletePort(port);
  42         CloseLibrary(RexxSysBase);
  43         return 20;
  44     }
  45
  46     puts("Is a rexx message");
  47     if (!CheckRexxMsg(msg))
  48     {
  49         puts("Message is not from rexx interpreter");
  50         msg->rm_Result1 = RC_ERROR;
  51         ReplyMsg((struct Message *)msg);
  52         DeletePort(port);
  53         CloseLibrary(RexxSysBase);
  54         return 20;
  55     }
  56
  57     puts("Message is from the rexx interpreter");
  58     if (!GetRexxVar(msg, "A", &value))
  59     {
  60         puts("Error during retreival of value");
  61         return 20;
  62     }
  63     printf("Length string: %d\n", strlen(value));
  64     printf("Value of A: %s\n", value);
  65
  66     SetRexxVar(msg, "A", "2", 1);
  67     msg->rm_Result1 = RC_OK;
  68     msg->rm_Result2 = NULL;
  69     ReplyMsg((struct Message *)msg);
  70     DeletePort(port);
  71     CloseLibrary(RexxSysBase);
  72
  73     return 0;
  74 }