gdb

	PR cli/2563:
	* cli/cli-decode.c (delete_cmd): Add hook-related out parameters.
	(add_cmd): Update.  Install hooks into new command.
	(add_alias_cmd): Update.
gdb/testsuite
	* gdb.base/commands.exp (redefine_hook_test): New proc.
	Call it.

diff --git a/gdb/ChangeLog b/gdb/ChangeLog
index 1b31438ccf4692fd23362868c7c8dad591117c44..68c9fb932450f635390e74ec3431b7547df7eaef 100644 (file)
--- a/gdb/ChangeLog
+++ b/gdb/ChangeLog
@@ -1,3 +1,10 @@
+2008-12-12  Tom Tromey  <tromey@redhat.com>
+
+       PR cli/2563:
+       * cli/cli-decode.c (delete_cmd): Add hook-related out parameters.
+       (add_cmd): Update.  Install hooks into new command.
+       (add_alias_cmd): Update.
+
 2008-12-11  Tom Tromey  <tromey@redhat.com>
 
        * macroexp.c (get_pp_number): Require digit after leading ".".

diff --git a/gdb/cli/cli-decode.c b/gdb/cli/cli-decode.c
index 613b8d738a021f9a5a7d00c15b328314f357a06c..f1ef6807d47b8d5d8d5a63bf11429fd4a276991d 100644 (file)
--- a/gdb/cli/cli-decode.c
+++ b/gdb/cli/cli-decode.c
@@ -38,7 +38,11 @@
 static void undef_cmd_error (char *, char *);
 
 static struct cmd_list_element *delete_cmd (char *name,
-                                           struct cmd_list_element **list);
+                                           struct cmd_list_element **list,
+                                           struct cmd_list_element **prehook,
+                                           struct cmd_list_element **prehookee,
+                                           struct cmd_list_element **posthook,
+                                           struct cmd_list_element **posthookee);
 
 static struct cmd_list_element *find_cmd (char *command,
                                          int len,
@@ -161,9 +165,18 @@ add_cmd (char *name, enum command_class class, void (*fun) (char *, int),
 
   /* Turn each alias of the old command into an alias of the new
      command.  */
-  c->aliases = delete_cmd (name, list);
+  c->aliases = delete_cmd (name, list, &c->hook_pre, &c->hookee_pre,
+                          &c->hook_post, &c->hookee_post);
   for (iter = c->aliases; iter; iter = iter->alias_chain)
     iter->cmd_pointer = c;
+  if (c->hook_pre)
+    c->hook_pre->hookee_pre = c;
+  if (c->hookee_pre)
+    c->hookee_pre->hook_pre = c;
+  if (c->hook_post)
+    c->hook_post->hookee_post = c;
+  if (c->hookee_post)
+    c->hookee_post->hook_post = c;
 
   if (*list == NULL || strcmp ((*list)->name, name) >= 0)
     {
@@ -189,8 +202,6 @@ add_cmd (char *name, enum command_class class, void (*fun) (char *, int),
   c->flags = 0;
   c->replacement = NULL;
   c->pre_show_hook = NULL;
-  c->hook_pre  = NULL;
-  c->hook_post = NULL;
   c->hook_in = 0;
   c->prefixlist = NULL;
   c->prefixname = NULL;
@@ -202,8 +213,6 @@ add_cmd (char *name, enum command_class class, void (*fun) (char *, int),
   c->var_type = var_boolean;
   c->enums = NULL;
   c->user_commands = NULL;
-  c->hookee_pre = NULL;
-  c->hookee_post = NULL;
   c->cmd_pointer = NULL;
   c->alias_chain = NULL;
 
@@ -247,9 +256,13 @@ add_alias_cmd (char *name, char *oldname, enum command_class class,
 
   if (old == 0)
     {
-      struct cmd_list_element *aliases = delete_cmd (name, list);
+      struct cmd_list_element *prehook, *prehookee, *posthook, *posthookee;
+      struct cmd_list_element *aliases = delete_cmd (name, list,
+                                                    &prehook, &prehookee,
+                                                    &posthook, &posthookee);
       /* If this happens, it means a programmer error somewhere.  */
-      gdb_assert (!aliases);
+      gdb_assert (!aliases && !prehook && prehookee
+                 && !posthook && ! posthookee);
       return 0;
     }
 
@@ -628,15 +641,26 @@ add_setshow_zinteger_cmd (char *name, enum command_class class,
 
 /* Remove the command named NAME from the command list.  Return the
    list commands which were aliased to the deleted command.  If the
-   command had no aliases, return NULL.  */
+   command had no aliases, return NULL.  The various *HOOKs are set to
+   the pre- and post-hook commands for the deleted command.  If the
+   command does not have a hook, the corresponding out parameter is
+   set to NULL.  */
 
 static struct cmd_list_element *
-delete_cmd (char *name, struct cmd_list_element **list)
+delete_cmd (char *name, struct cmd_list_element **list,
+           struct cmd_list_element **prehook,
+           struct cmd_list_element **prehookee,
+           struct cmd_list_element **posthook,
+           struct cmd_list_element **posthookee)
 {
   struct cmd_list_element *iter;
   struct cmd_list_element **previous_chain_ptr;
   struct cmd_list_element *aliases = NULL;
 
+  *prehook = NULL;
+  *prehookee = NULL;
+  *posthook = NULL;
+  *posthookee = NULL;
   previous_chain_ptr = list;
 
   for (iter = *previous_chain_ptr; iter; iter = *previous_chain_ptr)
@@ -645,8 +669,12 @@ delete_cmd (char *name, struct cmd_list_element **list)
        {
          if (iter->hookee_pre)
            iter->hookee_pre->hook_pre = 0;
+         *prehook = iter->hook_pre;
+         *prehookee = iter->hookee_pre;
          if (iter->hookee_post)
            iter->hookee_post->hook_post = 0;
+         *posthook = iter->hook_post;
+         *posthookee = iter->hookee_post;
 
          /* Update the link.  */
          *previous_chain_ptr = iter->next;

diff --git a/gdb/testsuite/ChangeLog b/gdb/testsuite/ChangeLog
index 71f97129236c4a6dad5569423acc9b14bf2ab50f..88c5070e9c59db85df85df4112b41d44c083ae44 100644 (file)
--- a/gdb/testsuite/ChangeLog
+++ b/gdb/testsuite/ChangeLog
@@ -1,3 +1,8 @@
+2008-12-12  Tom Tromey  <tromey@redhat.com>
+
+       * gdb.base/commands.exp (redefine_hook_test): New proc.
+       Call it.
+
 2008-12-11  Tom Tromey  <tromey@redhat.com>
 
        * gdb.base/macscp.exp: New regression test.

diff --git a/gdb/testsuite/gdb.base/commands.exp b/gdb/testsuite/gdb.base/commands.exp
index f6be3ea20a2378e92a95c8fe436c8867003ac7a5..f3dd9ac925dba2c3a1565d47af3c07d0e519624e 100644 (file)
--- a/gdb/testsuite/gdb.base/commands.exp
+++ b/gdb/testsuite/gdb.base/commands.exp
@@ -692,6 +692,40 @@ proc if_commands_test {} {
     }
 }
 
+proc redefine_hook_test {} {
+    global gdb_prompt
+
+    gdb_test "define one\nend" \
+      "" \
+      "define one"
+
+    gdb_test "define hook-one\necho hibob\\n\nend" \
+      "" \
+      "define hook-one"
+
+    gdb_test_multiple "define one" "redefine one" {
+       -re "Redefine command .one.. .y or n. $" {
+           send_gdb "y\n"
+           exp_continue
+       }
+
+       -re "End with"  {
+           pass "define one in redefine_hook_test"
+       }
+        default {
+           fail "(timeout or eof) define one in redefine_hook_test"
+       }
+    }
+
+    gdb_test "end" \
+           "" \
+           "enter commands for one redefinition in redefine_hook_test"
+
+    gdb_test "one" \
+           "hibob" \
+           "execute one command in redefine_hook_test"
+}
+
 proc redefine_backtrace_test {} {
     global gdb_prompt
 
@@ -738,5 +772,6 @@ temporary_breakpoint_commands
 stray_arg0_test
 recursive_source_test
 if_commands_test
+redefine_hook_test
 # This one should come last, as it redefines "backtrace".
 redefine_backtrace_test