- 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:
16
swmotor.c
16
swmotor.c
@ -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;
|
||||
|
Reference in New Issue
Block a user