1 /* valastringliteral.c generated by valac, the Vala compiler
2 * generated from valastringliteral.vala, do not modify */
3
4 /* valastringliteral.vala
5 *
6 * Copyright (C) 2006-2011 Jürg Billeter
7 *
8 * This library is free software; you can redistribute it and/or
9 * modify it under the terms of the GNU Lesser General Public
10 * License as published by the Free Software Foundation; either
11 * version 2.1 of the License, or (at your option) any later version.
12
13 * This library is distributed in the hope that it will be useful,
14 * but WITHOUT ANY WARRANTY; without even the implied warranty of
15 * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
16 * Lesser General Public License for more details.
17
18 * You should have received a copy of the GNU Lesser General Public
19 * License along with this library; if not, write to the Free Software
20 * Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA
21 *
22 * Author:
23 * Jürg Billeter <j@bitron.ch>
24 */
25
26 #include "vala.h"
27 #include <stdlib.h>
28 #include <string.h>
29 #include <glib.h>
30
31 #define _g_free0(var) (var = (g_free (var), NULL))
32 #define _vala_code_node_unref0(var) ((var == NULL) ? NULL : (var = (vala_code_node_unref (var), NULL)))
33
34 struct _ValaStringLiteralPrivate {
35 gchar* _value;
36 gboolean _translate;
37 };
38
39 static gint ValaStringLiteral_private_offset;
40 static gpointer vala_string_literal_parent_class = NULL;
41
42 static void vala_string_literal_real_accept (ValaCodeNode* base,
43 ValaCodeVisitor* visitor);
44 static gboolean vala_string_literal_real_is_pure (ValaExpression* base);
45 static gboolean vala_string_literal_real_is_non_null (ValaExpression* base);
46 static gchar* vala_string_literal_real_to_string (ValaCodeNode* base);
47 static gboolean vala_string_literal_real_check (ValaCodeNode* base,
48 ValaCodeContext* context);
49 static void vala_string_literal_real_emit (ValaCodeNode* base,
50 ValaCodeGenerator* codegen);
51 static void vala_string_literal_finalize (ValaCodeNode * obj);
52 static GType vala_string_literal_get_type_once (void);
53
54 static inline gpointer
vala_string_literal_get_instance_private(ValaStringLiteral * self)55 vala_string_literal_get_instance_private (ValaStringLiteral* self)
56 {
57 return G_STRUCT_MEMBER_P (self, ValaStringLiteral_private_offset);
58 }
59
60 const gchar*
vala_string_literal_get_value(ValaStringLiteral * self)61 vala_string_literal_get_value (ValaStringLiteral* self)
62 {
63 const gchar* result;
64 const gchar* _tmp0_;
65 g_return_val_if_fail (self != NULL, NULL);
66 _tmp0_ = self->priv->_value;
67 result = _tmp0_;
68 return result;
69 }
70
71 void
vala_string_literal_set_value(ValaStringLiteral * self,const gchar * value)72 vala_string_literal_set_value (ValaStringLiteral* self,
73 const gchar* value)
74 {
75 gchar* _tmp0_;
76 g_return_if_fail (self != NULL);
77 _tmp0_ = g_strdup (value);
78 _g_free0 (self->priv->_value);
79 self->priv->_value = _tmp0_;
80 }
81
82 gboolean
vala_string_literal_get_translate(ValaStringLiteral * self)83 vala_string_literal_get_translate (ValaStringLiteral* self)
84 {
85 gboolean result;
86 g_return_val_if_fail (self != NULL, FALSE);
87 result = self->priv->_translate;
88 return result;
89 }
90
91 void
vala_string_literal_set_translate(ValaStringLiteral * self,gboolean value)92 vala_string_literal_set_translate (ValaStringLiteral* self,
93 gboolean value)
94 {
95 g_return_if_fail (self != NULL);
96 self->priv->_translate = value;
97 }
98
99 /**
100 * Creates a new string literal.
101 *
102 * @param value the literal value
103 * @param source_reference reference to source code
104 * @return newly created string literal
105 */
106 ValaStringLiteral*
vala_string_literal_construct(GType object_type,const gchar * value,ValaSourceReference * source_reference)107 vala_string_literal_construct (GType object_type,
108 const gchar* value,
109 ValaSourceReference* source_reference)
110 {
111 ValaStringLiteral* self = NULL;
112 g_return_val_if_fail (value != NULL, NULL);
113 self = (ValaStringLiteral*) vala_literal_construct (object_type);
114 vala_string_literal_set_value (self, value);
115 vala_code_node_set_source_reference ((ValaCodeNode*) self, source_reference);
116 return self;
117 }
118
119 ValaStringLiteral*
vala_string_literal_new(const gchar * value,ValaSourceReference * source_reference)120 vala_string_literal_new (const gchar* value,
121 ValaSourceReference* source_reference)
122 {
123 return vala_string_literal_construct (VALA_TYPE_STRING_LITERAL, value, source_reference);
124 }
125
126 /**
127 * Evaluates the literal string value.
128 *
129 * @return the unescaped string
130 */
131 static glong
string_strnlen(gchar * str,glong maxlen)132 string_strnlen (gchar* str,
133 glong maxlen)
134 {
135 gchar* end = NULL;
136 gchar* _tmp0_;
137 gchar* _tmp1_;
138 glong result = 0L;
139 _tmp0_ = memchr (str, 0, (gsize) maxlen);
140 end = _tmp0_;
141 _tmp1_ = end;
142 if (_tmp1_ == NULL) {
143 result = maxlen;
144 return result;
145 } else {
146 gchar* _tmp2_;
147 _tmp2_ = end;
148 result = (glong) (_tmp2_ - str);
149 return result;
150 }
151 }
152
153 static gchar*
string_substring(const gchar * self,glong offset,glong len)154 string_substring (const gchar* self,
155 glong offset,
156 glong len)
157 {
158 glong string_length = 0L;
159 gboolean _tmp0_ = FALSE;
160 gchar* _tmp3_;
161 gchar* result = NULL;
162 g_return_val_if_fail (self != NULL, NULL);
163 if (offset >= ((glong) 0)) {
164 _tmp0_ = len >= ((glong) 0);
165 } else {
166 _tmp0_ = FALSE;
167 }
168 if (_tmp0_) {
169 string_length = string_strnlen ((gchar*) self, offset + len);
170 } else {
171 gint _tmp1_;
172 gint _tmp2_;
173 _tmp1_ = strlen (self);
174 _tmp2_ = _tmp1_;
175 string_length = (glong) _tmp2_;
176 }
177 if (offset < ((glong) 0)) {
178 offset = string_length + offset;
179 g_return_val_if_fail (offset >= ((glong) 0), NULL);
180 } else {
181 g_return_val_if_fail (offset <= string_length, NULL);
182 }
183 if (len < ((glong) 0)) {
184 len = string_length - offset;
185 }
186 g_return_val_if_fail ((offset + len) <= string_length, NULL);
187 _tmp3_ = g_strndup (((gchar*) self) + offset, (gsize) len);
188 result = _tmp3_;
189 return result;
190 }
191
192 gchar*
vala_string_literal_eval(ValaStringLiteral * self)193 vala_string_literal_eval (ValaStringLiteral* self)
194 {
195 const gchar* _tmp0_;
196 gchar* noquotes = NULL;
197 const gchar* _tmp1_;
198 const gchar* _tmp2_;
199 gint _tmp3_;
200 gint _tmp4_;
201 gchar* _tmp5_;
202 const gchar* _tmp6_;
203 gchar* _tmp7_;
204 gchar* result = NULL;
205 g_return_val_if_fail (self != NULL, NULL);
206 _tmp0_ = self->priv->_value;
207 if (_tmp0_ == NULL) {
208 result = NULL;
209 return result;
210 }
211 _tmp1_ = self->priv->_value;
212 _tmp2_ = self->priv->_value;
213 _tmp3_ = strlen (_tmp2_);
214 _tmp4_ = _tmp3_;
215 _tmp5_ = string_substring (_tmp1_, (glong) 1, (glong) ((guint) (_tmp4_ - 2)));
216 noquotes = _tmp5_;
217 _tmp6_ = noquotes;
218 _tmp7_ = g_strcompress (_tmp6_);
219 result = _tmp7_;
220 _g_free0 (noquotes);
221 return result;
222 }
223
224 static void
vala_string_literal_real_accept(ValaCodeNode * base,ValaCodeVisitor * visitor)225 vala_string_literal_real_accept (ValaCodeNode* base,
226 ValaCodeVisitor* visitor)
227 {
228 ValaStringLiteral * self;
229 self = (ValaStringLiteral*) base;
230 g_return_if_fail (visitor != NULL);
231 vala_code_visitor_visit_string_literal (visitor, self);
232 vala_code_visitor_visit_expression (visitor, (ValaExpression*) self);
233 }
234
235 static gboolean
vala_string_literal_real_is_pure(ValaExpression * base)236 vala_string_literal_real_is_pure (ValaExpression* base)
237 {
238 ValaStringLiteral * self;
239 gboolean result = FALSE;
240 self = (ValaStringLiteral*) base;
241 result = TRUE;
242 return result;
243 }
244
245 static gboolean
vala_string_literal_real_is_non_null(ValaExpression * base)246 vala_string_literal_real_is_non_null (ValaExpression* base)
247 {
248 ValaStringLiteral * self;
249 gboolean result = FALSE;
250 self = (ValaStringLiteral*) base;
251 result = TRUE;
252 return result;
253 }
254
255 static gchar*
vala_string_literal_real_to_string(ValaCodeNode * base)256 vala_string_literal_real_to_string (ValaCodeNode* base)
257 {
258 ValaStringLiteral * self;
259 const gchar* _tmp0_;
260 gchar* _tmp1_;
261 gchar* result = NULL;
262 self = (ValaStringLiteral*) base;
263 _tmp0_ = self->priv->_value;
264 _tmp1_ = g_strdup (_tmp0_);
265 result = _tmp1_;
266 return result;
267 }
268
269 static gboolean
vala_string_literal_real_check(ValaCodeNode * base,ValaCodeContext * context)270 vala_string_literal_real_check (ValaCodeNode* base,
271 ValaCodeContext* context)
272 {
273 ValaStringLiteral * self;
274 gboolean _tmp0_;
275 gboolean _tmp1_;
276 ValaSemanticAnalyzer* _tmp4_;
277 ValaSemanticAnalyzer* _tmp5_;
278 ValaDataType* _tmp6_;
279 ValaDataType* _tmp7_;
280 ValaDataType* _tmp8_;
281 gboolean _tmp9_;
282 gboolean _tmp10_;
283 gboolean result = FALSE;
284 self = (ValaStringLiteral*) base;
285 g_return_val_if_fail (context != NULL, FALSE);
286 _tmp0_ = vala_code_node_get_checked ((ValaCodeNode*) self);
287 _tmp1_ = _tmp0_;
288 if (_tmp1_) {
289 gboolean _tmp2_;
290 gboolean _tmp3_;
291 _tmp2_ = vala_code_node_get_error ((ValaCodeNode*) self);
292 _tmp3_ = _tmp2_;
293 result = !_tmp3_;
294 return result;
295 }
296 vala_code_node_set_checked ((ValaCodeNode*) self, TRUE);
297 _tmp4_ = vala_code_context_get_analyzer (context);
298 _tmp5_ = _tmp4_;
299 _tmp6_ = _tmp5_->string_type;
300 _tmp7_ = vala_data_type_copy (_tmp6_);
301 _tmp8_ = _tmp7_;
302 vala_expression_set_value_type ((ValaExpression*) self, _tmp8_);
303 _vala_code_node_unref0 (_tmp8_);
304 _tmp9_ = vala_code_node_get_error ((ValaCodeNode*) self);
305 _tmp10_ = _tmp9_;
306 result = !_tmp10_;
307 return result;
308 }
309
310 static void
vala_string_literal_real_emit(ValaCodeNode * base,ValaCodeGenerator * codegen)311 vala_string_literal_real_emit (ValaCodeNode* base,
312 ValaCodeGenerator* codegen)
313 {
314 ValaStringLiteral * self;
315 self = (ValaStringLiteral*) base;
316 g_return_if_fail (codegen != NULL);
317 vala_code_visitor_visit_string_literal ((ValaCodeVisitor*) codegen, self);
318 vala_code_visitor_visit_expression ((ValaCodeVisitor*) codegen, (ValaExpression*) self);
319 }
320
321 static gpointer
_vala_code_node_ref0(gpointer self)322 _vala_code_node_ref0 (gpointer self)
323 {
324 return self ? vala_code_node_ref (self) : NULL;
325 }
326
327 ValaStringLiteral*
vala_string_literal_get_format_literal(ValaExpression * expr)328 vala_string_literal_get_format_literal (ValaExpression* expr)
329 {
330 ValaStringLiteral* format_literal = NULL;
331 ValaStringLiteral* _tmp0_;
332 ValaMethodCall* call = NULL;
333 ValaMethodCall* _tmp3_;
334 ValaStringLiteral* result = NULL;
335 g_return_val_if_fail (expr != NULL, NULL);
336 format_literal = VALA_IS_STRING_LITERAL (expr) ? ((ValaStringLiteral*) expr) : NULL;
337 _tmp0_ = format_literal;
338 if (_tmp0_ != NULL) {
339 ValaStringLiteral* _tmp1_;
340 ValaStringLiteral* _tmp2_;
341 _tmp1_ = format_literal;
342 _tmp2_ = _vala_code_node_ref0 (_tmp1_);
343 result = _tmp2_;
344 return result;
345 }
346 call = VALA_IS_METHOD_CALL (expr) ? ((ValaMethodCall*) expr) : NULL;
347 _tmp3_ = call;
348 if (_tmp3_ != NULL) {
349 ValaMethodCall* _tmp4_;
350 ValaStringLiteral* _tmp5_;
351 _tmp4_ = call;
352 _tmp5_ = vala_method_call_get_format_literal (_tmp4_);
353 result = _tmp5_;
354 return result;
355 }
356 result = NULL;
357 return result;
358 }
359
360 static void
vala_string_literal_class_init(ValaStringLiteralClass * klass,gpointer klass_data)361 vala_string_literal_class_init (ValaStringLiteralClass * klass,
362 gpointer klass_data)
363 {
364 vala_string_literal_parent_class = g_type_class_peek_parent (klass);
365 ((ValaCodeNodeClass *) klass)->finalize = vala_string_literal_finalize;
366 g_type_class_adjust_private_offset (klass, &ValaStringLiteral_private_offset);
367 ((ValaCodeNodeClass *) klass)->accept = (void (*) (ValaCodeNode*, ValaCodeVisitor*)) vala_string_literal_real_accept;
368 ((ValaExpressionClass *) klass)->is_pure = (gboolean (*) (ValaExpression*)) vala_string_literal_real_is_pure;
369 ((ValaExpressionClass *) klass)->is_non_null = (gboolean (*) (ValaExpression*)) vala_string_literal_real_is_non_null;
370 ((ValaCodeNodeClass *) klass)->to_string = (gchar* (*) (ValaCodeNode*)) vala_string_literal_real_to_string;
371 ((ValaCodeNodeClass *) klass)->check = (gboolean (*) (ValaCodeNode*, ValaCodeContext*)) vala_string_literal_real_check;
372 ((ValaCodeNodeClass *) klass)->emit = (void (*) (ValaCodeNode*, ValaCodeGenerator*)) vala_string_literal_real_emit;
373 }
374
375 static void
vala_string_literal_instance_init(ValaStringLiteral * self,gpointer klass)376 vala_string_literal_instance_init (ValaStringLiteral * self,
377 gpointer klass)
378 {
379 self->priv = vala_string_literal_get_instance_private (self);
380 }
381
382 static void
vala_string_literal_finalize(ValaCodeNode * obj)383 vala_string_literal_finalize (ValaCodeNode * obj)
384 {
385 ValaStringLiteral * self;
386 self = G_TYPE_CHECK_INSTANCE_CAST (obj, VALA_TYPE_STRING_LITERAL, ValaStringLiteral);
387 _g_free0 (self->priv->_value);
388 VALA_CODE_NODE_CLASS (vala_string_literal_parent_class)->finalize (obj);
389 }
390
391 /**
392 * Represents a string literal in the source code.
393 */
394 static GType
vala_string_literal_get_type_once(void)395 vala_string_literal_get_type_once (void)
396 {
397 static const GTypeInfo g_define_type_info = { sizeof (ValaStringLiteralClass), (GBaseInitFunc) NULL, (GBaseFinalizeFunc) NULL, (GClassInitFunc) vala_string_literal_class_init, (GClassFinalizeFunc) NULL, NULL, sizeof (ValaStringLiteral), 0, (GInstanceInitFunc) vala_string_literal_instance_init, NULL };
398 GType vala_string_literal_type_id;
399 vala_string_literal_type_id = g_type_register_static (VALA_TYPE_LITERAL, "ValaStringLiteral", &g_define_type_info, 0);
400 ValaStringLiteral_private_offset = g_type_add_instance_private (vala_string_literal_type_id, sizeof (ValaStringLiteralPrivate));
401 return vala_string_literal_type_id;
402 }
403
404 GType
vala_string_literal_get_type(void)405 vala_string_literal_get_type (void)
406 {
407 static volatile gsize vala_string_literal_type_id__volatile = 0;
408 if (g_once_init_enter (&vala_string_literal_type_id__volatile)) {
409 GType vala_string_literal_type_id;
410 vala_string_literal_type_id = vala_string_literal_get_type_once ();
411 g_once_init_leave (&vala_string_literal_type_id__volatile, vala_string_literal_type_id);
412 }
413 return vala_string_literal_type_id__volatile;
414 }
415
416