GPS: I wanted to fetch integers from an array of Tcl_Obj. I didn't want to have a massive number of Tcl_GetIntFromObj polluting the flow of code. So, I came up with this solution:
/* REVISION 231 */
#include <stdarg.h>
#ifndef _GET_INTS_FROM_OBJS_C
#define _GET_INTS_FROM_OBJS_C
int
get_ints_from_objs ( Tcl_Interp *interp, Tcl_Obj *CONST objv[], int i, int end, ... ) {
va_list va;
va_start (va, end);
for (; i < end; ++i) {
int *i_ptr = va_arg (va, int *);
if (TCL_OK != Tcl_GetIntFromObj (interp, objv[i], i_ptr)) {
va_end (va);
return TCL_ERROR;
}
}
va_end (va);
return TCL_OK;
}
#endif /* _GET_INTS_FROM_OBJS_C */Example usage:
int x1, y1, x2, y2; if (TCL_OK != get_ints_from_objs (interp, objv, 3, 7, &x1, &y1, &x2, &y2)) return TCL_ERROR;