/*
 * Copyright (c) 2019 Miroslav Foltýn.  All Rights Reserved.
 * 
 * This program is free software; you can redistribute it and/or modify it
 * under the terms of the GNU General Public License as published by the
 * Free Software Foundation; either version 2 of the License, or (at your
 * option) any later version.
 * 
 * This program is distributed in the hope that it will be useful, but
 * WITHOUT ANY WARRANTY; without even the implied warranty of MERCHANTABILITY
 * or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU General Public License
 * for more details.
 */

#include <stdio.h>
#include <stdlib.h>
#include <stdint.h>
#include <string.h>
#include <sys/types.h>

#include "utils.h"
#include "parser-basic.h"
#include "parsers-utils.h"
#include "string.h"

#define IS_ALPHANUMERIC(x) \
    (((int) x >= (int) 'a' && (int) x <= (int) 'z') || \
     ((int) x >= (int) 'A' && (int) x <= (int) 'Z') || \
     ((int) x >= (int) '0' && (int) x <= (int) '9')) \

#define IS_NUMERIC(x) \
    ((int) x >= (int) '0' && (int) x <= (int) '9') \

#define IS_DOT(x) \
    ((int) x == (int) '.') \

#define IS_E(x) \
    ((int) x == (int) 'E' || (int) x == (int) 'e') \

#define IS_SIGN(x) \
    ((int) x == (int) '+' || (int) x == (int) '-') \

#define IS_ALLOWED_PUNCTUATION(x) \
    ((int) x == (int) '.' || \
     (int) x == (int) '_') \

#define IS_SANITIZABLE_PUNCTUATION(x) \
    ((int) x == (int) '/' || \
     (int) x == (int) '-' || \
     (int) x == (int) ' ') \

#define IS_PCP_ALLOWED_FIRST_CHAR(x) \
    (((int) x >= (int) 'a' && (int) x <= (int) 'z') || \
     ((int) x >= (int) 'A' && (int) x <= (int) 'Z')) \

static int
parse(char* buffer, struct statsd_datagram** datagram);

/**
 * Basic parser entry point
 * Parsers given buffer and populates datagram with parsed data if they are valid
 * @arg buffer - Buffer to be parsed
 * @arg datagram - Placeholder for parsed data
 * @return 1 on success, 0 on fail 
 */
int
basic_parser_parse(char* buffer, struct statsd_datagram** datagram) {
    *datagram = (struct statsd_datagram*) malloc(sizeof(struct statsd_datagram));
    ALLOC_CHECK("Unabel to allocate space for statsd structured datagram.");
    *(*datagram) = (struct statsd_datagram) {0};
    int length = strlen(buffer);
    if (buffer[length - 1] == '\n')
        buffer[length - 1] = 0;
    if (parse(buffer, datagram)) {
        VERBOSE_LOG(2, "Parsed: %s", buffer);
        return 1;
    }
    free_datagram(*datagram);
    METRIC_PROCESSING_ERR_LOG("Throwing away datagram. REASON: unable to parse: %s", buffer);
    return 0;
};

static int
parse(char* buffer, struct statsd_datagram** datagram) {
    size_t i = 0;
    size_t count = strlen(buffer) + 1;
    struct tag_collection* tags = NULL;
    char* tag_key = NULL;
    char* tag_value = NULL;
    int past_type = 0;
    int any_tags = 0;
    /* Flag field used to determine which memory to free in stats_datagram should data parsing fail, bits in this order
     * tags
     * metric
     * type
     * value
     * sampling
     * */
    char field_allocated_flags = 0b00000000;
    char tag_allocated_flags = 0b00000000;
    /*
     * 0 = name
     * 1 = tag_key
     * 2 = tag_value
     * 3 = value
     * 4 = type
     * 5 = divider
     * 6 = tag_key
     * 7 = tag_value
     */
    int segment_type = 0;
    /* Index into payload */
    size_t segment_start = 0;
    int value_segment_type = 0;
    /* Helper flags for value parsing */
    int number_found = 0;
    int allow_dot = 1;
    int allow_e = 1;
    for (i = 0; i < count; i++) {
        int current_segment_length = i - segment_start;
        switch (segment_type) {
            case 0:
            {
                if (segment_start == i) {
                    if (IS_PCP_ALLOWED_FIRST_CHAR(buffer[i])) {
                        continue;
                    } else {
                        goto error_clean_up;
                    }
                } else if(IS_ALPHANUMERIC(buffer[i]) || IS_ALLOWED_PUNCTUATION(buffer[i])) {
                    continue;
                } else if (buffer[i] == ',' || buffer[i] == ':') {
                    (*datagram)->name = (char *) malloc(current_segment_length + 1);
                    ALLOC_CHECK("Not enough memory to save metric attribute.");
                    memcpy((*datagram)->name, &buffer[segment_start], current_segment_length + 1);
                    (*datagram)->name[current_segment_length] = '\0';
                    segment_start = i + 1;
                    if (buffer[i] == ',') {
                        segment_type = 1;
                    } else {
                        segment_type = 3;
                    }
                } else {
                    goto error_clean_up;
                }
                break;
            }
            case 1:
            {
                if (IS_ALPHANUMERIC(buffer[i]) || IS_ALLOWED_PUNCTUATION(buffer[i])) {
                    continue;
                } else if (buffer[i] == '=' || (past_type && buffer[i] == ':')) {
                    tag_key = (char *) realloc(tag_key, current_segment_length + 1);
                    ALLOC_CHECK("Not enough memory for tag key buffer.");
                    tag_allocated_flags = tag_allocated_flags | 1 << 1;
                    memcpy(tag_key, &buffer[segment_start], current_segment_length);
                    tag_key[current_segment_length] = '\0';
                    segment_type = 2;
                    segment_start = i + 1;
                } else {
                    goto error_clean_up;
                }
                break;
            }
            case 2:
            {
                // tag_value
                if (IS_ALPHANUMERIC(buffer[i]) || IS_ALLOWED_PUNCTUATION(buffer[i])) {
                    continue;
                } else if ((buffer[i] == ',' || buffer[i] == ':') ||
                            (past_type && (buffer[i] == ',' || buffer[i] == '\0'))) {
                    tag_value = (char *) realloc(tag_value, current_segment_length + 1);
                    ALLOC_CHECK("Not enough memory for tag value buffer.");
                    tag_allocated_flags = tag_allocated_flags | 1 << 0;
                    memcpy(tag_value, &buffer[segment_start], current_segment_length + 1);
                    tag_value[current_segment_length] = '\0';
                    size_t key_len = strlen(tag_key) + 1;
                    size_t value_len = strlen(tag_value) + 1;
                    struct tag* t = (struct tag*) malloc(sizeof(struct tag));
                    ALLOC_CHECK("Unable to allocate memory for tag.");
                    t->key = (char*) malloc(key_len);
                    ALLOC_CHECK("Unable to allocate memory for tag key.");
                    t->value = (char*) malloc(value_len);
                    ALLOC_CHECK("Unable to allocate memory for tag value.");
                    memcpy(t->key, tag_key, key_len);
                    memcpy(t->value, tag_value, value_len);
                    if (!any_tags) {
                        tags = (struct tag_collection*) malloc(sizeof(struct tag_collection));
                        ALLOC_CHECK("Unable to allocate memory for tag collection.");
                        field_allocated_flags = field_allocated_flags | 1 << 0;
                        tags->values = (struct tag**) malloc(sizeof(struct tag*));
                        tags->values[0] = t;
                        tags->length = 1;
                        any_tags = 1;
                    } else {
                        struct tag** new_tags = (struct tag**) realloc(tags->values, sizeof(struct tag*) * (tags->length + 1));
                        ALLOC_CHECK("Unable to allocate memory for tags.");
                        tags->values = new_tags;
                        tags->values[tags->length] = t;
                        tags->length++;
                    }
                    free(tag_key);
                    free(tag_value);
                    tag_allocated_flags = 0;
                    tag_key = NULL;
                    tag_value = NULL;
                    segment_start = i + 1;
                    if (buffer[i] == ',') {
                        segment_type = 1;
                    } else {
                        segment_type = 3;
                    }
                } else {
                    goto error_clean_up;
                }
                break;
            }
            case 3:
            {
                char c = buffer[i];
                switch (value_segment_type) {
                    case 0:
                    {
                        if (IS_SIGN(c)) {
                            value_segment_type = 1;
                            continue;
                        }
                    }
                    case 1:
                    {
                        if (IS_NUMERIC(c)) {
                            value_segment_type = 1;
                            number_found = 1;
                            continue;
                        }
                        if (number_found && IS_DOT(c) && allow_dot) {
                            number_found = 0;
                            allow_dot = 0;
                            continue;
                        }
                        if (number_found && IS_E(c) && allow_e) {
                            number_found = 0;
                            allow_dot = 0;
                            allow_e = 0;
                            value_segment_type = 0;
                            continue;
                        }
                        if (number_found && c == '|') {
                            char* startptr;
                            char* endptr = &buffer[i];
                            if (buffer[segment_start] == '+') {
                                (*datagram)->explicit_sign = SIGN_PLUS;
                                startptr = &(buffer[segment_start]);
                            } else if (buffer[segment_start] == '-') {
                                (*datagram)->explicit_sign = SIGN_MINUS;
                                startptr = &(buffer[segment_start + 1]);
                            } else {
                                (*datagram)->explicit_sign = SIGN_NONE;
                                startptr = &(buffer[segment_start]);
                            }
                            double value = strtod(startptr, &endptr);
                            if (startptr == endptr || errno == ERANGE) {
                                goto error_clean_up;
                            }
                            (*datagram)->value = value;
                            segment_type = 4;
                            segment_start = i + 1;
                            goto exit_value;
                        }
                        goto error_clean_up;
                    }
                    default: 
                    {
                        goto error_clean_up;
                    }
                }
                exit_value:;
                break;
            }
            case 4:
            {
                // type
                if (current_segment_length == 0 && 
                    (buffer[i] == 'm' || buffer[i] == 'c' || buffer[i] == 'g')) {
                    continue;
                } else if (current_segment_length == 1 && buffer[i] == 's' && buffer[i - 1] == 'm') {
                    continue;
                } else if ((current_segment_length != 0 && buffer[i] == '\0') || buffer[i] == '|') {
                    enum METRIC_TYPE type;
                    if (buffer[i - current_segment_length] == 'm') {
                        type = METRIC_TYPE_DURATION;
                    } else if (buffer[i - current_segment_length] == 'g') {
                        type = METRIC_TYPE_GAUGE;
                    } else {
                        type = METRIC_TYPE_COUNTER;
                    }
                    (*datagram)->type = type;
                    if (buffer[i] == '|') {
                        segment_type = 5;
                        segment_start = i + 1;
                    } else {
                        break;
                    }
                } else {
                    goto error_clean_up;
                }
                break;
            }
            case 5:
            {
                if (current_segment_length == 0 && buffer[i] == '|') {
                    continue;
                } else if (buffer[i] == '#') {
                    segment_type = 1;
                    past_type = 1;
                    segment_start = i + 1;
                } else {
                    goto error_clean_up;
                }
                // divider
                break;
            }
            default:
                goto error_clean_up;
        }

    }
    if (any_tags) {
        char* json = tag_collection_to_json(tags);
        if (json != NULL) {
            (*datagram)->tags = json;
            (*datagram)->tags_pair_count = tags->length;
        }
        free_tag_collection(tags);
        if (tag_allocated_flags & 2) {
            free(tag_key);
        }
        if (tag_allocated_flags & 1) {
            free(tag_value);
        }
    }
    return 1;

    error_clean_up:;
    if (any_tags) {
        free_tag_collection(tags);
    }
    if (tag_allocated_flags & 2) {
        free(tag_key);
    }
    if (tag_allocated_flags & 1) {
        free(tag_value);
    }
    return 0;
}

/**
 * --------------------------------------
 * |                                    |
 * |     UNIT TEST FOR THIS FILE        |
 * |                                    |
 * --------------------------------------
 */
#if _TEST_TARGET == 1

int
main() {
    INIT_TEST("Running tests for basic parser:", basic_parser_parse);
    SUITE_HEADER("Unparsable values")
    CHECK_ERROR("", NULL, NULL, 0, METRIC_TYPE_NONE, SIGN_NONE);
    CHECK_ERROR("wow", NULL, NULL, 0, METRIC_TYPE_NONE, SIGN_NONE);
    CHECK_ERROR("wow:2", NULL, NULL, 0, METRIC_TYPE_NONE, SIGN_NONE);
    CHECK_ERROR("wow|g", NULL, NULL, 0, METRIC_TYPE_NONE, SIGN_NONE);
    CHECK_ERROR("2|g", NULL, NULL, 0, METRIC_TYPE_NONE, SIGN_NONE);
    CHECK_ERROR("1:1|c", NULL, NULL, 0, METRIC_TYPE_NONE, SIGN_NONE);
    CHECK_ERROR("e x-2 ple:20|c", NULL, NULL, 0, METRIC_TYPE_NONE, SIGN_NONE);
    CHECK_ERROR("example,tags=dwq=qwddqwd=qwd:10|c", NULL, NULL, 0, METRIC_TYPE_NONE, SIGN_NONE);
    SUITE_HEADER("Basic values");
    CHECK_ERROR("example:-1|c", "example", NULL, 1, METRIC_TYPE_COUNTER, SIGN_MINUS);
    CHECK_ERROR("example:+1|g", "example", NULL, 1, METRIC_TYPE_GAUGE, SIGN_PLUS);
    CHECK_ERROR("example:1|ms", "example", NULL, 1, METRIC_TYPE_DURATION, SIGN_NONE);
    SUITE_HEADER("Sanitizable metric name");
    SUITE_HEADER("Non integer values")
    CHECK_ERROR("example:1.2|c", "example", NULL, 1.2, METRIC_TYPE_COUNTER, SIGN_NONE);
    CHECK_ERROR("example:1.000000004|c", "example", NULL, 1.000000004, METRIC_TYPE_COUNTER, SIGN_NONE);
    CHECK_ERROR("example:1.00000000000000000000000000000004|c", "example", NULL, 1.00000000000000000000000000000004, METRIC_TYPE_COUNTER, SIGN_NONE);
    SUITE_HEADER("Instance descriptors")
    CHECK_ERROR("example,instance=20:20|c", "example", "{\"instance\":\"20\"}", 20, METRIC_TYPE_COUNTER, SIGN_NONE);
    SUITE_HEADER("Tag descriptors")
    CHECK_ERROR("example,tagY=20,tagX=10:10|c", "example", "{\"tagX\":\"10\",\"tagY\":\"20\"}", 10, METRIC_TYPE_COUNTER, SIGN_NONE);
	CHECK_ERROR("example,tagY=20:10|c|#tagY:20,tagW:W", "example", "{\"tagW\":\"W\",\"tagY\":\"20\"}", 10, METRIC_TYPE_COUNTER, SIGN_NONE);
    SUITE_HEADER("Malformed tags")
    SUITE_HEADER("Too long tag descriptor (gets thrown away)")
    CHECK_ERROR("example,[encoded data, 4101 characters]:10|c", "example", NULL, 10, METRIC_TYPE_COUNTER, SIGN_NONE);
    END_TEST();
}

#endif
