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

- Adapted indenation to new agreed upon system

Browse Source 
- Fixed bad status in poldi zug driver
This commit is contained in:
koennecke
2009-02-13 09:01:03 +00:00
parent 6c7bb14fad
commit eb72d5c486
151 changed files with 38234 additions and 38208 deletions
Download Patch File Download Diff File Expand all files Collapse all files

247
tricssupport.c
View File

@ -13,7 +13,7 @@
#include "HistMem.h"
#define NEWFRAME 1166
#define NEWFRAME 1166
/*------------------------------------------------------------------------
a data structure plus support functions
------------------------------------------------------------------------*/
@ -22,193 +22,202 @@ typedef struct {
pICallBack pCall;
} TricsSupport, *pTricsSupport;
/*----------------------------------------------------------------------*/
static pTricsSupport CreateTricsSupport(){
static pTricsSupport CreateTricsSupport()
{
pTricsSupport pNew = NULL;
pNew = (pTricsSupport)malloc(sizeof(TricsSupport));
if(pNew == NULL){
pNew = (pTricsSupport) malloc(sizeof(TricsSupport));
if (pNew == NULL) {
return NULL;
}
memset(pNew,0,sizeof(TricsSupport));
memset(pNew, 0, sizeof(TricsSupport));
pNew->pDes = CreateDescriptor("TricsSupport");
pNew->pCall = CreateCallBackInterface();
if(pNew->pDes == NULL || pNew->pCall == NULL){
if (pNew->pDes == NULL || pNew->pCall == NULL) {
free(pNew);
return NULL;
}
return pNew;
}
/*--------------------------------------------------------------------*/
static void KillTricsSupport(void *pData){
pTricsSupport pNew = (pTricsSupport)pData;
if(pNew != NULL){
if(pNew->pDes != NULL){
/*--------------------------------------------------------------------*/
static void KillTricsSupport(void *pData)
{
pTricsSupport pNew = (pTricsSupport) pData;
if (pNew != NULL) {
if (pNew->pDes != NULL) {
DeleteDescriptor(pNew->pDes);
pNew->pDes = NULL;
}
if(pNew->pCall != NULL){
if (pNew->pCall != NULL) {
DeleteCallBackInterface(pNew->pCall);
pNew->pCall = NULL;
}
}
}
/*=====================================================================*/
static int FrameSupInterest(int iEvent, void *pEvent, void *pUser){
SConnection *pCon = NULL;
int *iFrame;
char pBueffel[512];
pCon = (SConnection *)pUser;
/* check kill condition */
if(pCon == NULL || !SCisConnected(pCon))
{
return -1;
}
if(iEvent != NEWFRAME){
return 0;
}
iFrame = (int *)pEvent;
assert(pCon);
sprintf(pBueffel,"framenumber = %d",*iFrame);
SCWrite(pCon,pBueffel,eWarning);
return 1;
/*=====================================================================*/
static int FrameSupInterest(int iEvent, void *pEvent, void *pUser)
{
SConnection *pCon = NULL;
int *iFrame;
char pBueffel[512];
pCon = (SConnection *) pUser;
/* check kill condition */
if (pCon == NULL || !SCisConnected(pCon)) {
return -1;
}
if (iEvent != NEWFRAME) {
return 0;
}
iFrame = (int *) pEvent;
assert(pCon);
sprintf(pBueffel, "framenumber = %d", *iFrame);
SCWrite(pCon, pBueffel, eWarning);
return 1;
}
/*======================================================================
NexusGetFrame opens a TRICS NeXus file and retrieves a frame for the
specified detector from it. This is a special feature for the
status display.
---------------------------------------------------------------------------*/
static int NexusGetFrameSup(SConnection *pCon, char *filename,
int iDetector, int iFrame){
char pBueffel[132];
int iRet, type, rank, iDim[2];
NXhandle hfil;
HistInt *lData = NULL;
static int NexusGetFrameSup(SConnection * pCon, char *filename,
int iDetector, int iFrame)
{
char pBueffel[132];
int iRet, type, rank, iDim[2];
NXhandle hfil;
HistInt *lData = NULL;
/* do a few range checks */
if(iDetector < 1 || iDetector > 3){
sprintf(pBueffel,"ERROR: unknown detector %d requested",iDetector);
SCWrite(pCon,pBueffel,eError);
return 0;
}
/* do a few range checks */
if (iDetector < 1 || iDetector > 3) {
sprintf(pBueffel, "ERROR: unknown detector %d requested", iDetector);
SCWrite(pCon, pBueffel, eError);
return 0;
}
/* open file */
iRet = NXopen(filename,NXACC_READ,&hfil);
if(iRet != NX_OK){
sprintf(pBueffel,"ERROR: cannot open %s",filename);
SCWrite(pCon,pBueffel,eError);
return 0;
}
/* open file */
iRet = NXopen(filename, NXACC_READ, &hfil);
if (iRet != NX_OK) {
sprintf(pBueffel, "ERROR: cannot open %s", filename);
SCWrite(pCon, pBueffel, eError);
return 0;
}
snprintf(pBueffel,131,"/frame%4.4d/detector%1.1d/counts",iFrame,
iDetector);
iRet = NXopenpath(hfil,pBueffel);
if(iRet != NX_OK){
sprintf(pBueffel,"ERROR: frame %d, detector %d not found in %s",
iFrame, iDetector,
filename);
SCWrite(pCon,pBueffel,eError);
NXclose(&hfil);
return 0;
}
NXgetinfo(hfil,&rank,iDim,&type);
snprintf(pBueffel, 131, "/frame%4.4d/detector%1.1d/counts", iFrame,
iDetector);
iRet = NXopenpath(hfil, pBueffel);
if (iRet != NX_OK) {
sprintf(pBueffel, "ERROR: frame %d, detector %d not found in %s",
iFrame, iDetector, filename);
SCWrite(pCon, pBueffel, eError);
NXclose(&hfil);
return 0;
}
NXgetinfo(hfil, &rank, iDim, &type);
lData = (HistInt *)malloc(iDim[0]*iDim[1]*sizeof(HistInt));
if(!lData){
SCWrite(pCon,"ERROR: out of memory in NexusGetFrame",eError);
NXclose(&hfil);
return 0;
}
memset(lData,0,iDim[0]*iDim[1]*sizeof(HistInt));
iRet = NXgetdata(hfil,lData);
if(iRet != NX_OK){
SCWrite(pCon,"ERROR: failed to read data",eError);
NXclose(&hfil);
return 0;
}
lData = (HistInt *) malloc(iDim[0] * iDim[1] * sizeof(HistInt));
if (!lData) {
SCWrite(pCon, "ERROR: out of memory in NexusGetFrame", eError);
NXclose(&hfil);
return 0;
}
memset(lData, 0, iDim[0] * iDim[1] * sizeof(HistInt));
iRet = NXgetdata(hfil, lData);
if (iRet != NX_OK) {
SCWrite(pCon, "ERROR: failed to read data", eError);
NXclose(&hfil);
return 0;
}
/* send it */
sprintf(pBueffel,"detector%1.1d",iDetector);
SCWriteZipped(pCon,pBueffel,lData,iDim[0]*iDim[1]*sizeof(HistInt));
/* send it */
sprintf(pBueffel, "detector%1.1d", iDetector);
SCWriteZipped(pCon, pBueffel, lData,
iDim[0] * iDim[1] * sizeof(HistInt));
/* clean up */
NXclose(&hfil);
free(lData);
return 1;
}
/* clean up */
NXclose(&hfil);
free(lData);
return 1;
}
/*----------------------------------------------------------------------*/
int MakeTricsSupport(SConnection *pCon, SicsInterp *pSics, void *pData,
int argc, char *argv[]){
int MakeTricsSupport(SConnection * pCon, SicsInterp * pSics, void *pData,
int argc, char *argv[])
{
pTricsSupport pNew = NULL;
pNew = CreateTricsSupport();
if(!pNew){
SCWrite(pCon,"ERROR: out of memory creating TricsSupport",eError);
if (!pNew) {
SCWrite(pCon, "ERROR: out of memory creating TricsSupport", eError);
return 0;
}
if(AddCommand(pSics,"tricssupport",TricsSupportAction,KillTricsSupport,
pNew) != 1){
SCWrite(pCon,"ERROR: duplicate command tricssupport not created",eError);
if (AddCommand
(pSics, "tricssupport", TricsSupportAction, KillTricsSupport,
pNew) != 1) {
SCWrite(pCon, "ERROR: duplicate command tricssupport not created",
eError);
return 0;
}
SCSendOK(pCon);
return 1;
}
/*-----------------------------------------------------------------------*/
int TricsSupportAction(SConnection *pCon, SicsInterp *pSics, void *pData,
int argc, char *argv[]){
int TricsSupportAction(SConnection * pCon, SicsInterp * pSics, void *pData,
int argc, char *argv[])
{
int iDet, iFrame, iRet;
long lID;
char pBueffel[131];
pTricsSupport self = (pTricsSupport)pData;
pTricsSupport self = (pTricsSupport) pData;
assert(self);
/* check for subcommands */
if(argc < 2){
snprintf(pBueffel,130,"ERROR: no subcommand found for %s",argv[0]);
SCWrite(pCon,pBueffel,eError);
if (argc < 2) {
snprintf(pBueffel, 130, "ERROR: no subcommand found for %s", argv[0]);
SCWrite(pCon, pBueffel, eError);
return 0;
}
strtolower(argv[1]);
if(strcmp(argv[1],"oldframe") == 0){
if(argc < 5){
SCWrite(pCon,"ERROR: insufficient number of arguments to oldframe",
eError);
if (strcmp(argv[1], "oldframe") == 0) {
if (argc < 5) {
SCWrite(pCon, "ERROR: insufficient number of arguments to oldframe",
eError);
return 0;
}
iDet = atoi(argv[3]);
iFrame = atoi(argv[4]);
iRet = NexusGetFrameSup(pCon,argv[2],iDet, iFrame);
return 1;
}
else if(strcmp(argv[1],"interest") == 0){
iRet = NexusGetFrameSup(pCon, argv[2], iDet, iFrame);
return 1;
} else if (strcmp(argv[1], "interest") == 0) {
lID = RegisterCallback(self->pCall,
NEWFRAME, FrameSupInterest,
NEWFRAME, FrameSupInterest,
SCCopyConnection(pCon), SCDeleteConnection);
SCSendOK(pCon);
return 1;
} else if(strcmp(argv[1],"newframe") == 0){
if(argc < 3){
return 1;
} else if (strcmp(argv[1], "newframe") == 0) {
if (argc < 3) {
SCWrite(pCon,
"ERROR: insufficient number of arguments to tricsupport newframe",
eError);
"ERROR: insufficient number of arguments to tricsupport newframe",
eError);
return 0;
}
iFrame = atoi(argv[2]);
InvokeCallBack(self->pCall, NEWFRAME,&iFrame);
InvokeCallBack(self->pCall, NEWFRAME, &iFrame);
SCSendOK(pCon);
return 1;
} else {
SCWrite(pCon,"ERROR: subcommand to tricssuport not understood",eError);
return 0;
SCWrite(pCon, "ERROR: subcommand to tricssuport not understood",
eError);
return 0;
}
}