1 files changed, 139 insertions, 0 deletions
diff --git a/src/blogc/error.c b/src/blogc/error.c
new file mode 100644
index 0000000..41f4cd0
--- /dev/null
+++ b/src/blogc/error.c
@@ -0,0 +1,139 @@
+/*
+ * blogc: A blog compiler.
+ * Copyright (C) 2015-2016 Rafael G. Martins <rafael@rafaelmartins.eng.br>
+ *
+ * This program can be distributed under the terms of the BSD License.
+ * See the file LICENSE.
+ */
+
+#include <stdio.h>
+#include <stdlib.h>
+#include <stdarg.h>
+#include "error.h"
+#include "../common/utils.h"
+
+
+blogc_error_t*
+blogc_error_new(blogc_error_type_t type, const char *msg)
+{
+    blogc_error_t *err = sb_malloc(sizeof(blogc_error_t));
+    err->type = type;
+    err->msg = sb_strdup(msg);
+    return err;
+}
+
+
+blogc_error_t*
+blogc_error_new_printf(blogc_error_type_t type, const char *format, ...)
+{
+    va_list ap;
+    va_start(ap, format);
+    char *tmp = sb_strdup_vprintf(format, ap);
+    va_end(ap);
+    blogc_error_t *rv = blogc_error_new(type, tmp);
+    free(tmp);
+    return rv;
+}
+
+
+blogc_error_t*
+blogc_error_parser(blogc_error_type_t type, const char *src, size_t src_len,
+    size_t current, const char *format, ...)
+{
+    va_list ap;
+    va_start(ap, format);
+    char *msg = sb_strdup_vprintf(format, ap);
+    va_end(ap);
+
+    size_t lineno = 1;
+    size_t linestart = 0;
+    size_t lineend = 0;
+    size_t pos = 1;
+
+    for (size_t i = 0; i < src_len; i++) {
+        char c = src[i];
+        if (i < current) {
+            if ((i + 1) < src_len) {
+                if ((c == '\n' && src[i + 1] == '\r') ||
+                    (c == '\r' && src[i + 1] == '\n'))
+                {
+                    lineno++;
+                    i++;
+                    pos = 1;
+                    if ((i + 1) < src_len)
+                        linestart = i + 1;
+                    continue;
+                }
+            }
+            if (c == '\n' || c == '\r') {
+                lineno++;
+                pos = 1;
+                if ((i + 1) < src_len)
+                    linestart = i + 1;
+                continue;
+            }
+            pos++;
+        }
+        else if (c == '\n' || c == '\r') {
+            lineend = i;
+            break;
+        }
+    }
+
+    if (lineend <= linestart && src_len >= linestart)
+        lineend = src_len;
+
+    char *line = sb_strndup(src + linestart, lineend - linestart);
+
+    blogc_error_t *rv = NULL;
+
+    if (line[0] == '\0')  // "near" message isn't useful if line is empty
+        rv = blogc_error_new(type, msg);
+    else
+        rv = blogc_error_new_printf(type,
+            "%s\nError occurred near line %d, position %d: %s", msg, lineno,
+            pos, line);
+
+    free(msg);
+    free(line);
+
+    return rv;
+}
+
+
+void
+blogc_error_print(blogc_error_t *err)
+{
+    if (err == NULL)
+        return;
+
+    switch(err->type) {
+        case BLOGC_ERROR_SOURCE_PARSER:
+            fprintf(stderr, "blogc: error: source: %s\n", err->msg);
+            break;
+        case BLOGC_ERROR_TEMPLATE_PARSER:
+            fprintf(stderr, "blogc: error: template: %s\n", err->msg);
+            break;
+        case BLOGC_ERROR_LOADER:
+            fprintf(stderr, "blogc: error: loader: %s\n", err->msg);
+            break;
+        case BLOGC_ERROR_FILE:
+            fprintf(stderr, "blogc: error: file: %s\n", err->msg);
+            break;
+        case BLOGC_WARNING_DATETIME_PARSER:
+            fprintf(stderr, "blogc: warning: datetime: %s\n", err->msg);
+            break;
+        default:
+            fprintf(stderr, "blogc: error: %s\n", err->msg);
+    }
+}
+
+
+void
+blogc_error_free(blogc_error_t *err)
+{
+    if (err == NULL)
+        return;
+    free(err->msg);
+    free(err);
+}