summaryrefslogtreecommitdiffstats
path: root/examples/hist_purgecmd.c
diff options
context:
space:
mode:
authorDaniel Baumann <daniel.baumann@progress-linux.org>2024-04-27 12:43:23 +0000
committerDaniel Baumann <daniel.baumann@progress-linux.org>2024-04-27 12:43:23 +0000
commitc2e5be2aa0fbd926b07f764ffbc8359d3246342f (patch)
tree3d8907d9f67b8c8d9a407c60f5c09c947ce8a151 /examples/hist_purgecmd.c
parentInitial commit. (diff)
downloadreadline-c2e5be2aa0fbd926b07f764ffbc8359d3246342f.tar.xz
readline-c2e5be2aa0fbd926b07f764ffbc8359d3246342f.zip
Adding upstream version 8.1.upstream/8.1upstream
Signed-off-by: Daniel Baumann <daniel.baumann@progress-linux.org>
Diffstat (limited to 'examples/hist_purgecmd.c')
-rw-r--r--examples/hist_purgecmd.c151
1 files changed, 151 insertions, 0 deletions
diff --git a/examples/hist_purgecmd.c b/examples/hist_purgecmd.c
new file mode 100644
index 0000000..7992d81
--- /dev/null
+++ b/examples/hist_purgecmd.c
@@ -0,0 +1,151 @@
+/* hist_purgecmd -- remove all instances of command or pattern from history
+ file */
+
+/* Copyright (C) 2011 Free Software Foundation, Inc.
+
+ 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))
+
+#define PURGE_REGEXP 0x01
+
+int hist_purgecmd (char *, int);
+
+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;
+}