linse/sics
0
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity
Files
23f539a4494de0cfd5dbbcba21d7e0a34225551c
sics/nxutil.c
koennecke b26b8fc735 - Changed strncpy to strlcpy, strncat to strlcat 
- Added strlcpy and strlcat to SICS
- Added a driver for the POLDI power supplies


SKIPPED:
	psi/A1931.c
	psi/autowin.c
	psi/bruker.c
	psi/docho.c
	psi/dornier2.c
	psi/dspcode.c
	psi/ease.c
	psi/ecb.c
	psi/ecbcounter.c
	psi/ecbdriv.c
	psi/el734dc.c
	psi/el734driv.c
	psi/el734hp.c
	psi/el737driv.c
	psi/el737hpdriv.c
	psi/el737hpdrivsps.c
	psi/el737hpv2driv.c
	psi/el755driv.c
	psi/eurodriv.c
	psi/haakedriv.c
	psi/itc4driv.c
	psi/julcho.c
	psi/linadriv.c
	psi/lmd200.c
	psi/lscsupport.c
	psi/ltc11.c
	psi/make_gen
	psi/oicom.c
	psi/oxinst.c
	psi/pimotor.c
	psi/pipiezo.c
	psi/polterwrite.c
	psi/psi.c
	psi/sanscook.c
	psi/sanslirebin.c
	psi/sanswave.c
	psi/sinqhmdriv.c
	psi/sinqhttp.c
	psi/slsecho.c
	psi/slsmagnet.c
	psi/slsvme.c
	psi/sps.c
	psi/swmotor.c
	psi/swmotor2.c
	psi/tabledrive.c
	psi/tasscan.c
	psi/tdchm.c
	psi/velodorn.c
	psi/velodornier.c
2010-04-13 15:08:38 +00:00

293 lines
8.1 KiB
C
Raw Blame History

/*-------------------------------------------------------------------------
N X U T I L
NeXus data file writing utilities for SICS.
Mark Koennecke, April 1998
----------------------------------------------------------------------------*/
#include <stdlib.h>
#include <time.h>
#include <assert.h>
#include "fortify.h"
#include "sics.h"
#include "motor.h"
#include "sicsvar.h"
#include "evcontroller.h"
#include "nxdict.h"
#include "nxutil.h"
/*-----------------------------------------------------------------------*/
int SNXSPutMotor(SicsInterp * pSics, SConnection * pCon,
NXhandle hFil, NXdict pDict, char *pAlias, char *pName)
{
pMotor pMot = NULL;
float fVal;
char pBueffel[512];
int iRet;
/* Find the motor */
strlcpy(pBueffel, pName, 511);
strtolower(pBueffel);
pMot = FindMotor(pSics, pBueffel);
if (!pMot) {
snprintf(pBueffel,sizeof(pBueffel)-1, "WARNING: cannot find motor %s", pName);
SCWrite(pCon, pBueffel, eWarning);
return 0;
}
/* get the position */
iRet = MotorGetSoftPosition(pMot, pCon, &fVal);
if (!iRet) { /* should have been reported */
return 0;
}
/* write it */
return NXDputalias(hFil, pDict, pAlias, &fVal);
}
/*-----------------------------------------------------------------------*/
int SNXSPutMotorNull(SicsInterp * pSics, SConnection * pCon,
NXhandle hFil, NXdict pDict,
char *pAlias, char *pName)
{
pMotor pMot = NULL;
float fVal;
char pBueffel[512];
int iRet;
/* Find the motor */
strlcpy(pBueffel, pName, 511);
strtolower(pBueffel);
pMot = FindMotor(pSics, pBueffel);
if (!pMot) {
snprintf(pBueffel,sizeof(pBueffel)-1, "WARNING: cannot find motor %s", pName);
SCWrite(pCon, pBueffel, eWarning);
return 0;
}
/* get the null point */
iRet = MotorGetPar(pMot, "softzero", &fVal);
if (!iRet) { /* should have been reported */
snprintf(pBueffel,sizeof(pBueffel)-1,
"WARNING: failed to find zero point for motor %s", pName);
SCWrite(pCon, pBueffel, eWarning);
return 0;
}
/* write it */
return NXDputalias(hFil, pDict, pAlias, &fVal);
}
/*-------------------------------------------------------------------------*/
int SNXSPutVariable(SicsInterp * pSics, SConnection * pCon,
NXhandle hFil, NXdict pDict, char *pAlias, char *pName)
{
pSicsVariable pVar = NULL;
int iRet;
float fVal;
int iVal;
char pBueffel[512];
VarType eType;
char *pText = NULL;
/* find it */
strlcpy(pBueffel, pName, 511);
strtolower(pBueffel);
pVar = FindVariable(pSics, pBueffel);
if (!pVar) {
snprintf(pBueffel,sizeof(pBueffel)-1, "WARNING: cannot find variable %s", pName);
SCWrite(pCon, pBueffel, eWarning);
return 0;
}
/* write it, depending on type */
eType = GetVarType(pVar);
switch (eType) {
case veText:
VarGetText(pVar, &pText);
if (pText != NULL) {
memset(pBueffel, 0, 511);
strlcpy(pBueffel, pText, 511);
iRet = NXDputalias(hFil, pDict, pAlias, pBueffel);
free(pText);
return iRet;
}
break;
case veInt:
VarGetInt(pVar, &iVal);
return NXDputalias(hFil, pDict, pAlias, &iVal);
break;
case veFloat:
VarGetFloat(pVar, &fVal);
return NXDputalias(hFil, pDict, pAlias, &fVal);
break;
default:
assert(0); /* should not happen */
}
return 1;
}
/*------------------------------------------------------------------------*/
void SNXFormatTime(char *pBuffer, int iBufLen)
{
time_t iDate;
struct tm *psTime;
/* make time string */
iDate = time(NULL);
psTime = localtime(&iDate);
memset(pBuffer, 0, iBufLen);
strftime(pBuffer, iBufLen, "%Y-%m-%d %H:%M:%S", psTime);
}
/*--------------------------------------------------------------------------*/
int SNXSPutGlobals(NXhandle hfil, char *pFilename,
char *pInst, SConnection * pCon)
{
pSicsVariable pVar = NULL;
char pBueffel[1024];
char *pUser, *pemail, *pPhone, *pFax, *pAddress;
int iRet;
/* write global attributes */
strcpy(pBueffel, "UNKNOWN");
pVar = FindVariable(pServ->pSics, "user");
if (pVar) {
pUser = pVar->text;
} else {
SCWrite(pCon, "WARNING: Variable user not found ", eWarning);
pUser = pBueffel;
}
pVar = FindVariable(pServ->pSics, "phone");
if (pVar) {
pPhone = pVar->text;
} else {
SCWrite(pCon, "WARNING: Variable phone not found ", eWarning);
pPhone = pBueffel;
}
pVar = FindVariable(pServ->pSics, "email");
if (pVar) {
pemail = pVar->text;
} else {
SCWrite(pCon, "WARNING: Variable email not found ", eWarning);
pemail = pBueffel;
}
pVar = FindVariable(pServ->pSics, "adress");
if (pVar) {
pAddress = pVar->text;
} else {
SCWrite(pCon, "WARNING: Variable adress not found ", eWarning);
pAddress = pBueffel;
}
pVar = FindVariable(pServ->pSics, "fax");
if (pVar) {
pFax = pVar->text;
} else {
SCWrite(pCon, "WARNING: Variable phone not found ", eWarning);
pFax = pBueffel;
}
iRet = NXUwriteglobals(hfil,
pFilename,
pUser, pAddress, pPhone, pemail, pFax, pInst);
if (iRet != NX_OK) {
SCWrite(pCon, "WARNING: failed writing global attributes to file",
eWarning);
}
return 1;
}
/*---------------------------------------------------------------------------*/
int SNXSPutEVVar(NXhandle hfil, NXdict pDict,
char *pName, SConnection * pCon,
char *pValAlias, char *pStdDevAlias)
{
CommandList *pCom = NULL;
pIDrivable pDriv = NULL;
float fMean, fStdDev;
pVarLog pLog = NULL;
int iRet;
char pBueffel[512];
pSicsVariable pVar = NULL;
pCom = NULL;
fMean = -111.;
fStdDev = -111.;
pCom = FindCommand(pServ->pSics, pName);
if (pCom) {
pDriv = GetDrivableInterface(pCom->pData);
if (pDriv) { /* it is a controller */
pLog = EVCGetVarLog((pEVControl) pCom->pData);
iRet = VarlogGetMean(pLog, &fMean, &fStdDev);
if (!iRet) { /* the data was not logged, get the value */
iRet = EVCGetPos((pEVControl) pCom->pData, pCon, &fMean);
}
} else {
/* it can still be a simple variable */
pVar = (pSicsVariable) pCom->pData;
fMean = pVar->fVal;
}
}
if (fMean < -110) {
snprintf(pBueffel,sizeof(pBueffel)-1, "WARNING: %s invalid", pName);
SCWrite(pCon, pBueffel, eWarning);
}
if (pStdDevAlias) {
if (fStdDev < -110) {
snprintf(pBueffel,sizeof(pBueffel)-1, "WARNING: %s standard deviation invalid", pName);
SCWrite(pCon, pBueffel, eWarning);
}
}
/* whatever it was, write it, even if it is shit */
iRet = NXDputalias(hfil, pDict, pValAlias, &fMean);
if (iRet != NX_OK) {
snprintf(pBueffel,sizeof(pBueffel)-1, "WARNING: failed to write %s", pName);
SCWrite(pCon, pBueffel, eWarning);
}
if (pStdDevAlias) {
iRet = NXDputalias(hfil, pDict, pStdDevAlias, &fStdDev);
if (iRet != NX_OK) {
snprintf(pBueffel,sizeof(pBueffel)-1, "WARNING: failed to write %s standard deviation",
pName);
SCWrite(pCon, pBueffel, eWarning);
}
}
return 1;
}
/*---------------------------------------------------------------------------*/
int SNXSPutDrivable(SicsInterp * pSics, SConnection * pCon,
NXhandle hfil, NXdict pDict, char *pName, char *pAlias)
{
CommandList *pCom = NULL;
pIDrivable pDriv = NULL;
float fVal = -777.77;
int iRet;
char pBueffel[512];
pCom = NULL;
pCom = FindCommand(pSics, pName);
if (pCom) {
pDriv = GetDrivableInterface(pCom->pData);
if (pDriv) { /* it is drivable */
fVal = pDriv->GetValue(pCom->pData, pCon);
} else {
snprintf(pBueffel,sizeof(pBueffel)-1, "ERROR: %s is not driveable, not written", pName);
SCWrite(pCon, pBueffel, eError);
return 0;
}
}
/* whatever it was, write it, even if it is shit */
iRet = NXDputalias(hfil, pDict, pAlias, &fVal);
if (iRet != NX_OK) {
snprintf(pBueffel,sizeof(pBueffel)-1, "WARNING: failed to write %s", pName);
SCWrite(pCon, pBueffel, eWarning);
return 0;
}
return 1;
}
Reference in New Issue View Git Blame Copy Permalink