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;
}