链栈的实现

#include
#include

typedef struct
{
int a;

}ElemType;

typedef enum { ERROR, OK } Status;

typedef struct SNode
{
ElemType data;
struct SNode
*prior; //prior将指向其前一次入栈的元素
}SNode, *SLink;

Status InitStack( SLink &top ) //构造一个空栈S， top 为栈顶，它唯一地确定一个栈。空栈时为NULL。

{
top = NULL;
return OK;
}//InitStack

int StackEmpty( SLink *top )//判断链栈是否为空
{
return ( top? ERROR : OK
);
}

Status Push(SLink &top, ElemType e) //插入元素e为新的栈顶元素
{
SLink
p;
p=( SLink ) malloc(sizeof (SNode)); //申请栈元素的结点空间
if(!p) exit (
ERROR );
p->data=e;
//为新结点赋值
p->prior=top;
//将其插入到原栈顶结点后
top=p; //栈顶指针指向该结点
return
OK;
}//Push

Status Pop (SLink &top, ElemType
&e)//若栈不空，则用e返回S的栈顶元素值后删除该结点，并返回OK，否则返回ERROR
{
if ( top ==
NULL)
return ERROR;
SLink p;
p = top;
e = p->data;
//返回栈顶元素值
top = top->prior;
free(p); //栈顶指针指向新的栈顶结点，释放被删除结点空间

return OK;
}//Pop

Status GetTop(SLink top, ElemType
&e)//若栈不空，则用e返回S的栈顶元素并返回OK，否则返回ERROR
{
if (top == NULL)
return
ERROR;
e = top->data; //返回栈顶元素值

return OK;
}//GetTop

Status StackTraverse(SLink top, Status
(*visit)(ElemType))//若栈不空，则使用visit函数遍历栈的元素并返回OK，否则返回ERROR
{
if ( top ==
NULL ) return ERROR;
SLink p;
p=top;
//p指向栈顶结点
while(p)
{
//通过循环对栈的元素遍历
visit(p->data);
p=p->prior;
}
return
OK;
}//StackTraverse

Status ClearStack( SLink &top
)//若栈不空，则通过循环清空栈的元素并返回OK，否则返回ERROR
{
if( top == NULL )
return
ERROR;
SLink p;
while( top )
{
//通过循环逐一释放栈元素结点的空间
p = top;
top = top->prior;
free( p
);
}
return OK;
}