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; }