/*-------------------------------------------------------------------
  xspace(string,padchar,padcnt,delim)
   Insert fill characters between words.
   string = source string
   padchar = what char(s) you want between words
   padcnt = how many padcars between words
   cwrdelim = what char currently delimits words (usaully a space)
   td = xspace("this  is a test   to see if this     works"," ",1," ")
   td = xspace("this  is a test   to see if this     works","-",3,"")
   Mark McDonald 2008
  -------------------------------------------------------------------*/
char *xspace(char *x, char *xpad, int xpcnt, char *xdelim){
  char *xret = "";
  char *xarray[];
  int  xwrdcnt;
  int  xlen;
  int  xcnt;
  char *xchars = "";
  char *xtd;
  xlen = strlen(x);
  if(xlen > 0){
    xcnt = 1;
    //--Build string pattern---
    while( xcnt <= xpcnt){
      strcat(xchars,xpad);
      xcnt++;
    }//wend
    if(xdelim == ""){strcpy(xdelim," ");}
    xwrdcnt = strparsex(xarray, x, xdelim);
    xcnt = 0;
    while(xcnt < xwrdcnt-1){
      xtd = strcompose(xarray[xcnt],xchars);
      strcat(xret,xtd);
      xcnt++;
    }//wend
    strcat(xret,xarray[xcnt]);
  }//endif
return(xret);
}//xspace