view release on metacpan or  search on metacpan

xs/Reader.xs  view on Meta::CPAN

int
format_capabilities (self)
	Reader self

	CODE:
#if ARCHIVE_VERSION_NUMBER >= 3002000
		RETVAL = archive_read_format_capabilities (self->ar);
#else
		croak ("this feature requires libarchive 3.2+");
#endif

	OUTPUT: RETVAL

void
add_passphrase (self, phrase)
	Reader self
	const char *phrase

	PREINIT:
		int rc;

	CODE:
#if ARCHIVE_VERSION_NUMBER >= 3002000
		rc = archive_read_add_passphrase (self->ar, phrase);
		archive_check_error (rc, self->ar, archive_read_add_passphrase);
#else
		croak ("this feature requires libarchive 3.2+");
#endif

int
file_count (self)
	Reader self

	CODE:
		RETVAL = archive_file_count (self->ar);

	OUTPUT: RETVAL

int
format (self)
	Reader self

	CODE:
		RETVAL = archive_format (self->ar);

	OUTPUT: RETVAL

const char *
format_name (self)
	Reader self

	CODE:
		RETVAL = archive_format_name (self->ar);

	OUTPUT: RETVAL

void
close (self)
	Reader self

	PPCODE:
		if (self->reading)
		{
			archive_read_close (self->ar);
			self->reading = 0;
			XSRETURN_YES;
		}

		XSRETURN_NO;

void
DESTROY (self)
	Reader self

	CODE:
		if (self->reading)
			archive_read_close (self->ar);
		archive_read_free (self->ar);
		Safefree (self);