小作：brainfuck解释器

/* Brainfuck Virtual Machine
 *
 * Usage:
 * % cc bfvm.c -o bfvm -DNO_CONIO_H -DQUIET
 * % ./bfvm script.bf
 *
 * Author: yanh2001
 */

#include <stdio.h>
#include <stdlib.h>
#include <string.h>

#ifndef NO_CONIO_H
# include <conio.h>
int get_char() { return getch(); }
#else
int get_char() { return getchar(); }
#endif

static const char* token = "><+-.,[]";

#define INST_SIZE 9999
#define ARRAY_OVERFLOW 29999
#define DATA_OVERFLOW 255

#ifndef QUIET
#define MESSAGE(msg, arg) do { \
	puts("----Message from BFVM----"); \
	printf(msg, arg); \
	puts("-------------------------"); \
} while (0)
#else
#define MESSAGE(msg, arg)
#endif

int main(int argc, char **argv)
{
	if (argc == 1)
		{
		MESSAGE("Usage: %s script.bf\n", argv[0]);
		return EXIT_FAILURE;
		}

	FILE* in = fopen(argv[1], "r");
	
	if (in == NULL)
		{
		MESSAGE("Can't open file:\n%s\n", argv[1]);
		return EXIT_FAILURE;
		}

	char inst[INST_SIZE + 1] = { '\0' }; // instructions
	char* inst_ptr = inst;

	int inst_count = 0;
	int braces_count = 0;
	while (!feof(in))
		{
		char ch = fgetc(in);

		if (strchr(token, ch) != NULL)
			{
			// Syntax Check
			if (ch == '[')
				++braces_count;
			else if (ch == ']')
				if (braces_count < 0) break;
				else --braces_count;

			// Assign
			*inst_ptr = ch;
			++inst_ptr;

			if (++inst_count > INST_SIZE)
				{
				MESSAGE("%s", "Too big script.\n");
				return EXIT_FAILURE;
				}
			}
		}

	fclose(in);

	// Syntax Check
	if (braces_count != 0)
		{
		MESSAGE("%s", "Wrong script file.\n");
		return EXIT_FAILURE;
		}

	MESSAGE("%s", "Parsing finished successfully, now start VM.\n");

	// Start VM
	inst_ptr = inst;

	char data[1 + ARRAY_OVERFLOW] = { 0 }; // 0 ~ 29,999
	char* data_ptr = data; // 0 ~ 255

	while (*inst_ptr != '\0')
		{
		switch (*inst_ptr)
			{
			case '>':
				if (data_ptr != data + ARRAY_OVERFLOW)
					++data_ptr;
				else
					data_ptr = data;
				break;
			case '<':
				if (data_ptr != data)
					--data_ptr;
				else
					data_ptr = data + ARRAY_OVERFLOW;
				break;
			case '+':
				if (*data_ptr != DATA_OVERFLOW)
					++*data_ptr;
				else
					*data_ptr = 0;
				break;
			case '-':
				if (*data_ptr != 0)
					--*data_ptr;
				else
					*data_ptr = DATA_OVERFLOW;
				break;
			case '.':
				putchar(*data_ptr);
				break;
			case ',':
				*data_ptr = get_char();
				break;
			case '[':
				if (*data_ptr == 0)
					{
					do { ++inst_ptr; } while (*inst_ptr != ']');
					}
				break;
			case ']':
				if (*data_ptr != 0)
					{
					do { --inst_ptr; } while (*inst_ptr != '[');
					}
				break;
			}

		++inst_ptr;
		}

	MESSAGE("%s", "VM closed.\n");

	return EXIT_SUCCESS;
}