compiler/alib/setrexxvar.c

   1 /*
   2         Copyright © 1995-2002, The AROS Development Team. All rights reserved.
   3     $Id$
   4
   5     Desc:
   6     Lang: english
   7 */
   8 #include <proto/alib.h>
   9 #include <proto/exec.h>
  10 #include <proto/rexxsyslib.h>
  11 #include <rexx/storage.h>
  12 #include <rexx/errors.h>
  13
  14 #include <string.h>
  15
  16 /*****************************************************************************
  17
  18     NAME */
  19         LONG SetRexxVar(
  20
  21 /*  SYNOPSIS */
  22         struct RexxMsg *msg,
  23         char *varname,
  24         char * value,
  25         ULONG length)
  26
  27 /*  FUNCTION
  28         Set a the value of the name rexx variable.
  29
  30     INPUTS
  31         msg - A rexx message generated from a running rexx script
  32         varname - The name of the variable to set the value
  33         value - a pointer to the beginning of the value to set
  34         length - the length of the value argument
  35
  36     RESULT
  37         0 when succes, otherwise a rexx error value is returned.
  38
  39     NOTES
  40
  41     EXAMPLE
  42
  43     BUGS
  44
  45     SEE ALSO
  46         CheckRexxMsg, GetRexxVar
  47
  48     INTERNALS
  49         This function creates a rexx message that is sent to the AREXX
  50         port with a RXSETVAR command.
  51
  52
  53 *****************************************************************************/
  54 {
  55     AROS_GET_SYSBASE_OK
  56     struct Library *RexxSysBase = NULL;
  57     struct RexxMsg *msg2 = NULL, *msg3;
  58     struct MsgPort *port = NULL, *rexxport;
  59     LONG retval = ERR10_003;
  60
  61     RexxSysBase = OpenLibrary("rexxsyslib.library", 0);
  62     if (RexxSysBase==NULL) goto cleanup;
  63
  64     if (!IsRexxMsg(msg))
  65     {
  66         retval = ERR10_010;
  67         goto cleanup;
  68     }
  69
  70     rexxport = FindPort("REXX");
  71     if (rexxport==NULL)
  72     {
  73         retval = ERR10_013;
  74         goto cleanup;
  75     }
  76
  77     port = CreateMsgPort();
  78     if (port == NULL) goto cleanup;
  79     msg2 = CreateRexxMsg(port, NULL, NULL);
  80     if (msg2==NULL) goto cleanup;
  81     msg2->rm_Private1 = msg->rm_Private1;
  82     msg2->rm_Private2 = msg->rm_Private2;
  83     msg2->rm_Action = RXSETVAR | 2;
  84     msg2->rm_Args[0] = (IPTR)CreateArgstring(varname, strlen(varname));
  85     msg2->rm_Args[1] = (IPTR)CreateArgstring(value, length);
  86     if (msg2->rm_Args[0]==NULL || msg2->rm_Args[1]==NULL) goto cleanup;
  87
  88     PutMsg(rexxport, (struct Message *)msg2);
  89     msg3 = NULL;
  90     while (msg3!=msg2)
  91     {
  92         WaitPort(port);
  93         msg3 = (struct RexxMsg *)GetMsg(port);
  94         if (msg3!=msg2) ReplyMsg((struct Message *)msg3);
  95     }
  96
  97     if (msg3->rm_Result1==RC_OK) retval = 0;
  98     else retval = (LONG)msg3->rm_Result2;
  99
 100 cleanup:
 101     if (msg2!=NULL)
 102     {
 103         if (msg2->rm_Args[0]!=NULL) DeleteArgstring((UBYTE *)msg2->rm_Args[0]);
 104         if (msg2->rm_Args[1]!=NULL) DeleteArgstring((UBYTE *)msg2->rm_Args[1]);
 105         DeleteRexxMsg(msg2);
 106     }
 107     if (port!=NULL) DeletePort(port);
 108     if (RexxSysBase!=NULL) CloseLibrary(RexxSysBase);
 109
 110     return retval;
 111 } /* SetRexxVar */