/*--------------------------------------------------------------------------

		              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 <unistd.h>
#include "nserver.h"
#include "servlog.h"

/***************************** Necessary Globals ****************************/

  IPair *pSICSOptions = NULL;
  pServer pServ = NULL;
  
/* ========================= Less dreadful file statics =================== */

#define DEFAULTINIFILE "servo.tcl"

int usage(const char* name) {
  fprintf(stderr, "usage: %s [-d] [-nolog] <config.tcl>\n", name);
  return 1;
}
/*---------------------------------------------------------------------------
  The Servers Main program. May take one argument: the name of an 
  initialisation file
*/
 
  int main(int argc, char *argv[])
  {
    int iRet;
    int debug = 0;
     char *file=NULL;
     int i, firstArg=1;

     if (argc < 2)
        return usage(argv[0]);

     /* initialise, will die on you if problems */
     if (strcasecmp(argv[1], "-d") == 0) {
        debug = 1;
        firstArg=2;
     }
     for (i=firstArg; i<argc; i++) {
       if (strcmp(argv[i], "-nolog") == 0) {
         SICSLogEnable(0);
       } else if (file == NULL) {
         file = argv[i];
       }
     }

     if (file == NULL)
        return usage(argv[0]);

     iRet = InitServer(file,&pServ);
     if(!iRet)
     {
       printf("Unrecoverable error on server startup, exiting.........\n");
       exit(1);
     }
     if (debug == 0)
       daemon(1,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;
  }