Toy/repl/repl_main.c

#include "repl_tools.h"
#include "drive_system.h"
#include "lib_about.h"
#include "lib_standard.h"
#include "lib_random.h"
#include "lib_runner.h"

#include "toy_console_colors.h"

#include "toy.h"

#include <stdio.h>
#include <stdlib.h>
#include <string.h>

#define INPUT_BUFFER_SIZE 2048

void repl(const char* initialInput) {
	//repl does it's own thing for now
	bool error = false;

	char input[INPUT_BUFFER_SIZE];
	memset(input, 0, INPUT_BUFFER_SIZE);

	Toy_Interpreter interpreter; //persist the interpreter for the scopes
	Toy_initInterpreter(&interpreter);

	//inject the libs
	Toy_injectNativeHook(&interpreter, "about", Toy_hookAbout);
	Toy_injectNativeHook(&interpreter, "standard", Toy_hookStandard);
	Toy_injectNativeHook(&interpreter, "random", Toy_hookRandom);
	Toy_injectNativeHook(&interpreter, "runner", Toy_hookRunner);

	for(;;) {
		if (!initialInput) {
			//handle EOF for exits
			printf("> ");
			if (!fgets(input, INPUT_BUFFER_SIZE, stdin)) {
				break;
			}
		}

		//escape the repl (length of 5 to accomodate the newline)
		if (strlen(input) == 5 && (!strncmp(input, "exit", 4) || !strncmp(input, "quit", 4))) {
			break;
		}

		//setup this iteration
		Toy_Lexer lexer;
		Toy_Parser parser;
		Toy_Compiler compiler;

		Toy_initLexer(&lexer, initialInput ? initialInput : input);
		Toy_private_setComments(&lexer, initialInput != NULL); //BUGFIX: disable comments here
		Toy_initParser(&parser, &lexer);
		Toy_initCompiler(&compiler);

		//run this iteration
		Toy_ASTNode* node = Toy_scanParser(&parser);
		while(node != NULL) {
			//pack up and restart
			if (node->type == TOY_AST_NODE_ERROR) {
				if (Toy_commandLine.verbose) {
					printf(TOY_CC_ERROR "Error node detected\n" TOY_CC_RESET);
				}
				error = true;
				Toy_freeASTNode(node);
				break;
			}

			Toy_writeCompiler(&compiler, node);
			Toy_freeASTNode(node);
			node = Toy_scanParser(&parser);
		}

		if (!error) {
			//get the bytecode dump
			size_t size = 0;
			unsigned char* tb = Toy_collateCompiler(&compiler, &size);

			//run the bytecode
			Toy_runInterpreter(&interpreter, tb, size);
		}

		//clean up this iteration
		Toy_freeCompiler(&compiler);
		Toy_freeParser(&parser);
		error = false;

		if (initialInput) {
			free((void*)initialInput);
			initialInput = NULL;

			if (interpreter.panic) {
				break;
			}
		}
	}

	Toy_freeInterpreter(&interpreter);
}

//entry point
int main(int argc, const char* argv[]) {
	Toy_initCommandLine(argc, argv);

	//setup the drive system (for filesystem access)
	Toy_initDriveSystem();
	Toy_setDrivePath("scripts", "scripts");

	//command line specific actions
	if (Toy_commandLine.error) {
		Toy_usageCommandLine(argc, argv);
		return 0;
	}

	if (Toy_commandLine.help) {
		Toy_helpCommandLine(argc, argv);
		return 0;
	}

	if (Toy_commandLine.version) {
		Toy_copyrightCommandLine(argc, argv);
		return 0;
	}

	//version
	if (Toy_commandLine.verbose) {
		printf(TOY_CC_NOTICE "Toy Programming Language Version %d.%d.%d, built '%s'\n" TOY_CC_RESET, TOY_VERSION_MAJOR, TOY_VERSION_MINOR, TOY_VERSION_PATCH, TOY_VERSION_BUILD);
	}

	//run source file
	if (Toy_commandLine.sourcefile) {
		//only works on toy files
		const char* s = strrchr(Toy_commandLine.sourcefile, '.');
		if (!s || strcmp(s, ".toy")) {
			fprintf(stderr, TOY_CC_ERROR "Bad file extension passed to %s (expected '.toy', found '%s')" TOY_CC_RESET, argv[0], s);
			return -1;
		}

		//run the source file
		Toy_runSourceFile(Toy_commandLine.sourcefile);

		//lib cleanup
		Toy_freeDriveSystem();

		return 0;
	}

	//run from stdin
	if (Toy_commandLine.source) {
		Toy_runSource(Toy_commandLine.source);

		//lib cleanup
		Toy_freeDriveSystem();

		return 0;
	}

	//compile source file
	if (Toy_commandLine.compilefile && Toy_commandLine.outfile) {
		//only works on toy and tb files
		const char* c = strrchr(Toy_commandLine.compilefile, '.');
		if (!c || strcmp(c, ".toy")) {
			fprintf(stderr, TOY_CC_ERROR "Bad file extension passed to %s (expected '.toy', found '%s')" TOY_CC_RESET, argv[0], c);
			return -1;
		}
		const char* o = strrchr(Toy_commandLine.outfile, '.');
		if (!o || strcmp(o, ".tb")) {
			fprintf(stderr, TOY_CC_ERROR "Bad file extension passed to %s (expected '.tb', found '%s')" TOY_CC_RESET, argv[0], o);
			return -1;
		}

		//compile and save
		size_t size = 0;
		const char* source = (const char*)Toy_readFile(Toy_commandLine.compilefile, &size);
		if (!source) {
			return 1;
		}
		const unsigned char* tb = Toy_compileString(source, &size);
		if (!tb) {
			return 1;
		}
		Toy_writeFile(Toy_commandLine.outfile, tb, size);
		return 0;
	}

	//run binary
	if (Toy_commandLine.binaryfile) {
		//only works on tb files
		const char* c = strrchr(Toy_commandLine.binaryfile, '.');
		if (!c || strcmp(c, ".tb")) {
			fprintf(stderr, TOY_CC_ERROR "Bad file extension passed to %s (expected '.tb', found '%s')" TOY_CC_RESET, argv[0], c); //this one is never seen
			return -1;
		}

		if (Toy_commandLine.parseBytecodeHeader) {
			//only parse the bytecode header
			Toy_parseBinaryFileHeader(Toy_commandLine.binaryfile);
		}
		else {
			//run the binary file
			Toy_runBinaryFile(Toy_commandLine.binaryfile);
		}

		//lib cleanup
		Toy_freeDriveSystem();

		return 0;
	}

	const char* initialSource = NULL;
	if (Toy_commandLine.initialfile) {
		//only works on toy files
		const char* s = strrchr(Toy_commandLine.initialfile, '.');
		if (!s || strcmp(s, ".toy")) {
			fprintf(stderr, TOY_CC_ERROR "Bad file extension passed to %s (expected '.toy', found '%s')" TOY_CC_RESET, argv[0], s);
			return -1;
		}

		size_t size;
		initialSource = (const char*)Toy_readFile(Toy_commandLine.initialfile, &size);
	}

	repl(initialSource);

	//lib cleanup
	Toy_freeDriveSystem();

	return 0;
}