*: big code reorganization.

- source and tests are now splitted by target
- utils lib is now called common

still pending move error.c from blogc to common

1 files changed, 218 insertions, 0 deletions

diff --git a/src/blogc/source-parser.c b/src/blogc/source-parser.c
new file mode 100644
index 0000000..4472096
--- /dev/null
+++ b/src/blogc/source-parser.c
@@ -0,0 +1,218 @@
+/*
+ * 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 <stdlib.h>
+#include <string.h>
+
+#include "content-parser.h"
+#include "source-parser.h"
+#include "error.h"
+#include "../common/utils.h"
+
+
+typedef enum {
+    SOURCE_START = 1,
+    SOURCE_CONFIG_KEY,
+    SOURCE_CONFIG_VALUE_START,
+    SOURCE_CONFIG_VALUE,
+    SOURCE_SEPARATOR,
+    SOURCE_CONTENT_START,
+    SOURCE_CONTENT,
+} blogc_source_parser_state_t;
+
+
+sb_trie_t*
+blogc_source_parse(const char *src, size_t src_len, blogc_error_t **err)
+{
+    if (err == NULL || *err != NULL)
+        return NULL;
+
+    size_t current = 0;
+    size_t start = 0;
+    size_t end_excerpt = 0;
+
+    char *key = NULL;
+    char *tmp = NULL;
+    char *content = NULL;
+    sb_trie_t *rv = sb_trie_new(free);
+
+    blogc_source_parser_state_t state = SOURCE_START;
+
+    while (current < src_len) {
+        char c = src[current];
+
+        switch (state) {
+
+            case SOURCE_START:
+                if (c == ' ' || c == '\t' || c == '\n' || c == '\r')
+                    break;
+                if (c >= 'A' && c <= 'Z') {
+                    state = SOURCE_CONFIG_KEY;
+                    start = current;
+                    break;
+                }
+                if (c == '-') {
+                    state = SOURCE_SEPARATOR;
+                    break;
+                }
+                *err = blogc_error_parser(BLOGC_ERROR_SOURCE_PARSER, src, src_len,
+                    current,
+                    "Can't find a configuration key or the content separator.");
+                break;
+
+            case SOURCE_CONFIG_KEY:
+                if ((c >= 'A' && c <= 'Z') || (c >= '0' && c <= '9') || c == '_')
+                    break;
+                if (c == ':') {
+                    key = sb_strndup(src + start, current - start);
+                    if (((current - start == 8) &&
+                         (0 == strncmp("FILENAME", src + start, 8))) ||
+                        ((current - start == 7) &&
+                         (0 == strncmp("CONTENT", src + start, 7))) ||
+                        ((current - start == 14) &&
+                         (0 == strncmp("DATE_FORMATTED", src + start, 14))) ||
+                        ((current - start == 20) &&
+                         (0 == strncmp("DATE_FIRST_FORMATTED", src + start, 20))) ||
+                        ((current - start == 19) &&
+                         (0 == strncmp("DATE_LAST_FORMATTED", src + start, 19))) ||
+                        ((current - start == 10) &&
+                         (0 == strncmp("PAGE_FIRST", src + start, 10))) ||
+                        ((current - start == 13) &&
+                         (0 == strncmp("PAGE_PREVIOUS", src + start, 13))) ||
+                        ((current - start == 12) &&
+                         (0 == strncmp("PAGE_CURRENT", src + start, 12))) ||
+                        ((current - start == 9) &&
+                         (0 == strncmp("PAGE_NEXT", src + start, 9))) ||
+                        ((current - start == 9) &&
+                         (0 == strncmp("PAGE_LAST", src + start, 9))) ||
+                        ((current - start == 13) &&
+                         (0 == strncmp("BLOGC_VERSION", src + start, 13))))
+                    {
+                        *err = blogc_error_new_printf(BLOGC_ERROR_SOURCE_PARSER,
+                            "'%s' variable is forbidden in source files. It will "
+                            "be set for you by the compiler.", key);
+                        break;
+                    }
+                    state = SOURCE_CONFIG_VALUE_START;
+                    break;
+                }
+                *err = blogc_error_parser(BLOGC_ERROR_SOURCE_PARSER, src, src_len,
+                    current, "Invalid configuration key.");
+                break;
+
+            case SOURCE_CONFIG_VALUE_START:
+                if (c != '\n' && c != '\r') {
+                    state = SOURCE_CONFIG_VALUE;
+                    start = current;
+                    break;
+                }
+                *err = blogc_error_parser(BLOGC_ERROR_SOURCE_PARSER, src, src_len,
+                    current, "Configuration value not provided for '%s'.",
+                    key);
+                break;
+
+            case SOURCE_CONFIG_VALUE:
+                if (c == '\n' || c == '\r') {
+                    tmp = sb_strndup(src + start, current - start);
+                    sb_trie_insert(rv, key, sb_strdup(sb_str_strip(tmp)));
+                    free(tmp);
+                    free(key);
+                    key = NULL;
+                    state = SOURCE_START;
+                }
+                break;
+
+            case SOURCE_SEPARATOR:
+                if (c == '-')
+                    break;
+                if (c == '\n' || c == '\r') {
+                    state = SOURCE_CONTENT_START;
+                    break;
+                }
+                *err = blogc_error_parser(BLOGC_ERROR_SOURCE_PARSER, src, src_len,
+                    current,
+                    "Invalid content separator. Must be more than one '-' characters.");
+                break;
+
+            case SOURCE_CONTENT_START:
+                if (c == '\n' || c == '\r')
+                    break;
+                start = current;
+                state = SOURCE_CONTENT;
+                break;
+
+            case SOURCE_CONTENT:
+                if (current == (src_len - 1)) {
+                    tmp = sb_strndup(src + start, src_len - start);
+                    sb_trie_insert(rv, "RAW_CONTENT", tmp);
+                    char *description = NULL;
+                    content = blogc_content_parse(tmp, &end_excerpt, &description);
+                    if (description != NULL) {
+                        // do not override source-provided description.
+                        if (NULL == sb_trie_lookup(rv, "DESCRIPTION")) {
+                            // no need to free, because we are transfering memory
+                            // ownership to the trie.
+                            sb_trie_insert(rv, "DESCRIPTION", description);
+                        }
+                        else {
+                            free(description);
+                        }
+                    }
+                    sb_trie_insert(rv, "CONTENT", content);
+                    sb_trie_insert(rv, "EXCERPT", end_excerpt == 0 ?
+                        sb_strdup(content) : sb_strndup(content, end_excerpt));
+                }
+                break;
+        }
+
+        if (*err != NULL)
+            break;
+
+        current++;
+    }
+
+    if (*err == NULL && sb_trie_size(rv) == 0) {
+
+        // ok, nothing found in the config trie, but no error set either.
+        // let's try to be nice with the users and provide some reasonable
+        // output. :)
+        switch (state) {
+            case SOURCE_START:
+                *err = blogc_error_parser(BLOGC_ERROR_SOURCE_PARSER, src, src_len,
+                    current, "Your source file is empty.");
+                break;
+            case SOURCE_CONFIG_KEY:
+                *err = blogc_error_parser(BLOGC_ERROR_SOURCE_PARSER, src, src_len,
+                    current, "Your last configuration key is missing ':' and "
+                    "the value");
+                break;
+            case SOURCE_CONFIG_VALUE_START:
+                *err = blogc_error_parser(BLOGC_ERROR_SOURCE_PARSER, src, src_len,
+                    current, "Configuration value not provided for '%s'.",
+                    key);
+                break;
+            case SOURCE_CONFIG_VALUE:
+                *err = blogc_error_parser(BLOGC_ERROR_SOURCE_PARSER, src, src_len,
+                    current, "No line ending after the configuration value for "
+                    "'%s'.", key);
+                break;
+            case SOURCE_SEPARATOR:
+            case SOURCE_CONTENT_START:
+            case SOURCE_CONTENT:
+                break;  // won't happen, and if even happen, shouldn't be fatal
+        }
+    }
+
+    if (*err != NULL) {
+        free(key);
+        sb_trie_free(rv);
+        return NULL;
+    }
+
+    return rv;
+}