- Currently disabled attempts at logging commands
- Added a warning for excessive data rates on monitors - Added statistics to devser and thus to scriptcontext - Added byte concatenation to dynstring - Added aborting for reflection generation to fourmess.c - Added data checksum testing to hipadaba, use for update tests - Fixed interrupt discovery in network.c, caused invalid interrupt codes which in turn confused sicscron which had to be fixed too. - Renamed ubcalc into ubcalcint in order to reclaim the ubcalc for Jurg - Added an a3offset to tasub in order to fix what I perceive an IS problem - Added support for the newer version of the Siemens SPS, the S7 - Added a not yet fully working sinqhttpopt driver which talks to http HM without libghttp SKIPPED: psi/delcam.c psi/make_gen psi/psi.c psi/sinq.c psi/sinq.h psi/sinqhttpopt.c psi/slsvme.c psi/spss7.c
This commit is contained in:
24
tasub.c
24
tasub.c
@ -1857,7 +1857,7 @@ int TasUBWrapper(SConnection * pCon, SicsInterp * pSics, void *pData,
|
||||
ptasUB self = NULL;
|
||||
char pBueffel[131];
|
||||
int status, newSS;
|
||||
double misalign = .0;
|
||||
double misalign = .0, a3offset;
|
||||
|
||||
self = (ptasUB) pData;
|
||||
assert(self != NULL);
|
||||
@ -2039,6 +2039,28 @@ int TasUBWrapper(SConnection * pCon, SicsInterp * pSics, void *pData,
|
||||
SCWrite(pCon, pBueffel, eValue);
|
||||
return 1;
|
||||
}
|
||||
} else if (strcmp(argv[1], "a3offset") == 0) {
|
||||
if (argc > 2) {
|
||||
strtolower(argv[2]);
|
||||
if (!SCMatchRights(pCon, usMugger)) {
|
||||
return 0;
|
||||
}
|
||||
status = Tcl_GetDouble(InterpGetTcl(pSics), argv[2], &a3offset);
|
||||
if (status != TCL_OK) {
|
||||
SCWrite(pCon, "ERROR: failed to convert argument to number",
|
||||
eError);
|
||||
return 0;
|
||||
}
|
||||
self->machine.a3offset = a3offset;
|
||||
invokeUpdate(self,pCon,"main");
|
||||
SCSendOK(pCon);
|
||||
return 1;
|
||||
} else {
|
||||
snprintf(pBueffel, 131, "%s.a3offset = %lf", argv[0],
|
||||
self->machine.a3offset);
|
||||
SCWrite(pCon, pBueffel, eValue);
|
||||
return 1;
|
||||
}
|
||||
} else if (strcmp(argv[1], "silent") == 0) {
|
||||
if (argc > 2) {
|
||||
strtolower(argv[2]);
|
||||
|
Reference in New Issue
Block a user