// bo9-5.cpp 動態查找表(雙鏈鍵樹)的基本操作
 Status InitDSTable(DLTree &DT)
 { // 操作結果: 構造一個空的雙鏈鍵樹DT
   DT=NULL;
   return OK;
 }

 void DestroyDSTable(DLTree &DT)
 { // 初始條件: 雙鏈鍵樹DT存在。操作結果: 銷毀雙鏈鍵樹DT
   if(DT) // 非空樹
   {
     if(DT->kind==BRANCH&&DT->first) // *DT是分支結點且有孩子
       DestroyDSTable(DT->first); // 銷毀孩子子樹
     if(DT->next) // 有兄弟
       DestroyDSTable(DT->next); // 銷毀兄弟子樹
     free(DT); // 釋放根結點
     DT=NULL; // 空指針賦0
   }
 }

 Record *SearchDLTree(DLTree T,KeysType K)
 { // 在非空雙鏈鍵樹T中查找關鍵字等于K的記錄，若存在，
   // 則返回指向該記錄的指針，否則返回空指針。算法9.15，有改動
   DLTree p;
   int i;
   if(T)
   {
     p=T; // 初始化
     i=0;
     while(p&&i<K.num)
     {
       while(p&&p->symbol!=K.ch[i]) // 查找關鍵字的第i位
         p=p->next;
       if(p&&i<K.num) // 準備查找下一位
         p=p->first;
       ++i;
     } // 查找結束
     if(!p) // 查找不成功
       return NULL;
     else // 查找成功
       return p->infoptr;
   }
   else
     return NULL; // 樹空
 }

 void InsertDSTable(DLTree &DT,Record *r)
 { // 初始條件: 雙鏈鍵樹DT存在，r為待插入的數據元素的指針
   // 操作結果: 若DT中不存在其關鍵字等于(*r).key.ch的數據元素，
   //           則按關鍵字順序插r到DT中
   DLTree p=NULL,q,ap;
   int i=0;
   KeysType K=r->key;
   if(!DT&&K.num) // 空樹且關鍵字符串非空
   {
     DT=ap=(DLTree)malloc(sizeof(DLTNode));
     for(;i<K.num;i++) // 插入分支結點
     {
       if(p)
         p->first=ap;
       ap->next=NULL;
       ap->symbol=K.ch[i];
       ap->kind=BRANCH;
       p=ap;
       ap=(DLTree)malloc(sizeof(DLTNode));
     }
     p->first=ap; // 插入葉子結點
     ap->next=NULL;
     ap->symbol=Nil;
     ap->kind=LEAF;
     ap->infoptr=r;
   }
   else // 非空樹
   {
     p=DT; // 指向根結點
     while(p&&i<K.num)
     {
       while(p&&p->symbol<K.ch[i]) // 沿兄弟結點查找
       {
         q=p;
         p=p->next;
       }
       if(p&&p->symbol==K.ch[i]) // 找到與K.ch[i]相符的結點
       {
         q=p;
         p=p->first; // p指向將與K.ch[i+1]比較的結點
         ++i;
       }
       else // 沒找到,插入關鍵字
       {
         ap=(DLTree)malloc(sizeof(DLTNode));
         if(q->first==p)
           q->first=ap; // 在長子的位置插入
         else // q->next==p
           q->next=ap; // 在兄弟的位置插入
         ap->next=p;
         ap->symbol=K.ch[i];
         ap->kind=BRANCH;
         p=ap;
         ap=(DLTree)malloc(sizeof(DLTNode));
         i++;
         for(;i<K.num;i++) // 插入分支結點
         {
           p->first=ap;
           ap->next=NULL;
           ap->symbol=K.ch[i];
           ap->kind=BRANCH;
           p=ap;
           ap=(DLTree)malloc(sizeof(DLTNode));
         }
         p->first=ap; // 插入葉子結點
         ap->next=NULL;
         ap->symbol=Nil;
         ap->kind=LEAF;
         ap->infoptr=r;
       }
     }
   }
 }

 struct SElemType // 定義棧元素類型
 {
   char ch;
   DLTree p;
 };
 #include"c3-1.h"
 #include"bo3-1.cpp"
 void TraverseDSTable(DLTree DT,void(*Vi)(Record))
 { // 初始條件: 雙鏈鍵樹DT存在，Vi是對結點操作的應用函數，
   //           ViR是對記錄操作的應用函數
   // 操作結果: 按關鍵字的順序輸出關鍵字及其對應的記錄
   SqStack s;
   SElemType e;
   DLTree p;
   int i=0,n=8;
   if(DT)
   {
     InitStack(s);
     e.p=DT;
     e.ch=DT->symbol;
     Push(s,e);
     p=DT->first;
     while(p->kind==BRANCH) // 分支結點
     {
       e.p=p;
       e.ch=p->symbol;
       Push(s,e);
       p=p->first;
     }
     e.p=p;
     e.ch=p->symbol;
     Push(s,e);
     Vi(*(p->infoptr));
     i++;
     while(!StackEmpty(s))
     {
       Pop(s,e);
       p=e.p;
       if(p->next) // 有兄弟結點
       {
         p=p->next;
         while(p->kind==BRANCH) // 分支結點
         {
           e.p=p;
           e.ch=p->symbol;
           Push(s,e);
           p=p->first;
         }
         e.p=p;
         e.ch=p->symbol;
         Push(s,e);
         Vi(*(p->infoptr));
         i++;
         if(i%n==0)
           printf("\n"); // 輸出n個元素后換行
       }
     }
   }
 }