CAMLprim value caml_bjack_set_channel_volume(value d, value channel, value volume) { CAMLparam3(d,channel,volume); int ret = JACK_SetVolumeForChannel(Bjack_drv_val(d),Unsigned_int_val(channel),Unsigned_int_val(volume)) ; if (ret != 0) caml_failwith("volume"); CAMLreturn(Val_unit); }
CAMLprim value caml_bjack_get_channel_volume(value d, value channel) { CAMLparam2(d,channel); unsigned int volume; JACK_GetVolumeForChannel(Bjack_drv_val(d),Unsigned_int_val(channel),&volume) ; CAMLreturn(Val_long(volume)); }
CAMLprim value caml_bjack_set_all_volume(value d, value volume) { CAMLparam2(d,volume); int ret = JACK_SetAllVolume(Bjack_drv_val(d),Unsigned_int_val(volume)) ; if (ret != 0) caml_failwith("volume"); CAMLreturn(Val_unit); }
value bv_CAML_setbit( value vbv, value vi, value vs ) { CAMLparam3( vbv, vi, vs ); vect *bv; unsigned int s; CTYPE mask; bv= Vect_val(vbv); s = Unsigned_int_val(vs); assert( s < bv->msize ); mask = 1 << s; bv->data[ Int_val(vi) ] |= mask; CAMLreturn( Val_unit ); }
CAMLprim value caml_picosat_set_seed(value seed) { CAMLparam1 (seed); picosat_set_seed(Unsigned_int_val(seed)); CAMLreturn(Val_unit); }