/* {{{ rberkeley_dbcursor_set_priority */ SEXP rberkeley_dbcursor_set_priority (SEXP _dbc, SEXP _priority) { DBC *dbc; DB_CACHE_PRIORITY priority; int ret; dbc = R_ExternalPtrAddr(_dbc); if(R_ExternalPtrTag(_dbc) != install("DBC") || dbc == NULL) error("invalid 'dbc' handle"); priority = (DB_CACHE_PRIORITY)INTEGER(_priority)[0]; ret = dbc->set_priority(dbc, priority); return ScalarInteger(ret); }