emp;
}
</pre>
</div>

<br>

<div class="code">
<pre>
%typemap(out) int, short, long {
  Tcl_SetIntObj($result, (int) $1);
}
</pre>
</div>

<p>
<b>Floating point conversion</b>
</p>

<div class="code">
<pre>
%typemap(in) float, double {
  double temp;
  if (Tcl_GetDoubleFromObj(interp, $input, &amp;temp) == TCL_ERROR)
    return TCL_ERROR;
  $1 = ($1_ltype) temp;
}
</pre>
</div>

<br>

<div class="code">
<pre>
%typemap(out) float, double {
  Tcl_SetDoubleObj($result, $1);
}
</pre>
</div>

<p>
<b>String Conve