struct        StringsBase     *StringsBase=0L;
char *ReplaceChrs();

#ifdef RUN
char *ReplaceChrs(s,c,rc) register char *s; register char c; register
    char rc; {
  register char *p=s;
  if(s && (*p) && c) {
   do { if(*p==c) *p=rc; } while(*p++);
           /* (  p--; do { if(*p==c) *p=rc; } while(*++p);
)*/
  }
  return s;
 };                                        /* $VER: ReplaceChrs 0.1 */
*/
#endif

long test(s,c,rc) char *s; char c; char rc; {
  long el=0; char *p;  char bs[256]; sprintf(bs,"<%s>",s);
  printf("%18s %4ld %4c %4x  %4c %4x",bs,(long)strlen(s),c,c,rc,rc);
  p=ReplaceChrs(s,c,rc); sprintf(bs,"<%s>",p);
  printf("%18s %ld \n",bs,(long)strlen(p));
  return el;
 }

main() {                                                       /* MAIN */
  long el=0; char s[1024],as[1024]; el++;
  StringsBase=(struct StringsBase *)OpenLibrary("Strings.library",0);
  puts("   inputstring      len     search   replace   outstring    len");
  strcpy(s,"Di=es ist= der =teststring\n");
  el=test("Ait AtesAtAAig",65,66); el=test("es tstringA",65,70);
  el=test("Di AtstringA",65,0);
  el=test("A",65,80); el=test("A",65,10);
  el=test("",0,80); el=test("",64,80);   el=test("A",65,80);
  el=test("AA",65,80); el=test("AAA",65,80); el=test("AtestAA",65,0);
  el=test("testAtestAA",65,0);  el=test("testAtestAA",0,0);
  el=test("testAtestAA",0,64);
  if(StringsBase) CloseLibrary(StringsBase);
 }                                                              /* END */
/*
   inputstring      len     search   replace   outstring    len
  <Ait AtesAtAAig>   14    A   41     B   42  <Bit BtesBtBBig> 14
     <es tstringA>   11    A   41     F   46     <es tstringF> 11
    <Di AtstringA>   12    A   41          0             <Di > 3
               <A>    1    A   41     P   50               <P> 1
               <A>    1    A   41
    A               <
> 1
                <>    0         0     P   50                <> 0
                <>    0    @   40     P   50                <> 0
               <A>    1    A   41     P   50               <P> 1
              <AA>    2    A   41     P   50              <PP> 2
             <AAA>    3    A   41     P   50             <PPP> 3
         <AtestAA>    7    A   41          0                <> 0
     <testAtestAA>   11    A   41          0            <test> 4
     <testAtestAA>   11         0          0     <testAtestAA> 11
     <testAtestAA>   11         0     @   40     <testAtestAA> 11

*/