Created cOok

1 files changed, 142 insertions, 0 deletions

diff --git a/source/bfcompiler.c b/source/bfcompiler.c
new file mode 100644
index 0000000..9325faf
--- /dev/null
+++ b/source/bfcompiler.c
@@ -0,0 +1,142 @@
+#define START_SIZE 10
+typedef struct List
+{
+    unsigned int size;
+    char* array;
+
+} List;
+
+
+void create_list(List* s)
+{
+    s->size = START_SIZE;
+    s->array = malloc(START_SIZE);
+    int i;
+    for (i = 0; i < s->size; i++)
+	s->array[i] = 0;
+    
+}
+
+void right_change_size(List* s, int new_size)
+{
+    char* new_array = malloc(new_size);
+    unsigned int i;
+    for (i = 0; i < s->size; i++)
+	new_array[i] = s->array[i];
+    for (i = s->size; i < new_size; i++)
+	new_array[i] = 0;
+
+    free(s->array);
+    s->array = new_array;
+
+    s->size = new_size;
+    
+    
+    
+}
+
+int left_change_size(List* s, int new_size)
+{
+    char* new_array = malloc(new_size);
+    unsigned int i;
+    for (i = 0; i < s->size; i++)
+	new_array[i+new_size-s->size-1] = s->array[i];
+    
+    for (i = 0; i < new_size-s->size-1; i++)
+	new_array[i] = 0;
+    
+    free(s->array);
+    s->array = new_array;
+
+    int ret = new_size - s->size;
+    
+    s->size = new_size;
+    
+    return ret;
+}
+
+int right_matching(char* text, int pos)
+{
+    int level = 0;
+    int i;
+    for (i = pos+1;;i++)
+    {
+	if (i >= strlen(text))
+	    return strlen(text)-1;
+	if (text[i] == '[')
+	    level++;
+	if (text[i] == ']' && level-- == 0)
+	    break;
+
+    }
+
+    return i;
+}
+
+int left_matching(char* text, int pos)
+{
+    int level = 0;
+    int i;
+    for (i = pos-1;;i--)
+    {
+	if (i < 0)
+	    return 0;
+	if (text[i] == ']')
+	  level++;
+	if (text[i] == '[' && level-- == 0)
+	    break;
+	
+    }
+
+    return i;
+}
+
+
+void compilebf(char* bf)
+{
+    int size;
+    int i;
+    int ptr;
+    List* l;
+    
+    size = strlen(bf);
+    
+    ptr = START_SIZE / 2;
+    create_list(l);
+
+    for (i = 0; i < size; i++)
+    {
+	switch(bf[i])
+	{
+	case '>':
+	    ptr++;
+	    if (ptr >= l->size)
+		right_change_size(l, l->size*2);
+	    break;
+	case '<':
+	    ptr--;
+	    if (ptr < 0)
+		ptr += left_change_size(l, l->size*2);
+	    break;
+	case '+':
+	    l->array[ptr]++;
+	    break;
+	case '-':
+	    l->array[ptr]--;
+	    break;
+	case '.':
+	    putchar(l->array[ptr]);
+	    break;
+	case '[':
+	    if (!l->array[ptr])
+		i = right_matching(bf, i);
+	    break;
+	case ']':
+	    i = left_matching(bf, i)-1;
+	    break;
+	    
+	}
+
+	}
+    
+}