&ints[3],
&ints[4]);
int i;
- for (i=0; i<N; i++) objl[i]= Tcl_NewIntObj(ints[i]);
+ for (i=0; i<N; i++) objl[i]= cht_ret_int(ip, ints[i]);
*result= Tcl_NewListObj(N,objl);
return TCL_OK;
#undef N
return TCL_OK;
}
+int cht_do_wiringpitcl_pwm_bal(ClientData cd, Tcl_Interp *ip) {
+ CHECK_SETUP;
+ pwmSetMode(PWM_MODE_BAL);
+ return TCL_OK;
+}
+
+int cht_do_wiringpitcl_pwm_ms(ClientData cd, Tcl_Interp *ip) {
+ CHECK_SETUP;
+ pwmSetMode(PWM_MODE_MS);
+ return TCL_OK;
+}
+
/*---------- families of operations ----------*/
#define SIMPLE_READER_OP(op, wpicall) \