beelzebublang.h

实现语言翻译

#define STACK_INIT_SIZE 100
#define STACK_INCREMENT 10
#define ok 1;
#define OVERFLOW 0;
#define error 0;
typedef char selemtype;
typedef struct
{
	selemtype *base;
	selemtype *top;
	int stacksize;
}sqstack;
 bool initstack(sqstack &s)
  {
    s.base=(selemtype*)malloc(  STACK_INIT_SIZE * sizeof (selemtype));
	if(!s.base)  
		    exit(0);
	s.top=s.base;
	s.stacksize=STACK_INIT_SIZE;
	return ok;
  }
bool destroystack(sqstack &s)
{
	free(s.base);
	 return ok;
}
bool clearstack(sqstack &s)
{
	s.top=s.base;
	return ok;
}
bool stackempty(sqstack &s)
{
	if(s.top==s.base)
		return true;
	else 
		return false;
}
int stacklength(sqstack &s)
{
  int lon;
  lon=s.top-s.base;
  return lon;
}
bool gettop(sqstack &s,selemtype &e)
{
	if(s.top==s.base) return error;
	e=*(s.top-1);
	return ok;
}
bool push(sqstack &s,selemtype e)
{
	if(s.top-s.base>=s.stacksize)
	{
		s.base=(selemtype*)realloc(s.base,(s.stacksize+STACK_INCREMENT)*sizeof(selemtype));
		if(!s.base) exit(0); 
			s.top=s.base+s.stacksize;
		    s.stacksize+=STACK_INIT_SIZE;
	}
	*s.top++=e;
	return ok;
}
bool pop (sqstack &s,selemtype &e)
{
	if (s.top==s.base) return error;
	s.top--;
	e=*s.top;
	return ok;
}