Add cstructs test; more progress on c-statements play

1 files changed, 5 insertions, 0 deletions

diff --git a/lib/c.tcl b/lib/c.tcl
index 9874b83a..4318662f 100644
--- a/lib/c.tcl
+++ b/lib/c.tcl
@@ -14,6 +14,7 @@ namespace eval c {
 
             variable argtypes {
                 int { expr {{ Tcl_GetIntFromObj(interp, $obj, &$argname); }}}
+                size_t { expr {{ Tcl_GetIntFromObj(interp, $obj, &$argname); }}}
                 uint32_t { expr {{ sscanf(Tcl_GetString($obj), "%"PRIu32, &$argname); }}}
                 uint64_t { expr {{ sscanf(Tcl_GetString($obj), "%"PRIu64, &$argname); }}}
                 char* { expr {{ $argname = Tcl_GetString($obj); }} }
@@ -40,6 +41,10 @@ namespace eval c {
                     Tcl_SetObjResult(interp, Tcl_NewIntObj(rv));
                     return TCL_OK;
                 }}}
+                size_t { expr {{
+                    Tcl_SetObjResult(interp, Tcl_NewIntObj(rv));
+                    return TCL_OK;
+                }}}
                 uint32_t { expr {{
                     Tcl_SetObjResult(interp, Tcl_NewWideIntObj(rv));
                     return TCL_OK;