/* {{{ 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); }