shithub: libmujs

ref: cbdf814ee25841ce2130e6d58b0ac607b508f045
dir: /pp.c/

/* Pretty-print input source by emitting parse tree back as syntax.
 * with no flags: pretty-printed source
 * with -m: minified source with line breaks
 * with -mm: minified source without line breaks
 * with -s: s-expression syntax tree
 */

#include <stdio.h>

#include "jsi.h"
#include "jsparse.h"

static void js_ppstring(js_State *J, const char *filename, const char *source, int minify)
{
	js_Ast *P;
	if (js_try(J)) {
		jsP_freeparse(J);
		js_throw(J);
	}
	P = jsP_parse(J, filename, source);
	if (minify > 2)
		jsP_dumplist(J, P);
	else
		jsP_dumpsyntax(J, P, minify);
	jsP_freeparse(J);
	js_endtry(J);
}

void js_ppfile(js_State *J, const char *filename, int minify)
{
	FILE *f;
	char *s;
	int n, t;

	f = fopen(filename, "rb");
	if (!f) {
		js_error(J, "cannot open file: '%s'", filename);
	}

	if (fseek(f, 0, SEEK_END) < 0) {
		fclose(f);
		js_error(J, "cannot seek in file: '%s'", filename);
	}

	n = ftell(f);
	if (n < 0) {
		fclose(f);
		js_error(J, "cannot tell in file: '%s'", filename);
	}

	if (fseek(f, 0, SEEK_SET) < 0) {
		fclose(f);
		js_error(J, "cannot seek in file: '%s'", filename);
	}

	s = js_malloc(J, n + 1); /* add space for string terminator */
	if (!s) {
		fclose(f);
		js_error(J, "cannot allocate storage for file contents: '%s'", filename);
	}

	t = fread(s, 1, (size_t)n, f);
	if (t != n) {
		js_free(J, s);
		fclose(f);
		js_error(J, "cannot read data from file: '%s'", filename);
	}

	s[n] = 0; /* zero-terminate string containing file data */

	if (js_try(J)) {
		js_free(J, s);
		fclose(f);
		js_throw(J);
	}

	js_ppstring(J, filename, s, minify);

	js_free(J, s);
	fclose(f);
	js_endtry(J);
}

int
main(int argc, char **argv)
{
	js_State *J;
	int minify = 0;
	int i;

	J = js_newstate(NULL, NULL, 0);

	for (i = 1; i < argc; ++i) {
		if (!strcmp(argv[i], "-m"))
			minify = 1;
		else if (!strcmp(argv[i], "-mm"))
			minify = 2;
		else if (!strcmp(argv[i], "-s"))
			minify = 3;
		else {
			if (js_try(J)) {
				js_report(J, js_trystring(J, -1, "Error"));
				js_pop(J, 1);
				continue;
			}
			js_ppfile(J, argv[i], minify);
			js_endtry(J);
		}
	}

	js_gc(J, 0);
	js_freestate(J);

	return 0;
}