baum

annotate baum.c @ 8:495a56e706dc

find changesets by author, revision, files, or words in the commit message
input is now read from stdin
author meillo@marmaro.de
date Sat, 09 Feb 2008 12:42:11 +0100
parents 6a6152cf63f7
children c020b0d1cfca
rev   line source
meillo@0 1 /*
meillo@0 2 * baum - an esoteric programming language
meillo@0 3 *
meillo@0 4 * (c) markus schnalke <meillo@marmaro.de>
meillo@0 5 * and julian forster
meillo@0 6 *
meillo@0 7 */
meillo@0 8
meillo@0 9
meillo@0 10 #include <stdio.h>
meillo@0 11 #include <stdlib.h>
meillo@1 12 #include <string.h>
meillo@0 13
meillo@1 14 #include "baum.h"
meillo@2 15 #include "actions.h"
meillo@0 16
meillo@0 17
meillo@5 18 struct Node* root = 0;
meillo@0 19
meillo@0 20
meillo@1 21 void logit(char* text) {
meillo@1 22 fprintf(stderr, "[%s]\n", text);
meillo@1 23 }
meillo@1 24
meillo@1 25
meillo@1 26 /* new */
meillo@3 27 struct Node* newNode(char* name, unsigned char value) {
meillo@0 28 struct Node* node;
meillo@0 29 node = (struct Node*) malloc(sizeof(struct Node));
meillo@0 30 node->name = name;
meillo@3 31 node->value = value;
meillo@0 32 node->right = 0;
meillo@0 33 node->down = 0;
meillo@0 34 return node;
meillo@0 35 }
meillo@0 36
meillo@0 37
meillo@3 38 void setValue(struct Node* node, unsigned char value) {
meillo@3 39 node->value = value;
meillo@3 40 }
meillo@3 41
meillo@3 42
meillo@3 43 struct Node* nextNode(struct Node* node) {
meillo@3 44 return node->right;
meillo@3 45 }
meillo@3 46
meillo@3 47 struct Node* lastNode(struct Node* node) {
meillo@3 48 while (node->right != NULL) {
meillo@3 49 node = node->right;
meillo@3 50 }
meillo@3 51 return node;
meillo@3 52 }
meillo@3 53
meillo@3 54 void insertLast(struct Node* node, struct Node* insert) {
meillo@3 55 node = lastNode(node);
meillo@3 56 node->right = insert;
meillo@3 57 }
meillo@3 58
meillo@1 59 /* delete */
meillo@1 60 void delete(struct Node* node) {
meillo@5 61 if (node != NULL) {
meillo@5 62 if (node->down != NULL) {
meillo@5 63 delete(node->down);
meillo@5 64 }
meillo@5 65 if (node->right != NULL) {
meillo@5 66 delete(node->right);
meillo@5 67 }
meillo@5 68 free(node); node=0;
meillo@0 69 }
meillo@0 70 }
meillo@0 71
meillo@1 72
meillo@1 73 /* print */
meillo@0 74 void printNode(struct Node* node) {
meillo@5 75 if (node != NULL) {
meillo@5 76 fprintf(stderr, "Node: %20s (%d|%c)\n", node->name, node->value, node->value);
meillo@5 77 }
meillo@0 78 }
meillo@0 79
meillo@0 80 void printTree(struct Node* root) {
meillo@5 81 if (root != NULL) {
meillo@5 82 printNode(root);
meillo@5 83 fprintf(stderr, " down: ");
meillo@5 84 if (root->down != NULL) {
meillo@5 85 printTree(root->down);
meillo@5 86 } else {
meillo@5 87 fprintf(stderr, "NULL\n");
meillo@5 88 }
meillo@5 89 fprintf(stderr, " right: ");
meillo@5 90 if (root->right != NULL) {
meillo@5 91 printTree(root->right);
meillo@5 92 } else {
meillo@5 93 fprintf(stderr, "NULL\n");
meillo@5 94 }
meillo@0 95 }
meillo@0 96 }
meillo@0 97
meillo@0 98
meillo@1 99
meillo@1 100 /* traverse */
meillo@1 101 void traverse(struct Node* root) {
meillo@1 102 /* each node controlls the nodes below itself */
meillo@1 103 action(root);
meillo@1 104 }
meillo@1 105
meillo@1 106 /* init */
meillo@1 107 void init() {
meillo@3 108 /* add some numbers
meillo@5 109 root = newNode("print", 'n');
meillo@3 110 root->down = newNode("sum", 0);
meillo@3 111
meillo@3 112 root->down->down = newNode("number", 60);
meillo@3 113
meillo@3 114 root->down->down->right = newNode("number", 50);
meillo@3 115
meillo@3 116 root->down->down->right->right = newNode("sum", 0);
meillo@3 117 root->down->down->right->right->down = newNode("number", 1);
meillo@3 118 root->down->down->right->right->down->right = newNode("number", 5);
meillo@3 119 */
meillo@3 120
meillo@5 121 /* input numbers and add them
meillo@5 122 root = newNode("print", 'n');
meillo@3 123 root->down = newNode("sum", 0);
meillo@3 124 root->down->down = newNode("input", 0);
meillo@3 125 root->down->down->right = newNode("input", 0);
meillo@3 126 root->down->down->right->right = newNode("input", 0);
meillo@5 127 */
meillo@5 128
meillo@5 129 /* prints HelloWorld
meillo@5 130 */
meillo@5 131 struct Node* np = 0;
meillo@5 132
meillo@5 133 root = newNode("blackhole", 0);
meillo@5 134 root->down = newNode("sum", 0);
meillo@5 135 root->down->down = newNode("print", 'c');
meillo@5 136 np = root->down->down;
meillo@5 137 np->down = newNode("number", 'H');
meillo@5 138
meillo@5 139 np->right = newNode("print", 'c');
meillo@5 140 np->right->down = newNode("number", 'e');
meillo@5 141 np = np->right;
meillo@5 142
meillo@5 143 np->right = newNode("print", 'c');
meillo@5 144 np->right->down = newNode("number", 'l');
meillo@5 145 np = np->right;
meillo@5 146
meillo@5 147 np->right = newNode("print", 'c');
meillo@5 148 np->right->down = newNode("number", 'l');
meillo@5 149 np = np->right;
meillo@5 150
meillo@5 151 np->right = newNode("print", 'c');
meillo@5 152 np->right->down = newNode("number", 'o');
meillo@5 153 np = np->right;
meillo@5 154
meillo@5 155 np->right = newNode("print", 'c');
meillo@5 156 np->right->down = newNode("number", ' ');
meillo@5 157 np = np->right;
meillo@5 158
meillo@5 159 np->right = newNode("print", 'c');
meillo@5 160 np->right->down = newNode("number", 'L');
meillo@5 161 np = np->right;
meillo@5 162
meillo@5 163 np->right = newNode("print", 'c');
meillo@5 164 np->right->down = newNode("number", 'y');
meillo@5 165 np = np->right;
meillo@5 166
meillo@5 167 np->right = newNode("print", 'c');
meillo@5 168 np->right->down = newNode("number", 'd');
meillo@5 169 np = np->right;
meillo@5 170
meillo@5 171 np->right = newNode("print", 'c');
meillo@5 172 np->right->down = newNode("number", 'i');
meillo@5 173 np = np->right;
meillo@5 174
meillo@5 175 np->right = newNode("print", 'c');
meillo@5 176 np->right->down = newNode("number", 10);
meillo@5 177 np = np->right;
meillo@5 178
meillo@5 179
meillo@1 180 }
meillo@1 181
meillo@1 182
meillo@6 183 /* read input */
meillo@8 184 void read_input() {
meillo@7 185 int c;
meillo@8 186 int indent;
meillo@7 187 char name[256];
meillo@6 188 int value;
meillo@6 189
meillo@8 190 indent = 0;
meillo@8 191 strcpy(name, "");
meillo@8 192 value = 0;
meillo@6 193
meillo@8 194 while ((c = getchar()) != EOF) {
meillo@8 195 if (c == '#') { /* comment */
meillo@8 196 while ((c = getchar()) != '\n') {
meillo@7 197 }
meillo@7 198 }
meillo@7 199
meillo@8 200 if (c == ' ' || c == '\t') { /* indent if at start of line */
meillo@8 201 if (strlen(name) == 0) {
meillo@8 202 indent++;
meillo@8 203 }
meillo@7 204 }
meillo@6 205
meillo@8 206 if (c == '\n') { /* end of line: create node */
meillo@7 207 if (strlen(name) > 0) {
meillo@7 208 printf(" %d - %s - %d\n", indent, name, value);
meillo@8 209 /* create node */
meillo@6 210 }
meillo@6 211 indent = 0;
meillo@6 212 strcpy(name, "");
meillo@6 213 value = 0;
meillo@6 214 }
meillo@7 215
meillo@8 216 if (c >= 'a' && c <= 'z') { /* name */
meillo@7 217 int i = 1;
meillo@7 218 name[0] = (char) c;
meillo@8 219 while ((c = getchar()) != '(') {
meillo@7 220 name[i] = (char) c;
meillo@7 221 i++;
meillo@8 222 if (i > 255) {
meillo@8 223 break;
meillo@8 224 }
meillo@7 225 }
meillo@7 226 name[i] = '\0';
meillo@7 227 }
meillo@7 228
meillo@8 229 if (c == '(') { /* value */
meillo@8 230 scanf("%d)", &value);
meillo@7 231 }
meillo@7 232
meillo@6 233 }
meillo@7 234
meillo@6 235 }
meillo@6 236
meillo@1 237 /* main */
meillo@0 238 int main(int argc, char* argv[]) {
meillo@7 239 unsigned char shell_return = 0;
meillo@6 240 /*
meillo@0 241 init();
meillo@4 242
meillo@0 243 printTree(root);
meillo@5 244 fprintf(stderr, "\n\n");
meillo@1 245
meillo@5 246 shell_return = action(root);
meillo@1 247
meillo@5 248 fprintf(stderr, "\n\n");
meillo@3 249 printTree(root);
meillo@4 250
meillo@1 251 delete(root);
meillo@6 252 */
meillo@0 253
meillo@8 254 read_input();
meillo@5 255 exit(shell_return);
meillo@0 256 }