view release on metacpan or  search on metacpan

xs/Reflog.xs  view on Meta::CPAN

		} else {
			rc = git_signature_default(&sig, ref_owner);
			git_check_error(rc);
		}

		rc = git_reflog_append(
			GIT_SV_TO_PTR(Reflog, self),
			&id, sig, message
		);

		if (items != 3)
			git_signature_free(sig);

		git_check_error(rc);

void
drop(self, index)
	Reflog self
	size_t index

	PREINIT:
		int rc;

	CODE:
		rc = git_reflog_drop(self, index, 1);
		git_check_error(rc);

void
write(self)
	Reflog self

	PREINIT:
		int rc;

	CODE:
		rc = git_reflog_write(self);
		git_check_error(rc);

SV *
entry_count(self)
	Reflog self

	PREINIT:
		size_t count;

	CODE:
		count = git_reflog_entrycount (self);
		RETVAL = newSViv ((int) count);

	OUTPUT: RETVAL

void
entries(self, ...)
	SV *self

	PROTOTYPE: $;$$
	PREINIT:
		Reflog reflog;
		size_t start = 0, end, entry_count;

	PPCODE:
		reflog = GIT_SV_TO_PTR(Reflog, self);
		entry_count = git_reflog_entrycount (reflog);

		if (items >= 2) {
			SV *index = ST(1);

			if (!SvIOK(index) || SvIV(index) < 0)
				croak_usage("Invalid type for 'index'");

			start = SvUV(index);
			if (start >= entry_count)
				croak_usage("index %" PRIuZ " out of range", start);

			if (items >= 3) {
				SV *count = ST(2);
				size_t retrieve_count;

				if (!SvIOK(count) || SvIV(count) < 0)
					croak_usage("Invalid type for 'count'");
				if (SvIV(count) == 0)
					croak_usage("Invalid value for 'count'");

				retrieve_count = SvUV(count);
				if ((start + retrieve_count) > entry_count)
					croak_usage("count %" PRIuZ " out of range", retrieve_count);

				entry_count = retrieve_count;
			} else
				entry_count -= start;
		}

		end = start + entry_count;

		for (; start < end; ++start) {
			SV *entry = NULL;

			const git_reflog_entry *e =
				git_reflog_entry_byindex(reflog, start);

			GIT_NEW_OBJ_WITH_MAGIC(
				entry, "Git::Raw::Reflog::Entry",
				(Reflog_Entry) e, SvRV(self)
			);

			mXPUSHs(entry);
		}

		XSRETURN(entry_count);

void
DESTROY(self)
	SV *self

	CODE:
		git_reflog_free(GIT_SV_TO_PTR(Reflog, self));
		SvREFCNT_dec(GIT_SV_TO_MAGIC(self));