Ejemplos de Unsigned_int_val en C++ (Cpp)

Ejemplo n.º 1

Archivo: jack_stubs.c Proyecto: savonet/ocaml-bjack

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

Ejemplo n.º 2

Archivo: jack_stubs.c Proyecto: savonet/ocaml-bjack

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

Ejemplo n.º 3

Archivo: jack_stubs.c Proyecto: savonet/ocaml-bjack

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

Ejemplo n.º 4

Archivo: bv.c Proyecto: amnh/phylocaml

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

Ejemplo n.º 5

Archivo: libpicosat_stubs.c Proyecto: abate/ocaml-picosat

CAMLprim value caml_picosat_set_seed(value seed) {
    CAMLparam1 (seed);
    picosat_set_seed(Unsigned_int_val(seed));
    CAMLreturn(Val_unit);
}