/* algo2-6.c 利用單鏈表結構處理教科書圖2.1(學生健康登記表) */
 #include"c1.h"
 #define NAMELEN 8 /* 姓名最大長度 */
 #define CLASSLEN 4 /* 班級名最大長度 */
 struct stud /* 記錄的結構 */
 {
   char name[NAMELEN+1];
   long num;
   char sex;
   int age;
   char Class[CLASSLEN+1];
   int health;
 };
 typedef struct stud ElemType; /* 鏈表結點元素類型為結構體 */
 #include"c2-2.h"
 char sta[3][9]={"健康  ","一般  ","神經衰弱"}; /* 健康狀況(3類) */
 FILE *fp;

 Status InitList(LinkList *L) /* 拷自bo2-2.c */
 { /* 操作結果：構造一個空的線性表L */
   *L=(LinkList)malloc(sizeof(struct LNode)); /* 產生頭結點,并使L指向此頭結點 */
   if(!*L) /* 存儲分配失敗 */
     exit(OVERFLOW);
   (*L)->next=NULL; /* 指針域為空 */
   return OK;
 }

 Status ListTraverse(LinkList L,void(*vi)(ElemType)) /* 拷自bo2-2.c */
 { /* 初始條件：線性表L已存在 */
   /* 操作結果:依次對L的每個數據元素調用函數vi()。一旦vi()失敗,則操作失敗 */
   LinkList p=L->next;
   while(p)
   {
     vi(p->data);
     p=p->next;
   }
   printf("\n");
   return OK;
 }

 void InsertAscend(LinkList L,ElemType e) /* 此函數是由bo2-9.c中的同名函數改寫 */
 { /* 按學號非降序插入 */
   LinkList q=L,p=L->next;
   while(p&&e.num>p->data.num)
   {
     q=p;
     p=p->next;
   }
   q->next=(LinkList)malloc(sizeof(struct LNode)); /* 插在q后 */
   q->next->data=e;
   q->next->next=p;
 }

 void Print(struct stud e)
 { /* 顯示記錄e的內容 */
   printf("%-8s %6ld",e.name,e.num);
   if(e.sex=='m')
     printf(" 男");
   else
     printf(" 女");
   printf("%5d  %-4s",e.age,e.Class);
   printf("%9s\n",sta[e.health]);
 }

 void ReadIn(struct stud *e)
 { /* 由鍵盤輸入結點信息 */
   printf("請輸入姓名(<=%d個字符): ",NAMELEN);
   scanf("%s",e->name);
   printf("請輸入學號: ");
   scanf("%ld",&e->num);
   printf("請輸入性別(m:男 f:女): ");
   scanf("%*c%c",&e->sex);
   printf("請輸入年齡: ");
   scanf("%d",&e->age);
   printf("請輸入班級(<=%d個字符): ",CLASSLEN);
   scanf("%s",e->Class);
   printf("請輸入健康狀況(0:%s 1:%s 2:%s):",sta[0],sta[1],sta[2]);
   scanf("%d",&e->health);
 }

 void WriteToFile(struct stud e)
 { /* 將結點信息寫入fp指定的文件 */
   fwrite(&e,sizeof(struct stud),1,fp);
 }

 Status ReadFromFile(struct stud *e)
 { /* 由fp指定的文件讀取結點信息到e */
   int i;
   i=fread(e,sizeof(struct stud),1,fp);
   if(i==1) /* 讀取文件成功 */
     return OK;
   else
     return ERROR;
 }

 Status FindFromNum(LinkList L,long num,LinkList *p,LinkList *q)
 { /* 查找表中學號為num的結點,如找到,q指向此結點,p指向q的前驅, */
   /* 并返回TRUE;如無此元素,則返回FALSE */
   *p=L;
   while(*p)
   {
     *q=(*p)->next;
     if(*q&&(*q)->data.num>num) /* 因為是按學號非降序排列 */
       break;
     if(*q&&(*q)->data.num==num) /* 找到該學號 */
       return TRUE;
     *p=*q;
   }
   return FALSE;
 }

 Status FindFromName(LinkList L,char name[],LinkList *p,LinkList *q)
 { /* 查找表中姓名為name的結點,如找到,q指向此結點,p指向q的前驅, */
   /* 并返回TRUE;如無此元素,則返回FALSE */
   *p=L;
   while(*p)
   {
     *q=(*p)->next;
     if(*q&&!strcmp((*q)->data.name,name)) /* 找到該姓名 */
       return TRUE;
     *p=*q;
   }
   return FALSE;
 }

 Status DeleteElemNum(LinkList L,long num)
 { /* 刪除表中學號為num的元素，并返回TRUE；如無此元素，則返回FALSE */
   LinkList p,q;
   if(FindFromNum(L,num,&p,&q)) /* 找到此結點,且q指向其,p指向其前驅 */
   {
     p->next=q->next;
     free(q);
     return TRUE;
   }
   return FALSE;
 }

 Status DeleteElemName(LinkList L,char name[])
 { /* 刪除表中姓名為name的元素，并返回TRUE；如無此元素，則返回FALSE */
   LinkList p,q;
   if(FindFromName(L,name,&p,&q)) /* 找到此結點,且q指向其,p指向其前驅 */
   {
     p->next=q->next;
     free(q);
     return TRUE;
   }
   return FALSE;
 }

 void Modify(ElemType *e)
 { /* 修改結點內容 */
   char s[80];
   Print(*e); /* 顯示原內容 */
   printf("請輸入待修改項的內容，不修改的項按回車鍵保持原值:\n");
   printf("請輸入姓名(<=%d個字符): ",NAMELEN);
   gets(s);
   if(strlen(s))
     strcpy(e->name,s);
   printf("請輸入學號: ");
   gets(s);
   if(strlen(s))
     e->num=atol(s);
   printf("請輸入性別(m:男 f:女): ");
   gets(s);
   if(strlen(s))
     e->sex=s[0];
   printf("請輸入年齡: ");
   gets(s);
   if(strlen(s))
     e->age=atoi(s);
   printf("請輸入班級(<=%d個字符): ",CLASSLEN);
   gets(s);
   if(strlen(s))
     strcpy(e->Class,s);
   printf("請輸入健康狀況(0:%s 1:%s 2:%s):",sta[0],sta[1],sta[2]);
   gets(s);
   if(strlen(s))
     e->health=atoi(s); /* 修改完畢 */
 }

 #define N 4 /* student記錄的個數 */
 void main()
 {
   struct stud student[N]={{"王小林",790631,'m',18,"計91",0},
                           {"陳紅",790632,'f',20,"計91",1},
                           {"劉建平",790633,'m',21,"計91",0},
                           {"張立立",790634,'m',17,"計91",2}}; /* 表的初始記錄 */
   int i,j,flag=1;
   long num;
   char filename[13],name[NAMELEN+1];
   ElemType e;
   LinkList T,p,q;
   InitList(&T); /* 初始化鏈表 */
   while(flag)
   {
     printf("1:將結構體數組student中的記錄按學號非降序插入鏈表\n");
     printf("2:將文件中的記錄按學號非降序插入鏈表\n");
     printf("3:鍵盤輸入新記錄，并將其按學號非降序插入鏈表\n");
     printf("4:刪除鏈表中第一個有給定學號的記錄\n");
     printf("5:刪除鏈表中第一個有給定姓名的記錄\n");
     printf("6:修改鏈表中第一個有給定學號的記錄\n");
     printf("7:修改鏈表中第一個有給定姓名的記錄\n");
     printf("8:查找鏈表中第一個有給定學號的記錄\n");
     printf("9:查找鏈表中第一個有給定姓名的記錄\n");
     printf("10:顯示所有記錄 11:將鏈表中的所有記錄存入文件 12:結束\n");
     printf("請選擇操作命令: ");
     scanf("%d",&i);
     switch(i)
     {
       case 1: for(j=0;j<N;j++)
                 InsertAscend(T,student[j]);
               break;
       case 2: printf("請輸入文件名: ");
               scanf("%s",filename);
               if((fp=fopen(filename,"rb"))==NULL)
                 printf("打開文件失敗!\n");
               else
               {
                 while(ReadFromFile(&e))
                   InsertAscend(T,e);
                 fclose(fp);
               }
               break;
       case 3: ReadIn(&e);
               InsertAscend(T,e);
               break;
       case 4: printf("請輸入待刪除記錄的學號: ");
               scanf("%ld",&num);
               if(!DeleteElemNum(T,num))
                 printf("沒有學號為%ld的記錄\n",num);
               break;
       case 5: printf("請輸入待刪除記錄的姓名: ");
               scanf("%s",name);
               if(!DeleteElemName(T,name))
                 printf("沒有姓名為%s的記錄\n",name);
               break;
       case 6: printf("請輸入待修改記錄的學號: ");
               scanf("%ld%*c",&num); /* %*c吃掉回車符 */
               if(!FindFromNum(T,num,&p,&q))
                 printf("沒有學號為%ld的記錄\n",num);
               else
               {
                 Modify(&q->data);
                 if(q->data.num!=num) /* 學號被修改 */
                 {
                   p->next=q->next; /* 把q所指的結點從L中刪除 */
                   InsertAscend(T,q->data); /* 把元素插入L */
                   free(q); /* 刪除q */
                 }
               }
               break;
       case 7: printf("請輸入待修改記錄的姓名: ");
               scanf("%s%*c",name); /* %*c吃掉回車符 */
               if(!FindFromName(T,name,&p,&q))
                 printf("沒有姓名為%s的記錄\n",name);
               else
               {
                 num=q->data.num; /* 學號存入num */
                 Modify(&q->data);
                 if(q->data.num!=num) /* 學號被修改 */
                 {
                   p->next=q->next; /* 把q所指的結點從L中刪除 */
                   InsertAscend(T,q->data); /* 把元素插入L */
                   free(q); /* 刪除q */
                 }
               }
               break;
       case 8: printf("請輸入待查找記錄的學號: ");
               scanf("%ld",&num);
               if(!FindFromNum(T,num,&p,&q))
                 printf("沒有學號為%ld的記錄\n",num);
               else
                 Print(q->data);
               break;
       case 9: printf("請輸入待查找記錄的姓名: ");
               scanf("%s",name);
               if(!FindFromName(T,name,&p,&q))
                 printf("沒有姓名為%s的記錄\n",name);
               else
               Print(q->data);
               break;
       case 10:printf("  姓名    學號 性別 年齡 班級 健康狀況\n");
               ListTraverse(T,Print);
               break;
       case 11:printf("請輸入文件名: ");
               scanf("%s",filename);
               if((fp=fopen(filename,"wb"))==NULL)
                 printf("打開文件失敗!\n");
               else
                 ListTraverse(T,WriteToFile);
               fclose(fp);
               break;
       case 12:flag=0;
     }
   }
 }