/**
* Parents of a commit
*
* @param commit S4 class git_commit
* @return list of S4 class git_commit objects
*/
SEXP git2r_commit_parent_list(SEXP commit)
{
int err;
size_t i, n;
SEXP repo;
SEXP list = R_NilValue;
git_commit *commit_obj = NULL;
git_repository *repository = NULL;
if (git2r_arg_check_commit(commit))
git2r_error(git2r_err_commit_arg, __func__, "commit");
repo = GET_SLOT(commit, Rf_install("repo"));
repository = git2r_repository_open(repo);
if (!repository)
git2r_error(git2r_err_invalid_repository, __func__, NULL);
err = git2r_commit_lookup(&commit_obj, repository, commit);
if (GIT_OK != err)
goto cleanup;
n = git_commit_parentcount(commit_obj);
PROTECT(list = allocVector(VECSXP, n));
for (i = 0; i < n; i++) {
git_commit *parent = NULL;
SEXP item;
err = git_commit_parent(&parent, commit_obj, i);
if (GIT_OK != err)
goto cleanup;
SET_VECTOR_ELT(list, i, item = NEW_OBJECT(MAKE_CLASS("git_commit")));
git2r_commit_init(parent, repo, item);
git_commit_free(parent);
}
cleanup:
if (commit_obj)
git_commit_free(commit_obj);
if (repository)
git_repository_free(repository);
if (R_NilValue != list)
UNPROTECT(1);
if (GIT_OK != err)
git2r_error(git2r_err_from_libgit2, __func__, giterr_last()->message);
return list;
}
/**
* Get the tree pointed to by a commit
*
* @param commit S4 class git_commit or git_stash
* @return S4 class git_tree
*/
SEXP git2r_commit_tree(SEXP commit)
{
int err;
SEXP result = R_NilValue;
SEXP repo;
git_commit *commit_obj = NULL;
git_repository *repository = NULL;
git_tree *tree = NULL;
if (git2r_arg_check_commit(commit))
git2r_error(git2r_err_commit_arg, __func__, "commit");
repo = GET_SLOT(commit, Rf_install("repo"));
repository = git2r_repository_open(repo);
if (!repository)
git2r_error(git2r_err_invalid_repository, __func__, NULL);
err = git2r_commit_lookup(&commit_obj, repository, commit);
if (GIT_OK != err)
goto cleanup;
err = git_commit_tree(&tree, commit_obj);
if (GIT_OK != err)
goto cleanup;
PROTECT(result = NEW_OBJECT(MAKE_CLASS("git_tree")));
git2r_tree_init((git_tree*)tree, repo, result);
cleanup:
if (commit_obj)
git_commit_free(commit_obj);
if (tree)
git_tree_free(tree);
if (repository)
git_repository_free(repository);
if (R_NilValue != result)
UNPROTECT(1);
if (GIT_OK != err)
git2r_error(git2r_err_from_libgit2, __func__, giterr_last()->message);
return result;
}
/**
* Reset current HEAD to the specified state
*
* @param commit The commit to which the HEAD should be moved to.
* @param reset_type Kind of reset operation to perform. 'soft' means
* the Head will be moved to the commit. 'mixed' reset will trigger a
* 'soft' reset, plus the index will be replaced with the content of
* the commit tree. 'hard' reset will trigger a 'mixed' reset and the
* working directory will be replaced with the content of the index.
* @return R_NilValue
*/
SEXP git2r_reset(SEXP commit, SEXP reset_type)
{
int error;
SEXP repo;
git_commit *target = NULL;
git_repository *repository = NULL;
if (git2r_arg_check_commit(commit))
git2r_error(__func__, NULL, "'commit'", git2r_err_commit_arg);
if (git2r_arg_check_integer(reset_type))
git2r_error(__func__, NULL, "'reset_type'", git2r_err_integer_arg);
repo = git2r_get_list_element(commit, "repo");
repository = git2r_repository_open(repo);
if (!repository)
git2r_error(__func__, NULL, git2r_err_invalid_repository, NULL);
error = git2r_commit_lookup(&target, repository, commit);
if (error)
goto cleanup;
error = git_reset(
repository,
(git_object*)target,
INTEGER(reset_type)[0],
NULL);
cleanup:
git_commit_free(target);
git_repository_free(repository);
if (error)
git2r_error(__func__, GIT2R_ERROR_LAST(), NULL, NULL);
return R_NilValue;
}