Posted to tcl by hypnotoad at Fri Dec 05 19:44:28 GMT 2014view raw
- Tcl_Obj *%StructName%_StructToDict(
- Tcl_Interp *interp,
- %StructName% *p,
- int virtual
- ) {
- Tcl_Obj *pResult=NULL;
- int i;
- pResult=Tcl_NewObj();
- /* Finaly, Add the Tcl Data */
- for(i=0;i<CSTRUCT_%STRUCTNAME%_Count;i++) {
- Tcl_Obj *newElement=%StructName%_StructGet(p,i);
- if(newElement) {
- Tcl_DictObjPut(interp,pResult,Irm_NewStringObj(%StructName%_paramNameMap[i].zName),newElement);
- }
- }
- return pResult;
- }