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

- DMC McStas simulation working

Browse Source
This commit is contained in:
koennecke
2005-07-05 07:06:16 +00:00
parent 371ec68262
commit f11384ad2f
4 changed files with 13 additions and 12 deletions
Download Patch File Download Diff File Expand all files Collapse all files

14
pimotor.c
View File

@ -310,7 +310,7 @@
memset(pNew,0,sizeof(C804Driv));
/* connection parameters */
pPar = Tcl_GetVar2(pTcl,pArray,"Computer",TCL_GLOBAL_ONLY);
pPar = Tcl_GetVar2(pTcl,pArray,"Computer",TCL_LEAVE_ERR_MSG);
if(!pPar)
{
Tcl_SetResult(pTcl,"Failed to find serial port server host name",NULL);
@ -320,7 +320,7 @@
pNew->hostname = strdup(pPar);
pPar = NULL;
pPar = Tcl_GetVar2(pTcl,pArray,"port",TCL_GLOBAL_ONLY);
pPar = Tcl_GetVar2(pTcl,pArray,"port",TCL_LEAVE_ERR_MSG);
if(!pPar)
{
Tcl_SetResult(pTcl,"Failed to find serial port server port adress",NULL);
@ -337,7 +337,7 @@
pNew->iPort = iVal;
pPar = NULL;
pPar = Tcl_GetVar2(pTcl,pArray,"channel",TCL_GLOBAL_ONLY);
pPar = Tcl_GetVar2(pTcl,pArray,"channel",TCL_LEAVE_ERR_MSG);
if(!pPar)
{
Tcl_SetResult(pTcl,"Failed to find serial port server channel adress",NULL);
@ -354,7 +354,7 @@
pNew->iChannel = iVal;
pPar = NULL;
pPar = Tcl_GetVar2(pTcl,pArray,"motor",TCL_GLOBAL_ONLY);
pPar = Tcl_GetVar2(pTcl,pArray,"motor",TCL_LEAVE_ERR_MSG);
if(!pPar)
{
Tcl_SetResult(pTcl,"Failed to find motor number",NULL);
@ -372,7 +372,7 @@
/* limits */
pPar = NULL;
pPar = Tcl_GetVar2(pTcl,pArray,"lowerlimit",TCL_GLOBAL_ONLY);
pPar = Tcl_GetVar2(pTcl,pArray,"lowerlimit",TCL_LEAVE_ERR_MSG);
if(!pPar)
{
Tcl_SetResult(pTcl,"Failed to find lower motor limit",NULL);
@ -389,7 +389,7 @@
pNew->fLower = dVal;
pPar = NULL;
pPar = Tcl_GetVar2(pTcl,pArray,"upperlimit",TCL_GLOBAL_ONLY);
pPar = Tcl_GetVar2(pTcl,pArray,"upperlimit",TCL_LEAVE_ERR_MSG);
if(!pPar)
{
Tcl_SetResult(pTcl,"Failed to find upper motor limit",NULL);
@ -423,7 +423,7 @@
SerialConfig(&pNew->pSerial,0);
sprintf(pCommand,"%1.1dMN\r",pNew->iMotor);
SerialWriteRead(&pNew->pSerial,pCommand,pReply,39);
SerialConfig(&pNew->pSerial,iTmo);
SerialConfig(&pNew->pSerial,iTmo+5000);
/* configure the connection */
SerialATerm(&pNew->pSerial,"1\x03");