linse/sics
0
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

- Fixed SICS up to run with up to three TRICS detectors.

Browse Source 
- added 150 detectors the default for FOCUS middle bank.
- added documentation for el734_test
This commit is contained in:
cvs
2001-02-09 16:04:46 +00:00
parent 96e2fc44c0
commit 5be8359212
24 changed files with 1842 additions and 224 deletions
Download Patch File Download Diff File Expand all files Collapse all files

39
histmem.c
View File

@ -537,10 +537,16 @@
/*-----------------------------------------------------------------------*/
int HistSetOption(pHistMem self, char *name, char *value)
{
int status;
assert(self);
self->iInit = 1;
strtolower(name);
return StringDictUpdate(self->pOption,name, value);
status = StringDictUpdate(self->pOption,name, value);
if(status == 0)
{
return StringDictAddPair(self->pOption,name, value);
}
}
/*-----------------------------------------------------------------------*/
int HistConfigure(pHistMem self, SConnection *pCon, SicsInterp *pSics)
@ -1161,7 +1167,7 @@
return 0;
}
/* configure command */
/* interest command */
strtolower(argv[1]);
if(strcmp(argv[1],"interest") == 0)
{
@ -1325,10 +1331,12 @@
}
else
{
SCWrite(pCon,"ERROR: you are not privileged for attempted operation",eError);
SCWrite(pCon,
"ERROR: you are not privileged for attempted operation",eError);
return 0;
}
}
/* normal counting*/
else if(strcmp(argv[1],"count") == 0)
{
if(SCMatchRights(pCon,self->iAccess))
@ -1347,7 +1355,27 @@
}
else
{
SCWrite(pCon,"ERROR: you are not privileged for attempted operation",eError);
SCWrite(pCon,
"ERROR: you are not privileged for attempted operation",eError);
return 0;
}
}
/* forced count, for the case several hm need to be started */
else if(strcmp(argv[1],"countf") == 0)
{
if(SCMatchRights(pCon,self->iAccess))
{
iRet = HistDoCount(self,pCon);
if(iRet == 1)
{
SCSendOK(pCon);
}
return iRet;
}
else
{
SCWrite(pCon,
"ERROR: you are not privileged for attempted operation",eError);
return 0;
}
}
@ -1365,7 +1393,8 @@
}
else
{
SCWrite(pCon,"ERROR: you are not privileged for attempted operation",eError);
SCWrite(pCon,
"ERROR: you are not privileged for attempted operation",eError);
return 0;
}
}