struct        StringsBase     *StringsBase=0L;

/*#define RUN*/
#ifdef RUN

char *StrCatAfterStrStr(ds,s,ss) register char *ds,*s,*ss; {    /*  */
  register   char *p,*dp,*endp; dp=ds;
  if(dp) {
   if(*dp) { do; while(*dp++); *--dp=0; }
   p=s; endp=(char *)StrStr(s,ss); if(!endp) dp=0;
   if(!*ss) endp=0;
   if(endp>p) { do{*dp++=*p++;*dp=0;}while(p<endp);*dp=0;} /* strcpyuntil */
   if(endp) { p=ss; do ;  while(*dp++=*p++); *dp=0; }      /* afterstrstr */
  }
  return dp; /* $VER: StrCatAfterStrStr 0.1 oct03 */
 };
#endif

char *Str(s) char *s; { char *os[256]; sprintf(os,"<%s>",s); return os; }

long test(os,s,ss) char *os,*s,*ss; {
  long el=0; char *ds[256],*p; StrCpy(ds,os);
  printf("%6s%2ld",Str(ds),StrLen(ds));
  p=(char *)StrCatAfterStrStr(ds,s,ss);
  printf("%11s%3ld %7x %8s %3ld%7x%14s%3ld%7x\n",Str(s),StrLen(s),s,
  Str(ss),StrLen(ss),ss,Str(ds),StrLen(ds),p);
  if(!ds) puts("ZERO POINTER as destination");
  return el; /*  */
 }

int main() {                                                      /* MAIN */
  long el=0; char s[1024],as[1024]; el--;
  StringsBase=(struct StringsBase *)OpenLibrary("Strings.library",0);
  puts("Input Len  String   Len  Adr    Search   Len  Adr  Output Len RetAdr");
  StrCpy(as,"StrCpyStr");  StrCpy(s,"test"); el=test("test",as,"Cpy");
  el=test("test",as,"CpyStr"); StrCpy(s,"t"); el=test(s,as,"S");
  el=test("test",as,"Until");el=test("test",as,"not"); el=test("test",as,"");
  el=test("",as,"C"); el=test("","","a");
  el=test("","",""); el=test("",0,""); el=test("",as,"Cpy");
  el=test("",as,"CpyStr"); el=test("",as,"S"); el=test("",as,"Until");
  el=test("",as,"not"); el=test("",as,""); el=test("",as,"C");
  el=test("","","a"); el=test("","",""); el=test(0,0,"");
  if(StringsBase)  CloseLibrary(StringsBase);
  return el;
 }                                                             /* END */
/*
Input Len  String   Len  Adr    Search   Len  Adr  Output Len RetAdr
<test> 4<StrCpyStr>  9  26B890    <Cpy>   3 220167  <testStrCpy> 10 26B47F
<test> 4<StrCpyStr>  9  26B890 <CpyStr>   6 22015B<testStrCpyStr> 13 26B482
   <t> 1<StrCpyStr>  9  26B890      <S>   1 220157          <tS>  2 26B477
<test> 4<StrCpyStr>  9  26B890  <Until>   5 22014C        <test>  4      0
<test> 4<StrCpyStr>  9  26B890    <not>   3 220143        <test>  4      0
<test> 4<StrCpyStr>  9  26B890       <>   0 22013D        <test>  4 26B478
    <> 0<StrCpyStr>  9  26B890      <C>   1 22013A        <StrC>  4 26B479
    <> 0         <>  0  220138      <a>   1 220136            <>  0      0
    <> 0         <>  0  220134       <>   0 220133            <>  0 26B474
    <> 0         <>  0       0       <>   0 220131            <>  0      0
    <> 0<StrCpyStr>  9  26B890    <Cpy>   3 22012C      <StrCpy>  6 26B47B
    <> 0<StrCpyStr>  9  26B890 <CpyStr>   6 220124   <StrCpyStr>  9 26B47E
    <> 0<StrCpyStr>  9  26B890      <S>   1 220121           <S>  1 26B476
    <> 0<StrCpyStr>  9  26B890  <Until>   5 22011A            <>  0      0
    <> 0<StrCpyStr>  9  26B890    <not>   3 220115            <>  0      0
    <> 0<StrCpyStr>  9  26B890       <>   0 220113            <>  0 26B474
    <> 0<StrCpyStr>  9  26B890      <C>   1 220110        <StrC>  4 26B479
    <> 0         <>  0  22010E      <a>   1 22010C            <>  0      0
    <> 0         <>  0  22010A       <>   0 220109            <>  0 26B474
    <> 0         <>  0       0       <>   0 220108            <>  0      0 */