Run clang-format.shusers/simark/clang-format

Change-Id: Ia948cc26d534b0dd02702244d52434b1a2093968

1 files changed, 92 insertions, 83 deletions

diff --git a/gdb/guile/guile-internal.h b/gdb/guile/guile-internal.h
index 42ecb3c..5200ce9 100644
--- a/gdb/guile/guile-internal.h
+++ b/gdb/guile/guile-internal.h
@@ -23,7 +23,6 @@
 /* See README file in this directory for implementation notes, coding
    conventions, et.al.  */
 
-
 #include "hashtab.h"
 #include "extension-priv.h"
 #include "symtab.h"
@@ -50,7 +49,10 @@ struct scheme_variable
 
 /* End of scheme_variable table mark.  */
 
-#define END_VARIABLES { NULL, SCM_BOOL_F, NULL }
+#define END_VARIABLES      \
+  {                        \
+    NULL, SCM_BOOL_F, NULL \
+  }
 
 /* Although scm_t_subr is meant to hold a function pointer, at least
    in some versions of guile, it is actually a typedef to "void *".
@@ -102,7 +104,10 @@ struct scheme_function
 
 /* End of scheme_function table mark.  */
 
-#define END_FUNCTIONS { NULL, 0, 0, 0, NULL, NULL }
+#define END_FUNCTIONS         \
+  {                           \
+    NULL, 0, 0, 0, NULL, NULL \
+  }
 
 /* Useful for defining a set of constants.  */
 
@@ -112,7 +117,10 @@ struct scheme_integer_constant
   int value;
 };
 
-#define END_INTEGER_CONSTANTS { NULL, 0 }
+#define END_INTEGER_CONSTANTS \
+  {                           \
+    NULL, 0                   \
+  }
 
 /* Pass this instead of 0 to routines like SCM_ASSERT to indicate the value
    is not a function argument.  */
@@ -174,7 +182,7 @@ extern SCM gdbscm_invalid_object_error_symbol;
 extern SCM gdbscm_map_string;
 extern SCM gdbscm_array_string;
 extern SCM gdbscm_string_string;
-
+
 /* scm-utils.c */
 
 extern void gdbscm_define_variables (const scheme_variable *, int is_public);
@@ -210,10 +218,10 @@ extern int gdbscm_is_procedure (SCM proc);
 
 extern char *gdbscm_gc_xstrdup (const char *);
 
-extern const char * const *gdbscm_gc_dup_argv (char **argv);
+extern const char *const *gdbscm_gc_dup_argv (char **argv);
 
 extern int gdbscm_guile_version_is_at_least (int major, int minor, int micro);
-
+
 /* GDB smobs, from scm-gsmob.c */
 
 /* All gdb smobs must contain one of the following as the first member:
@@ -237,8 +245,7 @@ extern int gdbscm_guile_version_is_at_least (int major, int minor, int micro);
    gdb_smob as if it is a subclass.  To that end we use macro GDB_SMOB_HEAD
    to ensure this.  */
 
-#define GDB_SMOB_HEAD \
-  int empty_base_class;
+#define GDB_SMOB_HEAD int empty_base_class;
 
 struct gdb_smob
 {
@@ -290,15 +297,15 @@ extern void gdbscm_init_eqable_gsmob (eqable_gdb_smob *base,
 extern htab_t gdbscm_create_eqable_gsmob_ptr_map (htab_hash hash_fn,
 						  htab_eq eq_fn);
 
-extern eqable_gdb_smob **gdbscm_find_eqable_gsmob_ptr_slot
-  (htab_t htab, eqable_gdb_smob *base);
+extern eqable_gdb_smob **
+gdbscm_find_eqable_gsmob_ptr_slot (htab_t htab, eqable_gdb_smob *base);
 
 extern void gdbscm_fill_eqable_gsmob_ptr_slot (eqable_gdb_smob **slot,
 					       eqable_gdb_smob *base);
 
 extern void gdbscm_clear_eqable_gsmob_ptr_slot (htab_t htab,
 						eqable_gdb_smob *base);
-
+
 /* Exceptions and calling out to Guile.  */
 
 /* scm-exception.c */
@@ -313,8 +320,8 @@ extern SCM gdbscm_exception_args (SCM excp);
 
 extern SCM gdbscm_make_exception_with_stack (SCM key, SCM args, SCM stack);
 
-extern SCM gdbscm_make_error_scm (SCM key, SCM subr, SCM message,
-				  SCM args, SCM data);
+extern SCM gdbscm_make_error_scm (SCM key, SCM subr, SCM message, SCM args,
+				  SCM data);
 
 extern SCM gdbscm_make_error (SCM key, const char *subr, const char *message,
 			      SCM args, SCM data);
@@ -326,39 +333,38 @@ extern SCM gdbscm_make_invalid_object_error (const char *subr, int arg_pos,
 					     SCM bad_value, const char *error);
 
 extern void gdbscm_invalid_object_error (const char *subr, int arg_pos,
-					 SCM bad_value, const char *error)
-   ATTRIBUTE_NORETURN;
+					 SCM bad_value,
+					 const char *error) ATTRIBUTE_NORETURN;
 
 extern SCM gdbscm_make_out_of_range_error (const char *subr, int arg_pos,
 					   SCM bad_value, const char *error);
 
 extern void gdbscm_out_of_range_error (const char *subr, int arg_pos,
-				       SCM bad_value, const char *error)
-   ATTRIBUTE_NORETURN;
+				       SCM bad_value,
+				       const char *error) ATTRIBUTE_NORETURN;
 
 extern SCM gdbscm_make_misc_error (const char *subr, int arg_pos,
 				   SCM bad_value, const char *error);
 
-extern void gdbscm_misc_error (const char *subr, int arg_pos,
-			       SCM bad_value, const char *error)
-   ATTRIBUTE_NORETURN;
+extern void gdbscm_misc_error (const char *subr, int arg_pos, SCM bad_value,
+			       const char *error) ATTRIBUTE_NORETURN;
 
 extern void gdbscm_throw (SCM exception) ATTRIBUTE_NORETURN;
 
 struct gdbscm_gdb_exception;
-extern SCM gdbscm_scm_from_gdb_exception
-  (const gdbscm_gdb_exception &exception);
+extern SCM
+gdbscm_scm_from_gdb_exception (const gdbscm_gdb_exception &exception);
 
-extern void gdbscm_throw_gdb_exception (gdbscm_gdb_exception exception)
-  ATTRIBUTE_NORETURN;
+extern void
+gdbscm_throw_gdb_exception (gdbscm_gdb_exception exception) ATTRIBUTE_NORETURN;
 
-extern void gdbscm_print_exception_with_stack (SCM port, SCM stack,
-					       SCM key, SCM args);
+extern void gdbscm_print_exception_with_stack (SCM port, SCM stack, SCM key,
+					       SCM args);
 
 extern void gdbscm_print_gdb_exception (SCM port, SCM exception);
 
-extern gdb::unique_xmalloc_ptr<char> gdbscm_exception_message_to_string
-    (SCM exception);
+extern gdb::unique_xmalloc_ptr<char>
+gdbscm_exception_message_to_string (SCM exception);
 
 extern excp_matcher_func gdbscm_memory_error_p;
 
@@ -367,12 +373,13 @@ extern excp_matcher_func gdbscm_user_error_p;
 extern SCM gdbscm_make_memory_error (const char *subr, const char *msg,
 				     SCM args);
 
-extern void gdbscm_memory_error (const char *subr, const char *msg, SCM args)
-  ATTRIBUTE_NORETURN;
+extern void gdbscm_memory_error (const char *subr, const char *msg,
+				 SCM args) ATTRIBUTE_NORETURN;
 
 /* scm-safe-call.c */
 
-extern const char *gdbscm_with_guile (const char *(*func) (void *), void *data);
+extern const char *gdbscm_with_guile (const char *(*func) (void *),
+				      void *data);
 
 extern SCM gdbscm_call_guile (SCM (*func) (void *), void *data,
 			      excp_matcher_func *ok_excps);
@@ -389,22 +396,21 @@ extern SCM gdbscm_safe_call_3 (SCM proc, SCM arg0, SCM arg1, SCM arg2,
 			       excp_matcher_func *ok_excps);
 
 extern SCM gdbscm_safe_call_4 (SCM proc, SCM arg0, SCM arg1, SCM arg2,
-			       SCM arg3,
-			       excp_matcher_func *ok_excps);
+			       SCM arg3, excp_matcher_func *ok_excps);
 
 extern SCM gdbscm_safe_apply_1 (SCM proc, SCM arg0, SCM args,
 				excp_matcher_func *ok_excps);
 
 extern SCM gdbscm_unsafe_call_1 (SCM proc, SCM arg0);
 
-extern gdb::unique_xmalloc_ptr<char> gdbscm_safe_eval_string
-  (const char *string, int display_result);
+extern gdb::unique_xmalloc_ptr<char>
+gdbscm_safe_eval_string (const char *string, int display_result);
 
-extern gdb::unique_xmalloc_ptr<char> gdbscm_safe_source_script
-  (const char *filename);
+extern gdb::unique_xmalloc_ptr<char>
+gdbscm_safe_source_script (const char *filename);
 
 extern void gdbscm_enter_repl (void);
-
+
 /* Interface to various GDB objects, in alphabetical order.  */
 
 /* scm-arch.c */
@@ -423,8 +429,9 @@ extern SCM arscm_scm_from_arch (struct gdbarch *gdbarch);
 extern SCM bkscm_scm_from_block (const struct block *block,
 				 struct objfile *objfile);
 
-extern const struct block *bkscm_scm_to_block
-  (SCM block_scm, int arg_pos, const char *func_name, SCM *excp);
+extern const struct block *bkscm_scm_to_block (SCM block_scm, int arg_pos,
+					       const char *func_name,
+					       SCM *excp);
 
 /* scm-cmd.c */
 
@@ -482,14 +489,13 @@ extern int lsscm_is_lazy_string (SCM scm);
 extern SCM lsscm_make_lazy_string (CORE_ADDR address, int length,
 				   const char *encoding, struct type *type);
 
-extern struct value *lsscm_safe_lazy_string_to_value (SCM string,
-						      int arg_pos,
+extern struct value *lsscm_safe_lazy_string_to_value (SCM string, int arg_pos,
 						      const char *func_name,
 						      SCM *except_scmp);
 
-extern void lsscm_val_print_lazy_string
-  (SCM string, struct ui_file *stream,
-   const struct value_print_options *options);
+extern void
+lsscm_val_print_lazy_string (SCM string, struct ui_file *stream,
+			     const struct value_print_options *options);
 
 /* scm-objfile.c */
 
@@ -520,16 +526,17 @@ extern gdb::unique_xmalloc_ptr<char> gdbscm_scm_to_c_string (SCM string);
 extern SCM gdbscm_scm_from_c_string (const char *string);
 
 extern SCM gdbscm_scm_from_printf (const char *format, ...)
-    ATTRIBUTE_PRINTF (1, 2);
+  ATTRIBUTE_PRINTF (1, 2);
 
-extern gdb::unique_xmalloc_ptr<char> gdbscm_scm_to_string
-  (SCM string, size_t *lenp, const char *charset, int strict, SCM *except_scmp);
+extern gdb::unique_xmalloc_ptr<char>
+gdbscm_scm_to_string (SCM string, size_t *lenp, const char *charset,
+		      int strict, SCM *except_scmp);
 
 extern SCM gdbscm_scm_from_string (const char *string, size_t len,
 				   const char *charset, int strict);
 
-extern gdb::unique_xmalloc_ptr<char> gdbscm_scm_to_host_string
-  (SCM string, size_t *lenp, SCM *except);
+extern gdb::unique_xmalloc_ptr<char>
+gdbscm_scm_to_host_string (SCM string, size_t *lenp, SCM *except);
 
 extern SCM gdbscm_scm_from_host_string (const char *string, size_t len);
 
@@ -539,8 +546,9 @@ extern int syscm_is_symbol (SCM scm);
 
 extern SCM syscm_scm_from_symbol (struct symbol *symbol);
 
-extern struct symbol *syscm_get_valid_symbol_arg_unsafe
-  (SCM self, int arg_pos, const char *func_name);
+extern struct symbol *
+syscm_get_valid_symbol_arg_unsafe (SCM self, int arg_pos,
+				   const char *func_name);
 
 /* scm-symtab.c */
 
@@ -574,15 +582,15 @@ extern int vlscm_is_value (SCM scm);
 extern SCM vlscm_scm_from_value (struct value *value);
 extern SCM vlscm_scm_from_value_no_release (struct value *value);
 
-extern struct value *vlscm_convert_typed_value_from_scheme
-  (const char *func_name, int obj_arg_pos, SCM obj,
-   int type_arg_pos, SCM type_scm, struct type *type, SCM *except_scmp,
-   struct gdbarch *gdbarch, const struct language_defn *language);
+extern struct value *vlscm_convert_typed_value_from_scheme (
+  const char *func_name, int obj_arg_pos, SCM obj, int type_arg_pos,
+  SCM type_scm, struct type *type, SCM *except_scmp, struct gdbarch *gdbarch,
+  const struct language_defn *language);
+
+extern struct value *vlscm_convert_value_from_scheme (
+  const char *func_name, int obj_arg_pos, SCM obj, SCM *except_scmp,
+  struct gdbarch *gdbarch, const struct language_defn *language);
 
-extern struct value *vlscm_convert_value_from_scheme
-  (const char *func_name, int obj_arg_pos, SCM obj, SCM *except_scmp,
-   struct gdbarch *gdbarch, const struct language_defn *language);
-
 /* stript_lang methods */
 
 extern objfile_script_sourcer_func gdbscm_source_objfile_script;
@@ -593,23 +601,23 @@ extern objfile_script_executor_func gdbscm_execute_objfile_script;
 
 extern bool gdbscm_auto_load_enabled (const struct extension_language_defn *);
 
-extern void gdbscm_preserve_values
-  (const struct extension_language_defn *,
-   struct objfile *, htab_t copied_types);
+extern void gdbscm_preserve_values (const struct extension_language_defn *,
+				    struct objfile *, htab_t copied_types);
 
-extern enum ext_lang_rc gdbscm_apply_val_pretty_printer
-  (const struct extension_language_defn *,
-   struct value *val,
-   struct ui_file *stream, int recurse,
-   const struct value_print_options *options,
-   const struct language_defn *language);
+extern enum ext_lang_rc
+gdbscm_apply_val_pretty_printer (const struct extension_language_defn *,
+				 struct value *val, struct ui_file *stream,
+				 int recurse,
+				 const struct value_print_options *options,
+				 const struct language_defn *language);
 
 extern int gdbscm_breakpoint_has_cond (const struct extension_language_defn *,
 				       struct breakpoint *b);
 
-extern enum ext_lang_bp_stop gdbscm_breakpoint_cond_says_stop
-  (const struct extension_language_defn *, struct breakpoint *b);
-
+extern enum ext_lang_bp_stop
+gdbscm_breakpoint_cond_says_stop (const struct extension_language_defn *,
+				  struct breakpoint *b);
+
 /* Initializers for each piece of Scheme support, in alphabetical order.  */
 
 extern void gdbscm_initialize_arches (void);
@@ -634,7 +642,6 @@ extern void gdbscm_initialize_symbols (void);
 extern void gdbscm_initialize_symtabs (void);
 extern void gdbscm_initialize_types (void);
 extern void gdbscm_initialize_values (void);
-
 
 /* A complication with the Guile code is that we have two types of
    exceptions to consider.  GDB/C++ exceptions, and Guile/SJLJ
@@ -675,14 +682,16 @@ unpack (const gdb_exception &exc)
 /* Use this after a TRY/CATCH to throw the appropriate Scheme
    exception if a GDB error occurred.  */
 
-#define GDBSCM_HANDLE_GDB_EXCEPTION(exception)		\
-  do {							\
-    if (exception.reason < 0)				\
-      {							\
-	gdbscm_throw_gdb_exception (exception);		\
-	/*NOTREACHED */					\
-      }							\
-  } while (0)
+#define GDBSCM_HANDLE_GDB_EXCEPTION(exception)    \
+  do                                              \
+    {                                             \
+      if (exception.reason < 0)                   \
+	{                                         \
+	  gdbscm_throw_gdb_exception (exception); \
+	  /*NOTREACHED */                         \
+	}                                         \
+    }                                             \
+  while (0)
 
 /* Use this to wrap a callable to throw the appropriate Scheme
    exception if the callable throws a GDB error.  ARGS are forwarded
@@ -695,7 +704,7 @@ unpack (const gdb_exception &exc)
 
 template<typename Function, typename... Args>
 SCM
-gdbscm_wrap (Function &&func, Args &&... args)
+gdbscm_wrap (Function &&func, Args &&...args)
 {
   SCM result = SCM_BOOL_F;
   gdbscm_gdb_exception exc {};