#include "stdio.h"
#include "string.h"
#include "stdlib.h"

#define OK 1
#define ERROR 0
#define TRUE 1
#define FALSE 0

#define MAXSIZE 40 /* 存儲空間初始分配量 */

typedef int Status;		/* Status是函數(shù)的類型,其值是函數(shù)結果狀態(tài)代碼，如OK等 */
typedef char String[MAXSIZE+1]; /* 0號單元存放串的長度 */

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

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

/* 生成一個其值等于chars的串T */
Status StrAssign(String T,char *chars)
{
	int i;
	if(strlen(chars)>MAXSIZE)
		return ERROR;
	else
	{
		T[0]=strlen(chars);
		for(i=1;i<=T[0];i++)
			T[i]=*(chars+i-1);
		return OK;
	}
}

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

/* 初始條件: 串S和T存在 */
/* 操作結果: 若S>T,則返回值>0;若S=T,則返回值=0;若S < T,則返回值< 0 */
int StrCompare(String S,String T)
{
	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];
}

/* 用T返回S1和S2聯(lián)接而成的新串。若未截斷，則返回TRUE，否則FALSE */
Status Concat(String T,String S1,String S2)
{
	int i;
	if(S1[0]+S2[0]<=MAXSIZE)
	{ /* 未截斷 */
		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<=MAXSIZE-S1[0];i++)
			T[S1[0]+i]=S2[i];
		T[0]=MAXSIZE;
		return FALSE;
	}
}

/* 用Sub返回串S的第pos個字符起長度為len的子串。 */
Status SubString(String Sub,String S,int pos,int len)
{
	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;
}

/* 返回子串T在主串S中第pos個字符之后的位置。若不存在,則函數(shù)返回值為0。 */
/* 其中,T非空,1≤pos≤StrLength(S)。 */
int Index(String S, String T, int pos)
{
	int i = pos;	/* i用于主串S中當前位置下標值，若pos不為1，則從pos位置開始匹配 */
	int j = 1;				/* j用于子串T中當前位置下標值 */
	while (i <= S[0] && j <= T[0]) /* 若i小于S的長度并且j小于T的長度時，循環(huán)繼續(xù) */
	{
		if (S[i] == T[j]) 	/* 兩字母相等則繼續(xù) */
   	{
			++i;
     	++j;
   	}
   	else 				/* 指針后退重新開始匹配 */
   	{
     	i = i-j+2;		/* i退回到上次匹配首位的下一位 */
     	j = 1; 			/* j退回到子串T的首位 */
   	}
	}
	if (j > T[0])
		return i-T[0];
	else
		return 0;
}

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

/* 初始條件: 串S存在,1≤pos≤StrLength(S)-len+1 */
/* 操作結果: 從串S中刪除第pos個字符起長度為len的子串 */
Status StrDelete(String S,int pos,int 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;
}

/* 初始條件: 串S,T和V存在,T是非空串（此函數(shù)與串的存儲結構無關） */
/* 操作結果: 用V替換主串S中出現(xiàn)的所有與T相等的不重疊的子串 */
Status Replace(String S,String T,String V)
{
	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后面繼續(xù)查找串T */
		}
	}while(i);
	return OK;
}

int main()
{
  int i, j, opp, pos;
  char s, str;
	String t,s1,s2,sub;
	Status k;

  printf("\n1.StrAssign 生成串 \n2.StrLength 求串長 \n3.StrCompare 串比較 ");
  printf("\n4.Concat 串連接 \n5.SubString 求子串 \n6.Index 求子串位置");
  printf("\n7.StrInsert 子串插入 \n8.StrDelete 子串刪除 \n9.Replace 子串替換");
  printf("\n0.退出 \n請選擇你的操作：\n");
  while(opp != '0')
  {
    scanf("%d",&opp);
    switch(opp)
    {
    case 1:
      k=StrAssign(s1,"nowamagic.net");
      if(!k)
      {
        printf("串長超過MAXSIZE(=%d)\n",MAXSIZE);
        exit(0);
      }
      printf("串s1為：");
      StrPrint(s1);
      printf("\n");
      break;

    case 2:
      printf("串s1長為%d \n",StrLength(s1));
      break;

    case 3:
      k=StrAssign(s2,"google.com");
      if(!k)
      {
        printf("串長超過MAXSIZE(%d)\n",MAXSIZE);
        exit(0);
      }
      printf("串s2為：");
      StrPrint(s2);
      printf("\n");

      i=StrCompare(s1,s2);
      if(i < 0)
        s=' < ';
      else if(i==0)
        s='=';
      else
        s='>';
      printf("串s1%c串s2\n",s);
      break;

    case 4:
      Concat(t,s1,s2);
      StrPrint(t);
      break;

    case 5:
      printf("求串s1的子串,請輸入子串的起始位置: ");
      scanf("%d", &i);
      printf("請輸入子串的長度: ");
      scanf("%d", &j);
      printf("起始位置：%d，子串長度：%d\n", i, j);
      k=SubString(sub,s1,i,j);
      if(k)
      {
        printf("子串sub為: ");
        StrPrint(sub);
      }
      break;

    case 6:
      printf("主串s1為: ");
      StrPrint(s1);
      k=StrAssign(sub,"magic");
      printf("子串sub為: ");
      StrPrint(sub);
      i=Index(s1,sub,1);
      printf("s1的第%d個字母起和sub第一次匹配\n",i);
      break;

    case 7:
      printf("主串s1為: ");
      StrPrint(s1);
      k=StrAssign(sub,"lol");
      printf("子串sub為: ");
      StrPrint(sub);
      printf("請輸入要插入的位置: ");
      scanf("%d", &pos);
      StrInsert(s1,pos,sub);
      StrPrint(s1);
      break;

    case 8:
      printf("從串s1的第pos個字符起,刪除len個字符，請輸入pos: \n");
      scanf("%d", &i);
      printf("再輸入len: \n");
      scanf("%d", &j);
      StrDelete(s1,i,j);
      StrPrint(s1);
      break;

    case 9:
      printf("主串s1為: ");
      StrPrint(s1);
      StrAssign(t,"a");
      printf("串t為：");
      StrPrint(t);
      StrAssign(sub,"aa");
      printf("串sub為：");
      StrPrint(sub);
      printf("用串s2取代串s1中和串t相同的不重疊的串后,串s1為: ");
      Replace(s1,t,sub);
      StrPrint(s1);
      break;

    case 0:
      exit(0);
    }
  }
}