support.h

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

void call_help(errcode)
char errcode[];
{
	char file[100];
	strcpy(file,"help.exe ");
	strcat(file,errcode);
	system(file);
	exit(0);
}

////////////////////////////////////////////////
//  FUNCTION TO LOAD A FILE IN MEMORY
//  BUFFER, THIS BUFFER IS FIRST ALLOCATED
void load_file(filename)
char *filename;
{
	FILE *f1;
	float n;
	int i;
	char c;
	n = file_size(filename);
	buffer = (char *)malloc((sizeof(char)*n)+10);
	if(buffer == NULL)
	{
		printf("\nUnable to Load File %s",filename);
		printf("\n                    ^");
		exit(ERROR);
	}
	f1 = fopen(filename,"r");
	i=0;
	while((c=getc(f1)) != EOF)
	{
		*(buffer+i)=c;
		i++;
	}
	fclose(f1);
}

/*********************************************************************/
/*  Function to return a specified file size                         */
/*  file_size(<filename>);                                           */
/*********************************************************************/
float file_size(filename)
char *filename;
{
	FILE *f1;
	float n;
	f1 = fopen(filename,"r");
	if(f1 == NULL)
	{
		printf("Unable to Open file %s",filename);
		exit(0);
	}
	fseek(f1,0,2);
	n = ftell(f1);
	fclose(f1);
	return(n);
}
/*********************************************************************/
/*   Function to extract filename from a full path                   */
/*********************************************************************/
void extract_filename(path,filename)
char *filename;
char *path;
{
	int i,size;
	size = strlen(path);
	size--;
	for(i=0;*(path+size)!='\\' && size>=0;i++,size--)
	{
		*(filename+i) = *(path+size);
	}
	*(filename+i)='\0';
	strrev(filename);
}

/***********************************************************************/
/*   Function to read a word from buffer                               */
/***********************************************************************/
void read_buffer(var)
char var[];
{
	int j;
	char c;
	for(j=0;*(buffer+position)!=' ' && *(buffer+position)!='\n' && *(buffer+position)!='\t' && *(buffer+position)!=EOF;position++,j++)
	{
		var[j]=*(buffer+position);
	}
	while(1)
	{
		c=*(buffer+position);
		if(c>='a' && c<='z' || c>='A' && c<='Z' || c>=33 && c<=64 || c>=91 && c<=95 || c>=123 && c<=126)
		break;
		position++;

	}
	var[j]='\0';
}
///////////////////////////////////////////////////////////////////////
//        FUNCTION TO RETURN POSITION OF VARIABLE IN VARIABLE CACHE
//        ON ERROR RETURNS NULL
int return_position(string,a,b)
char string[];
int *a,*b;
{
	int i,j,err=-1;
	for(i=0;i<3;i++)
	{
		for(j=0;j<10;j++)
		{
			if(strcmp(string,holder[i][j]) == 0)
			{
				*a=i;
				*b=j;
				err=5;
				break;
			}
		}
	}
	return(err);
}
/***************************************************************************/
/*  Function to check if a String entered is a valid number or not         */
/***************************************************************************/
int isvalidnum(str)
char str[];
{
	int i;
	for(i=0;i<str[i]!='\0';i++)
	{
		if(str[i]>=48 && str[i]<=57 || str[i]=='-')
		;
		else
		return(0);
	}
	return(1);
}