Lib/tcl/typemaps.i

86 %typemap(in) short *INPUT(int ivalue, short temp), short &INPUT(int ivalue, short temp)
88   if (Tcl_GetIntFromObj(interp,$input,&ivalue) == TCL_ERROR) {
91   temp = (short) ivalue;
95 %typemap(in) long *INPUT(int ivalue, long temp), long &INPUT(int ivalue, long temp)
97   if (Tcl_GetIntFromObj(interp,$input,&ivalue) == TCL_ERROR) {
100   temp = (long) ivalue;
104 %typemap(in) unsigned int  *INPUT(int ivalue, unsigned int temp),
105              unsigned int  &INPUT(int ivalue, unsigned int temp)
107   if (Tcl_GetIntFromObj(interp,$input,&ivalue) == TCL_ERROR) {
110   temp = (unsigned int) ivalue;
114 %typemap(in) unsigned short *INPUT(int ivalue, unsigned short temp),
115              unsigned short &INPUT(int ivalue, unsigned short temp)
117   if (Tcl_GetIntFromObj(interp,$input,&ivalue) == TCL_ERROR) {
120   temp = (unsigned short) ivalue;
124 %typemap(in) unsigned long *INPUT(int ivalue, unsigned long temp),
125              unsigned long &INPUT(int ivalue, unsigned long temp)
127   if (Tcl_GetIntFromObj(interp,$input,&ivalue) == TCL_ERROR) {
130   temp = (unsigned long) ivalue;
134 %typemap(in) unsigned char *INPUT(int ivalue, unsigned char temp),
135              unsigned char &INPUT(int ivalue, unsigned char temp)
137   if (Tcl_GetIntFromObj(interp,$input,&ivalue) == TCL_ERROR) {
140   temp = (unsigned char) ivalue;
144 %typemap(in) signed char *INPUT(int ivalue, signed char temp),
145              signed char &INPUT(int ivalue, signed char temp)
147   if (Tcl_GetIntFromObj(interp,$input,&ivalue) == TCL_ERROR) {
150   temp = (signed char) ivalue;
154 %typemap(in) bool *INPUT(int ivalue, bool temp),
155              bool &INPUT(int ivalue, bool temp)
157   if (Tcl_GetIntFromObj(interp,$input,&ivalue) == TCL_ERROR) {
160   temp = ivalue ? true : false;