Add support for getting the status of all files in the index and/or working directory about p5-git-raw HOT 8 CLOSED

sub status
{
    my ($self, $opts, @files) = @_;
}

#define GIT_STATUS_OPT_DEFAULTS \
        (GIT_STATUS_OPT_INCLUDE_IGNORED | \
        GIT_STATUS_OPT_INCLUDE_UNTRACKED | \
        GIT_STATUS_OPT_RECURSE_UNTRACKED_DIRS)

HV *
status_index_files(self)
    Repository self

    CODE:
    {
        size_t i;
        git_status_list *status;
        HV *files;

        git_status_options opt = GIT_STATUS_OPTIONS_INIT;
        opt.show = GIT_STATUS_SHOW_INDEX_ONLY;
        opt.flags = GIT_STATUS_OPT_EXCLUDE_SUBMODULES | GIT_STATUS_OPT_RENAMES_HEAD_TO_INDEX;

        git_check_error (git_status_list_new (&status, self, &opt));

        files = newHV();
        for (i = 0; i < git_status_list_entrycount (status); ++i)
        {
            SV **indexFiles;
            const char *old_path, *new_path;
            const char *key = NULL;
            const git_status_entry *s = git_status_byindex (status, i);

            if (s->status == GIT_STATUS_CURRENT || s->status == GIT_STATUS_INDEX_TYPECHANGE)
            {
                continue;
            }

            new_path = s->head_to_index->new_file.path;
            old_path = s->head_to_index->old_file.path;

            if (s->status & GIT_STATUS_INDEX_NEW)
            {
                key = "new";
            }
            else if (s->status & GIT_STATUS_INDEX_MODIFIED)
            {
                key = "modified";
            }
            else if (s->status & GIT_STATUS_INDEX_DELETED)
            {
                key = "deleted";
            }
            else if (s->status & GIT_STATUS_INDEX_RENAMED)
            {
                key = "renamed";
            }

            indexFiles = hv_fetch (files, key, strlen (key), 1);
            if (indexFiles != NULL)
            {
                HV * fileInfo = newHV();

                if (!SvOK (*indexFiles))
                {
                    *indexFiles = newRV_noinc ((SV*) newAV());
                }

                hv_store (fileInfo, "old", strlen ("old"), newSVpv (old_path, 0), 0);
                hv_store (fileInfo, "new", strlen ("new"), newSVpv (new_path, 0), 0);

                av_push ((AV *) SvRV (*indexFiles), (SV *) newRV_noinc ((SV*) fileInfo));
            }
        }

        sv_2mortal ((SV*) files);
        RETVAL = files;
    }

    OUTPUT: RETVAL

HV *
status_worktree_files(self)
    Repository self

    CODE:
    {
        size_t i;
        git_status_list *status;
        HV *files;

        git_status_options opt = GIT_STATUS_OPTIONS_INIT;
        opt.show = GIT_STATUS_SHOW_WORKDIR_ONLY;
        opt.flags = GIT_STATUS_OPT_EXCLUDE_SUBMODULES | GIT_STATUS_OPT_INCLUDE_UNTRACKED | GIT_STATUS_OPT_RENAMES_INDEX_TO_WORKDIR;

        git_check_error (git_status_list_new (&status, self, &opt));

        files = newHV();
        for (i = 0; i < git_status_list_entrycount (status); ++i)
        {
            SV ** worktreeFiles;
            const char *old_path, *new_path;
            const char *key = NULL;
            const git_status_entry *s = git_status_byindex (status, i);

            if (s->status == GIT_STATUS_CURRENT || s->status == GIT_STATUS_WT_TYPECHANGE)
            {
                continue;
            }

            new_path = s->index_to_workdir->new_file.path;
            old_path = s->index_to_workdir->old_file.path;

            if (s->status & GIT_STATUS_WT_NEW)
            {
                key = "new";
            }
            else if (s->status & GIT_STATUS_WT_MODIFIED)
            {
                key = "modified";
            }
            else if (s->status & GIT_STATUS_WT_DELETED)
            {
                key = "deleted";
            }
            else if (s->status & GIT_STATUS_WT_RENAMED)
            {
                key = "renamed";
            }

            worktreeFiles = hv_fetch (files, key, strlen (key), 1);
            if (worktreeFiles != NULL)
            {
                HV * fileInfo = newHV();

                if (!SvOK (*worktreeFiles))
                {
                    *worktreeFiles = newRV_noinc ((SV*) newAV());
                }

                hv_store (fileInfo, "old", strlen ("old"), newSVpv (old_path, 0), 0);
                hv_store (fileInfo, "new", strlen ("new"), newSVpv (new_path, 0), 0);

                av_push ((AV *) SvRV (*worktreeFiles), (SV *) newRV_noinc ((SV*) fileInfo));
            }
        }

        sv_2mortal ((SV*) files);
        RETVAL = files;
    }

    OUTPUT: RETVAL

AV *
status_unmerged_files(self)
    Repository self

    CODE:
    {
        int rc = 0;
        size_t count = 0, i = 0;
        Index index;

        rc = git_repository_index (&index, self);
        git_check_error (rc);

        rc = git_index_read (index, 0);
        if (rc == GIT_OK)
        {
            HV *files = newHV();
            AV *result = newAV();
            I32 iter = 0;
            HE *hashEntry = NULL;

            if (git_index_has_conflicts (index))
            {
                size_t i = 0, count = git_index_entrycount (index);
                for (i = 0; i < count; ++i)
                {
                    const git_index_entry *entry = git_index_get_byindex (index, i);
                    if (git_index_entry_stage (entry) != 0)
                    {
                        hv_store (files, entry->path, strlen (entry->path), newSViv (1), 0);
                    }
                }
            }

            iter = hv_iterinit (files);
            while ((hashEntry = hv_iternext (files)) != NULL)
            {
                av_push (result, newSVpv (HeKEY (hashEntry), HeKLEN (hashEntry)));
            }

            hv_clear (files);
            hv_undef (files);

            RETVAL = result;
        }

        git_index_free (index);
    }

    OUTPUT: RETVAL