gistfile1.c

CAMLprim value mlzmq_version(value unit)
{
    CAMLparam1(unit);
    int major, minor, patch;
    zmq_version(&major, &minor, &patch);

    CAMLlocal1( result );
    result = caml_alloc(3, 0);

    Store_field( result, 0, Val_int major );
    Store_field( result, 1, Val_int minor );
    Store_field( result, 2, Val_int patch );

    CAMLreturn( result );
}