Posted to tcl by hypnotoad at Fri Dec 05 19:44:28 GMT 2014view raw

  1. Tcl_Obj *%StructName%_StructToDict(
  2. Tcl_Interp *interp,
  3. %StructName% *p,
  4. int virtual
  5. ) {
  6. Tcl_Obj *pResult=NULL;
  7. int i;
  8.  
  9. pResult=Tcl_NewObj();
  10. /* Finaly, Add the Tcl Data */
  11. for(i=0;i<CSTRUCT_%STRUCTNAME%_Count;i++) {
  12. Tcl_Obj *newElement=%StructName%_StructGet(p,i);
  13. if(newElement) {
  14. Tcl_DictObjPut(interp,pResult,Irm_NewStringObj(%StructName%_paramNameMap[i].zName),newElement);
  15. }
  16. }
  17. return pResult;
  18. }