Ejemplo n.º 1
0
int Db::key_range(DbTxn *txnid, Dbt *key,
		  DB_KEY_RANGE *results, u_int32_t flags)
{
	DB *db = unwrap(this);
	int err;

	if ((err = db->key_range(db, unwrap(txnid), key,
				 results, flags)) != 0) {
		DB_ERROR("Db::key_range", err, error_policy());
		return (err);
	}
	return (0);
}
Ejemplo n.º 2
0
/* {{{ rberkeley_db_key_range */
SEXP rberkeley_db_key_range (SEXP _dbp, SEXP _txnid, SEXP _key, SEXP _flags)
{
  DB *dbp;
  DB_TXN *txnid;
  DBT key;
  DB_KEY_RANGE key_range;
  u_int32_t flags = (u_int32_t)INTEGER(_flags)[0];
  int ret;

  if(!isNull(_txnid)) {
    txnid = R_ExternalPtrAddr(_txnid);
  } else txnid = NULL;
  
  memset(&key, 0, sizeof(DBT));
  if(isNull(_key))
    error("key must be set");
  key.data = (unsigned char *)RAW(_key);
  key.size = length(_key);

  dbp = R_ExternalPtrAddr(_dbp);
  if(R_ExternalPtrTag(_dbp) != RBerkeley_DB || dbp == NULL)
    error("invalid 'db' handle");
 
  ret = dbp->key_range(dbp, txnid, &key, &key_range, flags); 
  if(ret != 0)
    return ScalarInteger(ret);
   
  SEXP KeyRange, names;
  PROTECT(KeyRange = allocVector(VECSXP, 3));
  SET_VECTOR_ELT(KeyRange, 0, ScalarReal(key_range.less));
  SET_VECTOR_ELT(KeyRange, 1, ScalarReal(key_range.equal));
  SET_VECTOR_ELT(KeyRange, 2, ScalarReal(key_range.greater));
  PROTECT(names = allocVector(STRSXP, 3));
  SET_STRING_ELT(names, 0, mkChar("less")); 
  SET_STRING_ELT(names, 1, mkChar("equal")); 
  SET_STRING_ELT(names, 2, mkChar("greater")); 
  
  setAttrib(KeyRange, R_NamesSymbol, names);
  UNPROTECT(2);
  return KeyRange;
}