be9c11f2e219bb8a213c9775241533edd2671daf
23 char *progname
= NULL
;
25 char mem
[MEMSIZE
] = {0};
31 FILE *fd
= ret
? stderr
: stdout
;
32 fprintf (fd
, "usage: %s [-i file] [-h] [-m memory] [-o file] [-v]\n", progname
);
33 fprintf (fd
, " -i : input file\n");
34 fprintf (fd
, " -h : help message\n");
35 fprintf (fd
, " -m : memory [0..0]\n");
36 fprintf (fd
, " -o : output file\n");
37 fprintf (fd
, " -v : verbose level (%d)\n", verbose
);
44 int process (char *buffer
, int nb
, FILE *out
) {
47 for (i
= 0; (i
< nb
) && (buffer
[i
] != 0); i
++) {
49 VERBOSE (DEBUG
, fprintf (stderr
, "%s: read '%c' (%u)\n", progname
, buffer
[i
], buffer
[i
]));
51 case '>': /* increase pointer */
54 case '<': /* decrease pointer */
57 case '+': /* increase pointer value */
58 if ((p
>= 0) && (p
< MEMSIZE
)) {
61 VERBOSE (ERROR
, fprintf (stderr
, "%s: invalid address (%d)\n", progname
, p
));
65 case '-': /* decrease pointer value */
66 if ((p
>= 0) && (p
< MEMSIZE
)) {
69 VERBOSE (ERROR
, fprintf (stderr
, "%s: invalid address (%d)\n", progname
, p
));
73 case '.': /* output pointer value */
74 if ((p
>= 0) && (p
< MEMSIZE
)) {
75 fprintf (out
, "%c", mem
[p
]);
77 VERBOSE (ERROR
, fprintf (stderr
, "%s: invalid address (%d)\n", progname
, p
));
81 case ',': /* read a byte and store it in memory */
82 if ((p
>= 0) && (p
< MEMSIZE
)) {
84 mem
[p
] = (c
> 0) ? c
: 0;
86 VERBOSE (ERROR
, fprintf (stderr
, "%s: invalid address (%d)\n", progname
, p
));
90 case '[': /* jump to right bracket if pointer is set to 0 */
93 while ((++i
< nb
) && (bracket
> 0)) {
94 bracket
+= (buffer
[i
] == '[') ? +1 : (buffer
[i
] == ']') ? -1 :0;
97 VERBOSE (ERROR
, fprintf (stderr
, "%s: brace not closed\n", progname
));
101 return process (buffer
+ i
+ 1, nb
- i
- 1, out
);
104 case ']': /* jump to left bracket if pointer is different to 0 */
115 VERBOSE (WARNING
, fprintf (stderr
, "%s: can't understand '%c'\n", progname
, buffer
[i
]));
118 //VERBOSE (DEBUG, int _i; fprintf (stderr, "%s: p: %d mem:", progname, p); for (_i = 0; _i < MEMSIZE; _i++) fprintf (stderr, " %d", mem[_i]); fprintf (stderr, "\n"));
127 int main (int argc
, char *argv
[])
138 char *pt
= progname
= argv
[0];
140 if ((*pt
== '/') || (*pt
== '\\')) {
147 while ((c
= getopt(argc
, argv
, "e:i:m:o:hv:")) != EOF
) {
153 buffer
= strdup (optarg
);
154 if (buffer
== NULL
) {
155 VERBOSE (ERROR
, fprintf (stderr
, "%s: can't allocate memory\n", progname
));
158 size
= strlen (buffer
) + 1;
164 for (i
= 0; i
< MEMSIZE
; i
++) {
166 mem
[i
] = strtol (optarg
, &optarg
, 10);
167 VERBOSE (DEBUG
, fprintf (stderr
, "%s: mem[%d] = %d\n", progname
, i
, mem
[i
]));
171 VERBOSE (WARNING
, fprintf (stderr
, "%s: too many memory values\n", progname
));
179 verbose
= atoi (optarg
);
183 return usage (c
!= 'h');
186 if (argc
- optind
!= 0) {
187 VERBOSE (ERROR
, fprintf (stderr
, "%s: invalid option -- %s\n", progname
, argv
[optind
]));
191 /* check input file */
193 fid
= fopen (input
, "r");
195 VERBOSE (ERROR
, fprintf (stderr
, "%s: can't open file '%s' for reading\n", progname
, input
));
198 } else if (buffer
== NULL
) {
202 /* read input file */
204 while (!feof (fid
)) {
205 buffer
= (char *) realloc (buffer
, size
+ BUFSIZE
);
206 if (buffer
== NULL
) {
207 VERBOSE (ERROR
, fprintf (stderr
, "%s: can't allocate memory\n", progname
));
210 memset (buffer
+ size
, 0, BUFSIZE
);
211 n
= fread (buffer
+ size
, 1, BUFSIZE
, fid
);
213 VERBOSE (ERROR
, fprintf (stderr
, "%s: can't read data from file '%s'\n", progname
, input
));
219 /* close input file */
221 VERBOSE (DEBUG
, fprintf (stderr
, "%s: read %d bytes\n", progname
, size
+ n
- BUFSIZE
));
223 VERBOSE (DEBUG
, fprintf (stderr
, "%s: prog %d bytes\n", progname
, size
-1));
226 /* check output file */
228 fid
= fopen (output
, "w");
230 VERBOSE (ERROR
, fprintf (stderr
, "%s: can't open file '%s' for writing\n", progname
, output
));
238 int rc
= process (buffer
, size
, fid
);
239 VERBOSE (INFO
, fprintf (stdout
, "\nmemory:"); int _i
; for (_i
= 0; _i
< MEMSIZE
; _i
++) fprintf (stdout
," %d", mem
[_i
]); fprintf (stdout
,"\n"));
241 /* close output file */
248 // test: bf.exe -h | awk '/usage:/ { rc=1 } END { exit (1-rc) }'
249 // test: bf.exe -_ 2> /dev/null | awk 'END { if (NR == 0) { exit(0) } else exit (1) }'
250 // test: bf.exe -_ 2>&1 | awk '/usage:/ { rc=1 } END { exit (1-rc) }'
251 // test: bf.exe -i error.b 2>&1 | grep "can't open" | grep -q "reading"
252 // test: echo ">>." | bf.exe -o error/error.b 2>&1 | grep "can't open" | grep -q "writing"
253 // test: echo '+++>++>>-<--' | bf.exe -v2 | grep -q "memory: 3 2 -2 -1 0"
254 // test: bf.exe -e '+++>++>>-<--' -v2 | grep -q "memory: 3 2 -2 -1 0"
255 // test: echo '++++++++++[>+++++++>++++++++++>+++>+<<<<-]>++.>+.+++++++..+++.>++.<<+++++++++++++++.>.+++.------.--------.>+.>.' | bf.exe -v1 | grep -q "Hello World!"
256 // test: echo '++++++++++[>+>+++>+++++++>++++++++++<<<<-]>>>++++++++++++++.>+++++++++++++++++.<<++.>+++++++++++++.>--.<<.>+++.+.--.>----.++++++.+.<++.>----.++.<<.>>+.-------.<<.>>++.<.>+++++.<<.>-.+.<.>---.>---.<-.++++++++.>----.<---.>+++++++.<---.++++++++.' | bf.exe -v1 | grep -q "Tu as decouvert un peu de brainfuck"
257 // test: echo -e "123\0" | bf.exe -e ',[>,]' -v2 | grep -q "memory: 49 50 51 0"
258 // test: echo -e "43\0" | bf.exe -e ',>++++++[<-------->-],[<+>-]<.' -v1 | grep -q 7
260 // test: echo -e "32\0" | bf.exe -e ',>,>>++++++++++++++++[-<+++<---<--->>>]<<[<[>>+>+<<<-]>>>[<<<+>>>-]<<-]>.' -v1 | grep -q 6
261 // test: echo -e "32\0" | bf.exe -e ',>,[->>+<<]+<[->>>[>>>>>+<<<<<->+<<]<[>]>>>>>[-<<->>>>>>>]<[>]<<<<<<]>[>>>>->]<<<<<<[-]>[-]>>[-]>.' -v1 | grep -q 3
263 /* vim: set ts=4 sw=4 et: */