annotate actions.c @ 50:0870e261bf28

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 }