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

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

extern void KeepStartupCommands(); /* ofac.c */
/***************************** 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;
  char *file = NULL;
  int i;

  /* initialise, will die on you if problems */
  for (i = 1; i < argc; i++) {
    if (strcmp(argv[i], "-nolog") == 0) {
      SICSLogEnable(0);
    }else if(strcmp(argv[i],"-keepstartup") == 0){
      KeepStartupCommands();
    } else if (file == NULL) {
      file = argv[i];
    }
  }
  iRet = InitServer(file, &pServ);
  if (!iRet) {
    printf("Unrecoverable error on server startup, exiting.........\n");
    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;
}