C++ (Cpp) DB::get_lorder Exemples

Exemple #1

Fichier : db.c Projet : rforge/rberkeley

/* {{{ rberkeley_db_get_lorder */
SEXP rberkeley_db_get_lorder (SEXP _dbp)
{
  DB *dbp;
  int ret;
  int lorder;

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

  ret = dbp->get_lorder(dbp, &lorder);
  if(ret != 0) 
    return ScalarInteger(ret);
  return ScalarInteger(lorder);
}