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

List items should not be separated by spaces.

Browse Source
This commit is contained in:
hauser_n
2006-05-01 00:37:07 +00:00
parent 38cfea4865
commit 63a15ef00b
1 changed files with 4 additions and 4 deletions
Download Patch File Download Diff File Expand all files Collapse all files

8
sicslist.c
View File

@ -24,7 +24,7 @@ static void listAllObjects(SConnection *pCon, SicsInterp *pSics){
while(pCom != NULL){ while(pCom != NULL){
Tcl_DStringAppend(&lst,pCom->pName,-1); Tcl_DStringAppend(&lst,pCom->pName,-1);
pCom = pCom->pNext; pCom = pCom->pNext;
Tcl_DStringAppend(&lst, ", ",-1); Tcl_DStringAppend(&lst, ",",-1);
} }
Tcl_DStringAppend(&lst,"ENDLIST",-1); Tcl_DStringAppend(&lst,"ENDLIST",-1);
SCWrite(pCon,Tcl_DStringValue(&lst), eValue); SCWrite(pCon,Tcl_DStringValue(&lst), eValue);
@ -192,7 +192,7 @@ static void listToString(int list,Tcl_DString *txt){
pPtr = (char *)LLDnodePtr(list); pPtr = (char *)LLDnodePtr(list);
if(pPtr != NULL){ if(pPtr != NULL){
Tcl_DStringAppend(txt,pPtr,-1); Tcl_DStringAppend(txt,pPtr,-1);
Tcl_DStringAppend(txt, ", ",-1); Tcl_DStringAppend(txt, ",",-1);
} }
status = LLDnodePtr2Next(list); status = LLDnodePtr2Next(list);
} }
@ -257,7 +257,7 @@ static void printObjectsMatchingKeyVal(SicsInterp *pSics,
} }
if(status == 1){ if(status == 1){
Tcl_DStringAppend(&result,pCom->pName,-1); Tcl_DStringAppend(&result,pCom->pName,-1);
Tcl_DStringAppend(&result, ", ",-1); Tcl_DStringAppend(&result, ",",-1);
} }
pCom = pCom->pNext; pCom = pCom->pNext;
} }
@ -441,7 +441,7 @@ static void printMatch(SConnection *pCon, SicsInterp *pSics,
while(current != NULL){ while(current != NULL){
if(!match(mask,current->pName)){ if(!match(mask,current->pName)){
Tcl_DStringAppend(&txt, current->pName,-1); Tcl_DStringAppend(&txt, current->pName,-1);
Tcl_DStringAppend(&txt, ", ",-1); Tcl_DStringAppend(&txt, ",",-1);
} }
current = current->pNext; current = current->pNext;
} }