// algo12-1.cpp 根據事務文件成批地更改主文件并得到一個新的主文件
 #include"c1.h"
 struct RedType // 主文件記錄類型
 {
   int accounts; // 帳號
   int amount; // 余額
 };
 struct RcdType // 事務文件記錄類型(比主文件記錄類型多了成員code)
 {
   int accounts; // 帳號
   int amount; // 存取的數量(存為+,取為-)
   char code; // 修改要求(I:插入 U:修改 D:刪除)
 };
 #define key accounts
 RedType P(RcdType g)
 { // 把g加工為q的結構返回
   RedType q;
   q.accounts=g.accounts;
   q.amount=g.amount;
   return q;
 }

 void Q(RedType &f,RcdType g)
 { // 將f和g歸并成一個f結構的記錄
   f.amount+=g.amount;
 }

 void MergeFile(FILE *f,FILE *g,FILE *h)
 { // 由按關鍵字遞增有序的非空順序文件f和g歸并得到新文件h，三個文件均已
   // 打開，其中，f和g為只讀文件，文件中各附加一個最大關鍵字記錄，
   // 且g文件中對該記錄的操作為插入。h為只寫文件。算法12.1
   RedType fr,fn;
   RcdType gr;
   int i;
   fread(&fr,sizeof(RedType),1,f);
   fread(&gr,sizeof(RcdType),1,g);
   while(!feof(f)||!feof(g))
   {
     if(fr.key<gr.key)
       i=1;
     else if(gr.code=='D'&&fr.key==gr.key)
       i=2;
     else if(gr.code=='I'&&fr.key>gr.key)
       i=3;
     else if(gr.code=='U'&&fr.key==gr.key)
       i=4;
     else
       i=0;
     switch(i)
     {
       case 1: // 復制“舊”主文件中記錄
               fwrite(&fr,sizeof(RedType),1,h);
               if(!feof(f))
                 fread(&fr,sizeof(RedType),1,f);
               break;
       case 2: // 刪除“舊”主文件中記錄，即不復制
               if(!feof(f))
                 fread(&fr,sizeof(RedType),1,f);
               if(!feof(g))
                 fread(&gr,sizeof(RcdType),1,g);
               break;
       case 3: // 插入
               fn=P(gr); // 函數P把gr加工為h的結構
               fwrite(&fn,sizeof(RedType),1,h);
               if(!feof(g))
                 fread(&gr,sizeof(RcdType),1,g);
               break;
       case 4: // 更改“舊”主文件中記錄
               Q(fr,gr); // 函數Q將fr和gr歸并成一個h結構的記錄
               fwrite(&fr,sizeof(RedType),1,h);
               if(!feof(f))
                 fread(&fr,sizeof(RedType),1,f);
               if(!feof(g))
                 fread(&gr,sizeof(RcdType),1,g);
               break;
       default:exit(ERROR); // 其它均為出錯情況
     }
   }
 }

 void print(RedType t)
 {
   printf("%6d%4d\n",t.accounts,t.amount);
 }

 void printc(RcdType t)
 {
   printf("%6d%6d%8c\n",t.accounts,t.amount,t.code);
 }

 void main()
 {
   RedType c,a[8]={{1,50},{5,78},{12,100},{14,95},{15,360},{18,200},{20,510},{INT_MAX,0}}; // 主文件數據
   RcdType d,b[6]={{8,100,'I'},{12,-25,'U'},{14,38,'U'},{18,-200,'D'},{21,60,'I'},{INT_MAX,0,'U'}}; // 已排序的事務文件數據
   FILE *f,*g,*h;
   int j;
   f=fopen("old","wb"); // 以寫的方式打開主文件old
   fwrite(a,sizeof(RedType),8,f); // 將數組a中的數據寫入文件old
   fclose(f); // 關閉文件old，形成主文件
   f=fopen("change","wb"); // 以寫的方式打開事務文件change
   fwrite(b,sizeof(RcdType),6,f); // 將數組b中的數據寫入文件change
   fclose(f); // 關閉文件change，形成已排序的事務文件
   f=fopen("old","rb"); // 以讀的方式打開主文件old
   printf("主文件內容:\n");
   printf("  帳號 余額\n");
   do
   {
     j=fread(&c,sizeof(RedType),1,f);
     if(j==1)
       print(c); // 輸出r的內容
   }while(j==1);
   rewind(f); // 使f的指針重新返回文件的起始位置，以便重新讀入內存
   g=fopen("change","rb"); // 以讀的方式打開已排序的事務文件change
   printf("已排序的事務文件內容:\n");
   printf("  帳號 存取數量 修改要求\n");
   do
   {
     j=fread(&d,sizeof(RcdType),1,g);
     if(j==1)
       printc(d); // 輸出r的內容
   }while(j==1);
   rewind(g); // 使g的指針重新返回文件的起始位置，以便重新讀入內存
   h=fopen("new","wb"); // 以寫的方式打開新主文件new
   MergeFile(f,g,h); // 生成新主文件
   fclose(f); // 關閉文件old
   fclose(g); // 關閉文件change
   fclose(h); // 關閉文件new
   f=fopen("new","rb"); // 以讀的方式打開新主文件new
   printf("新主文件內容:\n");
   printf("  帳號 余額\n");
   do
   {
     j=fread(&c,sizeof(RedType),1,f);
     if(j==1)
       print(c); // 輸出r的內容
   }while(j==1);
   fclose(f); // 關閉文件new
 }