/* main5-52.c 檢驗bo5-5.c和bo5-52.c(字符串為HString類型)的主程序 */
 #include"c1.h" /* 此程序與main5-51.c基本相同 */
 typedef char AtomType; /* 定義原子類型為字符型 */
 #include"c5-5.h" /* 定義廣義表的頭尾鏈表存儲 */
 #include"bo5-5.c"
 #include"bo5-52.c" /* 與main5-51.c不同 */

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

 void main()
 {
   char p[80];
   GList l,m;
   HString t; /* 與main5-51.c不同 */
   InitString(&t); /* 增加此句 */
   InitGList(&l);
   InitGList(&m);
   printf("空廣義表l的深度=%d l是否空？%d(1:是 0:否)\n",GListDepth(l),GListEmpty(l));
   printf("請輸入廣義表l(書寫形式：空表:(),單原子:a,其它:(a,(b),b)):\n");
   gets(p);
   StrAssign(&t,p);
   CreateGList(&l,t);
   printf("廣義表l的長度=%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復制廣義表m=l\n");
   CopyGList(&m,l);
   printf("廣義表m的長度=%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);
 }