Added command-line option "-t" to allow run-time switching between running and dumping. (bbf8ab50) · Commits · e / os / android_system_core

libacc/acc.cpp

+106 −35

Original line number	Diff line number	Diff line
		@@ -27,6 +27,8 @@
		#include <stdlib.h>
		#include <string.h>

		namespace acc {

		class compiler {
		/* vars: value of variables
		loc : local variable index
		@@ -176,11 +178,11 @@ void next()
		next();
		} else
		{
		char* t = "++#m--%am@R<^1c/@%[_[H3c%@%[_[H3c+@.B#d-@%:_^BKd<<Z/03e>>`/03e<=0f>=/f<@.f>@1f==&g!=\'g&&k\|\|#l&@.BCh^@.BSi\|@.B+j~@/%Yd!@&d@b";
		while (l = (char )t++) {
		a = (char )t++;
		const char* t = "++#m--%am@R<^1c/@%[_[H3c%@%[_[H3c+@.B#d-@%:_^BKd<<Z/03e>>`/03e<=0f>=/f<@.f>@1f==&g!=\'g&&k\|\|#l&@.BCh^@.BSi\|@.B+j~@/%Yd!@&d@b";
		while (l = *t++) {
		a = *t++;
		tokc = 0;
		while ((tokl = (char )t++ - 'b') < 0)
		while ((tokl = *t++ - 'b') < 0)
		tokc = tokc * 64 + tokl + 64;
		if (l == tok & (a == ch \| a == '@')) {
		#if 0
		@@ -219,12 +221,12 @@ void next()
		#endif
		}

		void error(char *fmt,...)
		void error(const char *fmt,...)
		{
		va_list ap;

		va_start(ap, fmt);
		fprintf(stderr, "%d: ", ftell((FILE *)file));
		fprintf(stderr, "%ld: ", ftell((FILE *)file));
		vfprintf(stderr, fmt, ap);
		fprintf(stderr, "\n");
		va_end(ap);
		@@ -604,15 +606,16 @@ void decl(int l)
		}

		public:
		compiler(){}

		int compile(int n, char** t)
		compiler() :
		tok(0), tokc(0), tokl(0), ch(0),
		vars(0), rsym(0), prog(0), ind(0), loc(0), glo(0), sym_stk(0),
		dstk(0), dptr(0), dch(0), last_id(0), file(0)
		{
		file = stdin;
		if (n-- > 1) {
		t = t + 1;
		file = fopen(*t, "r");
		}

		int compile(FILE* in) {

		file = in;
		sym_stk = (int) calloc(1, ALLOC_SIZE);
		dstk = (int) strcpy((char*) sym_stk,
		" int if else while break return for define main ") + TOK_STR_SIZE;
		@@ -622,22 +625,90 @@ int compile(int n, char** t)
		inp();
		next();
		decl(0);
		#ifdef TEST
		{
		FILE *f;
		f = fopen(t[1], "w");
		fwrite((void *)prog, 1, ind - prog, f);
		fclose(f);
		return 0;
		}
		#else
		return ((int ()())(int )(vars + TOK_MAIN)) (n, t);
		#endif

		int run(int argc, char** argv)
		{
		typedef int (mainPtr)(int argc, char* argv);
		mainPtr aMain = (mainPtr) * (int*) (vars + TOK_MAIN);
		if (! aMain) {
		fprintf(stderr, "Could not find main");
		return -1;
		}
		return aMain(argc, argv);
		}

		int dump(FILE* out) {
		fwrite((void *)prog, 1, ind - prog, out);
		return 0;
		}

		};


		} // namespace acc

		int main(int argc, char** argv) {
		compiler c;
		return c.compile(argc, argv);
		bool doTest = false;
		const char* inFile = NULL;
		const char* outFile = NULL;
		int i;
		for(i = 1; i < argc; i++) {
		char* arg = argv[i];
		if (arg[0] == '-') {
		switch (arg[1]) {
		case 'T':
		if (i + 1 >= argc) {
		fprintf(stderr, "Expected filename after -T\n");
		return 2;
		}
		doTest = true;
		outFile = argv[i + 1];
		i += 1;
		break;
		default:
		fprintf(stderr, "Unrecognized flag %s\n", arg);
		return 3;
		}
		} else if (inFile == NULL) {
		inFile = arg;
		} else {
		break;
		}
		}

		FILE* in = stdin;
		if (inFile) {
		in = fopen(inFile, "r");
		if (! in) {
		fprintf(stderr, "Could not open input file %s\n", inFile);
		return 1;
		}
		}
		acc::compiler compiler;
		int compileResult = compiler.compile(in);
		if (in != stdin) {
		fclose(in);
		}
		if (compileResult) {
		fprintf(stderr, "Compile failed: %d\n", compileResult);
		return 6;
		}
		if (doTest) {
		FILE* save = fopen(outFile, "w");
		if (! save) {
		fprintf(stderr, "Could not open output file %s\n", outFile);
		return 5;
		}
		compiler.dump(save);
		fclose(save);
		} else {
		int codeArgc = argc-i+1;
		char** codeArgv=argv + i - 1;
		codeArgv[0] = (char*) (inFile ? inFile : "stdin");
		return compiler.run(codeArgc, codeArgv);
		}

		return 0;
		}

libacc/test

+1 −1

#!/bin/sh

g++ acc.cpp -DTEST -ldl -o tests/acc && tests/acc tests/otcc.c tests/otcc.out && diff tests/otcc.out tests/otcc.out-orig

g++ acc.cpp -ldl -o tests/acc && tests/acc tests/otcc.c -T tests/otcc.out && diff tests/otcc.out tests/otcc.out-orig