File Coverage

lib/Eshu.xs

Criterion	Covered	Total	%
statement	194	222	87.3
branch	198	366	54.1
condition			n/a
subroutine			n/a
pod			n/a
total	392	588	66.6

#define PERL_NO_GET_CONTEXT
#include "EXTERN.h"
#include "perl.h"
#include "XSUB.h"

#include "eshu.h"
#include "eshu_c.h"
#include "eshu_pl.h"
#include "eshu_xs.h"
#include "eshu_xml.h"
#include "eshu_css.h"

MODULE = Eshu  PACKAGE = Eshu

PROTOTYPES: DISABLE

SV *
detect_lang(class, filename_sv)
	SV * class
	SV * filename_sv
	CODE:
	{
		const char *filename;
		const char *dot;
		STRLEN len;

		PERL_UNUSED_VAR(class);
		RETVAL = &PL_sv_undef;

		if (SvOK(filename_sv)) {
			filename = SvPV(filename_sv, len);
			dot = NULL;
			/* find last dot */
			{
				const char *p = filename + len;
				while (p > filename) {
					p--;
					if (*p == '.') { dot = p + 1; break; }
				}
			}
			if (dot) {
				STRLEN ext_len = (filename + len) - dot;
				if ((ext_len == 1 && (dot[0] == 'c' || dot[0] == 'C'))
				    || (ext_len == 1 && (dot[0] == 'h' || dot[0] == 'H'))) {
					RETVAL = newSVpvs("c");
				} else if (ext_len == 2
				           && (dot[0] == 'x' || dot[0] == 'X')
				           && (dot[1] == 's' || dot[1] == 'S')) {
					RETVAL = newSVpvs("xs");
				} else if ((ext_len == 2
				            && (dot[0] == 'p' || dot[0] == 'P')
				            && (dot[1] == 'l' || dot[1] == 'L'))
				           || (ext_len == 2
				               && (dot[0] == 'p' || dot[0] == 'P')
				               && (dot[1] == 'm' || dot[1] == 'M'))
				           || (ext_len == 1
				               && (dot[0] == 't' || dot[0] == 'T'))) {
					RETVAL = newSVpvs("perl");
				} else if ((ext_len == 3
				            && (dot[0] == 'x' || dot[0] == 'X')
				            && (dot[1] == 'm' || dot[1] == 'M')
				            && (dot[2] == 'l' || dot[2] == 'L'))
				           || (ext_len == 3
				               && (dot[0] == 'x' || dot[0] == 'X')
				               && (dot[1] == 's' || dot[1] == 'S')
				               && (dot[2] == 'l' || dot[2] == 'L'))
				           || (ext_len == 4
				               && (dot[0] == 'x' || dot[0] == 'X')
				               && (dot[1] == 's' || dot[1] == 'S')
				               && (dot[2] == 'l' || dot[2] == 'L')
				               && (dot[3] == 't' || dot[3] == 'T'))
				           || (ext_len == 3
				               && (dot[0] == 's' || dot[0] == 'S')
				               && (dot[1] == 'v' || dot[1] == 'V')
				               && (dot[2] == 'g' || dot[2] == 'G'))
				           || (ext_len == 5
				               && (dot[0] == 'x' || dot[0] == 'X')
				               && (dot[1] == 'h' || dot[1] == 'H')
				               && (dot[2] == 't' || dot[2] == 'T')
				               && (dot[3] == 'm' || dot[3] == 'M')
				               && (dot[4] == 'l' || dot[4] == 'L'))) {
					RETVAL = newSVpvs("xml");
				} else if ((ext_len == 4
				            && (dot[0] == 'h' || dot[0] == 'H')
				            && (dot[1] == 't' || dot[1] == 'T')
				            && (dot[2] == 'm' || dot[2] == 'M')
				            && (dot[3] == 'l' || dot[3] == 'L'))
				           || (ext_len == 3
				               && (dot[0] == 'h' || dot[0] == 'H')
				               && (dot[1] == 't' || dot[1] == 'T')
				               && (dot[2] == 'm' || dot[2] == 'M'))
				           || (ext_len == 4
				               && (dot[0] == 't' || dot[0] == 'T')
				               && (dot[1] == 'm' || dot[1] == 'M')
				               && (dot[2] == 'p' || dot[2] == 'P')
				               && (dot[3] == 'l' || dot[3] == 'L'))
				           || (ext_len == 2
				               && (dot[0] == 't' || dot[0] == 'T')
				               && (dot[1] == 't' || dot[1] == 'T'))
				           || (ext_len == 2
				               && (dot[0] == 'e' || dot[0] == 'E')
				               && (dot[1] == 'p' || dot[1] == 'P'))) {
					RETVAL = newSVpvs("html");
				} else if ((ext_len == 3
				            && (dot[0] == 'c' || dot[0] == 'C')
				            && (dot[1] == 's' || dot[1] == 'S')
				            && (dot[2] == 's' || dot[2] == 'S'))
				           || (ext_len == 4
				               && (dot[0] == 's' || dot[0] == 'S')
				               && (dot[1] == 'c' || dot[1] == 'C')
				               && (dot[2] == 's' || dot[2] == 'S')
				               && (dot[3] == 's' || dot[3] == 'S'))
				           || (ext_len == 4
				               && (dot[0] == 'l' || dot[0] == 'L')
				               && (dot[1] == 'e' || dot[1] == 'E')
				               && (dot[2] == 's' || dot[2] == 'S')
				               && (dot[3] == 's' || dot[3] == 'S'))) {
					RETVAL = newSVpvs("css");
				}
			}
		}
	}
	OUTPUT:
		RETVAL

SV *
indent_c(class, src_sv, ...)
	SV * class
	SV * src_sv
	CODE:
	{
		const char *src;
		STRLEN src_len;
		eshu_config_t cfg;
		char *result;
		size_t out_len;
		int i;

		PERL_UNUSED_VAR(class);
		src = SvPV(src_sv, src_len);
		cfg = eshu_default_config();

		for (i = 2; i + 1 < items; i += 2) {
			const char *key = SvPV_nolen(ST(i));
			SV *val = ST(i + 1);
			if (strEQ(key, "indent_char")) {
				const char *ic = SvPV_nolen(val);
				cfg.indent_char = (*ic == ' ') ? ' ' : '\t';
			} else if (strEQ(key, "indent_width")) {
				cfg.indent_width = SvIV(val);
			} else if (strEQ(key, "indent_pp")) {
				cfg.indent_pp = SvTRUE(val) ? 1 : 0;
			} else if (strEQ(key, "range_start")) {
				cfg.range_start = SvIV(val);
			} else if (strEQ(key, "range_end")) {
				cfg.range_end = SvIV(val);
			}
		}

		result = eshu_indent_c(src, (size_t)src_len, &cfg, &out_len);
		RETVAL = newSVpvn(result, out_len);
		free(result);
	}
	OUTPUT:
		RETVAL

SV *
indent_pl(class, src_sv, ...)
	SV * class
	SV * src_sv
	CODE:
	{
		const char *src;
		STRLEN src_len;
		eshu_config_t cfg;
		char *result;
		size_t out_len;
		int i;

		PERL_UNUSED_VAR(class);
		src = SvPV(src_sv, src_len);
		cfg = eshu_default_config();
		cfg.lang = ESHU_LANG_PERL;

		for (i = 2; i + 1 < items; i += 2) {
			const char *key = SvPV_nolen(ST(i));
			SV *val = ST(i + 1);
			if (strEQ(key, "indent_char")) {
				const char *ic = SvPV_nolen(val);
				cfg.indent_char = (*ic == ' ') ? ' ' : '\t';
			} else if (strEQ(key, "indent_width")) {
				cfg.indent_width = SvIV(val);
			} else if (strEQ(key, "range_start")) {
				cfg.range_start = SvIV(val);
			} else if (strEQ(key, "range_end")) {
				cfg.range_end = SvIV(val);
			}
		}

		result = eshu_indent_pl(src, (size_t)src_len, &cfg, &out_len);
		RETVAL = newSVpvn(result, out_len);
		free(result);
	}
	OUTPUT:
		RETVAL

SV *
indent_xs(class, src_sv, ...)
	SV * class
	SV * src_sv
	CODE:
	{
		const char *src;
		STRLEN src_len;
		eshu_config_t cfg;
		char *result;
		size_t out_len;
		int i;

		PERL_UNUSED_VAR(class);
		src = SvPV(src_sv, src_len);
		cfg = eshu_default_config();
		cfg.lang = ESHU_LANG_XS;

		for (i = 2; i + 1 < items; i += 2) {
			const char *key = SvPV_nolen(ST(i));
			SV *val = ST(i + 1);
			if (strEQ(key, "indent_char")) {
				const char *ic = SvPV_nolen(val);
				cfg.indent_char = (*ic == ' ') ? ' ' : '\t';
			} else if (strEQ(key, "indent_width")) {
				cfg.indent_width = SvIV(val);
			} else if (strEQ(key, "indent_pp")) {
				cfg.indent_pp = SvTRUE(val) ? 1 : 0;
			} else if (strEQ(key, "range_start")) {
				cfg.range_start = SvIV(val);
			} else if (strEQ(key, "range_end")) {
				cfg.range_end = SvIV(val);
			}
		}

		result = eshu_indent_xs(src, (size_t)src_len, &cfg, &out_len);
		RETVAL = newSVpvn(result, out_len);
		free(result);
	}
	OUTPUT:
		RETVAL

SV *
indent_xml(class, src_sv, ...)
	SV * class
	SV * src_sv
	CODE:
	{
		const char *src;
		STRLEN src_len;
		eshu_config_t cfg;
		char *result;
		size_t out_len;
		int i;

		PERL_UNUSED_VAR(class);
		src = SvPV(src_sv, src_len);
		cfg = eshu_default_config();
		cfg.lang = ESHU_LANG_XML;

		for (i = 2; i + 1 < items; i += 2) {
			const char *key = SvPV_nolen(ST(i));
			SV *val = ST(i + 1);
			if (strEQ(key, "indent_char")) {
				const char *ic = SvPV_nolen(val);
				cfg.indent_char = (*ic == ' ') ? ' ' : '\t';
			} else if (strEQ(key, "indent_width")) {
				cfg.indent_width = SvIV(val);
			} else if (strEQ(key, "lang")) {
				const char *l = SvPV_nolen(val);
				if (strEQ(l, "html") || strEQ(l, "htm")) {
					cfg.lang = ESHU_LANG_HTML;
				}
			} else if (strEQ(key, "range_start")) {
				cfg.range_start = SvIV(val);
			} else if (strEQ(key, "range_end")) {
				cfg.range_end = SvIV(val);
			}
		}

		result = eshu_indent_xml(src, (size_t)src_len, &cfg, &out_len);
		RETVAL = newSVpvn(result, out_len);
		free(result);
	}
	OUTPUT:
		RETVAL

SV *
indent_css(class, src_sv, ...)
	SV * class
	SV * src_sv
	CODE:
	{
		const char *src;
		STRLEN src_len;
		eshu_config_t cfg;
		char *result;
		size_t out_len;
		int i;

		PERL_UNUSED_VAR(class);
		src = SvPV(src_sv, src_len);
		cfg = eshu_default_config();
		cfg.lang = ESHU_LANG_CSS;

		for (i = 2; i + 1 < items; i += 2) {
			const char *key = SvPV_nolen(ST(i));
			SV *val = ST(i + 1);
			if (strEQ(key, "indent_char")) {
				const char *ic = SvPV_nolen(val);
				cfg.indent_char = (*ic == ' ') ? ' ' : '\t';
			} else if (strEQ(key, "indent_width")) {
				cfg.indent_width = SvIV(val);
			} else if (strEQ(key, "range_start")) {
				cfg.range_start = SvIV(val);
			} else if (strEQ(key, "range_end")) {
				cfg.range_end = SvIV(val);
			}
		}

		result = eshu_indent_css(src, (size_t)src_len, &cfg, &out_len);
		RETVAL = newSVpvn(result, out_len);
		free(result);
	}
	OUTPUT:
		RETVAL

SV *
indent_string(class, src_sv, ...)
	SV * class
	SV * src_sv
	CODE:
	{
		const char *src;
		STRLEN src_len;
		eshu_config_t cfg;
		char *result;
		size_t out_len;
		const char *lang = "c";
		int i;

		PERL_UNUSED_VAR(class);
		src = SvPV(src_sv, src_len);
		cfg = eshu_default_config();

		for (i = 2; i + 1 < items; i += 2) {
			const char *key = SvPV_nolen(ST(i));
			SV *val = ST(i + 1);
			if (strEQ(key, "lang")) {
				lang = SvPV_nolen(val);
			} else if (strEQ(key, "indent_char")) {
				const char *ic = SvPV_nolen(val);
				cfg.indent_char = (*ic == ' ') ? ' ' : '\t';
			} else if (strEQ(key, "indent_width")) {
				cfg.indent_width = SvIV(val);
			} else if (strEQ(key, "indent_pp")) {
				cfg.indent_pp = SvTRUE(val) ? 1 : 0;
			} else if (strEQ(key, "range_start")) {
				cfg.range_start = SvIV(val);
			} else if (strEQ(key, "range_end")) {
				cfg.range_end = SvIV(val);
			}
		}

		if (strEQ(lang, "c")) {
			result = eshu_indent_c(src, (size_t)src_len, &cfg, &out_len);
		} else if (strEQ(lang, "perl") || strEQ(lang, "pl")) {
			cfg.lang = ESHU_LANG_PERL;
			result = eshu_indent_pl(src, (size_t)src_len, &cfg, &out_len);
		} else if (strEQ(lang, "xs")) {
			cfg.lang = ESHU_LANG_XS;
			result = eshu_indent_xs(src, (size_t)src_len, &cfg, &out_len);
		} else if (strEQ(lang, "xml") || strEQ(lang, "svg")) {
			cfg.lang = ESHU_LANG_XML;
			result = eshu_indent_xml(src, (size_t)src_len, &cfg, &out_len);
		} else if (strEQ(lang, "html") || strEQ(lang, "htm")) {
			cfg.lang = ESHU_LANG_HTML;
			result = eshu_indent_xml(src, (size_t)src_len, &cfg, &out_len);
		} else if (strEQ(lang, "css") || strEQ(lang, "scss") || strEQ(lang, "less")) {
			cfg.lang = ESHU_LANG_CSS;
			result = eshu_indent_css(src, (size_t)src_len, &cfg, &out_len);
		} else {
			croak("Eshu: unsupported language '%s'", lang);
			result = NULL; /* not reached */
			out_len = 0;
		}

		RETVAL = newSVpvn(result, out_len);
		free(result);
	}
	OUTPUT:
		RETVAL