114 lines
2.3 KiB
C
114 lines
2.3 KiB
C
/*--------------------------------------------------------------------------
|
|
|
|
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 daemonize = 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) {
|
|
daemonize = 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 (daemonize == 1)
|
|
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;
|
|
}
|