Mercurial > baum

annotate actions.c @ 50:0870e261bf28

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
added first implementation of "if" and "while" (but they are not perfect yet)
author meillo@marmaro.de
date Sun, 02 Mar 2008 15:54:35 +0100
parents f9fc4c4f9e3d
children 7d7abe88e71b
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
rev   line source
2
557fa4df2bcd added difference between char and number
meillo@marmaro.de
parents:
diff changeset
1 #include <stdio.h>
557fa4df2bcd added difference between char and number
meillo@marmaro.de
parents:
diff changeset
2 #include <stdlib.h>
557fa4df2bcd added difference between char and number
meillo@marmaro.de
parents:
diff changeset
3 #include <string.h>
557fa4df2bcd added difference between char and number
meillo@marmaro.de
parents:
diff changeset
4 #include "baum.h"
557fa4df2bcd added difference between char and number
meillo@marmaro.de
parents:
diff changeset
5
26
f0856c177403 removed obsolete stuff; only relevant stuff is extern now; refactoring
meillo@marmaro.de
parents: 16
diff changeset
6 unsigned char action_print(struct Node* node);
f0856c177403 removed obsolete stuff; only relevant stuff is extern now; refactoring
meillo@marmaro.de
parents: 16
diff changeset
7 unsigned char action_sum(struct Node* node);
f0856c177403 removed obsolete stuff; only relevant stuff is extern now; refactoring
meillo@marmaro.de
parents: 16
diff changeset
8 unsigned char action_number(struct Node* node);
f0856c177403 removed obsolete stuff; only relevant stuff is extern now; refactoring
meillo@marmaro.de
parents: 16
diff changeset
9 unsigned char action_input(struct Node* node);
f0856c177403 removed obsolete stuff; only relevant stuff is extern now; refactoring
meillo@marmaro.de
parents: 16
diff changeset
10 unsigned char action_times(struct Node* node);
50
0870e261bf28 added first implementation of "if" and "while" (but they are not perfect yet)
meillo@marmaro.de
parents: 48
diff changeset
11 unsigned char action_if(struct Node* node);
0870e261bf28 added first implementation of "if" and "while" (but they are not perfect yet)
meillo@marmaro.de
parents: 48
diff changeset
12 unsigned char action_while(struct Node* node);
26
f0856c177403 removed obsolete stuff; only relevant stuff is extern now; refactoring
meillo@marmaro.de
parents: 16
diff changeset
13
f0856c177403 removed obsolete stuff; only relevant stuff is extern now; refactoring
meillo@marmaro.de
parents: 16
diff changeset
14
2
557fa4df2bcd added difference between char and number
meillo@marmaro.de
parents:
diff changeset
15
3
15d7d6b9766f added input; added nextNode, lastNode, insertLast
meillo@marmaro.de
parents: 2
diff changeset
16 unsigned char action(struct Node* node) {
5
c202ccccedb5 added checks for null pointer; print echoes as char or number now (depends on value); all logging goes to stderr now; new nodes blackhole and times (not implemented yet)
meillo@marmaro.de
parents: 3
diff changeset
17 if (node == NULL) {
38
ff01f0f076e4 option_verbose is now global; stuff about warning when (expected) nodes are not there
meillo@marmaro.de
parents: 36
diff changeset
18 if (option_verbose) {
ff01f0f076e4 option_verbose is now global; stuff about warning when (expected) nodes are not there
meillo@marmaro.de
parents: 36
diff changeset
19 fprintf(stderr, "warning: action of non existing node\n");
ff01f0f076e4 option_verbose is now global; stuff about warning when (expected) nodes are not there
meillo@marmaro.de
parents: 36
diff changeset
20 }
5
c202ccccedb5 added checks for null pointer; print echoes as char or number now (depends on value); all logging goes to stderr now; new nodes blackhole and times (not implemented yet)
meillo@marmaro.de
parents: 3
diff changeset
21 return 0;
c202ccccedb5 added checks for null pointer; print echoes as char or number now (depends on value); all logging goes to stderr now; new nodes blackhole and times (not implemented yet)
meillo@marmaro.de
parents: 3
diff changeset
22 }
c202ccccedb5 added checks for null pointer; print echoes as char or number now (depends on value); all logging goes to stderr now; new nodes blackhole and times (not implemented yet)
meillo@marmaro.de
parents: 3
diff changeset
23
2
557fa4df2bcd added difference between char and number
meillo@marmaro.de
parents:
diff changeset
24 if (strcmp(node->name, "print") == 0) {
557fa4df2bcd added difference between char and number
meillo@marmaro.de
parents:
diff changeset
25 return action_print(node);
3
15d7d6b9766f added input; added nextNode, lastNode, insertLast
meillo@marmaro.de
parents: 2
diff changeset
26
2
557fa4df2bcd added difference between char and number
meillo@marmaro.de
parents:
diff changeset
27 } else if (strcmp(node->name, "sum") == 0) {
557fa4df2bcd added difference between char and number
meillo@marmaro.de
parents:
diff changeset
28 return action_sum(node);
3
15d7d6b9766f added input; added nextNode, lastNode, insertLast
meillo@marmaro.de
parents: 2
diff changeset
29
2
557fa4df2bcd added difference between char and number
meillo@marmaro.de
parents:
diff changeset
30 } else if (strcmp(node->name, "number") == 0) {
557fa4df2bcd added difference between char and number
meillo@marmaro.de
parents:
diff changeset
31 return action_number(node);
3
15d7d6b9766f added input; added nextNode, lastNode, insertLast
meillo@marmaro.de
parents: 2
diff changeset
32
15d7d6b9766f added input; added nextNode, lastNode, insertLast
meillo@marmaro.de
parents: 2
diff changeset
33 } else if (strcmp(node->name, "input") == 0) {
15d7d6b9766f added input; added nextNode, lastNode, insertLast
meillo@marmaro.de
parents: 2
diff changeset
34 return action_input(node);
15d7d6b9766f added input; added nextNode, lastNode, insertLast
meillo@marmaro.de
parents: 2
diff changeset
35
5
c202ccccedb5 added checks for null pointer; print echoes as char or number now (depends on value); all logging goes to stderr now; new nodes blackhole and times (not implemented yet)
meillo@marmaro.de
parents: 3
diff changeset
36 } else if (strcmp(node->name, "times") == 0) {
c202ccccedb5 added checks for null pointer; print echoes as char or number now (depends on value); all logging goes to stderr now; new nodes blackhole and times (not implemented yet)
meillo@marmaro.de
parents: 3
diff changeset
37 return action_times(node);
c202ccccedb5 added checks for null pointer; print echoes as char or number now (depends on value); all logging goes to stderr now; new nodes blackhole and times (not implemented yet)
meillo@marmaro.de
parents: 3
diff changeset
38
50
0870e261bf28 added first implementation of "if" and "while" (but they are not perfect yet)
meillo@marmaro.de
parents: 48
diff changeset
39 } else if (strcmp(node->name, "if") == 0) {
0870e261bf28 added first implementation of "if" and "while" (but they are not perfect yet)
meillo@marmaro.de
parents: 48
diff changeset
40 return action_if(node);
0870e261bf28 added first implementation of "if" and "while" (but they are not perfect yet)
meillo@marmaro.de
parents: 48
diff changeset
41
0870e261bf28 added first implementation of "if" and "while" (but they are not perfect yet)
meillo@marmaro.de
parents: 48
diff changeset
42 } else if (strcmp(node->name, "while") == 0) {
0870e261bf28 added first implementation of "if" and "while" (but they are not perfect yet)
meillo@marmaro.de
parents: 48
diff changeset
43 return action_while(node);
0870e261bf28 added first implementation of "if" and "while" (but they are not perfect yet)
meillo@marmaro.de
parents: 48
diff changeset
44
2
557fa4df2bcd added difference between char and number
meillo@marmaro.de
parents:
diff changeset
45 } else {
31
4e60d96265f0 removed -c option completely; updated man page; new error code 5
meillo@marmaro.de
parents: 30
diff changeset
46 fprintf(stderr, "unknown kind of node\n");
16
b62288419c1c added README and LICENSE; changed error code of invalid node
meillo@marmaro.de
parents: 15
diff changeset
47 exit(4);
2
557fa4df2bcd added difference between char and number
meillo@marmaro.de
parents:
diff changeset
48 }
557fa4df2bcd added difference between char and number
meillo@marmaro.de
parents:
diff changeset
49 }
557fa4df2bcd added difference between char and number
meillo@marmaro.de
parents:
diff changeset
50
557fa4df2bcd added difference between char and number
meillo@marmaro.de
parents:
diff changeset
51
557fa4df2bcd added difference between char and number
meillo@marmaro.de
parents:
diff changeset
52
3
15d7d6b9766f added input; added nextNode, lastNode, insertLast
meillo@marmaro.de
parents: 2
diff changeset
53 unsigned char action_print(struct Node* node) {
5
c202ccccedb5 added checks for null pointer; print echoes as char or number now (depends on value); all logging goes to stderr now; new nodes blackhole and times (not implemented yet)
meillo@marmaro.de
parents: 3
diff changeset
54 unsigned char result;
c202ccccedb5 added checks for null pointer; print echoes as char or number now (depends on value); all logging goes to stderr now; new nodes blackhole and times (not implemented yet)
meillo@marmaro.de
parents: 3
diff changeset
55 result = action(node->down);
c202ccccedb5 added checks for null pointer; print echoes as char or number now (depends on value); all logging goes to stderr now; new nodes blackhole and times (not implemented yet)
meillo@marmaro.de
parents: 3
diff changeset
56 if (node->value == 'c') {
c202ccccedb5 added checks for null pointer; print echoes as char or number now (depends on value); all logging goes to stderr now; new nodes blackhole and times (not implemented yet)
meillo@marmaro.de
parents: 3
diff changeset
57 printf("%c", result);
c202ccccedb5 added checks for null pointer; print echoes as char or number now (depends on value); all logging goes to stderr now; new nodes blackhole and times (not implemented yet)
meillo@marmaro.de
parents: 3
diff changeset
58 } else {
c202ccccedb5 added checks for null pointer; print echoes as char or number now (depends on value); all logging goes to stderr now; new nodes blackhole and times (not implemented yet)
meillo@marmaro.de
parents: 3
diff changeset
59 printf("%d", result);
c202ccccedb5 added checks for null pointer; print echoes as char or number now (depends on value); all logging goes to stderr now; new nodes blackhole and times (not implemented yet)
meillo@marmaro.de
parents: 3
diff changeset
60 }
c202ccccedb5 added checks for null pointer; print echoes as char or number now (depends on value); all logging goes to stderr now; new nodes blackhole and times (not implemented yet)
meillo@marmaro.de
parents: 3
diff changeset
61 return result;
2
557fa4df2bcd added difference between char and number
meillo@marmaro.de
parents:
diff changeset
62 }
557fa4df2bcd added difference between char and number
meillo@marmaro.de
parents:
diff changeset
63
557fa4df2bcd added difference between char and number
meillo@marmaro.de
parents:
diff changeset
64
3
15d7d6b9766f added input; added nextNode, lastNode, insertLast
meillo@marmaro.de
parents: 2
diff changeset
65 unsigned char action_sum(struct Node* node) {
2
557fa4df2bcd added difference between char and number
meillo@marmaro.de
parents:
diff changeset
66 struct Node* tp;
557fa4df2bcd added difference between char and number
meillo@marmaro.de
parents:
diff changeset
67 tp = node->down;
557fa4df2bcd added difference between char and number
meillo@marmaro.de
parents:
diff changeset
68 while (tp != NULL) {
557fa4df2bcd added difference between char and number
meillo@marmaro.de
parents:
diff changeset
69 node->value += action(tp);
557fa4df2bcd added difference between char and number
meillo@marmaro.de
parents:
diff changeset
70 tp = tp->right;
557fa4df2bcd added difference between char and number
meillo@marmaro.de
parents:
diff changeset
71 }
557fa4df2bcd added difference between char and number
meillo@marmaro.de
parents:
diff changeset
72 return node->value;
557fa4df2bcd added difference between char and number
meillo@marmaro.de
parents:
diff changeset
73 }
557fa4df2bcd added difference between char and number
meillo@marmaro.de
parents:
diff changeset
74
557fa4df2bcd added difference between char and number
meillo@marmaro.de
parents:
diff changeset
75
3
15d7d6b9766f added input; added nextNode, lastNode, insertLast
meillo@marmaro.de
parents: 2
diff changeset
76 unsigned char action_number(struct Node* node) {
38
ff01f0f076e4 option_verbose is now global; stuff about warning when (expected) nodes are not there
meillo@marmaro.de
parents: 36
diff changeset
77 if (node->down != NULL) {
ff01f0f076e4 option_verbose is now global; stuff about warning when (expected) nodes are not there
meillo@marmaro.de
parents: 36
diff changeset
78 action(node->down);
ff01f0f076e4 option_verbose is now global; stuff about warning when (expected) nodes are not there
meillo@marmaro.de
parents: 36
diff changeset
79 }
2
557fa4df2bcd added difference between char and number
meillo@marmaro.de
parents:
diff changeset
80 return node->value;
557fa4df2bcd added difference between char and number
meillo@marmaro.de
parents:
diff changeset
81 }
557fa4df2bcd added difference between char and number
meillo@marmaro.de
parents:
diff changeset
82
3
15d7d6b9766f added input; added nextNode, lastNode, insertLast
meillo@marmaro.de
parents: 2
diff changeset
83
15d7d6b9766f added input; added nextNode, lastNode, insertLast
meillo@marmaro.de
parents: 2
diff changeset
84 unsigned char action_input(struct Node* node) {
5
c202ccccedb5 added checks for null pointer; print echoes as char or number now (depends on value); all logging goes to stderr now; new nodes blackhole and times (not implemented yet)
meillo@marmaro.de
parents: 3
diff changeset
85 int input;
14
15e11eea1c66 input says now that it wants an input
meillo@marmaro.de
parents: 11
diff changeset
86 printf("input: ");
5
c202ccccedb5 added checks for null pointer; print echoes as char or number now (depends on value); all logging goes to stderr now; new nodes blackhole and times (not implemented yet)
meillo@marmaro.de
parents: 3
diff changeset
87 scanf("%d", &input);
c202ccccedb5 added checks for null pointer; print echoes as char or number now (depends on value); all logging goes to stderr now; new nodes blackhole and times (not implemented yet)
meillo@marmaro.de
parents: 3
diff changeset
88 input = input % 256;
c202ccccedb5 added checks for null pointer; print echoes as char or number now (depends on value); all logging goes to stderr now; new nodes blackhole and times (not implemented yet)
meillo@marmaro.de
parents: 3
diff changeset
89 insertLast(node, newNode("number", (char) input));
3
15d7d6b9766f added input; added nextNode, lastNode, insertLast
meillo@marmaro.de
parents: 2
diff changeset
90 return 0;
15d7d6b9766f added input; added nextNode, lastNode, insertLast
meillo@marmaro.de
parents: 2
diff changeset
91 }
15d7d6b9766f added input; added nextNode, lastNode, insertLast
meillo@marmaro.de
parents: 2
diff changeset
92
15d7d6b9766f added input; added nextNode, lastNode, insertLast
meillo@marmaro.de
parents: 2
diff changeset
93
5
c202ccccedb5 added checks for null pointer; print echoes as char or number now (depends on value); all logging goes to stderr now; new nodes blackhole and times (not implemented yet)
meillo@marmaro.de
parents: 3
diff changeset
94 unsigned char action_times(struct Node* node) {
c202ccccedb5 added checks for null pointer; print echoes as char or number now (depends on value); all logging goes to stderr now; new nodes blackhole and times (not implemented yet)
meillo@marmaro.de
parents: 3
diff changeset
95 unsigned char i;
10
0e15841ae111 s/list/stack/g because thats what it is
meillo@marmaro.de
parents: 5
diff changeset
96 for (i = 0; i < node->value; i++) {
46
22305a6e128d added deep copy and fixed so node times
meillo@marmaro.de
parents: 45
diff changeset
97 insertLast(node, copyTree(node->down));
5
c202ccccedb5 added checks for null pointer; print echoes as char or number now (depends on value); all logging goes to stderr now; new nodes blackhole and times (not implemented yet)
meillo@marmaro.de
parents: 3
diff changeset
98 }
c202ccccedb5 added checks for null pointer; print echoes as char or number now (depends on value); all logging goes to stderr now; new nodes blackhole and times (not implemented yet)
meillo@marmaro.de
parents: 3
diff changeset
99 return 0;
c202ccccedb5 added checks for null pointer; print echoes as char or number now (depends on value); all logging goes to stderr now; new nodes blackhole and times (not implemented yet)
meillo@marmaro.de
parents: 3
diff changeset
100 }
50
0870e261bf28 added first implementation of "if" and "while" (but they are not perfect yet)
meillo@marmaro.de
parents: 48
diff changeset
101
0870e261bf28 added first implementation of "if" and "while" (but they are not perfect yet)
meillo@marmaro.de
parents: 48
diff changeset
102
0870e261bf28 added first implementation of "if" and "while" (but they are not perfect yet)
meillo@marmaro.de
parents: 48
diff changeset
103 unsigned char action_if(struct Node* node) {
0870e261bf28 added first implementation of "if" and "while" (but they are not perfect yet)
meillo@marmaro.de
parents: 48
diff changeset
104 int result = 0;
0870e261bf28 added first implementation of "if" and "while" (but they are not perfect yet)
meillo@marmaro.de
parents: 48
diff changeset
105 char return1;
0870e261bf28 added first implementation of "if" and "while" (but they are not perfect yet)
meillo@marmaro.de
parents: 48
diff changeset
106 char return2;
0870e261bf28 added first implementation of "if" and "while" (but they are not perfect yet)
meillo@marmaro.de
parents: 48
diff changeset
107
0870e261bf28 added first implementation of "if" and "while" (but they are not perfect yet)
meillo@marmaro.de
parents: 48
diff changeset
108 if (node->down == NULL || node->down->right == NULL) {
0870e261bf28 added first implementation of "if" and "while" (but they are not perfect yet)
meillo@marmaro.de
parents: 48
diff changeset
109 fprintf(stderr, "error: while requires two sons");
0870e261bf28 added first implementation of "if" and "while" (but they are not perfect yet)
meillo@marmaro.de
parents: 48
diff changeset
110 exit(1); /* FIXME other error code */
0870e261bf28 added first implementation of "if" and "while" (but they are not perfect yet)
meillo@marmaro.de
parents: 48
diff changeset
111 }
0870e261bf28 added first implementation of "if" and "while" (but they are not perfect yet)
meillo@marmaro.de
parents: 48
diff changeset
112
0870e261bf28 added first implementation of "if" and "while" (but they are not perfect yet)
meillo@marmaro.de
parents: 48
diff changeset
113 return1 = action(node->down);
0870e261bf28 added first implementation of "if" and "while" (but they are not perfect yet)
meillo@marmaro.de
parents: 48
diff changeset
114 return2 = action(node->down->right);
0870e261bf28 added first implementation of "if" and "while" (but they are not perfect yet)
meillo@marmaro.de
parents: 48
diff changeset
115
0870e261bf28 added first implementation of "if" and "while" (but they are not perfect yet)
meillo@marmaro.de
parents: 48
diff changeset
116 if (node->value == '!') { /* 33 */
0870e261bf28 added first implementation of "if" and "while" (but they are not perfect yet)
meillo@marmaro.de
parents: 48
diff changeset
117 if (return1 != return2) {
0870e261bf28 added first implementation of "if" and "while" (but they are not perfect yet)
meillo@marmaro.de
parents: 48
diff changeset
118 result = 1;
0870e261bf28 added first implementation of "if" and "while" (but they are not perfect yet)
meillo@marmaro.de
parents: 48
diff changeset
119 }
0870e261bf28 added first implementation of "if" and "while" (but they are not perfect yet)
meillo@marmaro.de
parents: 48
diff changeset
120 } else if (node->value == '<') { /* 60 */
0870e261bf28 added first implementation of "if" and "while" (but they are not perfect yet)
meillo@marmaro.de
parents: 48
diff changeset
121 if (return1 < return2) {
0870e261bf28 added first implementation of "if" and "while" (but they are not perfect yet)
meillo@marmaro.de
parents: 48
diff changeset
122 result = 1;
0870e261bf28 added first implementation of "if" and "while" (but they are not perfect yet)
meillo@marmaro.de
parents: 48
diff changeset
123 }
0870e261bf28 added first implementation of "if" and "while" (but they are not perfect yet)
meillo@marmaro.de
parents: 48
diff changeset
124 } else if (node->value == '>') { /* 62 */
0870e261bf28 added first implementation of "if" and "while" (but they are not perfect yet)
meillo@marmaro.de
parents: 48
diff changeset
125 if (return1 > return2) {
0870e261bf28 added first implementation of "if" and "while" (but they are not perfect yet)
meillo@marmaro.de
parents: 48
diff changeset
126 result = 1;
0870e261bf28 added first implementation of "if" and "while" (but they are not perfect yet)
meillo@marmaro.de
parents: 48
diff changeset
127 }
0870e261bf28 added first implementation of "if" and "while" (but they are not perfect yet)
meillo@marmaro.de
parents: 48
diff changeset
128 } else {
0870e261bf28 added first implementation of "if" and "while" (but they are not perfect yet)
meillo@marmaro.de
parents: 48
diff changeset
129 if (return1 == return2) {
0870e261bf28 added first implementation of "if" and "while" (but they are not perfect yet)
meillo@marmaro.de
parents: 48
diff changeset
130 result = 1;
0870e261bf28 added first implementation of "if" and "while" (but they are not perfect yet)
meillo@marmaro.de
parents: 48
diff changeset
131 }
0870e261bf28 added first implementation of "if" and "while" (but they are not perfect yet)
meillo@marmaro.de
parents: 48
diff changeset
132 }
0870e261bf28 added first implementation of "if" and "while" (but they are not perfect yet)
meillo@marmaro.de
parents: 48
diff changeset
133 return result;
0870e261bf28 added first implementation of "if" and "while" (but they are not perfect yet)
meillo@marmaro.de
parents: 48
diff changeset
134 }
0870e261bf28 added first implementation of "if" and "while" (but they are not perfect yet)
meillo@marmaro.de
parents: 48
diff changeset
135
0870e261bf28 added first implementation of "if" and "while" (but they are not perfect yet)
meillo@marmaro.de
parents: 48
diff changeset
136
0870e261bf28 added first implementation of "if" and "while" (but they are not perfect yet)
meillo@marmaro.de
parents: 48
diff changeset
137 unsigned char action_while(struct Node* node) {
0870e261bf28 added first implementation of "if" and "while" (but they are not perfect yet)
meillo@marmaro.de
parents: 48
diff changeset
138 if (node->down == NULL || node->down->right == NULL) {
0870e261bf28 added first implementation of "if" and "while" (but they are not perfect yet)
meillo@marmaro.de
parents: 48
diff changeset
139 fprintf(stderr, "error: while requires two sons");
0870e261bf28 added first implementation of "if" and "while" (but they are not perfect yet)
meillo@marmaro.de
parents: 48
diff changeset
140 exit(1); /* FIXME other error code */
0870e261bf28 added first implementation of "if" and "while" (but they are not perfect yet)
meillo@marmaro.de
parents: 48
diff changeset
141 }
0870e261bf28 added first implementation of "if" and "while" (but they are not perfect yet)
meillo@marmaro.de
parents: 48
diff changeset
142 while (action(node->down)) {
0870e261bf28 added first implementation of "if" and "while" (but they are not perfect yet)
meillo@marmaro.de
parents: 48
diff changeset
143 action(node->down->right);
0870e261bf28 added first implementation of "if" and "while" (but they are not perfect yet)
meillo@marmaro.de
parents: 48
diff changeset
144 }
0870e261bf28 added first implementation of "if" and "while" (but they are not perfect yet)
meillo@marmaro.de
parents: 48
diff changeset
145 return 0;
0870e261bf28 added first implementation of "if" and "while" (but they are not perfect yet)
meillo@marmaro.de
parents: 48
diff changeset
146 }