列の固定長順序記憶表示


 /* c4-1.h            */
 #define MAXSTRLEN 40 /*     255        (1   ) */
 typedef char SString[MAXSTRLEN+1]; /* 0          */

 
 /* bo4-1.c            ( 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("
"); }

 
 /* main4-1.c   bo4-1.c     */
 #include"c1.h"
 #include"c4-1.h"
 #include"bo4-1.c"
 void main()
 {
   int i,j;
   Status k;
   char s,c[MAXSTRLEN+1];
   SString t,s1,s2;
   printf("    s1: ");
   gets(c);
   k=StrAssign(s1,c);
   if(!k)
   {
     printf("    MAXSTRLEN(=%d)
",MAXSTRLEN); exit(0); } printf(" %d ?%d(1: 0: )
",StrLength(s1),StrEmpty(s1)); StrCopy(s2,s1); printf(" s1 : "); StrPrint(s2); printf(" s2: "); gets(c); k=StrAssign(s2,c); if(!k) { printf(" MAXSTRLEN(%d)
",MAXSTRLEN); exit(0); } i=StrCompare(s1,s2); if(i<0) s='<'; else if(i==0) s='='; else s='>'; printf(" s1%c s2
",s); k=Concat(t,s1,s2); printf(" s1 s2 t : "); StrPrint(t); if(k==FALSE) printf(" t
"); ClearString(s1); printf(" , s1 : "); StrPrint(s1); printf(" %d ?%d(1: 0: )
",StrLength(s1),StrEmpty(s1)); printf(" t , , : "); scanf("%d,%d",&i,&j); k=SubString(s2,t,i,j); if(k) { printf(" s2 : "); StrPrint(s2); } printf(" t pos , len , pos,len: "); scanf("%d,%d",&i,&j); StrDelete(t,i,j); printf(" t : "); StrPrint(t); i=StrLength(s2)/2; StrInsert(s2,i,t); printf(" s2 %d t , s2 :
",i); StrPrint(s2); i=Index(s2,t,1); printf("s2 %d t
",i); SubString(t,s2,1,1); printf(" t :"); StrPrint(t); Concat(s1,t,t); printf(" s1 :"); StrPrint(s1); Replace(s2,t,s1); printf(" s1 s2 t , s2 : "); StrPrint(s2); }