Swig example showing access to C structures from Tcl