/* 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;
}
小作:brainfuck解释器
最新推荐文章于 2024-08-13 16:49:41 发布