1 /* valaregexliteral.c generated by valac, the Vala compiler
2 * generated from valaregexliteral.vala, do not modify */
3
4 /* valaregexliteral.vala
5 *
6 * Copyright (C) 2010 Jukka-Pekka Iivonen
7 * Copyright (C) 2010 Jürg Billeter
8 *
9 * This library is free software; you can redistribute it and/or
10 * modify it under the terms of the GNU Lesser General Public
11 * License as published by the Free Software Foundation; either
12 * version 2.1 of the License, or (at your option) any later version.
13
14 * This library is distributed in the hope that it will be useful,
15 * but WITHOUT ANY WARRANTY; without even the implied warranty of
16 * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
17 * Lesser General Public License for more details.
18
19 * You should have received a copy of the GNU Lesser General Public
20 * License along with this library; if not, write to the Free Software
21 * Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA
22 *
23 * Author:
24 * Jukka-Pekka Iivonen <jp0409@jippii.fi>
25 */
26
27 #include "vala.h"
28 #include <stdlib.h>
29 #include <string.h>
30 #include <glib.h>
31
32 #define _g_free0(var) (var = (g_free (var), NULL))
33 #define _g_regex_unref0(var) ((var == NULL) ? NULL : (var = (g_regex_unref (var), NULL)))
34 #define _vala_code_node_unref0(var) ((var == NULL) ? NULL : (var = (vala_code_node_unref (var), NULL)))
35
36 struct _ValaRegexLiteralPrivate {
37 gchar* _value;
38 };
39
40 static gint ValaRegexLiteral_private_offset;
41 static gpointer vala_regex_literal_parent_class = NULL;
42
43 static void vala_regex_literal_real_accept (ValaCodeNode* base,
44 ValaCodeVisitor* visitor);
45 static gboolean vala_regex_literal_real_is_pure (ValaExpression* base);
46 static gboolean vala_regex_literal_real_is_non_null (ValaExpression* base);
47 static gchar* vala_regex_literal_real_to_string (ValaCodeNode* base);
48 static gboolean vala_regex_literal_real_check (ValaCodeNode* base,
49 ValaCodeContext* context);
50 static void vala_regex_literal_real_emit (ValaCodeNode* base,
51 ValaCodeGenerator* codegen);
52 static void vala_regex_literal_finalize (ValaCodeNode * obj);
53 static GType vala_regex_literal_get_type_once (void);
54
55 static inline gpointer
vala_regex_literal_get_instance_private(ValaRegexLiteral * self)56 vala_regex_literal_get_instance_private (ValaRegexLiteral* self)
57 {
58 return G_STRUCT_MEMBER_P (self, ValaRegexLiteral_private_offset);
59 }
60
61 const gchar*
vala_regex_literal_get_value(ValaRegexLiteral * self)62 vala_regex_literal_get_value (ValaRegexLiteral* self)
63 {
64 const gchar* result;
65 const gchar* _tmp0_;
66 g_return_val_if_fail (self != NULL, NULL);
67 _tmp0_ = self->priv->_value;
68 result = _tmp0_;
69 return result;
70 }
71
72 void
vala_regex_literal_set_value(ValaRegexLiteral * self,const gchar * value)73 vala_regex_literal_set_value (ValaRegexLiteral* self,
74 const gchar* value)
75 {
76 gchar* _tmp0_;
77 g_return_if_fail (self != NULL);
78 _tmp0_ = g_strdup (value);
79 _g_free0 (self->priv->_value);
80 self->priv->_value = _tmp0_;
81 }
82
83 /**
84 * Creates a new regular expression literal.
85 *
86 * @param value the literal value
87 * @param source_reference reference to source code
88 * @return newly created string literal
89 */
90 ValaRegexLiteral*
vala_regex_literal_construct(GType object_type,const gchar * value,ValaSourceReference * source_reference)91 vala_regex_literal_construct (GType object_type,
92 const gchar* value,
93 ValaSourceReference* source_reference)
94 {
95 ValaRegexLiteral* self = NULL;
96 g_return_val_if_fail (value != NULL, NULL);
97 self = (ValaRegexLiteral*) vala_literal_construct (object_type);
98 vala_regex_literal_set_value (self, value);
99 vala_code_node_set_source_reference ((ValaCodeNode*) self, source_reference);
100 return self;
101 }
102
103 ValaRegexLiteral*
vala_regex_literal_new(const gchar * value,ValaSourceReference * source_reference)104 vala_regex_literal_new (const gchar* value,
105 ValaSourceReference* source_reference)
106 {
107 return vala_regex_literal_construct (VALA_TYPE_REGEX_LITERAL, value, source_reference);
108 }
109
110 static void
vala_regex_literal_real_accept(ValaCodeNode * base,ValaCodeVisitor * visitor)111 vala_regex_literal_real_accept (ValaCodeNode* base,
112 ValaCodeVisitor* visitor)
113 {
114 ValaRegexLiteral * self;
115 self = (ValaRegexLiteral*) base;
116 g_return_if_fail (visitor != NULL);
117 vala_code_visitor_visit_regex_literal (visitor, self);
118 vala_code_visitor_visit_expression (visitor, (ValaExpression*) self);
119 }
120
121 static gboolean
vala_regex_literal_real_is_pure(ValaExpression * base)122 vala_regex_literal_real_is_pure (ValaExpression* base)
123 {
124 ValaRegexLiteral * self;
125 gboolean result = FALSE;
126 self = (ValaRegexLiteral*) base;
127 result = TRUE;
128 return result;
129 }
130
131 static gboolean
vala_regex_literal_real_is_non_null(ValaExpression * base)132 vala_regex_literal_real_is_non_null (ValaExpression* base)
133 {
134 ValaRegexLiteral * self;
135 gboolean result = FALSE;
136 self = (ValaRegexLiteral*) base;
137 result = TRUE;
138 return result;
139 }
140
141 static gchar*
vala_regex_literal_real_to_string(ValaCodeNode * base)142 vala_regex_literal_real_to_string (ValaCodeNode* base)
143 {
144 ValaRegexLiteral * self;
145 const gchar* _tmp0_;
146 gchar* _tmp1_;
147 gchar* result = NULL;
148 self = (ValaRegexLiteral*) base;
149 _tmp0_ = self->priv->_value;
150 _tmp1_ = g_strdup (_tmp0_);
151 result = _tmp1_;
152 return result;
153 }
154
155 static gboolean
vala_regex_literal_real_check(ValaCodeNode * base,ValaCodeContext * context)156 vala_regex_literal_real_check (ValaCodeNode* base,
157 ValaCodeContext* context)
158 {
159 ValaRegexLiteral * self;
160 gboolean _tmp0_;
161 gboolean _tmp1_;
162 ValaSemanticAnalyzer* _tmp14_;
163 ValaSemanticAnalyzer* _tmp15_;
164 ValaDataType* _tmp16_;
165 ValaDataType* _tmp17_;
166 ValaDataType* _tmp18_;
167 gboolean _tmp19_;
168 gboolean _tmp20_;
169 GError* _inner_error0_ = NULL;
170 gboolean result = FALSE;
171 self = (ValaRegexLiteral*) base;
172 g_return_val_if_fail (context != NULL, FALSE);
173 _tmp0_ = vala_code_node_get_checked ((ValaCodeNode*) self);
174 _tmp1_ = _tmp0_;
175 if (_tmp1_) {
176 gboolean _tmp2_;
177 gboolean _tmp3_;
178 _tmp2_ = vala_code_node_get_error ((ValaCodeNode*) self);
179 _tmp3_ = _tmp2_;
180 result = !_tmp3_;
181 return result;
182 }
183 vala_code_node_set_checked ((ValaCodeNode*) self, TRUE);
184 {
185 GRegex* regex = NULL;
186 const gchar* _tmp4_;
187 GRegex* _tmp5_;
188 GRegex* _tmp7_;
189 _tmp4_ = self->priv->_value;
190 _tmp5_ = g_regex_new (_tmp4_, 0, 0, &_inner_error0_);
191 regex = _tmp5_;
192 if (G_UNLIKELY (_inner_error0_ != NULL)) {
193 gboolean _tmp6_ = FALSE;
194 if (_inner_error0_->domain == G_REGEX_ERROR) {
195 goto __catch0_g_regex_error;
196 }
197 g_critical ("file %s: line %d: unexpected error: %s (%s, %d)", __FILE__, __LINE__, _inner_error0_->message, g_quark_to_string (_inner_error0_->domain), _inner_error0_->code);
198 g_clear_error (&_inner_error0_);
199 return _tmp6_;
200 }
201 _tmp7_ = regex;
202 if (_tmp7_ != NULL) {
203 }
204 _g_regex_unref0 (regex);
205 }
206 goto __finally0;
207 __catch0_g_regex_error:
208 {
209 ValaSourceReference* _tmp8_;
210 ValaSourceReference* _tmp9_;
211 const gchar* _tmp10_;
212 gchar* _tmp11_;
213 gchar* _tmp12_;
214 g_clear_error (&_inner_error0_);
215 vala_code_node_set_error ((ValaCodeNode*) self, TRUE);
216 _tmp8_ = vala_code_node_get_source_reference ((ValaCodeNode*) self);
217 _tmp9_ = _tmp8_;
218 _tmp10_ = self->priv->_value;
219 _tmp11_ = g_strdup_printf ("Invalid regular expression `%s'.", _tmp10_);
220 _tmp12_ = _tmp11_;
221 vala_report_error (_tmp9_, _tmp12_);
222 _g_free0 (_tmp12_);
223 result = FALSE;
224 return result;
225 }
226 __finally0:
227 if (G_UNLIKELY (_inner_error0_ != NULL)) {
228 gboolean _tmp13_ = FALSE;
229 g_critical ("file %s: line %d: uncaught error: %s (%s, %d)", __FILE__, __LINE__, _inner_error0_->message, g_quark_to_string (_inner_error0_->domain), _inner_error0_->code);
230 g_clear_error (&_inner_error0_);
231 return _tmp13_;
232 }
233 _tmp14_ = vala_code_context_get_analyzer (context);
234 _tmp15_ = _tmp14_;
235 _tmp16_ = _tmp15_->regex_type;
236 _tmp17_ = vala_data_type_copy (_tmp16_);
237 _tmp18_ = _tmp17_;
238 vala_expression_set_value_type ((ValaExpression*) self, _tmp18_);
239 _vala_code_node_unref0 (_tmp18_);
240 _tmp19_ = vala_code_node_get_error ((ValaCodeNode*) self);
241 _tmp20_ = _tmp19_;
242 result = !_tmp20_;
243 return result;
244 }
245
246 static void
vala_regex_literal_real_emit(ValaCodeNode * base,ValaCodeGenerator * codegen)247 vala_regex_literal_real_emit (ValaCodeNode* base,
248 ValaCodeGenerator* codegen)
249 {
250 ValaRegexLiteral * self;
251 self = (ValaRegexLiteral*) base;
252 g_return_if_fail (codegen != NULL);
253 vala_code_visitor_visit_regex_literal ((ValaCodeVisitor*) codegen, self);
254 vala_code_visitor_visit_expression ((ValaCodeVisitor*) codegen, (ValaExpression*) self);
255 }
256
257 static void
vala_regex_literal_class_init(ValaRegexLiteralClass * klass,gpointer klass_data)258 vala_regex_literal_class_init (ValaRegexLiteralClass * klass,
259 gpointer klass_data)
260 {
261 vala_regex_literal_parent_class = g_type_class_peek_parent (klass);
262 ((ValaCodeNodeClass *) klass)->finalize = vala_regex_literal_finalize;
263 g_type_class_adjust_private_offset (klass, &ValaRegexLiteral_private_offset);
264 ((ValaCodeNodeClass *) klass)->accept = (void (*) (ValaCodeNode*, ValaCodeVisitor*)) vala_regex_literal_real_accept;
265 ((ValaExpressionClass *) klass)->is_pure = (gboolean (*) (ValaExpression*)) vala_regex_literal_real_is_pure;
266 ((ValaExpressionClass *) klass)->is_non_null = (gboolean (*) (ValaExpression*)) vala_regex_literal_real_is_non_null;
267 ((ValaCodeNodeClass *) klass)->to_string = (gchar* (*) (ValaCodeNode*)) vala_regex_literal_real_to_string;
268 ((ValaCodeNodeClass *) klass)->check = (gboolean (*) (ValaCodeNode*, ValaCodeContext*)) vala_regex_literal_real_check;
269 ((ValaCodeNodeClass *) klass)->emit = (void (*) (ValaCodeNode*, ValaCodeGenerator*)) vala_regex_literal_real_emit;
270 }
271
272 static void
vala_regex_literal_instance_init(ValaRegexLiteral * self,gpointer klass)273 vala_regex_literal_instance_init (ValaRegexLiteral * self,
274 gpointer klass)
275 {
276 self->priv = vala_regex_literal_get_instance_private (self);
277 }
278
279 static void
vala_regex_literal_finalize(ValaCodeNode * obj)280 vala_regex_literal_finalize (ValaCodeNode * obj)
281 {
282 ValaRegexLiteral * self;
283 self = G_TYPE_CHECK_INSTANCE_CAST (obj, VALA_TYPE_REGEX_LITERAL, ValaRegexLiteral);
284 _g_free0 (self->priv->_value);
285 VALA_CODE_NODE_CLASS (vala_regex_literal_parent_class)->finalize (obj);
286 }
287
288 /**
289 * Represents a regular expression literal in the source code.
290 */
291 static GType
vala_regex_literal_get_type_once(void)292 vala_regex_literal_get_type_once (void)
293 {
294 static const GTypeInfo g_define_type_info = { sizeof (ValaRegexLiteralClass), (GBaseInitFunc) NULL, (GBaseFinalizeFunc) NULL, (GClassInitFunc) vala_regex_literal_class_init, (GClassFinalizeFunc) NULL, NULL, sizeof (ValaRegexLiteral), 0, (GInstanceInitFunc) vala_regex_literal_instance_init, NULL };
295 GType vala_regex_literal_type_id;
296 vala_regex_literal_type_id = g_type_register_static (VALA_TYPE_LITERAL, "ValaRegexLiteral", &g_define_type_info, 0);
297 ValaRegexLiteral_private_offset = g_type_add_instance_private (vala_regex_literal_type_id, sizeof (ValaRegexLiteralPrivate));
298 return vala_regex_literal_type_id;
299 }
300
301 GType
vala_regex_literal_get_type(void)302 vala_regex_literal_get_type (void)
303 {
304 static volatile gsize vala_regex_literal_type_id__volatile = 0;
305 if (g_once_init_enter (&vala_regex_literal_type_id__volatile)) {
306 GType vala_regex_literal_type_id;
307 vala_regex_literal_type_id = vala_regex_literal_get_type_once ();
308 g_once_init_leave (&vala_regex_literal_type_id__volatile, vala_regex_literal_type_id);
309 }
310 return vala_regex_literal_type_id__volatile;
311 }
312
313