- First working version of the TRICS collision protection module

Busy.c

@@ -0,0 +1,115 @@
+/*------------------------------------------------------------------------
+  A busy flag module for SICS. 
+
+  Mark Koennecke, July 2002
+-------------------------------------------------------------------------*/
+#include <stdlib.h>
+#include <assert.h>
+#include "fortify.h"
+#include "sics.h"
+
+/*----------------------------------------------------------------------*/
+typedef struct BUSY__ {
+  pObjectDescriptor pDes;
+  int iBusy;
+  }Busy;
+/*---------------------------------------------------------------------*/
+busyPtr makeBusy(void){
+  busyPtr result = NULL;
+
+  result = (busyPtr)malloc(sizeof(Busy));
+  if(!result){
+    return NULL;
+  }
+  result->pDes = CreateDescriptor("BusyFlag");
+  if(!result->pDes){
+    free(result);
+    return NULL;
+  }
+  result->iBusy = 0;
+  return result;
+}
+/*---------------------------------------------------------------------*/
+void killBusy(void *self){
+  busyPtr busy;
+  if(self != NULL){
+    busy = (busyPtr)self;
+    if(busy->pDes != NULL){
+      DeleteDescriptor(busy->pDes);
+    }
+    free(busy);
+  }
+}
+/*---------------------------------------------------------------------*/
+void incrementBusy(busyPtr self){
+  assert(self != NULL);
+  self->iBusy++;
+}
+/*--------------------------------------------------------------------*/
+void decrementBusy(busyPtr self){
+  assert(self != NULL);
+  self->iBusy--;
+  if(self->iBusy < 0){
+    self->iBusy = 0;
+  }
+}
+/*--------------------------------------------------------------------*/
+void clearBusy(busyPtr self){
+  assert(self != NULL);
+  self->iBusy = 0;
+}
+/*--------------------------------------------------------------------*/
+void setBusy(busyPtr self, int val){
+  assert(self != NULL);
+  self->iBusy = val;
+}
+/*--------------------------------------------------------------------*/
+int isBusy(busyPtr self){
+  assert(self != NULL);
+  return self->iBusy;
+}
+/*--------------------------------------------------------------------*/
+int BusyAction(SConnection *pCon,SicsInterp *pSics, void *pData,
+	       int argc, char *argv[]){
+  busyPtr self = NULL;
+  char pBuffer[80];
+
+  self = (busyPtr)pData;
+  assert(self != NULL);
+
+  if(argc > 1){
+    strtolower(argv[1]);
+    if(usUser < SCGetRights(pCon)){
+      SCWrite(pCon,"ERROR: no privilege to manipulate busy flag",eError);
+      return 0;
+    }
+    if(strcmp(argv[1],"incr") == 0){
+      incrementBusy(self);
+      SCSendOK(pCon);
+      return 1;
+    } else if(strcmp(argv[1],"decr") == 0){
+      decrementBusy(self);
+      SCSendOK(pCon);
+      return 1;
+    } else if(strcmp(argv[1],"clear") == 0){
+      clearBusy(self);
+      SCSendOK(pCon);
+      return 1;
+    }
+  }
+  
+  sprintf(pBuffer,"Busy = %d", isBusy(self));
+  SCWrite(pCon,pBuffer,eValue);
+  return 1;
+}
+/*---------------------------------------------------------------------*/
+busyPtr findBusy(SicsInterp *pInter){
+  CommandList *pCom = NULL;
+
+  pCom = FindCommand(pInter,"busy");
+  if(pCom != NULL){
+    return (busyPtr)pCom->pData;
+  }
+}
+
+