/* algo3-4.c 行編輯程序,實現算法3.2 */
 typedef char SElemType;
 #include"c1.h"
 #include"c3-1.h"
 #include"bo3-1.c"
 FILE *fp;

 Status copy(SElemType c)
 { /* 將字符c送至fp所指的文件中 */
   fputc(c,fp);
   return OK;
 }

 void LineEdit()
 { /* 利用字符棧s，從終端接收一行并送至調用過程的數據區。算法3.2 */
   SqStack s;
   char ch,c;
   InitStack(&s);
   printf("請輸入一個文本文件,^Z結束輸入:\n");
   ch=getchar();
   while(ch!=EOF)
   { /* EOF為^Z鍵，全文結束符 */
     while(ch!=EOF&&ch!='\n')
     {
       switch(ch)
       {
         case '#':Pop(&s,&c);
                  break; /* 僅當棧非空時退棧 */
         case '@':ClearStack(&s);
                  break; /* 重置s為空棧 */
         default :Push(&s,ch); /* 有效字符進棧 */
       }
       ch=getchar(); /* 從終端接收下一個字符 */
     }
     StackTraverse(s,copy); /* 將從棧底到棧頂的棧內字符傳送至文件 */
     ClearStack(&s); /* 重置s為空棧 */
     fputc('\n',fp);
     if(ch!=EOF)
       ch=getchar();
   }
   DestroyStack(&s);
 }

 void main()
 {
   fp=fopen("ED.DAT","w"); /* 在當前目錄下建立ED.DAT文件，用于寫數據， */
   if(fp)                  /* 如已有同名文件則先刪除原文件 */
   {
     LineEdit();
     fclose(fp); /* 關閉fp所指的文件 */
   }
   else
     printf("建立文件失敗!\n");
 }