baum

view baum.c @ 4:24a697f37e7c

find changesets by author, revision, files, or words in the commit message
trivial output improvement
author meillo@marmaro.de
date Thu, 07 Feb 2008 18:05:03 +0100
parents 15d7d6b9766f
children c202ccccedb5
line source
1 /*
2 * baum - an esoteric programming language
3 *
4 * (c) markus schnalke <meillo@marmaro.de>
5 * and julian forster
6 *
7 */
8
9
10 #include <stdio.h>
11 #include <stdlib.h>
12 #include <string.h>
13
14 #include "baum.h"
15 #include "actions.h"
16
17
18 struct Node* root;
19
20
21 void logit(char* text) {
22 fprintf(stderr, "[%s]\n", text);
23 }
24
25
26 /* new */
27 struct Node* newNode(char* name, unsigned char value) {
28 struct Node* node;
29 node = (struct Node*) malloc(sizeof(struct Node));
30 node->name = name;
31 node->value = value;
32 node->right = 0;
33 node->down = 0;
34 return node;
35 }
36
37
38 void setValue(struct Node* node, unsigned char value) {
39 node->value = value;
40 }
41
42
43 struct Node* nextNode(struct Node* node) {
44 return node->right;
45 }
46
47 struct Node* lastNode(struct Node* node) {
48 while (node->right != NULL) {
49 node = node->right;
50 }
51 return node;
52 }
53
54 void insertLast(struct Node* node, struct Node* insert) {
55 node = lastNode(node);
56 node->right = insert;
57 }
58
59 /* delete */
60 void delete(struct Node* node) {
61 if (node->down != NULL) {
62 delete(node->down);
63 }
64 if (node->right != NULL) {
65 delete(node->right);
66 }
67 free(node); node=0;
68 }
69
70
71 /* print */
72 void printNode(struct Node* node) {
73 printf("Node: %20s (%d|%c)\n", node->name, node->value, node->value);
74 }
75
76 void printTree(struct Node* root) {
77 printNode(root);
78 printf(" down: ");
79 if (root->down != NULL) {
80 printTree(root->down);
81 } else {
82 printf("NULL\n");
83 }
84 printf(" right: ");
85 if (root->right != NULL) {
86 printTree(root->right);
87 } else {
88 printf("NULL\n");
89 }
90 }
91
92
93
94 /* traverse */
95 void traverse(struct Node* root) {
96 /* each node controlls the nodes below itself */
97 action(root);
98 }
99
100 /* init */
101 void init() {
102 /* add some numbers
103 root = newNode("print", 0);
104 root->down = newNode("sum", 0);
105
106 root->down->down = newNode("number", 60);
107
108 root->down->down->right = newNode("number", 50);
109
110 root->down->down->right->right = newNode("sum", 0);
111 root->down->down->right->right->down = newNode("number", 1);
112 root->down->down->right->right->down->right = newNode("number", 5);
113 */
114
115 /* input numbers and add them */
116 root = newNode("print", 0);
117 root->down = newNode("sum", 0);
118 root->down->down = newNode("input", 0);
119 root->down->down->right = newNode("input", 0);
120 root->down->down->right->right = newNode("input", 0);
121 }
122
123
124 /* main */
125 int main(int argc, char* argv[]) {
126 init();
127
128 printTree(root);
129 printf("\n\n");
130
131 action(root);
132
133 printf("\n\n");
134 printTree(root);
135
136 delete(root);
137
138 return(0);
139 }