Esempio n. 1
0
/* {{{ 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);
}