src/gtk2_compat.c

   1 /**********************
   2  * Born to disappear. *
   3  **********************/
   4
   5 #include "gliv.h"
   6
   7 #include <unistd.h>             /* access() */
   8 #include <stdlib.h>             /* srandom(), random() */
   9 #include <string.h>             /* strncmp() */
  10 #include <time.h>               /* time() */
  11 #include <unistd.h>             /* getpid() */
  12 #include <stdarg.h>
  13
  14 /*** Random numbers ***/
  15
  16 gint32 g_random_int_range(gint32 begin, gint32 end)
  17 {
  18     static gboolean initialized = FALSE;
  19
  20     if (initialized == FALSE) {
  21         /* First time. */
  22         srandom(getpid() + time(NULL));
  23         initialized = TRUE;
  24     }
  25
  26     return begin + random() % (end - begin);
  27 }
  28
  29 /*** g_build_filename() from glib-2.0 ***/
  30
  31 static GString *g_string_append_len(GString * string,
  32                                     const gchar * val, gssize len)
  33 {
  34     gchar *str;
  35
  36     str = g_strndup(val, len);
  37     string = g_string_append(string, str);
  38     g_free(str);
  39
  40     return string;
  41 }
  42
  43 static gchar *glib2_string_free(GString * string, gboolean free_segment)
  44 {
  45     gchar *res;
  46
  47     res = free_segment ? NULL : string->str;
  48
  49     g_string_free(string, free_segment);
  50     return res;
  51 }
  52
  53 /* From glib-2.0.6 */
  54 static gchar *g_build_pathv(const gchar * separator,
  55                             const gchar * first_element, va_list args)
  56 {
  57     GString *result;
  58     gint separator_len = strlen(separator);
  59     gboolean is_first = TRUE;
  60     gboolean have_leading = FALSE;
  61     const gchar *single_element = NULL;
  62     const gchar *next_element;
  63     const gchar *last_trailing = NULL;
  64
  65     result = g_string_new(NULL);
  66
  67     next_element = first_element;
  68
  69     while (TRUE) {
  70         const gchar *element;
  71         const gchar *start;
  72         const gchar *end;
  73
  74         if (next_element) {
  75             element = next_element;
  76             next_element = va_arg(args, gchar *);
  77         } else
  78             break;
  79
  80         /* Ignore empty elements */
  81         if (!*element)
  82             continue;
  83
  84         start = element;
  85
  86         if (separator_len) {
  87             while (start && strncmp(start, separator, separator_len) == 0)
  88                 start += separator_len;
  89         }
  90
  91         end = start + strlen(start);
  92
  93         if (separator_len) {
  94             while (end >= start + separator_len &&
  95                    strncmp(end - separator_len, separator, separator_len) == 0)
  96                 end -= separator_len;
  97
  98             last_trailing = end;
  99             while (last_trailing >= element + separator_len &&
 100                    strncmp(last_trailing - separator_len, separator,
 101                            separator_len) == 0)
 102                 last_trailing -= separator_len;
 103
 104             if (!have_leading) {
 105                 /* If the leading and trailing separator strings are in the
 106                  * same element and overlap, the result is exactly that element
 107                  */
 108                 if (last_trailing <= start)
 109                     single_element = element;
 110
 111                 g_string_append_len(result, element, start - element);
 112                 have_leading = TRUE;
 113             } else
 114                 single_element = NULL;
 115         }
 116
 117         if (end == start)
 118             continue;
 119
 120         if (!is_first)
 121             g_string_append(result, separator);
 122
 123         g_string_append_len(result, start, end - start);
 124         is_first = FALSE;
 125     }
 126
 127     if (single_element) {
 128         glib2_string_free(result, TRUE);
 129         return g_strdup(single_element);
 130     } else {
 131         if (last_trailing)
 132             g_string_append(result, last_trailing);
 133
 134         return glib2_string_free(result, FALSE);
 135     }
 136 }
 137
 138 gchar *glib2_build_filename(const gchar * first_element, ...)
 139 {
 140     gchar *str;
 141     va_list args;
 142
 143     va_start(args, first_element);
 144     str = g_build_pathv("/", first_element, args);
 145     va_end(args);
 146
 147     return str;
 148 }
 149
 150 /*** g_list_delete_link() ***/
 151
 152 GList *g_list_delete_link(GList * list, GList * link)
 153 {
 154     list = g_list_remove_link(list, link);
 155     g_list_free_1(link);
 156
 157     return list;
 158 }
 159
 160
 161 /*** g_file_test() ***/
 162
 163 gboolean g_file_test(const gchar * filename, gint test)
 164 {
 165     /* gtk2_compat.h:#define G_FILE_TEST_EXISTS R_OK */
 166
 167     return !access(filename, test);
 168 }
 169
 170 /*** Pango ***/
 171
 172 void gtk_widget_modify_font(GtkWidget * widget, PangoFontDescription * unused)
 173 {
 174     GtkStyle *style;
 175
 176     style = gtk_widget_get_style(widget);
 177     style = gtk_style_copy(style);
 178     style->font = gdk_font_load(FONT);
 179     gtk_widget_set_style(widget, style);
 180 }
 181
 182 /*** GtkWindow ***/
 183
 184 void gtk_window_resize(GtkWindow * window, gint width, gint height)
 185 {
 186     gtk_window_set_default_size(window, width, height);
 187     gdk_window_resize(GTK_WIDGET(window)->window, width, height);
 188 }
 189
 190 /*** GtkColorSelection ***/
 191
 192 void gtk_color_selection_get_current_color(GtkColorSelection * colorsel,
 193                                            GdkColor * color)
 194 {
 195     gdouble col[4];
 196
 197     gtk_color_selection_get_color(colorsel, col);
 198
 199     color->red = (gushort) (col[0] * 65535.0);
 200     color->green = (gushort) (col[1] * 65535.0);
 201     color->blue = (gushort) (col[2] * 65535.0);
 202 }
 203
 204 void gtk_color_selection_set_current_color(GtkColorSelection * colorsel,
 205                                            GdkColor * color)
 206 {
 207     gdouble col[4];
 208
 209     col[0] = color->red / 65535.0;
 210     col[1] = color->green / 65535.0;
 211     col[2] = color->blue / 65535.0;
 212
 213     gtk_color_selection_set_color(colorsel, col);
 214 }
 215
 216 /*** GtkFileSelection ***/
 217
 218 void gtk_file_selection_set_select_multiple(GtkFileSelection * filesel,
 219                                             gboolean select_multiple)
 220 {
 221     GtkSelectionMode mode;
 222
 223     mode = (select_multiple) ? GTK_SELECTION_EXTENDED : GTK_SELECTION_SINGLE;
 224     gtk_clist_set_selection_mode(GTK_CLIST(filesel->file_list), mode);
 225 }
 226
 227 gchar **gtk_file_selection_get_selections(GtkFileSelection * filesel)
 228 {
 229     gint count = 0;
 230     GList *node;
 231     gchar **array, **ptr;
 232     gchar *dirname, *buf;
 233
 234     /* Count them. */
 235     node = GTK_CLIST(filesel->file_list)->selection;
 236     while (node != NULL) {
 237         count++;
 238         node = node->next;
 239     }
 240
 241     /* They are all in the same directory. */
 242     dirname = g_path_get_dirname(gtk_file_selection_get_filename(filesel));
 243
 244     /* Put them in an array. */
 245     array = ptr = g_new(gchar *, count + 1);
 246     node = GTK_CLIST(filesel->file_list)->selection;
 247
 248     while (node != NULL) {
 249         gtk_clist_get_text(GTK_CLIST(filesel->file_list),
 250                            GPOINTER_TO_INT(node->data), 0, &buf);
 251
 252         *ptr = fast_build_filename(dirname, buf);
 253         ptr++;
 254         node = node->next;
 255     }
 256
 257     g_free(dirname);
 258
 259     array[count] = NULL;
 260     return array;
 261 }
 262
 263 /*** GtkAdjustment ***/
 264
 265 gdouble gtk_adjustment_get_value(GtkAdjustment * adjustment)
 266 {
 267     return adjustment->value;
 268 }
 269
 270 /*** GtkRange ***/
 271
 272 gdouble gtk_range_get_value(GtkRange * range)
 273 {
 274     return gtk_adjustment_get_value(gtk_range_get_adjustment(range));
 275 }