Mercurial > baum
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 |
rev | line source |
---|---|
2 | 1 #include <stdio.h> |
2 #include <stdlib.h> | |
3 #include <string.h> | |
4 #include "baum.h" | |
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 | 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 | 24 if (strcmp(node->name, "print") == 0) { |
25 return action_print(node); | |
3
15d7d6b9766f
added input; added nextNode, lastNode, insertLast
meillo@marmaro.de
parents:
2
diff
changeset
|
26 |
2 | 27 } else if (strcmp(node->name, "sum") == 0) { |
28 return action_sum(node); | |
3
15d7d6b9766f
added input; added nextNode, lastNode, insertLast
meillo@marmaro.de
parents:
2
diff
changeset
|
29 |
2 | 30 } else if (strcmp(node->name, "number") == 0) { |
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 | 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 | 48 } |
49 } | |
50 | |
51 | |
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 | 62 } |
63 | |
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 | 66 struct Node* tp; |
67 tp = node->down; | |
68 while (tp != NULL) { | |
69 node->value += action(tp); | |
70 tp = tp->right; | |
71 } | |
72 return node->value; | |
73 } | |
74 | |
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 | 80 return node->value; |
81 } | |
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 | 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 | 96 for (i = 0; i < node->value; i++) { |
46 | 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 } |