view release on metacpan or  search on metacpan

Extractor.xs  view on Meta::CPAN

MODULE = File::Extractor	PACKAGE = File::Extractor	PREFIX = EXTRACTOR_

PROTOTYPES: DISABLE

void
EXTRACTOR_getDefaultLibraries (class)
	PREINIT:
		const char *libraries;
		char *copy, *pos, *token;
	PPCODE:
		libraries = EXTRACTOR_getDefaultLibraries ();

		if (!libraries) {
			XSRETURN_EMPTY;
		}

		copy = strdup (libraries);
		pos = copy;

		while ((token = strsep (&pos, ":"))) {

Extractor.xs  view on Meta::CPAN

		perl_extractor_invalidate_object (ST (0));

void
EXTRACTOR_getKeywords (extractor, data)
		EXTRACTOR_ExtractorList *extractor
		SV *data
	PREINIT:
		STRLEN len;
		char *buf;
		EXTRACTOR_KeywordList *list, *i;
	PPCODE:
		if (SvROK (data) && (SvTYPE (SvRV (data)) == SVt_PVGV)) {
			buf = perl_extractor_slurp_from_handle (data, &len);
		}
		else {
			buf = SvPVbyte (data, len);
		}

		list = EXTRACTOR_getKeywords2 (extractor, buf, len);
		list = EXTRACTOR_removeEmptyKeywords (list);
		list = EXTRACTOR_removeDuplicateKeywords (list, 0);