mescc: x86_64 support: Refactor to abstracted assembly, add x86_64.
[mes.git] / scaffold / tests / 63-struct-cell.c
1 /* -*-comment-start: "//";comment-end:""-*-
2  * GNU Mes --- Maxwell Equations of Software
3  * Copyright © 2017 Jan (janneke) Nieuwenhuizen <janneke@gnu.org>
4  *
5  * This file is part of GNU Mes.
6  *
7  * GNU Mes is free software; you can redistribute it and/or modify it
8  * under the terms of the GNU General Public License as published by
9  * the Free Software Foundation; either version 3 of the License, or (at
10  * your option) any later version.
11  *
12  * GNU Mes is distributed in the hope that it will be useful, but
13  * WITHOUT ANY WARRANTY; without even the implied warranty of
14  * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
15  * GNU General Public License for more details.
16  *
17  * You should have received a copy of the GNU General Public License
18  * along with GNU Mes.  If not, see <http://www.gnu.org/licenses/>.
19  */
20
21 #include <libmes.h>
22
23 #include <stdio.h>
24 #include <stdlib.h>
25 #include <string.h>
26
27 int
28 add (int a, int b)
29 {
30   return a + b;
31 }
32
33 int
34 inc (int i)
35 {
36   return i + 1;
37 }
38
39 struct scm {
40   int type;
41   int car;
42   int cdr;
43 };
44
45 int bla = 1234;
46 char g_arena[84];
47 #if __MESC__
48 struct scm *g_cells = g_arena;
49 #else
50 struct scm *g_cells = (struct scm*)g_arena;
51 #endif
52 char *g_chars = g_arena;
53
54 int foo () {oputs ("t: foo\n"); return 0;};
55 int bar (int i) {oputs ("t: bar\n"); return 0;};
56 struct function
57 {
58   int (*function) (void);
59   int arity;
60   //long arity;
61   char *name;
62 };
63 struct function g_fun = {&exit,1,"fun"};
64 struct function g_foo = {&foo,0,"foo"};
65 struct function g_bar = {&bar,1,"bar"};
66
67 void *functions[2];
68 //int functions[2];
69
70 struct function g_functions[2];
71 int g_function = 0;
72
73 enum type_t {TCHAR, TCLOSURE, TCONTINUATION, TFUNCTION, TKEYWORD, TMACRO, TNUMBER, TPAIR, TREF, TSPECIAL, TSTRING, TSYMBOL, TVALUES, TVECTOR, TBROKEN_HEART};
74
75 typedef int SCM;
76 int g_free = 3;
77 SCM tmp;
78 SCM tmp_num;
79
80 int ARENA_SIZE = 200;
81 #define TYPE(x) g_cells[x].type
82 #define CAR(x) g_cells[x].car
83 #define CDR(x) g_cells[x].cdr
84 #define VALUE(x) g_cells[x].cdr
85
86 #define CAAR(x) CAR (CAR (x))
87
88 struct scm scm_fun = {TFUNCTION,0,0};
89 SCM cell_fun;
90
91
92 int
93 main ()
94 {
95   oputs ("\n");
96   oputs ("t: g_cells[0] = g_cells[1]\n");
97   TYPE (1) = 1;
98   CAR (1) = 2;
99   CDR (1) = 3;
100   g_cells[0] = g_cells[1];
101   if (TYPE (0) != 1)
102     return 1;
103   if (CAR (0) != 2)
104     return 2;
105   if (CDR (0) != 3)
106     return 3;
107
108   oputs ("t: g_cells[i] = g_cells[j]\n");
109   int i = 0;
110   int j = 1;
111   TYPE (1) = 4;
112   CAR (1) = 5;
113   CDR (1) = 6;
114   g_cells[i] = g_cells[j];
115   if (TYPE (0) != 4)
116     return 4;
117   if (CAR (0) != 5)
118     return 5;
119   if (CDR (0) != 6)
120     return 6;
121
122   oputs ("t: g_cells[0+add(0,0] = g_cells[0+inc(0)]\n");
123   TYPE (1) = 1;
124   CAR (1) = 2;
125   CDR (1) = 3;
126   g_cells[0+add(0, 0)] = g_cells[0+inc(0)];
127   if (TYPE (0) != 1)
128     return 7;
129   if (CAR (0) != 2)
130     return 9;
131   if (CDR (0) != 3)
132     return 9;
133
134   g_cells[0].type = TNUMBER;
135   g_cells[0].car = 0;
136   g_cells[0].cdr = 0;
137   g_cells[1].type = TNUMBER;
138   g_cells[1].car = 0;
139   g_cells[1].cdr = 0;
140
141   oputs ("t: TYPE (0) == TYPE (1)\n");
142   if (TYPE (0) == TYPE (1))
143     goto ok;
144   return 10;
145  ok:
146
147   g_cells[0].car = 1;
148   g_cells[1].car = 2;
149
150   oputs ("t: int c = VALUE (0)\n");
151   int c = CAR (0);
152   if (c != 1)
153     return 11;
154
155   oputs ("t: CAAR (0) != 2\n");
156   if (CAAR (0) != 2)
157     return 12;
158
159   oputs ("t: 2 != CAAR (0)\n");
160   if (2 != CAAR (0))
161     return 13;
162
163   g_cells[3].type = 0x64;
164   if (g_cells[3].type != 0x64)
165     return g_cells[3].type;
166
167   TYPE (4) = 4;
168   if (TYPE (4) != 4)
169     return 14;
170
171   CDR (3) = 0x22;
172   CDR (4) = 0x23;
173   if (CDR (3) != 0x22)
174     return 15;
175
176   oputs ("t: g_fun.arity != 1;\n");
177   if (g_fun.arity != 1)
178     return 16;
179
180   oputs ("t: g_fun.function != exit;\n");
181   if (g_fun.function != &exit)
182     return 17;
183
184   oputs ("t: struct fun = {&exit,1,\"exit\"};\n");
185   struct function fun = {&exit,1,"exit"};
186
187   oputs ("t: fun.arity != 1;\n");
188   if (fun.arity != 1)
189     return 18;
190
191   oputs ("t: fun.function != exit;\n");
192   if (fun.function != &exit)
193     return 19;
194
195   oputs ("t: oputs (fun.name)\n");
196   if (strcmp (fun.name, "exit"))
197     return 20;
198
199   oputs ("t: oputs (g_fun.name)\n");
200   if (strcmp (g_fun.name, "fun"))
201     return 21;
202
203   oputs ("t: g_functions[g_function++] = g_foo;\n");
204   g_functions[g_function++] = g_foo;
205
206   oputs ("t: pbar->arity == 1\n");
207   struct function* barp = &g_bar;
208   if (barp->arity != 1)
209     return 22;
210
211   int fn = 0;
212   oputs ("t: g_functions[g_cells[fn].cdr].arity\n");
213   if (g_functions[g_cells[fn].cdr].arity)
214     return 23;
215   if (g_functions[g_cells[fn].cdr].arity != 0)
216     return 24;
217
218
219
220
221
222
223
224
225
226
227
228   int (*functionx) (void) = 0;
229   functionx = g_functions[0].function;
230   oputs ("t: functionx == foo\n");
231   if (functionx != foo)
232     return 25;
233
234   oputs ("t: g_functions[0].name\n");
235   if (strcmp (g_functions[0].name, "foo"))
236     return 26;
237
238   oputs ("t: (functionx) () == foo\n");
239   if ((functionx) () != 0)
240     return 27;
241
242   oputs ("t: g_functions[<foo>].arity\n");
243   if (g_functions[0].arity != 0)
244     return 28;
245
246   fn++;
247   g_functions[fn] = g_bar;
248   g_cells[fn].cdr = fn;
249   if (g_cells[fn].cdr != fn)
250     return 29;
251
252   oputs ("t: g_functions[g_cells[fn].cdr].function\n");
253   functionx = g_functions[g_cells[fn].cdr].function;
254
255   oputs ("t: g_functions[1].name\n");
256   if (strcmp (g_functions[1].name, "bar"))
257     return 30;
258
259   oputs ("t: functionx == bar\n");
260   if (functionx != bar)
261     return 31;
262
263   oputs ("t: (functiony) (1) == bar\n");
264   int (*functiony) (int) = 0;
265   functiony = g_functions[g_cells[fn].cdr].function;
266   if ((functiony) (1) != 0)
267     return 32;
268
269   oputs ("t: g_functions[<bar>].arity\n");
270   if (g_functions[fn].arity != 1)
271     return 33;
272
273   // fake name
274   scm_fun.car = 33;
275   scm_fun.cdr = g_function;
276   g_function++;
277   oputs ("fun");
278   g_functions[g_function] = g_fun;
279
280   cell_fun = g_free++;
281   g_cells[cell_fun] = scm_fun;
282
283   oputs ("t: TYPE (cell_fun)\n");
284   if (TYPE (cell_fun) != TFUNCTION)
285     return 34;
286
287   oputs ("t: CAR (cell_fun)\n");
288   if (CAR (cell_fun) != 33)
289     return 35;
290
291   // FIXME!
292   // oputs ("t: CDR (cell_fun)\n");
293   // if (CDR (cell_fun) != g_function)
294   //   return 36;
295
296   return 0;
297 }