workbench/libs/rexxsupport/forbid.c

   1 /*
   2     Copyright © 1995-2018, The AROS Development Team. All rights reserved.
   3     $Id$
   4
   5     Desc: Disable task switching
   6     Lang: English
   7 */
   8
   9 #include <proto/alib.h>
  10 #include <proto/exec.h>
  11 #include <proto/rexxsyslib.h>
  12 #include <exec/types.h>
  13 #include <exec/memory.h>
  14 #include <rexx/storage.h>
  15 #include <rexx/errors.h>
  16
  17 #include <ctype.h>
  18 #include <stdlib.h>
  19 #include <stdio.h>
  20
  21 #include "rexxsupport_intern.h"
  22 #include "rxfunctions.h"
  23
  24 /* If not in forbid state keep the Permit() count in a RexxVar from the script,
  25  * when in forbid state use local forbid_nest variable to count the Forbid() nesting
  26  * this is to avoid calling SetRexxVar when in forbid state
  27  */
  28 static BOOL inforbid = FALSE;
  29 static int forbid_nest = 0;
  30
  31 /* maximum size of a string that represents a signed decimal integer */
  32 #define REXXVAR_MAXSTR 11
  33
  34 LONG rxsupp_forbid(struct Library *RexxSupportBase, struct RexxMsg *msg, UBYTE **argstring)
  35 {
  36     char val[REXXVAR_MAXSTR + 1];
  37
  38     if (!inforbid)
  39     {
  40         char *s;
  41         int permit_nest;
  42
  43         if (GetRexxVar(msg, NEST_VAR, &s) == RC_OK)
  44             permit_nest = *(int *)s;
  45         else
  46             permit_nest = -1;
  47
  48         permit_nest++;
  49         sprintf(val, "%d", permit_nest);
  50
  51         if (permit_nest == 0)
  52         {
  53             Forbid();
  54             inforbid = TRUE;
  55             forbid_nest = 0;
  56         }
  57         else
  58             if (SetRexxVar(msg, NEST_VAR, (char *)&permit_nest, sizeof(int)) != RC_OK)
  59             {
  60                 *argstring = NULL;
  61                 return ERR10_012;
  62             }
  63     }
  64     else /* inforbid == TRUE */
  65     {
  66         forbid_nest++;
  67         sprintf(val, "%d", forbid_nest);
  68     }
  69
  70     *argstring = CreateArgstring(val, strlen(val));
  71     return RC_OK;
  72 }
  73
  74 LONG rxsupp_permit(struct Library *RexxSupportBase, struct RexxMsg *msg, UBYTE **argstring)
  75 {
  76     char val[REXXVAR_MAXSTR + 1];
  77
  78     if (!inforbid)
  79     {
  80         char *s;
  81         int permit_nest;
  82
  83         if (GetRexxVar(msg, NEST_VAR, &s) == RC_OK)
  84             permit_nest = *(int *)s;
  85         else
  86             permit_nest = -1;
  87
  88         permit_nest--;
  89         sprintf(val, "%d", permit_nest);
  90
  91         if (SetRexxVar(msg, NEST_VAR, (char *)&permit_nest, sizeof(int)) != RC_OK)
  92         {
  93             *argstring = NULL;
  94             return ERR10_012;
  95         }
  96     }
  97     else /* inforbid == TRUE */
  98     {
  99         forbid_nest--;
 100         sprintf(val, "%d", forbid_nest);
 101
 102         if (forbid_nest < 0)
 103         {
 104             Permit();
 105             inforbid = FALSE;
 106         }
 107     }
 108
 109     *argstring = CreateArgstring(val, strlen(val));
 110     return RC_OK;
 111 }
 112