static void doPadDrive (int argc, char *argv [])
{
int group, val ;
if (argc != 4)
{
fprintf (stderr, "Usage: %s drive group value\n", argv [0]) ;
exit (1) ;
}
group = atoi (argv [2]) ;
val = atoi (argv [3]) ;
if ((group < 0) || (group > 2))
{
fprintf (stderr, "%s: drive group not 0, 1 or 2: %d\n", argv [0], group) ;
exit (1) ;
}
if ((val < 0) || (val > 7))
{
fprintf (stderr, "%s: drive value not 0-7: %d\n", argv [0], val) ;
exit (1) ;
}
setPadDrive (group, val) ;
}
/* setPadDrive
*
* Parameters:
* - group: int
* - value: int
* Return Type: void
*/
mrb_value
mrb_Pi_setPadDrive(mrb_state* mrb, mrb_value self) {
mrb_int native_group;
mrb_int native_value;
/* Fetch the args */
mrb_get_args(mrb, "ii", &native_group, &native_value);
/* Invocation */
setPadDrive(native_group, native_value);
return mrb_nil_value();
}
static foreign_t
pl_setPadDrive (term_t group_, term_t value_){
int group,value;
if (!PL_get_integer(group,&group))
{
PL_warning("Argument 'group' not number");
PL_fail;
}
if (!PL_get_integer(value,&value))
{
PL_warning("Argument 'value' not number");
PL_fail;
}
setPadDrive(group,value);
PL_succeed;
}
