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

- New drivers for EL737 and EL734 high performance

Browse Source 
- Changes to makefiles
This commit is contained in:
cvs
2003-07-08 13:26:54 +00:00
parent cd13637987
commit 3a45c3051d
13 changed files with 1785 additions and 14 deletions
Download Patch File Download Diff File Expand all files Collapse all files

20
psi.c
View File

@ -101,6 +101,7 @@ static void RemovePsiCommands(SicsInterp *pSics){
/*---------------------------------------------------------------------*/
MotorDriver *CreateEL734(SConnection *pCon, int argc, char *argv[]);
MotorDriver *CreateEL734DC(SConnection *pCon, int argc, char *argv[]);
MotorDriver *CreateEL734HP(SConnection *pCon, int argc, char *argv[]);
/*-------------------------------------------------------------------*/
static pMotor CreatePsiMotor(SConnection *pCon, int argc, char *argv[]){
MotorDriver *pDriver = NULL;
@ -134,6 +135,18 @@ static pMotor CreatePsiMotor(SConnection *pCon, int argc, char *argv[]){
SCWrite(pCon,pBueffel,eError);
return NULL;
}
} else if(strcmp(argv[1],"el734hp") == 0){
pDriver = (MotorDriver *)CreateEL734HP(pCon,argc-2,&argv[2]);
if(!pDriver){
return NULL;
}
/* create the motor */
pNew = MotorInit("EL734HP",argv[0],pDriver);
if(!pNew){
sprintf(pBueffel,"Failure to create motor %s",argv[1]);
SCWrite(pCon,pBueffel,eError);
return NULL;
}
} else if(strcmp(argv[1],"el734dc") == 0){
pDriver = (MotorDriver *)CreateEL734DC(pCon,argc-2,&argv[2]);
if(!pDriver){
@ -164,6 +177,8 @@ static pMotor CreatePsiMotor(SConnection *pCon, int argc, char *argv[]){
/*-------------------------------------------------------------------*/
extern pCounterDriver CreateEL737Counter(SConnection *pCon, char *name,
int argc, char *argv[]);
extern pCounterDriver MakeEL737HP(SConnection *pCon, char *name,
int argc, char *argv[]);
/*-------------------------------------------------------------------*/
static pCounterDriver CreatePsiCounterDriver(SConnection *pCon,
int argc,
@ -175,6 +190,8 @@ static pCounterDriver CreatePsiCounterDriver(SConnection *pCon,
*/
if(strcmp(argv[2],"el737") == 0){
pNew = CreateEL737Counter(pCon,argv[1],argc-3,&argv[3]);
} else if(strcmp(argv[2],"el737hp") == 0){
pNew = MakeEL737HP(pCon,argv[1],argc-3,&argv[3]);
} else if(strcmp(argv[2],"ecb") == 0){
if(argc < 4){
SCWrite(pCon,
@ -199,12 +216,15 @@ static HistDriver *CreatePsiHistMem(char *name, pStringDict pOptions){
}
/*-------------------------------------------------------------------*/
extern pVelSelDriv VSCreateDornierSINQ(char *name,Tcl_Interp *pTcl);
extern pVelSelDriv VSCreateDornier2003(char *name,Tcl_Interp *pTcl);
/*-------------------------------------------------------------------*/
static pVelSelDriv CreatePsiVelSelDriv(char *name, char *array,
Tcl_Interp *pTcl){
pVelSelDriv pNew = NULL;
if(strcmp(name,"dornier") == 0){
pNew = VSCreateDornierSINQ(array,pTcl);
} else if(strcmp(name,"dornier2003") == 0){
pNew = VSCreateDornier2003(array,pTcl);
}
return pNew;
}