Example #1
0
/* {{{ rberkeley_db_get_multiple */
SEXP rberkeley_db_get_multiple (SEXP _dbp) {
  DB *dbp;
  int ret;

  dbp = R_ExternalPtrAddr(_dbp);
  if(R_ExternalPtrTag(_dbp) != RBerkeley_DB || dbp == NULL)
    error("invalid 'db' handle");

  ret = dbp->get_multiple(dbp);

  return ScalarInteger(ret);
}