|
996
|
1 /*
|
|
|
2 * Copyright (c) 2004, 2005 Gregor Richards
|
|
|
3 *
|
|
|
4 * Permission is hereby granted, free of charge, to any person obtaining a copy
|
|
|
5 * of this software and associated documentation files (the "Software"), to deal
|
|
|
6 * in the Software without restriction, including without limitation the rights
|
|
|
7 * to use, copy, modify, merge, publish, distribute, sublicense, and/or sell
|
|
|
8 * copies of the Software, and to permit persons to whom the Software is
|
|
|
9 * furnished to do so, subject to the following conditions:
|
|
|
10 *
|
|
|
11 * The above copyright notice and this permission notice shall be included in
|
|
|
12 * all copies or substantial portions of the Software.
|
|
|
13 *
|
|
|
14 * THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR
|
|
|
15 * IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY,
|
|
|
16 * FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE
|
|
|
17 * AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER
|
|
|
18 * LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM,
|
|
|
19 * OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE
|
|
|
20 * SOFTWARE.
|
|
|
21 */
|
|
|
22
|
|
|
23 #include <stdio.h>
|
|
|
24 #include <string.h>
|
|
|
25
|
|
|
26 #define XY(x,y) (((y)*1024)+(x))
|
|
|
27 #define XYD(x,y,d) (((y)*1024*4)+((x)*4)+((d)-1))
|
|
|
28
|
|
|
29 char pbuf[1024*1024];
|
|
|
30 char implbuf[1024*1024*4];
|
|
|
31
|
|
|
32 void impl(int px, int py, int dir) {
|
|
|
33 dir = dir % 4;
|
|
|
34 if (dir == 0) dir = 4;
|
|
|
35
|
|
|
36 while (1) {
|
|
|
37 /* first, move */
|
|
|
38 switch (dir) {
|
|
|
39 case 1: /* up */
|
|
|
40 py--;
|
|
|
41 break;
|
|
|
42 case 2: /* right */
|
|
|
43 px++;
|
|
|
44 break;
|
|
|
45 case 3: /* down */
|
|
|
46 py++;
|
|
|
47 break;
|
|
|
48 case 4: /* left */
|
|
|
49 px--;
|
|
|
50 break;
|
|
|
51 }
|
|
|
52
|
|
|
53 /* quit if out of bounds */
|
|
|
54 if (px < 0 || py < 0 || px >= 1024 || py >= 1024) {
|
|
|
55 printf("return 0;\n");
|
|
|
56 return;
|
|
|
57 }
|
|
|
58
|
|
|
59 if (implbuf[XYD(px, py, dir)]) {
|
|
|
60 printf("goto x%dy%dd%d;\n", px, py, dir);
|
|
|
61 return;
|
|
|
62 } else {
|
|
|
63 printf("x%dy%dd%d:\n", px, py, dir);
|
|
|
64 /* mark as implemented */
|
|
|
65 implbuf[XYD(px, py, dir)] = 1;
|
|
|
66 }
|
|
|
67
|
|
|
68 switch(pbuf[XY(px, py)]) {
|
|
|
69 case '+': /* branch */
|
|
|
70 /* go back */
|
|
|
71 switch (dir) {
|
|
|
72 case 1: /* up */
|
|
|
73 py++;
|
|
|
74 break;
|
|
|
75 case 2: /* right */
|
|
|
76 px--;
|
|
|
77 break;
|
|
|
78 case 3: /* down */
|
|
|
79 py--;
|
|
|
80 break;
|
|
|
81 case 4: /* left */
|
|
|
82 px++;
|
|
|
83 break;
|
|
|
84 }
|
|
|
85
|
|
|
86 printf("if (*mptr) {\n");
|
|
|
87 impl(px, py, dir+1);
|
|
|
88 printf("} else {\n");
|
|
|
89 impl(px, py, dir-1);
|
|
|
90 printf("}\n");
|
|
|
91 return;
|
|
|
92
|
|
|
93 break;
|
|
|
94
|
|
|
95 case '*': /* memory operator */
|
|
|
96 if (dir == 2 || dir == 4) {
|
|
|
97 printf("if (mptr == mbuf + 1) {\n");
|
|
|
98 printf("if (mbuf[0] == 0) { mbuf[0] = getchar(); } else { putchar(mbuf[0]); fflush(stdout); mbuf[0] = 0; }\n");
|
|
|
99 printf("} else {\n");
|
|
|
100 }
|
|
|
101
|
|
|
102 switch (dir) {
|
|
|
103 case 1: /* up */
|
|
|
104 printf("mptr--;\n");
|
|
|
105 break;
|
|
|
106 case 2: /* right */
|
|
|
107 printf("(*mptr)++;\n");
|
|
|
108 break;
|
|
|
109 case 3: /* down */
|
|
|
110 printf("mptr++;\n");
|
|
|
111 break;
|
|
|
112 case 4: /* left */
|
|
|
113 printf("(*mptr)--;\n");
|
|
|
114 break;
|
|
|
115 }
|
|
|
116
|
|
|
117 if (dir == 2 || dir == 4) {
|
|
|
118 printf("}\n");
|
|
|
119 }
|
|
|
120 break;
|
|
|
121 }
|
|
|
122 }
|
|
|
123 }
|
|
|
124
|
|
|
125 int main(int argc, char **argv)
|
|
|
126 {
|
|
|
127 FILE *pinp;
|
|
|
128 char pline[1024];
|
|
|
129 int py;
|
|
|
130
|
|
|
131 if (argc < 2) {
|
|
|
132 printf("Use: %s <program>\n", argv[0]);
|
|
|
133 return 1;
|
|
|
134 }
|
|
|
135
|
|
|
136 memset(pbuf, 0, 1024*1024);
|
|
|
137 memset(implbuf, 0, 1024*1024*4);
|
|
|
138 py = 0;
|
|
|
139
|
|
|
140 /* read in the file */
|
|
|
141 pinp = fopen(argv[1], "r");
|
|
|
142 if (pinp == NULL) {
|
|
|
143 perror("fopen");
|
|
|
144 return 1;
|
|
|
145 }
|
|
|
146
|
|
|
147 while (!feof(pinp)) {
|
|
|
148 fgets(pline, 1024, pinp);
|
|
|
149 strcpy(pbuf + XY(0, py), pline);
|
|
|
150 py++;
|
|
|
151 }
|
|
|
152
|
|
|
153 fclose(pinp);
|
|
|
154
|
|
|
155 printf("#include <stdio.h>\nint main()\n{\n");
|
|
|
156 printf("int mbuf[32256];\n");
|
|
|
157 printf("int *mptr = mbuf + 2;\n");
|
|
|
158 printf("memset(mbuf, 0, 32256);\n");
|
|
|
159
|
|
|
160 impl(0, -1, 3);
|
|
|
161
|
|
|
162 printf("return 0;\n}\n");
|
|
|
163 return 0;
|
|
|
164 }
|
