interpreter.c

来自「FinC is Fava in C! A C-like syntax langu」· C语言 代码 · 共 49 行

#include <finclib.h>

void stdio_init()
{
	finc_insert_func("printf", printf, "void", "string", "format", "...", NULL);
	finc_insert_func("scanf", scanf, "void", "string", "format", "...", NULL);
	finc_insert_func("memview", mem_debug, "void", NULL);
}

void fileio_init()
{
	finc_insert_func("fopen", fopen, "pointer", "string", "filename", "string", "mode");
	finc_insert_func("fread", fread, "int", "pointer", "buf", "int", "size", "int", "nmemb", "pointer", "fd");
	finc_insert_func("fwrite", fread, "int", "pointer", "buf", "int", "size", "int", "nmemb", "pointer", "fd");
	finc_insert_func("feof", feof, "bool", "pointer", "fd");
	finc_insert_func("fseek", fseek, "int", "pointer", "fd", "int", "offset", "int", "origin");
	finc_insert_func("ftell", ftell, "int", "pointer", "fd");
	finc_insert_func("fprintf", fprintf, "void", "pointer", "fd", "string", "format", "....", NULL);
	finc_insert_func("fscanf", fscanf, "void", "pointer", "fd", "string", "format", "....", NULL);
	finc_insert_func("fclose", fclose, "int", "pointer", "fd");
	
	finc_insert_func("fputc", fputc, "int", "char", "c", "pointer", "fd");
}

void help()
{
    printf("Fava in C -- a strong C-like syntax interpreter, version 0.2, 2002.4 release under GPL.\n");
	printf("(c)opy by Xiong puxiang([e-mail])\n");
	printf("Usage: finc file.fc\n");
}

int main (int argc, char** argv)
{
	if (argc<2)
	{
	    help();
	    exit(0);
	}
	
	finc_init();
	stdio_init();
	
	finc_run_script(argv[1]);

	finc_exit();
	mem_debug();
	return 0;
}