/* bo2-6.c 具有實用意義的線性鏈表(存儲結構由c2-5.h定義)的24個基本操作 */
 Status MakeNode(Link *p,ElemType e)
 { /* 分配由p指向的值為e的結點，并返回OK；若分配失敗。則返回ERROR */
   *p=(Link)malloc(sizeof(LNode));
   if(!*p)
     return ERROR;
   (*p)->data=e;
   return OK;
 }

 void FreeNode(Link *p)
 { /* 釋放p所指結點 */
   free(*p);
   *p=NULL;
 }

 Status InitList(LinkList *L)
 { /* 構造一個空的線性鏈表 */
   Link p;
   p=(Link)malloc(sizeof(LNode)); /* 生成頭結點 */
   if(p)
   {
     p->next=NULL;
     (*L).head=(*L).tail=p;
     (*L).len=0;
     return OK;
   }
   else
     return ERROR;
 }

 Status ClearList(LinkList *L)
 { /* 將線性鏈表L重置為空表，并釋放原鏈表的結點空間 */
   Link p,q;
   if((*L).head!=(*L).tail)/* 不是空表 */
   {
     p=q=(*L).head->next;
     (*L).head->next=NULL;
     while(p!=(*L).tail)
     {
       p=q->next;
       free(q);
       q=p;
     }
     free(q);
     (*L).tail=(*L).head;
     (*L).len=0;
   }
   return OK;
 }

 Status DestroyList(LinkList *L)
 { /* 銷毀線性鏈表L，L不再存在 */
   ClearList(L); /* 清空鏈表 */
   FreeNode(&(*L).head);
   (*L).tail=NULL;
   (*L).len=0;
   return OK;
 }

 Status InsFirst(LinkList *L,Link h,Link s) /* 形參增加L,因為需修改L */
 { /* h指向L的一個結點，把h當做頭結點，將s所指結點插入在第一個結點之前 */
   s->next=h->next;
   h->next=s;
   if(h==(*L).tail) /* h指向尾結點 */
     (*L).tail=h->next; /* 修改尾指針 */
   (*L).len++;
   return OK;
 }

 Status DelFirst(LinkList *L,Link h,Link *q) /* 形參增加L,因為需修改L */
 { /* h指向L的一個結點，把h當做頭結點，刪除鏈表中的第一個結點并以q返回。 */
   /* 若鏈表為空(h指向尾結點)，q=NULL，返回FALSE */
   *q=h->next;
   if(*q) /* 鏈表非空 */
   {
     h->next=(*q)->next;
     if(!h->next) /* 刪除尾結點 */
       (*L).tail=h; /* 修改尾指針 */
     (*L).len--;
     return OK;
   }
   else
     return FALSE; /* 鏈表空 */
 }

 Status Append(LinkList *L,Link s)
 { /* 將指針s(s->data為第一個數據元素)所指(彼此以指針相鏈,以NULL結尾)的 */
   /* 一串結點鏈接在線性鏈表L的最后一個結點之后,并改變鏈表L的尾指針指向新 */
   /* 的尾結點 */
   int i=1;
   (*L).tail->next=s;
   while(s->next)
   {
     s=s->next;
     i++;
   }
   (*L).tail=s;
   (*L).len+=i;
   return OK;
 }

 Position PriorPos(LinkList L,Link p)
 { /* 已知p指向線性鏈表L中的一個結點，返回p所指結點的直接前驅的位置 */
   /* 若無前驅，則返回NULL */
   Link q;
   q=L.head->next;
   if(q==p) /* 無前驅 */
     return NULL;
   else
   {
     while(q->next!=p) /* q不是p的直接前驅 */
       q=q->next;
     return q;
   }
 }

 Status Remove(LinkList *L,Link *q)
 { /* 刪除線性鏈表L中的尾結點并以q返回，改變鏈表L的尾指針指向新的尾結點 */
   Link p=(*L).head;
   if((*L).len==0) /* 空表 */
   {
     *q=NULL;
     return FALSE;
   }
   while(p->next!=(*L).tail)
     p=p->next;
   *q=(*L).tail;
   p->next=NULL;
   (*L).tail=p;
   (*L).len--;
   return OK;
 }

 Status InsBefore(LinkList *L,Link *p,Link s)
 { /* 已知p指向線性鏈表L中的一個結點，將s所指結點插入在p所指結點之前， */
   /* 并修改指針p指向新插入的結點 */
   Link q;
   q=PriorPos(*L,*p); /* q是p的前驅 */
   if(!q) /* p無前驅 */
     q=(*L).head;
   s->next=*p;
   q->next=s;
   *p=s;
   (*L).len++;
   return OK;
 }

 Status InsAfter(LinkList *L,Link *p,Link s)
 { /* 已知p指向線性鏈表L中的一個結點，將s所指結點插入在p所指結點之后， */
   /* 并修改指針p指向新插入的結點 */
   if(*p==(*L).tail) /* 修改尾指針 */
     (*L).tail=s;
   s->next=(*p)->next;
   (*p)->next=s;
   *p=s;
   (*L).len++;
   return OK;
 }

 Status SetCurElem(Link p,ElemType e)
 { /* 已知p指向線性鏈表中的一個結點，用e更新p所指結點中數據元素的值 */
   p->data=e;
   return OK;
 }

 ElemType GetCurElem(Link p)
 { /* 已知p指向線性鏈表中的一個結點，返回p所指結點中數據元素的值 */
   return p->data;
 }

 Status ListEmpty(LinkList L)
 { /* 若線性鏈表L為空表，則返回TRUE，否則返回FALSE */
   if(L.len)
     return FALSE;
   else
     return TRUE;
 }

 int ListLength(LinkList L)
 { /* 返回線性鏈表L中元素個數 */
   return L.len;
 }

 Position GetHead(LinkList L)
 { /* 返回線性鏈表L中頭結點的位置 */
   return L.head;
 }

 Position GetLast(LinkList L)
 { /* 返回線性鏈表L中最后一個結點的位置 */
   return L.tail;
 }

 Position NextPos(Link p)
 { /* 已知p指向線性鏈表L中的一個結點，返回p所指結點的直接后繼的位置 */
   /* 若無后繼，則返回NULL */
   return p->next;
 }

 Status LocatePos(LinkList L,int i,Link *p)
 { /* 返回p指示線性鏈表L中第i個結點的位置，并返回OK，i值不合法時返回ERROR */
   /* i=0為頭結點 */
   int j;
   if(i<0||i>L.len)
     return ERROR;
   else
   {
     *p=L.head;
     for(j=1;j<=i;j++)
       *p=(*p)->next;
     return OK;
   }
 }

 Position LocateElem(LinkList L,ElemType e,Status (*compare)(ElemType,ElemType))
 { /* 返回線性鏈表L中第1個與e滿足函數compare()判定關系的元素的位置， */
   /* 若不存在這樣的元素，則返回NULL */
   Link p=L.head;
   do
     p=p->next;
   while(p&&!(compare(p->data,e))); /* 沒到表尾且沒找到滿足關系的元素 */
   return p;
 }

 Status ListTraverse(LinkList L,void(*visit)(ElemType))
 { /* 依次對L的每個數據元素調用函數visit()。一旦visit()失敗，則操作失敗 */
   Link p=L.head->next;
   int j;
   for(j=1;j<=L.len;j++)
   {
     visit(p->data);
     p=p->next;
   }
   printf("\n");
   return OK;
 }

 Status OrderInsert(LinkList *L,ElemType e,int (*comp)(ElemType,ElemType))
 { /* 已知L為有序線性鏈表，將元素e按非降序插入在L中。（用于一元多項式） */
   Link o,p,q;
   q=(*L).head;
   p=q->next;
   while(p!=NULL&&comp(p->data,e)<0) /* p不是表尾且元素值小于e */
   {
     q=p;
     p=p->next;
   }
   o=(Link)malloc(sizeof(LNode)); /* 生成結點 */
   o->data=e; /* 賦值 */
   q->next=o; /* 插入 */
   o->next=p;
   (*L).len++; /* 表長加1 */
   if(!p) /* 插在表尾 */
     (*L).tail=o; /* 修改尾結點 */
   return OK;
 }

 Status LocateElemP(LinkList L,ElemType e,Position *q,int(*compare)(ElemType,ElemType))
 { /* 若升序鏈表L中存在與e滿足判定函數compare()取值為0的元素，則q指示L中 */
   /* 第一個值為e的結點的位置，并返回TRUE；否則q指示第一個與e滿足判定函數 */
   /* compare()取值>0的元素的前驅的位置。并返回FALSE。（用于一元多項式） */
   Link p=L.head,pp;
   do
   {
     pp=p;
     p=p->next;
   }while(p&&(compare(p->data,e)<0)); /* 沒到表尾且p->data.expn<e.expn */
   if(!p||compare(p->data,e)>0) /* 到表尾或compare(p->data,e)>0 */
   {
     *q=pp;
     return FALSE;
   }
   else /* 找到 */
   {
     *q=p;
     return TRUE;
   }
 }