1 files changed, 38 insertions, 0 deletions
diff --git a/src/stdlib/fail.c b/src/stdlib/fail.c
new file mode 100644
index 00000000..a69ea469
--- /dev/null
+++ b/src/stdlib/fail.c
@@ -0,0 +1,38 @@
+// Failure functions
+#include <errno.h>
+#include <signal.h>
+#include <stdio.h>
+
+#include "../util.h"
+#include "fail.h"
+#include "files.h"
+#include "stacktrace.h"
+#include "stdlib.h"
+#include "text.h"
+#include "util.h"
+
+public
+_Noreturn void fail_text(Text_t message) { fail(message); }
+
+public
+Text_t builtin_last_err() { return Text$from_str(strerror(errno)); }
+
+_Noreturn void fail_source(const char *filename, int start, int end, Text_t message) {
+    tomo_cleanup();
+    fflush(stdout);
+    if (USE_COLOR) fputs("\x1b[31;7m ==================== ERROR ==================== \n\n\x1b[0;1m", stderr);
+    else fputs("==================== ERROR ====================\n\n", stderr);
+    print_stacktrace(stderr, 1);
+    fputs("\n", stderr);
+    if (USE_COLOR) fputs("\x1b[31;1m", stderr);
+    Text$print(stderr, message);
+    file_t *_file = (filename) ? load_file(filename) : NULL;
+    if ((filename) && _file) {
+        fputs("\n", stderr);
+        highlight_error(_file, _file->text + (start), _file->text + (end), "\x1b[31;1m", 1, USE_COLOR);
+    }
+    if (USE_COLOR) fputs("\x1b[m", stderr);
+    fflush(stderr);
+    raise(SIGABRT);
+    exit(1);
+}