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