// bo3-5.cpp 鏈棧(存儲結構由c2-2.h定義)的基本操作(9個)
 // 大部分基本操作是由bo2-2.cpp和bo2-9.cpp中的函數改名得來
 typedef SElemType ElemType; // 棧結點類型和鏈表結點類型一致
 #include"c2-2.h"
 typedef LinkList LinkStack; // LinkStack是指向棧結點的指針類型
 #define InitStack InitList // InitStack()與InitList()作用相同，下同
 #define DestroyStack DestroyList
 #define ClearStack ClearList
 #define StackEmpty ListEmpty
 #define StackLength ListLength
 #define GetTop GetFirstElem
 #define Push HeadInsert
 #define Pop DeleteFirst
 #include"bo2-2.cpp"
 #include"bo2-9.cpp"
 Status StackTraverse(LinkStack S,void(*visit)(SElemType))
 { // 從棧底到棧頂依次對棧中每個元素調用函數visit()。
   SElemType e;
   LinkStack temp,p=S;
   InitStack(temp); // 初始化temp棧
   while(p->next)
   {
     GetTop(p,e);
     Push(temp,e);
     p=p->next;
   }
   ListTraverse(temp,visit);
   return OK;
 }