1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
|
/*
* glib-ext.h -- Map/GList extensions and utility functions for GLIB
*
* by Michael Petch <mpetch@gnubg.org>, 2014.
*
* This program is free software; you can redistribute it and/or modify
* it under the terms of version 3 or later of the GNU General Public License as
* published by the Free Software Foundation.
*
* This program is distributed in the hope that it will be useful,
* but WITHOUT ANY WARRANTY; without even the implied warranty of
* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
* GNU General Public License for more details.
*
* You should have received a copy of the GNU General Public License
* along with this program; if not, write to the Free Software
* Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA
*
* $Id: glib-ext.h,v 1.11 2015/07/31 23:40:23 mdpetch Exp $
*/
#ifndef GLIB_EXT_H
#define GLIB_EXT_H
#include <stdio.h>
#include <glib.h>
#include <glib-object.h>
#include "gtklocdefs.h"
#if ! GLIB_CHECK_VERSION(2,14,0)
/* This code has been backported from GLIB 2.16
*
* Copyright (C) 1995-1997 Peter Mattis, Spencer Kimball and Josh MacDonald
*
* gthread.c: MT safety related functions
* Copyright 1998 Sebastian Wilhelmi; University of Karlsruhe
* Owen Taylor
*/
/* initialize-once guards, keyed by value_location */
G_INLINE_FUNC gboolean g_once_init_enter(volatile gsize * value_location);
gboolean g_once_init_enter_impl(volatile gsize * value_location);
void g_once_init_leave(volatile gsize * value_location, gsize initialization_value);
#endif
#define GLIBEXT_MERGE(a,b) a##b
#define GLIBEXT_LABEL_(a,b) GLIBEXT_MERGE(a, b)
#if ! GLIB_CHECK_VERSION(2,28,0)
extern void g_list_free_full(GList * list, GDestroyNotify free_func);
#endif
extern FILE *gnubg_g_fopen(const gchar * filename, const gchar * mode);
typedef GList GMap;
typedef GList GMapEntry;
extern void glib_ext_init(void);
extern GType g_list_boxed_get_type(void);
extern GType g_map_boxed_get_type(void);
extern GType g_mapentry_boxed_get_type(void);
extern void g_value_unsetfree(GValue * gv);
extern void g_value_print(GValue * gv, int depth);
extern GMapEntry *str2gv_map_has_key(GMap * map, GString * key);
extern GValue *str2gv_map_get_key_value(GMap * map, gchar * key, GValue * defaultgv);
extern void g_list_gv_boxed_free(GList * list);
extern void g_list_gv_free_full(gpointer data);
extern GList *create_str2int_tuple(char *str, int value);
extern GList *create_str2gvalue_tuple(char *str, GValue * gv);
extern GList *create_str2double_tuple(char *str, double value);
extern void free_strmap_tuple(GList * tuple);
extern void g_value_list_tostring(GString * str, GList * list, int depth);
extern void g_value_tostring(GString * str, GValue * gv, int depth);
#define G_TYPE_BOXED_GLIST_GV (g_list_boxed_get_type ())
#define G_VALUE_HOLDS_BOXED_GLIST_GV(value) (G_TYPE_CHECK_VALUE_TYPE ((value), G_TYPE_BOXED_GLIST_GV))
#define G_TYPE_BOXED_MAP_GV (g_map_boxed_get_type ())
#define G_VALUE_HOLDS_BOXED_MAP_GV(value) (G_TYPE_CHECK_VALUE_TYPE ((value), G_TYPE_BOXED_MAP_GV))
#define G_TYPE_BOXED_MAPENTRY_GV (g_mapentry_boxed_get_type ())
#define G_VALUE_HOLDS_BOXED_MAPENTRY_GV(value) (G_TYPE_CHECK_VALUE_TYPE ((value), G_TYPE_BOXED_MAPENTRY_GV))
#define G_VALUE_HOLDS_GSTRING(gvalue) G_TYPE_CHECK_VALUE_TYPE ((gvalue), G_TYPE_GSTRING)
#define g_value_get_gstring_gchar(gvalue) ((GString *)g_value_get_boxed(gvalue))->str
#define g_value_get_gstring(gvalue) ((GString *)g_value_get_boxed(gvalue))
#define GLIBEXT_DEFINE_BOXED_TYPE(TypeName, type_name, copy_func, free_func) \
GType \
type_name##_get_type (void) \
{ \
static volatile gsize g_define_type_id__volatile = 0; \
if (g_once_init_enter (&g_define_type_id__volatile)) { \
GType g_define_type_id = \
g_boxed_type_register_static (g_intern_static_string (#TypeName), \
(GBoxedCopyFunc) copy_func, \
(GBoxedFreeFunc) free_func); \
g_once_init_leave (&g_define_type_id__volatile, g_define_type_id); \
} \
return g_define_type_id__volatile; \
}
#define GVALUE_CREATE(typeval,typename,value,gvobject) \
GValue * gvobject = (GValue *)g_malloc0(sizeof(GValue)); \
g_value_init(gvobject, typeval); \
g_value_set_##typename(gvobject, value);
#define STR2GV_MAPENTRY_CREATE(str,value,typeval,typename,gvmap) \
GString *GLIBEXT_LABEL_(tmpStr,__LINE__) = g_string_new(str); \
GVALUE_CREATE(typeval, typename, value, gvmap##_value); \
GVALUE_CREATE(G_TYPE_GSTRING, boxed, \
GLIBEXT_LABEL_(tmpStr,__LINE__), gvmap##_string); \
GMap *GLIBEXT_LABEL_(tmpMap,__LINE__) = \
g_list_prepend(g_list_prepend(NULL, gvmap##_value), \
gvmap##_string); \
GVALUE_CREATE(G_TYPE_BOXED_MAPENTRY_GV, boxed, GLIBEXT_LABEL_(tmpMap,__LINE__), gvmap); \
g_string_free (GLIBEXT_LABEL_(tmpStr,__LINE__), TRUE); \
g_list_free(GLIBEXT_LABEL_(tmpMap,__LINE__));
#define STR2GV_MAP_ADD_ENTRY(map,mapentry,outmap) \
GMapEntry *GLIBEXT_LABEL_(tmpMap,__LINE__) = str2gv_map_has_key(map, g_value_get_gstring(g_list_nth_data(mapentry, 0))); \
if (GLIBEXT_LABEL_(tmpMap,__LINE__)) { \
/* If key exists delete option */ \
map = g_list_remove_link (map, GLIBEXT_LABEL_(tmpMap,__LINE__)); \
g_list_gv_boxed_free(GLIBEXT_LABEL_(tmpMap,__LINE__)); \
} \
/* Add the entry */ \
GVALUE_CREATE(G_TYPE_BOXED_MAPENTRY_GV, boxed, mapentry, gvptr); \
g_list_free(mapentry);\
outmap = g_list_prepend(map, gvptr); \
#endif
|
