lang/main.c

#include <errno.h>
#include <math.h>
#include <stdarg.h>
#include <stdio.h>
#include <stdlib.h>
#include <string.h>

#include "ir.h"
#include "lex.h"
#include "parse.h"
#include "runtime.h"
#include "util.h"
#include "vm.h"

static void usage(const char *prgname);
static void die(const char *fmt, ...);

static void usage(const char *prgname) {
	fprintf(stderr, "Usage:\n"
			"  %s [OPTIONS] <FILENAME>\n"
			"Options:\n"
			"  -emit-tokens\n"
			"  -emit-ir\n"
			"  -dry             --  don't execute the script (just process it)\n"
			, prgname);
}

static void die(const char *fmt, ...) {
	fprintf(stderr, C_IRED "Error: " C_RESET);
	va_list va;
	va_start(va, fmt);
	vfprintf(stderr, fmt, va);
	va_end(va);
	exit(1);
}

static void fn_put(size_t extra_args, Value *args) {
	for (size_t i = 0;; i++) {
		print_value(&args[i], true);
		if (i+1 >= extra_args)
			break;
		printf(" ");
	}
}

static void fn_putln(size_t extra_args, Value *args) {
	fn_put(extra_args, args);
	printf("\n");
}

static Value fn_int(Value *args) {
	Value ret = {
		.type = TypeInt,
		.Int = 0,
	};
	switch (args[0].type) {
		case TypeVoid:  break;
		case TypeFloat: ret.Int = (ssize_t)args[0].Float; break;
		case TypeInt:   ret.Int = args[0].Int;            break;
		case TypeBool:  ret.Int = (ssize_t)args[0].Bool;  break;
		case TypeChar:  ret.Int = (ssize_t)args[0].Char;  break;
		case TypeArr:
			if (args[0].Arr.is_string && args[0].Arr.type == TypeChar) {
				ssize_t endpos;
				ret.Int = stoimax((char*)args[0].Arr.vals, args[0].Arr.len, 10, &endpos);
				if (endpos != -1) {
					set_err("Error converting from string to int");
					return (Value){0};
				}
			} else
				ASSERT_UNREACHED();
			break;
		default: ASSERT_UNREACHED();
	}
	return ret;
}

static Value fn_float(Value *args) {
	Value ret = {
		.type = TypeFloat,
		.Float = 0.0,
	};
	switch (args[0].type) {
		case TypeVoid:  break;
		case TypeFloat: ret.Float = args[0].Float;        break;
		case TypeInt:   ret.Float = (double)args[0].Int;  break;
		case TypeBool:  ret.Float = (double)args[0].Bool; break;
		case TypeChar:  ret.Float = (double)args[0].Char; break;
		case TypeArr:
			if (args[0].Arr.is_string && args[0].Arr.type == TypeChar) {
				ssize_t endpos;
				ret.Float = stod((char*)args[0].Arr.vals, args[0].Arr.len, &endpos);
				if (endpos != -1) {
					set_err("Error converting from string to float");
					return (Value){0};
				}
			} else
				ASSERT_UNREACHED();
			break;
		default: ASSERT_UNREACHED();
	}
	return ret;
}

static Value fn_bool(Value *args) {
	return (Value){ .type = TypeBool, .Bool = is_nonzero(&args[0]) };
}

static Value fn_char(Value *args) {
	Value ret = {
		.type = TypeChar,
		.Float = 0.0,
	};
	switch (args[0].type) {
		case TypeVoid:  break;
		case TypeFloat: ret.Char = (char)args[0].Float; break;
		case TypeInt:   ret.Char = (char)args[0].Int;   break;
		case TypeBool:  ret.Char = (char)args[0].Bool;  break;
		case TypeChar:  ret.Char = args[0].Char;        break;
		default: ASSERT_UNREACHED();
	}
	return ret;
}

static Value fn_ptr(Value *args) {
	(void)args;
	return (Value){ .type = TypePtr, .Ptr = { .type = TypeVoid, .val = NULL }};
}

static Value fn_string(Value *args) {
	char *res = xmalloc(64);
	size_t len;

	switch (args[0].type) {
		case TypeVoid:  strcpy(res, "(void)"); len = 6;               break;
		case TypeFloat: len = snprintf(res, 64, "%f", args[0].Float); break;
		case TypeInt:   len = snprintf(res, 64, "%zd", args[0].Int);  break;
		case TypeBool:
			if (args[0].Bool) {
				strcpy(res, "true");
				len = 4;
			} else {
				strcpy(res, "false");
				len = 5;
			}
			break;
		case TypeChar:  res[0] = args[0].Char; len = 1;               break;
		default: ASSERT_UNREACHED();
	}

	return (Value){
		.type = TypeArr,
		.Arr = {
			.is_string = true,
			.dynamically_allocated = true,
			.type = TypeChar,
			.vals = res,
			.len = len,
			.cap = 64,
		},
	};
}

static Value fn_pow(Value *args) {
	if (!(args[0].type == TypeFloat && args[1].type == TypeFloat)) {
		set_err("pow() requires arguments of type float");
		return (Value){0};
	}
	return (Value){
		.type = TypeFloat,
		.Float = pow(args[0].Float, args[1].Float),
	};
}

static void fn_sleep(Value *args) {
	if (!(args[0].type == TypeFloat && args[0].Float >= 0.0)) {
		set_err("sleep() requires a positive float");
		return;
	}
	sleep_secs(args[0].Float);
}

static Value fn_getln(Value *args) {
	(void)args;

	char *line = xmalloc(64);
	size_t len = 0, cap = 64;
	for (;;) {
		int c = fgetc(stdin);
		if (c == EOF)
			break;
		else if (c == '\n')
			break;
		if (len+1 > cap)
			line = xrealloc(line, (cap *= 2));
		line[len++] = c;
	}

	return (Value){
		.type = TypeArr,
		.Arr = {
			.is_string = true,
			.dynamically_allocated = true,
			.type = TypeChar,
			.vals = line,
			.len = len,
			.cap = cap,
		},
	};
}

int main(int argc, const char **argv) {
	/* parse arguments */
	size_t nargs = argc - 1;
	const char *prgname = argv[0];
	const char **args = argv + 1;
	bool opt_emit_tokens = false;
	bool opt_emit_ir = false;
	bool opt_dry = false;
	const char *filename = NULL;
	for (size_t i = 0; i < nargs; i++) {
		if (args[i][0] == '-') {
			if (streq(args[i], "-h") || streq(args[i], "-help") || streq(args[i], "--help")) {
				usage(prgname);
				return 0;
			} else if (streq(args[i], "-emit-ir"))
				opt_emit_ir = true;
			else if (streq(args[i], "-emit-tokens"))
				opt_emit_tokens = true;
			else if (streq(args[i], "-dry"))
				opt_dry = true;
			else {
				die("Unknown option: %s\n", args[i]);
			}
		} else {
			if (filename) {
				die("Filename already set to '%s'\n", filename);
			}
			filename = args[i];
		}
	}
	if (!filename) {
		die("Please specify a filename\n");
	}
	/* read source file */
	FILE *fp = fopen(filename, "r");
	if (!fp) {
		die("Failed to open '%s': %s\n", filename, strerror(errno));
	}
	char *file = mreadfile(fp);
	if (!file) {
		fclose(fp);
		die("Failed to read '%s': %s\n", filename, strerror(errno));
	}
	fclose(fp);
	/* lex source file */
	TokList tokens = lex(file);
	if (err) {
		toklist_term(&tokens);
		free(file);
		fprintf(stderr, C_IRED "Lexer error" C_RESET " in " C_CYAN "%s" C_RESET ":%zu:%zu: %s\n", filename, err_ln, err_col, errbuf);
		return 1;
	}
	free(file);
	if (opt_emit_tokens)
		print_toks(&tokens);
	/* parse tokens into IR code */
	BuiltinFunc funcs[] = {
		{ .name = "put",    .kind = FuncVarArgs,   .returns = false, .side_effects = true,  .VarArgs   = { .min_args = 0, .NoRet.func   = fn_put,    }},
		{ .name = "putln",  .kind = FuncVarArgs,   .returns = false, .side_effects = true,  .VarArgs   = { .min_args = 0, .NoRet.func   = fn_putln,  }},
		{ .name = "int",    .kind = FuncFixedArgs, .returns = true,  .side_effects = false, .FixedArgs = { .n_args = 1,   .WithRet.func = fn_int,    }},
		{ .name = "float",  .kind = FuncFixedArgs, .returns = true,  .side_effects = false, .FixedArgs = { .n_args = 1,   .WithRet.func = fn_float,  }},
		{ .name = "bool",   .kind = FuncFixedArgs, .returns = true,  .side_effects = false, .FixedArgs = { .n_args = 1,   .WithRet.func = fn_bool,   }},
		{ .name = "char",   .kind = FuncFixedArgs, .returns = true,  .side_effects = false, .FixedArgs = { .n_args = 1,   .WithRet.func = fn_char,   }},
		{ .name = "ptr",    .kind = FuncFixedArgs, .returns = true,  .side_effects = false, .FixedArgs = { .n_args = 0,   .WithRet.func = fn_ptr,    }},
		{ .name = "string", .kind = FuncFixedArgs, .returns = true,  .side_effects = false, .FixedArgs = { .n_args = 1,   .WithRet.func = fn_string, }},
		{ .name = "pow",    .kind = FuncFixedArgs, .returns = true,  .side_effects = false, .FixedArgs = { .n_args = 2,   .WithRet.func = fn_pow,    }},
		{ .name = "sleep",  .kind = FuncFixedArgs, .returns = false, .side_effects = true,  .FixedArgs = { .n_args = 1,   .NoRet.func   = fn_sleep,  }},
		{ .name = "getln",  .kind = FuncFixedArgs, .returns = true,  .side_effects = true,  .FixedArgs = { .n_args = 0,   .WithRet.func = fn_getln,  }},
	};
	IRList ir = parse(&tokens, funcs, sizeof(funcs) / sizeof(funcs[0]));
	if (err) {
		irlist_term(&ir);
		toklist_term(&tokens);
		fprintf(stderr, C_IRED "Parser error" C_RESET " in " C_CYAN "%s" C_RESET ":%zu:%zu: %s\n", filename, err_ln, err_col, errbuf);
		return 1;
	}
	toklist_term(&tokens);
	optimize_ir(&ir);
	if (opt_emit_ir)
		print_ir(&ir, funcs);
	/* run the IR */
	if (!opt_dry) {
		run(&ir, funcs);
		if (err) {
			irlist_term(&ir);
			fprintf(stderr, C_IRED "Runtime error" C_RESET " in " C_CYAN "%s" C_RESET ":%zu:%zu: %s\n", filename, err_ln, err_col, errbuf);
			return 1;
		}
	}
	irlist_term(&ir);
}