- Added Sycamore protocol and command context to SICS

- Added sinfo to SICS
- Added driver for TCP/IP Astrium velocity selector
- Added driver for TCP/IP Astrium chopper controller


SKIPPED:
	psi/amor2t.c
	psi/amorstat.c
	psi/dornier2.c
	psi/ecb.c
	psi/el734hp.c
	psi/fowrite.c
	psi/libpsi.a
	psi/make_gen
	psi/nextrics.c
	psi/pardef.c
	psi/pimotor.c
	psi/pipiezo.c
	psi/polterwrite.c
	psi/psi.c
	psi/scontroller.c
	psi/serial.c
	psi/tasinit.c
	psi/tasscan.c
	psi/tcpdocho.c
	psi/tcpdornier.c
	psi/tricssupport.c
	psi/velodornier.c

callback.c

@@ -64,6 +64,7 @@
                    void *pUserData;
                    KillFuncIT pKill;
                    int iEvent;
+                   commandContext comCon;
                  } CallBackItem, *pCallBackItem;
 /*------------------------------------------------------------------------*/
   static int CheckPointer(pICallBack self)
@@ -140,7 +141,7 @@
        LLDnodeDataTo(self->iList,&sItem);
        if(sItem.iEvent == iEvent)
        {
-         iRet = sItem.pFunc(iEvent, pEventData,sItem.pUserData);
+         iRet = sItem.pFunc(iEvent, pEventData,sItem.pUserData,sItem.comCon);
          if(!iRet)
          {
            iResult = 0;
@@ -153,7 +154,7 @@
 /*--------------------------------------------------------------------------*/
   static long lCount = 1L;
   
-  long RegisterCallback(pICallBack self, int iEvent,
+  long RegisterCallback(pICallBack self, commandContext comCon, int iEvent,
                                  SICSCallBack pFunc, 
                                  void *pUserData, KillFunc pKFunc)
   {
@@ -170,7 +171,8 @@
       sItem.iEvent = iEvent;
       sItem.pUserData = pUserData;
       sItem.pKill = pKFunc;
-      
+      sItem.comCon = comCon;      
+
       LLDnodeAppendFrom(self->iList,&sItem);
       return sItem.iID;
   }        
@@ -244,7 +246,8 @@ static int CallbackWrite(SConnection *pCon,char *message, int outCode)
 /*-----------------------------------------------------------------------
   the actual callback function invoking the script
   ------------------------------------------------------------------------*/
-static int ScriptCallback(int iEvent, void *pEventData, void *pUserData)
+static int ScriptCallback(int iEvent, void *pEventData, void *pUserData,
+                          commandContext cc)
 {
   SConnection *pCon = NULL;
   Tcl_Interp *pTcl;
@@ -332,7 +335,8 @@ int CallbackScript(SConnection *pCon, SicsInterp *pSics, void *pData,
       return 0;
     }
     Arg2Text(argc-4,&argv[4],pBuffer,131);
-    lID = RegisterCallback(pCall,iEvent,ScriptCallback,
+    lID = RegisterCallback(pCall,SCGetContext(pCon),
+			   iEvent,ScriptCallback,
 			   strdup(pBuffer),free);
     sprintf(pBuffer,"callback = %ld", lID);
     SCWrite(pCon,pBuffer,eValue);