C++ (Cpp) DB::get_errpfx Examples

Example #1

File: db.c Project: rforge/rberkeley

/* {{{ rberkeley_db_get_errpfx */
SEXP rberkeley_db_get_errpfx (SEXP _dbp)
{
  DB *dbp;
  const char *errpfx;
  
  dbp = R_ExternalPtrAddr(_dbp);
  if(R_ExternalPtrTag(_dbp) != RBerkeley_DB || dbp == NULL)
    error("invalid 'db' handle");

  dbp->get_errpfx(dbp, &errpfx);
  return R_MakeExternalPtr(&errpfx, install("errpfx"), ScalarLogical(TRUE));
}