/*
 *    HAT.C
 *
 *    Modify the last history entry ^search^replace.  Called from
 *    MAIN.C
 *
 */

extern char *last_history_entry();

hat_replace(buf)
char *buf;
{
   char res[256];
   char *ptr, *hb, *repstr, *srchstr;
   int searchlen, replacelen;

   srchstr = buf + 1;
   for (repstr = srchstr; *repstr && *repstr != '^'; ++repstr);
   if (*repstr) {
      searchlen = repstr - srchstr;
      *repstr = '\0';
      ++repstr;
   }
   replacelen = strlen(repstr);

   for (ptr = hb = last_history_entry(); *ptr; ++ptr) {
      if (strncmp(ptr, srchstr, searchlen) == 0) {
         bmov(hb, res, ptr - hb);         /* first part of history   */
         res[ptr-hb] = '\0';              /* add 0                   */
         strcat(res, repstr);             /* add replace string      */
         strcat(res, ptr+searchlen);      /* add rest of history     */
         strcpy(buf, res);                /* copy                    */
         puts (buf);
         return(1);                       /* done                    */
      }
   }
   puts ("modifier failed");
   *buf = '\0';
   return(0);
}