OpenSSL::OCSP::BasicResponse.new

static VALUE
ossl_ocspbres_initialize(int argc, VALUE *argv, VALUE self)
{
    VALUE arg;
    OCSP_BASICRESP *bs_new;
    const unsigned char *p;

    rb_scan_args(argc, argv, "01", &arg);
    if (NIL_P(arg)) {
        bs_new = OCSP_BASICRESP_new();
        if (!bs_new)
            ossl_raise(eOCSPError, "OCSP_BASICRESP_new");
    }
    else {
        arg = ossl_to_der_if_possible(arg);
        StringValue(arg);
        p = (unsigned char *)RSTRING_PTR(arg);
        bs_new = d2i_OCSP_BASICRESP(NULL, &p, rb_len2long(RSTRING_LEN(arg)));
        if (!bs_new)
            ossl_raise(eOCSPError, "d2i_OCSP_BASICRESP");
    }
    RTYPEDDATA_DATA(self) = bs_new;
    return self;
}