brainf-plusplus/main.c at master · see-sharp265/brainf-plusplus · GitHub

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
#include <stdio.h>
#include <stdlib.h>
#include <string.h>
unsigned int *buffer;
unsigned int *bufMap;
unsigned int buffersize;
unsigned int insertMemory(unsigned int addr) {
    realloc(buffer,(++buffersize) * sizeof(unsigned int));
    realloc(bufMap,buffersize * sizeof(unsigned int));
    buffer[buffersize - 1] = 0xFFFFFFFF;
    bufMap[buffersize - 1] = 0xFFFFFFFF;
    unsigned int z,a;
    for (z=1;z<buffersize;z++) {
        if (bufMap[z] > addr && bufMap[z-1] < addr) {
            for (a=buffersize-1;a>z;a++) {
                bufMap[a] = bufMap[a-1];
                buffer[a] = bufMap[a-1];
            }
            buffer[z] = 0;
            bufMap[z] = addr;
            return addr;
        }
    }
}
unsigned int getLocation(unsigned int x) {
    unsigned int y;
    for (y=0;y<buffersize;y++) {
        if (bufMap[y] == x) return y;
    }
    return -1;
}
unsigned int getMemoryAddrFromCursor(unsigned int c) {
    unsigned int l = getLocation(c);
    if (l == -1) {
        return insertMemory(c);
    } else return l;
}
int main(int argc, char *kwargs[]) {
    char *code;
    buffer = calloc(1,sizeof(int));
    bufMap = calloc(1,sizeof(int));
    buffersize=1;
    unsigned int cursor=0;
    if (argc > 1) code = kwargs[1];
    else code = "+++++[->++++++++++++++<]>.";
    int length = strlen(code);
    int x,y;
    int *stack = calloc(length / 2,sizeof(int));
    int *pairs = calloc(length,sizeof(int));
    int sOff = 0;
    int pOff = 0;
    int inc = 1;
    int temp;
    bufMap[0] = 0;
    for (x=0;x<length;x++) {
        if (code[x] == '[') stack[sOff++] = x;
        if (code[x] == ']') {
            pairs[pOff++] = stack[--sOff];
            pairs[pOff++] = x;
        }
    }
    free(stack);
    for (x=0;x<length;x+=inc) {
        inc = 1;
        switch(code[x]) {
            case '-':
                buffer[getMemoryAddrFromCursor(cursor)]--;
            break;

            case '+':
                buffer[getMemoryAddrFromCursor(cursor)]++;
            break;

            case '>':
                cursor++;
            break;
            case '<':
                cursor--;
            break;
            case '.':
                putchar(buffer[getMemoryAddrFromCursor(cursor)]);
            break;
            case ',':
                buffer[getMemoryAddrFromCursor(cursor)] = getchar();
            break;
            case '[':
                if (!buffer[getMemoryAddrFromCursor(cursor)]) {
                    for (y=0;y<length;y+=2) {
                        if (x == pairs[y]) { temp = y + 1; break; }
                    }
                    x = pairs[temp];
                }
            break;
            case ']':
                if (buffer[getMemoryAddrFromCursor(cursor)]) {
                    for (y=1;y<length;y+=2) {
                        if (x == pairs[y]) { temp = y - 1; break; }
                    }
                    x = pairs[temp];
                }
            break;
            case '*':
                cursor = buffer[getMemoryAddrFromCursor(cursor)];
            break;
            case '&':
                buffer[getMemoryAddrFromCursor(cursor)] = x;
            break;
            case '$':
                x = buffer[getMemoryAddrFromCursor(cursor)];
                inc = 0;
            break;
        }
    }
    return 0;
}