コード例 #1
0
ファイル: mlgsl_combi.c プロジェクト: Chris00/gsl-ocaml 
CAMLprim value ml_gsl_combination_valid(value vc)
{
    int r;
    gsl_combination c;
    combi_of_val(&c, vc);
    r = gsl_combination_valid(&c);
    return Val_not(Val_bool(r));
}
コード例 #2
0
ファイル: str.c プロジェクト: avsm/ocaml-community 
CAMLprim value caml_string_notequal(value s1, value s2)
{
  return Val_not(caml_string_equal(s1, s2));
}