- 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

psi.c

@@ -55,6 +55,12 @@
 #include "tabledrive.h"
 #include "amorset.h"
 
+/* 
+  from tcpdornier.c
+*/
+extern int VelSelTcpFactory(SConnection *pCon, SicsInterp *pSics, void *pData,
+                     int argc, char *argv[]);
+
 /*--------------------------------------------------------------------------*/
 void SiteInit(void) {
 
@@ -62,8 +68,7 @@ void SiteInit(void) {
 
 /* insert here initialization routines ... */
 
-   INIT(LogReaderInit);
-   INIT(IlmStartup);
+    INIT(IlmStartup);
    INIT(IpsStartup);
    INIT(ItcStartup);
    INIT(IghStartup);
@@ -102,6 +107,7 @@ static void AddPsiCommands(SicsInterp *pInter){
     AddCommand(pInter,"MakeSinq",SinqFactory,NULL,NULL);
     AddCommand(pInter,"MakeTableDrive",TableDriveFactory,NULL,NULL);
     AddCommand(pInter,"MakeAmorSet",AmorSetFactory,NULL,NULL);
+    AddCommand(pInter,"MakeTCPSelector",VelSelTcpFactory,NULL,NULL);
 /*
     AddCommand(pInter,"MakeDifrac",MakeDifrac,NULL,NULL);
 */
@@ -121,6 +127,7 @@ static void RemovePsiCommands(SicsInterp *pSics){
     RemoveCommand(pSics,"MakeAmor2T");
     RemoveCommand(pSics,"MakeStoreAmor");
     RemoveCommand(pSics,"MakeAmorStatus");
+    RemoveCommand(pSics,"MakeTCPSelector");
 /*
     RemoveCommand(pSics,"MakeDifrac");
 */
@@ -273,6 +280,8 @@ static pVelSelDriv CreatePsiVelSelDriv(char *name, char *array,
 extern pCodri MakeDoChoDriver(char *pHost, int iPort, int iChannel, 
                               int iSingle);
 extern pCodri MakeCookerDriver(char *pHost, int iPort, int iChannel);
+extern pCodri MakeTcpDoChoDriver(char *tclArray, SConnection *pCon);
+
 /*-------------------------------------------------------------------*/
 static pCodri CreatePsiController(SConnection *pCon,int argc, char *argv[]){
   pCodri pNew = NULL;
@@ -312,6 +321,13 @@ static pCodri CreatePsiController(SConnection *pCon,int argc, char *argv[]){
        }
      }
      pNew = MakeDoChoDriver(argv[1],iPort,iChannel,iSingle);
+  } else if(strcmp(argv[0],"tcpdocho") == 0){
+      if(argc < 2){
+	  SCWrite(pCon,"ERROR: insufficient number of argumets for creating TcpDoCho",
+		  eError);
+	  return NULL;
+      }
+      return MakeTcpDoChoDriver(argv[1], pCon);
   }else if(strcmp(argv[0],"sanscook") == 0) {
     if(argc < 4){
       SCWrite(pCon,