meta: rename frontend source directory

frontend/CMakeLists.txt

@@ -0,0 +1,12 @@
+file(GLOB_RECURSE ivy_sources *.c *.h)
+
+add_executable(ivy ${ivy_sources})
+target_link_libraries(
+	ivy
+	ivy-rt
+	ivy-asm
+	ivy-lang
+	ivy-common
+	Bluelib::Core
+	Bluelib::Object
+	Bluelib::Cmd)

frontend/cmd/assemble.c

@@ -0,0 +1,15 @@
+#include "cmd.h"
+
+#include <blue/cmd.h>
+
+B_COMMAND(CMD_ASSEMBLE, CMD_ROOT)
+{
+	B_COMMAND_NAME("assemble");
+	B_COMMAND_SHORT_NAME('A');
+	B_COMMAND_DESC(
+		"assemble one or more Ivy assembly source files into Ivy "
+	        "object files.");
+	B_COMMAND_FLAGS(B_COMMAND_SHOW_HELP_BY_DEFAULT);
+
+	B_COMMAND_HELP_OPTION();
+}

frontend/cmd/cmd.h

@@ -0,0 +1,11 @@
+#ifndef CMD_CMD_H_
+#define CMD_CMD_H_
+
+enum command_id {
+	CMD_ROOT,
+	CMD_ASSEMBLE,
+	CMD_COMPILE,
+	CMD_REPL,
+};
+
+#endif

frontend/cmd/compile.c

@@ -0,0 +1,94 @@
+#include "cmd.h"
+
+#include <blue/cmd.h>
+#include <blue/term.h>
+#include <errno.h>
+#include <ivy/file.h>
+#include <ivy/lang/lex.h>
+#include <stdio.h>
+
+enum {
+	ARG_SOURCE_FILE,
+};
+
+static int compile_file(const char *path)
+{
+
+	FILE *fp = fopen(path, "r");
+	if (!fp) {
+		b_err("cannot open source file '%s'", path);
+		b_i("reason: %s", strerror(errno));
+		return -1;
+	}
+
+	struct ivy_file *src = ivy_file_from_fp(fp);
+	struct ivy_lexer lex;
+	if (ivy_lexer_init(&lex) != IVY_OK) {
+		b_err("failed to initialise Ivy lexer");
+		ivy_file_close(src);
+		return -1;
+	}
+
+	lex.lex_source = &src->f_base;
+
+	while (true) {
+		struct ivy_token *tok = ivy_lexer_read(&lex);
+		if (lex.lex_status == IVY_ERR_EOF) {
+			break;
+		}
+
+		if (lex.lex_status != IVY_OK) {
+			b_err("failed to parse '%s'", path);
+			b_i("reason: lex error (%s)",
+			    ivy_status_to_string(lex.lex_status));
+			break;
+		}
+
+		printf("read token!\n");
+	}
+
+	int r = (lex.lex_status == IVY_OK || lex.lex_status == IVY_ERR_EOF) ? 0
+	                                                                    : -1;
+	ivy_file_close(src);
+	ivy_lexer_finish(&lex);
+	return r;
+}
+
+static int compile(const b_command *cmd, const b_arglist *args, const b_array *_)
+{
+	b_arglist_iterator it;
+	b_arglist_foreach_filtered(&it, args, B_COMMAND_INVALID_ID, ARG_SOURCE_FILE)
+	{
+		b_arglist_value *path = it.value;
+		if (path->val_type != B_COMMAND_ARG_STRING) {
+			continue;
+		}
+
+		printf("%s\n", path->val_str);
+		int r = compile_file(path->val_str);
+		if (r != 0) {
+			return r;
+		}
+	}
+
+	return 0;
+}
+
+B_COMMAND(CMD_COMPILE, CMD_ROOT)
+{
+	B_COMMAND_NAME("compile");
+	B_COMMAND_SHORT_NAME('C');
+	B_COMMAND_DESC(
+		"compile one or more Ivy source files into Ivy object files.");
+	B_COMMAND_FLAGS(B_COMMAND_SHOW_HELP_BY_DEFAULT);
+	B_COMMAND_FUNCTION(compile);
+
+	B_COMMAND_ARG(ARG_SOURCE_FILE)
+	{
+		B_ARG_NAME("source file");
+		B_ARG_DESC("the .im source files to compile.");
+		B_ARG_NR_VALUES(B_ARG_1_OR_MORE_VALUES);
+	}
+
+	B_COMMAND_HELP_OPTION();
+}

frontend/cmd/repl.c

@@ -0,0 +1,3 @@
+#include "cmd.h"
+
+#include <blue/cmd.h>

frontend/main.c

@@ -0,0 +1,40 @@
+#include "cmd/cmd.h"
+
+#include <blue/cmd.h>
+
+enum {
+	ARG_FILE
+};
+
+B_COMMAND(CMD_ROOT, B_COMMAND_INVALID_ID)
+{
+	B_COMMAND_NAME("ivy");
+	B_COMMAND_DESC("evaluate an Ivy source file or Ivy object file.");
+	B_COMMAND_HELP_OPTION();
+	B_COMMAND_FLAGS(B_COMMAND_SHOW_HELP_BY_DEFAULT);
+
+	B_COMMAND_ARG(ARG_FILE)
+	{
+		B_ARG_NAME("file");
+		B_ARG_DESC("The file to execute.");
+		B_ARG_NR_VALUES(1);
+	}
+
+	B_COMMAND_USAGE()
+	{
+		B_COMMAND_USAGE_OPT_PLACEHOLDER();
+		B_COMMAND_USAGE_ARG(ARG_FILE);
+	}
+
+	B_COMMAND_USAGE()
+	{
+		B_COMMAND_USAGE_COMMAND_PLACEHOLDER();
+		B_COMMAND_USAGE_OPT_PLACEHOLDER();
+		B_COMMAND_USAGE_ARG_PLACEHOLDER();
+	}
+}
+
+int main(int argc, const char **argv)
+{
+	return b_command_dispatch(CMD_ROOT, argc, argv);
+}