C++ (Cpp) DB::get_encrypt_flags示例

示例#1

文件： db.c 项目： rforge/rberkeley

/* {{{ rberkeley_db_get_encrypt_flags */
SEXP rberkeley_db_get_encrypt_flags (SEXP _dbp)
{
  DB *dbp;
  int ret;
  u_int32_t flagsp;

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

  ret = dbp->get_encrypt_flags(dbp, &flagsp);

  if(ret != 0)
    return ScalarInteger(ret);

  return ScalarInteger((int)flagsp);
}