Support of Oracle native VARCHAR2 as Pascal-like strings (C-like strings are lossy for some cases) about ocilib HOT 4 CLOSED

unsigned int OCI_API OCI_GetDataSize
(
    OCI_Resultset *rs,
    unsigned int   index
)
{
    OCI_Define *def = NULL;

    OCI_LIB_CALL_ENTER(unsigned int , 0)

    OCI_CHECK_PTR(OCI_IPC_RESULTSET, rs)
    OCI_CHECK_BOUND(rs->stmt->con, index, 1, rs->nb_defs)

    def = OCI_GetDefine(rs, index);

    if (def && OCI_DefineIsDataNotNull(def))
    {
        ub2* lens = (ub2 *)def->buf.lens;

        call_retval = lens[rs->row_cur - 1];

        if (OCI_CDT_TEXT == def->col.datatype)
        {
            call_retval /= sizeof(otext);
        }
    }

    OCI_LIB_CALL_EXIT()
}

int main()
{
    OCI_Connection *cn;
    OCI_Statement  *st;
    OCI_Resultset  *rs;
    otext buf[128] = "";

    if (!OCI_Initialize(err_handler, NULL, OCI_ENV_DEFAULT))
        return EXIT_FAILURE;

    cn = OCI_ConnectionCreate("db12c", "usr", "pwd", OCI_SESSION_DEFAULT);
    st = OCI_StatementCreate(cn);

    OCI_ExecuteStmt(st, "SELECT value, LENGTH(VALUE), dump(VALUE) FROM (SELECT 'test' || chr(0) || 'me' VALUE FROM dual)");
    rs = OCI_GetResultset(st);
    while (OCI_FetchNext(rs))
    {
        printf("%s (size=%d) | %s (size=%d) | %s (size=%d)\n",
            OCI_GetString(rs, 1), OCI_GetDataSize(rs, 1),
            OCI_GetString(rs, 2), OCI_GetDataSize(rs, 2),
            OCI_GetString(rs, 3), OCI_GetDataSize(rs, 3));
    }

    OCI_Prepare(st, "begin :1 := 'test' || chr(0) || 'me'; end;");
    OCI_BindString(st, ":1", buf, sizeof(buf));
    OCI_Execute(st);

    printf("%s (size=%d), buf+5=%s\n", buf, OCI_BindGetDataSize(OCI_GetBind(st, 1)), buf + strlen(buf) + 1);

    OCI_ExecuteStmt(st, "create table temp(value varchar2(50))");
    OCI_ExecuteStmt(st, "insert into temp values( 'test' || chr(0) || 'me')");
    OCI_ExecuteStmt(st, " select value from temp");
    rs = OCI_GetResultset(st);
    while (OCI_FetchNext(rs))
    {
        char *s = OCI_GetString(rs, 1);
        printf("%s (size=%d), buf+5=%s\n", s, OCI_GetDataSize(rs, 1), s + strlen(s) + 1);
    }

    OCI_ExecuteStmt(st, "drop table temp");

    OCI_Cleanup();

    return EXIT_SUCCESS;
}