PSI sics-cvs-psi-2008-10-02

polldriv.c

@@ -0,0 +1,153 @@
+/**
+ * This is the sister module to sicspoll which defines the drivers for the 
+ * various modes of polling SICS objects. 
+ * 
+ * copyright: see file COPYRIGHT
+ * 
+ * Mark Koennecke, November-December 2006
+ */
+
+#include <stdlib.h>
+#include <assert.h>
+#include <sics.h>
+#include <splitter.h>
+
+#include "polldriv.h"
+#include "macro.h"
+#include "sicshipadaba.h"
+/*================ actual driver implementation =========================*/
+static int timeDue(struct __POLLDRIV *self, time_t now, SConnection *pCon){
+    if(now > self->nextPoll){
+        return 1;
+    } else {
+        return 0;
+    }
+}
+/*------------------ HDB Driver -----------------------------------------*/
+static int pollHdb(struct __POLLDRIV *self, SConnection *pCon){
+    hdbValue old, newVal;
+    pHdb node = NULL;
+    
+    memset(&old,0,sizeof(hdbValue));
+    memset(&newVal,0,sizeof(hdbValue));
+    node = (pHdb)self->objPointer;
+    assert(node != NULL);
+    old = node->value;
+    self->nextPoll = time(NULL) + self->pollIntervall;
+    if(GetHipadabaPar(node, &newVal, pCon) == 1){
+        if(!compareHdbValue(old,newVal)){
+            UpdateHipadabaPar(node,newVal,pCon);
+        }
+        ReleaseHdbValue(&newVal);
+        return 1;
+    } else {
+        return 0;
+    }
+}
+/*-----------------------------------------------------------------------*/
+static pPollDriv makeHdbDriver(SConnection *pCon, char *objectIdentifier,
+    int argc, char *argv[]){
+    pHdb node = NULL;
+    pPollDriv pNew = NULL;
+    
+    node = FindHdbNode(NULL,objectIdentifier,pCon);
+    if(node == NULL){
+        SCWrite(pCon,"ERROR: object to poll not found",eError);
+        return 0;
+    }
+    pNew = malloc(sizeof(PollDriv));
+     if(pNew == NULL){
+         return NULL;
+     }
+     memset(pNew,0,sizeof(PollDriv));
+
+    
+    pNew->objectIdentifier = strdup(objectIdentifier);
+    pNew->objPointer = node;
+    pNew->isDue = timeDue;
+    pNew->poll = pollHdb;
+
+    if(argc > 0){
+        pNew->pollIntervall = atoi(argv[0]);
+    } else {
+        pNew->pollIntervall = 10;
+    }
+    
+    return pNew;        
+}  
+/*==================== script poll driver ========================*/
+static int pollScript(struct __POLLDRIV *self, SConnection *pCon){
+	int status;
+	Tcl_Interp *pTcl = InterpGetTcl(pServ->pSics);
+
+	self->nextPoll = time(NULL) + self->pollIntervall;
+
+	MacroPush(pCon);
+	status = Tcl_Eval(pTcl,(char *)self->objPointer);
+	MacroPop();
+	if(status == 0){
+		return 1;
+	} else {
+		return 0;
+	}
+}
+/*-----------------------------------------------------------------------*/
+static void killScriptObj(void *data){
+	if(data != NULL){
+		free(data);
+	}
+}
+/*-----------------------------------------------------------------------*/
+static pPollDriv makeScriptDriver(SConnection *pCon, char *objectIdentifier,
+    int argc, char *argv[]){
+    pPollDriv pNew = NULL;
+    char scriptBuffer[512];
+    
+     if(argc < 2){
+    	SCWrite(pCon,
+    	  "ERROR: need intervall and script parameter for script polling driver", eError);
+    	return NULL;
+     }
+    
+     pNew = malloc(sizeof(PollDriv));
+     if(pNew == NULL){
+         return NULL;
+     }
+     memset(pNew,0,sizeof(PollDriv));
+
+    pNew->pollIntervall = atoi(argv[0]);
+    memset(scriptBuffer,0,512);
+    Arg2Text(argc-1, &argv[1],scriptBuffer,511); 
+    
+    pNew->objectIdentifier = strdup(objectIdentifier);
+    pNew->objPointer = strdup(scriptBuffer);
+    pNew->isDue = timeDue;
+    pNew->poll = pollScript;
+    pNew->killObjPointer = killScriptObj;
+
+    return pNew;        
+}    
+/*================ external interface ====================================*/
+pPollDriv makePollDriver(SConnection *pCon, char *driver,
+    char *objectIdentifier, int argc, char *argv[]){
+    
+    strtolower(driver);
+    if(strcmp(driver,"hdb") == 0) {
+        return makeHdbDriver(pCon,objectIdentifier, argc, argv);
+    } else if(strcmp(driver,"script") == 0){
+        return makeScriptDriver(pCon,objectIdentifier, argc, argv);
+    } else {
+        SCWrite(pCon,"ERROR: polling driver type unknown",eError);
+        return NULL;
+    }      
+}
+/*------------------------------------------------------------------------*/
+void deletePollDriv(pPollDriv self){
+    if(self->objectIdentifier != NULL){
+        free(self->objectIdentifier);
+    }
+    if(self->objPointer != NULL && self->killObjPointer != NULL){
+    	self->killObjPointer(self->objPointer);
+    }
+    free(self);
+}