// bo4-1.cpp 串采用定長順序存儲結構(由c4-1.h定義)的基本操作(12個)，
 // 包括算法4.2、4.3、4.5。SString是數組，故不需要引用類型

 #define DestroyString ClearString // DestroyString()與ClearString()作用相同
 #define InitString ClearString // InitString()與ClearString()作用相同
 Status StrAssign(SString T,char* chars)
 { // 生成一個其值等于chars的串T
   int i;
   if(strlen(chars)>MAX_STR_LEN) // chars的長度大于最大串長
     return ERROR;
   else
   { T[0]=strlen(chars); // 0號單元存放串的長度
     for(i=1;i<=T[0];i++) // 從1號單元起復制串的內容
       T[i]=*(chars+i-1);
     return OK;
   }
 }

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

 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)
 { // 返回串S的元素個數
   return S[0];
 }

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

 Status Concat(SString T,SString S1,SString S2) // 算法4.2修改
 { // 用T返回S1和S2連接而成的新串。若未截斷，則返回TRUE；否則返回FALSE
   int i;
   if(S1[0]+S2[0]<=MAX_STR_LEN) // 未截斷
   { 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<=MAX_STR_LEN-S1[0];i++) // 到串長為止
       T[S1[0]+i]=S2[i];
     T[0]=MAX_STR_LEN;
     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) // pos和len的值超出范圍
     return ERROR;
   for(i=1;i<=len;i++)
     Sub[i]=S[pos+i-1];
   Sub[0]=len;
   return OK;
 }

 int Index1(SString S,SString T,int pos)
 { // 返回子串T在主串S中第pos個字符之后的位置。若不存在，則函數值為0。
   // 其中，T非空，1≤pos≤StrLength(S)。算法4.5
   int i,j; // 指示主串S和子串T的當前比較字符
   if(1<=pos&&pos<=S[0]) // pos的范圍合適
   { i=pos; // 從主串S的第pos個字符開始和子串T的第1個字符比較
     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]) // 主串S中存在子串T
       return i-T[0];
     else // 主串S中不存在子串T
       return 0;
   }
   else // pos的范圍不合適
     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) // pos超出范圍
     return ERROR;
   if(S[0]+T[0]<=MAX_STR_LEN) // 完全插入
   { for(i=S[0];i>=pos;i--) // 移動串S中位于pos之后的字符
       S[i+T[0]]=S[i]; // 串S向后移串T的長度，為插入串T準備空間
     for(i=pos;i<pos+T[0];i++) // 在串S中插入串T
       S[i]=T[i-pos+1];
     S[0]+=T[0]; // 更新串S的長度
     return TRUE; // 完全插入的標記
   }
   else // 部分插入
   { for(i=MAX_STR_LEN;i>=pos+T[0];i--) // 移動串S中位于pos之后且移后仍在串內的字符
       S[i]=S[i-T[0]];
     for(i=pos;i<pos+T[0]&&i<=MAX_STR_LEN;i++) // 在串S中插入串T(也可能是部分插入)
       S[i]=T[i-pos+1];
     S[0]=MAX_STR_LEN; // 串S的長度為串的最大長度
     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) // pos和len的值超出范圍
     return ERROR; // 刪除不成功的標記
   for(i=pos+len;i<=S[0];i++) // 對于刪除的子串之后的所有字符
     S[i-len]=S[i]; // 向前移動刪除子串的長度
   S[0]-=len; // 更新串S的長度
   return OK; // 刪除成功的標記
 }
 void StrPrint(SString S)
 { // 輸出字符串S。新增
   int i;
   for(i=1;i<=S[0];i++)
     printf("%c",S[i]);
   printf("\n");
 }