xion.c

来自「一个小型脚本语言解释器源代码,来自老外内附英文说明和演示脚本例子」· C语言 代码 · 共 43 行

#include <stdio.h>
#include "xion.h"
#include "stdio.lib"
#include "support.h"
int main(int argc,char *argv[])
{

	char read[100],temp[100];
	if(argc<2)
	{
		printf("\nXion Interpretor");
		return(0);
	}

	load_file(argv[1]);
	while(1)
	{
		read_buffer(read);
		if(strcmp(read,"END")==0)  // PROGRAM ENDS
		{
			free(buffer);
			break;
		}
		if(strcmp(read,"V")==0)      // VARIABLE DECLARATION
		var();
		else if(strcmp(read,"P")==0) // PRINT TO CONSOLE
		print_com();
		else if(strcmp(read,"PV")==0) // PRINT VARIABLE
		printvar();
		else if(strcmp(read,"S")==0)  // ASSIGNMENT
		setvar();
		else if(strcmp(read,"I")==0)  // INPUT FROM CONSOLE
		inputto();
		else if(strcmp(read,"EX")==0) // EXIT
		exit(0);
		else if(strcmp(read,"PSE")==0) // PAUSE
		getch();
	}
	return(0);
}