Gecko [ georgetownmover.com ]

Name	Size	Permission	Date
excallback.c	5.67 KB	-rw-r--r--	2015-07-02 21:16
fileman.c	11.16 KB	-rw-r--r--	2015-07-02 21:16
hist_erasedups.c	2.7 KB	-rw-r--r--	2015-07-02 21:16
hist_purgecmd.c	3.28 KB	-rw-r--r--	2015-07-02 21:16
histexamp.c	2.82 KB	-rw-r--r--	2015-07-02 21:16
manexamp.c	3.22 KB	-rw-r--r--	2015-07-02 21:16
rl-callbacktest.c	1.99 KB	-rw-r--r--	2015-07-02 21:16
rl-fgets.c	10.89 KB	-rw-r--r--	2015-07-02 21:16
rl.c	3.1 KB	-rw-r--r--	2015-07-02 21:16
rlcat.c	3.22 KB	-rw-r--r--	2015-07-02 21:16
rlevent.c	3.22 KB	-rw-r--r--	2015-07-02 21:16
rlptytest.c	6.38 KB	-rw-r--r--	2015-07-02 21:16
rltest.c	2.1 KB	-rw-r--r--	2015-07-02 21:16
rlversion.c	1.26 KB	-rw-r--r--	2015-07-02 21:16

Rename

/* hist_purgecmd -- remove all instances of command or pattern from history
   file */

This file is part of the GNU Readline Library (Readline), a library for
   reading lines of text with interactive input and history editing.

Readline is free software: you can redistribute it and/or modify
   it under the terms of the GNU General Public License as published by
   the Free Software Foundation, either version 3 of the License, or
   (at your option) any later version.

Readline is distributed in the hope that it will be useful,
   but WITHOUT ANY WARRANTY; without even the implied warranty of
   MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
   GNU General Public License for more details.

You should have received a copy of the GNU General Public License
   along with Readline.  If not, see <http://www.gnu.org/licenses/>.
*/
#ifndef READLINE_LIBRARY
#define READLINE_LIBRARY 1
#endif

#include <unistd.h>
#include <stdlib.h>
#include <stdio.h>

#include <regex.h>

#ifdef READLINE_LIBRARY
#  include "history.h"
#else
#  include <readline/history.h>
#endif

#include <string.h>

#define STREQ(a, b) ((a)[0] == (b)[0] && strcmp(a, b) == 0)
#define STREQN(a, b, n) ((n == 0) ? (1) \
                                  : ((a)[0] == (b)[0] && strncmp(a, b, n) == 0))

extern int history_offset;

#define PURGE_REGEXP	0x01

static void
usage()
{
  fprintf (stderr, "hist_purgecmd: usage: hist_purgecmd [-r] [-t] [-f filename] command-spec\n");
  exit (2);
}

int
main (argc, argv)
     int argc;
     char **argv;
{
  char *fn;
  int r, flags;

flags = 0;
  fn = 0;
  while ((r = getopt (argc, argv, "f:rt")) != -1)
    {
      switch (r)
	{
	case 'f':
	  fn = optarg;
	  break;
	case 'r':
	  flags |= PURGE_REGEXP;
	  break;
	case 't':
	  history_write_timestamps = 1;
	  break;
	default:
	  usage ();
	}
    }
  argv += optind;
  argc -= optind;

if (fn == 0)
    fn = getenv ("HISTFILE");
  if (fn == 0)
    {
      fprintf (stderr, "hist_purgecmd: no history file\n");
      usage ();
    }

if ((r = read_history (fn)) != 0)
    {
      fprintf (stderr, "hist_purgecmd: read_history: %s: %s\n", fn, strerror (r));
      exit (1);
    }

for (r = 0; r < argc; r++)
    hist_purgecmd (argv[r], flags);

if ((r = write_history (fn)) != 0)
    {
      fprintf (stderr, "hist_purgecmd: write_history: %s: %s\n", fn, strerror (r));
      exit (1);
    }

exit (0);
}

int
hist_purgecmd (cmd, flags)
     char *cmd;
     int flags;
{
  int r, n, rflags;
  HIST_ENTRY *temp;
  regex_t regex = { 0 };

if (flags & PURGE_REGEXP)
    {
      rflags = REG_EXTENDED|REG_NOSUB;
      if (regcomp (&regex, cmd, rflags))
	{
	  fprintf (stderr, "hist_purgecmd: %s: invalid regular expression\n", cmd);
	  return -1;
	}
    }

r = 0;
  using_history ();
  r = where_history ();
  for (n = 0; n < r; n++)
    {
      temp = history_get (n+history_base);
      if (((flags & PURGE_REGEXP) && (regexec (&regex, temp->line, 0, 0, 0) == 0)) ||
	  ((flags & PURGE_REGEXP) == 0 && STREQ (temp->line, cmd)))
	{
	  remove_history (n);
	  r--;			/* have to get one fewer now */
	  n--;			/* compensate for above increment */
	  history_offset--;	/* moving backwards in history list */
	}
    }
  using_history ();

if (flags & PURGE_REGEXP)
    regfree (&regex);

return r;
}