只用一个栈顶指针top（没有bottom）实现的链式栈

#define TRUE        1 
#define FALSE       0 
#define OK          1 
#define ERROR       0 
#define OVERFLOW    -1 
#define UNDERFLOW   -2 

struct LNode// 链式栈s中的结点结构
{
 char data;//数据
 struct LNode *next;//指针
};
struct LStack{
 struct LNode *top;//栈顶指针，这个栈结构没有bottom指针，感觉更简洁！
}
Status InitStack(LStack &s)
 //构造一个空栈
{
 struct LNode *p;
 p=(LNode *)malloc(sizeof(LNode));
 if(!p)
 {
  printf("存储分配失败!");
  exit(OVERFLOW);
 }
 s.top=p;
 p->next=NULL;
 return OK;
}
Status DestoryStack(LStack &s)
 //初始条件：栈s已存在
 //操作结果：销毁栈
{
 struct LNode *p;
 p=s.top;
 while(p)
 {
  s.top=p->next;
  free(p);
  p=s.top;
 }
 return OK;
}
Status StackEmpty(LStack s)
 初始条件：栈s已存在
 //操作结果：若栈为空栈，返回true，否则返回false
{
 if(s.top->next==NULL)
  return TRUE;
 return FALSE;
}
Status  StackLength(LStack s)
//初始条件：栈s已存在 
//操作结果：返回s的元素个数，即栈的长度
{
   int length=0;
   struct LNode *p;
   p=s.top;
   while(p){
   length++;
   p=p->next;
   }
   return length;
}
 
Status Push(LStack &s,ElemType e)
//初始条件：栈s已存在 
//操作结果：插入元素e成为新的栈顶元素
{ 
   struct LNode *p;
   p=(LNode *)malloc(sizeof(LNode));
   if(!p)
    exit(OVERFLOW);
   p->data=e;
   p->next=s.top;
   s.top=p;
   return OK;
}  
  
  
Status  Pop(LStack &s,ElemType &e)
 //初始条件：栈s已存在且非空 
 //操作结果：删除s的栈顶元素，并且用e返回其值
{
    struct LNode *p;
    if(!(s.top->next))
       exit(ERROR);
    p=s.top;
    s.top=p->next;
    e=p->data;
    free(p);
    return OK;
}

Status  GetTop(LStack s,ElemType &e)
 //初始条件：栈s已存在且非空 
//操作结果：用e返回s的栈顶元素
{
     if(!(s.top->next))
	exit(ERROR);
     e = s.top->data;    
     s.top=s.top->next;
     e=s.top->data;
     return OK;
}
 
Status  StackTraverse(LStack s)
//从栈顶开始依次输出
{
     struct LNode *p;
     if(!(s.top->next))
   	exit(ERROR);
     p=s.top;
     while(p)
    {
	cout<<p->data<<endl;   
	p=p->next;
    }
    return OK;
}