-
Notifications
You must be signed in to change notification settings - Fork 0
/
brainfuck.c
98 lines (92 loc) · 2.57 KB
/
brainfuck.c
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
#include <unistd.h>
#define DATASIZE 30000
#define INPUTSIZE 10000
#define CODESIZE 10000
#define STACKSIZE 10000
unsigned long int cells[DATASIZE] = {0};
unsigned char code[CODESIZE] = {0};
unsigned char input[INPUTSIZE] = {0};
unsigned int stack[STACKSIZE] = {0};
int main() {
{
register unsigned char c = 0;
register unsigned int source = 0;
register unsigned int dest = 0;
register unsigned int stack_pointer = 0;
register unsigned int instruction_pointer = 0;
read(0, input, INPUTSIZE);
while(1) {
c = input[source];
source++;
if(c == 0) {
break;
}
switch(c) {
case '>': break;
case '<': break;
case '+': break;
case '-': break;
case '.': break;
case ',': break;
case '[':
stack[stack_pointer] = instruction_pointer;
stack_pointer++;
code[dest] = c;
dest += sizeof(instruction_pointer) + 1;
instruction_pointer += sizeof(instruction_pointer) + 1;
continue;
case ']':
stack_pointer--;
*(typeof(instruction_pointer) *)(code+dest*sizeof(char)+1) = stack[stack_pointer];
code[dest] = c;
dest += sizeof(instruction_pointer) + 1;
*(typeof(instruction_pointer) *)(code+stack[stack_pointer]*sizeof(char)+1) = instruction_pointer;
instruction_pointer += sizeof(instruction_pointer) + 1;
default: continue;
}
code[dest] = c;
dest++;
instruction_pointer++;
}
}
{
register unsigned int instruction_pointer = 0;
register unsigned short int data_pointer = 0;
while(1) {
switch(code[instruction_pointer]) {
case 0: return 0;
case '>':
data_pointer++;
break;
case '<':
data_pointer--;
break;
case '+':
cells[data_pointer]++;
break;
case '-':
cells[data_pointer]--;
break;
case '.':
write(1, &cells[data_pointer], 1);
break;
case ',':
read(0, &cells[data_pointer], 1);
break;
case '[':
if (cells[data_pointer] == 0) {
instruction_pointer = *(typeof(instruction_pointer) *)(code+instruction_pointer*sizeof(char)+1);
}
instruction_pointer += sizeof(instruction_pointer) + 1;
continue;
case ']':
if (cells[data_pointer] != 0) {
instruction_pointer = *(typeof(instruction_pointer) *)(code+instruction_pointer*sizeof(char)+1);
}
instruction_pointer += sizeof(instruction_pointer) + 1;
continue;
}
instruction_pointer++;
}
}
}