#include "perf.h"
 #include "builtin.h"
 #include "util/util.h"
+#include "util/strlist.h"
 #include "util/event.h"
 #include "util/debug.h"
 #include "util/parse-options.h"
        int need_dwarf;
        int nr_probe;
        struct probe_point probes[MAX_PROBES];
+       struct strlist *dellist;
 } session;
 
 static bool listing;
        return 0;
 }
 
+static int opt_del_probe_event(const struct option *opt __used,
+                              const char *str, int unset __used)
+{
+       if (str) {
+               if (!session.dellist)
+                       session.dellist = strlist__new(true, NULL);
+               strlist__add(session.dellist, str);
+       }
+       return 0;
+}
+
 #ifndef NO_LIBDWARF
 static int open_default_vmlinux(void)
 {
 static const char * const probe_usage[] = {
        "perf probe [<options>] 'PROBEDEF' ['PROBEDEF' ...]",
        "perf probe [<options>] --add 'PROBEDEF' [--add 'PROBEDEF' ...]",
+       "perf probe [<options>] --del '[GROUP:]EVENT' ...",
        "perf probe --list",
        NULL
 };
        OPT_STRING('k', "vmlinux", &session.vmlinux, "file",
                "vmlinux/module pathname"),
 #endif
-       OPT_BOOLEAN('l', "list", &listing, "list up current probes"),
+       OPT_BOOLEAN('l', "list", &listing, "list up current probe events"),
+       OPT_CALLBACK('d', "del", NULL, "[GROUP:]EVENT", "delete a probe event.",
+               opt_del_probe_event),
        OPT_CALLBACK('a', "add", NULL,
 #ifdef NO_LIBDWARF
                "FUNC[+OFFS|%return] [ARG ...]",
        if (argc > 0)
                parse_probe_event_argv(argc, argv);
 
-       if ((session.nr_probe == 0 && !listing) ||
-           (session.nr_probe != 0 && listing))
+       if ((session.nr_probe == 0 && !session.dellist && !listing))
                usage_with_options(probe_usage, options);
 
        if (listing) {
+               if (session.nr_probe != 0 || session.dellist) {
+                       pr_warning("  Error: Don't use --list with"
+                                  " --add/--del.\n");
+                       usage_with_options(probe_usage, options);
+               }
                show_perf_probe_events();
                return 0;
        }
 
+       if (session.dellist) {
+               del_trace_kprobe_events(session.dellist);
+               strlist__delete(session.dellist);
+               if (session.nr_probe == 0)
+                       return 0;
+       }
+
        if (session.need_dwarf)
 #ifdef NO_LIBDWARF
                die("Debuginfo-analysis is not supported");
 
 }
 
 /* Get current perf-probe event names */
-static struct strlist *get_perf_event_names(int fd)
+static struct strlist *get_perf_event_names(int fd, bool include_group)
 {
        unsigned int i;
        char *group, *event;
+       char buf[128];
        struct strlist *sl, *rawlist;
        struct str_node *ent;
 
        for (i = 0; i < strlist__nr_entries(rawlist); i++) {
                ent = strlist__entry(rawlist, i);
                parse_trace_kprobe_event(ent->s, &group, &event, NULL);
-               strlist__add(sl, event);
+               if (include_group) {
+                       if (e_snprintf(buf, 128, "%s:%s", group, event) < 0)
+                               die("Failed to copy group:event name.");
+                       strlist__add(sl, buf);
+               } else
+                       strlist__add(sl, event);
                free(group);
                free(event);
        }
 {
        int ret;
 
+       pr_debug("Writing event: %s\n", buf);
        ret = write(fd, buf, strlen(buf));
        if (ret <= 0)
-               die("Failed to create event.");
+               die("Failed to write event: %s", strerror(errno));
 }
 
 static void get_new_event_name(char *buf, size_t len, const char *base,
 
        fd = open_kprobe_events(O_RDWR, O_APPEND);
        /* Get current event names */
-       namelist = get_perf_event_names(fd);
+       namelist = get_perf_event_names(fd, false);
 
        for (j = 0; j < nr_probes; j++) {
                pp = probes + j;
        strlist__delete(namelist);
        close(fd);
 }
+
+static void del_trace_kprobe_event(int fd, const char *group,
+                                  const char *event, struct strlist *namelist)
+{
+       char buf[128];
+
+       if (e_snprintf(buf, 128, "%s:%s", group, event) < 0)
+               die("Failed to copy event.");
+       if (!strlist__has_entry(namelist, buf)) {
+               pr_warning("Warning: event \"%s\" is not found.\n", buf);
+               return;
+       }
+       /* Convert from perf-probe event to trace-kprobe event */
+       if (e_snprintf(buf, 128, "-:%s/%s", group, event) < 0)
+               die("Failed to copy event.");
+
+       write_trace_kprobe_event(fd, buf);
+       printf("Remove event: %s:%s\n", group, event);
+}
+
+void del_trace_kprobe_events(struct strlist *dellist)
+{
+       int fd;
+       unsigned int i;
+       const char *group, *event;
+       char *p, *str;
+       struct str_node *ent;
+       struct strlist *namelist;
+
+       fd = open_kprobe_events(O_RDWR, O_APPEND);
+       /* Get current event names */
+       namelist = get_perf_event_names(fd, true);
+
+       for (i = 0; i < strlist__nr_entries(dellist); i++) {
+               ent = strlist__entry(dellist, i);
+               str = strdup(ent->s);
+               if (!str)
+                       die("Failed to copy event.");
+               p = strchr(str, ':');
+               if (p) {
+                       group = str;
+                       *p = '\0';
+                       event = p + 1;
+               } else {
+                       group = PERFPROBE_GROUP;
+                       event = str;
+               }
+               del_trace_kprobe_event(fd, group, event, namelist);
+               free(str);
+       }
+       strlist__delete(namelist);
+       close(fd);
+}
+