Exemple #1
0
static void vala_dova_array_module_real_visit_array_creation_expression (ValaCodeVisitor* base, ValaArrayCreationExpression* expr) {
	ValaDovaArrayModule * self;
	ValaArrayCreationExpression* _tmp0_;
	ValaDataType* _tmp1_;
	ValaDataType* _tmp2_;
	ValaArrayType* _tmp3_;
	ValaArrayType* array_type;
	gboolean _tmp4_ = FALSE;
	ValaArrayType* _tmp5_;
	gboolean _tmp9_;
	ValaStruct* _tmp24_;
	ValaScope* _tmp25_;
	ValaScope* _tmp26_;
	ValaSymbol* _tmp27_ = NULL;
	ValaMethod* _tmp28_;
	ValaCCodeFile* _tmp29_;
	ValaCCodeIdentifier* _tmp30_;
	ValaCCodeIdentifier* _tmp31_;
	ValaCCodeFunctionCall* _tmp32_;
	ValaCCodeFunctionCall* _tmp33_;
	ValaCCodeFunctionCall* array_new;
	ValaCCodeFunctionCall* _tmp34_;
	ValaArrayCreationExpression* _tmp35_;
	ValaDataType* _tmp36_;
	ValaDataType* _tmp37_;
	ValaCCodeExpression* _tmp38_ = NULL;
	ValaCCodeExpression* _tmp39_;
	ValaCCodeFunctionCall* _tmp40_;
	ValaArrayCreationExpression* _tmp41_;
	ValaList* _tmp42_ = NULL;
	ValaList* _tmp43_;
	gpointer _tmp44_ = NULL;
	ValaExpression* _tmp45_;
	ValaCCodeExpression* _tmp46_ = NULL;
	ValaCCodeExpression* _tmp47_;
	ValaArrayCreationExpression* _tmp48_;
	ValaDataType* _tmp49_;
	ValaDataType* _tmp50_;
	ValaArrayCreationExpression* _tmp51_;
	ValaLocalVariable* _tmp52_ = NULL;
	ValaLocalVariable* temp_var;
	ValaLocalVariable* _tmp53_;
	const gchar* _tmp54_;
	const gchar* _tmp55_;
	ValaCCodeExpression* _tmp56_ = NULL;
	ValaCCodeExpression* name_cnode;
	ValaLocalVariable* _tmp57_;
	ValaCCodeFunction* _tmp58_;
	ValaCCodeFunction* _tmp59_;
	ValaCCodeExpression* _tmp60_;
	ValaCCodeFunctionCall* _tmp61_;
	ValaArrayCreationExpression* _tmp62_;
	ValaCCodeExpression* _tmp63_;
	self = (ValaDovaArrayModule*) base;
	g_return_if_fail (expr != NULL);
	_tmp0_ = expr;
	_tmp1_ = vala_expression_get_target_type ((ValaExpression*) _tmp0_);
	_tmp2_ = _tmp1_;
	_tmp3_ = _vala_code_node_ref0 (VALA_IS_ARRAY_TYPE (_tmp2_) ? ((ValaArrayType*) _tmp2_) : NULL);
	array_type = _tmp3_;
	_tmp5_ = array_type;
	if (_tmp5_ != NULL) {
		ValaArrayType* _tmp6_;
		gboolean _tmp7_;
		gboolean _tmp8_;
		_tmp6_ = array_type;
		_tmp7_ = vala_array_type_get_fixed_length (_tmp6_);
		_tmp8_ = _tmp7_;
		_tmp4_ = _tmp8_;
	} else {
		_tmp4_ = FALSE;
	}
	_tmp9_ = _tmp4_;
	if (_tmp9_) {
		ValaArrayType* _tmp10_;
		ValaArrayCreationExpression* _tmp11_;
		ValaLocalVariable* _tmp12_ = NULL;
		ValaLocalVariable* temp_var;
		ValaLocalVariable* _tmp13_;
		const gchar* _tmp14_;
		const gchar* _tmp15_;
		ValaCCodeIdentifier* _tmp16_;
		ValaCCodeIdentifier* name_cnode;
		gint i;
		ValaLocalVariable* _tmp17_;
		ValaCCodeIdentifier* _tmp18_;
		ValaArrayCreationExpression* _tmp19_;
		ValaInitializerList* _tmp20_;
		ValaInitializerList* _tmp21_;
		ValaArrayCreationExpression* _tmp22_;
		ValaCCodeIdentifier* _tmp23_;
		_tmp10_ = array_type;
		_tmp11_ = expr;
		_tmp12_ = vala_dova_base_module_get_temp_variable ((ValaDovaBaseModule*) self, (ValaDataType*) _tmp10_, TRUE, (ValaCodeNode*) _tmp11_);
		temp_var = _tmp12_;
		_tmp13_ = temp_var;
		_tmp14_ = vala_symbol_get_name ((ValaSymbol*) _tmp13_);
		_tmp15_ = _tmp14_;
		_tmp16_ = vala_ccode_identifier_new (_tmp15_);
		name_cnode = _tmp16_;
		i = 0;
		_tmp17_ = temp_var;
		vala_dova_base_module_emit_temp_var ((ValaDovaBaseModule*) self, _tmp17_);
		_tmp18_ = name_cnode;
		_tmp19_ = expr;
		_tmp20_ = vala_array_creation_expression_get_initializer_list (_tmp19_);
		_tmp21_ = _tmp20_;
		vala_dova_array_module_append_initializer_list (self, (ValaCCodeExpression*) _tmp18_, _tmp21_, &i);
		_tmp22_ = expr;
		_tmp23_ = name_cnode;
		vala_dova_base_module_set_cvalue ((ValaDovaBaseModule*) self, (ValaExpression*) _tmp22_, (ValaCCodeExpression*) _tmp23_);
		_vala_ccode_node_unref0 (name_cnode);
		_vala_code_node_unref0 (temp_var);
		_vala_code_node_unref0 (array_type);
		return;
	}
	_tmp24_ = ((ValaDovaBaseModule*) self)->array_struct;
	_tmp25_ = vala_symbol_get_scope ((ValaSymbol*) _tmp24_);
	_tmp26_ = _tmp25_;
	_tmp27_ = vala_scope_lookup (_tmp26_, "create");
	_tmp28_ = VALA_METHOD (_tmp27_);
	_tmp29_ = ((ValaDovaBaseModule*) self)->cfile;
	vala_dova_base_module_generate_method_declaration ((ValaDovaBaseModule*) self, _tmp28_, _tmp29_);
	_vala_code_node_unref0 (_tmp28_);
	_tmp30_ = vala_ccode_identifier_new ("dova_array_create");
	_tmp31_ = _tmp30_;
	_tmp32_ = vala_ccode_function_call_new ((ValaCCodeExpression*) _tmp31_);
	_tmp33_ = _tmp32_;
	_vala_ccode_node_unref0 (_tmp31_);
	array_new = _tmp33_;
	_tmp34_ = array_new;
	_tmp35_ = expr;
	_tmp36_ = vala_array_creation_expression_get_element_type (_tmp35_);
	_tmp37_ = _tmp36_;
	_tmp38_ = vala_dova_base_module_get_type_id_expression ((ValaDovaBaseModule*) self, _tmp37_, FALSE);
	_tmp39_ = _tmp38_;
	vala_ccode_function_call_add_argument (_tmp34_, _tmp39_);
	_vala_ccode_node_unref0 (_tmp39_);
	_tmp40_ = array_new;
	_tmp41_ = expr;
	_tmp42_ = vala_array_creation_expression_get_sizes (_tmp41_);
	_tmp43_ = _tmp42_;
	_tmp44_ = vala_list_get (_tmp43_, 0);
	_tmp45_ = (ValaExpression*) _tmp44_;
	_tmp46_ = vala_dova_base_module_get_cvalue ((ValaDovaBaseModule*) self, _tmp45_);
	_tmp47_ = _tmp46_;
	vala_ccode_function_call_add_argument (_tmp40_, _tmp47_);
	_vala_ccode_node_unref0 (_tmp47_);
	_vala_code_node_unref0 (_tmp45_);
	_vala_iterable_unref0 (_tmp43_);
	_tmp48_ = expr;
	_tmp49_ = vala_expression_get_value_type ((ValaExpression*) _tmp48_);
	_tmp50_ = _tmp49_;
	_tmp51_ = expr;
	_tmp52_ = vala_dova_base_module_get_temp_variable ((ValaDovaBaseModule*) self, _tmp50_, TRUE, (ValaCodeNode*) _tmp51_);
	temp_var = _tmp52_;
	_tmp53_ = temp_var;
	_tmp54_ = vala_symbol_get_name ((ValaSymbol*) _tmp53_);
	_tmp55_ = _tmp54_;
	_tmp56_ = vala_dova_base_module_get_variable_cexpression ((ValaDovaBaseModule*) self, _tmp55_);
	name_cnode = _tmp56_;
	_tmp57_ = temp_var;
	vala_dova_base_module_emit_temp_var ((ValaDovaBaseModule*) self, _tmp57_);
	_tmp58_ = vala_dova_base_module_get_ccode ((ValaDovaBaseModule*) self);
	_tmp59_ = _tmp58_;
	_tmp60_ = name_cnode;
	_tmp61_ = array_new;
	vala_ccode_function_add_assignment (_tmp59_, _tmp60_, (ValaCCodeExpression*) _tmp61_);
	_tmp62_ = expr;
	_tmp63_ = name_cnode;
	vala_dova_base_module_set_cvalue ((ValaDovaBaseModule*) self, (ValaExpression*) _tmp62_, _tmp63_);
	_vala_ccode_node_unref0 (name_cnode);
	_vala_code_node_unref0 (temp_var);
	_vala_ccode_node_unref0 (array_new);
	_vala_code_node_unref0 (array_type);
}
Exemple #2
0
static gboolean vala_tuple_real_check (ValaCodeNode* base, ValaCodeContext* context) {
	ValaTuple * self;
	gboolean result = FALSE;
	gboolean _tmp0_;
	gboolean _tmp1_;
	ValaCodeContext* _tmp4_;
	ValaProfile _tmp5_;
	ValaProfile _tmp6_;
	ValaCodeContext* _tmp9_;
	ValaNamespace* _tmp10_;
	ValaNamespace* _tmp11_;
	ValaScope* _tmp12_;
	ValaScope* _tmp13_;
	ValaSymbol* _tmp14_ = NULL;
	ValaSymbol* _tmp15_;
	ValaScope* _tmp16_;
	ValaScope* _tmp17_;
	ValaSymbol* _tmp18_ = NULL;
	ValaClass* _tmp19_;
	ValaObjectType* _tmp20_;
	ValaObjectType* _tmp21_;
	ValaDataType* _tmp22_;
	ValaDataType* _tmp23_;
	gboolean _tmp45_;
	gboolean _tmp46_;
	self = (ValaTuple*) base;
	g_return_val_if_fail (context != NULL, FALSE);
	_tmp0_ = vala_code_node_get_checked ((ValaCodeNode*) self);
	_tmp1_ = _tmp0_;
	if (_tmp1_) {
		gboolean _tmp2_;
		gboolean _tmp3_;
		_tmp2_ = vala_code_node_get_error ((ValaCodeNode*) self);
		_tmp3_ = _tmp2_;
		result = !_tmp3_;
		return result;
	}
	vala_code_node_set_checked ((ValaCodeNode*) self, TRUE);
	_tmp4_ = context;
	_tmp5_ = vala_code_context_get_profile (_tmp4_);
	_tmp6_ = _tmp5_;
	if (_tmp6_ != VALA_PROFILE_DOVA) {
		ValaSourceReference* _tmp7_;
		ValaSourceReference* _tmp8_;
		_tmp7_ = vala_code_node_get_source_reference ((ValaCodeNode*) self);
		_tmp8_ = _tmp7_;
		vala_report_error (_tmp8_, "tuples are not supported");
		vala_code_node_set_error ((ValaCodeNode*) self, TRUE);
		result = FALSE;
		return result;
	}
	_tmp9_ = context;
	_tmp10_ = vala_code_context_get_root (_tmp9_);
	_tmp11_ = _tmp10_;
	_tmp12_ = vala_symbol_get_scope ((ValaSymbol*) _tmp11_);
	_tmp13_ = _tmp12_;
	_tmp14_ = vala_scope_lookup (_tmp13_, "Dova");
	_tmp15_ = _tmp14_;
	_tmp16_ = vala_symbol_get_scope (_tmp15_);
	_tmp17_ = _tmp16_;
	_tmp18_ = vala_scope_lookup (_tmp17_, "Tuple");
	_tmp19_ = VALA_CLASS (_tmp18_);
	_tmp20_ = vala_object_type_new ((ValaObjectTypeSymbol*) _tmp19_);
	_tmp21_ = _tmp20_;
	vala_expression_set_value_type ((ValaExpression*) self, (ValaDataType*) _tmp21_);
	_vala_code_node_unref0 (_tmp21_);
	_vala_code_node_unref0 (_tmp19_);
	_vala_code_node_unref0 (_tmp15_);
	_tmp22_ = vala_expression_get_value_type ((ValaExpression*) self);
	_tmp23_ = _tmp22_;
	vala_data_type_set_value_owned (_tmp23_, TRUE);
	{
		ValaList* _tmp24_;
		ValaList* _tmp25_;
		ValaList* _expr_list;
		ValaList* _tmp26_;
		gint _tmp27_;
		gint _tmp28_;
		gint _expr_size;
		gint _expr_index;
		_tmp24_ = self->priv->expression_list;
		_tmp25_ = _vala_iterable_ref0 (_tmp24_);
		_expr_list = _tmp25_;
		_tmp26_ = _expr_list;
		_tmp27_ = vala_collection_get_size ((ValaCollection*) _tmp26_);
		_tmp28_ = _tmp27_;
		_expr_size = _tmp28_;
		_expr_index = -1;
		while (TRUE) {
			gint _tmp29_;
			gint _tmp30_;
			gint _tmp31_;
			ValaList* _tmp32_;
			gint _tmp33_;
			gpointer _tmp34_ = NULL;
			ValaExpression* expr;
			ValaExpression* _tmp35_;
			ValaCodeContext* _tmp36_;
			gboolean _tmp37_ = FALSE;
			ValaDataType* _tmp38_;
			ValaDataType* _tmp39_;
			ValaExpression* _tmp40_;
			ValaDataType* _tmp41_;
			ValaDataType* _tmp42_;
			ValaDataType* _tmp43_ = NULL;
			ValaDataType* _tmp44_;
			_tmp29_ = _expr_index;
			_expr_index = _tmp29_ + 1;
			_tmp30_ = _expr_index;
			_tmp31_ = _expr_size;
			if (!(_tmp30_ < _tmp31_)) {
				break;
			}
			_tmp32_ = _expr_list;
			_tmp33_ = _expr_index;
			_tmp34_ = vala_list_get (_tmp32_, _tmp33_);
			expr = (ValaExpression*) _tmp34_;
			_tmp35_ = expr;
			_tmp36_ = context;
			_tmp37_ = vala_code_node_check ((ValaCodeNode*) _tmp35_, _tmp36_);
			if (!_tmp37_) {
				result = FALSE;
				_vala_code_node_unref0 (expr);
				_vala_iterable_unref0 (_expr_list);
				return result;
			}
			_tmp38_ = vala_expression_get_value_type ((ValaExpression*) self);
			_tmp39_ = _tmp38_;
			_tmp40_ = expr;
			_tmp41_ = vala_expression_get_value_type (_tmp40_);
			_tmp42_ = _tmp41_;
			_tmp43_ = vala_data_type_copy (_tmp42_);
			_tmp44_ = _tmp43_;
			vala_data_type_add_type_argument (_tmp39_, _tmp44_);
			_vala_code_node_unref0 (_tmp44_);
			_vala_code_node_unref0 (expr);
		}
		_vala_iterable_unref0 (_expr_list);
	}
	_tmp45_ = vala_code_node_get_error ((ValaCodeNode*) self);
	_tmp46_ = _tmp45_;
	result = !_tmp46_;
	return result;
}
ValaMethod* vala_enum_value_type_get_to_string_method (ValaEnumValueType* self) {
	ValaMethod* result = NULL;
	ValaMethod* _tmp0_;
	ValaMethod* _tmp35_;
	ValaMethod* _tmp36_;
	g_return_val_if_fail (self != NULL, NULL);
	_tmp0_ = self->priv->to_string_method;
	if (_tmp0_ == NULL) {
		ValaCodeContext* _tmp1_ = NULL;
		ValaCodeContext* _tmp2_;
		ValaNamespace* _tmp3_;
		ValaNamespace* _tmp4_;
		ValaScope* _tmp5_;
		ValaScope* _tmp6_;
		ValaSymbol* _tmp7_ = NULL;
		ValaClass* _tmp8_;
		ValaObjectType* _tmp9_;
		ValaObjectType* _tmp10_;
		ValaObjectType* string_type;
		ValaObjectType* _tmp11_;
		ValaObjectType* _tmp12_;
		ValaMethod* _tmp13_;
		ValaMethod* _tmp14_;
		ValaMethod* _tmp15_;
		ValaMethod* _tmp16_;
		ValaTypeSymbol* _tmp17_;
		ValaTypeSymbol* _tmp18_;
		ValaScope* _tmp19_;
		ValaScope* _tmp20_;
		ValaMethod* _tmp21_;
		ValaParameter* _tmp22_;
		ValaParameter* _tmp23_;
		ValaMethod* _tmp24_;
		ValaScope* _tmp25_;
		ValaScope* _tmp26_;
		ValaMethod* _tmp27_;
		ValaParameter* _tmp28_;
		ValaParameter* _tmp29_;
		const gchar* _tmp30_;
		const gchar* _tmp31_;
		ValaMethod* _tmp32_;
		ValaParameter* _tmp33_;
		ValaParameter* _tmp34_;
		_tmp1_ = vala_code_context_get ();
		_tmp2_ = _tmp1_;
		_tmp3_ = vala_code_context_get_root (_tmp2_);
		_tmp4_ = _tmp3_;
		_tmp5_ = vala_symbol_get_scope ((ValaSymbol*) _tmp4_);
		_tmp6_ = _tmp5_;
		_tmp7_ = vala_scope_lookup (_tmp6_, "string");
		_tmp8_ = G_TYPE_CHECK_INSTANCE_CAST (_tmp7_, VALA_TYPE_CLASS, ValaClass);
		_tmp9_ = vala_object_type_new ((ValaObjectTypeSymbol*) _tmp8_);
		_tmp10_ = _tmp9_;
		_vala_code_node_unref0 (_tmp8_);
		_vala_code_context_unref0 (_tmp2_);
		string_type = _tmp10_;
		_tmp11_ = string_type;
		vala_data_type_set_value_owned ((ValaDataType*) _tmp11_, FALSE);
		_tmp12_ = string_type;
		_tmp13_ = vala_method_new ("to_string", (ValaDataType*) _tmp12_, NULL, NULL);
		_vala_code_node_unref0 (self->priv->to_string_method);
		self->priv->to_string_method = _tmp13_;
		_tmp14_ = self->priv->to_string_method;
		vala_symbol_set_access ((ValaSymbol*) _tmp14_, VALA_SYMBOL_ACCESSIBILITY_PUBLIC);
		_tmp15_ = self->priv->to_string_method;
		vala_symbol_set_external ((ValaSymbol*) _tmp15_, TRUE);
		_tmp16_ = self->priv->to_string_method;
		_tmp17_ = vala_value_type_get_type_symbol ((ValaValueType*) self);
		_tmp18_ = _tmp17_;
		_tmp19_ = vala_symbol_get_scope ((ValaSymbol*) _tmp18_);
		_tmp20_ = _tmp19_;
		vala_symbol_set_owner ((ValaSymbol*) _tmp16_, _tmp20_);
		_tmp21_ = self->priv->to_string_method;
		_tmp22_ = vala_parameter_new ("this", (ValaDataType*) self, NULL);
		_tmp23_ = _tmp22_;
		vala_method_set_this_parameter (_tmp21_, _tmp23_);
		_vala_code_node_unref0 (_tmp23_);
		_tmp24_ = self->priv->to_string_method;
		_tmp25_ = vala_symbol_get_scope ((ValaSymbol*) _tmp24_);
		_tmp26_ = _tmp25_;
		_tmp27_ = self->priv->to_string_method;
		_tmp28_ = vala_method_get_this_parameter (_tmp27_);
		_tmp29_ = _tmp28_;
		_tmp30_ = vala_symbol_get_name ((ValaSymbol*) _tmp29_);
		_tmp31_ = _tmp30_;
		_tmp32_ = self->priv->to_string_method;
		_tmp33_ = vala_method_get_this_parameter (_tmp32_);
		_tmp34_ = _tmp33_;
		vala_scope_add (_tmp26_, _tmp31_, (ValaSymbol*) _tmp34_);
		_vala_code_node_unref0 (string_type);
	}
	_tmp35_ = self->priv->to_string_method;
	_tmp36_ = _vala_code_node_ref0 (_tmp35_);
	result = _tmp36_;
	return result;
}