- Added sicscommand property to automatically generated nodes

This commit is contained in:
koennecke
2007-12-19 09:53:54 +00:00
parent b60f7f25f3
commit 20363331a6
2 changed files with 8 additions and 2 deletions

View File

@ -119,6 +119,7 @@ static int MotorParGetCallback(void *userData, void *callData,
static pHdb MakeMotParNode(char *name, pMotor pMot){ static pHdb MakeMotParNode(char *name, pMotor pMot){
pHdb node = NULL; pHdb node = NULL;
pHdbCallback pCall = NULL; pHdbCallback pCall = NULL;
char command[1024];
node = MakeHipadabaNode(name, HIPFLOAT, 1); node = MakeHipadabaNode(name, HIPFLOAT, 1);
if(node != NULL) { if(node != NULL) {
@ -131,7 +132,9 @@ static pHdb MakeMotParNode(char *name, pMotor pMot){
if(pCall == NULL){ if(pCall == NULL){
return NULL; return NULL;
} }
AppendHipadabaCallback(node,HCBREAD,pCall); AppendHipadabaCallback(node,HCBREAD,pCall);
snprintf(command,1023,"%s %s ", pMot->name, name);
SetHdbProperty(node,"sicscommand", command);
} }
return node; return node;
} }
@ -380,6 +383,7 @@ static pHdb MakeSicsVarNode(pSicsVariable pVar, char *name){
pHdbCallback pCall = NULL; pHdbCallback pCall = NULL;
commandContext comCom; commandContext comCom;
int type; int type;
char command[1024];
switch(pVar->eType){ switch(pVar->eType){
case veInt: case veInt:
@ -410,6 +414,8 @@ static pHdb MakeSicsVarNode(pSicsVariable pVar, char *name){
AppendHipadabaCallback(node,HCBSET,pCall); AppendHipadabaCallback(node,HCBSET,pCall);
RegisterCallback(pVar->pCall,comCom, VALUECHANGE, ValueCallback, RegisterCallback(pVar->pCall,comCom, VALUECHANGE, ValueCallback,
node,NULL); node,NULL);
snprintf(command,1023,"%s ", pVar->name);
SetHdbProperty(node,"sicscommand",command);
node->protected = 1; node->protected = 1;
return node; return node;

View File

@ -928,7 +928,7 @@ pHdb MakeSICSScriptPar(char *name, char *setScript, char *readScript,
* put into the list of nodes to check with the update task * put into the list of nodes to check with the update task
*/ */
/* LLDnodeAppend(scriptUpdate,&result); */ /* LLDnodeAppend(scriptUpdate,&result); */
SetHdbProperty(result,"sicscommand",setScript);
return result; return result;
} }
/*-------------------------------------------------------------------------*/ /*-------------------------------------------------------------------------*/