- Fixed some subtle issues with the GumTree XML generation

This commit is contained in:
koennecke
2007-01-19 04:31:12 +00:00
parent fcb09a674f
commit f38289f0e8

View File

@ -9,7 +9,7 @@
*
* Introduced notification on tree changes, Mark Koennecke, November 2006
*
* Added Property functions, Mark Koennecke, January 2007
* Added property functions, Mark Koennecke, January 2007
*
* TODO: separate this into two modules: sicshipadaba proper and sicshipadabaint for the
* interpreter interface.
@ -1971,7 +1971,9 @@ static int ListHdbNode(SConnection *pCon, SicsInterp *pSics, void *pData,
return 0;
}
strtolower(argv[1]);
if(pathArg == 2) {
strtolower(argv[1]);
}
if(strcmp(argv[1],"-val") == 0){
listData = formatListWithVal(node);
} else if(strcmp(argv[1],"-cli") == 0){
@ -2288,12 +2290,12 @@ static int GetSICSHdbProperty(SConnection *pCon, SicsInterp *pSics, void *pData,
}
targetNode = locateSICSNode(pSics,pCon,argv[1]);
if(targetNode == NULL){
SCWrite(pCon,"ERROR: node not found",eError);
SCWrite(pCon,"ERROR: node not found",eValue);
return 0;
}
status = GetHdbProperty(targetNode,argv[2],buffer,511);
if(status != 1){
SCWrite(pCon,"ERROR: attribute not found",eError);
SCWrite(pCon,"ERROR: attribute not found",eValue);
return 0;
}
SCPrintf(pCon,eValue,"%s.%s = %s", argv[1], argv[2], buffer);