[Guile-GTK] Use `const'-qualified string arguments when appropriate.

[Ludovic Courtès]

From: Ludovic Courtès <address@hidden>

* gtk-support.c (sgtk_gdk_gc_values_fill,
  gdk_string_to_compound_text_interp): Use `const'-qualified string
  arguments.

* gtk-compat.c (gdk_color_parse_interp): Likewise.

* gtk-support.c (gtk_editable_insert_text_scm): Likewise.

* guile-gtk.c (sgtk_try_missing_type, sgtk_maybe_find_type_info,
  sgtk_scm2enum, sgtk_scm2flags, sgtk_senum2scm, sgtk_type_from_name,
  sgtk_find_object_info, gtk_class_new, sgtk_signal_emit,
  sgtk_register_glue): Likewise.

* guile-gtk.h (sgtk_type_info)[name]: Use `const char *'.
  Update function prototypes.
---
 gdk-support.c |    6 +++---
 gtk-compat.c  |    2 +-
 gtk-support.c |    2 +-
 guile-gtk.c   |   24 ++++++++++++------------
 guile-gtk.h   |   26 +++++++++++++-------------
 5 files changed, 30 insertions(+), 30 deletions(-)

diff --git a/gdk-support.c b/gdk-support.c
index cbedeb8..ef08d2a 100644
--- a/gdk-support.c
+++ b/gdk-support.c
@@ -209,7 +209,7 @@ SCM_KEYWORD (kw_ts_y_origin,        "ts-y-origin");
 /* This is a separate function so it can be shared in the future by
    gtk-gc-get.  */
 GdkGCValuesMask
-sgtk_gdk_gc_values_fill (char *func_name, int argnum,
+sgtk_gdk_gc_values_fill (const char *func_name, int argnum,
                          GdkGCValues *values, SCM rest)
 {
   GdkGCValuesMask mask;
@@ -1835,8 +1835,8 @@ gdk_text_property_to_text_list_interp (GdkAtom encoding, 
gint format, SCM text)
 #undef FUNCNAME
 
 gint
-gdk_string_to_compound_text_interp (char *str, GdkAtom *encoding, gint *format,
-                                    SCM *textp)
+gdk_string_to_compound_text_interp (const char *str, GdkAtom *encoding,
+                                   gint *format, SCM *textp)
 {
   guchar *ctext;
   gint ret, length;
diff --git a/gtk-compat.c b/gtk-compat.c
index 29b0988..f880995 100644
--- a/gtk-compat.c
+++ b/gtk-compat.c
@@ -44,7 +44,7 @@ gtk_menu_popup_interp (GtkMenu *menu,
 }
 
 GdkColor*
-gdk_color_parse_interp (char *spec)
+gdk_color_parse_interp (const char *spec)
 {
   GdkColor color;
   return gdk_color_parse (spec, &color) ? gdk_color_copy (&color) : NULL;
diff --git a/gtk-support.c b/gtk-support.c
index 2d114fc..90c4e3e 100644
--- a/gtk-support.c
+++ b/gtk-support.c
@@ -167,7 +167,7 @@ gtk_style_base_gc (GtkStyle *style, GtkStateType state)
 
 int
 gtk_editable_insert_text_scm (GtkEditable *editable,
-                             gchar       *text,
+                             const gchar *text,
                              int          position)
 {
   gtk_editable_insert_text (editable, text, strlen (text), &position);
diff --git a/guile-gtk.c b/guile-gtk.c
index 78788f5..a8be81e 100644
--- a/guile-gtk.c
+++ b/guile-gtk.c
@@ -387,7 +387,7 @@ sgtk_register_type_infos_gtk (GtkTypeInfo **infos)
    entirely.  */
 
 static GtkType
-sgtk_try_missing_type (char *name)
+sgtk_try_missing_type (const char *name)
 {
   static sgtk_type_info missing[] = {
     {NULL, GTK_TYPE_NONE, NULL}
@@ -398,7 +398,7 @@ sgtk_try_missing_type (char *name)
     if (!strcmp (m->name, name))
       {
        GtkTypeInfo info = { NULL };
-       info.type_name = name;
+       info.type_name = (char *) name;
        return gtk_type_unique (m->type, &info);
       }
 
@@ -439,7 +439,7 @@ sgtk_maybe_find_type_info (GtkType type)
 {
   sgtk_type_info *info;
   type_infos *infos;
-  char *name;
+  const char *name;
   int i;
 
   for (i = 0; i < n_type_info_tab; i++)
@@ -1012,7 +1012,7 @@ sgtk_enum2scm (gint val, sgtk_enum_info *info)
 }
 
 gint
-sgtk_scm2enum (SCM obj, sgtk_enum_info *info, int pos, char *sname)
+sgtk_scm2enum (SCM obj, sgtk_enum_info *info, int pos, const char *sname)
 {
   int rval;
 
@@ -1072,7 +1072,7 @@ sgtk_flags2scm (gint val, sgtk_enum_info *info)
 }
 
 gint
-sgtk_scm2flags (SCM obj, sgtk_enum_info *info, int pos, char *sname)
+sgtk_scm2flags (SCM obj, sgtk_enum_info *info, int pos, const char *sname)
 {
   if (scm_is_pair (obj) || scm_is_null (obj))
     {
@@ -1163,7 +1163,7 @@ sgtk_valid_senum (SCM obj, sgtk_senum_info *info)
 }
 
 SCM
-sgtk_senum2scm (char *val, sgtk_senum_info *info)
+sgtk_senum2scm (const char *val, sgtk_senum_info *info)
 {
   int i;
   for (i = 0; i < info->n_literals; i++)
@@ -1454,7 +1454,7 @@ all_type_infos_find (const char *name)
    we search among the type names we have in all_type_infos and initialize
    the type with the init_func in our sgtk_type_info.  */
 GtkType
-sgtk_type_from_name (char *name)
+sgtk_type_from_name (const char *name)
 {
   GType type = g_type_from_name (name);
   if (type == GTK_TYPE_INVALID)
@@ -2676,7 +2676,7 @@ sgtk_gtk_target_entry_free (GtkTargetEntry* entry)
 /* The SCM_PROC for the exported functions is in gtk-support.c to have
    it be snarfed for sgtk_init_gtk_support. */
 
-sgtk_object_info *sgtk_find_object_info (char *name);
+sgtk_object_info *sgtk_find_object_info (const char *name);
 
 sgtk_object_info *
 sgtk_find_object_info_from_type (GtkType type)
@@ -2690,7 +2690,7 @@ sgtk_find_object_info_from_type (GtkType type)
 }
 
 sgtk_object_info *
-sgtk_find_object_info (char *name)
+sgtk_find_object_info (const char *name)
 {
   GtkType type, parent;
   sgtk_object_info *info;
@@ -2982,7 +2982,7 @@ sgtk_gtk_object_get (SCM scm_obj, SCM argsym)
 /* Creating new object classes */
 
 GtkType
-gtk_class_new (GtkType parent_type, gchar *name)
+gtk_class_new (GtkType parent_type, const gchar *name)
 {
   GTypeInfo *info;
   GTypeQuery parent_query;
@@ -3073,7 +3073,7 @@ gtk_signal_new_generic (const gchar     *name,
 }
 
 SCM
-sgtk_signal_emit (GObject *obj, char *name, SCM scm_params)
+sgtk_signal_emit (GObject *obj, const char *name, SCM scm_params)
 {
   static char func_name[] = "gtk-signal-emit";
   
@@ -3189,7 +3189,7 @@ sgtk_standalone_p ()
 }
 
 void
-sgtk_register_glue (char *name, void (*func)(void))
+sgtk_register_glue (const char *name, void (*func)(void))
 {
   scm_c_register_extension (NULL, name, (void (*)(void *))func, NULL);
 }
diff --git a/guile-gtk.h b/guile-gtk.h
index 89d0d79..d28a668 100644
--- a/guile-gtk.h
+++ b/guile-gtk.h
@@ -25,7 +25,7 @@
 typedef guint32 sgtk_timestamp;
 
 typedef struct _sgtk_type_info {
-  char *name;
+  const char *name;
   GtkType type;
   SCM (*conversion) (SCM);
   GtkType (*init_func) ();
@@ -114,7 +114,7 @@ SCM sgtk_make_cblk (void *p, size_t len);
 void sgtk_register_type_infos (sgtk_type_info **infos);
 void sgtk_register_type_infos_gtk (GtkTypeInfo **infos);
 sgtk_type_info *sgtk_get_type_info (guint type_seqno);
-GtkType sgtk_type_from_name (char *name);
+GtkType sgtk_type_from_name (const char *name);
 
 SCM sgtk_wrap_gtkobj (GObject *obj);
 SCM sgtk_wrap_gtkobj_nocopy (GObject *obj);
@@ -127,14 +127,14 @@ int sgtk_enum_flags_bin_search (SCM key, sgtk_enum_info 
*info, int *rval);
 
 int sgtk_valid_enum (SCM obj, sgtk_enum_info*);
 SCM sgtk_enum2scm (gint val, sgtk_enum_info*);
-gint sgtk_scm2enum (SCM obj, sgtk_enum_info*, int pos, char *sname);
+gint sgtk_scm2enum (SCM obj, sgtk_enum_info*, int pos, const char *sname);
 
 int sgtk_valid_flags (SCM obj, sgtk_enum_info*);
 SCM sgtk_flags2scm (gint val, sgtk_enum_info*);
-gint sgtk_scm2flags (SCM obj, sgtk_enum_info*, int pos, char *sname);
+gint sgtk_scm2flags (SCM obj, sgtk_enum_info*, int pos, const char *sname);
 
 int sgtk_valid_senum (SCM obj, sgtk_senum_info*);
-SCM sgtk_senum2scm (char *val, sgtk_senum_info*);
+SCM sgtk_senum2scm (const char *val, sgtk_senum_info*);
 char *sgtk_scm2senum (SCM obj, sgtk_senum_info*);
 
 SCM sgtk_boxed2scm (gpointer ptr, sgtk_boxed_info*, int copyp);
@@ -232,7 +232,7 @@ void sgtk_scm2ret (GtkArg *a, SCM obj);
 void sgtk_throw_gerror (const char *func_name, GError *gerr);
 
 sgtk_object_info *sgtk_find_object_info_from_type (GtkType type);
-sgtk_object_info *sgtk_find_object_info (char *name);
+sgtk_object_info *sgtk_find_object_info (const char *name);
 
 SCM sgtk_color_conversion (SCM color);
 SCM sgtk_font_conversion (SCM color);
@@ -241,7 +241,7 @@ void sgtk_set_standalone (int flag);
 int sgtk_is_standalone ();
 SCM sgtk_standalone_p ();
 
-void sgtk_register_glue (char *name, void (*func)(void));
+void sgtk_register_glue (const char *name, void (*func)(void));
 #define SGTK_REGISTER_GLUE(func) sgtk_register_glue (#func, func)
 
 void sgtk_init_gdk_support (void);
@@ -339,7 +339,7 @@ char *gdk_wcstombs_interp (GdkWChar src[], int count);
 
 SCM gdk_mbstowcs_interp (const char *src);
 
-GdkGCValuesMask sgtk_gdk_gc_values_fill (char *func_name, int argnum,
+GdkGCValuesMask sgtk_gdk_gc_values_fill (const char *func_name, int argnum,
                                          GdkGCValues *values, SCM rest);
 GdkGC *gdk_gc_new_with_values_interp (GdkWindow *window, SCM rest);
 SCM gdk_gc_get_values_interp (GdkGC *gc);
@@ -347,7 +347,7 @@ SCM gdk_gc_get_values_interp (GdkGC *gc);
 guint32 gdk_get_leader_window_id ();
 
 int gtk_editable_insert_text_scm (GtkEditable *editable,
-                                  gchar *text, int position);
+                                  const gchar *text, int position);
 
 void gdk_draw_text_interp (GdkDrawable *drawable, GdkFont *font, GdkGC *gc,
                           gint x, gint y, SCM text);
@@ -376,14 +376,14 @@ void gtk_menu_popup_interp (GtkMenu *menu,
                            guint32 activate_time);
 
 GdkColor *gdk_color_new (void);
-GdkColor *gdk_color_parse_interp (char *spec);
+GdkColor *gdk_color_parse_interp (const char *spec);
 GdkColor *gtk_style_get_white_interp (GtkStyle *style);
 
 void gtk_list_append_item (GtkList *list, GtkListItem *item);
 void gtk_list_prepend_item (GtkList *list, GtkListItem *item);
 
 gboolean gtk_type_get_info (GtkType type, GtkTypeInfo *info);
-GtkType gtk_class_new (GtkType parent_type, gchar *name);
+GtkType gtk_class_new (GtkType parent_type, const gchar *name);
 guint
 gtk_signal_new_generic (const gchar     *name,
                        GtkSignalRunType signal_flags,
@@ -391,7 +391,7 @@ gtk_signal_new_generic (const gchar     *name,
                        GtkType          return_type,
                        guint            nparams,
                        GtkType         *params);
-SCM sgtk_signal_emit (GObject *obj, char *name, SCM scm_args);
+SCM sgtk_signal_emit (GObject *obj, const char *name, SCM scm_args);
 void gtk_signal_set_class_function_full (GtkType            type,
                                         const gchar       *signal,
                                         GtkSignalFunc      func,
@@ -505,7 +505,7 @@ void gdk_property_change_interp (GdkWindow *window,
 
 SCM gdk_text_property_to_text_list_interp (GdkAtom encoding, gint format,
                                           SCM text);
-gint gdk_string_to_compound_text_interp (char *str, GdkAtom *encoding,
+gint gdk_string_to_compound_text_interp (const char *str, GdkAtom *encoding,
                                          gint *format, SCM *textp);
 SCM gdk_property_get_interp (GdkWindow *window, GdkAtom property, GdkAtom type,
                             gulong offset, gulong length, int pdelete,
-- 
1.5.3.4