98009be4c3
to fourmess - Fixed hdbtable, reflist and tasub up to work with GTSE - Made TRICS do fast scans again - Added support for SANS beam center calculations - Fixed a bug where SICS apparently did double counting but in fact just omitted an error message and did not - Added the harray command
499 lines
18 KiB
C
499 lines
18 KiB
C
/*--------------------------------------------------------------------------
|
|
|
|
The ObjectFactory.
|
|
|
|
See .h file what it does.
|
|
|
|
|
|
|
|
Mark Koennecke, November 1996 -- ????
|
|
|
|
heavy modifications to separate PSI specific commands into a
|
|
separate library. Mark Koennecke, June 2003
|
|
|
|
Copyright:
|
|
|
|
Labor fuer Neutronenstreuung
|
|
Paul Scherrer Institut
|
|
CH-5423 Villigen-PSI
|
|
|
|
|
|
The authors hereby grant permission to use, copy, modify, distribute,
|
|
and license this software and its documentation for any purpose, provided
|
|
that existing copyright notices are retained in all copies and that this
|
|
notice is included verbatim in any distributions. No written agreement,
|
|
license, or royalty fee is required for any of the authorized uses.
|
|
Modifications to this software may be copyrighted by their authors
|
|
and need not follow the licensing terms described here, provided that
|
|
the new terms are clearly indicated on the first page of each file where
|
|
they apply.
|
|
|
|
IN NO EVENT SHALL THE AUTHORS OR DISTRIBUTORS BE LIABLE TO ANY PARTY
|
|
FOR DIRECT, INDIRECT, SPECIAL, INCIDENTAL, OR CONSEQUENTIAL DAMAGES
|
|
ARISING OUT OF THE USE OF THIS SOFTWARE, ITS DOCUMENTATION, OR ANY
|
|
DERIVATIVES THEREOF, EVEN IF THE AUTHORS HAVE BEEN ADVISED OF THE
|
|
POSSIBILITY OF SUCH DAMAGE.
|
|
|
|
THE AUTHORS AND DISTRIBUTORS SPECIFICALLY DISCLAIM ANY WARRANTIES,
|
|
INCLUDING, BUT NOT LIMITED TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY,
|
|
FITNESS FOR A PARTICULAR PURPOSE, AND NON-INFRINGEMENT. THIS SOFTWARE
|
|
IS PROVIDED ON AN "AS IS" BASIS, AND THE AUTHORS AND DISTRIBUTORS HAVE
|
|
NO OBLIGATION TO PROVIDE MAINTENANCE, SUPPORT, UPDATES, ENHANCEMENTS, OR
|
|
MODIFICATIONS.
|
|
-----------------------------------------------------------------------------*/
|
|
#include <stdlib.h>
|
|
#include <assert.h>
|
|
#include "fortify.h"
|
|
#include "sics.h"
|
|
#include "ifile.h"
|
|
#include "sicsexit.h"
|
|
#include "passwd.h"
|
|
#include "macro.h"
|
|
#include "splitter.h"
|
|
#include "sicsvar.h"
|
|
#include "drive.h"
|
|
#include "motor.h"
|
|
#include "servlog.h"
|
|
#include "nserver.h"
|
|
#include "status.h"
|
|
#include "statusfile.h"
|
|
#include "configfu.h"
|
|
#include "devexec.h"
|
|
#include "mumo.h"
|
|
#include "selector.h"
|
|
#include "selvar.h"
|
|
#include "countdriv.h"
|
|
#include "counter.h"
|
|
#include "scan.h"
|
|
#include "script.h"
|
|
#include "o2t.h"
|
|
#include "alias.h"
|
|
#include "stringdict.h"
|
|
#include "HistMem.h"
|
|
#include "velo.h"
|
|
#include "emon.h"
|
|
#include "evcontroller.h"
|
|
#include "danu.h"
|
|
#include "nserver.h"
|
|
#include "scan.h"
|
|
#include "fitcenter.h"
|
|
#include "token.h"
|
|
#include "hkl.h"
|
|
#include "optimise.h"
|
|
#include "commandlog.h"
|
|
#include "udpquieck.h"
|
|
#include "choco.h"
|
|
#include "chadapter.h"
|
|
#include "xytable.h"
|
|
#include "maximize.h"
|
|
#include "difrac.h"
|
|
#include "sicscron.h"
|
|
#include "lin2ang.h"
|
|
#include "synchronize.h"
|
|
#include "definealias.h"
|
|
#include "hmcontrol.h"
|
|
#include "rs232controller.h"
|
|
#include "lomax.h"
|
|
#include "anticollider.h"
|
|
#include "gpibcontroller.h"
|
|
#include "nxscript.h"
|
|
#include "tclintimpl.h"
|
|
#include "tcldrivable.h"
|
|
#include "sicsdata.h"
|
|
#include "help.h"
|
|
#include "site.h"
|
|
#include "nxupdate.h"
|
|
#include "confvirtmot.h"
|
|
#include "exeman.h"
|
|
#include "oscillate.h"
|
|
#include "diffscan.h"
|
|
#include "hklmot.h"
|
|
#include "ubcalc.h"
|
|
#include "tasub.h"
|
|
#include "tasscanub.h"
|
|
#include "mcreader.h"
|
|
#include "mccontrol.h"
|
|
#include "protocol.h"
|
|
#include "sinfox.h"
|
|
#include "sicslist.h"
|
|
#include "cone.h"
|
|
#include "sicshipadaba.h"
|
|
#include "multicounter.h"
|
|
#include "sicspoll.h"
|
|
#include "statemon.h"
|
|
#include "asyncqueue.h"
|
|
#include "asyncprotocol.h"
|
|
#include "sicsobj.h"
|
|
#include "hdbqueue.h"
|
|
#include "genericcontroller.h"
|
|
#include "proxy.h"
|
|
#include "reflist.h"
|
|
#include "singlex.h"
|
|
#include "motorsec.h"
|
|
#include "background.h"
|
|
#include "velosec.h"
|
|
#include "histmemsec.h"
|
|
#include "hdbtable.h"
|
|
#include "sansbc.h"
|
|
/*----------------------- Server options creation -------------------------*/
|
|
static int IFServerOption(SConnection * pCon, SicsInterp * pSics,
|
|
void *pData, int argc, char *argv[])
|
|
{
|
|
char pBueffel[512];
|
|
|
|
assert(pSics);
|
|
assert(pCon);
|
|
|
|
/* check authorisation */
|
|
if (!SCMatchRights(pCon, usMugger)) {
|
|
SCWrite(pCon, "Insufficient privilege to set options", eError);
|
|
return 0;
|
|
}
|
|
|
|
/* test if sufficient arguments */
|
|
if (argc < 3) {
|
|
sprintf(pBueffel, "Syntax: %s name value ", argv[0]);
|
|
SCWrite(pCon, pBueffel, eError);
|
|
return 0;
|
|
}
|
|
|
|
/* just do it */
|
|
pSICSOptions = IFAddOption(pSICSOptions, argv[1], argv[2]);
|
|
return 1;
|
|
}
|
|
|
|
/*----------------------- Password database update -------------------------*/
|
|
static int PWSicsUser(SConnection * pCon, SicsInterp * pSics, void *pData,
|
|
int argc, char *argv[])
|
|
{
|
|
char pBueffel[512];
|
|
TokenList *pList = NULL;
|
|
|
|
assert(pSics);
|
|
assert(pCon);
|
|
|
|
/* check authorisation */
|
|
if (SCGetRights(pCon) > usMugger) {
|
|
SCWrite(pCon, "Insufficient privilege to set users", eError);
|
|
return 0;
|
|
}
|
|
|
|
/* analyse commandlist */
|
|
pList = SplitArguments(argc - 1, &argv[1]);
|
|
if ((!pList) || (!pList->pNext) || (!pList->pNext->pNext)) {
|
|
sprintf(pBueffel, "Invalid Passwd Entry ::\n %s %s %s\n", argv[1],
|
|
argv[2], argv[3]);
|
|
SCWrite(pCon, pBueffel, eError);
|
|
DeleteTokenList(pList);
|
|
return 0;
|
|
} else {
|
|
if (pList->pNext->pNext->Type != eInt) {
|
|
SCWrite(pCon, "Need integer rights code", eError);
|
|
DeleteTokenList(pList);
|
|
return 0;
|
|
} else {
|
|
AddUser(pList->text, pList->pNext->text, pList->pNext->pNext->iVal);
|
|
}
|
|
}
|
|
DeleteTokenList(pList);
|
|
return 1;
|
|
}
|
|
|
|
/*--------------------------------------------------------------------------*/
|
|
static void InitIniCommands(SicsInterp * pInter, pTaskMan pTask)
|
|
{
|
|
pExeList pExe;
|
|
pEnvMon pEnv = NULL;
|
|
pSite site = NULL;
|
|
assert(pInter);
|
|
|
|
pExe = CreateExeList(pTask);
|
|
pServ->pExecutor = pExe;
|
|
pEnv = CreateEnvMon();
|
|
|
|
assert(pExe);
|
|
assert(pEnv);
|
|
|
|
/* permanent commands */
|
|
AddCommand(pInter, "Sics_Exitus", SicsExit, NULL, NULL);
|
|
AddCommand(pInter, "FileEval", MacroFileEval, NULL, NULL);
|
|
|
|
AddCommand(pInter, "InternEval", InternalFileEval, NULL, NULL);
|
|
AddCommand(pInter, "ClientPut", ClientPut, NULL, NULL);
|
|
AddCommand(pInter, "Capture", CaptureAction, NULL, NULL);
|
|
AddCommand(pInter, "GumPut", GumPut, NULL, NULL);
|
|
AddCommand(pInter, "broadcast", Broadcast, NULL, NULL);
|
|
AddCommand(pInter, "transact", TransactAction, NULL, NULL);
|
|
AddCommand(pInter, "fulltransact", TransactAction, NULL, NULL);
|
|
AddCommand(pInter, "sicsprompt", SicsPrompt, NULL, NULL);
|
|
AddCommand(pInter, "Publish", TclPublish, NULL, NULL);
|
|
AddCommand(pInter, "GetLog", LogCapture, NULL, NULL);
|
|
AddCommand(pInter, "config", ConfigCon, NULL, NULL);
|
|
AddCommand(pInter, "wait", UserWait, NULL, NULL);
|
|
AddCommand(pInter, "status", UserStatus, NULL, NULL);
|
|
AddCommand(pInter, "ResetServer", ResetStatus, NULL, NULL);
|
|
AddCommand(pInter, "Dir", ListObjects, NULL, NULL);
|
|
AddCommand(pInter, "SetInt", SetSICSInterrupt, NULL, NULL);
|
|
AddCommand(pInter, "GetInt", GetSICSInterrupt, NULL, NULL);
|
|
AddCommand(pInter, "SICSType", SICSType, NULL, NULL);
|
|
AddCommand(pInter, "SICSBounds", SICSBounds, NULL, NULL);
|
|
AddCommand(pInter, "SICSStatus", SICSStatus, NULL, NULL);
|
|
AddCommand(pInter, "sicstime", SICSTime, NULL, NULL);
|
|
AddCommand(pInter, "sicsdescriptor", SICSDescriptor, NULL, NULL);
|
|
AddCommand(pInter, "silent", SICSSilent, NULL, NULL);
|
|
AddCommand(pInter, "SetStatus", SetSICSStatus, NULL, NULL);
|
|
AddCommand(pInter, "db", SICSDebug, NULL, NULL);
|
|
AddCommand(pInter, "EVFactory", EVControlFactory, NULL, NULL);
|
|
AddCommand(pInter, "emon", EVWrapper, DeleteEnvMon, pEnv);
|
|
AddCommand(pInter, "commandlog", CommandLog, CommandLogClose, NULL);
|
|
AddCommand(pInter, "udpquieck", QuieckAction, KillQuieck, NULL);
|
|
AddCommand(pInter, "alias", MakeAlias, NULL, NULL);
|
|
AddCommand(pInter, "findalias", LocateAliasAction, NULL, NULL);
|
|
AddCommand(pInter, "sicscron", MakeCron, NULL, NULL);
|
|
AddCommand(pInter, "dolater", MakeCron, NULL, NULL);
|
|
AddCommand(pInter, "sicsdatafactory", SICSDataFactory, NULL, NULL);
|
|
AddCommand(pInter, "scriptcallback", CallbackScript, NULL, NULL);
|
|
AddCommand(pInter, "help", SicsHelp, KillHelp, NULL);
|
|
AddCommand(pInter, "list", SicsList, NULL, NULL);
|
|
AddCommand(pInter, "InstallHdb", InstallSICSHipadaba, NULL, NULL);
|
|
MakeProtocol(pInter);
|
|
InstallBackground(pInter);
|
|
|
|
/* commands to do with the executor. Only StopExe carries the
|
|
DeleteFunction in order to avoid double deletion. All the
|
|
other commands operate on the same datastructure.
|
|
*/
|
|
AddCommand(pInter, "StopExe", StopCommand, DeleteExeList, pExe);
|
|
AddCommand(pInter, "ListExe", ListExe, NULL, pExe);
|
|
AddCommand(pInter, "sicsidle", SicsIdle, NULL, pExe);
|
|
AddCommand(pInter, "Success", Success, NULL, pExe);
|
|
AddCommand(pInter, "pause", PauseAction, NULL, pExe);
|
|
AddCommand(pInter, "continue", ContinueAction, NULL, pExe);
|
|
AddCommand(pInter, "devexec", DevexecAction, NULL, pExe);
|
|
|
|
/* add additional object creation commands here */
|
|
AddCommand(pInter, "TokenInit", TokenInit, NULL, NULL);
|
|
AddCommand(pInter, "ServerOption", IFServerOption, NULL, NULL);
|
|
AddCommand(pInter, "SicsUser", PWSicsUser, NULL, NULL);
|
|
AddCommand(pInter, "VarMake", VarFactory, NULL, NULL);
|
|
AddCommand(pInter, "MakeDrive", MakeDrive, NULL, NULL);
|
|
AddCommand(pInter, "Motor", MotorCreate, NULL, NULL);
|
|
AddCommand(pInter, "MakeMulti", MakeMulti, NULL, NULL);
|
|
AddCommand(pInter, "MakeMono", MonoInit, NULL, NULL);
|
|
AddCommand(pInter, "MakeWaveLength", MakeWaveLengthVar, NULL, NULL);
|
|
AddCommand(pInter, "MakeEnergy", MakeEnergyVar, NULL, NULL);
|
|
AddCommand(pInter, "MakeCounter", MakeCounter, NULL, NULL);
|
|
AddCommand(pInter, "MakeSecCounter", MakeSecCter, NULL, NULL);
|
|
AddCommand(pInter, "MakeO2T", CreateO2T, NULL, NULL);
|
|
AddCommand(pInter, "SicsAlias", SicsAlias, NULL, NULL);
|
|
AddCommand(pInter, "DefineAlias", DefineAlias, NULL, NULL); /* M.Z. */
|
|
AddCommand(pInter, "MakeHM", MakeHistMemory, NULL, NULL);
|
|
AddCommand(pInter, "VelocitySelector", VelSelFactory, NULL, NULL);
|
|
AddCommand(pInter, "MakeDataNumber", DNFactory, NULL, NULL);
|
|
AddCommand(pInter, "MakeScanCommand", ScanFactory, NULL, NULL);
|
|
AddCommand(pInter, "MakePeakCenter", FitFactory, NULL, NULL);
|
|
AddCommand(pInter, "MakeHKL", HKLFactory, NULL, NULL);
|
|
AddCommand(pInter, "MakeOptimise", MakeOptimiser, NULL, NULL);
|
|
AddCommand(pInter, "kill_command", SICSKill, NULL, NULL);
|
|
AddCommand(pInter, "MakeChopper", ChocoFactory, NULL, NULL);
|
|
AddCommand(pInter, "ChopperAdapter", CHAdapterFactory, NULL, NULL);
|
|
AddCommand(pInter, "MakeXYTable", XYFactory, NULL, NULL);
|
|
AddCommand(pInter, "MakeMaximize", MaximizeFactory, NULL, NULL);
|
|
AddCommand(pInter, "MakeLin2Ang", MakeLin2Ang, NULL, NULL);
|
|
AddCommand(pInter, "MakeSync", MakeSync, NULL, NULL);
|
|
AddCommand(pInter, "MakeHMControl", MakeHMControl, NULL, NULL);
|
|
AddCommand(pInter, "MakeRS232Controller", RS232Factory, NULL, NULL);
|
|
AddCommand(pInter, "MakeMaxDetector", LoMaxFactory, NULL, NULL);
|
|
AddCommand(pInter, "AntiCollisionInstall", AntiColliderFactory, NULL,
|
|
NULL);
|
|
AddCommand(pInter, "MakeGPIB", MakeGPIB, NULL, NULL);
|
|
AddCommand(pInter, "MakeNXScript", MakeNXScript, NULL, NULL);
|
|
AddCommand(pInter, "MakeTclInt", MakeTclInt, NULL, NULL);
|
|
AddCommand(pInter, "TclReplaceDrivable", TclReplaceDrivable, NULL, NULL);
|
|
AddCommand(pInter, "DrivableInvoke", TclDrivableInvoke, NULL, NULL);
|
|
AddCommand(pInter, "UpdateFactory", UpdateFactory, NULL, NULL);
|
|
AddCommand(pInter, "allowexec", AllowExec, NULL, NULL);
|
|
AddCommand(pInter, "MakeConfigurableMotor",
|
|
MakeConfigurableVirtualMotor, NULL, NULL);
|
|
AddCommand(pInter, "MakeBatchManager", MakeExeManager, NULL, NULL);
|
|
AddCommand(pInter, "MakeOscillator", MakeOscillator, NULL, NULL);
|
|
AddCommand(pInter, "MakeDiffScan", MakeDiffScan, NULL, NULL);
|
|
AddCommand(pInter, "MakeHKLMot", HKLMotInstall, NULL, NULL);
|
|
AddCommand(pInter, "MakeUBCalc", MakeUBCalc, NULL, NULL);
|
|
AddCommand(pInter, "MakeTasUB", TasUBFactory, NULL, NULL);
|
|
AddCommand(pInter, "MakeTasScan", TASUBScanFactory, NULL, NULL);
|
|
AddCommand(pInter, "MakeMcStasReader", McStasReaderFactory, NULL, NULL);
|
|
AddCommand(pInter, "MakeMcStasController",
|
|
McStasControllerFactory, NULL, NULL);
|
|
AddCommand(pInter, "InstallSinfox", InstallSinfox, NULL, NULL);
|
|
AddCommand(pInter, "MakeCone", MakeCone, NULL, NULL);
|
|
AddCommand(pInter, "MakeMultiCounter", MakeMultiCounter, NULL, NULL);
|
|
AddCommand(pInter, "MakeSicsPoll", InstallSICSPoll, NULL, NULL);
|
|
AddCommand(pInter, "MakeStateMon", StateMonFactory, NULL, NULL);
|
|
AddCommand(pInter, "MakeAsyncProtocol", AsyncProtocolFactory, NULL,
|
|
NULL);
|
|
AddCommand(pInter, "MakeAsyncQueue", AsyncQueueFactory, NULL, NULL);
|
|
AddCommand(pInter, "MakeSicsObj", InstallSICSOBJ, NULL, NULL);
|
|
AddCommand(pInter, "DynSicsObj", InstallSICSOBJ, NULL, NULL);
|
|
/* AddCommand(pInter,"MakeHdbQueue",MakeHDBQueue,NULL,NULL); */
|
|
AddCommand(pInter, "MakeGenController", GenControllerFactory, NULL,
|
|
NULL);
|
|
AddCommand(pInter, "genconfigure", GenControllerConfigure, NULL, NULL);
|
|
AddCommand(pInter, "MakeProxy", ProxyFactory, NULL, NULL);
|
|
AddCommand(pInter, "MakeRefList", MakeReflectionList, NULL, NULL);
|
|
AddCommand(pInter, "MakeSingleX", MakeSingleX, NULL, NULL);
|
|
AddCommand(pInter, "MakeSecMotor", SecMotorFactory, NULL, NULL);
|
|
AddCommand(pInter, "MakeSecNVS", MakeSecNVS, NULL, NULL);
|
|
AddCommand(pInter, "MakeSecHM", MakeSecHM, NULL, NULL);
|
|
AddCommand(pInter, "MakeHdbTable", HdbTableFactory, NULL, NULL);
|
|
AddCommand(pInter, "MakeSansBC", SansBCFactory, NULL, NULL);
|
|
|
|
|
|
/*
|
|
install site specific commands
|
|
*/
|
|
site = getSite();
|
|
if (site != NULL) {
|
|
site->AddSiteCommands(pInter);
|
|
}
|
|
}
|
|
|
|
/*---------------------------------------------------------------------------*/
|
|
static void KillIniCommands(SicsInterp * pSics)
|
|
{
|
|
pSite site = NULL;
|
|
|
|
/* specify superfluous initialization commands here */
|
|
RemoveCommand(pSics, "TokenInit");
|
|
RemoveCommand(pSics, "ServerOption");
|
|
RemoveCommand(pSics, "SicsUser");
|
|
RemoveCommand(pSics, "VarMake");
|
|
RemoveCommand(pSics, "MakeDrive");
|
|
RemoveCommand(pSics, "Motor");
|
|
/*
|
|
RemoveCommand(pSics,"MakeMulti");
|
|
*/
|
|
RemoveCommand(pSics, "MakeMono");
|
|
RemoveCommand(pSics, "MakeWaveLength");
|
|
RemoveCommand(pSics, "MakeEnergy");
|
|
RemoveCommand(pSics, "MakeCounter");
|
|
RemoveCommand(pSics, "MakeSecCounter");
|
|
RemoveCommand(pSics, "MakeRuenBuffer");
|
|
RemoveCommand(pSics, "MakeScan");
|
|
RemoveCommand(pSics, "MakeO2T");
|
|
RemoveCommand(pSics, "SicsAlias");
|
|
RemoveCommand(pSics, "MakeHM");
|
|
RemoveCommand(pSics, "VelocitySelector");
|
|
RemoveCommand(pSics, "MakeDataNumber");
|
|
RemoveCommand(pSics, "MakeScanCommand");
|
|
RemoveCommand(pSics, "MakePeakCenter");
|
|
RemoveCommand(pSics, "MakeHKL");
|
|
RemoveCommand(pSics, "MakeOptimiser");
|
|
RemoveCommand(pSics, "MakeMesure");
|
|
RemoveCommand(pSics, "MakeChopper");
|
|
RemoveCommand(pSics, "ChopperAdapter");
|
|
RemoveCommand(pSics, "MakeHklscan");
|
|
RemoveCommand(pSics, "MakeXYTable");
|
|
RemoveCommand(pSics, "MakeMaximize");
|
|
RemoveCommand(pSics, "MakeLin2Ang");
|
|
RemoveCommand(pSics, "MakeSync");
|
|
RemoveCommand(pSics, "MakeHMControl");
|
|
RemoveCommand(pSics, "MakeRS232Controller");
|
|
RemoveCommand(pSics, "MakeMaxDetector");
|
|
RemoveCommand(pSics, "AntiColliderInstall");
|
|
RemoveCommand(pSics, "MakeGPIB");
|
|
RemoveCommand(pSics, "MakeNXScript");
|
|
RemoveCommand(pSics, "MakeTclInt");
|
|
RemoveCommand(pSics, "UpdateFactory");
|
|
RemoveCommand(pSics, "allowexec");
|
|
RemoveCommand(pSics, "MakeConfigurableMotor");
|
|
RemoveCommand(pSics, "MakeBatchManager");
|
|
RemoveCommand(pSics, "MakeOscillator");
|
|
RemoveCommand(pSics, "MakeDiffScan");
|
|
RemoveCommand(pSics, "MakeHKLMot");
|
|
RemoveCommand(pSics, "MakeUBCalc");
|
|
RemoveCommand(pSics, "MakeTasUB");
|
|
RemoveCommand(pSics, "MakeTasScan");
|
|
RemoveCommand(pSics, "MakemcStasReader");
|
|
RemoveCommand(pSics, "InstallSinfox");
|
|
RemoveCommand(pSics, "MakeCone");
|
|
RemoveCommand(pSics, "MakeMultiCounter");
|
|
RemoveCommand(pSics, "MakeStateMon");
|
|
RemoveCommand(pSics, "MakeAsyncQueue");
|
|
RemoveCommand(pSics, "MakeAsyncProtocol");
|
|
RemoveCommand(pSics, "MakeSicsObject");
|
|
RemoveCommand(pSics, "MakeGenController");
|
|
RemoveCommand(pSics, "genconfigure");
|
|
RemoveCommand(pSics, "MakeProxy");
|
|
RemoveCommand(pSics, "MakeRefList");
|
|
RemoveCommand(pSics, "MakeSingleX");
|
|
RemoveCommand(pSics, "MakeSecMotor");
|
|
RemoveCommand(pSics, "MakeSecNVS");
|
|
RemoveCommand(pSics, "MakeSecHM");
|
|
RemoveCommand(pSics, "MakeHdbTable");
|
|
RemoveCommand(pSics, "MakeSansBC");
|
|
/*
|
|
remove site specific installation commands
|
|
*/
|
|
site = getSite();
|
|
if (site != NULL) {
|
|
site->RemoveSiteCommands(pSics);
|
|
}
|
|
}
|
|
|
|
/*--------------------------------------------------------------------------*/
|
|
void InitGeneral(void)
|
|
{
|
|
#define INIT(F) { void F(void); F(); }
|
|
|
|
/* insert here initialization routines ... */
|
|
|
|
INIT(StatisticsInit);
|
|
INIT(InitializerInit);
|
|
INIT(SaveHdbInit); /* must be after InitializerInit */
|
|
INIT(SctInit);
|
|
INIT(SctDriveAdapterInit);
|
|
INIT(SctDriveObjInit);
|
|
INIT(SctDriveAdapterInit);
|
|
INIT(LogReaderInit);
|
|
INIT(LogSetupInit);
|
|
INIT(StatusFileInit);
|
|
|
|
INIT(SiteInit); /* site specific initializations */
|
|
}
|
|
|
|
/*--------------------------------------------------------------------------*/
|
|
int InitObjectCommands(pServer pServ, char *file)
|
|
{
|
|
SConnection *pCon = NULL;
|
|
char pBueffel[1024];
|
|
int iRet;
|
|
SicsInterp *pSics;
|
|
|
|
pSics = pServ->pSics;
|
|
assert(pSics);
|
|
|
|
InitGeneral();
|
|
|
|
/* general initialization */
|
|
/* create a connection */
|
|
pCon = SCCreateDummyConnection(pSics);
|
|
if (!pCon) {
|
|
return 0;
|
|
}
|
|
MakeExeManager(pCon, pSics, NULL, 1, NULL);
|
|
InitIniCommands(pSics, pServ->pTasker);
|
|
InstallBckRestore(pCon, pSics);
|
|
|
|
|
|
/* evaluate the file */
|
|
sprintf(pBueffel, "fileeval %s", file);
|
|
iRet = InterpExecute(pSics, pCon, pBueffel);
|
|
|
|
/* done */
|
|
SCDeleteConnection(pCon);
|
|
KillIniCommands(pSics);
|
|
RemoveStartupCommands();
|
|
return 1;
|
|
}
|