Posted to tcl by hypnotoad at Fri Dec 05 19:44:28 GMT 2014view pretty
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; }