rsion</b>
</p>

<div class="code">
<pre>
%typemap(in) char * {
  int len;
  $1 = Tcl_GetStringFromObj(interp, &amp;len);
}
</pre>
</div>

<br>

<div class="code">
<pre>
%typemap(out, noblock=1, fragment="SWIG_FromCharPtr") char *, const char * {
  Tcl_SetObjResult(interp, SWIG_FromCharPtr((const char *)$1));
}

</pre>
</div>

<H3><a name="Tcl_nn42">37.7.8 Pointer handling</a></H3>


<p>
SWIG pointers are mapped into Tcl strings containing the
hexadecimal value and type.  The following functions can be used 