- Added some hipadab array math

- Added missing cnvrt files, stolen from Markus
- Debugged the new sinqhttpopt driver for SINQ HTTP HM
- Debugged the driver for the new S7 Siemens SPS
- Added handling of hexadecimal terminators to ascon.c
- Increased the write buffer size in asynnet again
- Fixed  a core dump in lld.c
- Added writing of second gen HM to nxscript.c
- Added doubletime command to SICS
- Fixed a core dump issue in sicshdbadapter.c on dimension changes
- Modified sicsobj to look for lower case keys too
This commit is contained in:
koennecke
2011-04-08 14:18:43 +00:00
parent 1384d9034a
commit 3eed3432cb
8 changed files with 210 additions and 21 deletions

View File

@ -6,6 +6,9 @@
copyright: see file copyright.h
Mark Koennecke, May 2001
Reworked a bit to work with second generation motors
Mark Koennecke, February 2011
--------------------------------------------------------------------------*/
#include <stdlib.h>
#include <assert.h>
@ -20,6 +23,7 @@
#include "hardsup/el734_def.h"
#include "hardsup/el734fix.h"
#include <modriv.h>
#include "macro.h"
#include "swmotor.h"
#include "swmotor.i"
@ -386,7 +390,11 @@ int SWMotorAction(SConnection * pCon, SicsInterp * pSics, void *pData,
/* check for list */
if (strcmp(pCurrent->text, "list") == 0) {
MotorListLL(self->pMaster, pCon);
snprintf(pBueffel,sizeof(pBueffel),"%s list", self->pMaster->name);
MacroPush(pCon);
iRet = Tcl_Eval(InterpGetTcl(pSics),pBueffel);
MacroPop();
SCWrite(pCon,(char *)Tcl_GetStringResult(InterpGetTcl(pSics)), eValue);
DeleteTokenList(pList);
return 1;
} /* check for reset */
@ -397,7 +405,11 @@ int SWMotorAction(SConnection * pCon, SicsInterp * pSics, void *pData,
DeleteTokenList(pList);
return 0;
}
MotorReset(self->pMaster);
snprintf(pBueffel,sizeof(pBueffel),"%s reset", self->pMaster->name);
MacroPush(pCon);
iRet = Tcl_Eval(InterpGetTcl(pSics),pBueffel);
MacroPop();
SCWrite(pCon,(char *)Tcl_GetStringResult(InterpGetTcl(pSics)), eValue);
DeleteTokenList(pList);
SCSendOK(pCon);
return 1;