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
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
201
202
203
204
205
206
207
208
209
210
211
212
213
214
215
216
217
218
219
220
221
222
223
224
225
226
227
228
229
230
231
232
233
234
235
236
237
238
239
240
241
242
243
244
245
246
247
248
249
|
/* valadovamethodmodule.c generated by valac, the Vala compiler
* generated from valadovamethodmodule.vala, do not modify */
/* valadovamethodmodule.vala
*
* Copyright (C) 2007-2009 Jürg Billeter
*
* This library is free software; you can redistribute it and/or
* modify it under the terms of the GNU Lesser General Public
* License as published by the Free Software Foundation; either
* version 2.1 of the License, or (at your option) any later version.
* This library 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
* Lesser General Public License for more details.
* You should have received a copy of the GNU Lesser General Public
* License along with this library; if not, write to the Free Software
* Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA
*
* Author:
* Jürg Billeter <j@bitron.ch>
*/
#include <glib.h>
#include <glib-object.h>
#include <vala.h>
#include <valaccode.h>
#include <stdlib.h>
#include <string.h>
#include <valagee.h>
#define VALA_TYPE_DOVA_BASE_MODULE (vala_dova_base_module_get_type ())
#define VALA_DOVA_BASE_MODULE(obj) (G_TYPE_CHECK_INSTANCE_CAST ((obj), VALA_TYPE_DOVA_BASE_MODULE, ValaDovaBaseModule))
#define VALA_DOVA_BASE_MODULE_CLASS(klass) (G_TYPE_CHECK_CLASS_CAST ((klass), VALA_TYPE_DOVA_BASE_MODULE, ValaDovaBaseModuleClass))
#define VALA_IS_DOVA_BASE_MODULE(obj) (G_TYPE_CHECK_INSTANCE_TYPE ((obj), VALA_TYPE_DOVA_BASE_MODULE))
#define VALA_IS_DOVA_BASE_MODULE_CLASS(klass) (G_TYPE_CHECK_CLASS_TYPE ((klass), VALA_TYPE_DOVA_BASE_MODULE))
#define VALA_DOVA_BASE_MODULE_GET_CLASS(obj) (G_TYPE_INSTANCE_GET_CLASS ((obj), VALA_TYPE_DOVA_BASE_MODULE, ValaDovaBaseModuleClass))
typedef struct _ValaDovaBaseModule ValaDovaBaseModule;
typedef struct _ValaDovaBaseModuleClass ValaDovaBaseModuleClass;
typedef struct _ValaDovaBaseModulePrivate ValaDovaBaseModulePrivate;
#define VALA_DOVA_BASE_MODULE_TYPE_EMIT_CONTEXT (vala_dova_base_module_emit_context_get_type ())
#define VALA_DOVA_BASE_MODULE_EMIT_CONTEXT(obj) (G_TYPE_CHECK_INSTANCE_CAST ((obj), VALA_DOVA_BASE_MODULE_TYPE_EMIT_CONTEXT, ValaDovaBaseModuleEmitContext))
#define VALA_DOVA_BASE_MODULE_EMIT_CONTEXT_CLASS(klass) (G_TYPE_CHECK_CLASS_CAST ((klass), VALA_DOVA_BASE_MODULE_TYPE_EMIT_CONTEXT, ValaDovaBaseModuleEmitContextClass))
#define VALA_DOVA_BASE_MODULE_IS_EMIT_CONTEXT(obj) (G_TYPE_CHECK_INSTANCE_TYPE ((obj), VALA_DOVA_BASE_MODULE_TYPE_EMIT_CONTEXT))
#define VALA_DOVA_BASE_MODULE_IS_EMIT_CONTEXT_CLASS(klass) (G_TYPE_CHECK_CLASS_TYPE ((klass), VALA_DOVA_BASE_MODULE_TYPE_EMIT_CONTEXT))
#define VALA_DOVA_BASE_MODULE_EMIT_CONTEXT_GET_CLASS(obj) (G_TYPE_INSTANCE_GET_CLASS ((obj), VALA_DOVA_BASE_MODULE_TYPE_EMIT_CONTEXT, ValaDovaBaseModuleEmitContextClass))
typedef struct _ValaDovaBaseModuleEmitContext ValaDovaBaseModuleEmitContext;
typedef struct _ValaDovaBaseModuleEmitContextClass ValaDovaBaseModuleEmitContextClass;
#define VALA_TYPE_DOVA_STRUCT_MODULE (vala_dova_struct_module_get_type ())
#define VALA_DOVA_STRUCT_MODULE(obj) (G_TYPE_CHECK_INSTANCE_CAST ((obj), VALA_TYPE_DOVA_STRUCT_MODULE, ValaDovaStructModule))
#define VALA_DOVA_STRUCT_MODULE_CLASS(klass) (G_TYPE_CHECK_CLASS_CAST ((klass), VALA_TYPE_DOVA_STRUCT_MODULE, ValaDovaStructModuleClass))
#define VALA_IS_DOVA_STRUCT_MODULE(obj) (G_TYPE_CHECK_INSTANCE_TYPE ((obj), VALA_TYPE_DOVA_STRUCT_MODULE))
#define VALA_IS_DOVA_STRUCT_MODULE_CLASS(klass) (G_TYPE_CHECK_CLASS_TYPE ((klass), VALA_TYPE_DOVA_STRUCT_MODULE))
#define VALA_DOVA_STRUCT_MODULE_GET_CLASS(obj) (G_TYPE_INSTANCE_GET_CLASS ((obj), VALA_TYPE_DOVA_STRUCT_MODULE, ValaDovaStructModuleClass))
typedef struct _ValaDovaStructModule ValaDovaStructModule;
typedef struct _ValaDovaStructModuleClass ValaDovaStructModuleClass;
typedef struct _ValaDovaStructModulePrivate ValaDovaStructModulePrivate;
#define VALA_TYPE_DOVA_METHOD_MODULE (vala_dova_method_module_get_type ())
#define VALA_DOVA_METHOD_MODULE(obj) (G_TYPE_CHECK_INSTANCE_CAST ((obj), VALA_TYPE_DOVA_METHOD_MODULE, ValaDovaMethodModule))
#define VALA_DOVA_METHOD_MODULE_CLASS(klass) (G_TYPE_CHECK_CLASS_CAST ((klass), VALA_TYPE_DOVA_METHOD_MODULE, ValaDovaMethodModuleClass))
#define VALA_IS_DOVA_METHOD_MODULE(obj) (G_TYPE_CHECK_INSTANCE_TYPE ((obj), VALA_TYPE_DOVA_METHOD_MODULE))
#define VALA_IS_DOVA_METHOD_MODULE_CLASS(klass) (G_TYPE_CHECK_CLASS_TYPE ((klass), VALA_TYPE_DOVA_METHOD_MODULE))
#define VALA_DOVA_METHOD_MODULE_GET_CLASS(obj) (G_TYPE_INSTANCE_GET_CLASS ((obj), VALA_TYPE_DOVA_METHOD_MODULE, ValaDovaMethodModuleClass))
typedef struct _ValaDovaMethodModule ValaDovaMethodModule;
typedef struct _ValaDovaMethodModuleClass ValaDovaMethodModuleClass;
typedef struct _ValaDovaMethodModulePrivate ValaDovaMethodModulePrivate;
#define _vala_code_node_unref0(var) ((var == NULL) ? NULL : (var = (vala_code_node_unref (var), NULL)))
#define _g_free0(var) (var = (g_free (var), NULL))
struct _ValaDovaBaseModule {
ValaCodeGenerator parent_instance;
ValaDovaBaseModulePrivate * priv;
ValaSymbol* root_symbol;
ValaDovaBaseModuleEmitContext* emit_context;
ValaCCodeFile* header_file;
ValaCCodeFile* cfile;
ValaList* static_fields;
gint next_wrapper_id;
ValaDataType* void_type;
ValaDataType* bool_type;
ValaDataType* char_type;
ValaDataType* int_type;
ValaDataType* uint_type;
ValaDataType* string_type;
ValaClass* object_class;
ValaClass* type_class;
ValaClass* value_class;
ValaClass* string_class;
ValaStruct* array_struct;
ValaClass* delegate_class;
ValaClass* error_class;
};
struct _ValaDovaBaseModuleClass {
ValaCodeGeneratorClass parent_class;
void (*generate_struct_declaration) (ValaDovaBaseModule* self, ValaStruct* st, ValaCCodeFile* decl_space);
void (*generate_delegate_declaration) (ValaDovaBaseModule* self, ValaDelegate* d, ValaCCodeFile* decl_space);
void (*generate_cparameters) (ValaDovaBaseModule* self, ValaMethod* m, ValaCCodeFile* decl_space, ValaCCodeFunction* func, ValaCCodeFunctionDeclarator* vdeclarator, ValaCCodeFunctionCall* vcall);
void (*generate_property_accessor_declaration) (ValaDovaBaseModule* self, ValaPropertyAccessor* acc, ValaCCodeFile* decl_space);
ValaCCodeExpression* (*get_dup_func_expression) (ValaDovaBaseModule* self, ValaDataType* type, ValaSourceReference* source_reference, gboolean is_chainup);
void (*append_local_free) (ValaDovaBaseModule* self, ValaSymbol* sym, gboolean stop_at_loop, ValaCodeNode* stop_at);
ValaCCodeExpression* (*get_ref_cexpression) (ValaDovaBaseModule* self, ValaDataType* expression_type, ValaCCodeExpression* cexpr, ValaExpression* expr, ValaCodeNode* node);
void (*generate_class_declaration) (ValaDovaBaseModule* self, ValaClass* cl, ValaCCodeFile* decl_space);
void (*generate_interface_declaration) (ValaDovaBaseModule* self, ValaInterface* iface, ValaCCodeFile* decl_space);
void (*generate_method_declaration) (ValaDovaBaseModule* self, ValaMethod* m, ValaCCodeFile* decl_space);
ValaCCodeExpression* (*get_implicit_cast_expression) (ValaDovaBaseModule* self, ValaCCodeExpression* source_cexpr, ValaDataType* expression_type, ValaDataType* target_type, ValaExpression* expr);
gchar* (*get_custom_creturn_type) (ValaDovaBaseModule* self, ValaMethod* m);
gboolean (*method_has_wrapper) (ValaDovaBaseModule* self, ValaMethod* method);
void (*add_simple_check) (ValaDovaBaseModule* self, ValaCodeNode* node, gboolean always_fails);
};
struct _ValaDovaStructModule {
ValaDovaBaseModule parent_instance;
ValaDovaStructModulePrivate * priv;
};
struct _ValaDovaStructModuleClass {
ValaDovaBaseModuleClass parent_class;
};
struct _ValaDovaMethodModule {
ValaDovaStructModule parent_instance;
ValaDovaMethodModulePrivate * priv;
};
struct _ValaDovaMethodModuleClass {
ValaDovaStructModuleClass parent_class;
};
static gpointer vala_dova_method_module_parent_class = NULL;
GType vala_dova_base_module_get_type (void) G_GNUC_CONST;
gpointer vala_dova_base_module_emit_context_ref (gpointer instance);
void vala_dova_base_module_emit_context_unref (gpointer instance);
GParamSpec* vala_dova_base_module_param_spec_emit_context (const gchar* name, const gchar* nick, const gchar* blurb, GType object_type, GParamFlags flags);
void vala_dova_base_module_value_set_emit_context (GValue* value, gpointer v_object);
void vala_dova_base_module_value_take_emit_context (GValue* value, gpointer v_object);
gpointer vala_dova_base_module_value_get_emit_context (const GValue* value);
GType vala_dova_base_module_emit_context_get_type (void) G_GNUC_CONST;
GType vala_dova_struct_module_get_type (void) G_GNUC_CONST;
GType vala_dova_method_module_get_type (void) G_GNUC_CONST;
enum {
VALA_DOVA_METHOD_MODULE_DUMMY_PROPERTY
};
static gboolean vala_dova_method_module_real_method_has_wrapper (ValaDovaBaseModule* base, ValaMethod* method);
static gchar* vala_dova_method_module_real_get_custom_creturn_type (ValaDovaBaseModule* base, ValaMethod* m);
ValaDovaMethodModule* vala_dova_method_module_construct (GType object_type);
ValaDovaStructModule* vala_dova_struct_module_construct (GType object_type);
static gboolean vala_dova_method_module_real_method_has_wrapper (ValaDovaBaseModule* base, ValaMethod* method) {
ValaDovaMethodModule * self;
gboolean result = FALSE;
ValaMethod* _tmp0_;
ValaAttribute* _tmp1_ = NULL;
ValaAttribute* _tmp2_;
gboolean _tmp3_;
self = (ValaDovaMethodModule*) base;
g_return_val_if_fail (method != NULL, FALSE);
_tmp0_ = method;
_tmp1_ = vala_code_node_get_attribute ((ValaCodeNode*) _tmp0_, "NoWrapper");
_tmp2_ = _tmp1_;
_tmp3_ = _tmp2_ == NULL;
_vala_code_node_unref0 (_tmp2_);
result = _tmp3_;
return result;
}
static gchar* vala_dova_method_module_real_get_custom_creturn_type (ValaDovaBaseModule* base, ValaMethod* m) {
ValaDovaMethodModule * self;
gchar* result = NULL;
ValaMethod* _tmp0_;
ValaAttribute* _tmp1_ = NULL;
ValaAttribute* attr;
ValaAttribute* _tmp2_;
self = (ValaDovaMethodModule*) base;
g_return_val_if_fail (m != NULL, NULL);
_tmp0_ = m;
_tmp1_ = vala_code_node_get_attribute ((ValaCodeNode*) _tmp0_, "CCode");
attr = _tmp1_;
_tmp2_ = attr;
if (_tmp2_ != NULL) {
ValaAttribute* _tmp3_;
gchar* _tmp4_ = NULL;
gchar* type;
const gchar* _tmp5_;
_tmp3_ = attr;
_tmp4_ = vala_attribute_get_string (_tmp3_, "type");
type = _tmp4_;
_tmp5_ = type;
if (_tmp5_ != NULL) {
result = type;
_vala_code_node_unref0 (attr);
return result;
}
_g_free0 (type);
}
result = NULL;
_vala_code_node_unref0 (attr);
return result;
}
ValaDovaMethodModule* vala_dova_method_module_construct (GType object_type) {
ValaDovaMethodModule* self = NULL;
self = (ValaDovaMethodModule*) vala_dova_struct_module_construct (object_type);
return self;
}
static void vala_dova_method_module_class_init (ValaDovaMethodModuleClass * klass) {
vala_dova_method_module_parent_class = g_type_class_peek_parent (klass);
VALA_DOVA_BASE_MODULE_CLASS (klass)->method_has_wrapper = vala_dova_method_module_real_method_has_wrapper;
VALA_DOVA_BASE_MODULE_CLASS (klass)->get_custom_creturn_type = vala_dova_method_module_real_get_custom_creturn_type;
}
static void vala_dova_method_module_instance_init (ValaDovaMethodModule * self) {
}
/**
* The link between a method and generated code.
*/
GType vala_dova_method_module_get_type (void) {
static volatile gsize vala_dova_method_module_type_id__volatile = 0;
if (g_once_init_enter (&vala_dova_method_module_type_id__volatile)) {
static const GTypeInfo g_define_type_info = { sizeof (ValaDovaMethodModuleClass), (GBaseInitFunc) NULL, (GBaseFinalizeFunc) NULL, (GClassInitFunc) vala_dova_method_module_class_init, (GClassFinalizeFunc) NULL, NULL, sizeof (ValaDovaMethodModule), 0, (GInstanceInitFunc) vala_dova_method_module_instance_init, NULL };
GType vala_dova_method_module_type_id;
vala_dova_method_module_type_id = g_type_register_static (VALA_TYPE_DOVA_STRUCT_MODULE, "ValaDovaMethodModule", &g_define_type_info, G_TYPE_FLAG_ABSTRACT);
g_once_init_leave (&vala_dova_method_module_type_id__volatile, vala_dova_method_module_type_id);
}
return vala_dova_method_module_type_id__volatile;
}
|