Initial revision

SICSmain.c

@@ -0,0 +1,87 @@
+/*--------------------------------------------------------------------------
+
+		              THE  SICS SERVER 
+		         
+		         
+  This file contains the main entry point into the world of SICS.
+  
+
+
+	Mark Koennecke,    October 1996
+
+	Copyright: see copyright.h
+
+	Labor fuer Neutronenstreuung
+	Paul Scherrer Institut
+	CH-5423 Villigen-PSI
+
+
+----------------------------------------------------------------------------*/
+#include <string.h>
+#include <stdlib.h>
+#include <stdio.h>
+#include "nserver.h"
+
+/***************************** Necessary Globals ****************************/
+
+  IPair *pSICSOptions = NULL;
+  pServer pServ = NULL;
+  
+/* ========================= Less dreadful file statics =================== */
+
+#define DEFAULTINIFILE "servo.tcl"
+
+/*---------------------------------------------------------------------------
+  The Servers Main program. May take one argument: the name of an 
+  initialisation file
+*/
+ 
+  int main(int argc, char *argv[])
+  {
+     int iRet;
+     
+     /* initialise, will die on you if problems */
+     if(argc >= 2)
+     {
+       iRet = InitServer(argv[1],&pServ);
+     }
+     else
+     {
+       iRet = InitServer(NULL,&pServ);
+     }
+     if(!iRet)
+     {
+       printf("Unrecoverable error on server startup, exiting.........");
+       exit(1);
+     }
+     
+      
+      RunServer(pServ);
+   
+      StopServer(pServ);
+      pServ = NULL;  
+      exit(0);
+  }
+/*--------------------------------------------------------------------------*/
+  SicsInterp *GetInterpreter(void)
+  {
+    return pServ->pSics;
+  }
+/*--------------------------------------------------------------------------*/
+  pExeList GetExecutor(void)
+  {
+    return pServ->pExecutor;
+  }  
+/*------------------------------------------------------------------------*/
+  void StopExit(void)
+  {
+    if(pServ)
+    {
+       StopServer(pServ);
+    }   
+  }  
+/*-------------------------------------------------------------------------*/
+  pTaskMan GetTasker(void)
+  {
+    return pServ->pTasker;
+  }