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
)) {
85 VERBOSE (ERROR
, fprintf (stderr
, "%s: invalid address (%d)\n", progname
, p
));
89 case '[': /* jump to right bracket if pointer is set to 0 */
92 while ((++i
< nb
) && (bracket
> 0)) {
93 bracket
+= (buffer
[i
] == '[') ? +1 : (buffer
[i
] == ']') ? -1 :0;
96 VERBOSE (ERROR
, fprintf (stderr
, "%s: brace not closed\n", progname
));
100 return process (buffer
+ i
+ 1, nb
- i
- 1, out
);
103 case ']': /* jump to left bracket if pointer is different to 0 */
112 VERBOSE (WARNING
, fprintf (stderr
, "%s: can't understand '%c'\n", progname
, buffer
[i
]));
115 //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"));
124 int main (int argc
, char *argv
[])
135 char *pt
= progname
= argv
[0];
137 if ((*pt
== '/') || (*pt
== '\\')) {
144 while ((c
= getopt(argc
, argv
, "i:m:o:hv:")) != EOF
) {
150 for (i
= 0; i
< MEMSIZE
; i
++) {
152 mem
[i
] = strtol (optarg
, &optarg
, 10);
153 VERBOSE (DEBUG
, fprintf (stderr
, "%s: mem[%d] = %d\n", progname
, i
, mem
[i
]));
157 VERBOSE (WARNING
, fprintf (stderr
, "%s: too many memory values\n", progname
));
165 verbose
= atoi (optarg
);
169 return usage (c
!= 'h');
172 if (argc
- optind
!= 0) {
173 VERBOSE (ERROR
, fprintf (stderr
, "%s: invalid option -- %s\n", progname
, argv
[optind
]));
177 /* check input file */
179 fid
= fopen (input
, "r");
181 VERBOSE (ERROR
, fprintf (stderr
, "%s: can't open file '%s' for reading\n", progname
, input
));
188 /* read input file */
189 while (!feof (fid
)) {
190 buffer
= (char *) realloc (buffer
, size
+ BUFSIZE
);
191 if (buffer
== NULL
) {
192 VERBOSE (ERROR
, fprintf (stderr
, "%s: can't allocate memory\n", progname
));
195 memset (buffer
+ size
, 0, BUFSIZE
);
196 n
= fread (buffer
+ size
, 1, BUFSIZE
, fid
);
198 VERBOSE (ERROR
, fprintf (stderr
, "%s: can't read data from file '%s'\n", progname
, input
));
204 /* close input file */
206 VERBOSE (DEBUG
, fprintf (stderr
, "%s: read %d bytes\n", progname
, size
+ n
- BUFSIZE
));
208 /* check output file */
210 fid
= fopen (output
, "w");
212 VERBOSE (ERROR
, fprintf (stderr
, "%s: can't open file '%s' for writing\n", progname
, output
));
220 int rc
= process (buffer
, size
, fid
);
221 VERBOSE (INFO
, fprintf (stdout
, "\nmemory:"); int _i
; for (_i
= 0; _i
< MEMSIZE
; _i
++) fprintf (stdout
," %d", mem
[_i
]); fprintf (stdout
,"\n"));
223 /* close output file */
230 // test: bf.exe -h | awk '/usage:/ { rc=1 } END { exit (1-rc) }'
231 // test: bf.exe -_ 2> /dev/null | awk 'END { if (NR == 0) { exit(0) } else exit (1) }'
232 // test: bf.exe -_ 2>&1 | awk '/usage:/ { rc=1 } END { exit (1-rc) }'
233 // test: echo '++++++++++[>+++++++>++++++++++>+++>+<<<<-]>++.>+.+++++++..+++.>++.<<+++++++++++++++.>.+++.------.--------.>+.>.' | bf.exe -v1 | grep -q "Hello World!"
234 // test: echo '++++++++++[>+>+++>+++++++>++++++++++<<<<-]>>>++++++++++++++.>+++++++++++++++++.<<++.>+++++++++++++.>--.<<.>+++.+.--.>----.++++++.+.<++.>----.++.<<.>>+.-------.<<.>>++.<.>+++++.<<.>-.+.<.>---.>---.<-.++++++++.>----.<---.>+++++++.<---.++++++++.' | bf.exe -v1 | grep -q "Tu as decouvert un peu de brainfuck"
235 // test: echo ',4>++++++[<-------->-],3[<+>-]<.' | bf.exe -v1 | grep -q 7
237 // test: echo ',3>,2>>++++++++++++++++[-<+++<---<--->>>]<<[<[>>+>+<<<-]>>>[<<<+>>>-]<<-]>.' | bf.exe -v1 | grep -q 6
238 // test: echo ',3>,2[->>+<<]+<[->>>[>>>>>+<<<<<->+<<]<[>]>>>>>[-<<->>>>>>>]<[>]<<<<<<]>[>>>>->]<<<<<<[-]>[-]>>[-]>.' | bf.exe -v1 | grep -q 3
240 /* vim: set ts=4 sw=4 et: */