- Introduced a new trace facility

- Fixed performance problems in many protocol drivers.


SKIPPED:
	psi/julprot.c
	psi/phytron.c
	psi/pmacprot.c
	psi/polterwrite.c
	psi/spss7.c

sicsutil.c

@@ -11,6 +11,10 @@
 #include <sys/time.h>
 #include "fortify.h"
 #include "sics.h"
+#include "HistMem.h"
+#include "sicsdata.h"
+#include "SCinter.h"
+#include "sicshipadaba.h"
 
 static char *aCode[] = {
   "internal",
@@ -49,5 +53,87 @@ double DoubleTime(void)
   gettimeofday(&now, NULL);
   return now.tv_sec + now.tv_usec / 1e6;
 }
+/*--------------------------------------------------------------------------*/
+unsigned short fletcher16( char *data, size_t len)
+{
+        unsigned short sum1 = 0xff, sum2 = 0xff, result;
+        unsigned char checkA, checkB;
 
+        if(data == NULL){
+        	return 0;
+        }
+        while (len) {
+                size_t tlen = len > 21 ? 21 : len;
+                len -= tlen;
+                do {
+                        sum1 += *data++;
+                        sum2 += sum1;
+                } while (--tlen);
+                sum1 = (sum1 & 0xff) + (sum1 >> 8);
+                sum2 = (sum2 & 0xff) + (sum2 >> 8);
+        }
+        /* Second reduction step to reduce sums to 8 bits */
+        sum1 = (sum1 & 0xff) + (sum1 >> 8);
+        sum2 = (sum2 & 0xff) + (sum2 >> 8);
+        checkA = (unsigned char)sum1;
+        checkB = (unsigned char)sum2;
+        result = checkA;
+        result = result << 8 | checkB;
+        return result ;
+}
+/*--------------------------------------------------------------------------*/
+int CheckSum(SConnection * pCon, SicsInterp * pSics, void *pData,
+                     int argc, char *argv[])
+{
+	pHdb node = NULL;
+	unsigned short checksum;
+	pObjectDescriptor pDes = NULL;
+	pHistMem pHM;
+	int length;
+	char *data = NULL;
+	pSICSData sidata = NULL;
+
+	if(argc < 2){
+		SCWrite(pCon,"ERROR: need object to checksum", eError);
+		return 0;
+	}
+
+	node = FindHdbNode(NULL,argv[1],NULL);
+	if(node != NULL){
+		checksum = getHdbCheckSum(&node->value);
+		SCPrintf(pCon,eValue,"%d", checksum);
+		return 1;
+	}
+
+	pDes  = FindCommandDescriptor(pSics, argv[1]);
+	if(pDes == NULL){
+		SCPrintf(pCon,eError,"ERROR: object %s not found", argv[0]);
+		return 0;
+	}
+
+	if(strcmp(pDes->name, "HistMem") == 0){
+		pHM = (pHistMem)FindCommandData(pSics,argv[1],"HistMem");
+		if(argc < 3){
+			length = GetHistLength(pHM);
+			data = (char *)GetHistogramPointer(pHM,pCon);
+			checksum = fletcher16(data,length*sizeof(HistInt));
+			SCPrintf(pCon,eValue,"%d", checksum);
+			return 1;
+		} else {
+			data = (char *)GetHistTimeBin(pHM,&length);
+			checksum = fletcher16(data,length*sizeof(float));
+			SCPrintf(pCon,eValue,"%d", checksum);
+			return 1;
+		}
+	}
+
+	if(strcmp(pDes->name, "SICSData") == 0){
+		sidata = (pSICSData)FindCommandData(pSics,argv[1],"SICSData");
+		checksum = fletcher16((char *)sidata->data, sidata->dataUsed*sizeof(int));
+		SCPrintf(pCon,eValue,"%d", checksum);
+		return 1;
+	}
+	SCWrite(pCon,"ERROR: object type not recognized", eError);
+	return 0;
+}