// main5-51.cpp 檢驗(yàn)bo5-5.cpp和bo5-51.cpp(字符串為SString類型)的主程序
 #include"c1.h"
 typedef char AtomType; // 定義原子類型為字符型
 #include"c5-5.h" // 定義廣義表的頭尾鏈表存儲(chǔ)
 #include"bo5-5.cpp"
 #include"bo5-51.cpp"

 void visit(AtomType e)
 {
   printf("%c ", e);
 }

 void main()
 {
   char p[80];
   SString t;
   GList l,m;
   InitGList(l);
   InitGList(m);
   printf("空廣義表l的深度=%d l是否空？%d(1:是 0:否)\n",GListDepth(l),GListEmpty(l));
   printf("請(qǐng)輸入廣義表l(書寫形式：空表:(),單原子:a,其它:(a,(b),b)):\n");
   gets(p);
   StrAssign(t,p);
   CreateGList(l,t);
   printf("廣義表l的長(zhǎng)度=%d\n",GListLength(l));
   printf("廣義表l的深度=%d l是否空？%d(1:是 0:否)\n",GListDepth(l),GListEmpty(l));
   printf("遍歷廣義表l：\n");
   Traverse_GL(l,visit);
   printf("\n復(fù)制廣義表m=l\n");
   CopyGList(m,l);
   printf("廣義表m的長(zhǎng)度=%d\n",GListLength(m));
   printf("廣義表m的深度=%d\n",GListDepth(m));
   printf("遍歷廣義表m：\n");
   Traverse_GL(m,visit);
   DestroyGList(m);
   m=GetHead(l);
   printf("\nm是l的表頭，遍歷廣義表m：\n");
   Traverse_GL(m,visit);
   DestroyGList(m);
   m=GetTail(l);
   printf("\nm是l的表尾，遍歷廣義表m：\n");
   Traverse_GL(m,visit);
   InsertFirst_GL(m,l);
   printf("\n插入l為m的表頭，遍歷廣義表m：\n");
   Traverse_GL(m,visit);
   printf("\n刪除m的表頭，遍歷廣義表m：\n");
   DestroyGList(l);
   DeleteFirst_GL(m,l);
   Traverse_GL(m,visit);
   printf("\n");
   DestroyGList(m);
 }