// bo4-1.cpp 串采用定長順序存儲結構(由c4-1.h定義)的基本操作(14個)
 // SString是數組，故不需引用類型。此基本操作包括算法4.2,4.3,4.5
 Status StrAssign(SString T,char *chars)
 { // 生成一個其值等于chars的串T
   int i;
   if(strlen(chars)>MAXSTRLEN)
     return ERROR;
   else
   {
     T[0]=strlen(chars);
     for(i=1;i<=T[0];i++)
       T[i]=*(chars+i-1);
     return OK;
   }
 }

 Status StrCopy(SString T,SString S)
 { // 由串S復制得串T
   int i;
   for(i=0;i<=S[0];i++)
     T[i]=S[i];
   return OK;
 }

 Status StrEmpty(SString S)
 { // 若S為空串,則返回TRUE,否則返回FALSE
   if(S[0]==0)
     return TRUE;
   else
     return FALSE;
 }

 int StrCompare(SString S,SString T)
 { // 初始條件: 串S和T存在
   // 操作結果: 若S>T,則返回值>0;若S=T,則返回值=0;若S<T,則返回值<0
   int i;
   for(i=1;i<=S[0]&&i<=T[0];++i)
     if(S[i]!=T[i])
       return S[i]-T[i];
   return S[0]-T[0];
 }

 int StrLength(SString S)
 { // 返回串的元素個數
   return S[0];
 }

 Status ClearString(SString S)
 { // 初始條件:串S存在。操作結果:將S清為空串
   S[0]=0;// 令串長為零
   return OK;
 }

 Status Concat(SString T,SString S1,SString S2) // 算法4.2改
 { // 用T返回S1和S2聯接而成的新串。若未截斷，則返回TRUE，否則FALSE
   int i;
   if(S1[0]+S2[0]<=MAXSTRLEN)
   { // 未截斷
     for(i=1;i<=S1[0];i++)
       T[i]=S1[i];
     for(i=1;i<=S2[0];i++)
       T[S1[0]+i]=S2[i];
     T[0]=S1[0]+S2[0];
     return TRUE;
   }
   else
   { // 截斷S2
     for(i=1;i<=S1[0];i++)
       T[i]=S1[i];
     for(i=1;i<=MAXSTRLEN-S1[0];i++)
       T[S1[0]+i]=S2[i];
     T[0]=MAXSTRLEN;
     return FALSE;
   }
 }

 Status SubString(SString Sub,SString S,int pos,int len)
 { // 用Sub返回串S的第pos個字符起長度為len的子串。算法4.3
   int i;
   if(pos<1||pos>S[0]||len<0||len>S[0]-pos+1)
     return ERROR;
   for(i=1;i<=len;i++)
     Sub[i]=S[pos+i-1];
   Sub[0]=len;
   return OK;
 }

 int Index(SString S,SString T,int pos)
 { // 返回子串T在主串S中第pos個字符之后的位置。若不存在,則函數值為0。
   // 其中,T非空,1≤pos≤StrLength(S)。算法4.5
   int i,j;
   if(1<=pos&&pos<=S[0])
   {
     i=pos;
     j=1;
     while(i<=S[0]&&j<=T[0])
       if(S[i]==T[j]) // 繼續比較后繼字符
       {
         ++i;
         ++j;
       }
       else // 指針后退重新開始匹配
       {
	 i=i-j+2;
         j=1;
       }
     if(j>T[0])
       return i-T[0];
     else
       return 0;
   }
   else
     return 0;
 }

 Status StrInsert(SString S,int pos,SString T)
 { // 初始條件: 串S和T存在,1≤pos≤StrLength(S)+1
   // 操作結果: 在串S的第pos個字符之前插入串T。完全插入返回TRUE,部分插入返回FALSE
   int i;
   if(pos<1||pos>S[0]+1)
     return ERROR;
   if(S[0]+T[0]<=MAXSTRLEN)
   { // 完全插入
     for(i=S[0];i>=pos;i--)
       S[i+T[0]]=S[i];
     for(i=pos;i<pos+T[0];i++)
       S[i]=T[i-pos+1];
     S[0]=S[0]+T[0];
     return TRUE;
   }
   else
   { // 部分插入
     for(i=MAXSTRLEN;i<=pos;i--)
       S[i]=S[i-T[0]];
     for(i=pos;i<pos+T[0];i++)
       S[i]=T[i-pos+1];
     S[0]=MAXSTRLEN;
     return FALSE;
   }
 }

 Status StrDelete(SString S,int pos,int len)
 { // 初始條件: 串S存在,1≤pos≤StrLength(S)-len+1
   // 操作結果: 從串S中刪除第pos個字符起長度為len的子串
   int i;
   if(pos<1||pos>S[0]-len+1||len<0)
     return ERROR;
   for(i=pos+len;i<=S[0];i++)
     S[i-len]=S[i];
   S[0]-=len;
   return OK;
 }

 Status Replace(SString S,SString T,SString V)
 { // 初始條件: 串S,T和V存在,T是非空串（此函數與串的存儲結構無關）
   // 操作結果: 用V替換主串S中出現的所有與T相等的不重疊的子串
   int i=1; // 從串S的第一個字符起查找串T
   if(StrEmpty(T)) // T是空串
     return ERROR;
   do
   {
     i=Index(S,T,i); // 結果i為從上一個i之后找到的子串T的位置
     if(i) // 串S中存在串T
     {
       StrDelete(S,i,StrLength(T)); // 刪除該串T
       StrInsert(S,i,V); // 在原串T的位置插入串V
       i+=StrLength(V); // 在插入的串V后面繼續查找串T
     }
   }while(i);
   return OK;
 }

 void DestroyString()
 { // 由于SString是定長類型,無法銷毀
 }

 void StrPrint(SString T)
 { // 輸出字符串T。另加
   int i;
   for(i=1;i<=T[0];i++)
     printf("%c",T[i]);
   printf("\n");
 }