Generating the code
Corresponding generated C code
XS(XS_Oracle__OCI_OCICollSize)
Perl_croak(aTHX_ "Usage: Oracle::OCI::OCICollSize(env, err, coll, size)");
OCIEnv * env = ora_getptr_OCIEnvPtr(ST(0), "env", "OCIEnvPtr", "OCICollSize");
OCIError * err = ora_getptr_OCIErrorPtr(ST(1), "err", "OCIErrorPtr", "OCICollSize");
OCIColl * coll = ora_getptr_OCICollPtr(ST(2), "coll", "OCICollPtr", "OCICollSize");
sb4 size = (sb4)SvIV(ST(3));
RETVAL = OCICollSize(env, err, coll, &size);
sv_setiv(ST(3), (IV)size);
XSprePUSH; PUSHi((IV)RETVAL);