- 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

sicvar.c

@@ -55,7 +55,7 @@ static int VarSave(void *pData, char *name, FILE * fd)
   assert(pData);
   assert(fd);
   pVar = (pSicsVariable) pData;
-  if (pVar->iLock || pVar->iAccessCode == usInternal) {
+  if (pVar->iAccessCode == usInternal) {
     return 1;
   }
   snprintf(pBueffel,sizeof(pBueffel)-1, "# Variable %s\n", name);
@@ -243,6 +243,7 @@ int VarSetFloat(pSicsVariable self, float fNew, int iUserRights)
   } else {
     self->fVal = fNew;
     InvokeCallBack(self->pCall, VALUECHANGE, self);
+    tracePar(self->name,"%f",fNew);
   }
   return 1;
 }
@@ -258,6 +259,7 @@ int VarSetInt(pSicsVariable self, int iNew, int iUserRights)
   } else {
     self->iVal = iNew;
     InvokeCallBack(self->pCall, VALUECHANGE, self);
+    tracePar(self->name,"%d",iNew);
   }
   return 1;
 }
@@ -276,7 +278,8 @@ int VarSetText(pSicsVariable self, char *pNew, int iUserRights)
     }
     self->text = strdup(pNew);
     InvokeCallBack(self->pCall, VALUECHANGE, self);
-  }
+    tracePar(self->name,"%s",pNew);
+ }
   return 1;
 }
 
@@ -520,6 +523,11 @@ int VarWrapper(SConnection * pCon, SicsInterp * pInterp, void *pData,
     DeleteTokenList(pList);
     SCSendOK(pCon);
     return 1;
+  } else if (strcmp(pCurrent->text, "unlock") == 0) {
+    pVar->iLock = 0;
+    DeleteTokenList(pList);
+    SCSendOK(pCon);
+    return 1;
   } else if (strcmp(pCurrent->text, "force") == 0) {
     /*
        Undocumented feauture: force a set even while driving etc.