#if (!defined(NTSYS__S_ASSEMBLER_H___))
#define NTSYS__S_ASSEMBLER_H___

#define create_ntsys_asm_parser(cache, fp, str, table) ((ntsys_argument_parser_t){(cache), (fp), (str), (table)})
#define create_ntsys_asm_save(ss) ((ntsys_asm_save_t){(ss), (ss)})
#define create_ntsys_asm_cache(ss) ((ntsys_asm_cache_t)&(ss))
#define ntsys_asm_arg_new(str, __cache) ((ntsys_get_arg((__cache))) && ((str) = __cache->string))
#define ntsys_asm_arg_or_zero_len_str(str, __cache) ((((ntsys_get_arg((__cache))) && ((str) = __cache->string)) == NULL) ? ("") : (str))

/*
 *   #define __SPACE_SHIFT while (is_space(st[pos])) { pos ++; }
 *   #define __NEXT_ARG {__e_byte_t isStr = 0;while (!is_space(st[save]) || isStr == 1) { if (st[save] == '"' && st[save - 1] != '\\') {isStr = !isStr;}save ++; }}while (is_space(st[save])) { save ++; }{size_t n_p = save;__e_byte_t isStr = 0;while (!is_space(st[n_p]) || isStr == 1) { if (st[n_p] == '"' && st[n_p - 1] != '\\') {isStr = !isStr;}n_p ++; }st[n_p] = '\0';}
 *   #define get_mem_pos() *mem_pos = ftell(fp) == 0 ? 0 : ftell(fp) - 1;
 */

#define __READ_FILE_WITH_EOF_OR_LN ((c = getc(fp)) != EOF && c != '\n' && c != '\r')
#define is_space(c) (c >= 0 && c <= 32)

char* ntsys_get_str(char* ptr, FILE* fp) {
    if (ptr != NULL) { 
        free(ptr); 
    }
    unsigned long len = 0;
    int c;
    {
        unsigned long save_ptr = ftell(fp);
        while (__READ_FILE_WITH_EOF_OR_LN) {
            len ++;
        }
        fseek(fp, save_ptr, SEEK_SET);
    }
    if (len == 0) return NULL;
    ptr = malloc(len);
    if (ptr == NULL) {
        ntsys_error("Out of memory!");
        return NULL;
    }
    len = 0;
    while (__READ_FILE_WITH_EOF_OR_LN) {
        ptr[len] = c;
        len ++;
    }
    ptr[len] = '\0';
    return ptr;
}

#undef __READ_FILE_WITH_EOF_OR_LN

typedef struct {
    char* string;
    char* cache;
} ntsys_asm_save_t;

typedef ntsys_asm_save_t* ntsys_asm_cache_t;

static void __str_slice(char* str) {
    size_t i = 1;
    while (i < strlen(str)) {
        str[i - 1] = str[i];
        i ++;
    }
    str[strlen(str) - 1] = '\0';
}

char* ntsys_get_arg(ntsys_asm_cache_t save) {
    char* str = save->cache;
    while (1) { 
        if (!is_space(str[0]) || str[0] == '\0') {
            break;
        } 
        str ++; 
    }
    {
        size_t n_p = 0;
        __e_byte_t isStr = 0;
        while (1) { 
            if (str[n_p] == '"' && str[((n_p == 0) ? 1 : 0) - 1] != '\\') {isStr = !isStr;}
            if ((is_space(str[n_p]) && isStr == 0) || str[n_p] == '\0') {
                break;
            }
            n_p ++; 
        }
        save->cache = &str[n_p + 1];
        str[n_p] = '\0';
    }
    if (strlen(str) == 1 || strlen(str) == 0) { 
        str = NULL;
        save->string = NULL;
        return NULL; 
    }
    if (str[0] == '"') {
        str ++;
        if (str[strlen(str) - 1] != '"' || str[(strlen(str) < 2 ? 2 : strlen(str)) - 2] == '\\') {
            ntsys_error("No close of string!");
            str = NULL;
            save->string = NULL;
            return NULL;
        } else {
            str[strlen(str) - 1] = '\0';
            size_t i = 0;
            while (i < strlen(str)) {
                if (str[i] == '\\') {
                    __str_slice(&str[i]);
                    switch (str[i]) {
                        case '0': str[i] = '\0'; break;
                        case 'a': str[i] = '\a'; break;
                        case 'b': str[i] = '\b'; break;
                        case 't': str[i] = '\t'; break;
                        case 'n': str[i] = '\n'; break;
                        case 'v': str[i] = '\v'; break;
                        case 'f': str[i] = '\f'; break;
                        case 'r': str[i] = '\r'; break;
                        default:
                        ntsys_error("Unknown ident!");
                        str = NULL;
                        save->string = NULL;
                        return NULL;
                        break;
                    }
                }
                i ++;
            }
        }
    }
    save->string = str;
    return str;
}

typedef struct {
    ntsys_asm_cache_t cache;
    FILE* fp;
    char* string;
    char** table;
} ntsys_argument_parser_t;

int ntsys_run_asm_parser(ntsys_argument_parser_t parser) {
    char* str = parser.string;
    while (ntsys_asm_arg_new(str, parser.cache)) {
        puts(str);
    }
    return EXIT_SUCCESS;
}

#undef is_space

#endif