matiec: stage4/generate_cc/st_code_gen.c@9f3d6c089533 (annotated)

33 4507beb2aac6 preliminary std lib support for ST etisserant parents: diff changeset	1
4507beb2aac6 preliminary std lib support for ST etisserant parents: diff changeset	2	/****
4507beb2aac6 preliminary std lib support for ST etisserant parents: diff changeset	3	* IEC 61131-3 standard function lib
4507beb2aac6 preliminary std lib support for ST etisserant parents: diff changeset	4	* generated code, do not edit by hand
4507beb2aac6 preliminary std lib support for ST etisserant parents: diff changeset	5	*/
4507beb2aac6 preliminary std lib support for ST etisserant parents: diff changeset	6	switch(current_function_type){
4507beb2aac6 preliminary std lib support for ST etisserant parents: diff changeset	7
4507beb2aac6 preliminary std lib support for ST etisserant parents: diff changeset	8	/****
35 9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	9	*REAL_TO_LREAL
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	10	*/
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	11	case function_real_to_lreal :
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	12	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	13	symbol_c *last_type_symbol = NULL;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	14
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	15	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	16	identifier_c param_name("IN");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	17	/* Get the value from a foo(<param_name> = <param_value>) style call */
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	18	symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	19
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	20	/* Get the value from a foo(<param_value>) style call */
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	21	if (IN_param_value == NULL)
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	22	IN_param_value = function_call_param_iterator.next();
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	23	symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	24	last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	25
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	26	if (typeid(*last_type_symbol) == typeid(real_type_name_c))
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	27	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	28
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	29	symbol_c * return_type_symbol = &search_constant_type_c::lreal_type_name;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	30	s4o.print("(");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	31	return_type_symbol->accept(*this);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	32	s4o.print(")");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	33	IN_param_value->accept(*this);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	34	return NULL;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	35
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	36	}
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	37
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	38	ERROR;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	39	}
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	40
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	41	}/function_real_to_lreal/
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	42	break;
33 4507beb2aac6 preliminary std lib support for ST etisserant parents: diff changeset	43
4507beb2aac6 preliminary std lib support for ST etisserant parents: diff changeset	44	/****
4507beb2aac6 preliminary std lib support for ST etisserant parents: diff changeset	45	*REAL_TO_SINT
4507beb2aac6 preliminary std lib support for ST etisserant parents: diff changeset	46	*/
35 9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	47	case function_real_to_sint :
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	48	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	49	symbol_c *last_type_symbol = NULL;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	50
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	51	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	52	identifier_c param_name("IN");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	53	/* Get the value from a foo(<param_name> = <param_value>) style call */
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	54	symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	55
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	56	/* Get the value from a foo(<param_value>) style call */
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	57	if (IN_param_value == NULL)
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	58	IN_param_value = function_call_param_iterator.next();
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	59	symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	60	last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	61
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	62	if (typeid(*last_type_symbol) == typeid(real_type_name_c))
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	63	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	64
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	65	symbol_c * return_type_symbol = &search_constant_type_c::sint_type_name;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	66	s4o.print("(");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	67	return_type_symbol->accept(*this);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	68	s4o.print(")");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	69	IN_param_value->accept(*this);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	70	return NULL;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	71
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	72	}
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	73
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	74	ERROR;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	75	}
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	76
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	77	}/function_real_to_sint/
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	78	break;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	79
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	80	/****
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	81	*REAL_TO_INT
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	82	*/
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	83	case function_real_to_int :
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	84	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	85	symbol_c *last_type_symbol = NULL;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	86
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	87	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	88	identifier_c param_name("IN");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	89	/* Get the value from a foo(<param_name> = <param_value>) style call */
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	90	symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	91
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	92	/* Get the value from a foo(<param_value>) style call */
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	93	if (IN_param_value == NULL)
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	94	IN_param_value = function_call_param_iterator.next();
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	95	symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	96	last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	97
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	98	if (typeid(*last_type_symbol) == typeid(real_type_name_c))
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	99	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	100
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	101	symbol_c * return_type_symbol = &search_constant_type_c::int_type_name;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	102	s4o.print("(");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	103	return_type_symbol->accept(*this);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	104	s4o.print(")");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	105	IN_param_value->accept(*this);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	106	return NULL;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	107
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	108	}
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	109
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	110	ERROR;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	111	}
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	112
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	113	}/function_real_to_int/
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	114	break;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	115
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	116	/****
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	117	*REAL_TO_DINT
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	118	*/
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	119	case function_real_to_dint :
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	120	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	121	symbol_c *last_type_symbol = NULL;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	122
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	123	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	124	identifier_c param_name("IN");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	125	/* Get the value from a foo(<param_name> = <param_value>) style call */
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	126	symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	127
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	128	/* Get the value from a foo(<param_value>) style call */
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	129	if (IN_param_value == NULL)
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	130	IN_param_value = function_call_param_iterator.next();
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	131	symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	132	last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	133
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	134	if (typeid(*last_type_symbol) == typeid(real_type_name_c))
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	135	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	136
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	137	symbol_c * return_type_symbol = &search_constant_type_c::dint_type_name;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	138	s4o.print("(");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	139	return_type_symbol->accept(*this);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	140	s4o.print(")");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	141	IN_param_value->accept(*this);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	142	return NULL;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	143
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	144	}
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	145
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	146	ERROR;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	147	}
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	148
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	149	}/function_real_to_dint/
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	150	break;
33 4507beb2aac6 preliminary std lib support for ST etisserant parents: diff changeset	151
4507beb2aac6 preliminary std lib support for ST etisserant parents: diff changeset	152	/****
4507beb2aac6 preliminary std lib support for ST etisserant parents: diff changeset	153	*REAL_TO_LINT
4507beb2aac6 preliminary std lib support for ST etisserant parents: diff changeset	154	*/
35 9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	155	case function_real_to_lint :
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	156	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	157	symbol_c *last_type_symbol = NULL;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	158
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	159	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	160	identifier_c param_name("IN");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	161	/* Get the value from a foo(<param_name> = <param_value>) style call */
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	162	symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	163
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	164	/* Get the value from a foo(<param_value>) style call */
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	165	if (IN_param_value == NULL)
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	166	IN_param_value = function_call_param_iterator.next();
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	167	symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	168	last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	169
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	170	if (typeid(*last_type_symbol) == typeid(real_type_name_c))
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	171	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	172
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	173	symbol_c * return_type_symbol = &search_constant_type_c::lint_type_name;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	174	s4o.print("(");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	175	return_type_symbol->accept(*this);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	176	s4o.print(")");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	177	IN_param_value->accept(*this);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	178	return NULL;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	179
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	180	}
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	181
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	182	ERROR;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	183	}
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	184
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	185	}/function_real_to_lint/
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	186	break;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	187
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	188	/****
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	189	*REAL_TO_USINT
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	190	*/
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	191	case function_real_to_usint :
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	192	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	193	symbol_c *last_type_symbol = NULL;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	194
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	195	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	196	identifier_c param_name("IN");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	197	/* Get the value from a foo(<param_name> = <param_value>) style call */
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	198	symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	199
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	200	/* Get the value from a foo(<param_value>) style call */
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	201	if (IN_param_value == NULL)
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	202	IN_param_value = function_call_param_iterator.next();
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	203	symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	204	last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	205
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	206	if (typeid(*last_type_symbol) == typeid(real_type_name_c))
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	207	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	208
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	209	symbol_c * return_type_symbol = &search_constant_type_c::usint_type_name;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	210	s4o.print("(");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	211	return_type_symbol->accept(*this);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	212	s4o.print(")");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	213	IN_param_value->accept(*this);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	214	return NULL;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	215
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	216	}
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	217
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	218	ERROR;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	219	}
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	220
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	221	}/function_real_to_usint/
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	222	break;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	223
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	224	/****
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	225	*REAL_TO_UINT
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	226	*/
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	227	case function_real_to_uint :
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	228	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	229	symbol_c *last_type_symbol = NULL;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	230
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	231	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	232	identifier_c param_name("IN");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	233	/* Get the value from a foo(<param_name> = <param_value>) style call */
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	234	symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	235
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	236	/* Get the value from a foo(<param_value>) style call */
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	237	if (IN_param_value == NULL)
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	238	IN_param_value = function_call_param_iterator.next();
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	239	symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	240	last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	241
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	242	if (typeid(*last_type_symbol) == typeid(real_type_name_c))
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	243	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	244
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	245	symbol_c * return_type_symbol = &search_constant_type_c::uint_type_name;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	246	s4o.print("(");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	247	return_type_symbol->accept(*this);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	248	s4o.print(")");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	249	IN_param_value->accept(*this);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	250	return NULL;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	251
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	252	}
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	253
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	254	ERROR;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	255	}
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	256
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	257	}/function_real_to_uint/
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	258	break;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	259
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	260	/****
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	261	*REAL_TO_UDINT
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	262	*/
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	263	case function_real_to_udint :
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	264	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	265	symbol_c *last_type_symbol = NULL;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	266
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	267	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	268	identifier_c param_name("IN");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	269	/* Get the value from a foo(<param_name> = <param_value>) style call */
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	270	symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	271
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	272	/* Get the value from a foo(<param_value>) style call */
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	273	if (IN_param_value == NULL)
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	274	IN_param_value = function_call_param_iterator.next();
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	275	symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	276	last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	277
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	278	if (typeid(*last_type_symbol) == typeid(real_type_name_c))
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	279	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	280
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	281	symbol_c * return_type_symbol = &search_constant_type_c::udint_type_name;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	282	s4o.print("(");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	283	return_type_symbol->accept(*this);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	284	s4o.print(")");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	285	IN_param_value->accept(*this);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	286	return NULL;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	287
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	288	}
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	289
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	290	ERROR;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	291	}
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	292
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	293	}/function_real_to_udint/
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	294	break;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	295
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	296	/****
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	297	*REAL_TO_ULINT
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	298	*/
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	299	case function_real_to_ulint :
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	300	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	301	symbol_c *last_type_symbol = NULL;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	302
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	303	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	304	identifier_c param_name("IN");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	305	/* Get the value from a foo(<param_name> = <param_value>) style call */
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	306	symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	307
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	308	/* Get the value from a foo(<param_value>) style call */
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	309	if (IN_param_value == NULL)
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	310	IN_param_value = function_call_param_iterator.next();
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	311	symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	312	last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	313
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	314	if (typeid(*last_type_symbol) == typeid(real_type_name_c))
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	315	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	316
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	317	symbol_c * return_type_symbol = &search_constant_type_c::ulint_type_name;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	318	s4o.print("(");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	319	return_type_symbol->accept(*this);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	320	s4o.print(")");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	321	IN_param_value->accept(*this);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	322	return NULL;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	323
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	324	}
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	325
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	326	ERROR;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	327	}
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	328
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	329	}/function_real_to_ulint/
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	330	break;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	331
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	332	/****
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	333	*REAL_TO_TIME
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	334	*/
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	335	case function_real_to_time :
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	336	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	337	symbol_c *last_type_symbol = NULL;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	338
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	339	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	340	identifier_c param_name("IN");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	341	/* Get the value from a foo(<param_name> = <param_value>) style call */
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	342	symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	343
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	344	/* Get the value from a foo(<param_value>) style call */
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	345	if (IN_param_value == NULL)
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	346	IN_param_value = function_call_param_iterator.next();
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	347	symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	348	last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	349
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	350	if (typeid(*last_type_symbol) == typeid(real_type_name_c))
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	351	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	352
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	353	symbol_c * return_type_symbol = &search_constant_type_c::time_type_name;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	354	s4o.print("(");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	355	return_type_symbol->accept(*this);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	356	s4o.print(")real_to_time(");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	357	IN_param_value->accept(*this);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	358	s4o.print(")");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	359	return NULL;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	360
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	361	}
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	362
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	363	ERROR;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	364	}
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	365
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	366	}/function_real_to_time/
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	367	break;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	368
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	369	/****
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	370	*REAL_TO_BOOL
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	371	*/
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	372	case function_real_to_bool :
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	373	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	374	symbol_c *last_type_symbol = NULL;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	375
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	376	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	377	identifier_c param_name("IN");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	378	/* Get the value from a foo(<param_name> = <param_value>) style call */
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	379	symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	380
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	381	/* Get the value from a foo(<param_value>) style call */
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	382	if (IN_param_value == NULL)
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	383	IN_param_value = function_call_param_iterator.next();
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	384	symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	385	last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	386
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	387	if (typeid(*last_type_symbol) == typeid(real_type_name_c))
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	388	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	389
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	390	symbol_c * return_type_symbol = &search_constant_type_c::bool_type_name;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	391	s4o.print("(");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	392	return_type_symbol->accept(*this);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	393	s4o.print(")");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	394	IN_param_value->accept(*this);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	395	return NULL;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	396
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	397	}
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	398
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	399	ERROR;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	400	}
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	401
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	402	}/function_real_to_bool/
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	403	break;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	404
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	405	/****
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	406	*REAL_TO_BYTE
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	407	*/
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	408	case function_real_to_byte :
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	409	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	410	symbol_c *last_type_symbol = NULL;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	411
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	412	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	413	identifier_c param_name("IN");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	414	/* Get the value from a foo(<param_name> = <param_value>) style call */
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	415	symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	416
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	417	/* Get the value from a foo(<param_value>) style call */
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	418	if (IN_param_value == NULL)
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	419	IN_param_value = function_call_param_iterator.next();
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	420	symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	421	last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	422
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	423	if (typeid(*last_type_symbol) == typeid(real_type_name_c))
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	424	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	425
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	426	symbol_c * return_type_symbol = &search_constant_type_c::byte_type_name;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	427	s4o.print("(");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	428	return_type_symbol->accept(*this);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	429	s4o.print(")");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	430	IN_param_value->accept(*this);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	431	return NULL;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	432
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	433	}
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	434
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	435	ERROR;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	436	}
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	437
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	438	}/function_real_to_byte/
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	439	break;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	440
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	441	/****
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	442	*REAL_TO_WORD
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	443	*/
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	444	case function_real_to_word :
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	445	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	446	symbol_c *last_type_symbol = NULL;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	447
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	448	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	449	identifier_c param_name("IN");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	450	/* Get the value from a foo(<param_name> = <param_value>) style call */
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	451	symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	452
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	453	/* Get the value from a foo(<param_value>) style call */
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	454	if (IN_param_value == NULL)
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	455	IN_param_value = function_call_param_iterator.next();
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	456	symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	457	last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	458
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	459	if (typeid(*last_type_symbol) == typeid(real_type_name_c))
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	460	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	461
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	462	symbol_c * return_type_symbol = &search_constant_type_c::word_type_name;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	463	s4o.print("(");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	464	return_type_symbol->accept(*this);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	465	s4o.print(")");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	466	IN_param_value->accept(*this);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	467	return NULL;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	468
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	469	}
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	470
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	471	ERROR;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	472	}
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	473
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	474	}/function_real_to_word/
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	475	break;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	476
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	477	/****
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	478	*REAL_TO_DWORD
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	479	*/
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	480	case function_real_to_dword :
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	481	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	482	symbol_c *last_type_symbol = NULL;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	483
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	484	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	485	identifier_c param_name("IN");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	486	/* Get the value from a foo(<param_name> = <param_value>) style call */
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	487	symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	488
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	489	/* Get the value from a foo(<param_value>) style call */
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	490	if (IN_param_value == NULL)
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	491	IN_param_value = function_call_param_iterator.next();
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	492	symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	493	last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	494
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	495	if (typeid(*last_type_symbol) == typeid(real_type_name_c))
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	496	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	497
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	498	symbol_c * return_type_symbol = &search_constant_type_c::dword_type_name;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	499	s4o.print("(");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	500	return_type_symbol->accept(*this);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	501	s4o.print(")");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	502	IN_param_value->accept(*this);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	503	return NULL;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	504
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	505	}
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	506
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	507	ERROR;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	508	}
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	509
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	510	}/function_real_to_dword/
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	511	break;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	512
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	513	/****
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	514	*REAL_TO_LWORD
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	515	*/
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	516	case function_real_to_lword :
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	517	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	518	symbol_c *last_type_symbol = NULL;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	519
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	520	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	521	identifier_c param_name("IN");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	522	/* Get the value from a foo(<param_name> = <param_value>) style call */
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	523	symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	524
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	525	/* Get the value from a foo(<param_value>) style call */
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	526	if (IN_param_value == NULL)
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	527	IN_param_value = function_call_param_iterator.next();
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	528	symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	529	last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	530
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	531	if (typeid(*last_type_symbol) == typeid(real_type_name_c))
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	532	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	533
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	534	symbol_c * return_type_symbol = &search_constant_type_c::lword_type_name;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	535	s4o.print("(");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	536	return_type_symbol->accept(*this);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	537	s4o.print(")");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	538	IN_param_value->accept(*this);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	539	return NULL;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	540
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	541	}
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	542
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	543	ERROR;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	544	}
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	545
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	546	}/function_real_to_lword/
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	547	break;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	548
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	549	/****
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	550	*REAL_TO_STRING
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	551	*/
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	552	case function_real_to_string :
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	553	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	554	symbol_c *last_type_symbol = NULL;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	555
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	556	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	557	identifier_c param_name("IN");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	558	/* Get the value from a foo(<param_name> = <param_value>) style call */
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	559	symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	560
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	561	/* Get the value from a foo(<param_value>) style call */
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	562	if (IN_param_value == NULL)
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	563	IN_param_value = function_call_param_iterator.next();
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	564	symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	565	last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	566
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	567	if (typeid(*last_type_symbol) == typeid(real_type_name_c))
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	568	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	569
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	570	symbol_c * return_type_symbol = &search_constant_type_c::string_type_name;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	571	s4o.print("(");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	572	return_type_symbol->accept(*this);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	573	s4o.print(")int_to_string(");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	574	IN_param_value->accept(*this);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	575	s4o.print(", 10)");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	576	return NULL;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	577
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	578	}
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	579
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	580	ERROR;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	581	}
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	582
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	583	}/function_real_to_string/
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	584	break;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	585
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	586	/****
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	587	*REAL_TO_WSTRING
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	588	*/
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	589	case function_real_to_wstring :
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	590	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	591	symbol_c *last_type_symbol = NULL;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	592
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	593	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	594	identifier_c param_name("IN");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	595	/* Get the value from a foo(<param_name> = <param_value>) style call */
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	596	symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	597
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	598	/* Get the value from a foo(<param_value>) style call */
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	599	if (IN_param_value == NULL)
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	600	IN_param_value = function_call_param_iterator.next();
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	601	symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	602	last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	603
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	604	if (typeid(*last_type_symbol) == typeid(real_type_name_c))
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	605	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	606
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	607	symbol_c * return_type_symbol = &search_constant_type_c::wstring_type_name;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	608	s4o.print("(");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	609	return_type_symbol->accept(*this);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	610	s4o.print(")int_to_string(");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	611	IN_param_value->accept(*this);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	612	s4o.print(", 10)");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	613	return NULL;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	614
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	615	}
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	616
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	617	ERROR;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	618	}
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	619
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	620	}/function_real_to_wstring/
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	621	break;
33 4507beb2aac6 preliminary std lib support for ST etisserant parents: diff changeset	622
4507beb2aac6 preliminary std lib support for ST etisserant parents: diff changeset	623	/****
4507beb2aac6 preliminary std lib support for ST etisserant parents: diff changeset	624	*REAL_TO_DATE
4507beb2aac6 preliminary std lib support for ST etisserant parents: diff changeset	625	*/
35 9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	626	case function_real_to_date :
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	627	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	628	symbol_c *last_type_symbol = NULL;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	629
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	630	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	631	identifier_c param_name("IN");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	632	/* Get the value from a foo(<param_name> = <param_value>) style call */
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	633	symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	634
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	635	/* Get the value from a foo(<param_value>) style call */
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	636	if (IN_param_value == NULL)
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	637	IN_param_value = function_call_param_iterator.next();
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	638	symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	639	last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	640
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	641	if (typeid(*last_type_symbol) == typeid(real_type_name_c))
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	642	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	643
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	644	symbol_c * return_type_symbol = &search_constant_type_c::date_type_name;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	645	s4o.print("(");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	646	return_type_symbol->accept(*this);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	647	s4o.print(")real_to_time(");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	648	IN_param_value->accept(*this);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	649	s4o.print(")");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	650	return NULL;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	651
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	652	}
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	653
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	654	ERROR;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	655	}
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	656
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	657	}/function_real_to_date/
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	658	break;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	659
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	660	/****
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	661	*REAL_TO_TOD
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	662	*/
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	663	case function_real_to_tod :
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	664	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	665	symbol_c *last_type_symbol = NULL;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	666
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	667	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	668	identifier_c param_name("IN");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	669	/* Get the value from a foo(<param_name> = <param_value>) style call */
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	670	symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	671
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	672	/* Get the value from a foo(<param_value>) style call */
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	673	if (IN_param_value == NULL)
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	674	IN_param_value = function_call_param_iterator.next();
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	675	symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	676	last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	677
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	678	if (typeid(*last_type_symbol) == typeid(real_type_name_c))
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	679	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	680
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	681	symbol_c * return_type_symbol = &search_constant_type_c::tod_type_name;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	682	s4o.print("(");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	683	return_type_symbol->accept(*this);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	684	s4o.print(")real_to_time(");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	685	IN_param_value->accept(*this);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	686	s4o.print(")");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	687	return NULL;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	688
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	689	}
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	690
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	691	ERROR;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	692	}
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	693
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	694	}/function_real_to_tod/
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	695	break;
33 4507beb2aac6 preliminary std lib support for ST etisserant parents: diff changeset	696
4507beb2aac6 preliminary std lib support for ST etisserant parents: diff changeset	697	/****
4507beb2aac6 preliminary std lib support for ST etisserant parents: diff changeset	698	*REAL_TO_DT
4507beb2aac6 preliminary std lib support for ST etisserant parents: diff changeset	699	*/
35 9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	700	case function_real_to_dt :
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	701	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	702	symbol_c *last_type_symbol = NULL;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	703
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	704	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	705	identifier_c param_name("IN");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	706	/* Get the value from a foo(<param_name> = <param_value>) style call */
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	707	symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	708
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	709	/* Get the value from a foo(<param_value>) style call */
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	710	if (IN_param_value == NULL)
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	711	IN_param_value = function_call_param_iterator.next();
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	712	symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	713	last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	714
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	715	if (typeid(*last_type_symbol) == typeid(real_type_name_c))
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	716	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	717
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	718	symbol_c * return_type_symbol = &search_constant_type_c::dt_type_name;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	719	s4o.print("(");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	720	return_type_symbol->accept(*this);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	721	s4o.print(")real_to_time(");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	722	IN_param_value->accept(*this);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	723	s4o.print(")");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	724	return NULL;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	725
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	726	}
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	727
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	728	ERROR;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	729	}
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	730
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	731	}/function_real_to_dt/
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	732	break;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	733
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	734	/****
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	735	*LREAL_TO_REAL
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	736	*/
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	737	case function_lreal_to_real :
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	738	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	739	symbol_c *last_type_symbol = NULL;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	740
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	741	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	742	identifier_c param_name("IN");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	743	/* Get the value from a foo(<param_name> = <param_value>) style call */
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	744	symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	745
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	746	/* Get the value from a foo(<param_value>) style call */
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	747	if (IN_param_value == NULL)
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	748	IN_param_value = function_call_param_iterator.next();
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	749	symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	750	last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	751
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	752	if (typeid(*last_type_symbol) == typeid(lreal_type_name_c))
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	753	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	754
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	755	symbol_c * return_type_symbol = &search_constant_type_c::real_type_name;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	756	s4o.print("(");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	757	return_type_symbol->accept(*this);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	758	s4o.print(")");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	759	IN_param_value->accept(*this);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	760	return NULL;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	761
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	762	}
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	763
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	764	ERROR;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	765	}
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	766
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	767	}/function_lreal_to_real/
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	768	break;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	769
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	770	/****
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	771	*LREAL_TO_SINT
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	772	*/
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	773	case function_lreal_to_sint :
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	774	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	775	symbol_c *last_type_symbol = NULL;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	776
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	777	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	778	identifier_c param_name("IN");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	779	/* Get the value from a foo(<param_name> = <param_value>) style call */
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	780	symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	781
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	782	/* Get the value from a foo(<param_value>) style call */
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	783	if (IN_param_value == NULL)
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	784	IN_param_value = function_call_param_iterator.next();
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	785	symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	786	last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	787
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	788	if (typeid(*last_type_symbol) == typeid(lreal_type_name_c))
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	789	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	790
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	791	symbol_c * return_type_symbol = &search_constant_type_c::sint_type_name;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	792	s4o.print("(");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	793	return_type_symbol->accept(*this);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	794	s4o.print(")");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	795	IN_param_value->accept(*this);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	796	return NULL;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	797
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	798	}
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	799
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	800	ERROR;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	801	}
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	802
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	803	}/function_lreal_to_sint/
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	804	break;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	805
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	806	/****
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	807	*LREAL_TO_INT
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	808	*/
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	809	case function_lreal_to_int :
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	810	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	811	symbol_c *last_type_symbol = NULL;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	812
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	813	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	814	identifier_c param_name("IN");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	815	/* Get the value from a foo(<param_name> = <param_value>) style call */
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	816	symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	817
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	818	/* Get the value from a foo(<param_value>) style call */
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	819	if (IN_param_value == NULL)
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	820	IN_param_value = function_call_param_iterator.next();
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	821	symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	822	last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	823
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	824	if (typeid(*last_type_symbol) == typeid(lreal_type_name_c))
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	825	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	826
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	827	symbol_c * return_type_symbol = &search_constant_type_c::int_type_name;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	828	s4o.print("(");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	829	return_type_symbol->accept(*this);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	830	s4o.print(")");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	831	IN_param_value->accept(*this);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	832	return NULL;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	833
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	834	}
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	835
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	836	ERROR;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	837	}
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	838
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	839	}/function_lreal_to_int/
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	840	break;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	841
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	842	/****
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	843	*LREAL_TO_DINT
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	844	*/
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	845	case function_lreal_to_dint :
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	846	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	847	symbol_c *last_type_symbol = NULL;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	848
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	849	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	850	identifier_c param_name("IN");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	851	/* Get the value from a foo(<param_name> = <param_value>) style call */
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	852	symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	853
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	854	/* Get the value from a foo(<param_value>) style call */
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	855	if (IN_param_value == NULL)
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	856	IN_param_value = function_call_param_iterator.next();
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	857	symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	858	last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	859
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	860	if (typeid(*last_type_symbol) == typeid(lreal_type_name_c))
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	861	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	862
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	863	symbol_c * return_type_symbol = &search_constant_type_c::dint_type_name;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	864	s4o.print("(");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	865	return_type_symbol->accept(*this);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	866	s4o.print(")");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	867	IN_param_value->accept(*this);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	868	return NULL;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	869
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	870	}
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	871
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	872	ERROR;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	873	}
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	874
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	875	}/function_lreal_to_dint/
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	876	break;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	877
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	878	/****
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	879	*LREAL_TO_LINT
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	880	*/
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	881	case function_lreal_to_lint :
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	882	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	883	symbol_c *last_type_symbol = NULL;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	884
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	885	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	886	identifier_c param_name("IN");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	887	/* Get the value from a foo(<param_name> = <param_value>) style call */
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	888	symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	889
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	890	/* Get the value from a foo(<param_value>) style call */
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	891	if (IN_param_value == NULL)
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	892	IN_param_value = function_call_param_iterator.next();
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	893	symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	894	last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	895
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	896	if (typeid(*last_type_symbol) == typeid(lreal_type_name_c))
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	897	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	898
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	899	symbol_c * return_type_symbol = &search_constant_type_c::lint_type_name;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	900	s4o.print("(");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	901	return_type_symbol->accept(*this);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	902	s4o.print(")");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	903	IN_param_value->accept(*this);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	904	return NULL;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	905
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	906	}
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	907
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	908	ERROR;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	909	}
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	910
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	911	}/function_lreal_to_lint/
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	912	break;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	913
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	914	/****
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	915	*LREAL_TO_USINT
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	916	*/
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	917	case function_lreal_to_usint :
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	918	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	919	symbol_c *last_type_symbol = NULL;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	920
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	921	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	922	identifier_c param_name("IN");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	923	/* Get the value from a foo(<param_name> = <param_value>) style call */
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	924	symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	925
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	926	/* Get the value from a foo(<param_value>) style call */
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	927	if (IN_param_value == NULL)
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	928	IN_param_value = function_call_param_iterator.next();
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	929	symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	930	last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	931
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	932	if (typeid(*last_type_symbol) == typeid(lreal_type_name_c))
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	933	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	934
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	935	symbol_c * return_type_symbol = &search_constant_type_c::usint_type_name;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	936	s4o.print("(");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	937	return_type_symbol->accept(*this);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	938	s4o.print(")");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	939	IN_param_value->accept(*this);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	940	return NULL;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	941
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	942	}
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	943
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	944	ERROR;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	945	}
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	946
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	947	}/function_lreal_to_usint/
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	948	break;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	949
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	950	/****
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	951	*LREAL_TO_UINT
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	952	*/
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	953	case function_lreal_to_uint :
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	954	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	955	symbol_c *last_type_symbol = NULL;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	956
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	957	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	958	identifier_c param_name("IN");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	959	/* Get the value from a foo(<param_name> = <param_value>) style call */
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	960	symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	961
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	962	/* Get the value from a foo(<param_value>) style call */
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	963	if (IN_param_value == NULL)
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	964	IN_param_value = function_call_param_iterator.next();
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	965	symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	966	last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	967
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	968	if (typeid(*last_type_symbol) == typeid(lreal_type_name_c))
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	969	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	970
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	971	symbol_c * return_type_symbol = &search_constant_type_c::uint_type_name;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	972	s4o.print("(");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	973	return_type_symbol->accept(*this);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	974	s4o.print(")");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	975	IN_param_value->accept(*this);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	976	return NULL;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	977
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	978	}
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	979
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	980	ERROR;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	981	}
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	982
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	983	}/function_lreal_to_uint/
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	984	break;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	985
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	986	/****
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	987	*LREAL_TO_UDINT
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	988	*/
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	989	case function_lreal_to_udint :
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	990	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	991	symbol_c *last_type_symbol = NULL;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	992
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	993	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	994	identifier_c param_name("IN");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	995	/* Get the value from a foo(<param_name> = <param_value>) style call */
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	996	symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	997
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	998	/* Get the value from a foo(<param_value>) style call */
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	999	if (IN_param_value == NULL)
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	1000	IN_param_value = function_call_param_iterator.next();
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	1001	symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	1002	last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	1003
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	1004	if (typeid(*last_type_symbol) == typeid(lreal_type_name_c))
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	1005	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	1006
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	1007	symbol_c * return_type_symbol = &search_constant_type_c::udint_type_name;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	1008	s4o.print("(");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	1009	return_type_symbol->accept(*this);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	1010	s4o.print(")");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	1011	IN_param_value->accept(*this);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	1012	return NULL;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	1013
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	1014	}
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	1015
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	1016	ERROR;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	1017	}
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	1018
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	1019	}/function_lreal_to_udint/
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	1020	break;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	1021
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	1022	/****
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	1023	*LREAL_TO_ULINT
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	1024	*/
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	1025	case function_lreal_to_ulint :
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	1026	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	1027	symbol_c *last_type_symbol = NULL;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	1028
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	1029	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	1030	identifier_c param_name("IN");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	1031	/* Get the value from a foo(<param_name> = <param_value>) style call */
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	1032	symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	1033
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	1034	/* Get the value from a foo(<param_value>) style call */
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	1035	if (IN_param_value == NULL)
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	1036	IN_param_value = function_call_param_iterator.next();
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	1037	symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	1038	last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	1039
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	1040	if (typeid(*last_type_symbol) == typeid(lreal_type_name_c))
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	1041	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	1042
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	1043	symbol_c * return_type_symbol = &search_constant_type_c::ulint_type_name;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	1044	s4o.print("(");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	1045	return_type_symbol->accept(*this);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	1046	s4o.print(")");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	1047	IN_param_value->accept(*this);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	1048	return NULL;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	1049
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	1050	}
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	1051
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	1052	ERROR;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	1053	}
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	1054
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	1055	}/function_lreal_to_ulint/
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	1056	break;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	1057
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	1058	/****
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	1059	*LREAL_TO_TIME
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	1060	*/
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	1061	case function_lreal_to_time :
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	1062	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	1063	symbol_c *last_type_symbol = NULL;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	1064
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	1065	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	1066	identifier_c param_name("IN");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	1067	/* Get the value from a foo(<param_name> = <param_value>) style call */
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	1068	symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	1069
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	1070	/* Get the value from a foo(<param_value>) style call */
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	1071	if (IN_param_value == NULL)
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	1072	IN_param_value = function_call_param_iterator.next();
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	1073	symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	1074	last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	1075
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	1076	if (typeid(*last_type_symbol) == typeid(lreal_type_name_c))
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	1077	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	1078
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	1079	symbol_c * return_type_symbol = &search_constant_type_c::time_type_name;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	1080	s4o.print("(");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	1081	return_type_symbol->accept(*this);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	1082	s4o.print(")real_to_time(");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	1083	IN_param_value->accept(*this);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	1084	s4o.print(")");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	1085	return NULL;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	1086
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	1087	}
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	1088
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	1089	ERROR;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	1090	}
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	1091
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	1092	}/function_lreal_to_time/
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	1093	break;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	1094
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	1095	/****
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	1096	*LREAL_TO_BOOL
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	1097	*/
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	1098	case function_lreal_to_bool :
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	1099	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	1100	symbol_c *last_type_symbol = NULL;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	1101
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	1102	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	1103	identifier_c param_name("IN");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	1104	/* Get the value from a foo(<param_name> = <param_value>) style call */
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	1105	symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	1106
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	1107	/* Get the value from a foo(<param_value>) style call */
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	1108	if (IN_param_value == NULL)
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	1109	IN_param_value = function_call_param_iterator.next();
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	1110	symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	1111	last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	1112
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	1113	if (typeid(*last_type_symbol) == typeid(lreal_type_name_c))
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	1114	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	1115
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	1116	symbol_c * return_type_symbol = &search_constant_type_c::bool_type_name;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	1117	s4o.print("(");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	1118	return_type_symbol->accept(*this);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	1119	s4o.print(")");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	1120	IN_param_value->accept(*this);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	1121	return NULL;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	1122
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	1123	}
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	1124
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	1125	ERROR;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	1126	}
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	1127
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	1128	}/function_lreal_to_bool/
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	1129	break;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	1130
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	1131	/****
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	1132	*LREAL_TO_BYTE
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	1133	*/
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	1134	case function_lreal_to_byte :
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	1135	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	1136	symbol_c *last_type_symbol = NULL;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	1137
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	1138	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	1139	identifier_c param_name("IN");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	1140	/* Get the value from a foo(<param_name> = <param_value>) style call */
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	1141	symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	1142
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	1143	/* Get the value from a foo(<param_value>) style call */
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	1144	if (IN_param_value == NULL)
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	1145	IN_param_value = function_call_param_iterator.next();
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	1146	symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	1147	last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	1148
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	1149	if (typeid(*last_type_symbol) == typeid(lreal_type_name_c))
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	1150	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	1151
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	1152	symbol_c * return_type_symbol = &search_constant_type_c::byte_type_name;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	1153	s4o.print("(");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	1154	return_type_symbol->accept(*this);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	1155	s4o.print(")");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	1156	IN_param_value->accept(*this);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	1157	return NULL;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	1158
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	1159	}
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	1160
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	1161	ERROR;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	1162	}
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	1163
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	1164	}/function_lreal_to_byte/
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	1165	break;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	1166
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	1167	/****
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	1168	*LREAL_TO_WORD
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	1169	*/
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	1170	case function_lreal_to_word :
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	1171	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	1172	symbol_c *last_type_symbol = NULL;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	1173
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	1174	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	1175	identifier_c param_name("IN");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	1176	/* Get the value from a foo(<param_name> = <param_value>) style call */
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	1177	symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	1178
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	1179	/* Get the value from a foo(<param_value>) style call */
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	1180	if (IN_param_value == NULL)
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	1181	IN_param_value = function_call_param_iterator.next();
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	1182	symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	1183	last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	1184
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	1185	if (typeid(*last_type_symbol) == typeid(lreal_type_name_c))
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	1186	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	1187
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	1188	symbol_c * return_type_symbol = &search_constant_type_c::word_type_name;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	1189	s4o.print("(");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	1190	return_type_symbol->accept(*this);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	1191	s4o.print(")");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	1192	IN_param_value->accept(*this);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	1193	return NULL;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	1194
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	1195	}
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	1196
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	1197	ERROR;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	1198	}
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	1199
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	1200	}/function_lreal_to_word/
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	1201	break;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	1202
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	1203	/****
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	1204	*LREAL_TO_DWORD
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	1205	*/
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	1206	case function_lreal_to_dword :
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	1207	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	1208	symbol_c *last_type_symbol = NULL;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	1209
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	1210	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	1211	identifier_c param_name("IN");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	1212	/* Get the value from a foo(<param_name> = <param_value>) style call */
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	1213	symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	1214
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	1215	/* Get the value from a foo(<param_value>) style call */
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	1216	if (IN_param_value == NULL)
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	1217	IN_param_value = function_call_param_iterator.next();
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	1218	symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	1219	last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	1220
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	1221	if (typeid(*last_type_symbol) == typeid(lreal_type_name_c))
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	1222	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	1223
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	1224	symbol_c * return_type_symbol = &search_constant_type_c::dword_type_name;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	1225	s4o.print("(");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	1226	return_type_symbol->accept(*this);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	1227	s4o.print(")");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	1228	IN_param_value->accept(*this);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	1229	return NULL;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	1230
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	1231	}
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	1232
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	1233	ERROR;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	1234	}
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	1235
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	1236	}/function_lreal_to_dword/
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	1237	break;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	1238
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	1239	/****
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	1240	*LREAL_TO_LWORD
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	1241	*/
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	1242	case function_lreal_to_lword :
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	1243	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	1244	symbol_c *last_type_symbol = NULL;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	1245
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	1246	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	1247	identifier_c param_name("IN");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	1248	/* Get the value from a foo(<param_name> = <param_value>) style call */
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	1249	symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	1250
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	1251	/* Get the value from a foo(<param_value>) style call */
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	1252	if (IN_param_value == NULL)
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	1253	IN_param_value = function_call_param_iterator.next();
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	1254	symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	1255	last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	1256
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	1257	if (typeid(*last_type_symbol) == typeid(lreal_type_name_c))
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	1258	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	1259
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	1260	symbol_c * return_type_symbol = &search_constant_type_c::lword_type_name;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	1261	s4o.print("(");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	1262	return_type_symbol->accept(*this);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	1263	s4o.print(")");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	1264	IN_param_value->accept(*this);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	1265	return NULL;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	1266
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	1267	}
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	1268
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	1269	ERROR;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	1270	}
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	1271
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	1272	}/function_lreal_to_lword/
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	1273	break;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	1274
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	1275	/****
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	1276	*LREAL_TO_STRING
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	1277	*/
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	1278	case function_lreal_to_string :
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	1279	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	1280	symbol_c *last_type_symbol = NULL;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	1281
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	1282	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	1283	identifier_c param_name("IN");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	1284	/* Get the value from a foo(<param_name> = <param_value>) style call */
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	1285	symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	1286
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	1287	/* Get the value from a foo(<param_value>) style call */
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	1288	if (IN_param_value == NULL)
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	1289	IN_param_value = function_call_param_iterator.next();
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	1290	symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	1291	last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	1292
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	1293	if (typeid(*last_type_symbol) == typeid(lreal_type_name_c))
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	1294	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	1295
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	1296	symbol_c * return_type_symbol = &search_constant_type_c::string_type_name;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	1297	s4o.print("(");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	1298	return_type_symbol->accept(*this);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	1299	s4o.print(")int_to_string(");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	1300	IN_param_value->accept(*this);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	1301	s4o.print(", 10)");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	1302	return NULL;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	1303
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	1304	}
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	1305
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	1306	ERROR;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	1307	}
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	1308
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	1309	}/function_lreal_to_string/
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	1310	break;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	1311
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	1312	/****
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	1313	*LREAL_TO_WSTRING
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	1314	*/
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	1315	case function_lreal_to_wstring :
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	1316	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	1317	symbol_c *last_type_symbol = NULL;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	1318
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	1319	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	1320	identifier_c param_name("IN");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	1321	/* Get the value from a foo(<param_name> = <param_value>) style call */
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	1322	symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	1323
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	1324	/* Get the value from a foo(<param_value>) style call */
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	1325	if (IN_param_value == NULL)
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	1326	IN_param_value = function_call_param_iterator.next();
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	1327	symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	1328	last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	1329
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	1330	if (typeid(*last_type_symbol) == typeid(lreal_type_name_c))
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	1331	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	1332
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	1333	symbol_c * return_type_symbol = &search_constant_type_c::wstring_type_name;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	1334	s4o.print("(");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	1335	return_type_symbol->accept(*this);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	1336	s4o.print(")int_to_string(");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	1337	IN_param_value->accept(*this);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	1338	s4o.print(", 10)");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	1339	return NULL;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	1340
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	1341	}
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	1342
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	1343	ERROR;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	1344	}
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	1345
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	1346	}/function_lreal_to_wstring/
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	1347	break;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	1348
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	1349	/****
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	1350	*LREAL_TO_DATE
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	1351	*/
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	1352	case function_lreal_to_date :
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	1353	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	1354	symbol_c *last_type_symbol = NULL;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	1355
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	1356	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	1357	identifier_c param_name("IN");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	1358	/* Get the value from a foo(<param_name> = <param_value>) style call */
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	1359	symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	1360
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	1361	/* Get the value from a foo(<param_value>) style call */
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	1362	if (IN_param_value == NULL)
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	1363	IN_param_value = function_call_param_iterator.next();
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	1364	symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	1365	last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	1366
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	1367	if (typeid(*last_type_symbol) == typeid(lreal_type_name_c))
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	1368	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	1369
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	1370	symbol_c * return_type_symbol = &search_constant_type_c::date_type_name;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	1371	s4o.print("(");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	1372	return_type_symbol->accept(*this);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	1373	s4o.print(")real_to_time(");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	1374	IN_param_value->accept(*this);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	1375	s4o.print(")");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	1376	return NULL;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	1377
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	1378	}
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	1379
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	1380	ERROR;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	1381	}
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	1382
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	1383	}/function_lreal_to_date/
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	1384	break;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	1385
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	1386	/****
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	1387	*LREAL_TO_TOD
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	1388	*/
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	1389	case function_lreal_to_tod :
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	1390	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	1391	symbol_c *last_type_symbol = NULL;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	1392
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	1393	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	1394	identifier_c param_name("IN");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	1395	/* Get the value from a foo(<param_name> = <param_value>) style call */
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	1396	symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	1397
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	1398	/* Get the value from a foo(<param_value>) style call */
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	1399	if (IN_param_value == NULL)
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	1400	IN_param_value = function_call_param_iterator.next();
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	1401	symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	1402	last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	1403
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	1404	if (typeid(*last_type_symbol) == typeid(lreal_type_name_c))
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	1405	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	1406
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	1407	symbol_c * return_type_symbol = &search_constant_type_c::tod_type_name;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	1408	s4o.print("(");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	1409	return_type_symbol->accept(*this);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	1410	s4o.print(")real_to_time(");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	1411	IN_param_value->accept(*this);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	1412	s4o.print(")");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	1413	return NULL;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	1414
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	1415	}
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	1416
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	1417	ERROR;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	1418	}
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	1419
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	1420	}/function_lreal_to_tod/
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	1421	break;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	1422
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	1423	/****
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	1424	*LREAL_TO_DT
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	1425	*/
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	1426	case function_lreal_to_dt :
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	1427	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	1428	symbol_c *last_type_symbol = NULL;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	1429
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	1430	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	1431	identifier_c param_name("IN");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	1432	/* Get the value from a foo(<param_name> = <param_value>) style call */
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	1433	symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	1434
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	1435	/* Get the value from a foo(<param_value>) style call */
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	1436	if (IN_param_value == NULL)
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	1437	IN_param_value = function_call_param_iterator.next();
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	1438	symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	1439	last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	1440
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	1441	if (typeid(*last_type_symbol) == typeid(lreal_type_name_c))
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	1442	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	1443
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	1444	symbol_c * return_type_symbol = &search_constant_type_c::dt_type_name;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	1445	s4o.print("(");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	1446	return_type_symbol->accept(*this);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	1447	s4o.print(")real_to_time(");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	1448	IN_param_value->accept(*this);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	1449	s4o.print(")");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	1450	return NULL;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	1451
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	1452	}
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	1453
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	1454	ERROR;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	1455	}
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	1456
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	1457	}/function_lreal_to_dt/
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	1458	break;
33 4507beb2aac6 preliminary std lib support for ST etisserant parents: diff changeset	1459
4507beb2aac6 preliminary std lib support for ST etisserant parents: diff changeset	1460	/****
4507beb2aac6 preliminary std lib support for ST etisserant parents: diff changeset	1461	*SINT_TO_REAL
4507beb2aac6 preliminary std lib support for ST etisserant parents: diff changeset	1462	*/
35 9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	1463	case function_sint_to_real :
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	1464	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	1465	symbol_c *last_type_symbol = NULL;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	1466
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	1467	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	1468	identifier_c param_name("IN");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	1469	/* Get the value from a foo(<param_name> = <param_value>) style call */
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	1470	symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	1471
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	1472	/* Get the value from a foo(<param_value>) style call */
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	1473	if (IN_param_value == NULL)
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	1474	IN_param_value = function_call_param_iterator.next();
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	1475	symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	1476	last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	1477
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	1478	if (typeid(*last_type_symbol) == typeid(sint_type_name_c))
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	1479	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	1480
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	1481	symbol_c * return_type_symbol = &search_constant_type_c::real_type_name;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	1482	s4o.print("(");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	1483	return_type_symbol->accept(*this);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	1484	s4o.print(")");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	1485	IN_param_value->accept(*this);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	1486	return NULL;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	1487
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	1488	}
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	1489
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	1490	ERROR;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	1491	}
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	1492
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	1493	}/function_sint_to_real/
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	1494	break;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	1495
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	1496	/****
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	1497	*SINT_TO_LREAL
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	1498	*/
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	1499	case function_sint_to_lreal :
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	1500	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	1501	symbol_c *last_type_symbol = NULL;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	1502
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	1503	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	1504	identifier_c param_name("IN");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	1505	/* Get the value from a foo(<param_name> = <param_value>) style call */
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	1506	symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	1507
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	1508	/* Get the value from a foo(<param_value>) style call */
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	1509	if (IN_param_value == NULL)
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	1510	IN_param_value = function_call_param_iterator.next();
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	1511	symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	1512	last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	1513
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	1514	if (typeid(*last_type_symbol) == typeid(sint_type_name_c))
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	1515	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	1516
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	1517	symbol_c * return_type_symbol = &search_constant_type_c::lreal_type_name;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	1518	s4o.print("(");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	1519	return_type_symbol->accept(*this);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	1520	s4o.print(")");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	1521	IN_param_value->accept(*this);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	1522	return NULL;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	1523
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	1524	}
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	1525
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	1526	ERROR;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	1527	}
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	1528
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	1529	}/function_sint_to_lreal/
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	1530	break;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	1531
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	1532	/****
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	1533	*SINT_TO_INT
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	1534	*/
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	1535	case function_sint_to_int :
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	1536	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	1537	symbol_c *last_type_symbol = NULL;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	1538
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	1539	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	1540	identifier_c param_name("IN");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	1541	/* Get the value from a foo(<param_name> = <param_value>) style call */
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	1542	symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	1543
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	1544	/* Get the value from a foo(<param_value>) style call */
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	1545	if (IN_param_value == NULL)
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	1546	IN_param_value = function_call_param_iterator.next();
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	1547	symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	1548	last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	1549
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	1550	if (typeid(*last_type_symbol) == typeid(sint_type_name_c))
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	1551	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	1552
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	1553	symbol_c * return_type_symbol = &search_constant_type_c::int_type_name;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	1554	s4o.print("(");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	1555	return_type_symbol->accept(*this);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	1556	s4o.print(")");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	1557	IN_param_value->accept(*this);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	1558	return NULL;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	1559
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	1560	}
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	1561
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	1562	ERROR;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	1563	}
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	1564
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	1565	}/function_sint_to_int/
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	1566	break;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	1567
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	1568	/****
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	1569	*SINT_TO_DINT
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	1570	*/
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	1571	case function_sint_to_dint :
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	1572	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	1573	symbol_c *last_type_symbol = NULL;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	1574
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	1575	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	1576	identifier_c param_name("IN");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	1577	/* Get the value from a foo(<param_name> = <param_value>) style call */
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	1578	symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	1579
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	1580	/* Get the value from a foo(<param_value>) style call */
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	1581	if (IN_param_value == NULL)
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	1582	IN_param_value = function_call_param_iterator.next();
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	1583	symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	1584	last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	1585
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	1586	if (typeid(*last_type_symbol) == typeid(sint_type_name_c))
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	1587	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	1588
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	1589	symbol_c * return_type_symbol = &search_constant_type_c::dint_type_name;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	1590	s4o.print("(");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	1591	return_type_symbol->accept(*this);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	1592	s4o.print(")");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	1593	IN_param_value->accept(*this);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	1594	return NULL;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	1595
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	1596	}
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	1597
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	1598	ERROR;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	1599	}
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	1600
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	1601	}/function_sint_to_dint/
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	1602	break;
33 4507beb2aac6 preliminary std lib support for ST etisserant parents: diff changeset	1603
4507beb2aac6 preliminary std lib support for ST etisserant parents: diff changeset	1604	/****
4507beb2aac6 preliminary std lib support for ST etisserant parents: diff changeset	1605	*SINT_TO_LINT
4507beb2aac6 preliminary std lib support for ST etisserant parents: diff changeset	1606	*/
35 9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	1607	case function_sint_to_lint :
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	1608	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	1609	symbol_c *last_type_symbol = NULL;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	1610
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	1611	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	1612	identifier_c param_name("IN");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	1613	/* Get the value from a foo(<param_name> = <param_value>) style call */
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	1614	symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	1615
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	1616	/* Get the value from a foo(<param_value>) style call */
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	1617	if (IN_param_value == NULL)
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	1618	IN_param_value = function_call_param_iterator.next();
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	1619	symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	1620	last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	1621
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	1622	if (typeid(*last_type_symbol) == typeid(sint_type_name_c))
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	1623	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	1624
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	1625	symbol_c * return_type_symbol = &search_constant_type_c::lint_type_name;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	1626	s4o.print("(");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	1627	return_type_symbol->accept(*this);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	1628	s4o.print(")");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	1629	IN_param_value->accept(*this);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	1630	return NULL;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	1631
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	1632	}
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	1633
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	1634	ERROR;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	1635	}
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	1636
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	1637	}/function_sint_to_lint/
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	1638	break;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	1639
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	1640	/****
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	1641	*SINT_TO_USINT
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	1642	*/
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	1643	case function_sint_to_usint :
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	1644	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	1645	symbol_c *last_type_symbol = NULL;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	1646
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	1647	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	1648	identifier_c param_name("IN");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	1649	/* Get the value from a foo(<param_name> = <param_value>) style call */
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	1650	symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	1651
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	1652	/* Get the value from a foo(<param_value>) style call */
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	1653	if (IN_param_value == NULL)
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	1654	IN_param_value = function_call_param_iterator.next();
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	1655	symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	1656	last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	1657
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	1658	if (typeid(*last_type_symbol) == typeid(sint_type_name_c))
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	1659	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	1660
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	1661	symbol_c * return_type_symbol = &search_constant_type_c::usint_type_name;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	1662	s4o.print("(");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	1663	return_type_symbol->accept(*this);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	1664	s4o.print(")");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	1665	IN_param_value->accept(*this);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	1666	return NULL;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	1667
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	1668	}
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	1669
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	1670	ERROR;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	1671	}
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	1672
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	1673	}/function_sint_to_usint/
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	1674	break;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	1675
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	1676	/****
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	1677	*SINT_TO_UINT
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	1678	*/
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	1679	case function_sint_to_uint :
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	1680	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	1681	symbol_c *last_type_symbol = NULL;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	1682
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	1683	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	1684	identifier_c param_name("IN");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	1685	/* Get the value from a foo(<param_name> = <param_value>) style call */
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	1686	symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	1687
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	1688	/* Get the value from a foo(<param_value>) style call */
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	1689	if (IN_param_value == NULL)
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	1690	IN_param_value = function_call_param_iterator.next();
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	1691	symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	1692	last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	1693
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	1694	if (typeid(*last_type_symbol) == typeid(sint_type_name_c))
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	1695	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	1696
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	1697	symbol_c * return_type_symbol = &search_constant_type_c::uint_type_name;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	1698	s4o.print("(");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	1699	return_type_symbol->accept(*this);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	1700	s4o.print(")");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	1701	IN_param_value->accept(*this);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	1702	return NULL;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	1703
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	1704	}
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	1705
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	1706	ERROR;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	1707	}
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	1708
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	1709	}/function_sint_to_uint/
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	1710	break;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	1711
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	1712	/****
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	1713	*SINT_TO_UDINT
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	1714	*/
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	1715	case function_sint_to_udint :
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	1716	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	1717	symbol_c *last_type_symbol = NULL;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	1718
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	1719	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	1720	identifier_c param_name("IN");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	1721	/* Get the value from a foo(<param_name> = <param_value>) style call */
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	1722	symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	1723
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	1724	/* Get the value from a foo(<param_value>) style call */
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	1725	if (IN_param_value == NULL)
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	1726	IN_param_value = function_call_param_iterator.next();
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	1727	symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	1728	last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	1729
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	1730	if (typeid(*last_type_symbol) == typeid(sint_type_name_c))
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	1731	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	1732
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	1733	symbol_c * return_type_symbol = &search_constant_type_c::udint_type_name;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	1734	s4o.print("(");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	1735	return_type_symbol->accept(*this);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	1736	s4o.print(")");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	1737	IN_param_value->accept(*this);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	1738	return NULL;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	1739
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	1740	}
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	1741
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	1742	ERROR;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	1743	}
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	1744
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	1745	}/function_sint_to_udint/
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	1746	break;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	1747
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	1748	/****
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	1749	*SINT_TO_ULINT
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	1750	*/
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	1751	case function_sint_to_ulint :
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	1752	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	1753	symbol_c *last_type_symbol = NULL;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	1754
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	1755	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	1756	identifier_c param_name("IN");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	1757	/* Get the value from a foo(<param_name> = <param_value>) style call */
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	1758	symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	1759
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	1760	/* Get the value from a foo(<param_value>) style call */
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	1761	if (IN_param_value == NULL)
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	1762	IN_param_value = function_call_param_iterator.next();
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	1763	symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	1764	last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	1765
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	1766	if (typeid(*last_type_symbol) == typeid(sint_type_name_c))
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	1767	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	1768
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	1769	symbol_c * return_type_symbol = &search_constant_type_c::ulint_type_name;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	1770	s4o.print("(");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	1771	return_type_symbol->accept(*this);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	1772	s4o.print(")");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	1773	IN_param_value->accept(*this);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	1774	return NULL;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	1775
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	1776	}
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	1777
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	1778	ERROR;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	1779	}
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	1780
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	1781	}/function_sint_to_ulint/
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	1782	break;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	1783
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	1784	/****
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	1785	*SINT_TO_TIME
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	1786	*/
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	1787	case function_sint_to_time :
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	1788	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	1789	symbol_c *last_type_symbol = NULL;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	1790
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	1791	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	1792	identifier_c param_name("IN");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	1793	/* Get the value from a foo(<param_name> = <param_value>) style call */
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	1794	symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	1795
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	1796	/* Get the value from a foo(<param_value>) style call */
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	1797	if (IN_param_value == NULL)
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	1798	IN_param_value = function_call_param_iterator.next();
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	1799	symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	1800	last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	1801
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	1802	if (typeid(*last_type_symbol) == typeid(sint_type_name_c))
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	1803	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	1804
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	1805	symbol_c * return_type_symbol = &search_constant_type_c::time_type_name;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	1806	s4o.print("(");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	1807	return_type_symbol->accept(*this);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	1808	s4o.print(")real_to_time(");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	1809	IN_param_value->accept(*this);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	1810	s4o.print(")");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	1811	return NULL;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	1812
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	1813	}
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	1814
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	1815	ERROR;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	1816	}
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	1817
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	1818	}/function_sint_to_time/
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	1819	break;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	1820
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	1821	/****
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	1822	*SINT_TO_BOOL
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	1823	*/
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	1824	case function_sint_to_bool :
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	1825	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	1826	symbol_c *last_type_symbol = NULL;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	1827
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	1828	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	1829	identifier_c param_name("IN");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	1830	/* Get the value from a foo(<param_name> = <param_value>) style call */
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	1831	symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	1832
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	1833	/* Get the value from a foo(<param_value>) style call */
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	1834	if (IN_param_value == NULL)
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	1835	IN_param_value = function_call_param_iterator.next();
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	1836	symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	1837	last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	1838
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	1839	if (typeid(*last_type_symbol) == typeid(sint_type_name_c))
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	1840	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	1841
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	1842	symbol_c * return_type_symbol = &search_constant_type_c::bool_type_name;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	1843	s4o.print("(");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	1844	return_type_symbol->accept(*this);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	1845	s4o.print(")");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	1846	IN_param_value->accept(*this);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	1847	return NULL;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	1848
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	1849	}
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	1850
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	1851	ERROR;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	1852	}
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	1853
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	1854	}/function_sint_to_bool/
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	1855	break;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	1856
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	1857	/****
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	1858	*SINT_TO_BYTE
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	1859	*/
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	1860	case function_sint_to_byte :
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	1861	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	1862	symbol_c *last_type_symbol = NULL;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	1863
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	1864	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	1865	identifier_c param_name("IN");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	1866	/* Get the value from a foo(<param_name> = <param_value>) style call */
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	1867	symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	1868
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	1869	/* Get the value from a foo(<param_value>) style call */
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	1870	if (IN_param_value == NULL)
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	1871	IN_param_value = function_call_param_iterator.next();
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	1872	symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	1873	last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	1874
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	1875	if (typeid(*last_type_symbol) == typeid(sint_type_name_c))
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	1876	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	1877
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	1878	symbol_c * return_type_symbol = &search_constant_type_c::byte_type_name;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	1879	s4o.print("(");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	1880	return_type_symbol->accept(*this);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	1881	s4o.print(")");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	1882	IN_param_value->accept(*this);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	1883	return NULL;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	1884
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	1885	}
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	1886
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	1887	ERROR;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	1888	}
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	1889
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	1890	}/function_sint_to_byte/
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	1891	break;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	1892
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	1893	/****
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	1894	*SINT_TO_WORD
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	1895	*/
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	1896	case function_sint_to_word :
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	1897	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	1898	symbol_c *last_type_symbol = NULL;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	1899
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	1900	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	1901	identifier_c param_name("IN");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	1902	/* Get the value from a foo(<param_name> = <param_value>) style call */
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	1903	symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	1904
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	1905	/* Get the value from a foo(<param_value>) style call */
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	1906	if (IN_param_value == NULL)
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	1907	IN_param_value = function_call_param_iterator.next();
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	1908	symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	1909	last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	1910
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	1911	if (typeid(*last_type_symbol) == typeid(sint_type_name_c))
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	1912	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	1913
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	1914	symbol_c * return_type_symbol = &search_constant_type_c::word_type_name;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	1915	s4o.print("(");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	1916	return_type_symbol->accept(*this);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	1917	s4o.print(")");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	1918	IN_param_value->accept(*this);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	1919	return NULL;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	1920
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	1921	}
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	1922
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	1923	ERROR;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	1924	}
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	1925
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	1926	}/function_sint_to_word/
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	1927	break;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	1928
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	1929	/****
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	1930	*SINT_TO_DWORD
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	1931	*/
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	1932	case function_sint_to_dword :
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	1933	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	1934	symbol_c *last_type_symbol = NULL;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	1935
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	1936	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	1937	identifier_c param_name("IN");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	1938	/* Get the value from a foo(<param_name> = <param_value>) style call */
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	1939	symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	1940
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	1941	/* Get the value from a foo(<param_value>) style call */
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	1942	if (IN_param_value == NULL)
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	1943	IN_param_value = function_call_param_iterator.next();
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	1944	symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	1945	last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	1946
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	1947	if (typeid(*last_type_symbol) == typeid(sint_type_name_c))
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	1948	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	1949
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	1950	symbol_c * return_type_symbol = &search_constant_type_c::dword_type_name;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	1951	s4o.print("(");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	1952	return_type_symbol->accept(*this);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	1953	s4o.print(")");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	1954	IN_param_value->accept(*this);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	1955	return NULL;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	1956
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	1957	}
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	1958
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	1959	ERROR;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	1960	}
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	1961
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	1962	}/function_sint_to_dword/
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	1963	break;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	1964
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	1965	/****
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	1966	*SINT_TO_LWORD
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	1967	*/
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	1968	case function_sint_to_lword :
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	1969	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	1970	symbol_c *last_type_symbol = NULL;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	1971
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	1972	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	1973	identifier_c param_name("IN");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	1974	/* Get the value from a foo(<param_name> = <param_value>) style call */
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	1975	symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	1976
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	1977	/* Get the value from a foo(<param_value>) style call */
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	1978	if (IN_param_value == NULL)
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	1979	IN_param_value = function_call_param_iterator.next();
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	1980	symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	1981	last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	1982
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	1983	if (typeid(*last_type_symbol) == typeid(sint_type_name_c))
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	1984	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	1985
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	1986	symbol_c * return_type_symbol = &search_constant_type_c::lword_type_name;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	1987	s4o.print("(");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	1988	return_type_symbol->accept(*this);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	1989	s4o.print(")");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	1990	IN_param_value->accept(*this);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	1991	return NULL;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	1992
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	1993	}
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	1994
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	1995	ERROR;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	1996	}
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	1997
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	1998	}/function_sint_to_lword/
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	1999	break;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	2000
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	2001	/****
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	2002	*SINT_TO_STRING
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	2003	*/
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	2004	case function_sint_to_string :
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	2005	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	2006	symbol_c *last_type_symbol = NULL;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	2007
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	2008	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	2009	identifier_c param_name("IN");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	2010	/* Get the value from a foo(<param_name> = <param_value>) style call */
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	2011	symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	2012
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	2013	/* Get the value from a foo(<param_value>) style call */
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	2014	if (IN_param_value == NULL)
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	2015	IN_param_value = function_call_param_iterator.next();
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	2016	symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	2017	last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	2018
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	2019	if (typeid(*last_type_symbol) == typeid(sint_type_name_c))
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	2020	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	2021
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	2022	symbol_c * return_type_symbol = &search_constant_type_c::string_type_name;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	2023	s4o.print("(");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	2024	return_type_symbol->accept(*this);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	2025	s4o.print(")int_to_string(");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	2026	IN_param_value->accept(*this);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	2027	s4o.print(", 10)");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	2028	return NULL;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	2029
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	2030	}
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	2031
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	2032	ERROR;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	2033	}
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	2034
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	2035	}/function_sint_to_string/
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	2036	break;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	2037
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	2038	/****
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	2039	*SINT_TO_WSTRING
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	2040	*/
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	2041	case function_sint_to_wstring :
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	2042	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	2043	symbol_c *last_type_symbol = NULL;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	2044
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	2045	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	2046	identifier_c param_name("IN");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	2047	/* Get the value from a foo(<param_name> = <param_value>) style call */
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	2048	symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	2049
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	2050	/* Get the value from a foo(<param_value>) style call */
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	2051	if (IN_param_value == NULL)
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	2052	IN_param_value = function_call_param_iterator.next();
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	2053	symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	2054	last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	2055
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	2056	if (typeid(*last_type_symbol) == typeid(sint_type_name_c))
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	2057	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	2058
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	2059	symbol_c * return_type_symbol = &search_constant_type_c::wstring_type_name;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	2060	s4o.print("(");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	2061	return_type_symbol->accept(*this);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	2062	s4o.print(")int_to_string(");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	2063	IN_param_value->accept(*this);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	2064	s4o.print(", 10)");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	2065	return NULL;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	2066
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	2067	}
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	2068
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	2069	ERROR;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	2070	}
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	2071
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	2072	}/function_sint_to_wstring/
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	2073	break;
33 4507beb2aac6 preliminary std lib support for ST etisserant parents: diff changeset	2074
4507beb2aac6 preliminary std lib support for ST etisserant parents: diff changeset	2075	/****
4507beb2aac6 preliminary std lib support for ST etisserant parents: diff changeset	2076	*SINT_TO_DATE
4507beb2aac6 preliminary std lib support for ST etisserant parents: diff changeset	2077	*/
35 9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	2078	case function_sint_to_date :
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	2079	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	2080	symbol_c *last_type_symbol = NULL;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	2081
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	2082	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	2083	identifier_c param_name("IN");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	2084	/* Get the value from a foo(<param_name> = <param_value>) style call */
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	2085	symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	2086
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	2087	/* Get the value from a foo(<param_value>) style call */
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	2088	if (IN_param_value == NULL)
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	2089	IN_param_value = function_call_param_iterator.next();
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	2090	symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	2091	last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	2092
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	2093	if (typeid(*last_type_symbol) == typeid(sint_type_name_c))
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	2094	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	2095
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	2096	symbol_c * return_type_symbol = &search_constant_type_c::date_type_name;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	2097	s4o.print("(");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	2098	return_type_symbol->accept(*this);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	2099	s4o.print(")real_to_time(");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	2100	IN_param_value->accept(*this);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	2101	s4o.print(")");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	2102	return NULL;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	2103
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	2104	}
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	2105
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	2106	ERROR;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	2107	}
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	2108
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	2109	}/function_sint_to_date/
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	2110	break;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	2111
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	2112	/****
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	2113	*SINT_TO_TOD
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	2114	*/
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	2115	case function_sint_to_tod :
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	2116	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	2117	symbol_c *last_type_symbol = NULL;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	2118
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	2119	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	2120	identifier_c param_name("IN");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	2121	/* Get the value from a foo(<param_name> = <param_value>) style call */
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	2122	symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	2123
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	2124	/* Get the value from a foo(<param_value>) style call */
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	2125	if (IN_param_value == NULL)
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	2126	IN_param_value = function_call_param_iterator.next();
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	2127	symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	2128	last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	2129
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	2130	if (typeid(*last_type_symbol) == typeid(sint_type_name_c))
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	2131	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	2132
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	2133	symbol_c * return_type_symbol = &search_constant_type_c::tod_type_name;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	2134	s4o.print("(");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	2135	return_type_symbol->accept(*this);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	2136	s4o.print(")real_to_time(");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	2137	IN_param_value->accept(*this);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	2138	s4o.print(")");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	2139	return NULL;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	2140
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	2141	}
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	2142
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	2143	ERROR;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	2144	}
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	2145
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	2146	}/function_sint_to_tod/
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	2147	break;
33 4507beb2aac6 preliminary std lib support for ST etisserant parents: diff changeset	2148
4507beb2aac6 preliminary std lib support for ST etisserant parents: diff changeset	2149	/****
4507beb2aac6 preliminary std lib support for ST etisserant parents: diff changeset	2150	*SINT_TO_DT
4507beb2aac6 preliminary std lib support for ST etisserant parents: diff changeset	2151	*/
35 9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	2152	case function_sint_to_dt :
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	2153	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	2154	symbol_c *last_type_symbol = NULL;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	2155
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	2156	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	2157	identifier_c param_name("IN");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	2158	/* Get the value from a foo(<param_name> = <param_value>) style call */
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	2159	symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	2160
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	2161	/* Get the value from a foo(<param_value>) style call */
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	2162	if (IN_param_value == NULL)
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	2163	IN_param_value = function_call_param_iterator.next();
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	2164	symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	2165	last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	2166
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	2167	if (typeid(*last_type_symbol) == typeid(sint_type_name_c))
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	2168	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	2169
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	2170	symbol_c * return_type_symbol = &search_constant_type_c::dt_type_name;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	2171	s4o.print("(");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	2172	return_type_symbol->accept(*this);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	2173	s4o.print(")real_to_time(");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	2174	IN_param_value->accept(*this);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	2175	s4o.print(")");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	2176	return NULL;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	2177
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	2178	}
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	2179
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	2180	ERROR;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	2181	}
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	2182
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	2183	}/function_sint_to_dt/
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	2184	break;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	2185
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	2186	/****
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	2187	*INT_TO_REAL
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	2188	*/
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	2189	case function_int_to_real :
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	2190	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	2191	symbol_c *last_type_symbol = NULL;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	2192
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	2193	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	2194	identifier_c param_name("IN");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	2195	/* Get the value from a foo(<param_name> = <param_value>) style call */
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	2196	symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	2197
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	2198	/* Get the value from a foo(<param_value>) style call */
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	2199	if (IN_param_value == NULL)
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	2200	IN_param_value = function_call_param_iterator.next();
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	2201	symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	2202	last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	2203
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	2204	if (typeid(*last_type_symbol) == typeid(int_type_name_c))
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	2205	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	2206
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	2207	symbol_c * return_type_symbol = &search_constant_type_c::real_type_name;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	2208	s4o.print("(");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	2209	return_type_symbol->accept(*this);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	2210	s4o.print(")");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	2211	IN_param_value->accept(*this);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	2212	return NULL;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	2213
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	2214	}
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	2215
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	2216	ERROR;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	2217	}
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	2218
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	2219	}/function_int_to_real/
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	2220	break;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	2221
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	2222	/****
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	2223	*INT_TO_LREAL
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	2224	*/
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	2225	case function_int_to_lreal :
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	2226	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	2227	symbol_c *last_type_symbol = NULL;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	2228
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	2229	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	2230	identifier_c param_name("IN");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	2231	/* Get the value from a foo(<param_name> = <param_value>) style call */
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	2232	symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	2233
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	2234	/* Get the value from a foo(<param_value>) style call */
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	2235	if (IN_param_value == NULL)
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	2236	IN_param_value = function_call_param_iterator.next();
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	2237	symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	2238	last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	2239
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	2240	if (typeid(*last_type_symbol) == typeid(int_type_name_c))
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	2241	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	2242
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	2243	symbol_c * return_type_symbol = &search_constant_type_c::lreal_type_name;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	2244	s4o.print("(");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	2245	return_type_symbol->accept(*this);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	2246	s4o.print(")");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	2247	IN_param_value->accept(*this);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	2248	return NULL;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	2249
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	2250	}
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	2251
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	2252	ERROR;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	2253	}
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	2254
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	2255	}/function_int_to_lreal/
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	2256	break;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	2257
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	2258	/****
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	2259	*INT_TO_SINT
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	2260	*/
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	2261	case function_int_to_sint :
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	2262	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	2263	symbol_c *last_type_symbol = NULL;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	2264
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	2265	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	2266	identifier_c param_name("IN");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	2267	/* Get the value from a foo(<param_name> = <param_value>) style call */
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	2268	symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	2269
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	2270	/* Get the value from a foo(<param_value>) style call */
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	2271	if (IN_param_value == NULL)
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	2272	IN_param_value = function_call_param_iterator.next();
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	2273	symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	2274	last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	2275
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	2276	if (typeid(*last_type_symbol) == typeid(int_type_name_c))
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	2277	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	2278
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	2279	symbol_c * return_type_symbol = &search_constant_type_c::sint_type_name;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	2280	s4o.print("(");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	2281	return_type_symbol->accept(*this);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	2282	s4o.print(")");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	2283	IN_param_value->accept(*this);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	2284	return NULL;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	2285
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	2286	}
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	2287
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	2288	ERROR;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	2289	}
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	2290
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	2291	}/function_int_to_sint/
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	2292	break;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	2293
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	2294	/****
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	2295	*INT_TO_DINT
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	2296	*/
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	2297	case function_int_to_dint :
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	2298	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	2299	symbol_c *last_type_symbol = NULL;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	2300
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	2301	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	2302	identifier_c param_name("IN");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	2303	/* Get the value from a foo(<param_name> = <param_value>) style call */
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	2304	symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	2305
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	2306	/* Get the value from a foo(<param_value>) style call */
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	2307	if (IN_param_value == NULL)
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	2308	IN_param_value = function_call_param_iterator.next();
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	2309	symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	2310	last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	2311
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	2312	if (typeid(*last_type_symbol) == typeid(int_type_name_c))
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	2313	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	2314
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	2315	symbol_c * return_type_symbol = &search_constant_type_c::dint_type_name;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	2316	s4o.print("(");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	2317	return_type_symbol->accept(*this);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	2318	s4o.print(")");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	2319	IN_param_value->accept(*this);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	2320	return NULL;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	2321
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	2322	}
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	2323
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	2324	ERROR;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	2325	}
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	2326
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	2327	}/function_int_to_dint/
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	2328	break;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	2329
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	2330	/****
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	2331	*INT_TO_LINT
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	2332	*/
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	2333	case function_int_to_lint :
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	2334	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	2335	symbol_c *last_type_symbol = NULL;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	2336
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	2337	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	2338	identifier_c param_name("IN");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	2339	/* Get the value from a foo(<param_name> = <param_value>) style call */
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	2340	symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	2341
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	2342	/* Get the value from a foo(<param_value>) style call */
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	2343	if (IN_param_value == NULL)
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	2344	IN_param_value = function_call_param_iterator.next();
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	2345	symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	2346	last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	2347
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	2348	if (typeid(*last_type_symbol) == typeid(int_type_name_c))
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	2349	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	2350
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	2351	symbol_c * return_type_symbol = &search_constant_type_c::lint_type_name;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	2352	s4o.print("(");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	2353	return_type_symbol->accept(*this);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	2354	s4o.print(")");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	2355	IN_param_value->accept(*this);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	2356	return NULL;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	2357
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	2358	}
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	2359
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	2360	ERROR;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	2361	}
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	2362
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	2363	}/function_int_to_lint/
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	2364	break;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	2365
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	2366	/****
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	2367	*INT_TO_USINT
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	2368	*/
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	2369	case function_int_to_usint :
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	2370	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	2371	symbol_c *last_type_symbol = NULL;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	2372
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	2373	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	2374	identifier_c param_name("IN");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	2375	/* Get the value from a foo(<param_name> = <param_value>) style call */
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	2376	symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	2377
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	2378	/* Get the value from a foo(<param_value>) style call */
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	2379	if (IN_param_value == NULL)
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	2380	IN_param_value = function_call_param_iterator.next();
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	2381	symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	2382	last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	2383
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	2384	if (typeid(*last_type_symbol) == typeid(int_type_name_c))
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	2385	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	2386
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	2387	symbol_c * return_type_symbol = &search_constant_type_c::usint_type_name;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	2388	s4o.print("(");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	2389	return_type_symbol->accept(*this);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	2390	s4o.print(")");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	2391	IN_param_value->accept(*this);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	2392	return NULL;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	2393
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	2394	}
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	2395
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	2396	ERROR;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	2397	}
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	2398
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	2399	}/function_int_to_usint/
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	2400	break;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	2401
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	2402	/****
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	2403	*INT_TO_UINT
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	2404	*/
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	2405	case function_int_to_uint :
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	2406	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	2407	symbol_c *last_type_symbol = NULL;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	2408
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	2409	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	2410	identifier_c param_name("IN");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	2411	/* Get the value from a foo(<param_name> = <param_value>) style call */
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	2412	symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	2413
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	2414	/* Get the value from a foo(<param_value>) style call */
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	2415	if (IN_param_value == NULL)
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	2416	IN_param_value = function_call_param_iterator.next();
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	2417	symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	2418	last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	2419
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	2420	if (typeid(*last_type_symbol) == typeid(int_type_name_c))
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	2421	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	2422
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	2423	symbol_c * return_type_symbol = &search_constant_type_c::uint_type_name;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	2424	s4o.print("(");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	2425	return_type_symbol->accept(*this);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	2426	s4o.print(")");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	2427	IN_param_value->accept(*this);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	2428	return NULL;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	2429
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	2430	}
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	2431
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	2432	ERROR;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	2433	}
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	2434
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	2435	}/function_int_to_uint/
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	2436	break;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	2437
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	2438	/****
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	2439	*INT_TO_UDINT
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	2440	*/
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	2441	case function_int_to_udint :
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	2442	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	2443	symbol_c *last_type_symbol = NULL;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	2444
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	2445	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	2446	identifier_c param_name("IN");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	2447	/* Get the value from a foo(<param_name> = <param_value>) style call */
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	2448	symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	2449
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	2450	/* Get the value from a foo(<param_value>) style call */
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	2451	if (IN_param_value == NULL)
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	2452	IN_param_value = function_call_param_iterator.next();
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	2453	symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	2454	last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	2455
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	2456	if (typeid(*last_type_symbol) == typeid(int_type_name_c))
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	2457	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	2458
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	2459	symbol_c * return_type_symbol = &search_constant_type_c::udint_type_name;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	2460	s4o.print("(");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	2461	return_type_symbol->accept(*this);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	2462	s4o.print(")");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	2463	IN_param_value->accept(*this);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	2464	return NULL;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	2465
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	2466	}
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	2467
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	2468	ERROR;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	2469	}
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	2470
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	2471	}/function_int_to_udint/
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	2472	break;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	2473
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	2474	/****
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	2475	*INT_TO_ULINT
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	2476	*/
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	2477	case function_int_to_ulint :
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	2478	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	2479	symbol_c *last_type_symbol = NULL;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	2480
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	2481	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	2482	identifier_c param_name("IN");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	2483	/* Get the value from a foo(<param_name> = <param_value>) style call */
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	2484	symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	2485
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	2486	/* Get the value from a foo(<param_value>) style call */
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	2487	if (IN_param_value == NULL)
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	2488	IN_param_value = function_call_param_iterator.next();
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	2489	symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	2490	last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	2491
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	2492	if (typeid(*last_type_symbol) == typeid(int_type_name_c))
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	2493	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	2494
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	2495	symbol_c * return_type_symbol = &search_constant_type_c::ulint_type_name;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	2496	s4o.print("(");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	2497	return_type_symbol->accept(*this);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	2498	s4o.print(")");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	2499	IN_param_value->accept(*this);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	2500	return NULL;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	2501
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	2502	}
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	2503
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	2504	ERROR;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	2505	}
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	2506
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	2507	}/function_int_to_ulint/
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	2508	break;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	2509
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	2510	/****
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	2511	*INT_TO_TIME
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	2512	*/
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	2513	case function_int_to_time :
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	2514	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	2515	symbol_c *last_type_symbol = NULL;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	2516
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	2517	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	2518	identifier_c param_name("IN");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	2519	/* Get the value from a foo(<param_name> = <param_value>) style call */
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	2520	symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	2521
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	2522	/* Get the value from a foo(<param_value>) style call */
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	2523	if (IN_param_value == NULL)
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	2524	IN_param_value = function_call_param_iterator.next();
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	2525	symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	2526	last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	2527
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	2528	if (typeid(*last_type_symbol) == typeid(int_type_name_c))
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	2529	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	2530
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	2531	symbol_c * return_type_symbol = &search_constant_type_c::time_type_name;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	2532	s4o.print("(");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	2533	return_type_symbol->accept(*this);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	2534	s4o.print(")real_to_time(");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	2535	IN_param_value->accept(*this);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	2536	s4o.print(")");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	2537	return NULL;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	2538
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	2539	}
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	2540
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	2541	ERROR;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	2542	}
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	2543
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	2544	}/function_int_to_time/
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	2545	break;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	2546
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	2547	/****
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	2548	*INT_TO_BOOL
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	2549	*/
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	2550	case function_int_to_bool :
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	2551	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	2552	symbol_c *last_type_symbol = NULL;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	2553
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	2554	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	2555	identifier_c param_name("IN");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	2556	/* Get the value from a foo(<param_name> = <param_value>) style call */
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	2557	symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	2558
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	2559	/* Get the value from a foo(<param_value>) style call */
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	2560	if (IN_param_value == NULL)
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	2561	IN_param_value = function_call_param_iterator.next();
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	2562	symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	2563	last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	2564
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	2565	if (typeid(*last_type_symbol) == typeid(int_type_name_c))
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	2566	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	2567
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	2568	symbol_c * return_type_symbol = &search_constant_type_c::bool_type_name;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	2569	s4o.print("(");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	2570	return_type_symbol->accept(*this);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	2571	s4o.print(")");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	2572	IN_param_value->accept(*this);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	2573	return NULL;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	2574
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	2575	}
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	2576
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	2577	ERROR;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	2578	}
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	2579
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	2580	}/function_int_to_bool/
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	2581	break;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	2582
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	2583	/****
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	2584	*INT_TO_BYTE
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	2585	*/
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	2586	case function_int_to_byte :
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	2587	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	2588	symbol_c *last_type_symbol = NULL;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	2589
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	2590	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	2591	identifier_c param_name("IN");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	2592	/* Get the value from a foo(<param_name> = <param_value>) style call */
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	2593	symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	2594
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	2595	/* Get the value from a foo(<param_value>) style call */
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	2596	if (IN_param_value == NULL)
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	2597	IN_param_value = function_call_param_iterator.next();
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	2598	symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	2599	last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	2600
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	2601	if (typeid(*last_type_symbol) == typeid(int_type_name_c))
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	2602	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	2603
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	2604	symbol_c * return_type_symbol = &search_constant_type_c::byte_type_name;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	2605	s4o.print("(");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	2606	return_type_symbol->accept(*this);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	2607	s4o.print(")");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	2608	IN_param_value->accept(*this);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	2609	return NULL;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	2610
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	2611	}
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	2612
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	2613	ERROR;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	2614	}
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	2615
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	2616	}/function_int_to_byte/
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	2617	break;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	2618
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	2619	/****
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	2620	*INT_TO_WORD
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	2621	*/
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	2622	case function_int_to_word :
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	2623	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	2624	symbol_c *last_type_symbol = NULL;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	2625
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	2626	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	2627	identifier_c param_name("IN");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	2628	/* Get the value from a foo(<param_name> = <param_value>) style call */
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	2629	symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	2630
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	2631	/* Get the value from a foo(<param_value>) style call */
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	2632	if (IN_param_value == NULL)
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	2633	IN_param_value = function_call_param_iterator.next();
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	2634	symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	2635	last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	2636
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	2637	if (typeid(*last_type_symbol) == typeid(int_type_name_c))
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	2638	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	2639
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	2640	symbol_c * return_type_symbol = &search_constant_type_c::word_type_name;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	2641	s4o.print("(");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	2642	return_type_symbol->accept(*this);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	2643	s4o.print(")");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	2644	IN_param_value->accept(*this);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	2645	return NULL;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	2646
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	2647	}
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	2648
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	2649	ERROR;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	2650	}
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	2651
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	2652	}/function_int_to_word/
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	2653	break;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	2654
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	2655	/****
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	2656	*INT_TO_DWORD
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	2657	*/
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	2658	case function_int_to_dword :
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	2659	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	2660	symbol_c *last_type_symbol = NULL;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	2661
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	2662	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	2663	identifier_c param_name("IN");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	2664	/* Get the value from a foo(<param_name> = <param_value>) style call */
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	2665	symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	2666
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	2667	/* Get the value from a foo(<param_value>) style call */
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	2668	if (IN_param_value == NULL)
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	2669	IN_param_value = function_call_param_iterator.next();
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	2670	symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	2671	last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	2672
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	2673	if (typeid(*last_type_symbol) == typeid(int_type_name_c))
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	2674	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	2675
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	2676	symbol_c * return_type_symbol = &search_constant_type_c::dword_type_name;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	2677	s4o.print("(");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	2678	return_type_symbol->accept(*this);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	2679	s4o.print(")");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	2680	IN_param_value->accept(*this);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	2681	return NULL;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	2682
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	2683	}
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	2684
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	2685	ERROR;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	2686	}
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	2687
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	2688	}/function_int_to_dword/
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	2689	break;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	2690
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	2691	/****
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	2692	*INT_TO_LWORD
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	2693	*/
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	2694	case function_int_to_lword :
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	2695	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	2696	symbol_c *last_type_symbol = NULL;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	2697
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	2698	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	2699	identifier_c param_name("IN");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	2700	/* Get the value from a foo(<param_name> = <param_value>) style call */
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	2701	symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	2702
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	2703	/* Get the value from a foo(<param_value>) style call */
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	2704	if (IN_param_value == NULL)
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	2705	IN_param_value = function_call_param_iterator.next();
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	2706	symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	2707	last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	2708
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	2709	if (typeid(*last_type_symbol) == typeid(int_type_name_c))
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	2710	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	2711
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	2712	symbol_c * return_type_symbol = &search_constant_type_c::lword_type_name;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	2713	s4o.print("(");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	2714	return_type_symbol->accept(*this);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	2715	s4o.print(")");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	2716	IN_param_value->accept(*this);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	2717	return NULL;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	2718
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	2719	}
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	2720
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	2721	ERROR;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	2722	}
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	2723
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	2724	}/function_int_to_lword/
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	2725	break;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	2726
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	2727	/****
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	2728	*INT_TO_STRING
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	2729	*/
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	2730	case function_int_to_string :
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	2731	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	2732	symbol_c *last_type_symbol = NULL;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	2733
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	2734	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	2735	identifier_c param_name("IN");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	2736	/* Get the value from a foo(<param_name> = <param_value>) style call */
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	2737	symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	2738
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	2739	/* Get the value from a foo(<param_value>) style call */
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	2740	if (IN_param_value == NULL)
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	2741	IN_param_value = function_call_param_iterator.next();
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	2742	symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	2743	last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	2744
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	2745	if (typeid(*last_type_symbol) == typeid(int_type_name_c))
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	2746	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	2747
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	2748	symbol_c * return_type_symbol = &search_constant_type_c::string_type_name;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	2749	s4o.print("(");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	2750	return_type_symbol->accept(*this);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	2751	s4o.print(")int_to_string(");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	2752	IN_param_value->accept(*this);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	2753	s4o.print(", 10)");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	2754	return NULL;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	2755
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	2756	}
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	2757
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	2758	ERROR;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	2759	}
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	2760
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	2761	}/function_int_to_string/
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	2762	break;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	2763
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	2764	/****
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	2765	*INT_TO_WSTRING
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	2766	*/
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	2767	case function_int_to_wstring :
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	2768	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	2769	symbol_c *last_type_symbol = NULL;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	2770
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	2771	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	2772	identifier_c param_name("IN");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	2773	/* Get the value from a foo(<param_name> = <param_value>) style call */
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	2774	symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	2775
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	2776	/* Get the value from a foo(<param_value>) style call */
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	2777	if (IN_param_value == NULL)
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	2778	IN_param_value = function_call_param_iterator.next();
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	2779	symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	2780	last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	2781
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	2782	if (typeid(*last_type_symbol) == typeid(int_type_name_c))
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	2783	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	2784
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	2785	symbol_c * return_type_symbol = &search_constant_type_c::wstring_type_name;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	2786	s4o.print("(");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	2787	return_type_symbol->accept(*this);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	2788	s4o.print(")int_to_string(");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	2789	IN_param_value->accept(*this);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	2790	s4o.print(", 10)");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	2791	return NULL;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	2792
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	2793	}
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	2794
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	2795	ERROR;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	2796	}
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	2797
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	2798	}/function_int_to_wstring/
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	2799	break;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	2800
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	2801	/****
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	2802	*INT_TO_DATE
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	2803	*/
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	2804	case function_int_to_date :
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	2805	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	2806	symbol_c *last_type_symbol = NULL;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	2807
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	2808	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	2809	identifier_c param_name("IN");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	2810	/* Get the value from a foo(<param_name> = <param_value>) style call */
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	2811	symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	2812
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	2813	/* Get the value from a foo(<param_value>) style call */
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	2814	if (IN_param_value == NULL)
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	2815	IN_param_value = function_call_param_iterator.next();
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	2816	symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	2817	last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	2818
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	2819	if (typeid(*last_type_symbol) == typeid(int_type_name_c))
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	2820	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	2821
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	2822	symbol_c * return_type_symbol = &search_constant_type_c::date_type_name;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	2823	s4o.print("(");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	2824	return_type_symbol->accept(*this);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	2825	s4o.print(")real_to_time(");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	2826	IN_param_value->accept(*this);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	2827	s4o.print(")");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	2828	return NULL;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	2829
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	2830	}
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	2831
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	2832	ERROR;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	2833	}
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	2834
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	2835	}/function_int_to_date/
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	2836	break;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	2837
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	2838	/****
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	2839	*INT_TO_TOD
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	2840	*/
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	2841	case function_int_to_tod :
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	2842	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	2843	symbol_c *last_type_symbol = NULL;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	2844
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	2845	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	2846	identifier_c param_name("IN");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	2847	/* Get the value from a foo(<param_name> = <param_value>) style call */
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	2848	symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	2849
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	2850	/* Get the value from a foo(<param_value>) style call */
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	2851	if (IN_param_value == NULL)
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	2852	IN_param_value = function_call_param_iterator.next();
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	2853	symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	2854	last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	2855
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	2856	if (typeid(*last_type_symbol) == typeid(int_type_name_c))
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	2857	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	2858
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	2859	symbol_c * return_type_symbol = &search_constant_type_c::tod_type_name;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	2860	s4o.print("(");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	2861	return_type_symbol->accept(*this);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	2862	s4o.print(")real_to_time(");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	2863	IN_param_value->accept(*this);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	2864	s4o.print(")");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	2865	return NULL;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	2866
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	2867	}
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	2868
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	2869	ERROR;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	2870	}
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	2871
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	2872	}/function_int_to_tod/
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	2873	break;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	2874
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	2875	/****
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	2876	*INT_TO_DT
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	2877	*/
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	2878	case function_int_to_dt :
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	2879	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	2880	symbol_c *last_type_symbol = NULL;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	2881
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	2882	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	2883	identifier_c param_name("IN");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	2884	/* Get the value from a foo(<param_name> = <param_value>) style call */
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	2885	symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	2886
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	2887	/* Get the value from a foo(<param_value>) style call */
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	2888	if (IN_param_value == NULL)
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	2889	IN_param_value = function_call_param_iterator.next();
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	2890	symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	2891	last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	2892
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	2893	if (typeid(*last_type_symbol) == typeid(int_type_name_c))
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	2894	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	2895
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	2896	symbol_c * return_type_symbol = &search_constant_type_c::dt_type_name;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	2897	s4o.print("(");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	2898	return_type_symbol->accept(*this);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	2899	s4o.print(")real_to_time(");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	2900	IN_param_value->accept(*this);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	2901	s4o.print(")");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	2902	return NULL;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	2903
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	2904	}
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	2905
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	2906	ERROR;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	2907	}
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	2908
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	2909	}/function_int_to_dt/
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	2910	break;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	2911
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	2912	/****
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	2913	*DINT_TO_REAL
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	2914	*/
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	2915	case function_dint_to_real :
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	2916	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	2917	symbol_c *last_type_symbol = NULL;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	2918
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	2919	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	2920	identifier_c param_name("IN");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	2921	/* Get the value from a foo(<param_name> = <param_value>) style call */
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	2922	symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	2923
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	2924	/* Get the value from a foo(<param_value>) style call */
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	2925	if (IN_param_value == NULL)
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	2926	IN_param_value = function_call_param_iterator.next();
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	2927	symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	2928	last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	2929
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	2930	if (typeid(*last_type_symbol) == typeid(dint_type_name_c))
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	2931	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	2932
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	2933	symbol_c * return_type_symbol = &search_constant_type_c::real_type_name;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	2934	s4o.print("(");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	2935	return_type_symbol->accept(*this);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	2936	s4o.print(")");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	2937	IN_param_value->accept(*this);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	2938	return NULL;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	2939
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	2940	}
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	2941
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	2942	ERROR;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	2943	}
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	2944
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	2945	}/function_dint_to_real/
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	2946	break;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	2947
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	2948	/****
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	2949	*DINT_TO_LREAL
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	2950	*/
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	2951	case function_dint_to_lreal :
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	2952	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	2953	symbol_c *last_type_symbol = NULL;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	2954
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	2955	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	2956	identifier_c param_name("IN");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	2957	/* Get the value from a foo(<param_name> = <param_value>) style call */
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	2958	symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	2959
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	2960	/* Get the value from a foo(<param_value>) style call */
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	2961	if (IN_param_value == NULL)
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	2962	IN_param_value = function_call_param_iterator.next();
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	2963	symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	2964	last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	2965
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	2966	if (typeid(*last_type_symbol) == typeid(dint_type_name_c))
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	2967	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	2968
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	2969	symbol_c * return_type_symbol = &search_constant_type_c::lreal_type_name;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	2970	s4o.print("(");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	2971	return_type_symbol->accept(*this);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	2972	s4o.print(")");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	2973	IN_param_value->accept(*this);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	2974	return NULL;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	2975
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	2976	}
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	2977
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	2978	ERROR;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	2979	}
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	2980
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	2981	}/function_dint_to_lreal/
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	2982	break;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	2983
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	2984	/****
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	2985	*DINT_TO_SINT
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	2986	*/
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	2987	case function_dint_to_sint :
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	2988	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	2989	symbol_c *last_type_symbol = NULL;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	2990
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	2991	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	2992	identifier_c param_name("IN");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	2993	/* Get the value from a foo(<param_name> = <param_value>) style call */
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	2994	symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	2995
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	2996	/* Get the value from a foo(<param_value>) style call */
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	2997	if (IN_param_value == NULL)
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	2998	IN_param_value = function_call_param_iterator.next();
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	2999	symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	3000	last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	3001
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	3002	if (typeid(*last_type_symbol) == typeid(dint_type_name_c))
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	3003	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	3004
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	3005	symbol_c * return_type_symbol = &search_constant_type_c::sint_type_name;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	3006	s4o.print("(");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	3007	return_type_symbol->accept(*this);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	3008	s4o.print(")");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	3009	IN_param_value->accept(*this);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	3010	return NULL;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	3011
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	3012	}
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	3013
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	3014	ERROR;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	3015	}
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	3016
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	3017	}/function_dint_to_sint/
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	3018	break;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	3019
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	3020	/****
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	3021	*DINT_TO_INT
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	3022	*/
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	3023	case function_dint_to_int :
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	3024	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	3025	symbol_c *last_type_symbol = NULL;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	3026
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	3027	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	3028	identifier_c param_name("IN");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	3029	/* Get the value from a foo(<param_name> = <param_value>) style call */
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	3030	symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	3031
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	3032	/* Get the value from a foo(<param_value>) style call */
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	3033	if (IN_param_value == NULL)
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	3034	IN_param_value = function_call_param_iterator.next();
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	3035	symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	3036	last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	3037
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	3038	if (typeid(*last_type_symbol) == typeid(dint_type_name_c))
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	3039	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	3040
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	3041	symbol_c * return_type_symbol = &search_constant_type_c::int_type_name;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	3042	s4o.print("(");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	3043	return_type_symbol->accept(*this);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	3044	s4o.print(")");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	3045	IN_param_value->accept(*this);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	3046	return NULL;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	3047
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	3048	}
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	3049
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	3050	ERROR;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	3051	}
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	3052
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	3053	}/function_dint_to_int/
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	3054	break;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	3055
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	3056	/****
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	3057	*DINT_TO_LINT
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	3058	*/
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	3059	case function_dint_to_lint :
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	3060	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	3061	symbol_c *last_type_symbol = NULL;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	3062
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	3063	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	3064	identifier_c param_name("IN");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	3065	/* Get the value from a foo(<param_name> = <param_value>) style call */
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	3066	symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	3067
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	3068	/* Get the value from a foo(<param_value>) style call */
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	3069	if (IN_param_value == NULL)
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	3070	IN_param_value = function_call_param_iterator.next();
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	3071	symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	3072	last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	3073
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	3074	if (typeid(*last_type_symbol) == typeid(dint_type_name_c))
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	3075	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	3076
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	3077	symbol_c * return_type_symbol = &search_constant_type_c::lint_type_name;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	3078	s4o.print("(");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	3079	return_type_symbol->accept(*this);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	3080	s4o.print(")");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	3081	IN_param_value->accept(*this);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	3082	return NULL;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	3083
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	3084	}
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	3085
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	3086	ERROR;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	3087	}
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	3088
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	3089	}/function_dint_to_lint/
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	3090	break;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	3091
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	3092	/****
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	3093	*DINT_TO_USINT
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	3094	*/
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	3095	case function_dint_to_usint :
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	3096	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	3097	symbol_c *last_type_symbol = NULL;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	3098
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	3099	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	3100	identifier_c param_name("IN");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	3101	/* Get the value from a foo(<param_name> = <param_value>) style call */
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	3102	symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	3103
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	3104	/* Get the value from a foo(<param_value>) style call */
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	3105	if (IN_param_value == NULL)
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	3106	IN_param_value = function_call_param_iterator.next();
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	3107	symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	3108	last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	3109
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	3110	if (typeid(*last_type_symbol) == typeid(dint_type_name_c))
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	3111	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	3112
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	3113	symbol_c * return_type_symbol = &search_constant_type_c::usint_type_name;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	3114	s4o.print("(");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	3115	return_type_symbol->accept(*this);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	3116	s4o.print(")");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	3117	IN_param_value->accept(*this);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	3118	return NULL;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	3119
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	3120	}
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	3121
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	3122	ERROR;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	3123	}
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	3124
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	3125	}/function_dint_to_usint/
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	3126	break;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	3127
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	3128	/****
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	3129	*DINT_TO_UINT
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	3130	*/
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	3131	case function_dint_to_uint :
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	3132	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	3133	symbol_c *last_type_symbol = NULL;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	3134
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	3135	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	3136	identifier_c param_name("IN");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	3137	/* Get the value from a foo(<param_name> = <param_value>) style call */
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	3138	symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	3139
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	3140	/* Get the value from a foo(<param_value>) style call */
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	3141	if (IN_param_value == NULL)
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	3142	IN_param_value = function_call_param_iterator.next();
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	3143	symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	3144	last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	3145
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	3146	if (typeid(*last_type_symbol) == typeid(dint_type_name_c))
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	3147	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	3148
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	3149	symbol_c * return_type_symbol = &search_constant_type_c::uint_type_name;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	3150	s4o.print("(");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	3151	return_type_symbol->accept(*this);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	3152	s4o.print(")");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	3153	IN_param_value->accept(*this);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	3154	return NULL;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	3155
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	3156	}
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	3157
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	3158	ERROR;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	3159	}
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	3160
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	3161	}/function_dint_to_uint/
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	3162	break;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	3163
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	3164	/****
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	3165	*DINT_TO_UDINT
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	3166	*/
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	3167	case function_dint_to_udint :
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	3168	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	3169	symbol_c *last_type_symbol = NULL;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	3170
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	3171	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	3172	identifier_c param_name("IN");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	3173	/* Get the value from a foo(<param_name> = <param_value>) style call */
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	3174	symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	3175
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	3176	/* Get the value from a foo(<param_value>) style call */
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	3177	if (IN_param_value == NULL)
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	3178	IN_param_value = function_call_param_iterator.next();
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	3179	symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	3180	last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	3181
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	3182	if (typeid(*last_type_symbol) == typeid(dint_type_name_c))
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	3183	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	3184
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	3185	symbol_c * return_type_symbol = &search_constant_type_c::udint_type_name;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	3186	s4o.print("(");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	3187	return_type_symbol->accept(*this);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	3188	s4o.print(")");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	3189	IN_param_value->accept(*this);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	3190	return NULL;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	3191
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	3192	}
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	3193
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	3194	ERROR;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	3195	}
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	3196
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	3197	}/function_dint_to_udint/
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	3198	break;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	3199
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	3200	/****
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	3201	*DINT_TO_ULINT
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	3202	*/
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	3203	case function_dint_to_ulint :
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	3204	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	3205	symbol_c *last_type_symbol = NULL;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	3206
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	3207	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	3208	identifier_c param_name("IN");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	3209	/* Get the value from a foo(<param_name> = <param_value>) style call */
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	3210	symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	3211
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	3212	/* Get the value from a foo(<param_value>) style call */
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	3213	if (IN_param_value == NULL)
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	3214	IN_param_value = function_call_param_iterator.next();
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	3215	symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	3216	last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	3217
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	3218	if (typeid(*last_type_symbol) == typeid(dint_type_name_c))
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	3219	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	3220
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	3221	symbol_c * return_type_symbol = &search_constant_type_c::ulint_type_name;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	3222	s4o.print("(");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	3223	return_type_symbol->accept(*this);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	3224	s4o.print(")");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	3225	IN_param_value->accept(*this);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	3226	return NULL;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	3227
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	3228	}
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	3229
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	3230	ERROR;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	3231	}
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	3232
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	3233	}/function_dint_to_ulint/
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	3234	break;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	3235
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	3236	/****
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	3237	*DINT_TO_TIME
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	3238	*/
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	3239	case function_dint_to_time :
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	3240	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	3241	symbol_c *last_type_symbol = NULL;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	3242
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	3243	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	3244	identifier_c param_name("IN");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	3245	/* Get the value from a foo(<param_name> = <param_value>) style call */
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	3246	symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	3247
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	3248	/* Get the value from a foo(<param_value>) style call */
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	3249	if (IN_param_value == NULL)
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	3250	IN_param_value = function_call_param_iterator.next();
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	3251	symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	3252	last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	3253
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	3254	if (typeid(*last_type_symbol) == typeid(dint_type_name_c))
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	3255	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	3256
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	3257	symbol_c * return_type_symbol = &search_constant_type_c::time_type_name;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	3258	s4o.print("(");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	3259	return_type_symbol->accept(*this);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	3260	s4o.print(")real_to_time(");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	3261	IN_param_value->accept(*this);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	3262	s4o.print(")");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	3263	return NULL;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	3264
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	3265	}
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	3266
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	3267	ERROR;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	3268	}
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	3269
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	3270	}/function_dint_to_time/
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	3271	break;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	3272
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	3273	/****
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	3274	*DINT_TO_BOOL
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	3275	*/
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	3276	case function_dint_to_bool :
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	3277	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	3278	symbol_c *last_type_symbol = NULL;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	3279
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	3280	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	3281	identifier_c param_name("IN");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	3282	/* Get the value from a foo(<param_name> = <param_value>) style call */
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	3283	symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	3284
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	3285	/* Get the value from a foo(<param_value>) style call */
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	3286	if (IN_param_value == NULL)
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	3287	IN_param_value = function_call_param_iterator.next();
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	3288	symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	3289	last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	3290
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	3291	if (typeid(*last_type_symbol) == typeid(dint_type_name_c))
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	3292	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	3293
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	3294	symbol_c * return_type_symbol = &search_constant_type_c::bool_type_name;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	3295	s4o.print("(");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	3296	return_type_symbol->accept(*this);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	3297	s4o.print(")");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	3298	IN_param_value->accept(*this);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	3299	return NULL;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	3300
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	3301	}
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	3302
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	3303	ERROR;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	3304	}
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	3305
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	3306	}/function_dint_to_bool/
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	3307	break;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	3308
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	3309	/****
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	3310	*DINT_TO_BYTE
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	3311	*/
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	3312	case function_dint_to_byte :
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	3313	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	3314	symbol_c *last_type_symbol = NULL;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	3315
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	3316	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	3317	identifier_c param_name("IN");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	3318	/* Get the value from a foo(<param_name> = <param_value>) style call */
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	3319	symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	3320
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	3321	/* Get the value from a foo(<param_value>) style call */
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	3322	if (IN_param_value == NULL)
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	3323	IN_param_value = function_call_param_iterator.next();
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	3324	symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	3325	last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	3326
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	3327	if (typeid(*last_type_symbol) == typeid(dint_type_name_c))
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	3328	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	3329
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	3330	symbol_c * return_type_symbol = &search_constant_type_c::byte_type_name;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	3331	s4o.print("(");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	3332	return_type_symbol->accept(*this);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	3333	s4o.print(")");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	3334	IN_param_value->accept(*this);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	3335	return NULL;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	3336
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	3337	}
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	3338
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	3339	ERROR;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	3340	}
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	3341
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	3342	}/function_dint_to_byte/
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	3343	break;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	3344
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	3345	/****
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	3346	*DINT_TO_WORD
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	3347	*/
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	3348	case function_dint_to_word :
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	3349	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	3350	symbol_c *last_type_symbol = NULL;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	3351
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	3352	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	3353	identifier_c param_name("IN");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	3354	/* Get the value from a foo(<param_name> = <param_value>) style call */
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	3355	symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	3356
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	3357	/* Get the value from a foo(<param_value>) style call */
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	3358	if (IN_param_value == NULL)
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	3359	IN_param_value = function_call_param_iterator.next();
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	3360	symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	3361	last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	3362
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	3363	if (typeid(*last_type_symbol) == typeid(dint_type_name_c))
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	3364	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	3365
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	3366	symbol_c * return_type_symbol = &search_constant_type_c::word_type_name;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	3367	s4o.print("(");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	3368	return_type_symbol->accept(*this);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	3369	s4o.print(")");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	3370	IN_param_value->accept(*this);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	3371	return NULL;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	3372
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	3373	}
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	3374
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	3375	ERROR;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	3376	}
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	3377
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	3378	}/function_dint_to_word/
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	3379	break;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	3380
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	3381	/****
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	3382	*DINT_TO_DWORD
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	3383	*/
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	3384	case function_dint_to_dword :
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	3385	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	3386	symbol_c *last_type_symbol = NULL;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	3387
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	3388	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	3389	identifier_c param_name("IN");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	3390	/* Get the value from a foo(<param_name> = <param_value>) style call */
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	3391	symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	3392
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	3393	/* Get the value from a foo(<param_value>) style call */
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	3394	if (IN_param_value == NULL)
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	3395	IN_param_value = function_call_param_iterator.next();
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	3396	symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	3397	last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	3398
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	3399	if (typeid(*last_type_symbol) == typeid(dint_type_name_c))
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	3400	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	3401
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	3402	symbol_c * return_type_symbol = &search_constant_type_c::dword_type_name;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	3403	s4o.print("(");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	3404	return_type_symbol->accept(*this);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	3405	s4o.print(")");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	3406	IN_param_value->accept(*this);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	3407	return NULL;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	3408
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	3409	}
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	3410
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	3411	ERROR;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	3412	}
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	3413
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	3414	}/function_dint_to_dword/
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	3415	break;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	3416
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	3417	/****
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	3418	*DINT_TO_LWORD
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	3419	*/
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	3420	case function_dint_to_lword :
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	3421	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	3422	symbol_c *last_type_symbol = NULL;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	3423
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	3424	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	3425	identifier_c param_name("IN");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	3426	/* Get the value from a foo(<param_name> = <param_value>) style call */
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	3427	symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	3428
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	3429	/* Get the value from a foo(<param_value>) style call */
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	3430	if (IN_param_value == NULL)
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	3431	IN_param_value = function_call_param_iterator.next();
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	3432	symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	3433	last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	3434
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	3435	if (typeid(*last_type_symbol) == typeid(dint_type_name_c))
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	3436	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	3437
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	3438	symbol_c * return_type_symbol = &search_constant_type_c::lword_type_name;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	3439	s4o.print("(");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	3440	return_type_symbol->accept(*this);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	3441	s4o.print(")");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	3442	IN_param_value->accept(*this);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	3443	return NULL;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	3444
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	3445	}
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	3446
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	3447	ERROR;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	3448	}
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	3449
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	3450	}/function_dint_to_lword/
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	3451	break;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	3452
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	3453	/****
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	3454	*DINT_TO_STRING
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	3455	*/
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	3456	case function_dint_to_string :
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	3457	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	3458	symbol_c *last_type_symbol = NULL;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	3459
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	3460	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	3461	identifier_c param_name("IN");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	3462	/* Get the value from a foo(<param_name> = <param_value>) style call */
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	3463	symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	3464
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	3465	/* Get the value from a foo(<param_value>) style call */
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	3466	if (IN_param_value == NULL)
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	3467	IN_param_value = function_call_param_iterator.next();
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	3468	symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	3469	last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	3470
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	3471	if (typeid(*last_type_symbol) == typeid(dint_type_name_c))
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	3472	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	3473
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	3474	symbol_c * return_type_symbol = &search_constant_type_c::string_type_name;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	3475	s4o.print("(");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	3476	return_type_symbol->accept(*this);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	3477	s4o.print(")int_to_string(");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	3478	IN_param_value->accept(*this);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	3479	s4o.print(", 10)");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	3480	return NULL;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	3481
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	3482	}
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	3483
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	3484	ERROR;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	3485	}
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	3486
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	3487	}/function_dint_to_string/
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	3488	break;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	3489
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	3490	/****
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	3491	*DINT_TO_WSTRING
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	3492	*/
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	3493	case function_dint_to_wstring :
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	3494	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	3495	symbol_c *last_type_symbol = NULL;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	3496
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	3497	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	3498	identifier_c param_name("IN");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	3499	/* Get the value from a foo(<param_name> = <param_value>) style call */
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	3500	symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	3501
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	3502	/* Get the value from a foo(<param_value>) style call */
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	3503	if (IN_param_value == NULL)
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	3504	IN_param_value = function_call_param_iterator.next();
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	3505	symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	3506	last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	3507
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	3508	if (typeid(*last_type_symbol) == typeid(dint_type_name_c))
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	3509	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	3510
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	3511	symbol_c * return_type_symbol = &search_constant_type_c::wstring_type_name;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	3512	s4o.print("(");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	3513	return_type_symbol->accept(*this);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	3514	s4o.print(")int_to_string(");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	3515	IN_param_value->accept(*this);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	3516	s4o.print(", 10)");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	3517	return NULL;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	3518
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	3519	}
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	3520
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	3521	ERROR;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	3522	}
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	3523
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	3524	}/function_dint_to_wstring/
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	3525	break;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	3526
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	3527	/****
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	3528	*DINT_TO_DATE
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	3529	*/
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	3530	case function_dint_to_date :
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	3531	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	3532	symbol_c *last_type_symbol = NULL;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	3533
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	3534	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	3535	identifier_c param_name("IN");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	3536	/* Get the value from a foo(<param_name> = <param_value>) style call */
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	3537	symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	3538
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	3539	/* Get the value from a foo(<param_value>) style call */
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	3540	if (IN_param_value == NULL)
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	3541	IN_param_value = function_call_param_iterator.next();
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	3542	symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	3543	last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	3544
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	3545	if (typeid(*last_type_symbol) == typeid(dint_type_name_c))
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	3546	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	3547
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	3548	symbol_c * return_type_symbol = &search_constant_type_c::date_type_name;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	3549	s4o.print("(");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	3550	return_type_symbol->accept(*this);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	3551	s4o.print(")real_to_time(");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	3552	IN_param_value->accept(*this);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	3553	s4o.print(")");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	3554	return NULL;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	3555
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	3556	}
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	3557
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	3558	ERROR;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	3559	}
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	3560
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	3561	}/function_dint_to_date/
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	3562	break;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	3563
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	3564	/****
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	3565	*DINT_TO_TOD
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	3566	*/
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	3567	case function_dint_to_tod :
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	3568	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	3569	symbol_c *last_type_symbol = NULL;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	3570
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	3571	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	3572	identifier_c param_name("IN");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	3573	/* Get the value from a foo(<param_name> = <param_value>) style call */
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	3574	symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	3575
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	3576	/* Get the value from a foo(<param_value>) style call */
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	3577	if (IN_param_value == NULL)
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	3578	IN_param_value = function_call_param_iterator.next();
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	3579	symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	3580	last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	3581
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	3582	if (typeid(*last_type_symbol) == typeid(dint_type_name_c))
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	3583	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	3584
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	3585	symbol_c * return_type_symbol = &search_constant_type_c::tod_type_name;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	3586	s4o.print("(");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	3587	return_type_symbol->accept(*this);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	3588	s4o.print(")real_to_time(");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	3589	IN_param_value->accept(*this);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	3590	s4o.print(")");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	3591	return NULL;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	3592
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	3593	}
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	3594
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	3595	ERROR;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	3596	}
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	3597
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	3598	}/function_dint_to_tod/
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	3599	break;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	3600
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	3601	/****
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	3602	*DINT_TO_DT
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	3603	*/
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	3604	case function_dint_to_dt :
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	3605	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	3606	symbol_c *last_type_symbol = NULL;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	3607
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	3608	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	3609	identifier_c param_name("IN");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	3610	/* Get the value from a foo(<param_name> = <param_value>) style call */
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	3611	symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	3612
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	3613	/* Get the value from a foo(<param_value>) style call */
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	3614	if (IN_param_value == NULL)
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	3615	IN_param_value = function_call_param_iterator.next();
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	3616	symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	3617	last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	3618
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	3619	if (typeid(*last_type_symbol) == typeid(dint_type_name_c))
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	3620	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	3621
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	3622	symbol_c * return_type_symbol = &search_constant_type_c::dt_type_name;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	3623	s4o.print("(");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	3624	return_type_symbol->accept(*this);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	3625	s4o.print(")real_to_time(");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	3626	IN_param_value->accept(*this);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	3627	s4o.print(")");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	3628	return NULL;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	3629
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	3630	}
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	3631
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	3632	ERROR;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	3633	}
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	3634
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	3635	}/function_dint_to_dt/
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	3636	break;
33 4507beb2aac6 preliminary std lib support for ST etisserant parents: diff changeset	3637
4507beb2aac6 preliminary std lib support for ST etisserant parents: diff changeset	3638	/****
4507beb2aac6 preliminary std lib support for ST etisserant parents: diff changeset	3639	*LINT_TO_REAL
4507beb2aac6 preliminary std lib support for ST etisserant parents: diff changeset	3640	*/
35 9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	3641	case function_lint_to_real :
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	3642	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	3643	symbol_c *last_type_symbol = NULL;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	3644
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	3645	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	3646	identifier_c param_name("IN");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	3647	/* Get the value from a foo(<param_name> = <param_value>) style call */
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	3648	symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	3649
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	3650	/* Get the value from a foo(<param_value>) style call */
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	3651	if (IN_param_value == NULL)
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	3652	IN_param_value = function_call_param_iterator.next();
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	3653	symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	3654	last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	3655
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	3656	if (typeid(*last_type_symbol) == typeid(lint_type_name_c))
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	3657	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	3658
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	3659	symbol_c * return_type_symbol = &search_constant_type_c::real_type_name;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	3660	s4o.print("(");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	3661	return_type_symbol->accept(*this);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	3662	s4o.print(")");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	3663	IN_param_value->accept(*this);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	3664	return NULL;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	3665
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	3666	}
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	3667
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	3668	ERROR;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	3669	}
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	3670
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	3671	}/function_lint_to_real/
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	3672	break;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	3673
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	3674	/****
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	3675	*LINT_TO_LREAL
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	3676	*/
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	3677	case function_lint_to_lreal :
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	3678	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	3679	symbol_c *last_type_symbol = NULL;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	3680
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	3681	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	3682	identifier_c param_name("IN");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	3683	/* Get the value from a foo(<param_name> = <param_value>) style call */
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	3684	symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	3685
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	3686	/* Get the value from a foo(<param_value>) style call */
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	3687	if (IN_param_value == NULL)
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	3688	IN_param_value = function_call_param_iterator.next();
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	3689	symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	3690	last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	3691
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	3692	if (typeid(*last_type_symbol) == typeid(lint_type_name_c))
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	3693	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	3694
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	3695	symbol_c * return_type_symbol = &search_constant_type_c::lreal_type_name;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	3696	s4o.print("(");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	3697	return_type_symbol->accept(*this);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	3698	s4o.print(")");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	3699	IN_param_value->accept(*this);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	3700	return NULL;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	3701
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	3702	}
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	3703
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	3704	ERROR;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	3705	}
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	3706
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	3707	}/function_lint_to_lreal/
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	3708	break;
33 4507beb2aac6 preliminary std lib support for ST etisserant parents: diff changeset	3709
4507beb2aac6 preliminary std lib support for ST etisserant parents: diff changeset	3710	/****
4507beb2aac6 preliminary std lib support for ST etisserant parents: diff changeset	3711	*LINT_TO_SINT
4507beb2aac6 preliminary std lib support for ST etisserant parents: diff changeset	3712	*/
35 9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	3713	case function_lint_to_sint :
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	3714	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	3715	symbol_c *last_type_symbol = NULL;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	3716
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	3717	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	3718	identifier_c param_name("IN");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	3719	/* Get the value from a foo(<param_name> = <param_value>) style call */
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	3720	symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	3721
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	3722	/* Get the value from a foo(<param_value>) style call */
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	3723	if (IN_param_value == NULL)
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	3724	IN_param_value = function_call_param_iterator.next();
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	3725	symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	3726	last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	3727
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	3728	if (typeid(*last_type_symbol) == typeid(lint_type_name_c))
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	3729	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	3730
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	3731	symbol_c * return_type_symbol = &search_constant_type_c::sint_type_name;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	3732	s4o.print("(");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	3733	return_type_symbol->accept(*this);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	3734	s4o.print(")");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	3735	IN_param_value->accept(*this);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	3736	return NULL;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	3737
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	3738	}
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	3739
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	3740	ERROR;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	3741	}
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	3742
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	3743	}/function_lint_to_sint/
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	3744	break;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	3745
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	3746	/****
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	3747	*LINT_TO_INT
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	3748	*/
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	3749	case function_lint_to_int :
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	3750	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	3751	symbol_c *last_type_symbol = NULL;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	3752
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	3753	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	3754	identifier_c param_name("IN");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	3755	/* Get the value from a foo(<param_name> = <param_value>) style call */
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	3756	symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	3757
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	3758	/* Get the value from a foo(<param_value>) style call */
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	3759	if (IN_param_value == NULL)
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	3760	IN_param_value = function_call_param_iterator.next();
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	3761	symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	3762	last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	3763
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	3764	if (typeid(*last_type_symbol) == typeid(lint_type_name_c))
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	3765	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	3766
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	3767	symbol_c * return_type_symbol = &search_constant_type_c::int_type_name;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	3768	s4o.print("(");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	3769	return_type_symbol->accept(*this);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	3770	s4o.print(")");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	3771	IN_param_value->accept(*this);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	3772	return NULL;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	3773
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	3774	}
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	3775
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	3776	ERROR;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	3777	}
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	3778
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	3779	}/function_lint_to_int/
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	3780	break;
33 4507beb2aac6 preliminary std lib support for ST etisserant parents: diff changeset	3781
4507beb2aac6 preliminary std lib support for ST etisserant parents: diff changeset	3782	/****
4507beb2aac6 preliminary std lib support for ST etisserant parents: diff changeset	3783	*LINT_TO_DINT
4507beb2aac6 preliminary std lib support for ST etisserant parents: diff changeset	3784	*/
35 9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	3785	case function_lint_to_dint :
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	3786	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	3787	symbol_c *last_type_symbol = NULL;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	3788
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	3789	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	3790	identifier_c param_name("IN");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	3791	/* Get the value from a foo(<param_name> = <param_value>) style call */
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	3792	symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	3793
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	3794	/* Get the value from a foo(<param_value>) style call */
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	3795	if (IN_param_value == NULL)
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	3796	IN_param_value = function_call_param_iterator.next();
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	3797	symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	3798	last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	3799
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	3800	if (typeid(*last_type_symbol) == typeid(lint_type_name_c))
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	3801	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	3802
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	3803	symbol_c * return_type_symbol = &search_constant_type_c::dint_type_name;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	3804	s4o.print("(");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	3805	return_type_symbol->accept(*this);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	3806	s4o.print(")");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	3807	IN_param_value->accept(*this);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	3808	return NULL;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	3809
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	3810	}
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	3811
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	3812	ERROR;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	3813	}
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	3814
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	3815	}/function_lint_to_dint/
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	3816	break;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	3817
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	3818	/****
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	3819	*LINT_TO_USINT
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	3820	*/
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	3821	case function_lint_to_usint :
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	3822	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	3823	symbol_c *last_type_symbol = NULL;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	3824
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	3825	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	3826	identifier_c param_name("IN");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	3827	/* Get the value from a foo(<param_name> = <param_value>) style call */
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	3828	symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	3829
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	3830	/* Get the value from a foo(<param_value>) style call */
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	3831	if (IN_param_value == NULL)
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	3832	IN_param_value = function_call_param_iterator.next();
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	3833	symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	3834	last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	3835
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	3836	if (typeid(*last_type_symbol) == typeid(lint_type_name_c))
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	3837	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	3838
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	3839	symbol_c * return_type_symbol = &search_constant_type_c::usint_type_name;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	3840	s4o.print("(");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	3841	return_type_symbol->accept(*this);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	3842	s4o.print(")");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	3843	IN_param_value->accept(*this);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	3844	return NULL;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	3845
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	3846	}
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	3847
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	3848	ERROR;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	3849	}
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	3850
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	3851	}/function_lint_to_usint/
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	3852	break;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	3853
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	3854	/****
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	3855	*LINT_TO_UINT
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	3856	*/
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	3857	case function_lint_to_uint :
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	3858	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	3859	symbol_c *last_type_symbol = NULL;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	3860
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	3861	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	3862	identifier_c param_name("IN");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	3863	/* Get the value from a foo(<param_name> = <param_value>) style call */
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	3864	symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	3865
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	3866	/* Get the value from a foo(<param_value>) style call */
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	3867	if (IN_param_value == NULL)
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	3868	IN_param_value = function_call_param_iterator.next();
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	3869	symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	3870	last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	3871
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	3872	if (typeid(*last_type_symbol) == typeid(lint_type_name_c))
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	3873	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	3874
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	3875	symbol_c * return_type_symbol = &search_constant_type_c::uint_type_name;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	3876	s4o.print("(");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	3877	return_type_symbol->accept(*this);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	3878	s4o.print(")");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	3879	IN_param_value->accept(*this);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	3880	return NULL;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	3881
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	3882	}
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	3883
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	3884	ERROR;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	3885	}
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	3886
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	3887	}/function_lint_to_uint/
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	3888	break;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	3889
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	3890	/****
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	3891	*LINT_TO_UDINT
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	3892	*/
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	3893	case function_lint_to_udint :
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	3894	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	3895	symbol_c *last_type_symbol = NULL;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	3896
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	3897	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	3898	identifier_c param_name("IN");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	3899	/* Get the value from a foo(<param_name> = <param_value>) style call */
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	3900	symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	3901
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	3902	/* Get the value from a foo(<param_value>) style call */
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	3903	if (IN_param_value == NULL)
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	3904	IN_param_value = function_call_param_iterator.next();
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	3905	symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	3906	last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	3907
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	3908	if (typeid(*last_type_symbol) == typeid(lint_type_name_c))
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	3909	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	3910
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	3911	symbol_c * return_type_symbol = &search_constant_type_c::udint_type_name;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	3912	s4o.print("(");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	3913	return_type_symbol->accept(*this);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	3914	s4o.print(")");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	3915	IN_param_value->accept(*this);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	3916	return NULL;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	3917
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	3918	}
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	3919
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	3920	ERROR;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	3921	}
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	3922
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	3923	}/function_lint_to_udint/
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	3924	break;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	3925
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	3926	/****
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	3927	*LINT_TO_ULINT
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	3928	*/
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	3929	case function_lint_to_ulint :
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	3930	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	3931	symbol_c *last_type_symbol = NULL;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	3932
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	3933	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	3934	identifier_c param_name("IN");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	3935	/* Get the value from a foo(<param_name> = <param_value>) style call */
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	3936	symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	3937
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	3938	/* Get the value from a foo(<param_value>) style call */
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	3939	if (IN_param_value == NULL)
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	3940	IN_param_value = function_call_param_iterator.next();
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	3941	symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	3942	last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	3943
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	3944	if (typeid(*last_type_symbol) == typeid(lint_type_name_c))
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	3945	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	3946
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	3947	symbol_c * return_type_symbol = &search_constant_type_c::ulint_type_name;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	3948	s4o.print("(");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	3949	return_type_symbol->accept(*this);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	3950	s4o.print(")");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	3951	IN_param_value->accept(*this);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	3952	return NULL;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	3953
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	3954	}
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	3955
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	3956	ERROR;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	3957	}
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	3958
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	3959	}/function_lint_to_ulint/
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	3960	break;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	3961
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	3962	/****
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	3963	*LINT_TO_TIME
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	3964	*/
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	3965	case function_lint_to_time :
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	3966	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	3967	symbol_c *last_type_symbol = NULL;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	3968
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	3969	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	3970	identifier_c param_name("IN");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	3971	/* Get the value from a foo(<param_name> = <param_value>) style call */
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	3972	symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	3973
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	3974	/* Get the value from a foo(<param_value>) style call */
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	3975	if (IN_param_value == NULL)
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	3976	IN_param_value = function_call_param_iterator.next();
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	3977	symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	3978	last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	3979
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	3980	if (typeid(*last_type_symbol) == typeid(lint_type_name_c))
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	3981	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	3982
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	3983	symbol_c * return_type_symbol = &search_constant_type_c::time_type_name;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	3984	s4o.print("(");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	3985	return_type_symbol->accept(*this);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	3986	s4o.print(")real_to_time(");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	3987	IN_param_value->accept(*this);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	3988	s4o.print(")");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	3989	return NULL;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	3990
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	3991	}
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	3992
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	3993	ERROR;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	3994	}
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	3995
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	3996	}/function_lint_to_time/
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	3997	break;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	3998
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	3999	/****
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	4000	*LINT_TO_BOOL
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	4001	*/
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	4002	case function_lint_to_bool :
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	4003	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	4004	symbol_c *last_type_symbol = NULL;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	4005
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	4006	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	4007	identifier_c param_name("IN");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	4008	/* Get the value from a foo(<param_name> = <param_value>) style call */
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	4009	symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	4010
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	4011	/* Get the value from a foo(<param_value>) style call */
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	4012	if (IN_param_value == NULL)
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	4013	IN_param_value = function_call_param_iterator.next();
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	4014	symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	4015	last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	4016
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	4017	if (typeid(*last_type_symbol) == typeid(lint_type_name_c))
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	4018	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	4019
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	4020	symbol_c * return_type_symbol = &search_constant_type_c::bool_type_name;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	4021	s4o.print("(");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	4022	return_type_symbol->accept(*this);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	4023	s4o.print(")");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	4024	IN_param_value->accept(*this);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	4025	return NULL;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	4026
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	4027	}
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	4028
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	4029	ERROR;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	4030	}
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	4031
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	4032	}/function_lint_to_bool/
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	4033	break;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	4034
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	4035	/****
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	4036	*LINT_TO_BYTE
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	4037	*/
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	4038	case function_lint_to_byte :
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	4039	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	4040	symbol_c *last_type_symbol = NULL;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	4041
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	4042	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	4043	identifier_c param_name("IN");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	4044	/* Get the value from a foo(<param_name> = <param_value>) style call */
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	4045	symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	4046
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	4047	/* Get the value from a foo(<param_value>) style call */
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	4048	if (IN_param_value == NULL)
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	4049	IN_param_value = function_call_param_iterator.next();
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	4050	symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	4051	last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	4052
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	4053	if (typeid(*last_type_symbol) == typeid(lint_type_name_c))
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	4054	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	4055
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	4056	symbol_c * return_type_symbol = &search_constant_type_c::byte_type_name;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	4057	s4o.print("(");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	4058	return_type_symbol->accept(*this);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	4059	s4o.print(")");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	4060	IN_param_value->accept(*this);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	4061	return NULL;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	4062
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	4063	}
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	4064
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	4065	ERROR;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	4066	}
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	4067
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	4068	}/function_lint_to_byte/
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	4069	break;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	4070
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	4071	/****
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	4072	*LINT_TO_WORD
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	4073	*/
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	4074	case function_lint_to_word :
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	4075	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	4076	symbol_c *last_type_symbol = NULL;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	4077
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	4078	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	4079	identifier_c param_name("IN");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	4080	/* Get the value from a foo(<param_name> = <param_value>) style call */
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	4081	symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	4082
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	4083	/* Get the value from a foo(<param_value>) style call */
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	4084	if (IN_param_value == NULL)
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	4085	IN_param_value = function_call_param_iterator.next();
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	4086	symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	4087	last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	4088
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	4089	if (typeid(*last_type_symbol) == typeid(lint_type_name_c))
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	4090	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	4091
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	4092	symbol_c * return_type_symbol = &search_constant_type_c::word_type_name;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	4093	s4o.print("(");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	4094	return_type_symbol->accept(*this);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	4095	s4o.print(")");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	4096	IN_param_value->accept(*this);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	4097	return NULL;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	4098
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	4099	}
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	4100
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	4101	ERROR;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	4102	}
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	4103
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	4104	}/function_lint_to_word/
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	4105	break;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	4106
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	4107	/****
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	4108	*LINT_TO_DWORD
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	4109	*/
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	4110	case function_lint_to_dword :
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	4111	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	4112	symbol_c *last_type_symbol = NULL;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	4113
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	4114	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	4115	identifier_c param_name("IN");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	4116	/* Get the value from a foo(<param_name> = <param_value>) style call */
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	4117	symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	4118
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	4119	/* Get the value from a foo(<param_value>) style call */
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	4120	if (IN_param_value == NULL)
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	4121	IN_param_value = function_call_param_iterator.next();
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	4122	symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	4123	last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	4124
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	4125	if (typeid(*last_type_symbol) == typeid(lint_type_name_c))
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	4126	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	4127
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	4128	symbol_c * return_type_symbol = &search_constant_type_c::dword_type_name;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	4129	s4o.print("(");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	4130	return_type_symbol->accept(*this);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	4131	s4o.print(")");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	4132	IN_param_value->accept(*this);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	4133	return NULL;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	4134
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	4135	}
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	4136
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	4137	ERROR;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	4138	}
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	4139
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	4140	}/function_lint_to_dword/
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	4141	break;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	4142
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	4143	/****
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	4144	*LINT_TO_LWORD
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	4145	*/
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	4146	case function_lint_to_lword :
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	4147	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	4148	symbol_c *last_type_symbol = NULL;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	4149
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	4150	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	4151	identifier_c param_name("IN");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	4152	/* Get the value from a foo(<param_name> = <param_value>) style call */
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	4153	symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	4154
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	4155	/* Get the value from a foo(<param_value>) style call */
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	4156	if (IN_param_value == NULL)
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	4157	IN_param_value = function_call_param_iterator.next();
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	4158	symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	4159	last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	4160
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	4161	if (typeid(*last_type_symbol) == typeid(lint_type_name_c))
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	4162	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	4163
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	4164	symbol_c * return_type_symbol = &search_constant_type_c::lword_type_name;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	4165	s4o.print("(");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	4166	return_type_symbol->accept(*this);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	4167	s4o.print(")");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	4168	IN_param_value->accept(*this);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	4169	return NULL;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	4170
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	4171	}
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	4172
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	4173	ERROR;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	4174	}
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	4175
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	4176	}/function_lint_to_lword/
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	4177	break;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	4178
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	4179	/****
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	4180	*LINT_TO_STRING
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	4181	*/
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	4182	case function_lint_to_string :
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	4183	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	4184	symbol_c *last_type_symbol = NULL;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	4185
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	4186	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	4187	identifier_c param_name("IN");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	4188	/* Get the value from a foo(<param_name> = <param_value>) style call */
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	4189	symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	4190
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	4191	/* Get the value from a foo(<param_value>) style call */
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	4192	if (IN_param_value == NULL)
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	4193	IN_param_value = function_call_param_iterator.next();
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	4194	symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	4195	last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	4196
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	4197	if (typeid(*last_type_symbol) == typeid(lint_type_name_c))
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	4198	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	4199
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	4200	symbol_c * return_type_symbol = &search_constant_type_c::string_type_name;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	4201	s4o.print("(");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	4202	return_type_symbol->accept(*this);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	4203	s4o.print(")int_to_string(");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	4204	IN_param_value->accept(*this);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	4205	s4o.print(", 10)");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	4206	return NULL;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	4207
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	4208	}
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	4209
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	4210	ERROR;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	4211	}
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	4212
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	4213	}/function_lint_to_string/
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	4214	break;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	4215
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	4216	/****
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	4217	*LINT_TO_WSTRING
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	4218	*/
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	4219	case function_lint_to_wstring :
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	4220	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	4221	symbol_c *last_type_symbol = NULL;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	4222
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	4223	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	4224	identifier_c param_name("IN");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	4225	/* Get the value from a foo(<param_name> = <param_value>) style call */
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	4226	symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	4227
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	4228	/* Get the value from a foo(<param_value>) style call */
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	4229	if (IN_param_value == NULL)
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	4230	IN_param_value = function_call_param_iterator.next();
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	4231	symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	4232	last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	4233
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	4234	if (typeid(*last_type_symbol) == typeid(lint_type_name_c))
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	4235	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	4236
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	4237	symbol_c * return_type_symbol = &search_constant_type_c::wstring_type_name;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	4238	s4o.print("(");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	4239	return_type_symbol->accept(*this);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	4240	s4o.print(")int_to_string(");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	4241	IN_param_value->accept(*this);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	4242	s4o.print(", 10)");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	4243	return NULL;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	4244
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	4245	}
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	4246
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	4247	ERROR;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	4248	}
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	4249
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	4250	}/function_lint_to_wstring/
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	4251	break;
33 4507beb2aac6 preliminary std lib support for ST etisserant parents: diff changeset	4252
4507beb2aac6 preliminary std lib support for ST etisserant parents: diff changeset	4253	/****
4507beb2aac6 preliminary std lib support for ST etisserant parents: diff changeset	4254	*LINT_TO_DATE
4507beb2aac6 preliminary std lib support for ST etisserant parents: diff changeset	4255	*/
35 9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	4256	case function_lint_to_date :
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	4257	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	4258	symbol_c *last_type_symbol = NULL;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	4259
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	4260	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	4261	identifier_c param_name("IN");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	4262	/* Get the value from a foo(<param_name> = <param_value>) style call */
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	4263	symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	4264
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	4265	/* Get the value from a foo(<param_value>) style call */
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	4266	if (IN_param_value == NULL)
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	4267	IN_param_value = function_call_param_iterator.next();
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	4268	symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	4269	last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	4270
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	4271	if (typeid(*last_type_symbol) == typeid(lint_type_name_c))
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	4272	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	4273
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	4274	symbol_c * return_type_symbol = &search_constant_type_c::date_type_name;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	4275	s4o.print("(");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	4276	return_type_symbol->accept(*this);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	4277	s4o.print(")real_to_time(");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	4278	IN_param_value->accept(*this);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	4279	s4o.print(")");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	4280	return NULL;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	4281
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	4282	}
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	4283
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	4284	ERROR;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	4285	}
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	4286
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	4287	}/function_lint_to_date/
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	4288	break;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	4289
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	4290	/****
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	4291	*LINT_TO_TOD
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	4292	*/
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	4293	case function_lint_to_tod :
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	4294	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	4295	symbol_c *last_type_symbol = NULL;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	4296
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	4297	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	4298	identifier_c param_name("IN");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	4299	/* Get the value from a foo(<param_name> = <param_value>) style call */
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	4300	symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	4301
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	4302	/* Get the value from a foo(<param_value>) style call */
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	4303	if (IN_param_value == NULL)
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	4304	IN_param_value = function_call_param_iterator.next();
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	4305	symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	4306	last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	4307
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	4308	if (typeid(*last_type_symbol) == typeid(lint_type_name_c))
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	4309	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	4310
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	4311	symbol_c * return_type_symbol = &search_constant_type_c::tod_type_name;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	4312	s4o.print("(");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	4313	return_type_symbol->accept(*this);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	4314	s4o.print(")real_to_time(");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	4315	IN_param_value->accept(*this);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	4316	s4o.print(")");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	4317	return NULL;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	4318
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	4319	}
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	4320
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	4321	ERROR;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	4322	}
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	4323
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	4324	}/function_lint_to_tod/
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	4325	break;
33 4507beb2aac6 preliminary std lib support for ST etisserant parents: diff changeset	4326
4507beb2aac6 preliminary std lib support for ST etisserant parents: diff changeset	4327	/****
4507beb2aac6 preliminary std lib support for ST etisserant parents: diff changeset	4328	*LINT_TO_DT
4507beb2aac6 preliminary std lib support for ST etisserant parents: diff changeset	4329	*/
35 9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	4330	case function_lint_to_dt :
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	4331	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	4332	symbol_c *last_type_symbol = NULL;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	4333
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	4334	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	4335	identifier_c param_name("IN");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	4336	/* Get the value from a foo(<param_name> = <param_value>) style call */
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	4337	symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	4338
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	4339	/* Get the value from a foo(<param_value>) style call */
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	4340	if (IN_param_value == NULL)
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	4341	IN_param_value = function_call_param_iterator.next();
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	4342	symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	4343	last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	4344
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	4345	if (typeid(*last_type_symbol) == typeid(lint_type_name_c))
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	4346	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	4347
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	4348	symbol_c * return_type_symbol = &search_constant_type_c::dt_type_name;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	4349	s4o.print("(");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	4350	return_type_symbol->accept(*this);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	4351	s4o.print(")real_to_time(");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	4352	IN_param_value->accept(*this);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	4353	s4o.print(")");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	4354	return NULL;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	4355
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	4356	}
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	4357
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	4358	ERROR;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	4359	}
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	4360
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	4361	}/function_lint_to_dt/
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	4362	break;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	4363
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	4364	/****
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	4365	*USINT_TO_REAL
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	4366	*/
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	4367	case function_usint_to_real :
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	4368	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	4369	symbol_c *last_type_symbol = NULL;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	4370
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	4371	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	4372	identifier_c param_name("IN");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	4373	/* Get the value from a foo(<param_name> = <param_value>) style call */
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	4374	symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	4375
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	4376	/* Get the value from a foo(<param_value>) style call */
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	4377	if (IN_param_value == NULL)
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	4378	IN_param_value = function_call_param_iterator.next();
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	4379	symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	4380	last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	4381
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	4382	if (typeid(*last_type_symbol) == typeid(usint_type_name_c))
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	4383	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	4384
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	4385	symbol_c * return_type_symbol = &search_constant_type_c::real_type_name;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	4386	s4o.print("(");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	4387	return_type_symbol->accept(*this);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	4388	s4o.print(")");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	4389	IN_param_value->accept(*this);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	4390	return NULL;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	4391
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	4392	}
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	4393
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	4394	ERROR;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	4395	}
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	4396
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	4397	}/function_usint_to_real/
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	4398	break;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	4399
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	4400	/****
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	4401	*USINT_TO_LREAL
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	4402	*/
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	4403	case function_usint_to_lreal :
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	4404	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	4405	symbol_c *last_type_symbol = NULL;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	4406
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	4407	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	4408	identifier_c param_name("IN");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	4409	/* Get the value from a foo(<param_name> = <param_value>) style call */
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	4410	symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	4411
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	4412	/* Get the value from a foo(<param_value>) style call */
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	4413	if (IN_param_value == NULL)
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	4414	IN_param_value = function_call_param_iterator.next();
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	4415	symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	4416	last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	4417
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	4418	if (typeid(*last_type_symbol) == typeid(usint_type_name_c))
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	4419	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	4420
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	4421	symbol_c * return_type_symbol = &search_constant_type_c::lreal_type_name;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	4422	s4o.print("(");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	4423	return_type_symbol->accept(*this);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	4424	s4o.print(")");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	4425	IN_param_value->accept(*this);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	4426	return NULL;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	4427
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	4428	}
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	4429
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	4430	ERROR;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	4431	}
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	4432
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	4433	}/function_usint_to_lreal/
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	4434	break;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	4435
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	4436	/****
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	4437	*USINT_TO_SINT
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	4438	*/
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	4439	case function_usint_to_sint :
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	4440	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	4441	symbol_c *last_type_symbol = NULL;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	4442
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	4443	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	4444	identifier_c param_name("IN");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	4445	/* Get the value from a foo(<param_name> = <param_value>) style call */
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	4446	symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	4447
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	4448	/* Get the value from a foo(<param_value>) style call */
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	4449	if (IN_param_value == NULL)
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	4450	IN_param_value = function_call_param_iterator.next();
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	4451	symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	4452	last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	4453
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	4454	if (typeid(*last_type_symbol) == typeid(usint_type_name_c))
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	4455	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	4456
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	4457	symbol_c * return_type_symbol = &search_constant_type_c::sint_type_name;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	4458	s4o.print("(");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	4459	return_type_symbol->accept(*this);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	4460	s4o.print(")");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	4461	IN_param_value->accept(*this);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	4462	return NULL;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	4463
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	4464	}
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	4465
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	4466	ERROR;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	4467	}
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	4468
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	4469	}/function_usint_to_sint/
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	4470	break;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	4471
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	4472	/****
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	4473	*USINT_TO_INT
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	4474	*/
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	4475	case function_usint_to_int :
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	4476	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	4477	symbol_c *last_type_symbol = NULL;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	4478
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	4479	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	4480	identifier_c param_name("IN");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	4481	/* Get the value from a foo(<param_name> = <param_value>) style call */
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	4482	symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	4483
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	4484	/* Get the value from a foo(<param_value>) style call */
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	4485	if (IN_param_value == NULL)
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	4486	IN_param_value = function_call_param_iterator.next();
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	4487	symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	4488	last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	4489
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	4490	if (typeid(*last_type_symbol) == typeid(usint_type_name_c))
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	4491	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	4492
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	4493	symbol_c * return_type_symbol = &search_constant_type_c::int_type_name;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	4494	s4o.print("(");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	4495	return_type_symbol->accept(*this);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	4496	s4o.print(")");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	4497	IN_param_value->accept(*this);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	4498	return NULL;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	4499
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	4500	}
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	4501
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	4502	ERROR;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	4503	}
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	4504
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	4505	}/function_usint_to_int/
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	4506	break;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	4507
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	4508	/****
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	4509	*USINT_TO_DINT
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	4510	*/
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	4511	case function_usint_to_dint :
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	4512	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	4513	symbol_c *last_type_symbol = NULL;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	4514
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	4515	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	4516	identifier_c param_name("IN");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	4517	/* Get the value from a foo(<param_name> = <param_value>) style call */
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	4518	symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	4519
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	4520	/* Get the value from a foo(<param_value>) style call */
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	4521	if (IN_param_value == NULL)
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	4522	IN_param_value = function_call_param_iterator.next();
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	4523	symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	4524	last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	4525
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	4526	if (typeid(*last_type_symbol) == typeid(usint_type_name_c))
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	4527	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	4528
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	4529	symbol_c * return_type_symbol = &search_constant_type_c::dint_type_name;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	4530	s4o.print("(");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	4531	return_type_symbol->accept(*this);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	4532	s4o.print(")");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	4533	IN_param_value->accept(*this);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	4534	return NULL;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	4535
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	4536	}
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	4537
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	4538	ERROR;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	4539	}
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	4540
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	4541	}/function_usint_to_dint/
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	4542	break;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	4543
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	4544	/****
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	4545	*USINT_TO_LINT
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	4546	*/
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	4547	case function_usint_to_lint :
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	4548	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	4549	symbol_c *last_type_symbol = NULL;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	4550
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	4551	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	4552	identifier_c param_name("IN");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	4553	/* Get the value from a foo(<param_name> = <param_value>) style call */
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	4554	symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	4555
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	4556	/* Get the value from a foo(<param_value>) style call */
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	4557	if (IN_param_value == NULL)
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	4558	IN_param_value = function_call_param_iterator.next();
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	4559	symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	4560	last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	4561
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	4562	if (typeid(*last_type_symbol) == typeid(usint_type_name_c))
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	4563	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	4564
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	4565	symbol_c * return_type_symbol = &search_constant_type_c::lint_type_name;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	4566	s4o.print("(");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	4567	return_type_symbol->accept(*this);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	4568	s4o.print(")");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	4569	IN_param_value->accept(*this);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	4570	return NULL;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	4571
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	4572	}
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	4573
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	4574	ERROR;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	4575	}
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	4576
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	4577	}/function_usint_to_lint/
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	4578	break;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	4579
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	4580	/****
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	4581	*USINT_TO_UINT
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	4582	*/
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	4583	case function_usint_to_uint :
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	4584	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	4585	symbol_c *last_type_symbol = NULL;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	4586
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	4587	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	4588	identifier_c param_name("IN");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	4589	/* Get the value from a foo(<param_name> = <param_value>) style call */
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	4590	symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	4591
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	4592	/* Get the value from a foo(<param_value>) style call */
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	4593	if (IN_param_value == NULL)
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	4594	IN_param_value = function_call_param_iterator.next();
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	4595	symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	4596	last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	4597
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	4598	if (typeid(*last_type_symbol) == typeid(usint_type_name_c))
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	4599	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	4600
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	4601	symbol_c * return_type_symbol = &search_constant_type_c::uint_type_name;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	4602	s4o.print("(");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	4603	return_type_symbol->accept(*this);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	4604	s4o.print(")");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	4605	IN_param_value->accept(*this);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	4606	return NULL;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	4607
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	4608	}
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	4609
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	4610	ERROR;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	4611	}
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	4612
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	4613	}/function_usint_to_uint/
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	4614	break;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	4615
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	4616	/****
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	4617	*USINT_TO_UDINT
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	4618	*/
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	4619	case function_usint_to_udint :
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	4620	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	4621	symbol_c *last_type_symbol = NULL;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	4622
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	4623	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	4624	identifier_c param_name("IN");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	4625	/* Get the value from a foo(<param_name> = <param_value>) style call */
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	4626	symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	4627
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	4628	/* Get the value from a foo(<param_value>) style call */
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	4629	if (IN_param_value == NULL)
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	4630	IN_param_value = function_call_param_iterator.next();
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	4631	symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	4632	last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	4633
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	4634	if (typeid(*last_type_symbol) == typeid(usint_type_name_c))
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	4635	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	4636
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	4637	symbol_c * return_type_symbol = &search_constant_type_c::udint_type_name;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	4638	s4o.print("(");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	4639	return_type_symbol->accept(*this);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	4640	s4o.print(")");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	4641	IN_param_value->accept(*this);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	4642	return NULL;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	4643
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	4644	}
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	4645
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	4646	ERROR;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	4647	}
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	4648
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	4649	}/function_usint_to_udint/
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	4650	break;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	4651
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	4652	/****
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	4653	*USINT_TO_ULINT
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	4654	*/
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	4655	case function_usint_to_ulint :
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	4656	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	4657	symbol_c *last_type_symbol = NULL;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	4658
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	4659	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	4660	identifier_c param_name("IN");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	4661	/* Get the value from a foo(<param_name> = <param_value>) style call */
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	4662	symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	4663
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	4664	/* Get the value from a foo(<param_value>) style call */
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	4665	if (IN_param_value == NULL)
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	4666	IN_param_value = function_call_param_iterator.next();
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	4667	symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	4668	last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	4669
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	4670	if (typeid(*last_type_symbol) == typeid(usint_type_name_c))
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	4671	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	4672
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	4673	symbol_c * return_type_symbol = &search_constant_type_c::ulint_type_name;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	4674	s4o.print("(");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	4675	return_type_symbol->accept(*this);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	4676	s4o.print(")");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	4677	IN_param_value->accept(*this);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	4678	return NULL;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	4679
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	4680	}
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	4681
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	4682	ERROR;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	4683	}
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	4684
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	4685	}/function_usint_to_ulint/
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	4686	break;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	4687
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	4688	/****
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	4689	*USINT_TO_TIME
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	4690	*/
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	4691	case function_usint_to_time :
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	4692	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	4693	symbol_c *last_type_symbol = NULL;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	4694
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	4695	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	4696	identifier_c param_name("IN");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	4697	/* Get the value from a foo(<param_name> = <param_value>) style call */
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	4698	symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	4699
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	4700	/* Get the value from a foo(<param_value>) style call */
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	4701	if (IN_param_value == NULL)
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	4702	IN_param_value = function_call_param_iterator.next();
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	4703	symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	4704	last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	4705
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	4706	if (typeid(*last_type_symbol) == typeid(usint_type_name_c))
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	4707	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	4708
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	4709	symbol_c * return_type_symbol = &search_constant_type_c::time_type_name;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	4710	s4o.print("(");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	4711	return_type_symbol->accept(*this);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	4712	s4o.print(")real_to_time(");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	4713	IN_param_value->accept(*this);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	4714	s4o.print(")");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	4715	return NULL;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	4716
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	4717	}
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	4718
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	4719	ERROR;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	4720	}
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	4721
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	4722	}/function_usint_to_time/
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	4723	break;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	4724
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	4725	/****
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	4726	*USINT_TO_BOOL
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	4727	*/
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	4728	case function_usint_to_bool :
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	4729	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	4730	symbol_c *last_type_symbol = NULL;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	4731
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	4732	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	4733	identifier_c param_name("IN");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	4734	/* Get the value from a foo(<param_name> = <param_value>) style call */
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	4735	symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	4736
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	4737	/* Get the value from a foo(<param_value>) style call */
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	4738	if (IN_param_value == NULL)
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	4739	IN_param_value = function_call_param_iterator.next();
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	4740	symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	4741	last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	4742
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	4743	if (typeid(*last_type_symbol) == typeid(usint_type_name_c))
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	4744	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	4745
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	4746	symbol_c * return_type_symbol = &search_constant_type_c::bool_type_name;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	4747	s4o.print("(");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	4748	return_type_symbol->accept(*this);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	4749	s4o.print(")");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	4750	IN_param_value->accept(*this);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	4751	return NULL;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	4752
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	4753	}
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	4754
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	4755	ERROR;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	4756	}
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	4757
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	4758	}/function_usint_to_bool/
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	4759	break;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	4760
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	4761	/****
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	4762	*USINT_TO_BYTE
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	4763	*/
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	4764	case function_usint_to_byte :
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	4765	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	4766	symbol_c *last_type_symbol = NULL;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	4767
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	4768	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	4769	identifier_c param_name("IN");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	4770	/* Get the value from a foo(<param_name> = <param_value>) style call */
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	4771	symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	4772
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	4773	/* Get the value from a foo(<param_value>) style call */
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	4774	if (IN_param_value == NULL)
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	4775	IN_param_value = function_call_param_iterator.next();
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	4776	symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	4777	last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	4778
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	4779	if (typeid(*last_type_symbol) == typeid(usint_type_name_c))
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	4780	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	4781
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	4782	symbol_c * return_type_symbol = &search_constant_type_c::byte_type_name;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	4783	s4o.print("(");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	4784	return_type_symbol->accept(*this);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	4785	s4o.print(")");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	4786	IN_param_value->accept(*this);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	4787	return NULL;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	4788
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	4789	}
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	4790
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	4791	ERROR;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	4792	}
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	4793
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	4794	}/function_usint_to_byte/
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	4795	break;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	4796
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	4797	/****
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	4798	*USINT_TO_WORD
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	4799	*/
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	4800	case function_usint_to_word :
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	4801	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	4802	symbol_c *last_type_symbol = NULL;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	4803
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	4804	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	4805	identifier_c param_name("IN");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	4806	/* Get the value from a foo(<param_name> = <param_value>) style call */
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	4807	symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	4808
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	4809	/* Get the value from a foo(<param_value>) style call */
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	4810	if (IN_param_value == NULL)
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	4811	IN_param_value = function_call_param_iterator.next();
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	4812	symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	4813	last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	4814
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	4815	if (typeid(*last_type_symbol) == typeid(usint_type_name_c))
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	4816	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	4817
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	4818	symbol_c * return_type_symbol = &search_constant_type_c::word_type_name;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	4819	s4o.print("(");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	4820	return_type_symbol->accept(*this);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	4821	s4o.print(")");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	4822	IN_param_value->accept(*this);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	4823	return NULL;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	4824
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	4825	}
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	4826
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	4827	ERROR;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	4828	}
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	4829
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	4830	}/function_usint_to_word/
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	4831	break;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	4832
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	4833	/****
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	4834	*USINT_TO_DWORD
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	4835	*/
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	4836	case function_usint_to_dword :
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	4837	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	4838	symbol_c *last_type_symbol = NULL;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	4839
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	4840	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	4841	identifier_c param_name("IN");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	4842	/* Get the value from a foo(<param_name> = <param_value>) style call */
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	4843	symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	4844
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	4845	/* Get the value from a foo(<param_value>) style call */
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	4846	if (IN_param_value == NULL)
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	4847	IN_param_value = function_call_param_iterator.next();
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	4848	symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	4849	last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	4850
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	4851	if (typeid(*last_type_symbol) == typeid(usint_type_name_c))
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	4852	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	4853
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	4854	symbol_c * return_type_symbol = &search_constant_type_c::dword_type_name;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	4855	s4o.print("(");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	4856	return_type_symbol->accept(*this);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	4857	s4o.print(")");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	4858	IN_param_value->accept(*this);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	4859	return NULL;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	4860
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	4861	}
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	4862
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	4863	ERROR;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	4864	}
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	4865
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	4866	}/function_usint_to_dword/
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	4867	break;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	4868
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	4869	/****
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	4870	*USINT_TO_LWORD
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	4871	*/
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	4872	case function_usint_to_lword :
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	4873	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	4874	symbol_c *last_type_symbol = NULL;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	4875
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	4876	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	4877	identifier_c param_name("IN");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	4878	/* Get the value from a foo(<param_name> = <param_value>) style call */
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	4879	symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	4880
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	4881	/* Get the value from a foo(<param_value>) style call */
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	4882	if (IN_param_value == NULL)
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	4883	IN_param_value = function_call_param_iterator.next();
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	4884	symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	4885	last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	4886
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	4887	if (typeid(*last_type_symbol) == typeid(usint_type_name_c))
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	4888	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	4889
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	4890	symbol_c * return_type_symbol = &search_constant_type_c::lword_type_name;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	4891	s4o.print("(");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	4892	return_type_symbol->accept(*this);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	4893	s4o.print(")");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	4894	IN_param_value->accept(*this);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	4895	return NULL;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	4896
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	4897	}
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	4898
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	4899	ERROR;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	4900	}
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	4901
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	4902	}/function_usint_to_lword/
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	4903	break;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	4904
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	4905	/****
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	4906	*USINT_TO_STRING
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	4907	*/
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	4908	case function_usint_to_string :
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	4909	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	4910	symbol_c *last_type_symbol = NULL;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	4911
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	4912	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	4913	identifier_c param_name("IN");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	4914	/* Get the value from a foo(<param_name> = <param_value>) style call */
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	4915	symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	4916
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	4917	/* Get the value from a foo(<param_value>) style call */
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	4918	if (IN_param_value == NULL)
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	4919	IN_param_value = function_call_param_iterator.next();
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	4920	symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	4921	last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	4922
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	4923	if (typeid(*last_type_symbol) == typeid(usint_type_name_c))
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	4924	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	4925
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	4926	symbol_c * return_type_symbol = &search_constant_type_c::string_type_name;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	4927	s4o.print("(");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	4928	return_type_symbol->accept(*this);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	4929	s4o.print(")int_to_string(");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	4930	IN_param_value->accept(*this);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	4931	s4o.print(", 10)");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	4932	return NULL;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	4933
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	4934	}
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	4935
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	4936	ERROR;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	4937	}
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	4938
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	4939	}/function_usint_to_string/
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	4940	break;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	4941
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	4942	/****
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	4943	*USINT_TO_WSTRING
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	4944	*/
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	4945	case function_usint_to_wstring :
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	4946	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	4947	symbol_c *last_type_symbol = NULL;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	4948
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	4949	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	4950	identifier_c param_name("IN");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	4951	/* Get the value from a foo(<param_name> = <param_value>) style call */
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	4952	symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	4953
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	4954	/* Get the value from a foo(<param_value>) style call */
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	4955	if (IN_param_value == NULL)
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	4956	IN_param_value = function_call_param_iterator.next();
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	4957	symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	4958	last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	4959
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	4960	if (typeid(*last_type_symbol) == typeid(usint_type_name_c))
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	4961	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	4962
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	4963	symbol_c * return_type_symbol = &search_constant_type_c::wstring_type_name;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	4964	s4o.print("(");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	4965	return_type_symbol->accept(*this);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	4966	s4o.print(")int_to_string(");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	4967	IN_param_value->accept(*this);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	4968	s4o.print(", 10)");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	4969	return NULL;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	4970
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	4971	}
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	4972
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	4973	ERROR;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	4974	}
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	4975
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	4976	}/function_usint_to_wstring/
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	4977	break;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	4978
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	4979	/****
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	4980	*USINT_TO_DATE
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	4981	*/
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	4982	case function_usint_to_date :
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	4983	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	4984	symbol_c *last_type_symbol = NULL;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	4985
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	4986	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	4987	identifier_c param_name("IN");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	4988	/* Get the value from a foo(<param_name> = <param_value>) style call */
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	4989	symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	4990
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	4991	/* Get the value from a foo(<param_value>) style call */
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	4992	if (IN_param_value == NULL)
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	4993	IN_param_value = function_call_param_iterator.next();
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	4994	symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	4995	last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	4996
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	4997	if (typeid(*last_type_symbol) == typeid(usint_type_name_c))
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	4998	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	4999
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	5000	symbol_c * return_type_symbol = &search_constant_type_c::date_type_name;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	5001	s4o.print("(");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	5002	return_type_symbol->accept(*this);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	5003	s4o.print(")real_to_time(");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	5004	IN_param_value->accept(*this);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	5005	s4o.print(")");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	5006	return NULL;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	5007
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	5008	}
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	5009
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	5010	ERROR;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	5011	}
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	5012
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	5013	}/function_usint_to_date/
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	5014	break;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	5015
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	5016	/****
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	5017	*USINT_TO_TOD
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	5018	*/
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	5019	case function_usint_to_tod :
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	5020	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	5021	symbol_c *last_type_symbol = NULL;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	5022
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	5023	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	5024	identifier_c param_name("IN");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	5025	/* Get the value from a foo(<param_name> = <param_value>) style call */
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	5026	symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	5027
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	5028	/* Get the value from a foo(<param_value>) style call */
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	5029	if (IN_param_value == NULL)
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	5030	IN_param_value = function_call_param_iterator.next();
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	5031	symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	5032	last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	5033
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	5034	if (typeid(*last_type_symbol) == typeid(usint_type_name_c))
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	5035	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	5036
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	5037	symbol_c * return_type_symbol = &search_constant_type_c::tod_type_name;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	5038	s4o.print("(");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	5039	return_type_symbol->accept(*this);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	5040	s4o.print(")real_to_time(");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	5041	IN_param_value->accept(*this);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	5042	s4o.print(")");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	5043	return NULL;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	5044
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	5045	}
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	5046
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	5047	ERROR;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	5048	}
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	5049
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	5050	}/function_usint_to_tod/
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	5051	break;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	5052
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	5053	/****
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	5054	*USINT_TO_DT
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	5055	*/
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	5056	case function_usint_to_dt :
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	5057	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	5058	symbol_c *last_type_symbol = NULL;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	5059
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	5060	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	5061	identifier_c param_name("IN");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	5062	/* Get the value from a foo(<param_name> = <param_value>) style call */
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	5063	symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	5064
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	5065	/* Get the value from a foo(<param_value>) style call */
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	5066	if (IN_param_value == NULL)
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	5067	IN_param_value = function_call_param_iterator.next();
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	5068	symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	5069	last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	5070
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	5071	if (typeid(*last_type_symbol) == typeid(usint_type_name_c))
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	5072	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	5073
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	5074	symbol_c * return_type_symbol = &search_constant_type_c::dt_type_name;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	5075	s4o.print("(");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	5076	return_type_symbol->accept(*this);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	5077	s4o.print(")real_to_time(");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	5078	IN_param_value->accept(*this);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	5079	s4o.print(")");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	5080	return NULL;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	5081
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	5082	}
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	5083
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	5084	ERROR;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	5085	}
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	5086
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	5087	}/function_usint_to_dt/
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	5088	break;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	5089
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	5090	/****
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	5091	*UINT_TO_REAL
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	5092	*/
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	5093	case function_uint_to_real :
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	5094	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	5095	symbol_c *last_type_symbol = NULL;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	5096
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	5097	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	5098	identifier_c param_name("IN");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	5099	/* Get the value from a foo(<param_name> = <param_value>) style call */
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	5100	symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	5101
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	5102	/* Get the value from a foo(<param_value>) style call */
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	5103	if (IN_param_value == NULL)
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	5104	IN_param_value = function_call_param_iterator.next();
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	5105	symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	5106	last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	5107
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	5108	if (typeid(*last_type_symbol) == typeid(uint_type_name_c))
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	5109	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	5110
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	5111	symbol_c * return_type_symbol = &search_constant_type_c::real_type_name;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	5112	s4o.print("(");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	5113	return_type_symbol->accept(*this);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	5114	s4o.print(")");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	5115	IN_param_value->accept(*this);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	5116	return NULL;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	5117
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	5118	}
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	5119
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	5120	ERROR;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	5121	}
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	5122
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	5123	}/function_uint_to_real/
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	5124	break;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	5125
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	5126	/****
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	5127	*UINT_TO_LREAL
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	5128	*/
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	5129	case function_uint_to_lreal :
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	5130	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	5131	symbol_c *last_type_symbol = NULL;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	5132
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	5133	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	5134	identifier_c param_name("IN");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	5135	/* Get the value from a foo(<param_name> = <param_value>) style call */
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	5136	symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	5137
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	5138	/* Get the value from a foo(<param_value>) style call */
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	5139	if (IN_param_value == NULL)
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	5140	IN_param_value = function_call_param_iterator.next();
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	5141	symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	5142	last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	5143
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	5144	if (typeid(*last_type_symbol) == typeid(uint_type_name_c))
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	5145	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	5146
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	5147	symbol_c * return_type_symbol = &search_constant_type_c::lreal_type_name;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	5148	s4o.print("(");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	5149	return_type_symbol->accept(*this);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	5150	s4o.print(")");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	5151	IN_param_value->accept(*this);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	5152	return NULL;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	5153
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	5154	}
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	5155
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	5156	ERROR;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	5157	}
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	5158
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	5159	}/function_uint_to_lreal/
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	5160	break;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	5161
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	5162	/****
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	5163	*UINT_TO_SINT
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	5164	*/
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	5165	case function_uint_to_sint :
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	5166	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	5167	symbol_c *last_type_symbol = NULL;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	5168
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	5169	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	5170	identifier_c param_name("IN");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	5171	/* Get the value from a foo(<param_name> = <param_value>) style call */
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	5172	symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	5173
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	5174	/* Get the value from a foo(<param_value>) style call */
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	5175	if (IN_param_value == NULL)
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	5176	IN_param_value = function_call_param_iterator.next();
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	5177	symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	5178	last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	5179
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	5180	if (typeid(*last_type_symbol) == typeid(uint_type_name_c))
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	5181	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	5182
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	5183	symbol_c * return_type_symbol = &search_constant_type_c::sint_type_name;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	5184	s4o.print("(");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	5185	return_type_symbol->accept(*this);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	5186	s4o.print(")");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	5187	IN_param_value->accept(*this);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	5188	return NULL;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	5189
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	5190	}
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	5191
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	5192	ERROR;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	5193	}
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	5194
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	5195	}/function_uint_to_sint/
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	5196	break;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	5197
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	5198	/****
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	5199	*UINT_TO_INT
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	5200	*/
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	5201	case function_uint_to_int :
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	5202	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	5203	symbol_c *last_type_symbol = NULL;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	5204
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	5205	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	5206	identifier_c param_name("IN");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	5207	/* Get the value from a foo(<param_name> = <param_value>) style call */
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	5208	symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	5209
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	5210	/* Get the value from a foo(<param_value>) style call */
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	5211	if (IN_param_value == NULL)
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	5212	IN_param_value = function_call_param_iterator.next();
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	5213	symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	5214	last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	5215
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	5216	if (typeid(*last_type_symbol) == typeid(uint_type_name_c))
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	5217	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	5218
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	5219	symbol_c * return_type_symbol = &search_constant_type_c::int_type_name;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	5220	s4o.print("(");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	5221	return_type_symbol->accept(*this);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	5222	s4o.print(")");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	5223	IN_param_value->accept(*this);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	5224	return NULL;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	5225
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	5226	}
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	5227
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	5228	ERROR;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	5229	}
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	5230
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	5231	}/function_uint_to_int/
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	5232	break;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	5233
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	5234	/****
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	5235	*UINT_TO_DINT
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	5236	*/
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	5237	case function_uint_to_dint :
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	5238	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	5239	symbol_c *last_type_symbol = NULL;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	5240
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	5241	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	5242	identifier_c param_name("IN");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	5243	/* Get the value from a foo(<param_name> = <param_value>) style call */
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	5244	symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	5245
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	5246	/* Get the value from a foo(<param_value>) style call */
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	5247	if (IN_param_value == NULL)
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	5248	IN_param_value = function_call_param_iterator.next();
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	5249	symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	5250	last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	5251
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	5252	if (typeid(*last_type_symbol) == typeid(uint_type_name_c))
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	5253	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	5254
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	5255	symbol_c * return_type_symbol = &search_constant_type_c::dint_type_name;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	5256	s4o.print("(");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	5257	return_type_symbol->accept(*this);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	5258	s4o.print(")");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	5259	IN_param_value->accept(*this);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	5260	return NULL;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	5261
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	5262	}
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	5263
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	5264	ERROR;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	5265	}
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	5266
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	5267	}/function_uint_to_dint/
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	5268	break;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	5269
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	5270	/****
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	5271	*UINT_TO_LINT
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	5272	*/
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	5273	case function_uint_to_lint :
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	5274	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	5275	symbol_c *last_type_symbol = NULL;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	5276
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	5277	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	5278	identifier_c param_name("IN");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	5279	/* Get the value from a foo(<param_name> = <param_value>) style call */
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	5280	symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	5281
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	5282	/* Get the value from a foo(<param_value>) style call */
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	5283	if (IN_param_value == NULL)
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	5284	IN_param_value = function_call_param_iterator.next();
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	5285	symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	5286	last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	5287
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	5288	if (typeid(*last_type_symbol) == typeid(uint_type_name_c))
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	5289	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	5290
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	5291	symbol_c * return_type_symbol = &search_constant_type_c::lint_type_name;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	5292	s4o.print("(");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	5293	return_type_symbol->accept(*this);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	5294	s4o.print(")");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	5295	IN_param_value->accept(*this);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	5296	return NULL;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	5297
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	5298	}
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	5299
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	5300	ERROR;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	5301	}
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	5302
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	5303	}/function_uint_to_lint/
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	5304	break;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	5305
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	5306	/****
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	5307	*UINT_TO_USINT
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	5308	*/
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	5309	case function_uint_to_usint :
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	5310	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	5311	symbol_c *last_type_symbol = NULL;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	5312
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	5313	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	5314	identifier_c param_name("IN");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	5315	/* Get the value from a foo(<param_name> = <param_value>) style call */
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	5316	symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	5317
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	5318	/* Get the value from a foo(<param_value>) style call */
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	5319	if (IN_param_value == NULL)
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	5320	IN_param_value = function_call_param_iterator.next();
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	5321	symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	5322	last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	5323
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	5324	if (typeid(*last_type_symbol) == typeid(uint_type_name_c))
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	5325	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	5326
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	5327	symbol_c * return_type_symbol = &search_constant_type_c::usint_type_name;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	5328	s4o.print("(");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	5329	return_type_symbol->accept(*this);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	5330	s4o.print(")");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	5331	IN_param_value->accept(*this);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	5332	return NULL;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	5333
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	5334	}
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	5335
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	5336	ERROR;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	5337	}
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	5338
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	5339	}/function_uint_to_usint/
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	5340	break;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	5341
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	5342	/****
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	5343	*UINT_TO_UDINT
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	5344	*/
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	5345	case function_uint_to_udint :
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	5346	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	5347	symbol_c *last_type_symbol = NULL;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	5348
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	5349	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	5350	identifier_c param_name("IN");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	5351	/* Get the value from a foo(<param_name> = <param_value>) style call */
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	5352	symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	5353
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	5354	/* Get the value from a foo(<param_value>) style call */
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	5355	if (IN_param_value == NULL)
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	5356	IN_param_value = function_call_param_iterator.next();
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	5357	symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	5358	last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	5359
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	5360	if (typeid(*last_type_symbol) == typeid(uint_type_name_c))
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	5361	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	5362
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	5363	symbol_c * return_type_symbol = &search_constant_type_c::udint_type_name;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	5364	s4o.print("(");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	5365	return_type_symbol->accept(*this);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	5366	s4o.print(")");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	5367	IN_param_value->accept(*this);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	5368	return NULL;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	5369
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	5370	}
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	5371
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	5372	ERROR;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	5373	}
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	5374
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	5375	}/function_uint_to_udint/
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	5376	break;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	5377
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	5378	/****
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	5379	*UINT_TO_ULINT
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	5380	*/
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	5381	case function_uint_to_ulint :
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	5382	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	5383	symbol_c *last_type_symbol = NULL;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	5384
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	5385	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	5386	identifier_c param_name("IN");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	5387	/* Get the value from a foo(<param_name> = <param_value>) style call */
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	5388	symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	5389
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	5390	/* Get the value from a foo(<param_value>) style call */
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	5391	if (IN_param_value == NULL)
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	5392	IN_param_value = function_call_param_iterator.next();
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	5393	symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	5394	last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	5395
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	5396	if (typeid(*last_type_symbol) == typeid(uint_type_name_c))
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	5397	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	5398
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	5399	symbol_c * return_type_symbol = &search_constant_type_c::ulint_type_name;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	5400	s4o.print("(");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	5401	return_type_symbol->accept(*this);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	5402	s4o.print(")");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	5403	IN_param_value->accept(*this);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	5404	return NULL;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	5405
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	5406	}
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	5407
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	5408	ERROR;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	5409	}
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	5410
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	5411	}/function_uint_to_ulint/
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	5412	break;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	5413
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	5414	/****
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	5415	*UINT_TO_TIME
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	5416	*/
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	5417	case function_uint_to_time :
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	5418	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	5419	symbol_c *last_type_symbol = NULL;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	5420
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	5421	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	5422	identifier_c param_name("IN");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	5423	/* Get the value from a foo(<param_name> = <param_value>) style call */
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	5424	symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	5425
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	5426	/* Get the value from a foo(<param_value>) style call */
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	5427	if (IN_param_value == NULL)
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	5428	IN_param_value = function_call_param_iterator.next();
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	5429	symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	5430	last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	5431
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	5432	if (typeid(*last_type_symbol) == typeid(uint_type_name_c))
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	5433	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	5434
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	5435	symbol_c * return_type_symbol = &search_constant_type_c::time_type_name;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	5436	s4o.print("(");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	5437	return_type_symbol->accept(*this);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	5438	s4o.print(")real_to_time(");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	5439	IN_param_value->accept(*this);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	5440	s4o.print(")");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	5441	return NULL;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	5442
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	5443	}
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	5444
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	5445	ERROR;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	5446	}
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	5447
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	5448	}/function_uint_to_time/
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	5449	break;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	5450
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	5451	/****
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	5452	*UINT_TO_BOOL
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	5453	*/
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	5454	case function_uint_to_bool :
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	5455	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	5456	symbol_c *last_type_symbol = NULL;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	5457
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	5458	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	5459	identifier_c param_name("IN");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	5460	/* Get the value from a foo(<param_name> = <param_value>) style call */
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	5461	symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	5462
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	5463	/* Get the value from a foo(<param_value>) style call */
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	5464	if (IN_param_value == NULL)
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	5465	IN_param_value = function_call_param_iterator.next();
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	5466	symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	5467	last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	5468
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	5469	if (typeid(*last_type_symbol) == typeid(uint_type_name_c))
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	5470	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	5471
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	5472	symbol_c * return_type_symbol = &search_constant_type_c::bool_type_name;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	5473	s4o.print("(");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	5474	return_type_symbol->accept(*this);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	5475	s4o.print(")");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	5476	IN_param_value->accept(*this);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	5477	return NULL;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	5478
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	5479	}
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	5480
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	5481	ERROR;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	5482	}
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	5483
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	5484	}/function_uint_to_bool/
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	5485	break;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	5486
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	5487	/****
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	5488	*UINT_TO_BYTE
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	5489	*/
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	5490	case function_uint_to_byte :
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	5491	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	5492	symbol_c *last_type_symbol = NULL;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	5493
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	5494	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	5495	identifier_c param_name("IN");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	5496	/* Get the value from a foo(<param_name> = <param_value>) style call */
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	5497	symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	5498
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	5499	/* Get the value from a foo(<param_value>) style call */
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	5500	if (IN_param_value == NULL)
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	5501	IN_param_value = function_call_param_iterator.next();
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	5502	symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	5503	last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	5504
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	5505	if (typeid(*last_type_symbol) == typeid(uint_type_name_c))
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	5506	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	5507
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	5508	symbol_c * return_type_symbol = &search_constant_type_c::byte_type_name;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	5509	s4o.print("(");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	5510	return_type_symbol->accept(*this);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	5511	s4o.print(")");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	5512	IN_param_value->accept(*this);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	5513	return NULL;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	5514
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	5515	}
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	5516
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	5517	ERROR;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	5518	}
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	5519
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	5520	}/function_uint_to_byte/
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	5521	break;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	5522
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	5523	/****
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	5524	*UINT_TO_WORD
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	5525	*/
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	5526	case function_uint_to_word :
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	5527	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	5528	symbol_c *last_type_symbol = NULL;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	5529
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	5530	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	5531	identifier_c param_name("IN");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	5532	/* Get the value from a foo(<param_name> = <param_value>) style call */
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	5533	symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	5534
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	5535	/* Get the value from a foo(<param_value>) style call */
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	5536	if (IN_param_value == NULL)
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	5537	IN_param_value = function_call_param_iterator.next();
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	5538	symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	5539	last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	5540
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	5541	if (typeid(*last_type_symbol) == typeid(uint_type_name_c))
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	5542	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	5543
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	5544	symbol_c * return_type_symbol = &search_constant_type_c::word_type_name;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	5545	s4o.print("(");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	5546	return_type_symbol->accept(*this);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	5547	s4o.print(")");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	5548	IN_param_value->accept(*this);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	5549	return NULL;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	5550
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	5551	}
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	5552
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	5553	ERROR;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	5554	}
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	5555
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	5556	}/function_uint_to_word/
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	5557	break;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	5558
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	5559	/****
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	5560	*UINT_TO_DWORD
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	5561	*/
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	5562	case function_uint_to_dword :
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	5563	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	5564	symbol_c *last_type_symbol = NULL;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	5565
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	5566	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	5567	identifier_c param_name("IN");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	5568	/* Get the value from a foo(<param_name> = <param_value>) style call */
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	5569	symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	5570
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	5571	/* Get the value from a foo(<param_value>) style call */
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	5572	if (IN_param_value == NULL)
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	5573	IN_param_value = function_call_param_iterator.next();
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	5574	symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	5575	last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	5576
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	5577	if (typeid(*last_type_symbol) == typeid(uint_type_name_c))
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	5578	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	5579
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	5580	symbol_c * return_type_symbol = &search_constant_type_c::dword_type_name;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	5581	s4o.print("(");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	5582	return_type_symbol->accept(*this);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	5583	s4o.print(")");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	5584	IN_param_value->accept(*this);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	5585	return NULL;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	5586
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	5587	}
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	5588
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	5589	ERROR;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	5590	}
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	5591
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	5592	}/function_uint_to_dword/
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	5593	break;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	5594
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	5595	/****
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	5596	*UINT_TO_LWORD
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	5597	*/
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	5598	case function_uint_to_lword :
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	5599	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	5600	symbol_c *last_type_symbol = NULL;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	5601
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	5602	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	5603	identifier_c param_name("IN");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	5604	/* Get the value from a foo(<param_name> = <param_value>) style call */
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	5605	symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	5606
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	5607	/* Get the value from a foo(<param_value>) style call */
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	5608	if (IN_param_value == NULL)
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	5609	IN_param_value = function_call_param_iterator.next();
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	5610	symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	5611	last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	5612
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	5613	if (typeid(*last_type_symbol) == typeid(uint_type_name_c))
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	5614	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	5615
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	5616	symbol_c * return_type_symbol = &search_constant_type_c::lword_type_name;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	5617	s4o.print("(");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	5618	return_type_symbol->accept(*this);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	5619	s4o.print(")");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	5620	IN_param_value->accept(*this);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	5621	return NULL;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	5622
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	5623	}
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	5624
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	5625	ERROR;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	5626	}
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	5627
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	5628	}/function_uint_to_lword/
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	5629	break;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	5630
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	5631	/****
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	5632	*UINT_TO_STRING
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	5633	*/
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	5634	case function_uint_to_string :
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	5635	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	5636	symbol_c *last_type_symbol = NULL;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	5637
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	5638	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	5639	identifier_c param_name("IN");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	5640	/* Get the value from a foo(<param_name> = <param_value>) style call */
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	5641	symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	5642
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	5643	/* Get the value from a foo(<param_value>) style call */
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	5644	if (IN_param_value == NULL)
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	5645	IN_param_value = function_call_param_iterator.next();
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	5646	symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	5647	last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	5648
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	5649	if (typeid(*last_type_symbol) == typeid(uint_type_name_c))
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	5650	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	5651
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	5652	symbol_c * return_type_symbol = &search_constant_type_c::string_type_name;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	5653	s4o.print("(");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	5654	return_type_symbol->accept(*this);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	5655	s4o.print(")int_to_string(");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	5656	IN_param_value->accept(*this);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	5657	s4o.print(", 10)");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	5658	return NULL;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	5659
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	5660	}
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	5661
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	5662	ERROR;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	5663	}
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	5664
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	5665	}/function_uint_to_string/
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	5666	break;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	5667
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	5668	/****
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	5669	*UINT_TO_WSTRING
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	5670	*/
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	5671	case function_uint_to_wstring :
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	5672	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	5673	symbol_c *last_type_symbol = NULL;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	5674
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	5675	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	5676	identifier_c param_name("IN");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	5677	/* Get the value from a foo(<param_name> = <param_value>) style call */
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	5678	symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	5679
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	5680	/* Get the value from a foo(<param_value>) style call */
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	5681	if (IN_param_value == NULL)
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	5682	IN_param_value = function_call_param_iterator.next();
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	5683	symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	5684	last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	5685
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	5686	if (typeid(*last_type_symbol) == typeid(uint_type_name_c))
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	5687	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	5688
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	5689	symbol_c * return_type_symbol = &search_constant_type_c::wstring_type_name;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	5690	s4o.print("(");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	5691	return_type_symbol->accept(*this);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	5692	s4o.print(")int_to_string(");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	5693	IN_param_value->accept(*this);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	5694	s4o.print(", 10)");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	5695	return NULL;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	5696
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	5697	}
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	5698
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	5699	ERROR;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	5700	}
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	5701
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	5702	}/function_uint_to_wstring/
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	5703	break;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	5704
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	5705	/****
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	5706	*UINT_TO_DATE
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	5707	*/
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	5708	case function_uint_to_date :
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	5709	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	5710	symbol_c *last_type_symbol = NULL;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	5711
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	5712	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	5713	identifier_c param_name("IN");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	5714	/* Get the value from a foo(<param_name> = <param_value>) style call */
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	5715	symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	5716
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	5717	/* Get the value from a foo(<param_value>) style call */
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	5718	if (IN_param_value == NULL)
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	5719	IN_param_value = function_call_param_iterator.next();
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	5720	symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	5721	last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	5722
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	5723	if (typeid(*last_type_symbol) == typeid(uint_type_name_c))
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	5724	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	5725
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	5726	symbol_c * return_type_symbol = &search_constant_type_c::date_type_name;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	5727	s4o.print("(");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	5728	return_type_symbol->accept(*this);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	5729	s4o.print(")real_to_time(");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	5730	IN_param_value->accept(*this);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	5731	s4o.print(")");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	5732	return NULL;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	5733
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	5734	}
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	5735
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	5736	ERROR;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	5737	}
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	5738
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	5739	}/function_uint_to_date/
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	5740	break;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	5741
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	5742	/****
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	5743	*UINT_TO_TOD
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	5744	*/
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	5745	case function_uint_to_tod :
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	5746	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	5747	symbol_c *last_type_symbol = NULL;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	5748
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	5749	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	5750	identifier_c param_name("IN");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	5751	/* Get the value from a foo(<param_name> = <param_value>) style call */
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	5752	symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	5753
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	5754	/* Get the value from a foo(<param_value>) style call */
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	5755	if (IN_param_value == NULL)
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	5756	IN_param_value = function_call_param_iterator.next();
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	5757	symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	5758	last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	5759
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	5760	if (typeid(*last_type_symbol) == typeid(uint_type_name_c))
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	5761	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	5762
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	5763	symbol_c * return_type_symbol = &search_constant_type_c::tod_type_name;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	5764	s4o.print("(");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	5765	return_type_symbol->accept(*this);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	5766	s4o.print(")real_to_time(");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	5767	IN_param_value->accept(*this);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	5768	s4o.print(")");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	5769	return NULL;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	5770
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	5771	}
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	5772
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	5773	ERROR;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	5774	}
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	5775
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	5776	}/function_uint_to_tod/
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	5777	break;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	5778
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	5779	/****
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	5780	*UINT_TO_DT
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	5781	*/
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	5782	case function_uint_to_dt :
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	5783	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	5784	symbol_c *last_type_symbol = NULL;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	5785
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	5786	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	5787	identifier_c param_name("IN");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	5788	/* Get the value from a foo(<param_name> = <param_value>) style call */
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	5789	symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	5790
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	5791	/* Get the value from a foo(<param_value>) style call */
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	5792	if (IN_param_value == NULL)
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	5793	IN_param_value = function_call_param_iterator.next();
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	5794	symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	5795	last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	5796
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	5797	if (typeid(*last_type_symbol) == typeid(uint_type_name_c))
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	5798	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	5799
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	5800	symbol_c * return_type_symbol = &search_constant_type_c::dt_type_name;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	5801	s4o.print("(");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	5802	return_type_symbol->accept(*this);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	5803	s4o.print(")real_to_time(");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	5804	IN_param_value->accept(*this);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	5805	s4o.print(")");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	5806	return NULL;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	5807
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	5808	}
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	5809
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	5810	ERROR;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	5811	}
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	5812
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	5813	}/function_uint_to_dt/
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	5814	break;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	5815
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	5816	/****
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	5817	*UDINT_TO_REAL
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	5818	*/
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	5819	case function_udint_to_real :
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	5820	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	5821	symbol_c *last_type_symbol = NULL;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	5822
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	5823	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	5824	identifier_c param_name("IN");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	5825	/* Get the value from a foo(<param_name> = <param_value>) style call */
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	5826	symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	5827
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	5828	/* Get the value from a foo(<param_value>) style call */
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	5829	if (IN_param_value == NULL)
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	5830	IN_param_value = function_call_param_iterator.next();
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	5831	symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	5832	last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	5833
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	5834	if (typeid(*last_type_symbol) == typeid(udint_type_name_c))
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	5835	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	5836
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	5837	symbol_c * return_type_symbol = &search_constant_type_c::real_type_name;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	5838	s4o.print("(");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	5839	return_type_symbol->accept(*this);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	5840	s4o.print(")");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	5841	IN_param_value->accept(*this);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	5842	return NULL;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	5843
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	5844	}
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	5845
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	5846	ERROR;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	5847	}
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	5848
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	5849	}/function_udint_to_real/
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	5850	break;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	5851
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	5852	/****
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	5853	*UDINT_TO_LREAL
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	5854	*/
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	5855	case function_udint_to_lreal :
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	5856	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	5857	symbol_c *last_type_symbol = NULL;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	5858
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	5859	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	5860	identifier_c param_name("IN");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	5861	/* Get the value from a foo(<param_name> = <param_value>) style call */
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	5862	symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	5863
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	5864	/* Get the value from a foo(<param_value>) style call */
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	5865	if (IN_param_value == NULL)
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	5866	IN_param_value = function_call_param_iterator.next();
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	5867	symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	5868	last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	5869
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	5870	if (typeid(*last_type_symbol) == typeid(udint_type_name_c))
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	5871	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	5872
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	5873	symbol_c * return_type_symbol = &search_constant_type_c::lreal_type_name;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	5874	s4o.print("(");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	5875	return_type_symbol->accept(*this);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	5876	s4o.print(")");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	5877	IN_param_value->accept(*this);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	5878	return NULL;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	5879
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	5880	}
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	5881
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	5882	ERROR;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	5883	}
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	5884
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	5885	}/function_udint_to_lreal/
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	5886	break;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	5887
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	5888	/****
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	5889	*UDINT_TO_SINT
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	5890	*/
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	5891	case function_udint_to_sint :
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	5892	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	5893	symbol_c *last_type_symbol = NULL;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	5894
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	5895	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	5896	identifier_c param_name("IN");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	5897	/* Get the value from a foo(<param_name> = <param_value>) style call */
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	5898	symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	5899
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	5900	/* Get the value from a foo(<param_value>) style call */
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	5901	if (IN_param_value == NULL)
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	5902	IN_param_value = function_call_param_iterator.next();
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	5903	symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	5904	last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	5905
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	5906	if (typeid(*last_type_symbol) == typeid(udint_type_name_c))
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	5907	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	5908
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	5909	symbol_c * return_type_symbol = &search_constant_type_c::sint_type_name;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	5910	s4o.print("(");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	5911	return_type_symbol->accept(*this);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	5912	s4o.print(")");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	5913	IN_param_value->accept(*this);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	5914	return NULL;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	5915
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	5916	}
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	5917
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	5918	ERROR;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	5919	}
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	5920
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	5921	}/function_udint_to_sint/
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	5922	break;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	5923
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	5924	/****
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	5925	*UDINT_TO_INT
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	5926	*/
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	5927	case function_udint_to_int :
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	5928	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	5929	symbol_c *last_type_symbol = NULL;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	5930
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	5931	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	5932	identifier_c param_name("IN");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	5933	/* Get the value from a foo(<param_name> = <param_value>) style call */
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	5934	symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	5935
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	5936	/* Get the value from a foo(<param_value>) style call */
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	5937	if (IN_param_value == NULL)
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	5938	IN_param_value = function_call_param_iterator.next();
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	5939	symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	5940	last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	5941
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	5942	if (typeid(*last_type_symbol) == typeid(udint_type_name_c))
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	5943	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	5944
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	5945	symbol_c * return_type_symbol = &search_constant_type_c::int_type_name;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	5946	s4o.print("(");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	5947	return_type_symbol->accept(*this);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	5948	s4o.print(")");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	5949	IN_param_value->accept(*this);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	5950	return NULL;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	5951
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	5952	}
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	5953
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	5954	ERROR;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	5955	}
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	5956
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	5957	}/function_udint_to_int/
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	5958	break;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	5959
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	5960	/****
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	5961	*UDINT_TO_DINT
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	5962	*/
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	5963	case function_udint_to_dint :
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	5964	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	5965	symbol_c *last_type_symbol = NULL;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	5966
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	5967	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	5968	identifier_c param_name("IN");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	5969	/* Get the value from a foo(<param_name> = <param_value>) style call */
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	5970	symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	5971
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	5972	/* Get the value from a foo(<param_value>) style call */
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	5973	if (IN_param_value == NULL)
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	5974	IN_param_value = function_call_param_iterator.next();
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	5975	symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	5976	last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	5977
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	5978	if (typeid(*last_type_symbol) == typeid(udint_type_name_c))
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	5979	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	5980
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	5981	symbol_c * return_type_symbol = &search_constant_type_c::dint_type_name;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	5982	s4o.print("(");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	5983	return_type_symbol->accept(*this);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	5984	s4o.print(")");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	5985	IN_param_value->accept(*this);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	5986	return NULL;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	5987
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	5988	}
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	5989
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	5990	ERROR;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	5991	}
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	5992
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	5993	}/function_udint_to_dint/
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	5994	break;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	5995
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	5996	/****
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	5997	*UDINT_TO_LINT
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	5998	*/
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	5999	case function_udint_to_lint :
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	6000	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	6001	symbol_c *last_type_symbol = NULL;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	6002
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	6003	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	6004	identifier_c param_name("IN");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	6005	/* Get the value from a foo(<param_name> = <param_value>) style call */
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	6006	symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	6007
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	6008	/* Get the value from a foo(<param_value>) style call */
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	6009	if (IN_param_value == NULL)
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	6010	IN_param_value = function_call_param_iterator.next();
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	6011	symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	6012	last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	6013
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	6014	if (typeid(*last_type_symbol) == typeid(udint_type_name_c))
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	6015	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	6016
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	6017	symbol_c * return_type_symbol = &search_constant_type_c::lint_type_name;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	6018	s4o.print("(");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	6019	return_type_symbol->accept(*this);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	6020	s4o.print(")");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	6021	IN_param_value->accept(*this);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	6022	return NULL;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	6023
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	6024	}
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	6025
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	6026	ERROR;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	6027	}
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	6028
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	6029	}/function_udint_to_lint/
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	6030	break;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	6031
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	6032	/****
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	6033	*UDINT_TO_USINT
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	6034	*/
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	6035	case function_udint_to_usint :
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	6036	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	6037	symbol_c *last_type_symbol = NULL;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	6038
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	6039	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	6040	identifier_c param_name("IN");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	6041	/* Get the value from a foo(<param_name> = <param_value>) style call */
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	6042	symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	6043
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	6044	/* Get the value from a foo(<param_value>) style call */
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	6045	if (IN_param_value == NULL)
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	6046	IN_param_value = function_call_param_iterator.next();
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	6047	symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	6048	last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	6049
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	6050	if (typeid(*last_type_symbol) == typeid(udint_type_name_c))
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	6051	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	6052
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	6053	symbol_c * return_type_symbol = &search_constant_type_c::usint_type_name;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	6054	s4o.print("(");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	6055	return_type_symbol->accept(*this);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	6056	s4o.print(")");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	6057	IN_param_value->accept(*this);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	6058	return NULL;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	6059
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	6060	}
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	6061
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	6062	ERROR;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	6063	}
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	6064
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	6065	}/function_udint_to_usint/
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	6066	break;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	6067
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	6068	/****
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	6069	*UDINT_TO_UINT
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	6070	*/
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	6071	case function_udint_to_uint :
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	6072	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	6073	symbol_c *last_type_symbol = NULL;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	6074
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	6075	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	6076	identifier_c param_name("IN");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	6077	/* Get the value from a foo(<param_name> = <param_value>) style call */
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	6078	symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	6079
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	6080	/* Get the value from a foo(<param_value>) style call */
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	6081	if (IN_param_value == NULL)
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	6082	IN_param_value = function_call_param_iterator.next();
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	6083	symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	6084	last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	6085
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	6086	if (typeid(*last_type_symbol) == typeid(udint_type_name_c))
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	6087	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	6088
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	6089	symbol_c * return_type_symbol = &search_constant_type_c::uint_type_name;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	6090	s4o.print("(");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	6091	return_type_symbol->accept(*this);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	6092	s4o.print(")");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	6093	IN_param_value->accept(*this);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	6094	return NULL;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	6095
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	6096	}
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	6097
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	6098	ERROR;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	6099	}
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	6100
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	6101	}/function_udint_to_uint/
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	6102	break;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	6103
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	6104	/****
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	6105	*UDINT_TO_ULINT
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	6106	*/
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	6107	case function_udint_to_ulint :
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	6108	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	6109	symbol_c *last_type_symbol = NULL;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	6110
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	6111	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	6112	identifier_c param_name("IN");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	6113	/* Get the value from a foo(<param_name> = <param_value>) style call */
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	6114	symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	6115
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	6116	/* Get the value from a foo(<param_value>) style call */
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	6117	if (IN_param_value == NULL)
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	6118	IN_param_value = function_call_param_iterator.next();
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	6119	symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	6120	last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	6121
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	6122	if (typeid(*last_type_symbol) == typeid(udint_type_name_c))
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	6123	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	6124
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	6125	symbol_c * return_type_symbol = &search_constant_type_c::ulint_type_name;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	6126	s4o.print("(");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	6127	return_type_symbol->accept(*this);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	6128	s4o.print(")");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	6129	IN_param_value->accept(*this);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	6130	return NULL;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	6131
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	6132	}
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	6133
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	6134	ERROR;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	6135	}
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	6136
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	6137	}/function_udint_to_ulint/
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	6138	break;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	6139
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	6140	/****
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	6141	*UDINT_TO_TIME
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	6142	*/
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	6143	case function_udint_to_time :
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	6144	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	6145	symbol_c *last_type_symbol = NULL;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	6146
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	6147	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	6148	identifier_c param_name("IN");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	6149	/* Get the value from a foo(<param_name> = <param_value>) style call */
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	6150	symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	6151
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	6152	/* Get the value from a foo(<param_value>) style call */
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	6153	if (IN_param_value == NULL)
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	6154	IN_param_value = function_call_param_iterator.next();
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	6155	symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	6156	last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	6157
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	6158	if (typeid(*last_type_symbol) == typeid(udint_type_name_c))
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	6159	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	6160
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	6161	symbol_c * return_type_symbol = &search_constant_type_c::time_type_name;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	6162	s4o.print("(");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	6163	return_type_symbol->accept(*this);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	6164	s4o.print(")real_to_time(");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	6165	IN_param_value->accept(*this);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	6166	s4o.print(")");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	6167	return NULL;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	6168
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	6169	}
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	6170
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	6171	ERROR;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	6172	}
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	6173
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	6174	}/function_udint_to_time/
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	6175	break;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	6176
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	6177	/****
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	6178	*UDINT_TO_BOOL
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	6179	*/
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	6180	case function_udint_to_bool :
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	6181	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	6182	symbol_c *last_type_symbol = NULL;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	6183
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	6184	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	6185	identifier_c param_name("IN");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	6186	/* Get the value from a foo(<param_name> = <param_value>) style call */
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	6187	symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	6188
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	6189	/* Get the value from a foo(<param_value>) style call */
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	6190	if (IN_param_value == NULL)
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	6191	IN_param_value = function_call_param_iterator.next();
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	6192	symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	6193	last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	6194
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	6195	if (typeid(*last_type_symbol) == typeid(udint_type_name_c))
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	6196	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	6197
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	6198	symbol_c * return_type_symbol = &search_constant_type_c::bool_type_name;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	6199	s4o.print("(");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	6200	return_type_symbol->accept(*this);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	6201	s4o.print(")");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	6202	IN_param_value->accept(*this);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	6203	return NULL;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	6204
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	6205	}
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	6206
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	6207	ERROR;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	6208	}
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	6209
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	6210	}/function_udint_to_bool/
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	6211	break;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	6212
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	6213	/****
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	6214	*UDINT_TO_BYTE
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	6215	*/
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	6216	case function_udint_to_byte :
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	6217	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	6218	symbol_c *last_type_symbol = NULL;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	6219
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	6220	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	6221	identifier_c param_name("IN");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	6222	/* Get the value from a foo(<param_name> = <param_value>) style call */
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	6223	symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	6224
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	6225	/* Get the value from a foo(<param_value>) style call */
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	6226	if (IN_param_value == NULL)
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	6227	IN_param_value = function_call_param_iterator.next();
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	6228	symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	6229	last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	6230
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	6231	if (typeid(*last_type_symbol) == typeid(udint_type_name_c))
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	6232	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	6233
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	6234	symbol_c * return_type_symbol = &search_constant_type_c::byte_type_name;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	6235	s4o.print("(");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	6236	return_type_symbol->accept(*this);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	6237	s4o.print(")");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	6238	IN_param_value->accept(*this);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	6239	return NULL;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	6240
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	6241	}
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	6242
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	6243	ERROR;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	6244	}
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	6245
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	6246	}/function_udint_to_byte/
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	6247	break;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	6248
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	6249	/****
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	6250	*UDINT_TO_WORD
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	6251	*/
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	6252	case function_udint_to_word :
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	6253	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	6254	symbol_c *last_type_symbol = NULL;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	6255
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	6256	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	6257	identifier_c param_name("IN");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	6258	/* Get the value from a foo(<param_name> = <param_value>) style call */
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	6259	symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	6260
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	6261	/* Get the value from a foo(<param_value>) style call */
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	6262	if (IN_param_value == NULL)
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	6263	IN_param_value = function_call_param_iterator.next();
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	6264	symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	6265	last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	6266
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	6267	if (typeid(*last_type_symbol) == typeid(udint_type_name_c))
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	6268	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	6269
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	6270	symbol_c * return_type_symbol = &search_constant_type_c::word_type_name;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	6271	s4o.print("(");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	6272	return_type_symbol->accept(*this);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	6273	s4o.print(")");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	6274	IN_param_value->accept(*this);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	6275	return NULL;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	6276
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	6277	}
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	6278
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	6279	ERROR;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	6280	}
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	6281
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	6282	}/function_udint_to_word/
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	6283	break;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	6284
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	6285	/****
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	6286	*UDINT_TO_DWORD
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	6287	*/
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	6288	case function_udint_to_dword :
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	6289	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	6290	symbol_c *last_type_symbol = NULL;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	6291
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	6292	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	6293	identifier_c param_name("IN");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	6294	/* Get the value from a foo(<param_name> = <param_value>) style call */
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	6295	symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	6296
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	6297	/* Get the value from a foo(<param_value>) style call */
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	6298	if (IN_param_value == NULL)
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	6299	IN_param_value = function_call_param_iterator.next();
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	6300	symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	6301	last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	6302
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	6303	if (typeid(*last_type_symbol) == typeid(udint_type_name_c))
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	6304	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	6305
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	6306	symbol_c * return_type_symbol = &search_constant_type_c::dword_type_name;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	6307	s4o.print("(");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	6308	return_type_symbol->accept(*this);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	6309	s4o.print(")");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	6310	IN_param_value->accept(*this);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	6311	return NULL;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	6312
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	6313	}
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	6314
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	6315	ERROR;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	6316	}
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	6317
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	6318	}/function_udint_to_dword/
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	6319	break;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	6320
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	6321	/****
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	6322	*UDINT_TO_LWORD
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	6323	*/
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	6324	case function_udint_to_lword :
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	6325	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	6326	symbol_c *last_type_symbol = NULL;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	6327
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	6328	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	6329	identifier_c param_name("IN");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	6330	/* Get the value from a foo(<param_name> = <param_value>) style call */
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	6331	symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	6332
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	6333	/* Get the value from a foo(<param_value>) style call */
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	6334	if (IN_param_value == NULL)
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	6335	IN_param_value = function_call_param_iterator.next();
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	6336	symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	6337	last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	6338
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	6339	if (typeid(*last_type_symbol) == typeid(udint_type_name_c))
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	6340	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	6341
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	6342	symbol_c * return_type_symbol = &search_constant_type_c::lword_type_name;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	6343	s4o.print("(");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	6344	return_type_symbol->accept(*this);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	6345	s4o.print(")");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	6346	IN_param_value->accept(*this);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	6347	return NULL;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	6348
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	6349	}
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	6350
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	6351	ERROR;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	6352	}
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	6353
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	6354	}/function_udint_to_lword/
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	6355	break;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	6356
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	6357	/****
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	6358	*UDINT_TO_STRING
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	6359	*/
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	6360	case function_udint_to_string :
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	6361	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	6362	symbol_c *last_type_symbol = NULL;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	6363
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	6364	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	6365	identifier_c param_name("IN");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	6366	/* Get the value from a foo(<param_name> = <param_value>) style call */
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	6367	symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	6368
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	6369	/* Get the value from a foo(<param_value>) style call */
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	6370	if (IN_param_value == NULL)
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	6371	IN_param_value = function_call_param_iterator.next();
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	6372	symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	6373	last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	6374
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	6375	if (typeid(*last_type_symbol) == typeid(udint_type_name_c))
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	6376	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	6377
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	6378	symbol_c * return_type_symbol = &search_constant_type_c::string_type_name;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	6379	s4o.print("(");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	6380	return_type_symbol->accept(*this);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	6381	s4o.print(")int_to_string(");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	6382	IN_param_value->accept(*this);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	6383	s4o.print(", 10)");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	6384	return NULL;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	6385
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	6386	}
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	6387
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	6388	ERROR;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	6389	}
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	6390
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	6391	}/function_udint_to_string/
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	6392	break;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	6393
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	6394	/****
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	6395	*UDINT_TO_WSTRING
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	6396	*/
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	6397	case function_udint_to_wstring :
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	6398	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	6399	symbol_c *last_type_symbol = NULL;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	6400
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	6401	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	6402	identifier_c param_name("IN");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	6403	/* Get the value from a foo(<param_name> = <param_value>) style call */
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	6404	symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	6405
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	6406	/* Get the value from a foo(<param_value>) style call */
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	6407	if (IN_param_value == NULL)
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	6408	IN_param_value = function_call_param_iterator.next();
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	6409	symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	6410	last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	6411
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	6412	if (typeid(*last_type_symbol) == typeid(udint_type_name_c))
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	6413	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	6414
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	6415	symbol_c * return_type_symbol = &search_constant_type_c::wstring_type_name;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	6416	s4o.print("(");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	6417	return_type_symbol->accept(*this);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	6418	s4o.print(")int_to_string(");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	6419	IN_param_value->accept(*this);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	6420	s4o.print(", 10)");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	6421	return NULL;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	6422
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	6423	}
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	6424
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	6425	ERROR;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	6426	}
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	6427
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	6428	}/function_udint_to_wstring/
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	6429	break;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	6430
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	6431	/****
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	6432	*UDINT_TO_DATE
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	6433	*/
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	6434	case function_udint_to_date :
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	6435	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	6436	symbol_c *last_type_symbol = NULL;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	6437
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	6438	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	6439	identifier_c param_name("IN");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	6440	/* Get the value from a foo(<param_name> = <param_value>) style call */
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	6441	symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	6442
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	6443	/* Get the value from a foo(<param_value>) style call */
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	6444	if (IN_param_value == NULL)
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	6445	IN_param_value = function_call_param_iterator.next();
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	6446	symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	6447	last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	6448
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	6449	if (typeid(*last_type_symbol) == typeid(udint_type_name_c))
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	6450	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	6451
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	6452	symbol_c * return_type_symbol = &search_constant_type_c::date_type_name;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	6453	s4o.print("(");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	6454	return_type_symbol->accept(*this);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	6455	s4o.print(")real_to_time(");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	6456	IN_param_value->accept(*this);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	6457	s4o.print(")");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	6458	return NULL;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	6459
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	6460	}
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	6461
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	6462	ERROR;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	6463	}
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	6464
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	6465	}/function_udint_to_date/
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	6466	break;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	6467
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	6468	/****
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	6469	*UDINT_TO_TOD
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	6470	*/
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	6471	case function_udint_to_tod :
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	6472	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	6473	symbol_c *last_type_symbol = NULL;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	6474
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	6475	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	6476	identifier_c param_name("IN");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	6477	/* Get the value from a foo(<param_name> = <param_value>) style call */
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	6478	symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	6479
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	6480	/* Get the value from a foo(<param_value>) style call */
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	6481	if (IN_param_value == NULL)
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	6482	IN_param_value = function_call_param_iterator.next();
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	6483	symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	6484	last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	6485
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	6486	if (typeid(*last_type_symbol) == typeid(udint_type_name_c))
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	6487	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	6488
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	6489	symbol_c * return_type_symbol = &search_constant_type_c::tod_type_name;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	6490	s4o.print("(");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	6491	return_type_symbol->accept(*this);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	6492	s4o.print(")real_to_time(");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	6493	IN_param_value->accept(*this);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	6494	s4o.print(")");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	6495	return NULL;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	6496
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	6497	}
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	6498
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	6499	ERROR;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	6500	}
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	6501
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	6502	}/function_udint_to_tod/
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	6503	break;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	6504
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	6505	/****
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	6506	*UDINT_TO_DT
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	6507	*/
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	6508	case function_udint_to_dt :
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	6509	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	6510	symbol_c *last_type_symbol = NULL;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	6511
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	6512	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	6513	identifier_c param_name("IN");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	6514	/* Get the value from a foo(<param_name> = <param_value>) style call */
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	6515	symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	6516
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	6517	/* Get the value from a foo(<param_value>) style call */
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	6518	if (IN_param_value == NULL)
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	6519	IN_param_value = function_call_param_iterator.next();
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	6520	symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	6521	last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	6522
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	6523	if (typeid(*last_type_symbol) == typeid(udint_type_name_c))
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	6524	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	6525
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	6526	symbol_c * return_type_symbol = &search_constant_type_c::dt_type_name;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	6527	s4o.print("(");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	6528	return_type_symbol->accept(*this);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	6529	s4o.print(")real_to_time(");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	6530	IN_param_value->accept(*this);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	6531	s4o.print(")");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	6532	return NULL;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	6533
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	6534	}
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	6535
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	6536	ERROR;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	6537	}
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	6538
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	6539	}/function_udint_to_dt/
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	6540	break;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	6541
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	6542	/****
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	6543	*ULINT_TO_REAL
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	6544	*/
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	6545	case function_ulint_to_real :
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	6546	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	6547	symbol_c *last_type_symbol = NULL;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	6548
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	6549	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	6550	identifier_c param_name("IN");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	6551	/* Get the value from a foo(<param_name> = <param_value>) style call */
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	6552	symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	6553
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	6554	/* Get the value from a foo(<param_value>) style call */
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	6555	if (IN_param_value == NULL)
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	6556	IN_param_value = function_call_param_iterator.next();
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	6557	symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	6558	last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	6559
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	6560	if (typeid(*last_type_symbol) == typeid(ulint_type_name_c))
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	6561	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	6562
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	6563	symbol_c * return_type_symbol = &search_constant_type_c::real_type_name;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	6564	s4o.print("(");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	6565	return_type_symbol->accept(*this);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	6566	s4o.print(")");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	6567	IN_param_value->accept(*this);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	6568	return NULL;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	6569
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	6570	}
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	6571
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	6572	ERROR;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	6573	}
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	6574
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	6575	}/function_ulint_to_real/
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	6576	break;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	6577
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	6578	/****
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	6579	*ULINT_TO_LREAL
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	6580	*/
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	6581	case function_ulint_to_lreal :
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	6582	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	6583	symbol_c *last_type_symbol = NULL;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	6584
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	6585	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	6586	identifier_c param_name("IN");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	6587	/* Get the value from a foo(<param_name> = <param_value>) style call */
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	6588	symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	6589
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	6590	/* Get the value from a foo(<param_value>) style call */
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	6591	if (IN_param_value == NULL)
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	6592	IN_param_value = function_call_param_iterator.next();
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	6593	symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	6594	last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	6595
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	6596	if (typeid(*last_type_symbol) == typeid(ulint_type_name_c))
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	6597	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	6598
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	6599	symbol_c * return_type_symbol = &search_constant_type_c::lreal_type_name;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	6600	s4o.print("(");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	6601	return_type_symbol->accept(*this);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	6602	s4o.print(")");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	6603	IN_param_value->accept(*this);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	6604	return NULL;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	6605
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	6606	}
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	6607
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	6608	ERROR;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	6609	}
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	6610
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	6611	}/function_ulint_to_lreal/
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	6612	break;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	6613
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	6614	/****
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	6615	*ULINT_TO_SINT
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	6616	*/
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	6617	case function_ulint_to_sint :
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	6618	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	6619	symbol_c *last_type_symbol = NULL;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	6620
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	6621	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	6622	identifier_c param_name("IN");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	6623	/* Get the value from a foo(<param_name> = <param_value>) style call */
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	6624	symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	6625
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	6626	/* Get the value from a foo(<param_value>) style call */
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	6627	if (IN_param_value == NULL)
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	6628	IN_param_value = function_call_param_iterator.next();
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	6629	symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	6630	last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	6631
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	6632	if (typeid(*last_type_symbol) == typeid(ulint_type_name_c))
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	6633	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	6634
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	6635	symbol_c * return_type_symbol = &search_constant_type_c::sint_type_name;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	6636	s4o.print("(");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	6637	return_type_symbol->accept(*this);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	6638	s4o.print(")");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	6639	IN_param_value->accept(*this);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	6640	return NULL;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	6641
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	6642	}
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	6643
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	6644	ERROR;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	6645	}
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	6646
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	6647	}/function_ulint_to_sint/
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	6648	break;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	6649
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	6650	/****
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	6651	*ULINT_TO_INT
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	6652	*/
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	6653	case function_ulint_to_int :
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	6654	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	6655	symbol_c *last_type_symbol = NULL;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	6656
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	6657	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	6658	identifier_c param_name("IN");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	6659	/* Get the value from a foo(<param_name> = <param_value>) style call */
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	6660	symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	6661
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	6662	/* Get the value from a foo(<param_value>) style call */
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	6663	if (IN_param_value == NULL)
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	6664	IN_param_value = function_call_param_iterator.next();
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	6665	symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	6666	last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	6667
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	6668	if (typeid(*last_type_symbol) == typeid(ulint_type_name_c))
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	6669	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	6670
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	6671	symbol_c * return_type_symbol = &search_constant_type_c::int_type_name;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	6672	s4o.print("(");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	6673	return_type_symbol->accept(*this);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	6674	s4o.print(")");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	6675	IN_param_value->accept(*this);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	6676	return NULL;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	6677
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	6678	}
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	6679
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	6680	ERROR;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	6681	}
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	6682
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	6683	}/function_ulint_to_int/
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	6684	break;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	6685
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	6686	/****
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	6687	*ULINT_TO_DINT
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	6688	*/
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	6689	case function_ulint_to_dint :
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	6690	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	6691	symbol_c *last_type_symbol = NULL;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	6692
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	6693	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	6694	identifier_c param_name("IN");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	6695	/* Get the value from a foo(<param_name> = <param_value>) style call */
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	6696	symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	6697
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	6698	/* Get the value from a foo(<param_value>) style call */
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	6699	if (IN_param_value == NULL)
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	6700	IN_param_value = function_call_param_iterator.next();
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	6701	symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	6702	last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	6703
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	6704	if (typeid(*last_type_symbol) == typeid(ulint_type_name_c))
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	6705	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	6706
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	6707	symbol_c * return_type_symbol = &search_constant_type_c::dint_type_name;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	6708	s4o.print("(");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	6709	return_type_symbol->accept(*this);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	6710	s4o.print(")");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	6711	IN_param_value->accept(*this);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	6712	return NULL;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	6713
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	6714	}
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	6715
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	6716	ERROR;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	6717	}
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	6718
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	6719	}/function_ulint_to_dint/
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	6720	break;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	6721
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	6722	/****
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	6723	*ULINT_TO_LINT
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	6724	*/
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	6725	case function_ulint_to_lint :
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	6726	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	6727	symbol_c *last_type_symbol = NULL;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	6728
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	6729	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	6730	identifier_c param_name("IN");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	6731	/* Get the value from a foo(<param_name> = <param_value>) style call */
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	6732	symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	6733
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	6734	/* Get the value from a foo(<param_value>) style call */
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	6735	if (IN_param_value == NULL)
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	6736	IN_param_value = function_call_param_iterator.next();
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	6737	symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	6738	last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	6739
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	6740	if (typeid(*last_type_symbol) == typeid(ulint_type_name_c))
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	6741	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	6742
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	6743	symbol_c * return_type_symbol = &search_constant_type_c::lint_type_name;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	6744	s4o.print("(");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	6745	return_type_symbol->accept(*this);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	6746	s4o.print(")");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	6747	IN_param_value->accept(*this);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	6748	return NULL;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	6749
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	6750	}
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	6751
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	6752	ERROR;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	6753	}
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	6754
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	6755	}/function_ulint_to_lint/
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	6756	break;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	6757
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	6758	/****
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	6759	*ULINT_TO_USINT
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	6760	*/
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	6761	case function_ulint_to_usint :
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	6762	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	6763	symbol_c *last_type_symbol = NULL;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	6764
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	6765	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	6766	identifier_c param_name("IN");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	6767	/* Get the value from a foo(<param_name> = <param_value>) style call */
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	6768	symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	6769
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	6770	/* Get the value from a foo(<param_value>) style call */
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	6771	if (IN_param_value == NULL)
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	6772	IN_param_value = function_call_param_iterator.next();
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	6773	symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	6774	last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	6775
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	6776	if (typeid(*last_type_symbol) == typeid(ulint_type_name_c))
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	6777	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	6778
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	6779	symbol_c * return_type_symbol = &search_constant_type_c::usint_type_name;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	6780	s4o.print("(");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	6781	return_type_symbol->accept(*this);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	6782	s4o.print(")");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	6783	IN_param_value->accept(*this);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	6784	return NULL;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	6785
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	6786	}
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	6787
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	6788	ERROR;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	6789	}
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	6790
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	6791	}/function_ulint_to_usint/
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	6792	break;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	6793
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	6794	/****
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	6795	*ULINT_TO_UINT
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	6796	*/
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	6797	case function_ulint_to_uint :
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	6798	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	6799	symbol_c *last_type_symbol = NULL;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	6800
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	6801	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	6802	identifier_c param_name("IN");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	6803	/* Get the value from a foo(<param_name> = <param_value>) style call */
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	6804	symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	6805
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	6806	/* Get the value from a foo(<param_value>) style call */
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	6807	if (IN_param_value == NULL)
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	6808	IN_param_value = function_call_param_iterator.next();
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	6809	symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	6810	last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	6811
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	6812	if (typeid(*last_type_symbol) == typeid(ulint_type_name_c))
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	6813	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	6814
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	6815	symbol_c * return_type_symbol = &search_constant_type_c::uint_type_name;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	6816	s4o.print("(");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	6817	return_type_symbol->accept(*this);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	6818	s4o.print(")");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	6819	IN_param_value->accept(*this);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	6820	return NULL;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	6821
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	6822	}
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	6823
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	6824	ERROR;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	6825	}
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	6826
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	6827	}/function_ulint_to_uint/
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	6828	break;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	6829
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	6830	/****
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	6831	*ULINT_TO_UDINT
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	6832	*/
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	6833	case function_ulint_to_udint :
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	6834	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	6835	symbol_c *last_type_symbol = NULL;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	6836
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	6837	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	6838	identifier_c param_name("IN");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	6839	/* Get the value from a foo(<param_name> = <param_value>) style call */
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	6840	symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	6841
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	6842	/* Get the value from a foo(<param_value>) style call */
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	6843	if (IN_param_value == NULL)
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	6844	IN_param_value = function_call_param_iterator.next();
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	6845	symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	6846	last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	6847
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	6848	if (typeid(*last_type_symbol) == typeid(ulint_type_name_c))
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	6849	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	6850
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	6851	symbol_c * return_type_symbol = &search_constant_type_c::udint_type_name;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	6852	s4o.print("(");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	6853	return_type_symbol->accept(*this);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	6854	s4o.print(")");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	6855	IN_param_value->accept(*this);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	6856	return NULL;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	6857
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	6858	}
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	6859
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	6860	ERROR;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	6861	}
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	6862
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	6863	}/function_ulint_to_udint/
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	6864	break;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	6865
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	6866	/****
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	6867	*ULINT_TO_TIME
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	6868	*/
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	6869	case function_ulint_to_time :
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	6870	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	6871	symbol_c *last_type_symbol = NULL;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	6872
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	6873	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	6874	identifier_c param_name("IN");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	6875	/* Get the value from a foo(<param_name> = <param_value>) style call */
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	6876	symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	6877
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	6878	/* Get the value from a foo(<param_value>) style call */
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	6879	if (IN_param_value == NULL)
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	6880	IN_param_value = function_call_param_iterator.next();
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	6881	symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	6882	last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	6883
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	6884	if (typeid(*last_type_symbol) == typeid(ulint_type_name_c))
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	6885	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	6886
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	6887	symbol_c * return_type_symbol = &search_constant_type_c::time_type_name;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	6888	s4o.print("(");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	6889	return_type_symbol->accept(*this);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	6890	s4o.print(")real_to_time(");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	6891	IN_param_value->accept(*this);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	6892	s4o.print(")");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	6893	return NULL;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	6894
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	6895	}
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	6896
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	6897	ERROR;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	6898	}
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	6899
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	6900	}/function_ulint_to_time/
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	6901	break;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	6902
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	6903	/****
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	6904	*ULINT_TO_BOOL
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	6905	*/
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	6906	case function_ulint_to_bool :
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	6907	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	6908	symbol_c *last_type_symbol = NULL;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	6909
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	6910	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	6911	identifier_c param_name("IN");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	6912	/* Get the value from a foo(<param_name> = <param_value>) style call */
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	6913	symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	6914
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	6915	/* Get the value from a foo(<param_value>) style call */
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	6916	if (IN_param_value == NULL)
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	6917	IN_param_value = function_call_param_iterator.next();
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	6918	symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	6919	last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	6920
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	6921	if (typeid(*last_type_symbol) == typeid(ulint_type_name_c))
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	6922	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	6923
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	6924	symbol_c * return_type_symbol = &search_constant_type_c::bool_type_name;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	6925	s4o.print("(");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	6926	return_type_symbol->accept(*this);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	6927	s4o.print(")");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	6928	IN_param_value->accept(*this);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	6929	return NULL;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	6930
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	6931	}
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	6932
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	6933	ERROR;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	6934	}
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	6935
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	6936	}/function_ulint_to_bool/
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	6937	break;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	6938
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	6939	/****
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	6940	*ULINT_TO_BYTE
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	6941	*/
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	6942	case function_ulint_to_byte :
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	6943	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	6944	symbol_c *last_type_symbol = NULL;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	6945
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	6946	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	6947	identifier_c param_name("IN");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	6948	/* Get the value from a foo(<param_name> = <param_value>) style call */
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	6949	symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	6950
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	6951	/* Get the value from a foo(<param_value>) style call */
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	6952	if (IN_param_value == NULL)
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	6953	IN_param_value = function_call_param_iterator.next();
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	6954	symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	6955	last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	6956
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	6957	if (typeid(*last_type_symbol) == typeid(ulint_type_name_c))
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	6958	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	6959
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	6960	symbol_c * return_type_symbol = &search_constant_type_c::byte_type_name;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	6961	s4o.print("(");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	6962	return_type_symbol->accept(*this);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	6963	s4o.print(")");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	6964	IN_param_value->accept(*this);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	6965	return NULL;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	6966
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	6967	}
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	6968
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	6969	ERROR;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	6970	}
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	6971
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	6972	}/function_ulint_to_byte/
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	6973	break;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	6974
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	6975	/****
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	6976	*ULINT_TO_WORD
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	6977	*/
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	6978	case function_ulint_to_word :
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	6979	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	6980	symbol_c *last_type_symbol = NULL;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	6981
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	6982	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	6983	identifier_c param_name("IN");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	6984	/* Get the value from a foo(<param_name> = <param_value>) style call */
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	6985	symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	6986
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	6987	/* Get the value from a foo(<param_value>) style call */
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	6988	if (IN_param_value == NULL)
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	6989	IN_param_value = function_call_param_iterator.next();
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	6990	symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	6991	last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	6992
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	6993	if (typeid(*last_type_symbol) == typeid(ulint_type_name_c))
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	6994	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	6995
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	6996	symbol_c * return_type_symbol = &search_constant_type_c::word_type_name;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	6997	s4o.print("(");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	6998	return_type_symbol->accept(*this);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	6999	s4o.print(")");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	7000	IN_param_value->accept(*this);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	7001	return NULL;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	7002
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	7003	}
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	7004
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	7005	ERROR;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	7006	}
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	7007
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	7008	}/function_ulint_to_word/
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	7009	break;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	7010
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	7011	/****
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	7012	*ULINT_TO_DWORD
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	7013	*/
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	7014	case function_ulint_to_dword :
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	7015	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	7016	symbol_c *last_type_symbol = NULL;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	7017
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	7018	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	7019	identifier_c param_name("IN");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	7020	/* Get the value from a foo(<param_name> = <param_value>) style call */
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	7021	symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	7022
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	7023	/* Get the value from a foo(<param_value>) style call */
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	7024	if (IN_param_value == NULL)
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	7025	IN_param_value = function_call_param_iterator.next();
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	7026	symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	7027	last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	7028
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	7029	if (typeid(*last_type_symbol) == typeid(ulint_type_name_c))
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	7030	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	7031
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	7032	symbol_c * return_type_symbol = &search_constant_type_c::dword_type_name;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	7033	s4o.print("(");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	7034	return_type_symbol->accept(*this);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	7035	s4o.print(")");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	7036	IN_param_value->accept(*this);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	7037	return NULL;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	7038
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	7039	}
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	7040
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	7041	ERROR;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	7042	}
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	7043
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	7044	}/function_ulint_to_dword/
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	7045	break;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	7046
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	7047	/****
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	7048	*ULINT_TO_LWORD
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	7049	*/
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	7050	case function_ulint_to_lword :
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	7051	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	7052	symbol_c *last_type_symbol = NULL;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	7053
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	7054	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	7055	identifier_c param_name("IN");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	7056	/* Get the value from a foo(<param_name> = <param_value>) style call */
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	7057	symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	7058
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	7059	/* Get the value from a foo(<param_value>) style call */
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	7060	if (IN_param_value == NULL)
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	7061	IN_param_value = function_call_param_iterator.next();
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	7062	symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	7063	last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	7064
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	7065	if (typeid(*last_type_symbol) == typeid(ulint_type_name_c))
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	7066	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	7067
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	7068	symbol_c * return_type_symbol = &search_constant_type_c::lword_type_name;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	7069	s4o.print("(");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	7070	return_type_symbol->accept(*this);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	7071	s4o.print(")");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	7072	IN_param_value->accept(*this);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	7073	return NULL;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	7074
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	7075	}
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	7076
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	7077	ERROR;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	7078	}
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	7079
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	7080	}/function_ulint_to_lword/
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	7081	break;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	7082
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	7083	/****
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	7084	*ULINT_TO_STRING
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	7085	*/
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	7086	case function_ulint_to_string :
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	7087	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	7088	symbol_c *last_type_symbol = NULL;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	7089
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	7090	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	7091	identifier_c param_name("IN");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	7092	/* Get the value from a foo(<param_name> = <param_value>) style call */
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	7093	symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	7094
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	7095	/* Get the value from a foo(<param_value>) style call */
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	7096	if (IN_param_value == NULL)
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	7097	IN_param_value = function_call_param_iterator.next();
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	7098	symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	7099	last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	7100
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	7101	if (typeid(*last_type_symbol) == typeid(ulint_type_name_c))
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	7102	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	7103
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	7104	symbol_c * return_type_symbol = &search_constant_type_c::string_type_name;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	7105	s4o.print("(");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	7106	return_type_symbol->accept(*this);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	7107	s4o.print(")int_to_string(");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	7108	IN_param_value->accept(*this);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	7109	s4o.print(", 10)");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	7110	return NULL;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	7111
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	7112	}
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	7113
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	7114	ERROR;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	7115	}
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	7116
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	7117	}/function_ulint_to_string/
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	7118	break;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	7119
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	7120	/****
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	7121	*ULINT_TO_WSTRING
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	7122	*/
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	7123	case function_ulint_to_wstring :
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	7124	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	7125	symbol_c *last_type_symbol = NULL;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	7126
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	7127	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	7128	identifier_c param_name("IN");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	7129	/* Get the value from a foo(<param_name> = <param_value>) style call */
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	7130	symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	7131
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	7132	/* Get the value from a foo(<param_value>) style call */
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	7133	if (IN_param_value == NULL)
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	7134	IN_param_value = function_call_param_iterator.next();
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	7135	symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	7136	last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	7137
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	7138	if (typeid(*last_type_symbol) == typeid(ulint_type_name_c))
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	7139	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	7140
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	7141	symbol_c * return_type_symbol = &search_constant_type_c::wstring_type_name;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	7142	s4o.print("(");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	7143	return_type_symbol->accept(*this);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	7144	s4o.print(")int_to_string(");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	7145	IN_param_value->accept(*this);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	7146	s4o.print(", 10)");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	7147	return NULL;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	7148
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	7149	}
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	7150
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	7151	ERROR;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	7152	}
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	7153
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	7154	}/function_ulint_to_wstring/
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	7155	break;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	7156
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	7157	/****
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	7158	*ULINT_TO_DATE
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	7159	*/
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	7160	case function_ulint_to_date :
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	7161	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	7162	symbol_c *last_type_symbol = NULL;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	7163
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	7164	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	7165	identifier_c param_name("IN");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	7166	/* Get the value from a foo(<param_name> = <param_value>) style call */
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	7167	symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	7168
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	7169	/* Get the value from a foo(<param_value>) style call */
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	7170	if (IN_param_value == NULL)
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	7171	IN_param_value = function_call_param_iterator.next();
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	7172	symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	7173	last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	7174
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	7175	if (typeid(*last_type_symbol) == typeid(ulint_type_name_c))
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	7176	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	7177
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	7178	symbol_c * return_type_symbol = &search_constant_type_c::date_type_name;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	7179	s4o.print("(");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	7180	return_type_symbol->accept(*this);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	7181	s4o.print(")real_to_time(");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	7182	IN_param_value->accept(*this);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	7183	s4o.print(")");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	7184	return NULL;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	7185
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	7186	}
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	7187
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	7188	ERROR;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	7189	}
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	7190
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	7191	}/function_ulint_to_date/
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	7192	break;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	7193
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	7194	/****
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	7195	*ULINT_TO_TOD
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	7196	*/
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	7197	case function_ulint_to_tod :
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	7198	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	7199	symbol_c *last_type_symbol = NULL;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	7200
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	7201	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	7202	identifier_c param_name("IN");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	7203	/* Get the value from a foo(<param_name> = <param_value>) style call */
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	7204	symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	7205
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	7206	/* Get the value from a foo(<param_value>) style call */
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	7207	if (IN_param_value == NULL)
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	7208	IN_param_value = function_call_param_iterator.next();
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	7209	symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	7210	last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	7211
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	7212	if (typeid(*last_type_symbol) == typeid(ulint_type_name_c))
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	7213	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	7214
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	7215	symbol_c * return_type_symbol = &search_constant_type_c::tod_type_name;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	7216	s4o.print("(");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	7217	return_type_symbol->accept(*this);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	7218	s4o.print(")real_to_time(");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	7219	IN_param_value->accept(*this);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	7220	s4o.print(")");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	7221	return NULL;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	7222
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	7223	}
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	7224
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	7225	ERROR;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	7226	}
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	7227
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	7228	}/function_ulint_to_tod/
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	7229	break;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	7230
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	7231	/****
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	7232	*ULINT_TO_DT
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	7233	*/
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	7234	case function_ulint_to_dt :
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	7235	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	7236	symbol_c *last_type_symbol = NULL;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	7237
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	7238	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	7239	identifier_c param_name("IN");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	7240	/* Get the value from a foo(<param_name> = <param_value>) style call */
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	7241	symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	7242
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	7243	/* Get the value from a foo(<param_value>) style call */
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	7244	if (IN_param_value == NULL)
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	7245	IN_param_value = function_call_param_iterator.next();
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	7246	symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	7247	last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	7248
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	7249	if (typeid(*last_type_symbol) == typeid(ulint_type_name_c))
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	7250	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	7251
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	7252	symbol_c * return_type_symbol = &search_constant_type_c::dt_type_name;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	7253	s4o.print("(");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	7254	return_type_symbol->accept(*this);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	7255	s4o.print(")real_to_time(");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	7256	IN_param_value->accept(*this);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	7257	s4o.print(")");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	7258	return NULL;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	7259
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	7260	}
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	7261
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	7262	ERROR;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	7263	}
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	7264
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	7265	}/function_ulint_to_dt/
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	7266	break;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	7267
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	7268	/****
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	7269	*TIME_TO_REAL
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	7270	*/
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	7271	case function_time_to_real :
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	7272	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	7273	symbol_c *last_type_symbol = NULL;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	7274
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	7275	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	7276	identifier_c param_name("IN");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	7277	/* Get the value from a foo(<param_name> = <param_value>) style call */
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	7278	symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	7279
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	7280	/* Get the value from a foo(<param_value>) style call */
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	7281	if (IN_param_value == NULL)
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	7282	IN_param_value = function_call_param_iterator.next();
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	7283	symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	7284	last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	7285
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	7286	if (typeid(*last_type_symbol) == typeid(time_type_name_c))
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	7287	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	7288
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	7289	symbol_c * return_type_symbol = &search_constant_type_c::real_type_name;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	7290	s4o.print("(");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	7291	return_type_symbol->accept(*this);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	7292	s4o.print(")time_to_real(");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	7293	IN_param_value->accept(*this);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	7294	s4o.print(")");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	7295	return NULL;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	7296
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	7297	}
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	7298
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	7299	ERROR;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	7300	}
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	7301
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	7302	}/function_time_to_real/
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	7303	break;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	7304
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	7305	/****
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	7306	*TIME_TO_LREAL
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	7307	*/
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	7308	case function_time_to_lreal :
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	7309	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	7310	symbol_c *last_type_symbol = NULL;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	7311
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	7312	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	7313	identifier_c param_name("IN");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	7314	/* Get the value from a foo(<param_name> = <param_value>) style call */
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	7315	symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	7316
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	7317	/* Get the value from a foo(<param_value>) style call */
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	7318	if (IN_param_value == NULL)
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	7319	IN_param_value = function_call_param_iterator.next();
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	7320	symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	7321	last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	7322
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	7323	if (typeid(*last_type_symbol) == typeid(time_type_name_c))
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	7324	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	7325
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	7326	symbol_c * return_type_symbol = &search_constant_type_c::lreal_type_name;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	7327	s4o.print("(");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	7328	return_type_symbol->accept(*this);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	7329	s4o.print(")time_to_real(");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	7330	IN_param_value->accept(*this);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	7331	s4o.print(")");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	7332	return NULL;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	7333
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	7334	}
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	7335
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	7336	ERROR;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	7337	}
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	7338
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	7339	}/function_time_to_lreal/
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	7340	break;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	7341
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	7342	/****
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	7343	*TIME_TO_SINT
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	7344	*/
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	7345	case function_time_to_sint :
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	7346	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	7347	symbol_c *last_type_symbol = NULL;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	7348
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	7349	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	7350	identifier_c param_name("IN");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	7351	/* Get the value from a foo(<param_name> = <param_value>) style call */
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	7352	symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	7353
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	7354	/* Get the value from a foo(<param_value>) style call */
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	7355	if (IN_param_value == NULL)
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	7356	IN_param_value = function_call_param_iterator.next();
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	7357	symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	7358	last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	7359
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	7360	if (typeid(*last_type_symbol) == typeid(time_type_name_c))
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	7361	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	7362
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	7363	symbol_c * return_type_symbol = &search_constant_type_c::sint_type_name;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	7364	s4o.print("(");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	7365	return_type_symbol->accept(*this);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	7366	s4o.print(")time_to_real(");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	7367	IN_param_value->accept(*this);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	7368	s4o.print(")");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	7369	return NULL;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	7370
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	7371	}
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	7372
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	7373	ERROR;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	7374	}
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	7375
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	7376	}/function_time_to_sint/
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	7377	break;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	7378
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	7379	/****
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	7380	*TIME_TO_INT
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	7381	*/
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	7382	case function_time_to_int :
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	7383	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	7384	symbol_c *last_type_symbol = NULL;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	7385
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	7386	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	7387	identifier_c param_name("IN");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	7388	/* Get the value from a foo(<param_name> = <param_value>) style call */
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	7389	symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	7390
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	7391	/* Get the value from a foo(<param_value>) style call */
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	7392	if (IN_param_value == NULL)
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	7393	IN_param_value = function_call_param_iterator.next();
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	7394	symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	7395	last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	7396
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	7397	if (typeid(*last_type_symbol) == typeid(time_type_name_c))
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	7398	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	7399
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	7400	symbol_c * return_type_symbol = &search_constant_type_c::int_type_name;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	7401	s4o.print("(");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	7402	return_type_symbol->accept(*this);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	7403	s4o.print(")time_to_real(");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	7404	IN_param_value->accept(*this);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	7405	s4o.print(")");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	7406	return NULL;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	7407
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	7408	}
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	7409
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	7410	ERROR;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	7411	}
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	7412
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	7413	}/function_time_to_int/
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	7414	break;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	7415
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	7416	/****
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	7417	*TIME_TO_DINT
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	7418	*/
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	7419	case function_time_to_dint :
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	7420	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	7421	symbol_c *last_type_symbol = NULL;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	7422
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	7423	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	7424	identifier_c param_name("IN");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	7425	/* Get the value from a foo(<param_name> = <param_value>) style call */
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	7426	symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	7427
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	7428	/* Get the value from a foo(<param_value>) style call */
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	7429	if (IN_param_value == NULL)
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	7430	IN_param_value = function_call_param_iterator.next();
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	7431	symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	7432	last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	7433
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	7434	if (typeid(*last_type_symbol) == typeid(time_type_name_c))
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	7435	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	7436
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	7437	symbol_c * return_type_symbol = &search_constant_type_c::dint_type_name;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	7438	s4o.print("(");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	7439	return_type_symbol->accept(*this);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	7440	s4o.print(")time_to_real(");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	7441	IN_param_value->accept(*this);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	7442	s4o.print(")");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	7443	return NULL;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	7444
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	7445	}
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	7446
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	7447	ERROR;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	7448	}
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	7449
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	7450	}/function_time_to_dint/
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	7451	break;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	7452
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	7453	/****
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	7454	*TIME_TO_LINT
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	7455	*/
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	7456	case function_time_to_lint :
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	7457	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	7458	symbol_c *last_type_symbol = NULL;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	7459
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	7460	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	7461	identifier_c param_name("IN");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	7462	/* Get the value from a foo(<param_name> = <param_value>) style call */
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	7463	symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	7464
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	7465	/* Get the value from a foo(<param_value>) style call */
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	7466	if (IN_param_value == NULL)
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	7467	IN_param_value = function_call_param_iterator.next();
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	7468	symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	7469	last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	7470
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	7471	if (typeid(*last_type_symbol) == typeid(time_type_name_c))
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	7472	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	7473
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	7474	symbol_c * return_type_symbol = &search_constant_type_c::lint_type_name;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	7475	s4o.print("(");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	7476	return_type_symbol->accept(*this);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	7477	s4o.print(")time_to_real(");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	7478	IN_param_value->accept(*this);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	7479	s4o.print(")");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	7480	return NULL;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	7481
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	7482	}
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	7483
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	7484	ERROR;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	7485	}
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	7486
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	7487	}/function_time_to_lint/
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	7488	break;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	7489
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	7490	/****
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	7491	*TIME_TO_USINT
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	7492	*/
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	7493	case function_time_to_usint :
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	7494	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	7495	symbol_c *last_type_symbol = NULL;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	7496
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	7497	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	7498	identifier_c param_name("IN");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	7499	/* Get the value from a foo(<param_name> = <param_value>) style call */
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	7500	symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	7501
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	7502	/* Get the value from a foo(<param_value>) style call */
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	7503	if (IN_param_value == NULL)
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	7504	IN_param_value = function_call_param_iterator.next();
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	7505	symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	7506	last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	7507
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	7508	if (typeid(*last_type_symbol) == typeid(time_type_name_c))
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	7509	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	7510
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	7511	symbol_c * return_type_symbol = &search_constant_type_c::usint_type_name;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	7512	s4o.print("(");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	7513	return_type_symbol->accept(*this);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	7514	s4o.print(")time_to_real(");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	7515	IN_param_value->accept(*this);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	7516	s4o.print(")");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	7517	return NULL;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	7518
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	7519	}
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	7520
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	7521	ERROR;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	7522	}
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	7523
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	7524	}/function_time_to_usint/
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	7525	break;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	7526
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	7527	/****
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	7528	*TIME_TO_UINT
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	7529	*/
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	7530	case function_time_to_uint :
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	7531	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	7532	symbol_c *last_type_symbol = NULL;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	7533
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	7534	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	7535	identifier_c param_name("IN");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	7536	/* Get the value from a foo(<param_name> = <param_value>) style call */
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	7537	symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	7538
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	7539	/* Get the value from a foo(<param_value>) style call */
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	7540	if (IN_param_value == NULL)
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	7541	IN_param_value = function_call_param_iterator.next();
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	7542	symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	7543	last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	7544
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	7545	if (typeid(*last_type_symbol) == typeid(time_type_name_c))
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	7546	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	7547
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	7548	symbol_c * return_type_symbol = &search_constant_type_c::uint_type_name;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	7549	s4o.print("(");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	7550	return_type_symbol->accept(*this);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	7551	s4o.print(")time_to_real(");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	7552	IN_param_value->accept(*this);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	7553	s4o.print(")");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	7554	return NULL;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	7555
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	7556	}
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	7557
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	7558	ERROR;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	7559	}
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	7560
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	7561	}/function_time_to_uint/
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	7562	break;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	7563
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	7564	/****
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	7565	*TIME_TO_UDINT
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	7566	*/
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	7567	case function_time_to_udint :
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	7568	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	7569	symbol_c *last_type_symbol = NULL;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	7570
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	7571	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	7572	identifier_c param_name("IN");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	7573	/* Get the value from a foo(<param_name> = <param_value>) style call */
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	7574	symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	7575
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	7576	/* Get the value from a foo(<param_value>) style call */
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	7577	if (IN_param_value == NULL)
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	7578	IN_param_value = function_call_param_iterator.next();
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	7579	symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	7580	last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	7581
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	7582	if (typeid(*last_type_symbol) == typeid(time_type_name_c))
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	7583	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	7584
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	7585	symbol_c * return_type_symbol = &search_constant_type_c::udint_type_name;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	7586	s4o.print("(");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	7587	return_type_symbol->accept(*this);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	7588	s4o.print(")time_to_real(");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	7589	IN_param_value->accept(*this);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	7590	s4o.print(")");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	7591	return NULL;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	7592
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	7593	}
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	7594
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	7595	ERROR;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	7596	}
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	7597
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	7598	}/function_time_to_udint/
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	7599	break;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	7600
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	7601	/****
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	7602	*TIME_TO_ULINT
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	7603	*/
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	7604	case function_time_to_ulint :
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	7605	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	7606	symbol_c *last_type_symbol = NULL;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	7607
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	7608	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	7609	identifier_c param_name("IN");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	7610	/* Get the value from a foo(<param_name> = <param_value>) style call */
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	7611	symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	7612
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	7613	/* Get the value from a foo(<param_value>) style call */
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	7614	if (IN_param_value == NULL)
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	7615	IN_param_value = function_call_param_iterator.next();
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	7616	symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	7617	last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	7618
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	7619	if (typeid(*last_type_symbol) == typeid(time_type_name_c))
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	7620	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	7621
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	7622	symbol_c * return_type_symbol = &search_constant_type_c::ulint_type_name;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	7623	s4o.print("(");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	7624	return_type_symbol->accept(*this);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	7625	s4o.print(")time_to_real(");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	7626	IN_param_value->accept(*this);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	7627	s4o.print(")");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	7628	return NULL;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	7629
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	7630	}
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	7631
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	7632	ERROR;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	7633	}
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	7634
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	7635	}/function_time_to_ulint/
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	7636	break;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	7637
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	7638	/****
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	7639	*TIME_TO_BOOL
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	7640	*/
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	7641	case function_time_to_bool :
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	7642	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	7643	symbol_c *last_type_symbol = NULL;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	7644
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	7645	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	7646	identifier_c param_name("IN");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	7647	/* Get the value from a foo(<param_name> = <param_value>) style call */
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	7648	symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	7649
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	7650	/* Get the value from a foo(<param_value>) style call */
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	7651	if (IN_param_value == NULL)
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	7652	IN_param_value = function_call_param_iterator.next();
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	7653	symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	7654	last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	7655
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	7656	if (typeid(*last_type_symbol) == typeid(time_type_name_c))
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	7657	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	7658
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	7659	symbol_c * return_type_symbol = &search_constant_type_c::bool_type_name;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	7660	s4o.print("(");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	7661	return_type_symbol->accept(*this);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	7662	s4o.print(")time_to_real(");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	7663	IN_param_value->accept(*this);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	7664	s4o.print(")");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	7665	return NULL;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	7666
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	7667	}
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	7668
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	7669	ERROR;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	7670	}
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	7671
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	7672	}/function_time_to_bool/
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	7673	break;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	7674
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	7675	/****
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	7676	*TIME_TO_BYTE
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	7677	*/
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	7678	case function_time_to_byte :
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	7679	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	7680	symbol_c *last_type_symbol = NULL;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	7681
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	7682	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	7683	identifier_c param_name("IN");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	7684	/* Get the value from a foo(<param_name> = <param_value>) style call */
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	7685	symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	7686
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	7687	/* Get the value from a foo(<param_value>) style call */
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	7688	if (IN_param_value == NULL)
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	7689	IN_param_value = function_call_param_iterator.next();
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	7690	symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	7691	last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	7692
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	7693	if (typeid(*last_type_symbol) == typeid(time_type_name_c))
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	7694	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	7695
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	7696	symbol_c * return_type_symbol = &search_constant_type_c::byte_type_name;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	7697	s4o.print("(");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	7698	return_type_symbol->accept(*this);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	7699	s4o.print(")time_to_real(");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	7700	IN_param_value->accept(*this);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	7701	s4o.print(")");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	7702	return NULL;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	7703
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	7704	}
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	7705
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	7706	ERROR;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	7707	}
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	7708
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	7709	}/function_time_to_byte/
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	7710	break;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	7711
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	7712	/****
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	7713	*TIME_TO_WORD
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	7714	*/
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	7715	case function_time_to_word :
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	7716	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	7717	symbol_c *last_type_symbol = NULL;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	7718
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	7719	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	7720	identifier_c param_name("IN");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	7721	/* Get the value from a foo(<param_name> = <param_value>) style call */
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	7722	symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	7723
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	7724	/* Get the value from a foo(<param_value>) style call */
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	7725	if (IN_param_value == NULL)
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	7726	IN_param_value = function_call_param_iterator.next();
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	7727	symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	7728	last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	7729
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	7730	if (typeid(*last_type_symbol) == typeid(time_type_name_c))
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	7731	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	7732
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	7733	symbol_c * return_type_symbol = &search_constant_type_c::word_type_name;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	7734	s4o.print("(");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	7735	return_type_symbol->accept(*this);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	7736	s4o.print(")time_to_real(");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	7737	IN_param_value->accept(*this);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	7738	s4o.print(")");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	7739	return NULL;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	7740
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	7741	}
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	7742
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	7743	ERROR;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	7744	}
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	7745
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	7746	}/function_time_to_word/
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	7747	break;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	7748
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	7749	/****
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	7750	*TIME_TO_DWORD
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	7751	*/
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	7752	case function_time_to_dword :
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	7753	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	7754	symbol_c *last_type_symbol = NULL;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	7755
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	7756	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	7757	identifier_c param_name("IN");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	7758	/* Get the value from a foo(<param_name> = <param_value>) style call */
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	7759	symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	7760
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	7761	/* Get the value from a foo(<param_value>) style call */
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	7762	if (IN_param_value == NULL)
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	7763	IN_param_value = function_call_param_iterator.next();
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	7764	symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	7765	last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	7766
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	7767	if (typeid(*last_type_symbol) == typeid(time_type_name_c))
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	7768	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	7769
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	7770	symbol_c * return_type_symbol = &search_constant_type_c::dword_type_name;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	7771	s4o.print("(");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	7772	return_type_symbol->accept(*this);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	7773	s4o.print(")time_to_real(");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	7774	IN_param_value->accept(*this);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	7775	s4o.print(")");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	7776	return NULL;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	7777
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	7778	}
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	7779
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	7780	ERROR;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	7781	}
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	7782
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	7783	}/function_time_to_dword/
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	7784	break;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	7785
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	7786	/****
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	7787	*TIME_TO_LWORD
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	7788	*/
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	7789	case function_time_to_lword :
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	7790	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	7791	symbol_c *last_type_symbol = NULL;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	7792
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	7793	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	7794	identifier_c param_name("IN");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	7795	/* Get the value from a foo(<param_name> = <param_value>) style call */
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	7796	symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	7797
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	7798	/* Get the value from a foo(<param_value>) style call */
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	7799	if (IN_param_value == NULL)
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	7800	IN_param_value = function_call_param_iterator.next();
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	7801	symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	7802	last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	7803
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	7804	if (typeid(*last_type_symbol) == typeid(time_type_name_c))
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	7805	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	7806
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	7807	symbol_c * return_type_symbol = &search_constant_type_c::lword_type_name;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	7808	s4o.print("(");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	7809	return_type_symbol->accept(*this);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	7810	s4o.print(")time_to_real(");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	7811	IN_param_value->accept(*this);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	7812	s4o.print(")");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	7813	return NULL;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	7814
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	7815	}
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	7816
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	7817	ERROR;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	7818	}
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	7819
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	7820	}/function_time_to_lword/
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	7821	break;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	7822
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	7823	/****
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	7824	*TIME_TO_STRING
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	7825	*/
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	7826	case function_time_to_string :
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	7827	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	7828	symbol_c *last_type_symbol = NULL;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	7829
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	7830	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	7831	identifier_c param_name("IN");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	7832	/* Get the value from a foo(<param_name> = <param_value>) style call */
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	7833	symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	7834
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	7835	/* Get the value from a foo(<param_value>) style call */
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	7836	if (IN_param_value == NULL)
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	7837	IN_param_value = function_call_param_iterator.next();
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	7838	symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	7839	last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	7840
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	7841	if (typeid(*last_type_symbol) == typeid(time_type_name_c))
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	7842	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	7843
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	7844	symbol_c * return_type_symbol = &search_constant_type_c::string_type_name;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	7845	s4o.print("(");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	7846	return_type_symbol->accept(*this);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	7847	s4o.print(")time_to_string(");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	7848	IN_param_value->accept(*this);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	7849	s4o.print(")");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	7850	return NULL;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	7851
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	7852	}
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	7853
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	7854	ERROR;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	7855	}
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	7856
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	7857	}/function_time_to_string/
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	7858	break;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	7859
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	7860	/****
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	7861	*TIME_TO_WSTRING
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	7862	*/
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	7863	case function_time_to_wstring :
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	7864	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	7865	symbol_c *last_type_symbol = NULL;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	7866
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	7867	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	7868	identifier_c param_name("IN");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	7869	/* Get the value from a foo(<param_name> = <param_value>) style call */
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	7870	symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	7871
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	7872	/* Get the value from a foo(<param_value>) style call */
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	7873	if (IN_param_value == NULL)
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	7874	IN_param_value = function_call_param_iterator.next();
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	7875	symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	7876	last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	7877
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	7878	if (typeid(*last_type_symbol) == typeid(time_type_name_c))
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	7879	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	7880
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	7881	symbol_c * return_type_symbol = &search_constant_type_c::wstring_type_name;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	7882	s4o.print("(");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	7883	return_type_symbol->accept(*this);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	7884	s4o.print(")time_to_string(");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	7885	IN_param_value->accept(*this);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	7886	s4o.print(")");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	7887	return NULL;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	7888
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	7889	}
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	7890
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	7891	ERROR;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	7892	}
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	7893
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	7894	}/function_time_to_wstring/
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	7895	break;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	7896
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	7897	/****
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	7898	*BOOL_TO_REAL
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	7899	*/
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	7900	case function_bool_to_real :
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	7901	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	7902	symbol_c *last_type_symbol = NULL;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	7903
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	7904	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	7905	identifier_c param_name("IN");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	7906	/* Get the value from a foo(<param_name> = <param_value>) style call */
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	7907	symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	7908
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	7909	/* Get the value from a foo(<param_value>) style call */
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	7910	if (IN_param_value == NULL)
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	7911	IN_param_value = function_call_param_iterator.next();
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	7912	symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	7913	last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	7914
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	7915	if (typeid(*last_type_symbol) == typeid(bool_type_name_c))
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	7916	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	7917
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	7918	symbol_c * return_type_symbol = &search_constant_type_c::real_type_name;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	7919	s4o.print("(");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	7920	return_type_symbol->accept(*this);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	7921	s4o.print(")");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	7922	IN_param_value->accept(*this);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	7923	return NULL;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	7924
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	7925	}
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	7926
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	7927	ERROR;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	7928	}
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	7929
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	7930	}/function_bool_to_real/
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	7931	break;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	7932
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	7933	/****
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	7934	*BOOL_TO_LREAL
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	7935	*/
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	7936	case function_bool_to_lreal :
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	7937	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	7938	symbol_c *last_type_symbol = NULL;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	7939
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	7940	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	7941	identifier_c param_name("IN");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	7942	/* Get the value from a foo(<param_name> = <param_value>) style call */
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	7943	symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	7944
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	7945	/* Get the value from a foo(<param_value>) style call */
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	7946	if (IN_param_value == NULL)
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	7947	IN_param_value = function_call_param_iterator.next();
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	7948	symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	7949	last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	7950
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	7951	if (typeid(*last_type_symbol) == typeid(bool_type_name_c))
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	7952	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	7953
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	7954	symbol_c * return_type_symbol = &search_constant_type_c::lreal_type_name;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	7955	s4o.print("(");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	7956	return_type_symbol->accept(*this);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	7957	s4o.print(")");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	7958	IN_param_value->accept(*this);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	7959	return NULL;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	7960
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	7961	}
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	7962
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	7963	ERROR;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	7964	}
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	7965
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	7966	}/function_bool_to_lreal/
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	7967	break;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	7968
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	7969	/****
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	7970	*BOOL_TO_SINT
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	7971	*/
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	7972	case function_bool_to_sint :
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	7973	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	7974	symbol_c *last_type_symbol = NULL;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	7975
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	7976	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	7977	identifier_c param_name("IN");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	7978	/* Get the value from a foo(<param_name> = <param_value>) style call */
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	7979	symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	7980
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	7981	/* Get the value from a foo(<param_value>) style call */
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	7982	if (IN_param_value == NULL)
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	7983	IN_param_value = function_call_param_iterator.next();
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	7984	symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	7985	last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	7986
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	7987	if (typeid(*last_type_symbol) == typeid(bool_type_name_c))
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	7988	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	7989
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	7990	symbol_c * return_type_symbol = &search_constant_type_c::sint_type_name;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	7991	s4o.print("(");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	7992	return_type_symbol->accept(*this);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	7993	s4o.print(")");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	7994	IN_param_value->accept(*this);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	7995	return NULL;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	7996
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	7997	}
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	7998
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	7999	ERROR;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	8000	}
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	8001
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	8002	}/function_bool_to_sint/
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	8003	break;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	8004
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	8005	/****
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	8006	*BOOL_TO_INT
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	8007	*/
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	8008	case function_bool_to_int :
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	8009	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	8010	symbol_c *last_type_symbol = NULL;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	8011
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	8012	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	8013	identifier_c param_name("IN");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	8014	/* Get the value from a foo(<param_name> = <param_value>) style call */
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	8015	symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	8016
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	8017	/* Get the value from a foo(<param_value>) style call */
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	8018	if (IN_param_value == NULL)
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	8019	IN_param_value = function_call_param_iterator.next();
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	8020	symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	8021	last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	8022
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	8023	if (typeid(*last_type_symbol) == typeid(bool_type_name_c))
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	8024	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	8025
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	8026	symbol_c * return_type_symbol = &search_constant_type_c::int_type_name;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	8027	s4o.print("(");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	8028	return_type_symbol->accept(*this);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	8029	s4o.print(")");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	8030	IN_param_value->accept(*this);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	8031	return NULL;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	8032
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	8033	}
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	8034
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	8035	ERROR;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	8036	}
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	8037
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	8038	}/function_bool_to_int/
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	8039	break;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	8040
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	8041	/****
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	8042	*BOOL_TO_DINT
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	8043	*/
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	8044	case function_bool_to_dint :
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	8045	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	8046	symbol_c *last_type_symbol = NULL;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	8047
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	8048	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	8049	identifier_c param_name("IN");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	8050	/* Get the value from a foo(<param_name> = <param_value>) style call */
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	8051	symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	8052
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	8053	/* Get the value from a foo(<param_value>) style call */
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	8054	if (IN_param_value == NULL)
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	8055	IN_param_value = function_call_param_iterator.next();
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	8056	symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	8057	last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	8058
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	8059	if (typeid(*last_type_symbol) == typeid(bool_type_name_c))
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	8060	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	8061
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	8062	symbol_c * return_type_symbol = &search_constant_type_c::dint_type_name;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	8063	s4o.print("(");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	8064	return_type_symbol->accept(*this);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	8065	s4o.print(")");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	8066	IN_param_value->accept(*this);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	8067	return NULL;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	8068
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	8069	}
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	8070
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	8071	ERROR;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	8072	}
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	8073
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	8074	}/function_bool_to_dint/
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	8075	break;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	8076
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	8077	/****
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	8078	*BOOL_TO_LINT
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	8079	*/
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	8080	case function_bool_to_lint :
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	8081	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	8082	symbol_c *last_type_symbol = NULL;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	8083
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	8084	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	8085	identifier_c param_name("IN");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	8086	/* Get the value from a foo(<param_name> = <param_value>) style call */
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	8087	symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	8088
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	8089	/* Get the value from a foo(<param_value>) style call */
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	8090	if (IN_param_value == NULL)
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	8091	IN_param_value = function_call_param_iterator.next();
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	8092	symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	8093	last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	8094
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	8095	if (typeid(*last_type_symbol) == typeid(bool_type_name_c))
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	8096	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	8097
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	8098	symbol_c * return_type_symbol = &search_constant_type_c::lint_type_name;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	8099	s4o.print("(");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	8100	return_type_symbol->accept(*this);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	8101	s4o.print(")");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	8102	IN_param_value->accept(*this);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	8103	return NULL;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	8104
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	8105	}
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	8106
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	8107	ERROR;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	8108	}
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	8109
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	8110	}/function_bool_to_lint/
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	8111	break;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	8112
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	8113	/****
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	8114	*BOOL_TO_USINT
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	8115	*/
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	8116	case function_bool_to_usint :
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	8117	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	8118	symbol_c *last_type_symbol = NULL;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	8119
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	8120	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	8121	identifier_c param_name("IN");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	8122	/* Get the value from a foo(<param_name> = <param_value>) style call */
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	8123	symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	8124
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	8125	/* Get the value from a foo(<param_value>) style call */
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	8126	if (IN_param_value == NULL)
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	8127	IN_param_value = function_call_param_iterator.next();
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	8128	symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	8129	last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	8130
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	8131	if (typeid(*last_type_symbol) == typeid(bool_type_name_c))
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	8132	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	8133
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	8134	symbol_c * return_type_symbol = &search_constant_type_c::usint_type_name;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	8135	s4o.print("(");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	8136	return_type_symbol->accept(*this);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	8137	s4o.print(")");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	8138	IN_param_value->accept(*this);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	8139	return NULL;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	8140
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	8141	}
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	8142
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	8143	ERROR;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	8144	}
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	8145
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	8146	}/function_bool_to_usint/
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	8147	break;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	8148
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	8149	/****
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	8150	*BOOL_TO_UINT
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	8151	*/
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	8152	case function_bool_to_uint :
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	8153	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	8154	symbol_c *last_type_symbol = NULL;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	8155
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	8156	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	8157	identifier_c param_name("IN");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	8158	/* Get the value from a foo(<param_name> = <param_value>) style call */
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	8159	symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	8160
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	8161	/* Get the value from a foo(<param_value>) style call */
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	8162	if (IN_param_value == NULL)
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	8163	IN_param_value = function_call_param_iterator.next();
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	8164	symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	8165	last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	8166
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	8167	if (typeid(*last_type_symbol) == typeid(bool_type_name_c))
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	8168	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	8169
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	8170	symbol_c * return_type_symbol = &search_constant_type_c::uint_type_name;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	8171	s4o.print("(");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	8172	return_type_symbol->accept(*this);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	8173	s4o.print(")");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	8174	IN_param_value->accept(*this);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	8175	return NULL;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	8176
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	8177	}
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	8178
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	8179	ERROR;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	8180	}
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	8181
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	8182	}/function_bool_to_uint/
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	8183	break;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	8184
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	8185	/****
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	8186	*BOOL_TO_UDINT
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	8187	*/
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	8188	case function_bool_to_udint :
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	8189	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	8190	symbol_c *last_type_symbol = NULL;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	8191
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	8192	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	8193	identifier_c param_name("IN");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	8194	/* Get the value from a foo(<param_name> = <param_value>) style call */
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	8195	symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	8196
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	8197	/* Get the value from a foo(<param_value>) style call */
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	8198	if (IN_param_value == NULL)
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	8199	IN_param_value = function_call_param_iterator.next();
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	8200	symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	8201	last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	8202
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	8203	if (typeid(*last_type_symbol) == typeid(bool_type_name_c))
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	8204	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	8205
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	8206	symbol_c * return_type_symbol = &search_constant_type_c::udint_type_name;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	8207	s4o.print("(");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	8208	return_type_symbol->accept(*this);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	8209	s4o.print(")");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	8210	IN_param_value->accept(*this);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	8211	return NULL;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	8212
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	8213	}
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	8214
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	8215	ERROR;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	8216	}
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	8217
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	8218	}/function_bool_to_udint/
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	8219	break;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	8220
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	8221	/****
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	8222	*BOOL_TO_ULINT
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	8223	*/
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	8224	case function_bool_to_ulint :
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	8225	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	8226	symbol_c *last_type_symbol = NULL;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	8227
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	8228	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	8229	identifier_c param_name("IN");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	8230	/* Get the value from a foo(<param_name> = <param_value>) style call */
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	8231	symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	8232
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	8233	/* Get the value from a foo(<param_value>) style call */
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	8234	if (IN_param_value == NULL)
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	8235	IN_param_value = function_call_param_iterator.next();
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	8236	symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	8237	last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	8238
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	8239	if (typeid(*last_type_symbol) == typeid(bool_type_name_c))
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	8240	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	8241
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	8242	symbol_c * return_type_symbol = &search_constant_type_c::ulint_type_name;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	8243	s4o.print("(");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	8244	return_type_symbol->accept(*this);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	8245	s4o.print(")");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	8246	IN_param_value->accept(*this);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	8247	return NULL;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	8248
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	8249	}
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	8250
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	8251	ERROR;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	8252	}
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	8253
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	8254	}/function_bool_to_ulint/
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	8255	break;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	8256
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	8257	/****
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	8258	*BOOL_TO_TIME
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	8259	*/
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	8260	case function_bool_to_time :
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	8261	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	8262	symbol_c *last_type_symbol = NULL;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	8263
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	8264	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	8265	identifier_c param_name("IN");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	8266	/* Get the value from a foo(<param_name> = <param_value>) style call */
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	8267	symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	8268
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	8269	/* Get the value from a foo(<param_value>) style call */
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	8270	if (IN_param_value == NULL)
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	8271	IN_param_value = function_call_param_iterator.next();
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	8272	symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	8273	last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	8274
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	8275	if (typeid(*last_type_symbol) == typeid(bool_type_name_c))
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	8276	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	8277
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	8278	symbol_c * return_type_symbol = &search_constant_type_c::time_type_name;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	8279	s4o.print("(");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	8280	return_type_symbol->accept(*this);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	8281	s4o.print(")real_to_time(");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	8282	IN_param_value->accept(*this);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	8283	s4o.print(")");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	8284	return NULL;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	8285
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	8286	}
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	8287
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	8288	ERROR;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	8289	}
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	8290
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	8291	}/function_bool_to_time/
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	8292	break;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	8293
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	8294	/****
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	8295	*BOOL_TO_BYTE
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	8296	*/
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	8297	case function_bool_to_byte :
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	8298	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	8299	symbol_c *last_type_symbol = NULL;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	8300
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	8301	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	8302	identifier_c param_name("IN");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	8303	/* Get the value from a foo(<param_name> = <param_value>) style call */
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	8304	symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	8305
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	8306	/* Get the value from a foo(<param_value>) style call */
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	8307	if (IN_param_value == NULL)
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	8308	IN_param_value = function_call_param_iterator.next();
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	8309	symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	8310	last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	8311
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	8312	if (typeid(*last_type_symbol) == typeid(bool_type_name_c))
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	8313	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	8314
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	8315	symbol_c * return_type_symbol = &search_constant_type_c::byte_type_name;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	8316	s4o.print("(");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	8317	return_type_symbol->accept(*this);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	8318	s4o.print(")");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	8319	IN_param_value->accept(*this);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	8320	return NULL;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	8321
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	8322	}
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	8323
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	8324	ERROR;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	8325	}
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	8326
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	8327	}/function_bool_to_byte/
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	8328	break;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	8329
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	8330	/****
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	8331	*BOOL_TO_WORD
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	8332	*/
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	8333	case function_bool_to_word :
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	8334	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	8335	symbol_c *last_type_symbol = NULL;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	8336
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	8337	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	8338	identifier_c param_name("IN");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	8339	/* Get the value from a foo(<param_name> = <param_value>) style call */
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	8340	symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	8341
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	8342	/* Get the value from a foo(<param_value>) style call */
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	8343	if (IN_param_value == NULL)
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	8344	IN_param_value = function_call_param_iterator.next();
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	8345	symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	8346	last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	8347
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	8348	if (typeid(*last_type_symbol) == typeid(bool_type_name_c))
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	8349	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	8350
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	8351	symbol_c * return_type_symbol = &search_constant_type_c::word_type_name;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	8352	s4o.print("(");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	8353	return_type_symbol->accept(*this);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	8354	s4o.print(")");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	8355	IN_param_value->accept(*this);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	8356	return NULL;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	8357
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	8358	}
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	8359
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	8360	ERROR;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	8361	}
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	8362
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	8363	}/function_bool_to_word/
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	8364	break;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	8365
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	8366	/****
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	8367	*BOOL_TO_DWORD
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	8368	*/
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	8369	case function_bool_to_dword :
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	8370	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	8371	symbol_c *last_type_symbol = NULL;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	8372
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	8373	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	8374	identifier_c param_name("IN");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	8375	/* Get the value from a foo(<param_name> = <param_value>) style call */
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	8376	symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	8377
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	8378	/* Get the value from a foo(<param_value>) style call */
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	8379	if (IN_param_value == NULL)
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	8380	IN_param_value = function_call_param_iterator.next();
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	8381	symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	8382	last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	8383
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	8384	if (typeid(*last_type_symbol) == typeid(bool_type_name_c))
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	8385	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	8386
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	8387	symbol_c * return_type_symbol = &search_constant_type_c::dword_type_name;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	8388	s4o.print("(");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	8389	return_type_symbol->accept(*this);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	8390	s4o.print(")");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	8391	IN_param_value->accept(*this);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	8392	return NULL;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	8393
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	8394	}
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	8395
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	8396	ERROR;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	8397	}
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	8398
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	8399	}/function_bool_to_dword/
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	8400	break;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	8401
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	8402	/****
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	8403	*BOOL_TO_LWORD
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	8404	*/
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	8405	case function_bool_to_lword :
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	8406	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	8407	symbol_c *last_type_symbol = NULL;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	8408
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	8409	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	8410	identifier_c param_name("IN");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	8411	/* Get the value from a foo(<param_name> = <param_value>) style call */
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	8412	symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	8413
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	8414	/* Get the value from a foo(<param_value>) style call */
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	8415	if (IN_param_value == NULL)
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	8416	IN_param_value = function_call_param_iterator.next();
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	8417	symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	8418	last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	8419
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	8420	if (typeid(*last_type_symbol) == typeid(bool_type_name_c))
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	8421	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	8422
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	8423	symbol_c * return_type_symbol = &search_constant_type_c::lword_type_name;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	8424	s4o.print("(");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	8425	return_type_symbol->accept(*this);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	8426	s4o.print(")");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	8427	IN_param_value->accept(*this);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	8428	return NULL;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	8429
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	8430	}
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	8431
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	8432	ERROR;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	8433	}
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	8434
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	8435	}/function_bool_to_lword/
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	8436	break;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	8437
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	8438	/****
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	8439	*BOOL_TO_STRING
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	8440	*/
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	8441	case function_bool_to_string :
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	8442	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	8443	symbol_c *last_type_symbol = NULL;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	8444
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	8445	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	8446	identifier_c param_name("IN");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	8447	/* Get the value from a foo(<param_name> = <param_value>) style call */
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	8448	symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	8449
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	8450	/* Get the value from a foo(<param_value>) style call */
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	8451	if (IN_param_value == NULL)
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	8452	IN_param_value = function_call_param_iterator.next();
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	8453	symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	8454	last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	8455
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	8456	if (typeid(*last_type_symbol) == typeid(bool_type_name_c))
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	8457	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	8458
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	8459	symbol_c * return_type_symbol = &search_constant_type_c::string_type_name;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	8460	s4o.print("(");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	8461	return_type_symbol->accept(*this);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	8462	s4o.print(")int_to_string(");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	8463	IN_param_value->accept(*this);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	8464	s4o.print(", 16)");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	8465	return NULL;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	8466
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	8467	}
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	8468
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	8469	ERROR;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	8470	}
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	8471
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	8472	}/function_bool_to_string/
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	8473	break;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	8474
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	8475	/****
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	8476	*BOOL_TO_WSTRING
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	8477	*/
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	8478	case function_bool_to_wstring :
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	8479	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	8480	symbol_c *last_type_symbol = NULL;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	8481
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	8482	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	8483	identifier_c param_name("IN");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	8484	/* Get the value from a foo(<param_name> = <param_value>) style call */
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	8485	symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	8486
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	8487	/* Get the value from a foo(<param_value>) style call */
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	8488	if (IN_param_value == NULL)
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	8489	IN_param_value = function_call_param_iterator.next();
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	8490	symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	8491	last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	8492
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	8493	if (typeid(*last_type_symbol) == typeid(bool_type_name_c))
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	8494	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	8495
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	8496	symbol_c * return_type_symbol = &search_constant_type_c::wstring_type_name;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	8497	s4o.print("(");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	8498	return_type_symbol->accept(*this);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	8499	s4o.print(")int_to_string(");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	8500	IN_param_value->accept(*this);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	8501	s4o.print(", 16)");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	8502	return NULL;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	8503
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	8504	}
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	8505
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	8506	ERROR;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	8507	}
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	8508
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	8509	}/function_bool_to_wstring/
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	8510	break;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	8511
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	8512	/****
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	8513	*BOOL_TO_DATE
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	8514	*/
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	8515	case function_bool_to_date :
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	8516	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	8517	symbol_c *last_type_symbol = NULL;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	8518
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	8519	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	8520	identifier_c param_name("IN");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	8521	/* Get the value from a foo(<param_name> = <param_value>) style call */
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	8522	symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	8523
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	8524	/* Get the value from a foo(<param_value>) style call */
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	8525	if (IN_param_value == NULL)
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	8526	IN_param_value = function_call_param_iterator.next();
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	8527	symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	8528	last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	8529
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	8530	if (typeid(*last_type_symbol) == typeid(bool_type_name_c))
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	8531	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	8532
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	8533	symbol_c * return_type_symbol = &search_constant_type_c::date_type_name;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	8534	s4o.print("(");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	8535	return_type_symbol->accept(*this);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	8536	s4o.print(")real_to_time(");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	8537	IN_param_value->accept(*this);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	8538	s4o.print(")");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	8539	return NULL;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	8540
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	8541	}
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	8542
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	8543	ERROR;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	8544	}
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	8545
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	8546	}/function_bool_to_date/
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	8547	break;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	8548
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	8549	/****
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	8550	*BOOL_TO_TOD
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	8551	*/
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	8552	case function_bool_to_tod :
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	8553	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	8554	symbol_c *last_type_symbol = NULL;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	8555
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	8556	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	8557	identifier_c param_name("IN");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	8558	/* Get the value from a foo(<param_name> = <param_value>) style call */
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	8559	symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	8560
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	8561	/* Get the value from a foo(<param_value>) style call */
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	8562	if (IN_param_value == NULL)
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	8563	IN_param_value = function_call_param_iterator.next();
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	8564	symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	8565	last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	8566
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	8567	if (typeid(*last_type_symbol) == typeid(bool_type_name_c))
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	8568	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	8569
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	8570	symbol_c * return_type_symbol = &search_constant_type_c::tod_type_name;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	8571	s4o.print("(");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	8572	return_type_symbol->accept(*this);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	8573	s4o.print(")real_to_time(");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	8574	IN_param_value->accept(*this);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	8575	s4o.print(")");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	8576	return NULL;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	8577
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	8578	}
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	8579
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	8580	ERROR;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	8581	}
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	8582
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	8583	}/function_bool_to_tod/
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	8584	break;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	8585
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	8586	/****
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	8587	*BOOL_TO_DT
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	8588	*/
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	8589	case function_bool_to_dt :
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	8590	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	8591	symbol_c *last_type_symbol = NULL;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	8592
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	8593	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	8594	identifier_c param_name("IN");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	8595	/* Get the value from a foo(<param_name> = <param_value>) style call */
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	8596	symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	8597
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	8598	/* Get the value from a foo(<param_value>) style call */
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	8599	if (IN_param_value == NULL)
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	8600	IN_param_value = function_call_param_iterator.next();
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	8601	symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	8602	last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	8603
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	8604	if (typeid(*last_type_symbol) == typeid(bool_type_name_c))
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	8605	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	8606
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	8607	symbol_c * return_type_symbol = &search_constant_type_c::dt_type_name;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	8608	s4o.print("(");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	8609	return_type_symbol->accept(*this);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	8610	s4o.print(")real_to_time(");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	8611	IN_param_value->accept(*this);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	8612	s4o.print(")");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	8613	return NULL;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	8614
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	8615	}
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	8616
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	8617	ERROR;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	8618	}
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	8619
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	8620	}/function_bool_to_dt/
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	8621	break;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	8622
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	8623	/****
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	8624	*BYTE_TO_REAL
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	8625	*/
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	8626	case function_byte_to_real :
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	8627	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	8628	symbol_c *last_type_symbol = NULL;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	8629
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	8630	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	8631	identifier_c param_name("IN");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	8632	/* Get the value from a foo(<param_name> = <param_value>) style call */
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	8633	symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	8634
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	8635	/* Get the value from a foo(<param_value>) style call */
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	8636	if (IN_param_value == NULL)
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	8637	IN_param_value = function_call_param_iterator.next();
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	8638	symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	8639	last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	8640
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	8641	if (typeid(*last_type_symbol) == typeid(byte_type_name_c))
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	8642	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	8643
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	8644	symbol_c * return_type_symbol = &search_constant_type_c::real_type_name;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	8645	s4o.print("(");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	8646	return_type_symbol->accept(*this);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	8647	s4o.print(")");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	8648	IN_param_value->accept(*this);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	8649	return NULL;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	8650
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	8651	}
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	8652
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	8653	ERROR;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	8654	}
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	8655
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	8656	}/function_byte_to_real/
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	8657	break;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	8658
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	8659	/****
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	8660	*BYTE_TO_LREAL
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	8661	*/
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	8662	case function_byte_to_lreal :
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	8663	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	8664	symbol_c *last_type_symbol = NULL;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	8665
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	8666	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	8667	identifier_c param_name("IN");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	8668	/* Get the value from a foo(<param_name> = <param_value>) style call */
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	8669	symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	8670
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	8671	/* Get the value from a foo(<param_value>) style call */
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	8672	if (IN_param_value == NULL)
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	8673	IN_param_value = function_call_param_iterator.next();
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	8674	symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	8675	last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	8676
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	8677	if (typeid(*last_type_symbol) == typeid(byte_type_name_c))
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	8678	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	8679
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	8680	symbol_c * return_type_symbol = &search_constant_type_c::lreal_type_name;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	8681	s4o.print("(");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	8682	return_type_symbol->accept(*this);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	8683	s4o.print(")");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	8684	IN_param_value->accept(*this);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	8685	return NULL;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	8686
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	8687	}
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	8688
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	8689	ERROR;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	8690	}
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	8691
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	8692	}/function_byte_to_lreal/
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	8693	break;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	8694
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	8695	/****
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	8696	*BYTE_TO_SINT
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	8697	*/
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	8698	case function_byte_to_sint :
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	8699	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	8700	symbol_c *last_type_symbol = NULL;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	8701
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	8702	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	8703	identifier_c param_name("IN");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	8704	/* Get the value from a foo(<param_name> = <param_value>) style call */
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	8705	symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	8706
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	8707	/* Get the value from a foo(<param_value>) style call */
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	8708	if (IN_param_value == NULL)
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	8709	IN_param_value = function_call_param_iterator.next();
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	8710	symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	8711	last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	8712
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	8713	if (typeid(*last_type_symbol) == typeid(byte_type_name_c))
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	8714	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	8715
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	8716	symbol_c * return_type_symbol = &search_constant_type_c::sint_type_name;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	8717	s4o.print("(");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	8718	return_type_symbol->accept(*this);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	8719	s4o.print(")");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	8720	IN_param_value->accept(*this);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	8721	return NULL;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	8722
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	8723	}
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	8724
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	8725	ERROR;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	8726	}
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	8727
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	8728	}/function_byte_to_sint/
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	8729	break;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	8730
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	8731	/****
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	8732	*BYTE_TO_INT
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	8733	*/
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	8734	case function_byte_to_int :
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	8735	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	8736	symbol_c *last_type_symbol = NULL;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	8737
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	8738	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	8739	identifier_c param_name("IN");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	8740	/* Get the value from a foo(<param_name> = <param_value>) style call */
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	8741	symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	8742
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	8743	/* Get the value from a foo(<param_value>) style call */
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	8744	if (IN_param_value == NULL)
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	8745	IN_param_value = function_call_param_iterator.next();
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	8746	symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	8747	last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	8748
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	8749	if (typeid(*last_type_symbol) == typeid(byte_type_name_c))
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	8750	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	8751
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	8752	symbol_c * return_type_symbol = &search_constant_type_c::int_type_name;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	8753	s4o.print("(");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	8754	return_type_symbol->accept(*this);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	8755	s4o.print(")");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	8756	IN_param_value->accept(*this);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	8757	return NULL;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	8758
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	8759	}
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	8760
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	8761	ERROR;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	8762	}
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	8763
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	8764	}/function_byte_to_int/
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	8765	break;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	8766
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	8767	/****
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	8768	*BYTE_TO_DINT
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	8769	*/
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	8770	case function_byte_to_dint :
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	8771	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	8772	symbol_c *last_type_symbol = NULL;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	8773
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	8774	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	8775	identifier_c param_name("IN");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	8776	/* Get the value from a foo(<param_name> = <param_value>) style call */
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	8777	symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	8778
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	8779	/* Get the value from a foo(<param_value>) style call */
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	8780	if (IN_param_value == NULL)
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	8781	IN_param_value = function_call_param_iterator.next();
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	8782	symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	8783	last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	8784
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	8785	if (typeid(*last_type_symbol) == typeid(byte_type_name_c))
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	8786	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	8787
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	8788	symbol_c * return_type_symbol = &search_constant_type_c::dint_type_name;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	8789	s4o.print("(");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	8790	return_type_symbol->accept(*this);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	8791	s4o.print(")");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	8792	IN_param_value->accept(*this);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	8793	return NULL;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	8794
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	8795	}
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	8796
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	8797	ERROR;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	8798	}
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	8799
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	8800	}/function_byte_to_dint/
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	8801	break;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	8802
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	8803	/****
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	8804	*BYTE_TO_LINT
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	8805	*/
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	8806	case function_byte_to_lint :
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	8807	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	8808	symbol_c *last_type_symbol = NULL;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	8809
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	8810	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	8811	identifier_c param_name("IN");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	8812	/* Get the value from a foo(<param_name> = <param_value>) style call */
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	8813	symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	8814
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	8815	/* Get the value from a foo(<param_value>) style call */
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	8816	if (IN_param_value == NULL)
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	8817	IN_param_value = function_call_param_iterator.next();
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	8818	symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	8819	last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	8820
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	8821	if (typeid(*last_type_symbol) == typeid(byte_type_name_c))
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	8822	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	8823
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	8824	symbol_c * return_type_symbol = &search_constant_type_c::lint_type_name;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	8825	s4o.print("(");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	8826	return_type_symbol->accept(*this);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	8827	s4o.print(")");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	8828	IN_param_value->accept(*this);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	8829	return NULL;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	8830
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	8831	}
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	8832
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	8833	ERROR;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	8834	}
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	8835
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	8836	}/function_byte_to_lint/
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	8837	break;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	8838
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	8839	/****
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	8840	*BYTE_TO_USINT
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	8841	*/
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	8842	case function_byte_to_usint :
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	8843	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	8844	symbol_c *last_type_symbol = NULL;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	8845
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	8846	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	8847	identifier_c param_name("IN");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	8848	/* Get the value from a foo(<param_name> = <param_value>) style call */
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	8849	symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	8850
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	8851	/* Get the value from a foo(<param_value>) style call */
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	8852	if (IN_param_value == NULL)
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	8853	IN_param_value = function_call_param_iterator.next();
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	8854	symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	8855	last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	8856
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	8857	if (typeid(*last_type_symbol) == typeid(byte_type_name_c))
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	8858	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	8859
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	8860	symbol_c * return_type_symbol = &search_constant_type_c::usint_type_name;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	8861	s4o.print("(");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	8862	return_type_symbol->accept(*this);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	8863	s4o.print(")");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	8864	IN_param_value->accept(*this);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	8865	return NULL;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	8866
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	8867	}
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	8868
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	8869	ERROR;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	8870	}
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	8871
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	8872	}/function_byte_to_usint/
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	8873	break;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	8874
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	8875	/****
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	8876	*BYTE_TO_UINT
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	8877	*/
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	8878	case function_byte_to_uint :
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	8879	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	8880	symbol_c *last_type_symbol = NULL;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	8881
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	8882	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	8883	identifier_c param_name("IN");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	8884	/* Get the value from a foo(<param_name> = <param_value>) style call */
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	8885	symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	8886
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	8887	/* Get the value from a foo(<param_value>) style call */
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	8888	if (IN_param_value == NULL)
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	8889	IN_param_value = function_call_param_iterator.next();
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	8890	symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	8891	last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	8892
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	8893	if (typeid(*last_type_symbol) == typeid(byte_type_name_c))
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	8894	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	8895
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	8896	symbol_c * return_type_symbol = &search_constant_type_c::uint_type_name;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	8897	s4o.print("(");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	8898	return_type_symbol->accept(*this);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	8899	s4o.print(")");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	8900	IN_param_value->accept(*this);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	8901	return NULL;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	8902
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	8903	}
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	8904
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	8905	ERROR;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	8906	}
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	8907
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	8908	}/function_byte_to_uint/
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	8909	break;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	8910
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	8911	/****
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	8912	*BYTE_TO_UDINT
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	8913	*/
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	8914	case function_byte_to_udint :
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	8915	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	8916	symbol_c *last_type_symbol = NULL;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	8917
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	8918	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	8919	identifier_c param_name("IN");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	8920	/* Get the value from a foo(<param_name> = <param_value>) style call */
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	8921	symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	8922
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	8923	/* Get the value from a foo(<param_value>) style call */
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	8924	if (IN_param_value == NULL)
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	8925	IN_param_value = function_call_param_iterator.next();
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	8926	symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	8927	last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	8928
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	8929	if (typeid(*last_type_symbol) == typeid(byte_type_name_c))
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	8930	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	8931
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	8932	symbol_c * return_type_symbol = &search_constant_type_c::udint_type_name;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	8933	s4o.print("(");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	8934	return_type_symbol->accept(*this);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	8935	s4o.print(")");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	8936	IN_param_value->accept(*this);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	8937	return NULL;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	8938
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	8939	}
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	8940
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	8941	ERROR;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	8942	}
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	8943
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	8944	}/function_byte_to_udint/
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	8945	break;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	8946
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	8947	/****
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	8948	*BYTE_TO_ULINT
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	8949	*/
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	8950	case function_byte_to_ulint :
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	8951	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	8952	symbol_c *last_type_symbol = NULL;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	8953
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	8954	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	8955	identifier_c param_name("IN");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	8956	/* Get the value from a foo(<param_name> = <param_value>) style call */
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	8957	symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	8958
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	8959	/* Get the value from a foo(<param_value>) style call */
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	8960	if (IN_param_value == NULL)
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	8961	IN_param_value = function_call_param_iterator.next();
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	8962	symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	8963	last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	8964
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	8965	if (typeid(*last_type_symbol) == typeid(byte_type_name_c))
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	8966	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	8967
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	8968	symbol_c * return_type_symbol = &search_constant_type_c::ulint_type_name;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	8969	s4o.print("(");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	8970	return_type_symbol->accept(*this);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	8971	s4o.print(")");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	8972	IN_param_value->accept(*this);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	8973	return NULL;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	8974
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	8975	}
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	8976
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	8977	ERROR;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	8978	}
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	8979
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	8980	}/function_byte_to_ulint/
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	8981	break;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	8982
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	8983	/****
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	8984	*BYTE_TO_TIME
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	8985	*/
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	8986	case function_byte_to_time :
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	8987	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	8988	symbol_c *last_type_symbol = NULL;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	8989
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	8990	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	8991	identifier_c param_name("IN");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	8992	/* Get the value from a foo(<param_name> = <param_value>) style call */
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	8993	symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	8994
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	8995	/* Get the value from a foo(<param_value>) style call */
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	8996	if (IN_param_value == NULL)
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	8997	IN_param_value = function_call_param_iterator.next();
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	8998	symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	8999	last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	9000
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	9001	if (typeid(*last_type_symbol) == typeid(byte_type_name_c))
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	9002	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	9003
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	9004	symbol_c * return_type_symbol = &search_constant_type_c::time_type_name;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	9005	s4o.print("(");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	9006	return_type_symbol->accept(*this);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	9007	s4o.print(")real_to_time(");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	9008	IN_param_value->accept(*this);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	9009	s4o.print(")");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	9010	return NULL;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	9011
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	9012	}
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	9013
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	9014	ERROR;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	9015	}
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	9016
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	9017	}/function_byte_to_time/
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	9018	break;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	9019
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	9020	/****
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	9021	*BYTE_TO_BOOL
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	9022	*/
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	9023	case function_byte_to_bool :
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	9024	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	9025	symbol_c *last_type_symbol = NULL;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	9026
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	9027	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	9028	identifier_c param_name("IN");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	9029	/* Get the value from a foo(<param_name> = <param_value>) style call */
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	9030	symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	9031
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	9032	/* Get the value from a foo(<param_value>) style call */
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	9033	if (IN_param_value == NULL)
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	9034	IN_param_value = function_call_param_iterator.next();
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	9035	symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	9036	last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	9037
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	9038	if (typeid(*last_type_symbol) == typeid(byte_type_name_c))
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	9039	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	9040
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	9041	symbol_c * return_type_symbol = &search_constant_type_c::bool_type_name;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	9042	s4o.print("(");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	9043	return_type_symbol->accept(*this);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	9044	s4o.print(")");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	9045	IN_param_value->accept(*this);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	9046	return NULL;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	9047
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	9048	}
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	9049
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	9050	ERROR;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	9051	}
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	9052
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	9053	}/function_byte_to_bool/
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	9054	break;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	9055
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	9056	/****
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	9057	*BYTE_TO_WORD
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	9058	*/
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	9059	case function_byte_to_word :
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	9060	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	9061	symbol_c *last_type_symbol = NULL;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	9062
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	9063	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	9064	identifier_c param_name("IN");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	9065	/* Get the value from a foo(<param_name> = <param_value>) style call */
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	9066	symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	9067
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	9068	/* Get the value from a foo(<param_value>) style call */
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	9069	if (IN_param_value == NULL)
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	9070	IN_param_value = function_call_param_iterator.next();
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	9071	symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	9072	last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	9073
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	9074	if (typeid(*last_type_symbol) == typeid(byte_type_name_c))
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	9075	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	9076
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	9077	symbol_c * return_type_symbol = &search_constant_type_c::word_type_name;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	9078	s4o.print("(");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	9079	return_type_symbol->accept(*this);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	9080	s4o.print(")");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	9081	IN_param_value->accept(*this);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	9082	return NULL;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	9083
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	9084	}
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	9085
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	9086	ERROR;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	9087	}
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	9088
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	9089	}/function_byte_to_word/
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	9090	break;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	9091
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	9092	/****
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	9093	*BYTE_TO_DWORD
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	9094	*/
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	9095	case function_byte_to_dword :
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	9096	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	9097	symbol_c *last_type_symbol = NULL;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	9098
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	9099	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	9100	identifier_c param_name("IN");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	9101	/* Get the value from a foo(<param_name> = <param_value>) style call */
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	9102	symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	9103
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	9104	/* Get the value from a foo(<param_value>) style call */
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	9105	if (IN_param_value == NULL)
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	9106	IN_param_value = function_call_param_iterator.next();
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	9107	symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	9108	last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	9109
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	9110	if (typeid(*last_type_symbol) == typeid(byte_type_name_c))
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	9111	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	9112
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	9113	symbol_c * return_type_symbol = &search_constant_type_c::dword_type_name;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	9114	s4o.print("(");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	9115	return_type_symbol->accept(*this);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	9116	s4o.print(")");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	9117	IN_param_value->accept(*this);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	9118	return NULL;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	9119
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	9120	}
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	9121
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	9122	ERROR;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	9123	}
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	9124
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	9125	}/function_byte_to_dword/
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	9126	break;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	9127
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	9128	/****
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	9129	*BYTE_TO_LWORD
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	9130	*/
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	9131	case function_byte_to_lword :
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	9132	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	9133	symbol_c *last_type_symbol = NULL;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	9134
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	9135	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	9136	identifier_c param_name("IN");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	9137	/* Get the value from a foo(<param_name> = <param_value>) style call */
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	9138	symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	9139
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	9140	/* Get the value from a foo(<param_value>) style call */
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	9141	if (IN_param_value == NULL)
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	9142	IN_param_value = function_call_param_iterator.next();
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	9143	symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	9144	last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	9145
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	9146	if (typeid(*last_type_symbol) == typeid(byte_type_name_c))
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	9147	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	9148
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	9149	symbol_c * return_type_symbol = &search_constant_type_c::lword_type_name;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	9150	s4o.print("(");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	9151	return_type_symbol->accept(*this);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	9152	s4o.print(")");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	9153	IN_param_value->accept(*this);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	9154	return NULL;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	9155
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	9156	}
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	9157
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	9158	ERROR;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	9159	}
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	9160
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	9161	}/function_byte_to_lword/
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	9162	break;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	9163
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	9164	/****
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	9165	*BYTE_TO_STRING
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	9166	*/
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	9167	case function_byte_to_string :
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	9168	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	9169	symbol_c *last_type_symbol = NULL;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	9170
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	9171	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	9172	identifier_c param_name("IN");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	9173	/* Get the value from a foo(<param_name> = <param_value>) style call */
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	9174	symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	9175
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	9176	/* Get the value from a foo(<param_value>) style call */
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	9177	if (IN_param_value == NULL)
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	9178	IN_param_value = function_call_param_iterator.next();
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	9179	symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	9180	last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	9181
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	9182	if (typeid(*last_type_symbol) == typeid(byte_type_name_c))
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	9183	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	9184
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	9185	symbol_c * return_type_symbol = &search_constant_type_c::string_type_name;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	9186	s4o.print("(");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	9187	return_type_symbol->accept(*this);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	9188	s4o.print(")int_to_string(");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	9189	IN_param_value->accept(*this);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	9190	s4o.print(", 16)");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	9191	return NULL;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	9192
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	9193	}
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	9194
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	9195	ERROR;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	9196	}
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	9197
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	9198	}/function_byte_to_string/
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	9199	break;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	9200
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	9201	/****
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	9202	*BYTE_TO_WSTRING
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	9203	*/
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	9204	case function_byte_to_wstring :
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	9205	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	9206	symbol_c *last_type_symbol = NULL;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	9207
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	9208	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	9209	identifier_c param_name("IN");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	9210	/* Get the value from a foo(<param_name> = <param_value>) style call */
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	9211	symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	9212
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	9213	/* Get the value from a foo(<param_value>) style call */
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	9214	if (IN_param_value == NULL)
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	9215	IN_param_value = function_call_param_iterator.next();
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	9216	symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	9217	last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	9218
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	9219	if (typeid(*last_type_symbol) == typeid(byte_type_name_c))
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	9220	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	9221
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	9222	symbol_c * return_type_symbol = &search_constant_type_c::wstring_type_name;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	9223	s4o.print("(");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	9224	return_type_symbol->accept(*this);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	9225	s4o.print(")int_to_string(");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	9226	IN_param_value->accept(*this);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	9227	s4o.print(", 16)");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	9228	return NULL;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	9229
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	9230	}
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	9231
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	9232	ERROR;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	9233	}
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	9234
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	9235	}/function_byte_to_wstring/
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	9236	break;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	9237
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	9238	/****
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	9239	*BYTE_TO_DATE
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	9240	*/
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	9241	case function_byte_to_date :
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	9242	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	9243	symbol_c *last_type_symbol = NULL;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	9244
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	9245	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	9246	identifier_c param_name("IN");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	9247	/* Get the value from a foo(<param_name> = <param_value>) style call */
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	9248	symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	9249
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	9250	/* Get the value from a foo(<param_value>) style call */
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	9251	if (IN_param_value == NULL)
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	9252	IN_param_value = function_call_param_iterator.next();
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	9253	symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	9254	last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	9255
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	9256	if (typeid(*last_type_symbol) == typeid(byte_type_name_c))
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	9257	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	9258
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	9259	symbol_c * return_type_symbol = &search_constant_type_c::date_type_name;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	9260	s4o.print("(");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	9261	return_type_symbol->accept(*this);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	9262	s4o.print(")real_to_time(");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	9263	IN_param_value->accept(*this);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	9264	s4o.print(")");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	9265	return NULL;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	9266
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	9267	}
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	9268
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	9269	ERROR;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	9270	}
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	9271
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	9272	}/function_byte_to_date/
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	9273	break;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	9274
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	9275	/****
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	9276	*BYTE_TO_TOD
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	9277	*/
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	9278	case function_byte_to_tod :
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	9279	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	9280	symbol_c *last_type_symbol = NULL;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	9281
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	9282	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	9283	identifier_c param_name("IN");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	9284	/* Get the value from a foo(<param_name> = <param_value>) style call */
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	9285	symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	9286
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	9287	/* Get the value from a foo(<param_value>) style call */
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	9288	if (IN_param_value == NULL)
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	9289	IN_param_value = function_call_param_iterator.next();
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	9290	symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	9291	last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	9292
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	9293	if (typeid(*last_type_symbol) == typeid(byte_type_name_c))
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	9294	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	9295
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	9296	symbol_c * return_type_symbol = &search_constant_type_c::tod_type_name;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	9297	s4o.print("(");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	9298	return_type_symbol->accept(*this);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	9299	s4o.print(")real_to_time(");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	9300	IN_param_value->accept(*this);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	9301	s4o.print(")");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	9302	return NULL;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	9303
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	9304	}
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	9305
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	9306	ERROR;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	9307	}
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	9308
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	9309	}/function_byte_to_tod/
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	9310	break;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	9311
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	9312	/****
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	9313	*BYTE_TO_DT
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	9314	*/
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	9315	case function_byte_to_dt :
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	9316	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	9317	symbol_c *last_type_symbol = NULL;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	9318
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	9319	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	9320	identifier_c param_name("IN");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	9321	/* Get the value from a foo(<param_name> = <param_value>) style call */
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	9322	symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	9323
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	9324	/* Get the value from a foo(<param_value>) style call */
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	9325	if (IN_param_value == NULL)
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	9326	IN_param_value = function_call_param_iterator.next();
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	9327	symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	9328	last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	9329
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	9330	if (typeid(*last_type_symbol) == typeid(byte_type_name_c))
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	9331	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	9332
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	9333	symbol_c * return_type_symbol = &search_constant_type_c::dt_type_name;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	9334	s4o.print("(");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	9335	return_type_symbol->accept(*this);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	9336	s4o.print(")real_to_time(");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	9337	IN_param_value->accept(*this);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	9338	s4o.print(")");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	9339	return NULL;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	9340
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	9341	}
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	9342
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	9343	ERROR;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	9344	}
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	9345
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	9346	}/function_byte_to_dt/
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	9347	break;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	9348
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	9349	/****
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	9350	*WORD_TO_REAL
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	9351	*/
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	9352	case function_word_to_real :
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	9353	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	9354	symbol_c *last_type_symbol = NULL;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	9355
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	9356	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	9357	identifier_c param_name("IN");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	9358	/* Get the value from a foo(<param_name> = <param_value>) style call */
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	9359	symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	9360
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	9361	/* Get the value from a foo(<param_value>) style call */
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	9362	if (IN_param_value == NULL)
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	9363	IN_param_value = function_call_param_iterator.next();
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	9364	symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	9365	last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	9366
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	9367	if (typeid(*last_type_symbol) == typeid(word_type_name_c))
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	9368	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	9369
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	9370	symbol_c * return_type_symbol = &search_constant_type_c::real_type_name;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	9371	s4o.print("(");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	9372	return_type_symbol->accept(*this);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	9373	s4o.print(")");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	9374	IN_param_value->accept(*this);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	9375	return NULL;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	9376
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	9377	}
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	9378
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	9379	ERROR;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	9380	}
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	9381
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	9382	}/function_word_to_real/
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	9383	break;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	9384
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	9385	/****
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	9386	*WORD_TO_LREAL
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	9387	*/
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	9388	case function_word_to_lreal :
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	9389	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	9390	symbol_c *last_type_symbol = NULL;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	9391
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	9392	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	9393	identifier_c param_name("IN");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	9394	/* Get the value from a foo(<param_name> = <param_value>) style call */
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	9395	symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	9396
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	9397	/* Get the value from a foo(<param_value>) style call */
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	9398	if (IN_param_value == NULL)
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	9399	IN_param_value = function_call_param_iterator.next();
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	9400	symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	9401	last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	9402
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	9403	if (typeid(*last_type_symbol) == typeid(word_type_name_c))
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	9404	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	9405
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	9406	symbol_c * return_type_symbol = &search_constant_type_c::lreal_type_name;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	9407	s4o.print("(");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	9408	return_type_symbol->accept(*this);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	9409	s4o.print(")");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	9410	IN_param_value->accept(*this);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	9411	return NULL;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	9412
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	9413	}
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	9414
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	9415	ERROR;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	9416	}
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	9417
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	9418	}/function_word_to_lreal/
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	9419	break;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	9420
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	9421	/****
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	9422	*WORD_TO_SINT
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	9423	*/
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	9424	case function_word_to_sint :
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	9425	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	9426	symbol_c *last_type_symbol = NULL;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	9427
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	9428	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	9429	identifier_c param_name("IN");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	9430	/* Get the value from a foo(<param_name> = <param_value>) style call */
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	9431	symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	9432
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	9433	/* Get the value from a foo(<param_value>) style call */
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	9434	if (IN_param_value == NULL)
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	9435	IN_param_value = function_call_param_iterator.next();
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	9436	symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	9437	last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	9438
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	9439	if (typeid(*last_type_symbol) == typeid(word_type_name_c))
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	9440	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	9441
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	9442	symbol_c * return_type_symbol = &search_constant_type_c::sint_type_name;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	9443	s4o.print("(");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	9444	return_type_symbol->accept(*this);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	9445	s4o.print(")");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	9446	IN_param_value->accept(*this);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	9447	return NULL;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	9448
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	9449	}
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	9450
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	9451	ERROR;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	9452	}
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	9453
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	9454	}/function_word_to_sint/
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	9455	break;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	9456
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	9457	/****
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	9458	*WORD_TO_INT
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	9459	*/
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	9460	case function_word_to_int :
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	9461	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	9462	symbol_c *last_type_symbol = NULL;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	9463
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	9464	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	9465	identifier_c param_name("IN");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	9466	/* Get the value from a foo(<param_name> = <param_value>) style call */
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	9467	symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	9468
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	9469	/* Get the value from a foo(<param_value>) style call */
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	9470	if (IN_param_value == NULL)
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	9471	IN_param_value = function_call_param_iterator.next();
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	9472	symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	9473	last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	9474
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	9475	if (typeid(*last_type_symbol) == typeid(word_type_name_c))
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	9476	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	9477
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	9478	symbol_c * return_type_symbol = &search_constant_type_c::int_type_name;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	9479	s4o.print("(");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	9480	return_type_symbol->accept(*this);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	9481	s4o.print(")");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	9482	IN_param_value->accept(*this);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	9483	return NULL;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	9484
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	9485	}
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	9486
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	9487	ERROR;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	9488	}
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	9489
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	9490	}/function_word_to_int/
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	9491	break;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	9492
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	9493	/****
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	9494	*WORD_TO_DINT
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	9495	*/
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	9496	case function_word_to_dint :
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	9497	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	9498	symbol_c *last_type_symbol = NULL;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	9499
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	9500	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	9501	identifier_c param_name("IN");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	9502	/* Get the value from a foo(<param_name> = <param_value>) style call */
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	9503	symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	9504
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	9505	/* Get the value from a foo(<param_value>) style call */
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	9506	if (IN_param_value == NULL)
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	9507	IN_param_value = function_call_param_iterator.next();
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	9508	symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	9509	last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	9510
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	9511	if (typeid(*last_type_symbol) == typeid(word_type_name_c))
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	9512	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	9513
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	9514	symbol_c * return_type_symbol = &search_constant_type_c::dint_type_name;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	9515	s4o.print("(");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	9516	return_type_symbol->accept(*this);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	9517	s4o.print(")");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	9518	IN_param_value->accept(*this);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	9519	return NULL;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	9520
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	9521	}
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	9522
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	9523	ERROR;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	9524	}
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	9525
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	9526	}/function_word_to_dint/
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	9527	break;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	9528
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	9529	/****
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	9530	*WORD_TO_LINT
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	9531	*/
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	9532	case function_word_to_lint :
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	9533	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	9534	symbol_c *last_type_symbol = NULL;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	9535
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	9536	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	9537	identifier_c param_name("IN");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	9538	/* Get the value from a foo(<param_name> = <param_value>) style call */
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	9539	symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	9540
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	9541	/* Get the value from a foo(<param_value>) style call */
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	9542	if (IN_param_value == NULL)
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	9543	IN_param_value = function_call_param_iterator.next();
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	9544	symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	9545	last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	9546
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	9547	if (typeid(*last_type_symbol) == typeid(word_type_name_c))
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	9548	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	9549
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	9550	symbol_c * return_type_symbol = &search_constant_type_c::lint_type_name;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	9551	s4o.print("(");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	9552	return_type_symbol->accept(*this);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	9553	s4o.print(")");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	9554	IN_param_value->accept(*this);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	9555	return NULL;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	9556
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	9557	}
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	9558
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	9559	ERROR;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	9560	}
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	9561
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	9562	}/function_word_to_lint/
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	9563	break;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	9564
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	9565	/****
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	9566	*WORD_TO_USINT
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	9567	*/
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	9568	case function_word_to_usint :
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	9569	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	9570	symbol_c *last_type_symbol = NULL;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	9571
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	9572	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	9573	identifier_c param_name("IN");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	9574	/* Get the value from a foo(<param_name> = <param_value>) style call */
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	9575	symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	9576
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	9577	/* Get the value from a foo(<param_value>) style call */
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	9578	if (IN_param_value == NULL)
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	9579	IN_param_value = function_call_param_iterator.next();
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	9580	symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	9581	last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	9582
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	9583	if (typeid(*last_type_symbol) == typeid(word_type_name_c))
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	9584	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	9585
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	9586	symbol_c * return_type_symbol = &search_constant_type_c::usint_type_name;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	9587	s4o.print("(");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	9588	return_type_symbol->accept(*this);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	9589	s4o.print(")");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	9590	IN_param_value->accept(*this);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	9591	return NULL;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	9592
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	9593	}
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	9594
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	9595	ERROR;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	9596	}
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	9597
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	9598	}/function_word_to_usint/
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	9599	break;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	9600
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	9601	/****
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	9602	*WORD_TO_UINT
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	9603	*/
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	9604	case function_word_to_uint :
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	9605	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	9606	symbol_c *last_type_symbol = NULL;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	9607
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	9608	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	9609	identifier_c param_name("IN");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	9610	/* Get the value from a foo(<param_name> = <param_value>) style call */
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	9611	symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	9612
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	9613	/* Get the value from a foo(<param_value>) style call */
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	9614	if (IN_param_value == NULL)
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	9615	IN_param_value = function_call_param_iterator.next();
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	9616	symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	9617	last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	9618
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	9619	if (typeid(*last_type_symbol) == typeid(word_type_name_c))
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	9620	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	9621
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	9622	symbol_c * return_type_symbol = &search_constant_type_c::uint_type_name;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	9623	s4o.print("(");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	9624	return_type_symbol->accept(*this);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	9625	s4o.print(")");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	9626	IN_param_value->accept(*this);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	9627	return NULL;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	9628
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	9629	}
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	9630
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	9631	ERROR;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	9632	}
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	9633
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	9634	}/function_word_to_uint/
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	9635	break;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	9636
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	9637	/****
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	9638	*WORD_TO_UDINT
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	9639	*/
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	9640	case function_word_to_udint :
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	9641	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	9642	symbol_c *last_type_symbol = NULL;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	9643
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	9644	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	9645	identifier_c param_name("IN");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	9646	/* Get the value from a foo(<param_name> = <param_value>) style call */
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	9647	symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	9648
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	9649	/* Get the value from a foo(<param_value>) style call */
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	9650	if (IN_param_value == NULL)
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	9651	IN_param_value = function_call_param_iterator.next();
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	9652	symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	9653	last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	9654
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	9655	if (typeid(*last_type_symbol) == typeid(word_type_name_c))
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	9656	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	9657
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	9658	symbol_c * return_type_symbol = &search_constant_type_c::udint_type_name;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	9659	s4o.print("(");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	9660	return_type_symbol->accept(*this);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	9661	s4o.print(")");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	9662	IN_param_value->accept(*this);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	9663	return NULL;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	9664
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	9665	}
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	9666
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	9667	ERROR;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	9668	}
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	9669
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	9670	}/function_word_to_udint/
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	9671	break;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	9672
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	9673	/****
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	9674	*WORD_TO_ULINT
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	9675	*/
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	9676	case function_word_to_ulint :
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	9677	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	9678	symbol_c *last_type_symbol = NULL;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	9679
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	9680	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	9681	identifier_c param_name("IN");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	9682	/* Get the value from a foo(<param_name> = <param_value>) style call */
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	9683	symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	9684
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	9685	/* Get the value from a foo(<param_value>) style call */
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	9686	if (IN_param_value == NULL)
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	9687	IN_param_value = function_call_param_iterator.next();
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	9688	symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	9689	last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	9690
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	9691	if (typeid(*last_type_symbol) == typeid(word_type_name_c))
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	9692	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	9693
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	9694	symbol_c * return_type_symbol = &search_constant_type_c::ulint_type_name;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	9695	s4o.print("(");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	9696	return_type_symbol->accept(*this);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	9697	s4o.print(")");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	9698	IN_param_value->accept(*this);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	9699	return NULL;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	9700
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	9701	}
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	9702
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	9703	ERROR;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	9704	}
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	9705
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	9706	}/function_word_to_ulint/
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	9707	break;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	9708
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	9709	/****
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	9710	*WORD_TO_TIME
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	9711	*/
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	9712	case function_word_to_time :
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	9713	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	9714	symbol_c *last_type_symbol = NULL;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	9715
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	9716	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	9717	identifier_c param_name("IN");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	9718	/* Get the value from a foo(<param_name> = <param_value>) style call */
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	9719	symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	9720
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	9721	/* Get the value from a foo(<param_value>) style call */
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	9722	if (IN_param_value == NULL)
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	9723	IN_param_value = function_call_param_iterator.next();
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	9724	symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	9725	last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	9726
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	9727	if (typeid(*last_type_symbol) == typeid(word_type_name_c))
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	9728	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	9729
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	9730	symbol_c * return_type_symbol = &search_constant_type_c::time_type_name;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	9731	s4o.print("(");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	9732	return_type_symbol->accept(*this);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	9733	s4o.print(")real_to_time(");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	9734	IN_param_value->accept(*this);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	9735	s4o.print(")");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	9736	return NULL;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	9737
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	9738	}
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	9739
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	9740	ERROR;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	9741	}
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	9742
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	9743	}/function_word_to_time/
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	9744	break;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	9745
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	9746	/****
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	9747	*WORD_TO_BOOL
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	9748	*/
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	9749	case function_word_to_bool :
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	9750	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	9751	symbol_c *last_type_symbol = NULL;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	9752
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	9753	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	9754	identifier_c param_name("IN");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	9755	/* Get the value from a foo(<param_name> = <param_value>) style call */
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	9756	symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	9757
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	9758	/* Get the value from a foo(<param_value>) style call */
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	9759	if (IN_param_value == NULL)
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	9760	IN_param_value = function_call_param_iterator.next();
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	9761	symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	9762	last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	9763
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	9764	if (typeid(*last_type_symbol) == typeid(word_type_name_c))
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	9765	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	9766
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	9767	symbol_c * return_type_symbol = &search_constant_type_c::bool_type_name;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	9768	s4o.print("(");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	9769	return_type_symbol->accept(*this);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	9770	s4o.print(")");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	9771	IN_param_value->accept(*this);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	9772	return NULL;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	9773
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	9774	}
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	9775
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	9776	ERROR;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	9777	}
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	9778
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	9779	}/function_word_to_bool/
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	9780	break;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	9781
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	9782	/****
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	9783	*WORD_TO_BYTE
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	9784	*/
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	9785	case function_word_to_byte :
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	9786	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	9787	symbol_c *last_type_symbol = NULL;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	9788
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	9789	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	9790	identifier_c param_name("IN");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	9791	/* Get the value from a foo(<param_name> = <param_value>) style call */
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	9792	symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	9793
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	9794	/* Get the value from a foo(<param_value>) style call */
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	9795	if (IN_param_value == NULL)
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	9796	IN_param_value = function_call_param_iterator.next();
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	9797	symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	9798	last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	9799
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	9800	if (typeid(*last_type_symbol) == typeid(word_type_name_c))
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	9801	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	9802
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	9803	symbol_c * return_type_symbol = &search_constant_type_c::byte_type_name;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	9804	s4o.print("(");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	9805	return_type_symbol->accept(*this);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	9806	s4o.print(")");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	9807	IN_param_value->accept(*this);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	9808	return NULL;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	9809
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	9810	}
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	9811
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	9812	ERROR;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	9813	}
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	9814
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	9815	}/function_word_to_byte/
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	9816	break;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	9817
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	9818	/****
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	9819	*WORD_TO_DWORD
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	9820	*/
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	9821	case function_word_to_dword :
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	9822	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	9823	symbol_c *last_type_symbol = NULL;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	9824
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	9825	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	9826	identifier_c param_name("IN");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	9827	/* Get the value from a foo(<param_name> = <param_value>) style call */
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	9828	symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	9829
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	9830	/* Get the value from a foo(<param_value>) style call */
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	9831	if (IN_param_value == NULL)
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	9832	IN_param_value = function_call_param_iterator.next();
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	9833	symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	9834	last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	9835
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	9836	if (typeid(*last_type_symbol) == typeid(word_type_name_c))
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	9837	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	9838
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	9839	symbol_c * return_type_symbol = &search_constant_type_c::dword_type_name;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	9840	s4o.print("(");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	9841	return_type_symbol->accept(*this);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	9842	s4o.print(")");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	9843	IN_param_value->accept(*this);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	9844	return NULL;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	9845
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	9846	}
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	9847
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	9848	ERROR;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	9849	}
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	9850
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	9851	}/function_word_to_dword/
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	9852	break;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	9853
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	9854	/****
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	9855	*WORD_TO_LWORD
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	9856	*/
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	9857	case function_word_to_lword :
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	9858	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	9859	symbol_c *last_type_symbol = NULL;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	9860
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	9861	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	9862	identifier_c param_name("IN");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	9863	/* Get the value from a foo(<param_name> = <param_value>) style call */
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	9864	symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	9865
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	9866	/* Get the value from a foo(<param_value>) style call */
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	9867	if (IN_param_value == NULL)
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	9868	IN_param_value = function_call_param_iterator.next();
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	9869	symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	9870	last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	9871
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	9872	if (typeid(*last_type_symbol) == typeid(word_type_name_c))
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	9873	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	9874
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	9875	symbol_c * return_type_symbol = &search_constant_type_c::lword_type_name;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	9876	s4o.print("(");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	9877	return_type_symbol->accept(*this);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	9878	s4o.print(")");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	9879	IN_param_value->accept(*this);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	9880	return NULL;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	9881
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	9882	}
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	9883
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	9884	ERROR;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	9885	}
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	9886
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	9887	}/function_word_to_lword/
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	9888	break;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	9889
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	9890	/****
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	9891	*WORD_TO_STRING
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	9892	*/
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	9893	case function_word_to_string :
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	9894	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	9895	symbol_c *last_type_symbol = NULL;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	9896
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	9897	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	9898	identifier_c param_name("IN");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	9899	/* Get the value from a foo(<param_name> = <param_value>) style call */
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	9900	symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	9901
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	9902	/* Get the value from a foo(<param_value>) style call */
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	9903	if (IN_param_value == NULL)
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	9904	IN_param_value = function_call_param_iterator.next();
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	9905	symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	9906	last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	9907
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	9908	if (typeid(*last_type_symbol) == typeid(word_type_name_c))
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	9909	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	9910
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	9911	symbol_c * return_type_symbol = &search_constant_type_c::string_type_name;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	9912	s4o.print("(");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	9913	return_type_symbol->accept(*this);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	9914	s4o.print(")int_to_string(");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	9915	IN_param_value->accept(*this);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	9916	s4o.print(", 16)");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	9917	return NULL;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	9918
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	9919	}
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	9920
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	9921	ERROR;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	9922	}
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	9923
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	9924	}/function_word_to_string/
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	9925	break;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	9926
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	9927	/****
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	9928	*WORD_TO_WSTRING
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	9929	*/
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	9930	case function_word_to_wstring :
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	9931	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	9932	symbol_c *last_type_symbol = NULL;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	9933
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	9934	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	9935	identifier_c param_name("IN");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	9936	/* Get the value from a foo(<param_name> = <param_value>) style call */
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	9937	symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	9938
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	9939	/* Get the value from a foo(<param_value>) style call */
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	9940	if (IN_param_value == NULL)
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	9941	IN_param_value = function_call_param_iterator.next();
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	9942	symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	9943	last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	9944
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	9945	if (typeid(*last_type_symbol) == typeid(word_type_name_c))
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	9946	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	9947
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	9948	symbol_c * return_type_symbol = &search_constant_type_c::wstring_type_name;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	9949	s4o.print("(");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	9950	return_type_symbol->accept(*this);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	9951	s4o.print(")int_to_string(");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	9952	IN_param_value->accept(*this);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	9953	s4o.print(", 16)");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	9954	return NULL;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	9955
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	9956	}
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	9957
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	9958	ERROR;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	9959	}
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	9960
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	9961	}/function_word_to_wstring/
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	9962	break;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	9963
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	9964	/****
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	9965	*WORD_TO_DATE
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	9966	*/
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	9967	case function_word_to_date :
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	9968	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	9969	symbol_c *last_type_symbol = NULL;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	9970
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	9971	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	9972	identifier_c param_name("IN");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	9973	/* Get the value from a foo(<param_name> = <param_value>) style call */
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	9974	symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	9975
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	9976	/* Get the value from a foo(<param_value>) style call */
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	9977	if (IN_param_value == NULL)
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	9978	IN_param_value = function_call_param_iterator.next();
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	9979	symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	9980	last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	9981
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	9982	if (typeid(*last_type_symbol) == typeid(word_type_name_c))
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	9983	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	9984
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	9985	symbol_c * return_type_symbol = &search_constant_type_c::date_type_name;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	9986	s4o.print("(");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	9987	return_type_symbol->accept(*this);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	9988	s4o.print(")real_to_time(");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	9989	IN_param_value->accept(*this);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	9990	s4o.print(")");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	9991	return NULL;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	9992
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	9993	}
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	9994
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	9995	ERROR;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	9996	}
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	9997
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	9998	}/function_word_to_date/
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	9999	break;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	10000
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	10001	/****
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	10002	*WORD_TO_TOD
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	10003	*/
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	10004	case function_word_to_tod :
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	10005	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	10006	symbol_c *last_type_symbol = NULL;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	10007
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	10008	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	10009	identifier_c param_name("IN");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	10010	/* Get the value from a foo(<param_name> = <param_value>) style call */
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	10011	symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	10012
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	10013	/* Get the value from a foo(<param_value>) style call */
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	10014	if (IN_param_value == NULL)
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	10015	IN_param_value = function_call_param_iterator.next();
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	10016	symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	10017	last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	10018
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	10019	if (typeid(*last_type_symbol) == typeid(word_type_name_c))
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	10020	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	10021
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	10022	symbol_c * return_type_symbol = &search_constant_type_c::tod_type_name;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	10023	s4o.print("(");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	10024	return_type_symbol->accept(*this);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	10025	s4o.print(")real_to_time(");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	10026	IN_param_value->accept(*this);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	10027	s4o.print(")");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	10028	return NULL;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	10029
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	10030	}
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	10031
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	10032	ERROR;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	10033	}
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	10034
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	10035	}/function_word_to_tod/
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	10036	break;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	10037
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	10038	/****
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	10039	*WORD_TO_DT
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	10040	*/
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	10041	case function_word_to_dt :
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	10042	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	10043	symbol_c *last_type_symbol = NULL;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	10044
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	10045	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	10046	identifier_c param_name("IN");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	10047	/* Get the value from a foo(<param_name> = <param_value>) style call */
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	10048	symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	10049
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	10050	/* Get the value from a foo(<param_value>) style call */
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	10051	if (IN_param_value == NULL)
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	10052	IN_param_value = function_call_param_iterator.next();
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	10053	symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	10054	last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	10055
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	10056	if (typeid(*last_type_symbol) == typeid(word_type_name_c))
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	10057	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	10058
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	10059	symbol_c * return_type_symbol = &search_constant_type_c::dt_type_name;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	10060	s4o.print("(");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	10061	return_type_symbol->accept(*this);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	10062	s4o.print(")real_to_time(");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	10063	IN_param_value->accept(*this);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	10064	s4o.print(")");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	10065	return NULL;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	10066
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	10067	}
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	10068
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	10069	ERROR;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	10070	}
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	10071
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	10072	}/function_word_to_dt/
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	10073	break;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	10074
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	10075	/****
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	10076	*DWORD_TO_REAL
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	10077	*/
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	10078	case function_dword_to_real :
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	10079	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	10080	symbol_c *last_type_symbol = NULL;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	10081
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	10082	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	10083	identifier_c param_name("IN");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	10084	/* Get the value from a foo(<param_name> = <param_value>) style call */
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	10085	symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	10086
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	10087	/* Get the value from a foo(<param_value>) style call */
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	10088	if (IN_param_value == NULL)
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	10089	IN_param_value = function_call_param_iterator.next();
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	10090	symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	10091	last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	10092
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	10093	if (typeid(*last_type_symbol) == typeid(dword_type_name_c))
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	10094	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	10095
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	10096	symbol_c * return_type_symbol = &search_constant_type_c::real_type_name;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	10097	s4o.print("(");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	10098	return_type_symbol->accept(*this);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	10099	s4o.print(")");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	10100	IN_param_value->accept(*this);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	10101	return NULL;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	10102
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	10103	}
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	10104
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	10105	ERROR;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	10106	}
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	10107
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	10108	}/function_dword_to_real/
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	10109	break;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	10110
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	10111	/****
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	10112	*DWORD_TO_LREAL
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	10113	*/
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	10114	case function_dword_to_lreal :
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	10115	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	10116	symbol_c *last_type_symbol = NULL;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	10117
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	10118	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	10119	identifier_c param_name("IN");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	10120	/* Get the value from a foo(<param_name> = <param_value>) style call */
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	10121	symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	10122
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	10123	/* Get the value from a foo(<param_value>) style call */
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	10124	if (IN_param_value == NULL)
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	10125	IN_param_value = function_call_param_iterator.next();
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	10126	symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	10127	last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	10128
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	10129	if (typeid(*last_type_symbol) == typeid(dword_type_name_c))
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	10130	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	10131
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	10132	symbol_c * return_type_symbol = &search_constant_type_c::lreal_type_name;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	10133	s4o.print("(");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	10134	return_type_symbol->accept(*this);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	10135	s4o.print(")");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	10136	IN_param_value->accept(*this);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	10137	return NULL;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	10138
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	10139	}
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	10140
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	10141	ERROR;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	10142	}
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	10143
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	10144	}/function_dword_to_lreal/
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	10145	break;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	10146
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	10147	/****
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	10148	*DWORD_TO_SINT
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	10149	*/
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	10150	case function_dword_to_sint :
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	10151	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	10152	symbol_c *last_type_symbol = NULL;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	10153
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	10154	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	10155	identifier_c param_name("IN");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	10156	/* Get the value from a foo(<param_name> = <param_value>) style call */
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	10157	symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	10158
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	10159	/* Get the value from a foo(<param_value>) style call */
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	10160	if (IN_param_value == NULL)
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	10161	IN_param_value = function_call_param_iterator.next();
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	10162	symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	10163	last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	10164
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	10165	if (typeid(*last_type_symbol) == typeid(dword_type_name_c))
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	10166	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	10167
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	10168	symbol_c * return_type_symbol = &search_constant_type_c::sint_type_name;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	10169	s4o.print("(");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	10170	return_type_symbol->accept(*this);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	10171	s4o.print(")");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	10172	IN_param_value->accept(*this);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	10173	return NULL;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	10174
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	10175	}
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	10176
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	10177	ERROR;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	10178	}
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	10179
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	10180	}/function_dword_to_sint/
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	10181	break;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	10182
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	10183	/****
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	10184	*DWORD_TO_INT
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	10185	*/
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	10186	case function_dword_to_int :
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	10187	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	10188	symbol_c *last_type_symbol = NULL;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	10189
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	10190	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	10191	identifier_c param_name("IN");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	10192	/* Get the value from a foo(<param_name> = <param_value>) style call */
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	10193	symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	10194
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	10195	/* Get the value from a foo(<param_value>) style call */
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	10196	if (IN_param_value == NULL)
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	10197	IN_param_value = function_call_param_iterator.next();
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	10198	symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	10199	last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	10200
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	10201	if (typeid(*last_type_symbol) == typeid(dword_type_name_c))
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	10202	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	10203
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	10204	symbol_c * return_type_symbol = &search_constant_type_c::int_type_name;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	10205	s4o.print("(");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	10206	return_type_symbol->accept(*this);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	10207	s4o.print(")");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	10208	IN_param_value->accept(*this);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	10209	return NULL;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	10210
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	10211	}
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	10212
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	10213	ERROR;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	10214	}
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	10215
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	10216	}/function_dword_to_int/
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	10217	break;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	10218
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	10219	/****
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	10220	*DWORD_TO_DINT
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	10221	*/
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	10222	case function_dword_to_dint :
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	10223	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	10224	symbol_c *last_type_symbol = NULL;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	10225
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	10226	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	10227	identifier_c param_name("IN");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	10228	/* Get the value from a foo(<param_name> = <param_value>) style call */
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	10229	symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	10230
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	10231	/* Get the value from a foo(<param_value>) style call */
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	10232	if (IN_param_value == NULL)
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	10233	IN_param_value = function_call_param_iterator.next();
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	10234	symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	10235	last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	10236
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	10237	if (typeid(*last_type_symbol) == typeid(dword_type_name_c))
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	10238	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	10239
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	10240	symbol_c * return_type_symbol = &search_constant_type_c::dint_type_name;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	10241	s4o.print("(");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	10242	return_type_symbol->accept(*this);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	10243	s4o.print(")");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	10244	IN_param_value->accept(*this);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	10245	return NULL;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	10246
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	10247	}
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	10248
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	10249	ERROR;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	10250	}
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	10251
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	10252	}/function_dword_to_dint/
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	10253	break;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	10254
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	10255	/****
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	10256	*DWORD_TO_LINT
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	10257	*/
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	10258	case function_dword_to_lint :
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	10259	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	10260	symbol_c *last_type_symbol = NULL;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	10261
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	10262	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	10263	identifier_c param_name("IN");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	10264	/* Get the value from a foo(<param_name> = <param_value>) style call */
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	10265	symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	10266
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	10267	/* Get the value from a foo(<param_value>) style call */
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	10268	if (IN_param_value == NULL)
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	10269	IN_param_value = function_call_param_iterator.next();
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	10270	symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	10271	last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	10272
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	10273	if (typeid(*last_type_symbol) == typeid(dword_type_name_c))
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	10274	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	10275
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	10276	symbol_c * return_type_symbol = &search_constant_type_c::lint_type_name;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	10277	s4o.print("(");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	10278	return_type_symbol->accept(*this);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	10279	s4o.print(")");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	10280	IN_param_value->accept(*this);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	10281	return NULL;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	10282
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	10283	}
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	10284
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	10285	ERROR;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	10286	}
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	10287
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	10288	}/function_dword_to_lint/
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	10289	break;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	10290
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	10291	/****
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	10292	*DWORD_TO_USINT
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	10293	*/
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	10294	case function_dword_to_usint :
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	10295	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	10296	symbol_c *last_type_symbol = NULL;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	10297
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	10298	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	10299	identifier_c param_name("IN");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	10300	/* Get the value from a foo(<param_name> = <param_value>) style call */
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	10301	symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	10302
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	10303	/* Get the value from a foo(<param_value>) style call */
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	10304	if (IN_param_value == NULL)
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	10305	IN_param_value = function_call_param_iterator.next();
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	10306	symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	10307	last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	10308
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	10309	if (typeid(*last_type_symbol) == typeid(dword_type_name_c))
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	10310	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	10311
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	10312	symbol_c * return_type_symbol = &search_constant_type_c::usint_type_name;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	10313	s4o.print("(");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	10314	return_type_symbol->accept(*this);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	10315	s4o.print(")");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	10316	IN_param_value->accept(*this);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	10317	return NULL;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	10318
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	10319	}
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	10320
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	10321	ERROR;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	10322	}
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	10323
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	10324	}/function_dword_to_usint/
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	10325	break;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	10326
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	10327	/****
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	10328	*DWORD_TO_UINT
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	10329	*/
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	10330	case function_dword_to_uint :
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	10331	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	10332	symbol_c *last_type_symbol = NULL;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	10333
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	10334	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	10335	identifier_c param_name("IN");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	10336	/* Get the value from a foo(<param_name> = <param_value>) style call */
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	10337	symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	10338
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	10339	/* Get the value from a foo(<param_value>) style call */
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	10340	if (IN_param_value == NULL)
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	10341	IN_param_value = function_call_param_iterator.next();
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	10342	symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	10343	last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	10344
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	10345	if (typeid(*last_type_symbol) == typeid(dword_type_name_c))
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	10346	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	10347
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	10348	symbol_c * return_type_symbol = &search_constant_type_c::uint_type_name;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	10349	s4o.print("(");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	10350	return_type_symbol->accept(*this);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	10351	s4o.print(")");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	10352	IN_param_value->accept(*this);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	10353	return NULL;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	10354
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	10355	}
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	10356
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	10357	ERROR;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	10358	}
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	10359
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	10360	}/function_dword_to_uint/
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	10361	break;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	10362
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	10363	/****
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	10364	*DWORD_TO_UDINT
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	10365	*/
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	10366	case function_dword_to_udint :
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	10367	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	10368	symbol_c *last_type_symbol = NULL;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	10369
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	10370	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	10371	identifier_c param_name("IN");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	10372	/* Get the value from a foo(<param_name> = <param_value>) style call */
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	10373	symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	10374
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	10375	/* Get the value from a foo(<param_value>) style call */
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	10376	if (IN_param_value == NULL)
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	10377	IN_param_value = function_call_param_iterator.next();
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	10378	symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	10379	last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	10380
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	10381	if (typeid(*last_type_symbol) == typeid(dword_type_name_c))
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	10382	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	10383
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	10384	symbol_c * return_type_symbol = &search_constant_type_c::udint_type_name;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	10385	s4o.print("(");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	10386	return_type_symbol->accept(*this);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	10387	s4o.print(")");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	10388	IN_param_value->accept(*this);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	10389	return NULL;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	10390
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	10391	}
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	10392
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	10393	ERROR;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	10394	}
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	10395
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	10396	}/function_dword_to_udint/
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	10397	break;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	10398
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	10399	/****
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	10400	*DWORD_TO_ULINT
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	10401	*/
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	10402	case function_dword_to_ulint :
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	10403	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	10404	symbol_c *last_type_symbol = NULL;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	10405
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	10406	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	10407	identifier_c param_name("IN");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	10408	/* Get the value from a foo(<param_name> = <param_value>) style call */
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	10409	symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	10410
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	10411	/* Get the value from a foo(<param_value>) style call */
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	10412	if (IN_param_value == NULL)
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	10413	IN_param_value = function_call_param_iterator.next();
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	10414	symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	10415	last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	10416
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	10417	if (typeid(*last_type_symbol) == typeid(dword_type_name_c))
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	10418	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	10419
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	10420	symbol_c * return_type_symbol = &search_constant_type_c::ulint_type_name;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	10421	s4o.print("(");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	10422	return_type_symbol->accept(*this);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	10423	s4o.print(")");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	10424	IN_param_value->accept(*this);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	10425	return NULL;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	10426
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	10427	}
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	10428
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	10429	ERROR;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	10430	}
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	10431
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	10432	}/function_dword_to_ulint/
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	10433	break;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	10434
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	10435	/****
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	10436	*DWORD_TO_TIME
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	10437	*/
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	10438	case function_dword_to_time :
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	10439	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	10440	symbol_c *last_type_symbol = NULL;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	10441
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	10442	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	10443	identifier_c param_name("IN");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	10444	/* Get the value from a foo(<param_name> = <param_value>) style call */
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	10445	symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	10446
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	10447	/* Get the value from a foo(<param_value>) style call */
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	10448	if (IN_param_value == NULL)
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	10449	IN_param_value = function_call_param_iterator.next();
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	10450	symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	10451	last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	10452
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	10453	if (typeid(*last_type_symbol) == typeid(dword_type_name_c))
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	10454	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	10455
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	10456	symbol_c * return_type_symbol = &search_constant_type_c::time_type_name;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	10457	s4o.print("(");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	10458	return_type_symbol->accept(*this);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	10459	s4o.print(")real_to_time(");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	10460	IN_param_value->accept(*this);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	10461	s4o.print(")");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	10462	return NULL;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	10463
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	10464	}
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	10465
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	10466	ERROR;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	10467	}
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	10468
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	10469	}/function_dword_to_time/
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	10470	break;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	10471
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	10472	/****
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	10473	*DWORD_TO_BOOL
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	10474	*/
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	10475	case function_dword_to_bool :
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	10476	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	10477	symbol_c *last_type_symbol = NULL;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	10478
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	10479	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	10480	identifier_c param_name("IN");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	10481	/* Get the value from a foo(<param_name> = <param_value>) style call */
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	10482	symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	10483
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	10484	/* Get the value from a foo(<param_value>) style call */
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	10485	if (IN_param_value == NULL)
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	10486	IN_param_value = function_call_param_iterator.next();
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	10487	symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	10488	last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	10489
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	10490	if (typeid(*last_type_symbol) == typeid(dword_type_name_c))
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	10491	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	10492
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	10493	symbol_c * return_type_symbol = &search_constant_type_c::bool_type_name;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	10494	s4o.print("(");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	10495	return_type_symbol->accept(*this);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	10496	s4o.print(")");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	10497	IN_param_value->accept(*this);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	10498	return NULL;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	10499
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	10500	}
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	10501
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	10502	ERROR;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	10503	}
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	10504
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	10505	}/function_dword_to_bool/
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	10506	break;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	10507
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	10508	/****
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	10509	*DWORD_TO_BYTE
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	10510	*/
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	10511	case function_dword_to_byte :
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	10512	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	10513	symbol_c *last_type_symbol = NULL;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	10514
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	10515	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	10516	identifier_c param_name("IN");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	10517	/* Get the value from a foo(<param_name> = <param_value>) style call */
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	10518	symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	10519
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	10520	/* Get the value from a foo(<param_value>) style call */
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	10521	if (IN_param_value == NULL)
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	10522	IN_param_value = function_call_param_iterator.next();
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	10523	symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	10524	last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	10525
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	10526	if (typeid(*last_type_symbol) == typeid(dword_type_name_c))
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	10527	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	10528
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	10529	symbol_c * return_type_symbol = &search_constant_type_c::byte_type_name;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	10530	s4o.print("(");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	10531	return_type_symbol->accept(*this);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	10532	s4o.print(")");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	10533	IN_param_value->accept(*this);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	10534	return NULL;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	10535
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	10536	}
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	10537
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	10538	ERROR;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	10539	}
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	10540
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	10541	}/function_dword_to_byte/
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	10542	break;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	10543
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	10544	/****
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	10545	*DWORD_TO_WORD
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	10546	*/
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	10547	case function_dword_to_word :
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	10548	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	10549	symbol_c *last_type_symbol = NULL;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	10550
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	10551	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	10552	identifier_c param_name("IN");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	10553	/* Get the value from a foo(<param_name> = <param_value>) style call */
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	10554	symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	10555
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	10556	/* Get the value from a foo(<param_value>) style call */
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	10557	if (IN_param_value == NULL)
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	10558	IN_param_value = function_call_param_iterator.next();
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	10559	symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	10560	last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	10561
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	10562	if (typeid(*last_type_symbol) == typeid(dword_type_name_c))
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	10563	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	10564
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	10565	symbol_c * return_type_symbol = &search_constant_type_c::word_type_name;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	10566	s4o.print("(");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	10567	return_type_symbol->accept(*this);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	10568	s4o.print(")");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	10569	IN_param_value->accept(*this);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	10570	return NULL;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	10571
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	10572	}
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	10573
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	10574	ERROR;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	10575	}
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	10576
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	10577	}/function_dword_to_word/
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	10578	break;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	10579
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	10580	/****
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	10581	*DWORD_TO_LWORD
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	10582	*/
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	10583	case function_dword_to_lword :
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	10584	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	10585	symbol_c *last_type_symbol = NULL;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	10586
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	10587	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	10588	identifier_c param_name("IN");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	10589	/* Get the value from a foo(<param_name> = <param_value>) style call */
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	10590	symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	10591
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	10592	/* Get the value from a foo(<param_value>) style call */
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	10593	if (IN_param_value == NULL)
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	10594	IN_param_value = function_call_param_iterator.next();
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	10595	symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	10596	last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	10597
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	10598	if (typeid(*last_type_symbol) == typeid(dword_type_name_c))
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	10599	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	10600
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	10601	symbol_c * return_type_symbol = &search_constant_type_c::lword_type_name;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	10602	s4o.print("(");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	10603	return_type_symbol->accept(*this);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	10604	s4o.print(")");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	10605	IN_param_value->accept(*this);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	10606	return NULL;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	10607
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	10608	}
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	10609
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	10610	ERROR;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	10611	}
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	10612
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	10613	}/function_dword_to_lword/
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	10614	break;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	10615
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	10616	/****
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	10617	*DWORD_TO_STRING
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	10618	*/
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	10619	case function_dword_to_string :
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	10620	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	10621	symbol_c *last_type_symbol = NULL;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	10622
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	10623	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	10624	identifier_c param_name("IN");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	10625	/* Get the value from a foo(<param_name> = <param_value>) style call */
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	10626	symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	10627
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	10628	/* Get the value from a foo(<param_value>) style call */
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	10629	if (IN_param_value == NULL)
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	10630	IN_param_value = function_call_param_iterator.next();
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	10631	symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	10632	last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	10633
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	10634	if (typeid(*last_type_symbol) == typeid(dword_type_name_c))
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	10635	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	10636
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	10637	symbol_c * return_type_symbol = &search_constant_type_c::string_type_name;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	10638	s4o.print("(");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	10639	return_type_symbol->accept(*this);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	10640	s4o.print(")int_to_string(");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	10641	IN_param_value->accept(*this);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	10642	s4o.print(", 16)");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	10643	return NULL;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	10644
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	10645	}
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	10646
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	10647	ERROR;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	10648	}
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	10649
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	10650	}/function_dword_to_string/
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	10651	break;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	10652
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	10653	/****
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	10654	*DWORD_TO_WSTRING
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	10655	*/
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	10656	case function_dword_to_wstring :
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	10657	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	10658	symbol_c *last_type_symbol = NULL;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	10659
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	10660	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	10661	identifier_c param_name("IN");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	10662	/* Get the value from a foo(<param_name> = <param_value>) style call */
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	10663	symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	10664
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	10665	/* Get the value from a foo(<param_value>) style call */
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	10666	if (IN_param_value == NULL)
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	10667	IN_param_value = function_call_param_iterator.next();
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	10668	symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	10669	last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	10670
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	10671	if (typeid(*last_type_symbol) == typeid(dword_type_name_c))
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	10672	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	10673
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	10674	symbol_c * return_type_symbol = &search_constant_type_c::wstring_type_name;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	10675	s4o.print("(");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	10676	return_type_symbol->accept(*this);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	10677	s4o.print(")int_to_string(");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	10678	IN_param_value->accept(*this);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	10679	s4o.print(", 16)");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	10680	return NULL;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	10681
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	10682	}
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	10683
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	10684	ERROR;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	10685	}
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	10686
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	10687	}/function_dword_to_wstring/
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	10688	break;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	10689
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	10690	/****
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	10691	*DWORD_TO_DATE
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	10692	*/
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	10693	case function_dword_to_date :
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	10694	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	10695	symbol_c *last_type_symbol = NULL;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	10696
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	10697	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	10698	identifier_c param_name("IN");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	10699	/* Get the value from a foo(<param_name> = <param_value>) style call */
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	10700	symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	10701
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	10702	/* Get the value from a foo(<param_value>) style call */
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	10703	if (IN_param_value == NULL)
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	10704	IN_param_value = function_call_param_iterator.next();
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	10705	symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	10706	last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	10707
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	10708	if (typeid(*last_type_symbol) == typeid(dword_type_name_c))
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	10709	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	10710
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	10711	symbol_c * return_type_symbol = &search_constant_type_c::date_type_name;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	10712	s4o.print("(");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	10713	return_type_symbol->accept(*this);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	10714	s4o.print(")real_to_time(");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	10715	IN_param_value->accept(*this);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	10716	s4o.print(")");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	10717	return NULL;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	10718
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	10719	}
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	10720
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	10721	ERROR;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	10722	}
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	10723
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	10724	}/function_dword_to_date/
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	10725	break;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	10726
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	10727	/****
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	10728	*DWORD_TO_TOD
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	10729	*/
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	10730	case function_dword_to_tod :
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	10731	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	10732	symbol_c *last_type_symbol = NULL;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	10733
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	10734	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	10735	identifier_c param_name("IN");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	10736	/* Get the value from a foo(<param_name> = <param_value>) style call */
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	10737	symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	10738
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	10739	/* Get the value from a foo(<param_value>) style call */
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	10740	if (IN_param_value == NULL)
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	10741	IN_param_value = function_call_param_iterator.next();
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	10742	symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	10743	last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	10744
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	10745	if (typeid(*last_type_symbol) == typeid(dword_type_name_c))
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	10746	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	10747
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	10748	symbol_c * return_type_symbol = &search_constant_type_c::tod_type_name;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	10749	s4o.print("(");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	10750	return_type_symbol->accept(*this);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	10751	s4o.print(")real_to_time(");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	10752	IN_param_value->accept(*this);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	10753	s4o.print(")");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	10754	return NULL;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	10755
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	10756	}
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	10757
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	10758	ERROR;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	10759	}
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	10760
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	10761	}/function_dword_to_tod/
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	10762	break;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	10763
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	10764	/****
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	10765	*DWORD_TO_DT
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	10766	*/
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	10767	case function_dword_to_dt :
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	10768	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	10769	symbol_c *last_type_symbol = NULL;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	10770
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	10771	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	10772	identifier_c param_name("IN");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	10773	/* Get the value from a foo(<param_name> = <param_value>) style call */
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	10774	symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	10775
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	10776	/* Get the value from a foo(<param_value>) style call */
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	10777	if (IN_param_value == NULL)
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	10778	IN_param_value = function_call_param_iterator.next();
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	10779	symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	10780	last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	10781
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	10782	if (typeid(*last_type_symbol) == typeid(dword_type_name_c))
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	10783	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	10784
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	10785	symbol_c * return_type_symbol = &search_constant_type_c::dt_type_name;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	10786	s4o.print("(");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	10787	return_type_symbol->accept(*this);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	10788	s4o.print(")real_to_time(");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	10789	IN_param_value->accept(*this);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	10790	s4o.print(")");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	10791	return NULL;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	10792
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	10793	}
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	10794
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	10795	ERROR;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	10796	}
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	10797
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	10798	}/function_dword_to_dt/
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	10799	break;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	10800
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	10801	/****
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	10802	*LWORD_TO_REAL
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	10803	*/
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	10804	case function_lword_to_real :
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	10805	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	10806	symbol_c *last_type_symbol = NULL;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	10807
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	10808	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	10809	identifier_c param_name("IN");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	10810	/* Get the value from a foo(<param_name> = <param_value>) style call */
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	10811	symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	10812
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	10813	/* Get the value from a foo(<param_value>) style call */
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	10814	if (IN_param_value == NULL)
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	10815	IN_param_value = function_call_param_iterator.next();
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	10816	symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	10817	last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	10818
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	10819	if (typeid(*last_type_symbol) == typeid(lword_type_name_c))
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	10820	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	10821
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	10822	symbol_c * return_type_symbol = &search_constant_type_c::real_type_name;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	10823	s4o.print("(");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	10824	return_type_symbol->accept(*this);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	10825	s4o.print(")");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	10826	IN_param_value->accept(*this);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	10827	return NULL;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	10828
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	10829	}
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	10830
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	10831	ERROR;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	10832	}
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	10833
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	10834	}/function_lword_to_real/
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	10835	break;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	10836
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	10837	/****
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	10838	*LWORD_TO_LREAL
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	10839	*/
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	10840	case function_lword_to_lreal :
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	10841	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	10842	symbol_c *last_type_symbol = NULL;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	10843
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	10844	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	10845	identifier_c param_name("IN");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	10846	/* Get the value from a foo(<param_name> = <param_value>) style call */
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	10847	symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	10848
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	10849	/* Get the value from a foo(<param_value>) style call */
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	10850	if (IN_param_value == NULL)
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	10851	IN_param_value = function_call_param_iterator.next();
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	10852	symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	10853	last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	10854
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	10855	if (typeid(*last_type_symbol) == typeid(lword_type_name_c))
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	10856	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	10857
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	10858	symbol_c * return_type_symbol = &search_constant_type_c::lreal_type_name;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	10859	s4o.print("(");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	10860	return_type_symbol->accept(*this);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	10861	s4o.print(")");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	10862	IN_param_value->accept(*this);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	10863	return NULL;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	10864
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	10865	}
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	10866
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	10867	ERROR;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	10868	}
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	10869
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	10870	}/function_lword_to_lreal/
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	10871	break;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	10872
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	10873	/****
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	10874	*LWORD_TO_SINT
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	10875	*/
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	10876	case function_lword_to_sint :
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	10877	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	10878	symbol_c *last_type_symbol = NULL;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	10879
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	10880	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	10881	identifier_c param_name("IN");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	10882	/* Get the value from a foo(<param_name> = <param_value>) style call */
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	10883	symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	10884
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	10885	/* Get the value from a foo(<param_value>) style call */
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	10886	if (IN_param_value == NULL)
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	10887	IN_param_value = function_call_param_iterator.next();
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	10888	symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	10889	last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	10890
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	10891	if (typeid(*last_type_symbol) == typeid(lword_type_name_c))
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	10892	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	10893
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	10894	symbol_c * return_type_symbol = &search_constant_type_c::sint_type_name;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	10895	s4o.print("(");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	10896	return_type_symbol->accept(*this);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	10897	s4o.print(")");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	10898	IN_param_value->accept(*this);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	10899	return NULL;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	10900
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	10901	}
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	10902
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	10903	ERROR;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	10904	}
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	10905
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	10906	}/function_lword_to_sint/
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	10907	break;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	10908
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	10909	/****
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	10910	*LWORD_TO_INT
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	10911	*/
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	10912	case function_lword_to_int :
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	10913	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	10914	symbol_c *last_type_symbol = NULL;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	10915
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	10916	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	10917	identifier_c param_name("IN");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	10918	/* Get the value from a foo(<param_name> = <param_value>) style call */
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	10919	symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	10920
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	10921	/* Get the value from a foo(<param_value>) style call */
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	10922	if (IN_param_value == NULL)
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	10923	IN_param_value = function_call_param_iterator.next();
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	10924	symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	10925	last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	10926
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	10927	if (typeid(*last_type_symbol) == typeid(lword_type_name_c))
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	10928	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	10929
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	10930	symbol_c * return_type_symbol = &search_constant_type_c::int_type_name;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	10931	s4o.print("(");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	10932	return_type_symbol->accept(*this);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	10933	s4o.print(")");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	10934	IN_param_value->accept(*this);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	10935	return NULL;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	10936
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	10937	}
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	10938
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	10939	ERROR;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	10940	}
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	10941
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	10942	}/function_lword_to_int/
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	10943	break;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	10944
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	10945	/****
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	10946	*LWORD_TO_DINT
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	10947	*/
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	10948	case function_lword_to_dint :
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	10949	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	10950	symbol_c *last_type_symbol = NULL;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	10951
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	10952	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	10953	identifier_c param_name("IN");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	10954	/* Get the value from a foo(<param_name> = <param_value>) style call */
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	10955	symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	10956
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	10957	/* Get the value from a foo(<param_value>) style call */
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	10958	if (IN_param_value == NULL)
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	10959	IN_param_value = function_call_param_iterator.next();
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	10960	symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	10961	last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	10962
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	10963	if (typeid(*last_type_symbol) == typeid(lword_type_name_c))
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	10964	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	10965
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	10966	symbol_c * return_type_symbol = &search_constant_type_c::dint_type_name;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	10967	s4o.print("(");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	10968	return_type_symbol->accept(*this);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	10969	s4o.print(")");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	10970	IN_param_value->accept(*this);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	10971	return NULL;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	10972
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	10973	}
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	10974
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	10975	ERROR;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	10976	}
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	10977
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	10978	}/function_lword_to_dint/
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	10979	break;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	10980
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	10981	/****
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	10982	*LWORD_TO_LINT
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	10983	*/
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	10984	case function_lword_to_lint :
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	10985	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	10986	symbol_c *last_type_symbol = NULL;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	10987
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	10988	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	10989	identifier_c param_name("IN");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	10990	/* Get the value from a foo(<param_name> = <param_value>) style call */
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	10991	symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	10992
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	10993	/* Get the value from a foo(<param_value>) style call */
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	10994	if (IN_param_value == NULL)
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	10995	IN_param_value = function_call_param_iterator.next();
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	10996	symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	10997	last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	10998
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	10999	if (typeid(*last_type_symbol) == typeid(lword_type_name_c))
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	11000	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	11001
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	11002	symbol_c * return_type_symbol = &search_constant_type_c::lint_type_name;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	11003	s4o.print("(");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	11004	return_type_symbol->accept(*this);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	11005	s4o.print(")");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	11006	IN_param_value->accept(*this);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	11007	return NULL;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	11008
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	11009	}
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	11010
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	11011	ERROR;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	11012	}
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	11013
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	11014	}/function_lword_to_lint/
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	11015	break;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	11016
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	11017	/****
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	11018	*LWORD_TO_USINT
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	11019	*/
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	11020	case function_lword_to_usint :
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	11021	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	11022	symbol_c *last_type_symbol = NULL;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	11023
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	11024	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	11025	identifier_c param_name("IN");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	11026	/* Get the value from a foo(<param_name> = <param_value>) style call */
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	11027	symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	11028
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	11029	/* Get the value from a foo(<param_value>) style call */
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	11030	if (IN_param_value == NULL)
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	11031	IN_param_value = function_call_param_iterator.next();
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	11032	symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	11033	last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	11034
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	11035	if (typeid(*last_type_symbol) == typeid(lword_type_name_c))
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	11036	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	11037
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	11038	symbol_c * return_type_symbol = &search_constant_type_c::usint_type_name;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	11039	s4o.print("(");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	11040	return_type_symbol->accept(*this);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	11041	s4o.print(")");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	11042	IN_param_value->accept(*this);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	11043	return NULL;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	11044
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	11045	}
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	11046
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	11047	ERROR;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	11048	}
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	11049
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	11050	}/function_lword_to_usint/
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	11051	break;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	11052
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	11053	/****
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	11054	*LWORD_TO_UINT
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	11055	*/
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	11056	case function_lword_to_uint :
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	11057	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	11058	symbol_c *last_type_symbol = NULL;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	11059
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	11060	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	11061	identifier_c param_name("IN");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	11062	/* Get the value from a foo(<param_name> = <param_value>) style call */
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	11063	symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	11064
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	11065	/* Get the value from a foo(<param_value>) style call */
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	11066	if (IN_param_value == NULL)
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	11067	IN_param_value = function_call_param_iterator.next();
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	11068	symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	11069	last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	11070
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	11071	if (typeid(*last_type_symbol) == typeid(lword_type_name_c))
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	11072	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	11073
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	11074	symbol_c * return_type_symbol = &search_constant_type_c::uint_type_name;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	11075	s4o.print("(");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	11076	return_type_symbol->accept(*this);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	11077	s4o.print(")");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	11078	IN_param_value->accept(*this);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	11079	return NULL;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	11080
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	11081	}
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	11082
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	11083	ERROR;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	11084	}
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	11085
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	11086	}/function_lword_to_uint/
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	11087	break;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	11088
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	11089	/****
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	11090	*LWORD_TO_UDINT
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	11091	*/
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	11092	case function_lword_to_udint :
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	11093	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	11094	symbol_c *last_type_symbol = NULL;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	11095
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	11096	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	11097	identifier_c param_name("IN");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	11098	/* Get the value from a foo(<param_name> = <param_value>) style call */
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	11099	symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	11100
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	11101	/* Get the value from a foo(<param_value>) style call */
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	11102	if (IN_param_value == NULL)
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	11103	IN_param_value = function_call_param_iterator.next();
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	11104	symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	11105	last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	11106
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	11107	if (typeid(*last_type_symbol) == typeid(lword_type_name_c))
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	11108	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	11109
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	11110	symbol_c * return_type_symbol = &search_constant_type_c::udint_type_name;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	11111	s4o.print("(");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	11112	return_type_symbol->accept(*this);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	11113	s4o.print(")");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	11114	IN_param_value->accept(*this);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	11115	return NULL;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	11116
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	11117	}
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	11118
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	11119	ERROR;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	11120	}
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	11121
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	11122	}/function_lword_to_udint/
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	11123	break;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	11124
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	11125	/****
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	11126	*LWORD_TO_ULINT
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	11127	*/
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	11128	case function_lword_to_ulint :
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	11129	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	11130	symbol_c *last_type_symbol = NULL;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	11131
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	11132	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	11133	identifier_c param_name("IN");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	11134	/* Get the value from a foo(<param_name> = <param_value>) style call */
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	11135	symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	11136
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	11137	/* Get the value from a foo(<param_value>) style call */
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	11138	if (IN_param_value == NULL)
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	11139	IN_param_value = function_call_param_iterator.next();
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	11140	symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	11141	last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	11142
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	11143	if (typeid(*last_type_symbol) == typeid(lword_type_name_c))
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	11144	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	11145
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	11146	symbol_c * return_type_symbol = &search_constant_type_c::ulint_type_name;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	11147	s4o.print("(");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	11148	return_type_symbol->accept(*this);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	11149	s4o.print(")");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	11150	IN_param_value->accept(*this);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	11151	return NULL;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	11152
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	11153	}
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	11154
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	11155	ERROR;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	11156	}
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	11157
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	11158	}/function_lword_to_ulint/
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	11159	break;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	11160
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	11161	/****
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	11162	*LWORD_TO_TIME
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	11163	*/
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	11164	case function_lword_to_time :
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	11165	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	11166	symbol_c *last_type_symbol = NULL;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	11167
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	11168	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	11169	identifier_c param_name("IN");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	11170	/* Get the value from a foo(<param_name> = <param_value>) style call */
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	11171	symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	11172
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	11173	/* Get the value from a foo(<param_value>) style call */
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	11174	if (IN_param_value == NULL)
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	11175	IN_param_value = function_call_param_iterator.next();
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	11176	symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	11177	last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	11178
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	11179	if (typeid(*last_type_symbol) == typeid(lword_type_name_c))
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	11180	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	11181
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	11182	symbol_c * return_type_symbol = &search_constant_type_c::time_type_name;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	11183	s4o.print("(");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	11184	return_type_symbol->accept(*this);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	11185	s4o.print(")real_to_time(");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	11186	IN_param_value->accept(*this);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	11187	s4o.print(")");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	11188	return NULL;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	11189
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	11190	}
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	11191
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	11192	ERROR;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	11193	}
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	11194
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	11195	}/function_lword_to_time/
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	11196	break;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	11197
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	11198	/****
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	11199	*LWORD_TO_BOOL
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	11200	*/
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	11201	case function_lword_to_bool :
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	11202	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	11203	symbol_c *last_type_symbol = NULL;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	11204
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	11205	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	11206	identifier_c param_name("IN");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	11207	/* Get the value from a foo(<param_name> = <param_value>) style call */
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	11208	symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	11209
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	11210	/* Get the value from a foo(<param_value>) style call */
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	11211	if (IN_param_value == NULL)
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	11212	IN_param_value = function_call_param_iterator.next();
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	11213	symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	11214	last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	11215
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	11216	if (typeid(*last_type_symbol) == typeid(lword_type_name_c))
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	11217	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	11218
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	11219	symbol_c * return_type_symbol = &search_constant_type_c::bool_type_name;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	11220	s4o.print("(");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	11221	return_type_symbol->accept(*this);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	11222	s4o.print(")");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	11223	IN_param_value->accept(*this);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	11224	return NULL;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	11225
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	11226	}
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	11227
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	11228	ERROR;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	11229	}
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	11230
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	11231	}/function_lword_to_bool/
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	11232	break;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	11233
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	11234	/****
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	11235	*LWORD_TO_BYTE
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	11236	*/
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	11237	case function_lword_to_byte :
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	11238	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	11239	symbol_c *last_type_symbol = NULL;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	11240
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	11241	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	11242	identifier_c param_name("IN");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	11243	/* Get the value from a foo(<param_name> = <param_value>) style call */
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	11244	symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	11245
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	11246	/* Get the value from a foo(<param_value>) style call */
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	11247	if (IN_param_value == NULL)
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	11248	IN_param_value = function_call_param_iterator.next();
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	11249	symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	11250	last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	11251
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	11252	if (typeid(*last_type_symbol) == typeid(lword_type_name_c))
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	11253	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	11254
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	11255	symbol_c * return_type_symbol = &search_constant_type_c::byte_type_name;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	11256	s4o.print("(");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	11257	return_type_symbol->accept(*this);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	11258	s4o.print(")");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	11259	IN_param_value->accept(*this);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	11260	return NULL;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	11261
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	11262	}
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	11263
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	11264	ERROR;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	11265	}
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	11266
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	11267	}/function_lword_to_byte/
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	11268	break;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	11269
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	11270	/****
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	11271	*LWORD_TO_WORD
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	11272	*/
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	11273	case function_lword_to_word :
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	11274	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	11275	symbol_c *last_type_symbol = NULL;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	11276
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	11277	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	11278	identifier_c param_name("IN");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	11279	/* Get the value from a foo(<param_name> = <param_value>) style call */
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	11280	symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	11281
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	11282	/* Get the value from a foo(<param_value>) style call */
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	11283	if (IN_param_value == NULL)
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	11284	IN_param_value = function_call_param_iterator.next();
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	11285	symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	11286	last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	11287
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	11288	if (typeid(*last_type_symbol) == typeid(lword_type_name_c))
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	11289	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	11290
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	11291	symbol_c * return_type_symbol = &search_constant_type_c::word_type_name;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	11292	s4o.print("(");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	11293	return_type_symbol->accept(*this);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	11294	s4o.print(")");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	11295	IN_param_value->accept(*this);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	11296	return NULL;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	11297
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	11298	}
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	11299
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	11300	ERROR;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	11301	}
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	11302
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	11303	}/function_lword_to_word/
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	11304	break;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	11305
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	11306	/****
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	11307	*LWORD_TO_DWORD
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	11308	*/
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	11309	case function_lword_to_dword :
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	11310	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	11311	symbol_c *last_type_symbol = NULL;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	11312
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	11313	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	11314	identifier_c param_name("IN");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	11315	/* Get the value from a foo(<param_name> = <param_value>) style call */
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	11316	symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	11317
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	11318	/* Get the value from a foo(<param_value>) style call */
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	11319	if (IN_param_value == NULL)
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	11320	IN_param_value = function_call_param_iterator.next();
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	11321	symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	11322	last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	11323
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	11324	if (typeid(*last_type_symbol) == typeid(lword_type_name_c))
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	11325	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	11326
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	11327	symbol_c * return_type_symbol = &search_constant_type_c::dword_type_name;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	11328	s4o.print("(");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	11329	return_type_symbol->accept(*this);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	11330	s4o.print(")");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	11331	IN_param_value->accept(*this);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	11332	return NULL;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	11333
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	11334	}
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	11335
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	11336	ERROR;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	11337	}
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	11338
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	11339	}/function_lword_to_dword/
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	11340	break;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	11341
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	11342	/****
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	11343	*LWORD_TO_STRING
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	11344	*/
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	11345	case function_lword_to_string :
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	11346	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	11347	symbol_c *last_type_symbol = NULL;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	11348
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	11349	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	11350	identifier_c param_name("IN");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	11351	/* Get the value from a foo(<param_name> = <param_value>) style call */
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	11352	symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	11353
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	11354	/* Get the value from a foo(<param_value>) style call */
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	11355	if (IN_param_value == NULL)
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	11356	IN_param_value = function_call_param_iterator.next();
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	11357	symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	11358	last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	11359
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	11360	if (typeid(*last_type_symbol) == typeid(lword_type_name_c))
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	11361	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	11362
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	11363	symbol_c * return_type_symbol = &search_constant_type_c::string_type_name;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	11364	s4o.print("(");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	11365	return_type_symbol->accept(*this);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	11366	s4o.print(")int_to_string(");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	11367	IN_param_value->accept(*this);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	11368	s4o.print(", 16)");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	11369	return NULL;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	11370
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	11371	}
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	11372
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	11373	ERROR;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	11374	}
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	11375
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	11376	}/function_lword_to_string/
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	11377	break;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	11378
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	11379	/****
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	11380	*LWORD_TO_WSTRING
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	11381	*/
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	11382	case function_lword_to_wstring :
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	11383	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	11384	symbol_c *last_type_symbol = NULL;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	11385
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	11386	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	11387	identifier_c param_name("IN");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	11388	/* Get the value from a foo(<param_name> = <param_value>) style call */
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	11389	symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	11390
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	11391	/* Get the value from a foo(<param_value>) style call */
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	11392	if (IN_param_value == NULL)
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	11393	IN_param_value = function_call_param_iterator.next();
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	11394	symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	11395	last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	11396
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	11397	if (typeid(*last_type_symbol) == typeid(lword_type_name_c))
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	11398	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	11399
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	11400	symbol_c * return_type_symbol = &search_constant_type_c::wstring_type_name;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	11401	s4o.print("(");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	11402	return_type_symbol->accept(*this);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	11403	s4o.print(")int_to_string(");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	11404	IN_param_value->accept(*this);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	11405	s4o.print(", 16)");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	11406	return NULL;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	11407
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	11408	}
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	11409
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	11410	ERROR;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	11411	}
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	11412
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	11413	}/function_lword_to_wstring/
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	11414	break;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	11415
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	11416	/****
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	11417	*LWORD_TO_DATE
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	11418	*/
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	11419	case function_lword_to_date :
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	11420	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	11421	symbol_c *last_type_symbol = NULL;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	11422
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	11423	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	11424	identifier_c param_name("IN");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	11425	/* Get the value from a foo(<param_name> = <param_value>) style call */
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	11426	symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	11427
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	11428	/* Get the value from a foo(<param_value>) style call */
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	11429	if (IN_param_value == NULL)
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	11430	IN_param_value = function_call_param_iterator.next();
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	11431	symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	11432	last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	11433
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	11434	if (typeid(*last_type_symbol) == typeid(lword_type_name_c))
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	11435	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	11436
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	11437	symbol_c * return_type_symbol = &search_constant_type_c::date_type_name;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	11438	s4o.print("(");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	11439	return_type_symbol->accept(*this);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	11440	s4o.print(")real_to_time(");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	11441	IN_param_value->accept(*this);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	11442	s4o.print(")");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	11443	return NULL;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	11444
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	11445	}
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	11446
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	11447	ERROR;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	11448	}
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	11449
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	11450	}/function_lword_to_date/
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	11451	break;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	11452
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	11453	/****
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	11454	*LWORD_TO_TOD
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	11455	*/
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	11456	case function_lword_to_tod :
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	11457	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	11458	symbol_c *last_type_symbol = NULL;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	11459
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	11460	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	11461	identifier_c param_name("IN");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	11462	/* Get the value from a foo(<param_name> = <param_value>) style call */
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	11463	symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	11464
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	11465	/* Get the value from a foo(<param_value>) style call */
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	11466	if (IN_param_value == NULL)
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	11467	IN_param_value = function_call_param_iterator.next();
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	11468	symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	11469	last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	11470
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	11471	if (typeid(*last_type_symbol) == typeid(lword_type_name_c))
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	11472	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	11473
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	11474	symbol_c * return_type_symbol = &search_constant_type_c::tod_type_name;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	11475	s4o.print("(");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	11476	return_type_symbol->accept(*this);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	11477	s4o.print(")real_to_time(");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	11478	IN_param_value->accept(*this);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	11479	s4o.print(")");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	11480	return NULL;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	11481
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	11482	}
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	11483
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	11484	ERROR;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	11485	}
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	11486
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	11487	}/function_lword_to_tod/
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	11488	break;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	11489
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	11490	/****
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	11491	*LWORD_TO_DT
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	11492	*/
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	11493	case function_lword_to_dt :
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	11494	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	11495	symbol_c *last_type_symbol = NULL;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	11496
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	11497	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	11498	identifier_c param_name("IN");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	11499	/* Get the value from a foo(<param_name> = <param_value>) style call */
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	11500	symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	11501
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	11502	/* Get the value from a foo(<param_value>) style call */
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	11503	if (IN_param_value == NULL)
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	11504	IN_param_value = function_call_param_iterator.next();
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	11505	symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	11506	last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	11507
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	11508	if (typeid(*last_type_symbol) == typeid(lword_type_name_c))
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	11509	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	11510
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	11511	symbol_c * return_type_symbol = &search_constant_type_c::dt_type_name;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	11512	s4o.print("(");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	11513	return_type_symbol->accept(*this);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	11514	s4o.print(")real_to_time(");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	11515	IN_param_value->accept(*this);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	11516	s4o.print(")");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	11517	return NULL;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	11518
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	11519	}
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	11520
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	11521	ERROR;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	11522	}
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	11523
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	11524	}/function_lword_to_dt/
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	11525	break;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	11526
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	11527	/****
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	11528	*STRING_TO_REAL
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	11529	*/
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	11530	case function_string_to_real :
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	11531	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	11532	symbol_c *last_type_symbol = NULL;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	11533
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	11534	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	11535	identifier_c param_name("IN");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	11536	/* Get the value from a foo(<param_name> = <param_value>) style call */
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	11537	symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	11538
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	11539	/* Get the value from a foo(<param_value>) style call */
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	11540	if (IN_param_value == NULL)
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	11541	IN_param_value = function_call_param_iterator.next();
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	11542	symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	11543	last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	11544
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	11545	if (typeid(*last_type_symbol) == typeid(string_type_name_c))
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	11546	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	11547
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	11548	symbol_c * return_type_symbol = &search_constant_type_c::real_type_name;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	11549	s4o.print("(");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	11550	return_type_symbol->accept(*this);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	11551	s4o.print(")string_to_int(");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	11552	IN_param_value->accept(*this);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	11553	s4o.print(", 10)");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	11554	return NULL;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	11555
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	11556	}
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	11557
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	11558	ERROR;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	11559	}
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	11560
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	11561	}/function_string_to_real/
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	11562	break;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	11563
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	11564	/****
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	11565	*STRING_TO_LREAL
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	11566	*/
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	11567	case function_string_to_lreal :
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	11568	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	11569	symbol_c *last_type_symbol = NULL;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	11570
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	11571	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	11572	identifier_c param_name("IN");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	11573	/* Get the value from a foo(<param_name> = <param_value>) style call */
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	11574	symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	11575
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	11576	/* Get the value from a foo(<param_value>) style call */
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	11577	if (IN_param_value == NULL)
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	11578	IN_param_value = function_call_param_iterator.next();
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	11579	symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	11580	last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	11581
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	11582	if (typeid(*last_type_symbol) == typeid(string_type_name_c))
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	11583	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	11584
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	11585	symbol_c * return_type_symbol = &search_constant_type_c::lreal_type_name;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	11586	s4o.print("(");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	11587	return_type_symbol->accept(*this);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	11588	s4o.print(")string_to_int(");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	11589	IN_param_value->accept(*this);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	11590	s4o.print(", 10)");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	11591	return NULL;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	11592
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	11593	}
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	11594
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	11595	ERROR;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	11596	}
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	11597
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	11598	}/function_string_to_lreal/
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	11599	break;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	11600
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	11601	/****
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	11602	*STRING_TO_SINT
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	11603	*/
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	11604	case function_string_to_sint :
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	11605	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	11606	symbol_c *last_type_symbol = NULL;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	11607
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	11608	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	11609	identifier_c param_name("IN");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	11610	/* Get the value from a foo(<param_name> = <param_value>) style call */
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	11611	symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	11612
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	11613	/* Get the value from a foo(<param_value>) style call */
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	11614	if (IN_param_value == NULL)
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	11615	IN_param_value = function_call_param_iterator.next();
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	11616	symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	11617	last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	11618
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	11619	if (typeid(*last_type_symbol) == typeid(string_type_name_c))
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	11620	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	11621
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	11622	symbol_c * return_type_symbol = &search_constant_type_c::sint_type_name;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	11623	s4o.print("(");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	11624	return_type_symbol->accept(*this);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	11625	s4o.print(")string_to_int(");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	11626	IN_param_value->accept(*this);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	11627	s4o.print(", 10)");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	11628	return NULL;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	11629
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	11630	}
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	11631
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	11632	ERROR;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	11633	}
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	11634
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	11635	}/function_string_to_sint/
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	11636	break;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	11637
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	11638	/****
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	11639	*STRING_TO_INT
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	11640	*/
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	11641	case function_string_to_int :
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	11642	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	11643	symbol_c *last_type_symbol = NULL;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	11644
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	11645	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	11646	identifier_c param_name("IN");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	11647	/* Get the value from a foo(<param_name> = <param_value>) style call */
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	11648	symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	11649
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	11650	/* Get the value from a foo(<param_value>) style call */
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	11651	if (IN_param_value == NULL)
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	11652	IN_param_value = function_call_param_iterator.next();
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	11653	symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	11654	last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	11655
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	11656	if (typeid(*last_type_symbol) == typeid(string_type_name_c))
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	11657	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	11658
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	11659	symbol_c * return_type_symbol = &search_constant_type_c::int_type_name;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	11660	s4o.print("(");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	11661	return_type_symbol->accept(*this);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	11662	s4o.print(")string_to_int(");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	11663	IN_param_value->accept(*this);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	11664	s4o.print(", 10)");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	11665	return NULL;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	11666
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	11667	}
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	11668
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	11669	ERROR;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	11670	}
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	11671
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	11672	}/function_string_to_int/
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	11673	break;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	11674
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	11675	/****
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	11676	*STRING_TO_DINT
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	11677	*/
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	11678	case function_string_to_dint :
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	11679	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	11680	symbol_c *last_type_symbol = NULL;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	11681
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	11682	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	11683	identifier_c param_name("IN");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	11684	/* Get the value from a foo(<param_name> = <param_value>) style call */
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	11685	symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	11686
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	11687	/* Get the value from a foo(<param_value>) style call */
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	11688	if (IN_param_value == NULL)
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	11689	IN_param_value = function_call_param_iterator.next();
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	11690	symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	11691	last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	11692
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	11693	if (typeid(*last_type_symbol) == typeid(string_type_name_c))
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	11694	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	11695
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	11696	symbol_c * return_type_symbol = &search_constant_type_c::dint_type_name;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	11697	s4o.print("(");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	11698	return_type_symbol->accept(*this);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	11699	s4o.print(")string_to_int(");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	11700	IN_param_value->accept(*this);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	11701	s4o.print(", 10)");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	11702	return NULL;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	11703
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	11704	}
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	11705
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	11706	ERROR;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	11707	}
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	11708
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	11709	}/function_string_to_dint/
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	11710	break;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	11711
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	11712	/****
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	11713	*STRING_TO_LINT
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	11714	*/
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	11715	case function_string_to_lint :
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	11716	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	11717	symbol_c *last_type_symbol = NULL;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	11718
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	11719	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	11720	identifier_c param_name("IN");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	11721	/* Get the value from a foo(<param_name> = <param_value>) style call */
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	11722	symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	11723
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	11724	/* Get the value from a foo(<param_value>) style call */
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	11725	if (IN_param_value == NULL)
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	11726	IN_param_value = function_call_param_iterator.next();
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	11727	symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	11728	last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	11729
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	11730	if (typeid(*last_type_symbol) == typeid(string_type_name_c))
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	11731	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	11732
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	11733	symbol_c * return_type_symbol = &search_constant_type_c::lint_type_name;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	11734	s4o.print("(");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	11735	return_type_symbol->accept(*this);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	11736	s4o.print(")string_to_int(");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	11737	IN_param_value->accept(*this);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	11738	s4o.print(", 10)");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	11739	return NULL;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	11740
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	11741	}
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	11742
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	11743	ERROR;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	11744	}
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	11745
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	11746	}/function_string_to_lint/
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	11747	break;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	11748
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	11749	/****
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	11750	*STRING_TO_USINT
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	11751	*/
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	11752	case function_string_to_usint :
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	11753	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	11754	symbol_c *last_type_symbol = NULL;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	11755
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	11756	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	11757	identifier_c param_name("IN");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	11758	/* Get the value from a foo(<param_name> = <param_value>) style call */
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	11759	symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	11760
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	11761	/* Get the value from a foo(<param_value>) style call */
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	11762	if (IN_param_value == NULL)
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	11763	IN_param_value = function_call_param_iterator.next();
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	11764	symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	11765	last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	11766
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	11767	if (typeid(*last_type_symbol) == typeid(string_type_name_c))
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	11768	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	11769
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	11770	symbol_c * return_type_symbol = &search_constant_type_c::usint_type_name;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	11771	s4o.print("(");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	11772	return_type_symbol->accept(*this);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	11773	s4o.print(")string_to_int(");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	11774	IN_param_value->accept(*this);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	11775	s4o.print(", 10)");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	11776	return NULL;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	11777
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	11778	}
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	11779
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	11780	ERROR;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	11781	}
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	11782
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	11783	}/function_string_to_usint/
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	11784	break;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	11785
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	11786	/****
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	11787	*STRING_TO_UINT
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	11788	*/
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	11789	case function_string_to_uint :
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	11790	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	11791	symbol_c *last_type_symbol = NULL;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	11792
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	11793	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	11794	identifier_c param_name("IN");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	11795	/* Get the value from a foo(<param_name> = <param_value>) style call */
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	11796	symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	11797
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	11798	/* Get the value from a foo(<param_value>) style call */
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	11799	if (IN_param_value == NULL)
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	11800	IN_param_value = function_call_param_iterator.next();
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	11801	symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	11802	last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	11803
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	11804	if (typeid(*last_type_symbol) == typeid(string_type_name_c))
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	11805	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	11806
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	11807	symbol_c * return_type_symbol = &search_constant_type_c::uint_type_name;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	11808	s4o.print("(");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	11809	return_type_symbol->accept(*this);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	11810	s4o.print(")string_to_int(");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	11811	IN_param_value->accept(*this);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	11812	s4o.print(", 10)");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	11813	return NULL;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	11814
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	11815	}
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	11816
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	11817	ERROR;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	11818	}
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	11819
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	11820	}/function_string_to_uint/
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	11821	break;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	11822
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	11823	/****
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	11824	*STRING_TO_UDINT
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	11825	*/
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	11826	case function_string_to_udint :
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	11827	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	11828	symbol_c *last_type_symbol = NULL;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	11829
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	11830	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	11831	identifier_c param_name("IN");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	11832	/* Get the value from a foo(<param_name> = <param_value>) style call */
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	11833	symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	11834
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	11835	/* Get the value from a foo(<param_value>) style call */
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	11836	if (IN_param_value == NULL)
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	11837	IN_param_value = function_call_param_iterator.next();
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	11838	symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	11839	last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	11840
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	11841	if (typeid(*last_type_symbol) == typeid(string_type_name_c))
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	11842	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	11843
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	11844	symbol_c * return_type_symbol = &search_constant_type_c::udint_type_name;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	11845	s4o.print("(");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	11846	return_type_symbol->accept(*this);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	11847	s4o.print(")string_to_int(");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	11848	IN_param_value->accept(*this);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	11849	s4o.print(", 10)");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	11850	return NULL;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	11851
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	11852	}
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	11853
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	11854	ERROR;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	11855	}
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	11856
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	11857	}/function_string_to_udint/
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	11858	break;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	11859
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	11860	/****
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	11861	*STRING_TO_ULINT
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	11862	*/
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	11863	case function_string_to_ulint :
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	11864	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	11865	symbol_c *last_type_symbol = NULL;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	11866
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	11867	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	11868	identifier_c param_name("IN");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	11869	/* Get the value from a foo(<param_name> = <param_value>) style call */
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	11870	symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	11871
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	11872	/* Get the value from a foo(<param_value>) style call */
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	11873	if (IN_param_value == NULL)
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	11874	IN_param_value = function_call_param_iterator.next();
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	11875	symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	11876	last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	11877
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	11878	if (typeid(*last_type_symbol) == typeid(string_type_name_c))
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	11879	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	11880
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	11881	symbol_c * return_type_symbol = &search_constant_type_c::ulint_type_name;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	11882	s4o.print("(");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	11883	return_type_symbol->accept(*this);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	11884	s4o.print(")string_to_int(");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	11885	IN_param_value->accept(*this);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	11886	s4o.print(", 10)");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	11887	return NULL;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	11888
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	11889	}
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	11890
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	11891	ERROR;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	11892	}
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	11893
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	11894	}/function_string_to_ulint/
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	11895	break;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	11896
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	11897	/****
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	11898	*STRING_TO_TIME
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	11899	*/
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	11900	case function_string_to_time :
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	11901	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	11902	symbol_c *last_type_symbol = NULL;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	11903
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	11904	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	11905	identifier_c param_name("IN");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	11906	/* Get the value from a foo(<param_name> = <param_value>) style call */
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	11907	symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	11908
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	11909	/* Get the value from a foo(<param_value>) style call */
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	11910	if (IN_param_value == NULL)
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	11911	IN_param_value = function_call_param_iterator.next();
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	11912	symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	11913	last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	11914
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	11915	if (typeid(*last_type_symbol) == typeid(string_type_name_c))
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	11916	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	11917
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	11918	symbol_c * return_type_symbol = &search_constant_type_c::time_type_name;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	11919	s4o.print("(");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	11920	return_type_symbol->accept(*this);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	11921	s4o.print(")string_to_time(");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	11922	IN_param_value->accept(*this);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	11923	s4o.print(")");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	11924	return NULL;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	11925
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	11926	}
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	11927
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	11928	ERROR;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	11929	}
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	11930
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	11931	}/function_string_to_time/
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	11932	break;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	11933
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	11934	/****
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	11935	*STRING_TO_BOOL
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	11936	*/
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	11937	case function_string_to_bool :
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	11938	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	11939	symbol_c *last_type_symbol = NULL;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	11940
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	11941	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	11942	identifier_c param_name("IN");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	11943	/* Get the value from a foo(<param_name> = <param_value>) style call */
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	11944	symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	11945
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	11946	/* Get the value from a foo(<param_value>) style call */
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	11947	if (IN_param_value == NULL)
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	11948	IN_param_value = function_call_param_iterator.next();
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	11949	symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	11950	last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	11951
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	11952	if (typeid(*last_type_symbol) == typeid(string_type_name_c))
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	11953	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	11954
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	11955	symbol_c * return_type_symbol = &search_constant_type_c::bool_type_name;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	11956	s4o.print("(");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	11957	return_type_symbol->accept(*this);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	11958	s4o.print(")string_to_int(");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	11959	IN_param_value->accept(*this);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	11960	s4o.print(", 16)");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	11961	return NULL;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	11962
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	11963	}
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	11964
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	11965	ERROR;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	11966	}
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	11967
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	11968	}/function_string_to_bool/
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	11969	break;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	11970
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	11971	/****
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	11972	*STRING_TO_BYTE
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	11973	*/
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	11974	case function_string_to_byte :
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	11975	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	11976	symbol_c *last_type_symbol = NULL;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	11977
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	11978	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	11979	identifier_c param_name("IN");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	11980	/* Get the value from a foo(<param_name> = <param_value>) style call */
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	11981	symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	11982
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	11983	/* Get the value from a foo(<param_value>) style call */
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	11984	if (IN_param_value == NULL)
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	11985	IN_param_value = function_call_param_iterator.next();
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	11986	symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	11987	last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	11988
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	11989	if (typeid(*last_type_symbol) == typeid(string_type_name_c))
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	11990	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	11991
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	11992	symbol_c * return_type_symbol = &search_constant_type_c::byte_type_name;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	11993	s4o.print("(");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	11994	return_type_symbol->accept(*this);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	11995	s4o.print(")string_to_int(");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	11996	IN_param_value->accept(*this);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	11997	s4o.print(", 16)");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	11998	return NULL;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	11999
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	12000	}
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	12001
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	12002	ERROR;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	12003	}
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	12004
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	12005	}/function_string_to_byte/
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	12006	break;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	12007
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	12008	/****
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	12009	*STRING_TO_WORD
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	12010	*/
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	12011	case function_string_to_word :
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	12012	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	12013	symbol_c *last_type_symbol = NULL;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	12014
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	12015	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	12016	identifier_c param_name("IN");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	12017	/* Get the value from a foo(<param_name> = <param_value>) style call */
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	12018	symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	12019
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	12020	/* Get the value from a foo(<param_value>) style call */
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	12021	if (IN_param_value == NULL)
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	12022	IN_param_value = function_call_param_iterator.next();
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	12023	symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	12024	last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	12025
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	12026	if (typeid(*last_type_symbol) == typeid(string_type_name_c))
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	12027	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	12028
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	12029	symbol_c * return_type_symbol = &search_constant_type_c::word_type_name;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	12030	s4o.print("(");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	12031	return_type_symbol->accept(*this);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	12032	s4o.print(")string_to_int(");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	12033	IN_param_value->accept(*this);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	12034	s4o.print(", 16)");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	12035	return NULL;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	12036
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	12037	}
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	12038
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	12039	ERROR;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	12040	}
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	12041
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	12042	}/function_string_to_word/
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	12043	break;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	12044
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	12045	/****
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	12046	*STRING_TO_DWORD
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	12047	*/
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	12048	case function_string_to_dword :
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	12049	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	12050	symbol_c *last_type_symbol = NULL;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	12051
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	12052	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	12053	identifier_c param_name("IN");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	12054	/* Get the value from a foo(<param_name> = <param_value>) style call */
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	12055	symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	12056
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	12057	/* Get the value from a foo(<param_value>) style call */
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	12058	if (IN_param_value == NULL)
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	12059	IN_param_value = function_call_param_iterator.next();
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	12060	symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	12061	last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	12062
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	12063	if (typeid(*last_type_symbol) == typeid(string_type_name_c))
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	12064	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	12065
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	12066	symbol_c * return_type_symbol = &search_constant_type_c::dword_type_name;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	12067	s4o.print("(");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	12068	return_type_symbol->accept(*this);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	12069	s4o.print(")string_to_int(");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	12070	IN_param_value->accept(*this);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	12071	s4o.print(", 16)");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	12072	return NULL;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	12073
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	12074	}
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	12075
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	12076	ERROR;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	12077	}
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	12078
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	12079	}/function_string_to_dword/
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	12080	break;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	12081
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	12082	/****
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	12083	*STRING_TO_LWORD
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	12084	*/
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	12085	case function_string_to_lword :
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	12086	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	12087	symbol_c *last_type_symbol = NULL;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	12088
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	12089	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	12090	identifier_c param_name("IN");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	12091	/* Get the value from a foo(<param_name> = <param_value>) style call */
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	12092	symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	12093
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	12094	/* Get the value from a foo(<param_value>) style call */
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	12095	if (IN_param_value == NULL)
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	12096	IN_param_value = function_call_param_iterator.next();
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	12097	symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	12098	last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	12099
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	12100	if (typeid(*last_type_symbol) == typeid(string_type_name_c))
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	12101	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	12102
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	12103	symbol_c * return_type_symbol = &search_constant_type_c::lword_type_name;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	12104	s4o.print("(");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	12105	return_type_symbol->accept(*this);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	12106	s4o.print(")string_to_int(");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	12107	IN_param_value->accept(*this);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	12108	s4o.print(", 16)");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	12109	return NULL;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	12110
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	12111	}
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	12112
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	12113	ERROR;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	12114	}
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	12115
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	12116	}/function_string_to_lword/
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	12117	break;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	12118
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	12119	/****
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	12120	*STRING_TO_DATE
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	12121	*/
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	12122	case function_string_to_date :
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	12123	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	12124	symbol_c *last_type_symbol = NULL;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	12125
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	12126	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	12127	identifier_c param_name("IN");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	12128	/* Get the value from a foo(<param_name> = <param_value>) style call */
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	12129	symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	12130
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	12131	/* Get the value from a foo(<param_value>) style call */
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	12132	if (IN_param_value == NULL)
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	12133	IN_param_value = function_call_param_iterator.next();
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	12134	symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	12135	last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	12136
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	12137	if (typeid(*last_type_symbol) == typeid(string_type_name_c))
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	12138	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	12139
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	12140	symbol_c * return_type_symbol = &search_constant_type_c::date_type_name;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	12141	s4o.print("(");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	12142	return_type_symbol->accept(*this);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	12143	s4o.print(")string_to_time(");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	12144	IN_param_value->accept(*this);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	12145	s4o.print(")");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	12146	return NULL;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	12147
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	12148	}
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	12149
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	12150	ERROR;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	12151	}
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	12152
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	12153	}/function_string_to_date/
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	12154	break;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	12155
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	12156	/****
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	12157	*STRING_TO_TOD
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	12158	*/
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	12159	case function_string_to_tod :
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	12160	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	12161	symbol_c *last_type_symbol = NULL;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	12162
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	12163	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	12164	identifier_c param_name("IN");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	12165	/* Get the value from a foo(<param_name> = <param_value>) style call */
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	12166	symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	12167
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	12168	/* Get the value from a foo(<param_value>) style call */
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	12169	if (IN_param_value == NULL)
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	12170	IN_param_value = function_call_param_iterator.next();
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	12171	symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	12172	last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	12173
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	12174	if (typeid(*last_type_symbol) == typeid(string_type_name_c))
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	12175	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	12176
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	12177	symbol_c * return_type_symbol = &search_constant_type_c::tod_type_name;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	12178	s4o.print("(");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	12179	return_type_symbol->accept(*this);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	12180	s4o.print(")string_to_time(");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	12181	IN_param_value->accept(*this);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	12182	s4o.print(")");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	12183	return NULL;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	12184
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	12185	}
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	12186
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	12187	ERROR;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	12188	}
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	12189
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	12190	}/function_string_to_tod/
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	12191	break;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	12192
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	12193	/****
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	12194	*STRING_TO_DT
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	12195	*/
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	12196	case function_string_to_dt :
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	12197	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	12198	symbol_c *last_type_symbol = NULL;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	12199
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	12200	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	12201	identifier_c param_name("IN");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	12202	/* Get the value from a foo(<param_name> = <param_value>) style call */
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	12203	symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	12204
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	12205	/* Get the value from a foo(<param_value>) style call */
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	12206	if (IN_param_value == NULL)
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	12207	IN_param_value = function_call_param_iterator.next();
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	12208	symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	12209	last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	12210
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	12211	if (typeid(*last_type_symbol) == typeid(string_type_name_c))
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	12212	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	12213
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	12214	symbol_c * return_type_symbol = &search_constant_type_c::dt_type_name;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	12215	s4o.print("(");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	12216	return_type_symbol->accept(*this);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	12217	s4o.print(")string_to_time(");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	12218	IN_param_value->accept(*this);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	12219	s4o.print(")");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	12220	return NULL;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	12221
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	12222	}
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	12223
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	12224	ERROR;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	12225	}
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	12226
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	12227	}/function_string_to_dt/
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	12228	break;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	12229
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	12230	/****
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	12231	*WSTRING_TO_REAL
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	12232	*/
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	12233	case function_wstring_to_real :
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	12234	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	12235	symbol_c *last_type_symbol = NULL;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	12236
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	12237	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	12238	identifier_c param_name("IN");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	12239	/* Get the value from a foo(<param_name> = <param_value>) style call */
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	12240	symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	12241
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	12242	/* Get the value from a foo(<param_value>) style call */
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	12243	if (IN_param_value == NULL)
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	12244	IN_param_value = function_call_param_iterator.next();
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	12245	symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	12246	last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	12247
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	12248	if (typeid(*last_type_symbol) == typeid(wstring_type_name_c))
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	12249	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	12250
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	12251	symbol_c * return_type_symbol = &search_constant_type_c::real_type_name;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	12252	s4o.print("(");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	12253	return_type_symbol->accept(*this);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	12254	s4o.print(")string_to_int(");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	12255	IN_param_value->accept(*this);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	12256	s4o.print(", 10)");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	12257	return NULL;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	12258
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	12259	}
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	12260
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	12261	ERROR;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	12262	}
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	12263
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	12264	}/function_wstring_to_real/
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	12265	break;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	12266
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	12267	/****
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	12268	*WSTRING_TO_LREAL
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	12269	*/
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	12270	case function_wstring_to_lreal :
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	12271	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	12272	symbol_c *last_type_symbol = NULL;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	12273
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	12274	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	12275	identifier_c param_name("IN");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	12276	/* Get the value from a foo(<param_name> = <param_value>) style call */
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	12277	symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	12278
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	12279	/* Get the value from a foo(<param_value>) style call */
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	12280	if (IN_param_value == NULL)
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	12281	IN_param_value = function_call_param_iterator.next();
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	12282	symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	12283	last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	12284
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	12285	if (typeid(*last_type_symbol) == typeid(wstring_type_name_c))
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	12286	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	12287
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	12288	symbol_c * return_type_symbol = &search_constant_type_c::lreal_type_name;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	12289	s4o.print("(");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	12290	return_type_symbol->accept(*this);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	12291	s4o.print(")string_to_int(");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	12292	IN_param_value->accept(*this);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	12293	s4o.print(", 10)");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	12294	return NULL;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	12295
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	12296	}
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	12297
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	12298	ERROR;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	12299	}
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	12300
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	12301	}/function_wstring_to_lreal/
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	12302	break;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	12303
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	12304	/****
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	12305	*WSTRING_TO_SINT
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	12306	*/
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	12307	case function_wstring_to_sint :
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	12308	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	12309	symbol_c *last_type_symbol = NULL;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	12310
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	12311	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	12312	identifier_c param_name("IN");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	12313	/* Get the value from a foo(<param_name> = <param_value>) style call */
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	12314	symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	12315
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	12316	/* Get the value from a foo(<param_value>) style call */
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	12317	if (IN_param_value == NULL)
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	12318	IN_param_value = function_call_param_iterator.next();
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	12319	symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	12320	last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	12321
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	12322	if (typeid(*last_type_symbol) == typeid(wstring_type_name_c))
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	12323	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	12324
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	12325	symbol_c * return_type_symbol = &search_constant_type_c::sint_type_name;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	12326	s4o.print("(");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	12327	return_type_symbol->accept(*this);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	12328	s4o.print(")string_to_int(");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	12329	IN_param_value->accept(*this);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	12330	s4o.print(", 10)");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	12331	return NULL;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	12332
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	12333	}
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	12334
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	12335	ERROR;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	12336	}
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	12337
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	12338	}/function_wstring_to_sint/
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	12339	break;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	12340
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	12341	/****
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	12342	*WSTRING_TO_INT
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	12343	*/
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	12344	case function_wstring_to_int :
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	12345	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	12346	symbol_c *last_type_symbol = NULL;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	12347
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	12348	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	12349	identifier_c param_name("IN");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	12350	/* Get the value from a foo(<param_name> = <param_value>) style call */
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	12351	symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	12352
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	12353	/* Get the value from a foo(<param_value>) style call */
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	12354	if (IN_param_value == NULL)
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	12355	IN_param_value = function_call_param_iterator.next();
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	12356	symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	12357	last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	12358
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	12359	if (typeid(*last_type_symbol) == typeid(wstring_type_name_c))
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	12360	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	12361
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	12362	symbol_c * return_type_symbol = &search_constant_type_c::int_type_name;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	12363	s4o.print("(");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	12364	return_type_symbol->accept(*this);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	12365	s4o.print(")string_to_int(");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	12366	IN_param_value->accept(*this);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	12367	s4o.print(", 10)");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	12368	return NULL;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	12369
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	12370	}
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	12371
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	12372	ERROR;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	12373	}
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	12374
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	12375	}/function_wstring_to_int/
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	12376	break;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	12377
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	12378	/****
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	12379	*WSTRING_TO_DINT
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	12380	*/
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	12381	case function_wstring_to_dint :
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	12382	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	12383	symbol_c *last_type_symbol = NULL;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	12384
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	12385	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	12386	identifier_c param_name("IN");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	12387	/* Get the value from a foo(<param_name> = <param_value>) style call */
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	12388	symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	12389
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	12390	/* Get the value from a foo(<param_value>) style call */
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	12391	if (IN_param_value == NULL)
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	12392	IN_param_value = function_call_param_iterator.next();
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	12393	symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	12394	last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	12395
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	12396	if (typeid(*last_type_symbol) == typeid(wstring_type_name_c))
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	12397	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	12398
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	12399	symbol_c * return_type_symbol = &search_constant_type_c::dint_type_name;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	12400	s4o.print("(");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	12401	return_type_symbol->accept(*this);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	12402	s4o.print(")string_to_int(");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	12403	IN_param_value->accept(*this);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	12404	s4o.print(", 10)");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	12405	return NULL;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	12406
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	12407	}
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	12408
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	12409	ERROR;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	12410	}
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	12411
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	12412	}/function_wstring_to_dint/
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	12413	break;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	12414
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	12415	/****
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	12416	*WSTRING_TO_LINT
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	12417	*/
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	12418	case function_wstring_to_lint :
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	12419	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	12420	symbol_c *last_type_symbol = NULL;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	12421
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	12422	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	12423	identifier_c param_name("IN");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	12424	/* Get the value from a foo(<param_name> = <param_value>) style call */
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	12425	symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	12426
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	12427	/* Get the value from a foo(<param_value>) style call */
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	12428	if (IN_param_value == NULL)
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	12429	IN_param_value = function_call_param_iterator.next();
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	12430	symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	12431	last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	12432
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	12433	if (typeid(*last_type_symbol) == typeid(wstring_type_name_c))
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	12434	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	12435
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	12436	symbol_c * return_type_symbol = &search_constant_type_c::lint_type_name;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	12437	s4o.print("(");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	12438	return_type_symbol->accept(*this);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	12439	s4o.print(")string_to_int(");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	12440	IN_param_value->accept(*this);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	12441	s4o.print(", 10)");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	12442	return NULL;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	12443
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	12444	}
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	12445
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	12446	ERROR;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	12447	}
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	12448
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	12449	}/function_wstring_to_lint/
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	12450	break;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	12451
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	12452	/****
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	12453	*WSTRING_TO_USINT
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	12454	*/
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	12455	case function_wstring_to_usint :
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	12456	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	12457	symbol_c *last_type_symbol = NULL;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	12458
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	12459	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	12460	identifier_c param_name("IN");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	12461	/* Get the value from a foo(<param_name> = <param_value>) style call */
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	12462	symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	12463
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	12464	/* Get the value from a foo(<param_value>) style call */
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	12465	if (IN_param_value == NULL)
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	12466	IN_param_value = function_call_param_iterator.next();
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	12467	symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	12468	last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	12469
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	12470	if (typeid(*last_type_symbol) == typeid(wstring_type_name_c))
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	12471	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	12472
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	12473	symbol_c * return_type_symbol = &search_constant_type_c::usint_type_name;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	12474	s4o.print("(");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	12475	return_type_symbol->accept(*this);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	12476	s4o.print(")string_to_int(");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	12477	IN_param_value->accept(*this);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	12478	s4o.print(", 10)");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	12479	return NULL;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	12480
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	12481	}
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	12482
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	12483	ERROR;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	12484	}
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	12485
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	12486	}/function_wstring_to_usint/
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	12487	break;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	12488
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	12489	/****
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	12490	*WSTRING_TO_UINT
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	12491	*/
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	12492	case function_wstring_to_uint :
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	12493	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	12494	symbol_c *last_type_symbol = NULL;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	12495
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	12496	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	12497	identifier_c param_name("IN");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	12498	/* Get the value from a foo(<param_name> = <param_value>) style call */
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	12499	symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	12500
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	12501	/* Get the value from a foo(<param_value>) style call */
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	12502	if (IN_param_value == NULL)
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	12503	IN_param_value = function_call_param_iterator.next();
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	12504	symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	12505	last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	12506
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	12507	if (typeid(*last_type_symbol) == typeid(wstring_type_name_c))
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	12508	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	12509
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	12510	symbol_c * return_type_symbol = &search_constant_type_c::uint_type_name;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	12511	s4o.print("(");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	12512	return_type_symbol->accept(*this);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	12513	s4o.print(")string_to_int(");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	12514	IN_param_value->accept(*this);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	12515	s4o.print(", 10)");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	12516	return NULL;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	12517
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	12518	}
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	12519
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	12520	ERROR;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	12521	}
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	12522
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	12523	}/function_wstring_to_uint/
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	12524	break;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	12525
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	12526	/****
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	12527	*WSTRING_TO_UDINT
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	12528	*/
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	12529	case function_wstring_to_udint :
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	12530	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	12531	symbol_c *last_type_symbol = NULL;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	12532
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	12533	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	12534	identifier_c param_name("IN");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	12535	/* Get the value from a foo(<param_name> = <param_value>) style call */
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	12536	symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	12537
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	12538	/* Get the value from a foo(<param_value>) style call */
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	12539	if (IN_param_value == NULL)
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	12540	IN_param_value = function_call_param_iterator.next();
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	12541	symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	12542	last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	12543
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	12544	if (typeid(*last_type_symbol) == typeid(wstring_type_name_c))
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	12545	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	12546
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	12547	symbol_c * return_type_symbol = &search_constant_type_c::udint_type_name;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	12548	s4o.print("(");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	12549	return_type_symbol->accept(*this);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	12550	s4o.print(")string_to_int(");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	12551	IN_param_value->accept(*this);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	12552	s4o.print(", 10)");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	12553	return NULL;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	12554
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	12555	}
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	12556
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	12557	ERROR;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	12558	}
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	12559
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	12560	}/function_wstring_to_udint/
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	12561	break;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	12562
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	12563	/****
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	12564	*WSTRING_TO_ULINT
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	12565	*/
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	12566	case function_wstring_to_ulint :
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	12567	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	12568	symbol_c *last_type_symbol = NULL;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	12569
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	12570	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	12571	identifier_c param_name("IN");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	12572	/* Get the value from a foo(<param_name> = <param_value>) style call */
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	12573	symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	12574
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	12575	/* Get the value from a foo(<param_value>) style call */
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	12576	if (IN_param_value == NULL)
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	12577	IN_param_value = function_call_param_iterator.next();
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	12578	symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	12579	last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	12580
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	12581	if (typeid(*last_type_symbol) == typeid(wstring_type_name_c))
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	12582	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	12583
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	12584	symbol_c * return_type_symbol = &search_constant_type_c::ulint_type_name;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	12585	s4o.print("(");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	12586	return_type_symbol->accept(*this);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	12587	s4o.print(")string_to_int(");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	12588	IN_param_value->accept(*this);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	12589	s4o.print(", 10)");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	12590	return NULL;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	12591
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	12592	}
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	12593
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	12594	ERROR;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	12595	}
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	12596
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	12597	}/function_wstring_to_ulint/
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	12598	break;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	12599
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	12600	/****
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	12601	*WSTRING_TO_TIME
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	12602	*/
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	12603	case function_wstring_to_time :
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	12604	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	12605	symbol_c *last_type_symbol = NULL;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	12606
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	12607	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	12608	identifier_c param_name("IN");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	12609	/* Get the value from a foo(<param_name> = <param_value>) style call */
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	12610	symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	12611
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	12612	/* Get the value from a foo(<param_value>) style call */
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	12613	if (IN_param_value == NULL)
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	12614	IN_param_value = function_call_param_iterator.next();
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	12615	symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	12616	last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	12617
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	12618	if (typeid(*last_type_symbol) == typeid(wstring_type_name_c))
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	12619	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	12620
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	12621	symbol_c * return_type_symbol = &search_constant_type_c::time_type_name;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	12622	s4o.print("(");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	12623	return_type_symbol->accept(*this);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	12624	s4o.print(")string_to_time(");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	12625	IN_param_value->accept(*this);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	12626	s4o.print(")");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	12627	return NULL;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	12628
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	12629	}
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	12630
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	12631	ERROR;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	12632	}
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	12633
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	12634	}/function_wstring_to_time/
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	12635	break;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	12636
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	12637	/****
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	12638	*WSTRING_TO_BOOL
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	12639	*/
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	12640	case function_wstring_to_bool :
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	12641	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	12642	symbol_c *last_type_symbol = NULL;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	12643
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	12644	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	12645	identifier_c param_name("IN");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	12646	/* Get the value from a foo(<param_name> = <param_value>) style call */
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	12647	symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	12648
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	12649	/* Get the value from a foo(<param_value>) style call */
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	12650	if (IN_param_value == NULL)
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	12651	IN_param_value = function_call_param_iterator.next();
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	12652	symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	12653	last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	12654
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	12655	if (typeid(*last_type_symbol) == typeid(wstring_type_name_c))
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	12656	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	12657
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	12658	symbol_c * return_type_symbol = &search_constant_type_c::bool_type_name;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	12659	s4o.print("(");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	12660	return_type_symbol->accept(*this);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	12661	s4o.print(")string_to_int(");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	12662	IN_param_value->accept(*this);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	12663	s4o.print(", 16)");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	12664	return NULL;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	12665
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	12666	}
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	12667
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	12668	ERROR;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	12669	}
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	12670
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	12671	}/function_wstring_to_bool/
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	12672	break;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	12673
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	12674	/****
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	12675	*WSTRING_TO_BYTE
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	12676	*/
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	12677	case function_wstring_to_byte :
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	12678	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	12679	symbol_c *last_type_symbol = NULL;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	12680
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	12681	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	12682	identifier_c param_name("IN");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	12683	/* Get the value from a foo(<param_name> = <param_value>) style call */
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	12684	symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	12685
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	12686	/* Get the value from a foo(<param_value>) style call */
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	12687	if (IN_param_value == NULL)
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	12688	IN_param_value = function_call_param_iterator.next();
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	12689	symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	12690	last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	12691
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	12692	if (typeid(*last_type_symbol) == typeid(wstring_type_name_c))
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	12693	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	12694
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	12695	symbol_c * return_type_symbol = &search_constant_type_c::byte_type_name;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	12696	s4o.print("(");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	12697	return_type_symbol->accept(*this);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	12698	s4o.print(")string_to_int(");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	12699	IN_param_value->accept(*this);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	12700	s4o.print(", 16)");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	12701	return NULL;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	12702
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	12703	}
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	12704
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	12705	ERROR;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	12706	}
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	12707
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	12708	}/function_wstring_to_byte/
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	12709	break;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	12710
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	12711	/****
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	12712	*WSTRING_TO_WORD
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	12713	*/
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	12714	case function_wstring_to_word :
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	12715	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	12716	symbol_c *last_type_symbol = NULL;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	12717
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	12718	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	12719	identifier_c param_name("IN");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	12720	/* Get the value from a foo(<param_name> = <param_value>) style call */
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	12721	symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	12722
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	12723	/* Get the value from a foo(<param_value>) style call */
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	12724	if (IN_param_value == NULL)
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	12725	IN_param_value = function_call_param_iterator.next();
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	12726	symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	12727	last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	12728
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	12729	if (typeid(*last_type_symbol) == typeid(wstring_type_name_c))
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	12730	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	12731
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	12732	symbol_c * return_type_symbol = &search_constant_type_c::word_type_name;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	12733	s4o.print("(");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	12734	return_type_symbol->accept(*this);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	12735	s4o.print(")string_to_int(");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	12736	IN_param_value->accept(*this);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	12737	s4o.print(", 16)");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	12738	return NULL;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	12739
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	12740	}
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	12741
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	12742	ERROR;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	12743	}
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	12744
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	12745	}/function_wstring_to_word/
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	12746	break;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	12747
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	12748	/****
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	12749	*WSTRING_TO_DWORD
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	12750	*/
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	12751	case function_wstring_to_dword :
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	12752	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	12753	symbol_c *last_type_symbol = NULL;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	12754
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	12755	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	12756	identifier_c param_name("IN");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	12757	/* Get the value from a foo(<param_name> = <param_value>) style call */
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	12758	symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	12759
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	12760	/* Get the value from a foo(<param_value>) style call */
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	12761	if (IN_param_value == NULL)
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	12762	IN_param_value = function_call_param_iterator.next();
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	12763	symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	12764	last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	12765
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	12766	if (typeid(*last_type_symbol) == typeid(wstring_type_name_c))
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	12767	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	12768
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	12769	symbol_c * return_type_symbol = &search_constant_type_c::dword_type_name;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	12770	s4o.print("(");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	12771	return_type_symbol->accept(*this);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	12772	s4o.print(")string_to_int(");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	12773	IN_param_value->accept(*this);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	12774	s4o.print(", 16)");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	12775	return NULL;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	12776
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	12777	}
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	12778
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	12779	ERROR;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	12780	}
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	12781
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	12782	}/function_wstring_to_dword/
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	12783	break;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	12784
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	12785	/****
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	12786	*WSTRING_TO_LWORD
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	12787	*/
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	12788	case function_wstring_to_lword :
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	12789	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	12790	symbol_c *last_type_symbol = NULL;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	12791
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	12792	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	12793	identifier_c param_name("IN");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	12794	/* Get the value from a foo(<param_name> = <param_value>) style call */
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	12795	symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	12796
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	12797	/* Get the value from a foo(<param_value>) style call */
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	12798	if (IN_param_value == NULL)
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	12799	IN_param_value = function_call_param_iterator.next();
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	12800	symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	12801	last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	12802
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	12803	if (typeid(*last_type_symbol) == typeid(wstring_type_name_c))
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	12804	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	12805
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	12806	symbol_c * return_type_symbol = &search_constant_type_c::lword_type_name;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	12807	s4o.print("(");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	12808	return_type_symbol->accept(*this);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	12809	s4o.print(")string_to_int(");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	12810	IN_param_value->accept(*this);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	12811	s4o.print(", 16)");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	12812	return NULL;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	12813
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	12814	}
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	12815
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	12816	ERROR;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	12817	}
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	12818
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	12819	}/function_wstring_to_lword/
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	12820	break;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	12821
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	12822	/****
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	12823	*WSTRING_TO_DATE
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	12824	*/
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	12825	case function_wstring_to_date :
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	12826	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	12827	symbol_c *last_type_symbol = NULL;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	12828
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	12829	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	12830	identifier_c param_name("IN");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	12831	/* Get the value from a foo(<param_name> = <param_value>) style call */
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	12832	symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	12833
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	12834	/* Get the value from a foo(<param_value>) style call */
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	12835	if (IN_param_value == NULL)
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	12836	IN_param_value = function_call_param_iterator.next();
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	12837	symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	12838	last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	12839
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	12840	if (typeid(*last_type_symbol) == typeid(wstring_type_name_c))
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	12841	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	12842
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	12843	symbol_c * return_type_symbol = &search_constant_type_c::date_type_name;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	12844	s4o.print("(");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	12845	return_type_symbol->accept(*this);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	12846	s4o.print(")string_to_time(");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	12847	IN_param_value->accept(*this);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	12848	s4o.print(")");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	12849	return NULL;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	12850
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	12851	}
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	12852
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	12853	ERROR;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	12854	}
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	12855
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	12856	}/function_wstring_to_date/
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	12857	break;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	12858
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	12859	/****
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	12860	*WSTRING_TO_TOD
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	12861	*/
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	12862	case function_wstring_to_tod :
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	12863	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	12864	symbol_c *last_type_symbol = NULL;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	12865
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	12866	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	12867	identifier_c param_name("IN");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	12868	/* Get the value from a foo(<param_name> = <param_value>) style call */
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	12869	symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	12870
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	12871	/* Get the value from a foo(<param_value>) style call */
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	12872	if (IN_param_value == NULL)
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	12873	IN_param_value = function_call_param_iterator.next();
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	12874	symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	12875	last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	12876
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	12877	if (typeid(*last_type_symbol) == typeid(wstring_type_name_c))
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	12878	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	12879
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	12880	symbol_c * return_type_symbol = &search_constant_type_c::tod_type_name;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	12881	s4o.print("(");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	12882	return_type_symbol->accept(*this);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	12883	s4o.print(")string_to_time(");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	12884	IN_param_value->accept(*this);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	12885	s4o.print(")");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	12886	return NULL;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	12887
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	12888	}
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	12889
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	12890	ERROR;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	12891	}
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	12892
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	12893	}/function_wstring_to_tod/
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	12894	break;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	12895
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	12896	/****
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	12897	*WSTRING_TO_DT
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	12898	*/
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	12899	case function_wstring_to_dt :
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	12900	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	12901	symbol_c *last_type_symbol = NULL;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	12902
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	12903	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	12904	identifier_c param_name("IN");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	12905	/* Get the value from a foo(<param_name> = <param_value>) style call */
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	12906	symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	12907
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	12908	/* Get the value from a foo(<param_value>) style call */
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	12909	if (IN_param_value == NULL)
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	12910	IN_param_value = function_call_param_iterator.next();
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	12911	symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	12912	last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	12913
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	12914	if (typeid(*last_type_symbol) == typeid(wstring_type_name_c))
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	12915	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	12916
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	12917	symbol_c * return_type_symbol = &search_constant_type_c::dt_type_name;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	12918	s4o.print("(");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	12919	return_type_symbol->accept(*this);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	12920	s4o.print(")string_to_time(");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	12921	IN_param_value->accept(*this);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	12922	s4o.print(")");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	12923	return NULL;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	12924
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	12925	}
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	12926
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	12927	ERROR;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	12928	}
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	12929
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	12930	}/function_wstring_to_dt/
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	12931	break;
33 4507beb2aac6 preliminary std lib support for ST etisserant parents: diff changeset	12932
4507beb2aac6 preliminary std lib support for ST etisserant parents: diff changeset	12933	/****
4507beb2aac6 preliminary std lib support for ST etisserant parents: diff changeset	12934	*DATE_TO_REAL
4507beb2aac6 preliminary std lib support for ST etisserant parents: diff changeset	12935	*/
35 9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	12936	case function_date_to_real :
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	12937	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	12938	symbol_c *last_type_symbol = NULL;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	12939
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	12940	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	12941	identifier_c param_name("IN");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	12942	/* Get the value from a foo(<param_name> = <param_value>) style call */
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	12943	symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	12944
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	12945	/* Get the value from a foo(<param_value>) style call */
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	12946	if (IN_param_value == NULL)
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	12947	IN_param_value = function_call_param_iterator.next();
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	12948	symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	12949	last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	12950
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	12951	if (typeid(*last_type_symbol) == typeid(date_type_name_c))
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	12952	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	12953
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	12954	symbol_c * return_type_symbol = &search_constant_type_c::real_type_name;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	12955	s4o.print("(");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	12956	return_type_symbol->accept(*this);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	12957	s4o.print(")time_to_real(");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	12958	IN_param_value->accept(*this);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	12959	s4o.print(")");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	12960	return NULL;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	12961
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	12962	}
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	12963
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	12964	ERROR;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	12965	}
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	12966
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	12967	}/function_date_to_real/
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	12968	break;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	12969
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	12970	/****
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	12971	*DATE_TO_LREAL
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	12972	*/
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	12973	case function_date_to_lreal :
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	12974	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	12975	symbol_c *last_type_symbol = NULL;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	12976
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	12977	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	12978	identifier_c param_name("IN");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	12979	/* Get the value from a foo(<param_name> = <param_value>) style call */
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	12980	symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	12981
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	12982	/* Get the value from a foo(<param_value>) style call */
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	12983	if (IN_param_value == NULL)
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	12984	IN_param_value = function_call_param_iterator.next();
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	12985	symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	12986	last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	12987
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	12988	if (typeid(*last_type_symbol) == typeid(date_type_name_c))
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	12989	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	12990
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	12991	symbol_c * return_type_symbol = &search_constant_type_c::lreal_type_name;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	12992	s4o.print("(");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	12993	return_type_symbol->accept(*this);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	12994	s4o.print(")time_to_real(");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	12995	IN_param_value->accept(*this);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	12996	s4o.print(")");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	12997	return NULL;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	12998
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	12999	}
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	13000
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	13001	ERROR;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	13002	}
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	13003
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	13004	}/function_date_to_lreal/
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	13005	break;
33 4507beb2aac6 preliminary std lib support for ST etisserant parents: diff changeset	13006
4507beb2aac6 preliminary std lib support for ST etisserant parents: diff changeset	13007	/****
4507beb2aac6 preliminary std lib support for ST etisserant parents: diff changeset	13008	*DATE_TO_SINT
4507beb2aac6 preliminary std lib support for ST etisserant parents: diff changeset	13009	*/
35 9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	13010	case function_date_to_sint :
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	13011	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	13012	symbol_c *last_type_symbol = NULL;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	13013
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	13014	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	13015	identifier_c param_name("IN");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	13016	/* Get the value from a foo(<param_name> = <param_value>) style call */
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	13017	symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	13018
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	13019	/* Get the value from a foo(<param_value>) style call */
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	13020	if (IN_param_value == NULL)
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	13021	IN_param_value = function_call_param_iterator.next();
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	13022	symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	13023	last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	13024
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	13025	if (typeid(*last_type_symbol) == typeid(date_type_name_c))
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	13026	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	13027
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	13028	symbol_c * return_type_symbol = &search_constant_type_c::sint_type_name;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	13029	s4o.print("(");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	13030	return_type_symbol->accept(*this);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	13031	s4o.print(")time_to_real(");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	13032	IN_param_value->accept(*this);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	13033	s4o.print(")");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	13034	return NULL;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	13035
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	13036	}
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	13037
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	13038	ERROR;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	13039	}
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	13040
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	13041	}/function_date_to_sint/
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	13042	break;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	13043
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	13044	/****
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	13045	*DATE_TO_INT
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	13046	*/
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	13047	case function_date_to_int :
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	13048	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	13049	symbol_c *last_type_symbol = NULL;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	13050
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	13051	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	13052	identifier_c param_name("IN");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	13053	/* Get the value from a foo(<param_name> = <param_value>) style call */
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	13054	symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	13055
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	13056	/* Get the value from a foo(<param_value>) style call */
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	13057	if (IN_param_value == NULL)
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	13058	IN_param_value = function_call_param_iterator.next();
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	13059	symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	13060	last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	13061
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	13062	if (typeid(*last_type_symbol) == typeid(date_type_name_c))
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	13063	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	13064
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	13065	symbol_c * return_type_symbol = &search_constant_type_c::int_type_name;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	13066	s4o.print("(");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	13067	return_type_symbol->accept(*this);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	13068	s4o.print(")time_to_real(");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	13069	IN_param_value->accept(*this);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	13070	s4o.print(")");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	13071	return NULL;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	13072
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	13073	}
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	13074
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	13075	ERROR;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	13076	}
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	13077
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	13078	}/function_date_to_int/
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	13079	break;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	13080
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	13081	/****
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	13082	*DATE_TO_DINT
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	13083	*/
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	13084	case function_date_to_dint :
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	13085	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	13086	symbol_c *last_type_symbol = NULL;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	13087
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	13088	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	13089	identifier_c param_name("IN");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	13090	/* Get the value from a foo(<param_name> = <param_value>) style call */
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	13091	symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	13092
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	13093	/* Get the value from a foo(<param_value>) style call */
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	13094	if (IN_param_value == NULL)
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	13095	IN_param_value = function_call_param_iterator.next();
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	13096	symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	13097	last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	13098
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	13099	if (typeid(*last_type_symbol) == typeid(date_type_name_c))
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	13100	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	13101
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	13102	symbol_c * return_type_symbol = &search_constant_type_c::dint_type_name;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	13103	s4o.print("(");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	13104	return_type_symbol->accept(*this);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	13105	s4o.print(")time_to_real(");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	13106	IN_param_value->accept(*this);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	13107	s4o.print(")");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	13108	return NULL;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	13109
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	13110	}
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	13111
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	13112	ERROR;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	13113	}
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	13114
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	13115	}/function_date_to_dint/
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	13116	break;
33 4507beb2aac6 preliminary std lib support for ST etisserant parents: diff changeset	13117
4507beb2aac6 preliminary std lib support for ST etisserant parents: diff changeset	13118	/****
4507beb2aac6 preliminary std lib support for ST etisserant parents: diff changeset	13119	*DATE_TO_LINT
4507beb2aac6 preliminary std lib support for ST etisserant parents: diff changeset	13120	*/
35 9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	13121	case function_date_to_lint :
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	13122	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	13123	symbol_c *last_type_symbol = NULL;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	13124
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	13125	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	13126	identifier_c param_name("IN");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	13127	/* Get the value from a foo(<param_name> = <param_value>) style call */
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	13128	symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	13129
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	13130	/* Get the value from a foo(<param_value>) style call */
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	13131	if (IN_param_value == NULL)
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	13132	IN_param_value = function_call_param_iterator.next();
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	13133	symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	13134	last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	13135
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	13136	if (typeid(*last_type_symbol) == typeid(date_type_name_c))
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	13137	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	13138
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	13139	symbol_c * return_type_symbol = &search_constant_type_c::lint_type_name;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	13140	s4o.print("(");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	13141	return_type_symbol->accept(*this);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	13142	s4o.print(")time_to_real(");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	13143	IN_param_value->accept(*this);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	13144	s4o.print(")");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	13145	return NULL;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	13146
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	13147	}
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	13148
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	13149	ERROR;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	13150	}
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	13151
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	13152	}/function_date_to_lint/
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	13153	break;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	13154
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	13155	/****
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	13156	*DATE_TO_USINT
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	13157	*/
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	13158	case function_date_to_usint :
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	13159	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	13160	symbol_c *last_type_symbol = NULL;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	13161
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	13162	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	13163	identifier_c param_name("IN");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	13164	/* Get the value from a foo(<param_name> = <param_value>) style call */
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	13165	symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	13166
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	13167	/* Get the value from a foo(<param_value>) style call */
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	13168	if (IN_param_value == NULL)
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	13169	IN_param_value = function_call_param_iterator.next();
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	13170	symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	13171	last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	13172
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	13173	if (typeid(*last_type_symbol) == typeid(date_type_name_c))
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	13174	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	13175
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	13176	symbol_c * return_type_symbol = &search_constant_type_c::usint_type_name;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	13177	s4o.print("(");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	13178	return_type_symbol->accept(*this);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	13179	s4o.print(")time_to_real(");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	13180	IN_param_value->accept(*this);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	13181	s4o.print(")");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	13182	return NULL;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	13183
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	13184	}
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	13185
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	13186	ERROR;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	13187	}
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	13188
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	13189	}/function_date_to_usint/
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	13190	break;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	13191
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	13192	/****
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	13193	*DATE_TO_UINT
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	13194	*/
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	13195	case function_date_to_uint :
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	13196	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	13197	symbol_c *last_type_symbol = NULL;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	13198
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	13199	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	13200	identifier_c param_name("IN");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	13201	/* Get the value from a foo(<param_name> = <param_value>) style call */
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	13202	symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	13203
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	13204	/* Get the value from a foo(<param_value>) style call */
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	13205	if (IN_param_value == NULL)
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	13206	IN_param_value = function_call_param_iterator.next();
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	13207	symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	13208	last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	13209
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	13210	if (typeid(*last_type_symbol) == typeid(date_type_name_c))
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	13211	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	13212
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	13213	symbol_c * return_type_symbol = &search_constant_type_c::uint_type_name;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	13214	s4o.print("(");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	13215	return_type_symbol->accept(*this);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	13216	s4o.print(")time_to_real(");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	13217	IN_param_value->accept(*this);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	13218	s4o.print(")");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	13219	return NULL;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	13220
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	13221	}
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	13222
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	13223	ERROR;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	13224	}
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	13225
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	13226	}/function_date_to_uint/
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	13227	break;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	13228
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	13229	/****
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	13230	*DATE_TO_UDINT
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	13231	*/
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	13232	case function_date_to_udint :
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	13233	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	13234	symbol_c *last_type_symbol = NULL;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	13235
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	13236	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	13237	identifier_c param_name("IN");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	13238	/* Get the value from a foo(<param_name> = <param_value>) style call */
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	13239	symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	13240
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	13241	/* Get the value from a foo(<param_value>) style call */
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	13242	if (IN_param_value == NULL)
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	13243	IN_param_value = function_call_param_iterator.next();
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	13244	symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	13245	last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	13246
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	13247	if (typeid(*last_type_symbol) == typeid(date_type_name_c))
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	13248	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	13249
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	13250	symbol_c * return_type_symbol = &search_constant_type_c::udint_type_name;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	13251	s4o.print("(");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	13252	return_type_symbol->accept(*this);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	13253	s4o.print(")time_to_real(");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	13254	IN_param_value->accept(*this);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	13255	s4o.print(")");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	13256	return NULL;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	13257
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	13258	}
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	13259
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	13260	ERROR;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	13261	}
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	13262
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	13263	}/function_date_to_udint/
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	13264	break;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	13265
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	13266	/****
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	13267	*DATE_TO_ULINT
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	13268	*/
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	13269	case function_date_to_ulint :
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	13270	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	13271	symbol_c *last_type_symbol = NULL;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	13272
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	13273	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	13274	identifier_c param_name("IN");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	13275	/* Get the value from a foo(<param_name> = <param_value>) style call */
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	13276	symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	13277
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	13278	/* Get the value from a foo(<param_value>) style call */
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	13279	if (IN_param_value == NULL)
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	13280	IN_param_value = function_call_param_iterator.next();
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	13281	symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	13282	last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	13283
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	13284	if (typeid(*last_type_symbol) == typeid(date_type_name_c))
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	13285	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	13286
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	13287	symbol_c * return_type_symbol = &search_constant_type_c::ulint_type_name;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	13288	s4o.print("(");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	13289	return_type_symbol->accept(*this);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	13290	s4o.print(")time_to_real(");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	13291	IN_param_value->accept(*this);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	13292	s4o.print(")");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	13293	return NULL;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	13294
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	13295	}
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	13296
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	13297	ERROR;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	13298	}
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	13299
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	13300	}/function_date_to_ulint/
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	13301	break;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	13302
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	13303	/****
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	13304	*DATE_TO_BOOL
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	13305	*/
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	13306	case function_date_to_bool :
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	13307	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	13308	symbol_c *last_type_symbol = NULL;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	13309
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	13310	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	13311	identifier_c param_name("IN");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	13312	/* Get the value from a foo(<param_name> = <param_value>) style call */
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	13313	symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	13314
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	13315	/* Get the value from a foo(<param_value>) style call */
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	13316	if (IN_param_value == NULL)
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	13317	IN_param_value = function_call_param_iterator.next();
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	13318	symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	13319	last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	13320
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	13321	if (typeid(*last_type_symbol) == typeid(date_type_name_c))
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	13322	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	13323
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	13324	symbol_c * return_type_symbol = &search_constant_type_c::bool_type_name;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	13325	s4o.print("(");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	13326	return_type_symbol->accept(*this);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	13327	s4o.print(")time_to_real(");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	13328	IN_param_value->accept(*this);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	13329	s4o.print(")");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	13330	return NULL;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	13331
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	13332	}
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	13333
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	13334	ERROR;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	13335	}
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	13336
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	13337	}/function_date_to_bool/
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	13338	break;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	13339
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	13340	/****
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	13341	*DATE_TO_BYTE
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	13342	*/
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	13343	case function_date_to_byte :
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	13344	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	13345	symbol_c *last_type_symbol = NULL;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	13346
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	13347	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	13348	identifier_c param_name("IN");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	13349	/* Get the value from a foo(<param_name> = <param_value>) style call */
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	13350	symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	13351
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	13352	/* Get the value from a foo(<param_value>) style call */
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	13353	if (IN_param_value == NULL)
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	13354	IN_param_value = function_call_param_iterator.next();
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	13355	symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	13356	last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	13357
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	13358	if (typeid(*last_type_symbol) == typeid(date_type_name_c))
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	13359	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	13360
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	13361	symbol_c * return_type_symbol = &search_constant_type_c::byte_type_name;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	13362	s4o.print("(");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	13363	return_type_symbol->accept(*this);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	13364	s4o.print(")time_to_real(");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	13365	IN_param_value->accept(*this);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	13366	s4o.print(")");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	13367	return NULL;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	13368
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	13369	}
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	13370
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	13371	ERROR;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	13372	}
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	13373
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	13374	}/function_date_to_byte/
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	13375	break;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	13376
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	13377	/****
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	13378	*DATE_TO_WORD
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	13379	*/
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	13380	case function_date_to_word :
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	13381	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	13382	symbol_c *last_type_symbol = NULL;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	13383
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	13384	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	13385	identifier_c param_name("IN");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	13386	/* Get the value from a foo(<param_name> = <param_value>) style call */
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	13387	symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	13388
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	13389	/* Get the value from a foo(<param_value>) style call */
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	13390	if (IN_param_value == NULL)
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	13391	IN_param_value = function_call_param_iterator.next();
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	13392	symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	13393	last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	13394
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	13395	if (typeid(*last_type_symbol) == typeid(date_type_name_c))
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	13396	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	13397
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	13398	symbol_c * return_type_symbol = &search_constant_type_c::word_type_name;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	13399	s4o.print("(");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	13400	return_type_symbol->accept(*this);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	13401	s4o.print(")time_to_real(");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	13402	IN_param_value->accept(*this);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	13403	s4o.print(")");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	13404	return NULL;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	13405
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	13406	}
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	13407
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	13408	ERROR;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	13409	}
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	13410
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	13411	}/function_date_to_word/
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	13412	break;
33 4507beb2aac6 preliminary std lib support for ST etisserant parents: diff changeset	13413
4507beb2aac6 preliminary std lib support for ST etisserant parents: diff changeset	13414	/****
4507beb2aac6 preliminary std lib support for ST etisserant parents: diff changeset	13415	*DATE_TO_DWORD
4507beb2aac6 preliminary std lib support for ST etisserant parents: diff changeset	13416	*/
35 9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	13417	case function_date_to_dword :
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	13418	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	13419	symbol_c *last_type_symbol = NULL;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	13420
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	13421	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	13422	identifier_c param_name("IN");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	13423	/* Get the value from a foo(<param_name> = <param_value>) style call */
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	13424	symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	13425
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	13426	/* Get the value from a foo(<param_value>) style call */
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	13427	if (IN_param_value == NULL)
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	13428	IN_param_value = function_call_param_iterator.next();
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	13429	symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	13430	last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	13431
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	13432	if (typeid(*last_type_symbol) == typeid(date_type_name_c))
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	13433	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	13434
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	13435	symbol_c * return_type_symbol = &search_constant_type_c::dword_type_name;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	13436	s4o.print("(");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	13437	return_type_symbol->accept(*this);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	13438	s4o.print(")time_to_real(");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	13439	IN_param_value->accept(*this);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	13440	s4o.print(")");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	13441	return NULL;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	13442
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	13443	}
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	13444
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	13445	ERROR;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	13446	}
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	13447
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	13448	}/function_date_to_dword/
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	13449	break;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	13450
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	13451	/****
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	13452	*DATE_TO_LWORD
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	13453	*/
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	13454	case function_date_to_lword :
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	13455	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	13456	symbol_c *last_type_symbol = NULL;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	13457
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	13458	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	13459	identifier_c param_name("IN");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	13460	/* Get the value from a foo(<param_name> = <param_value>) style call */
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	13461	symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	13462
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	13463	/* Get the value from a foo(<param_value>) style call */
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	13464	if (IN_param_value == NULL)
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	13465	IN_param_value = function_call_param_iterator.next();
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	13466	symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	13467	last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	13468
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	13469	if (typeid(*last_type_symbol) == typeid(date_type_name_c))
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	13470	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	13471
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	13472	symbol_c * return_type_symbol = &search_constant_type_c::lword_type_name;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	13473	s4o.print("(");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	13474	return_type_symbol->accept(*this);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	13475	s4o.print(")time_to_real(");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	13476	IN_param_value->accept(*this);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	13477	s4o.print(")");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	13478	return NULL;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	13479
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	13480	}
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	13481
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	13482	ERROR;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	13483	}
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	13484
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	13485	}/function_date_to_lword/
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	13486	break;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	13487
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	13488	/****
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	13489	*DATE_TO_STRING
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	13490	*/
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	13491	case function_date_to_string :
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	13492	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	13493	symbol_c *last_type_symbol = NULL;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	13494
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	13495	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	13496	identifier_c param_name("IN");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	13497	/* Get the value from a foo(<param_name> = <param_value>) style call */
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	13498	symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	13499
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	13500	/* Get the value from a foo(<param_value>) style call */
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	13501	if (IN_param_value == NULL)
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	13502	IN_param_value = function_call_param_iterator.next();
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	13503	symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	13504	last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	13505
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	13506	if (typeid(*last_type_symbol) == typeid(date_type_name_c))
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	13507	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	13508
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	13509	symbol_c * return_type_symbol = &search_constant_type_c::string_type_name;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	13510	s4o.print("(");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	13511	return_type_symbol->accept(*this);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	13512	s4o.print(")time_to_string(");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	13513	IN_param_value->accept(*this);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	13514	s4o.print(")");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	13515	return NULL;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	13516
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	13517	}
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	13518
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	13519	ERROR;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	13520	}
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	13521
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	13522	}/function_date_to_string/
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	13523	break;
33 4507beb2aac6 preliminary std lib support for ST etisserant parents: diff changeset	13524
4507beb2aac6 preliminary std lib support for ST etisserant parents: diff changeset	13525	/****
4507beb2aac6 preliminary std lib support for ST etisserant parents: diff changeset	13526	*DATE_TO_WSTRING
4507beb2aac6 preliminary std lib support for ST etisserant parents: diff changeset	13527	*/
35 9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	13528	case function_date_to_wstring :
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	13529	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	13530	symbol_c *last_type_symbol = NULL;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	13531
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	13532	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	13533	identifier_c param_name("IN");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	13534	/* Get the value from a foo(<param_name> = <param_value>) style call */
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	13535	symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	13536
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	13537	/* Get the value from a foo(<param_value>) style call */
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	13538	if (IN_param_value == NULL)
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	13539	IN_param_value = function_call_param_iterator.next();
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	13540	symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	13541	last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	13542
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	13543	if (typeid(*last_type_symbol) == typeid(date_type_name_c))
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	13544	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	13545
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	13546	symbol_c * return_type_symbol = &search_constant_type_c::wstring_type_name;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	13547	s4o.print("(");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	13548	return_type_symbol->accept(*this);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	13549	s4o.print(")time_to_string(");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	13550	IN_param_value->accept(*this);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	13551	s4o.print(")");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	13552	return NULL;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	13553
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	13554	}
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	13555
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	13556	ERROR;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	13557	}
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	13558
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	13559	}/function_date_to_wstring/
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	13560	break;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	13561
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	13562	/****
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	13563	*TOD_TO_REAL
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	13564	*/
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	13565	case function_tod_to_real :
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	13566	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	13567	symbol_c *last_type_symbol = NULL;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	13568
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	13569	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	13570	identifier_c param_name("IN");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	13571	/* Get the value from a foo(<param_name> = <param_value>) style call */
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	13572	symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	13573
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	13574	/* Get the value from a foo(<param_value>) style call */
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	13575	if (IN_param_value == NULL)
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	13576	IN_param_value = function_call_param_iterator.next();
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	13577	symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	13578	last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	13579
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	13580	if (typeid(*last_type_symbol) == typeid(tod_type_name_c))
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	13581	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	13582
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	13583	symbol_c * return_type_symbol = &search_constant_type_c::real_type_name;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	13584	s4o.print("(");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	13585	return_type_symbol->accept(*this);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	13586	s4o.print(")time_to_real(");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	13587	IN_param_value->accept(*this);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	13588	s4o.print(")");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	13589	return NULL;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	13590
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	13591	}
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	13592
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	13593	ERROR;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	13594	}
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	13595
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	13596	}/function_tod_to_real/
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	13597	break;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	13598
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	13599	/****
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	13600	*TOD_TO_LREAL
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	13601	*/
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	13602	case function_tod_to_lreal :
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	13603	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	13604	symbol_c *last_type_symbol = NULL;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	13605
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	13606	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	13607	identifier_c param_name("IN");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	13608	/* Get the value from a foo(<param_name> = <param_value>) style call */
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	13609	symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	13610
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	13611	/* Get the value from a foo(<param_value>) style call */
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	13612	if (IN_param_value == NULL)
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	13613	IN_param_value = function_call_param_iterator.next();
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	13614	symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	13615	last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	13616
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	13617	if (typeid(*last_type_symbol) == typeid(tod_type_name_c))
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	13618	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	13619
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	13620	symbol_c * return_type_symbol = &search_constant_type_c::lreal_type_name;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	13621	s4o.print("(");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	13622	return_type_symbol->accept(*this);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	13623	s4o.print(")time_to_real(");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	13624	IN_param_value->accept(*this);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	13625	s4o.print(")");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	13626	return NULL;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	13627
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	13628	}
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	13629
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	13630	ERROR;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	13631	}
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	13632
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	13633	}/function_tod_to_lreal/
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	13634	break;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	13635
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	13636	/****
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	13637	*TOD_TO_SINT
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	13638	*/
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	13639	case function_tod_to_sint :
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	13640	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	13641	symbol_c *last_type_symbol = NULL;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	13642
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	13643	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	13644	identifier_c param_name("IN");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	13645	/* Get the value from a foo(<param_name> = <param_value>) style call */
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	13646	symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	13647
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	13648	/* Get the value from a foo(<param_value>) style call */
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	13649	if (IN_param_value == NULL)
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	13650	IN_param_value = function_call_param_iterator.next();
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	13651	symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	13652	last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	13653
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	13654	if (typeid(*last_type_symbol) == typeid(tod_type_name_c))
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	13655	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	13656
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	13657	symbol_c * return_type_symbol = &search_constant_type_c::sint_type_name;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	13658	s4o.print("(");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	13659	return_type_symbol->accept(*this);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	13660	s4o.print(")time_to_real(");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	13661	IN_param_value->accept(*this);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	13662	s4o.print(")");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	13663	return NULL;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	13664
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	13665	}
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	13666
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	13667	ERROR;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	13668	}
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	13669
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	13670	}/function_tod_to_sint/
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	13671	break;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	13672
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	13673	/****
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	13674	*TOD_TO_INT
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	13675	*/
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	13676	case function_tod_to_int :
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	13677	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	13678	symbol_c *last_type_symbol = NULL;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	13679
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	13680	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	13681	identifier_c param_name("IN");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	13682	/* Get the value from a foo(<param_name> = <param_value>) style call */
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	13683	symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	13684
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	13685	/* Get the value from a foo(<param_value>) style call */
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	13686	if (IN_param_value == NULL)
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	13687	IN_param_value = function_call_param_iterator.next();
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	13688	symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	13689	last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	13690
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	13691	if (typeid(*last_type_symbol) == typeid(tod_type_name_c))
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	13692	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	13693
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	13694	symbol_c * return_type_symbol = &search_constant_type_c::int_type_name;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	13695	s4o.print("(");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	13696	return_type_symbol->accept(*this);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	13697	s4o.print(")time_to_real(");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	13698	IN_param_value->accept(*this);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	13699	s4o.print(")");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	13700	return NULL;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	13701
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	13702	}
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	13703
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	13704	ERROR;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	13705	}
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	13706
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	13707	}/function_tod_to_int/
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	13708	break;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	13709
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	13710	/****
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	13711	*TOD_TO_DINT
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	13712	*/
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	13713	case function_tod_to_dint :
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	13714	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	13715	symbol_c *last_type_symbol = NULL;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	13716
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	13717	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	13718	identifier_c param_name("IN");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	13719	/* Get the value from a foo(<param_name> = <param_value>) style call */
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	13720	symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	13721
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	13722	/* Get the value from a foo(<param_value>) style call */
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	13723	if (IN_param_value == NULL)
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	13724	IN_param_value = function_call_param_iterator.next();
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	13725	symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	13726	last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	13727
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	13728	if (typeid(*last_type_symbol) == typeid(tod_type_name_c))
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	13729	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	13730
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	13731	symbol_c * return_type_symbol = &search_constant_type_c::dint_type_name;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	13732	s4o.print("(");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	13733	return_type_symbol->accept(*this);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	13734	s4o.print(")time_to_real(");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	13735	IN_param_value->accept(*this);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	13736	s4o.print(")");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	13737	return NULL;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	13738
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	13739	}
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	13740
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	13741	ERROR;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	13742	}
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	13743
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	13744	}/function_tod_to_dint/
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	13745	break;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	13746
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	13747	/****
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	13748	*TOD_TO_LINT
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	13749	*/
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	13750	case function_tod_to_lint :
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	13751	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	13752	symbol_c *last_type_symbol = NULL;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	13753
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	13754	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	13755	identifier_c param_name("IN");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	13756	/* Get the value from a foo(<param_name> = <param_value>) style call */
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	13757	symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	13758
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	13759	/* Get the value from a foo(<param_value>) style call */
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	13760	if (IN_param_value == NULL)
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	13761	IN_param_value = function_call_param_iterator.next();
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	13762	symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	13763	last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	13764
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	13765	if (typeid(*last_type_symbol) == typeid(tod_type_name_c))
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	13766	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	13767
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	13768	symbol_c * return_type_symbol = &search_constant_type_c::lint_type_name;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	13769	s4o.print("(");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	13770	return_type_symbol->accept(*this);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	13771	s4o.print(")time_to_real(");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	13772	IN_param_value->accept(*this);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	13773	s4o.print(")");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	13774	return NULL;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	13775
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	13776	}
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	13777
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	13778	ERROR;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	13779	}
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	13780
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	13781	}/function_tod_to_lint/
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	13782	break;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	13783
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	13784	/****
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	13785	*TOD_TO_USINT
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	13786	*/
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	13787	case function_tod_to_usint :
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	13788	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	13789	symbol_c *last_type_symbol = NULL;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	13790
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	13791	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	13792	identifier_c param_name("IN");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	13793	/* Get the value from a foo(<param_name> = <param_value>) style call */
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	13794	symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	13795
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	13796	/* Get the value from a foo(<param_value>) style call */
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	13797	if (IN_param_value == NULL)
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	13798	IN_param_value = function_call_param_iterator.next();
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	13799	symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	13800	last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	13801
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	13802	if (typeid(*last_type_symbol) == typeid(tod_type_name_c))
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	13803	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	13804
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	13805	symbol_c * return_type_symbol = &search_constant_type_c::usint_type_name;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	13806	s4o.print("(");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	13807	return_type_symbol->accept(*this);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	13808	s4o.print(")time_to_real(");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	13809	IN_param_value->accept(*this);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	13810	s4o.print(")");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	13811	return NULL;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	13812
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	13813	}
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	13814
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	13815	ERROR;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	13816	}
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	13817
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	13818	}/function_tod_to_usint/
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	13819	break;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	13820
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	13821	/****
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	13822	*TOD_TO_UINT
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	13823	*/
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	13824	case function_tod_to_uint :
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	13825	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	13826	symbol_c *last_type_symbol = NULL;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	13827
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	13828	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	13829	identifier_c param_name("IN");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	13830	/* Get the value from a foo(<param_name> = <param_value>) style call */
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	13831	symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	13832
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	13833	/* Get the value from a foo(<param_value>) style call */
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	13834	if (IN_param_value == NULL)
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	13835	IN_param_value = function_call_param_iterator.next();
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	13836	symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	13837	last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	13838
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	13839	if (typeid(*last_type_symbol) == typeid(tod_type_name_c))
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	13840	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	13841
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	13842	symbol_c * return_type_symbol = &search_constant_type_c::uint_type_name;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	13843	s4o.print("(");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	13844	return_type_symbol->accept(*this);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	13845	s4o.print(")time_to_real(");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	13846	IN_param_value->accept(*this);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	13847	s4o.print(")");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	13848	return NULL;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	13849
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	13850	}
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	13851
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	13852	ERROR;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	13853	}
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	13854
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	13855	}/function_tod_to_uint/
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	13856	break;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	13857
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	13858	/****
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	13859	*TOD_TO_UDINT
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	13860	*/
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	13861	case function_tod_to_udint :
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	13862	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	13863	symbol_c *last_type_symbol = NULL;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	13864
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	13865	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	13866	identifier_c param_name("IN");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	13867	/* Get the value from a foo(<param_name> = <param_value>) style call */
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	13868	symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	13869
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	13870	/* Get the value from a foo(<param_value>) style call */
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	13871	if (IN_param_value == NULL)
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	13872	IN_param_value = function_call_param_iterator.next();
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	13873	symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	13874	last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	13875
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	13876	if (typeid(*last_type_symbol) == typeid(tod_type_name_c))
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	13877	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	13878
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	13879	symbol_c * return_type_symbol = &search_constant_type_c::udint_type_name;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	13880	s4o.print("(");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	13881	return_type_symbol->accept(*this);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	13882	s4o.print(")time_to_real(");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	13883	IN_param_value->accept(*this);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	13884	s4o.print(")");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	13885	return NULL;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	13886
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	13887	}
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	13888
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	13889	ERROR;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	13890	}
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	13891
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	13892	}/function_tod_to_udint/
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	13893	break;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	13894
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	13895	/****
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	13896	*TOD_TO_ULINT
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	13897	*/
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	13898	case function_tod_to_ulint :
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	13899	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	13900	symbol_c *last_type_symbol = NULL;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	13901
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	13902	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	13903	identifier_c param_name("IN");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	13904	/* Get the value from a foo(<param_name> = <param_value>) style call */
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	13905	symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	13906
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	13907	/* Get the value from a foo(<param_value>) style call */
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	13908	if (IN_param_value == NULL)
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	13909	IN_param_value = function_call_param_iterator.next();
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	13910	symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	13911	last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	13912
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	13913	if (typeid(*last_type_symbol) == typeid(tod_type_name_c))
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	13914	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	13915
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	13916	symbol_c * return_type_symbol = &search_constant_type_c::ulint_type_name;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	13917	s4o.print("(");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	13918	return_type_symbol->accept(*this);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	13919	s4o.print(")time_to_real(");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	13920	IN_param_value->accept(*this);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	13921	s4o.print(")");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	13922	return NULL;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	13923
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	13924	}
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	13925
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	13926	ERROR;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	13927	}
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	13928
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	13929	}/function_tod_to_ulint/
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	13930	break;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	13931
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	13932	/****
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	13933	*TOD_TO_BOOL
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	13934	*/
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	13935	case function_tod_to_bool :
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	13936	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	13937	symbol_c *last_type_symbol = NULL;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	13938
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	13939	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	13940	identifier_c param_name("IN");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	13941	/* Get the value from a foo(<param_name> = <param_value>) style call */
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	13942	symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	13943
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	13944	/* Get the value from a foo(<param_value>) style call */
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	13945	if (IN_param_value == NULL)
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	13946	IN_param_value = function_call_param_iterator.next();
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	13947	symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	13948	last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	13949
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	13950	if (typeid(*last_type_symbol) == typeid(tod_type_name_c))
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	13951	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	13952
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	13953	symbol_c * return_type_symbol = &search_constant_type_c::bool_type_name;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	13954	s4o.print("(");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	13955	return_type_symbol->accept(*this);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	13956	s4o.print(")time_to_real(");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	13957	IN_param_value->accept(*this);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	13958	s4o.print(")");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	13959	return NULL;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	13960
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	13961	}
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	13962
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	13963	ERROR;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	13964	}
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	13965
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	13966	}/function_tod_to_bool/
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	13967	break;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	13968
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	13969	/****
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	13970	*TOD_TO_BYTE
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	13971	*/
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	13972	case function_tod_to_byte :
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	13973	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	13974	symbol_c *last_type_symbol = NULL;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	13975
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	13976	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	13977	identifier_c param_name("IN");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	13978	/* Get the value from a foo(<param_name> = <param_value>) style call */
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	13979	symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	13980
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	13981	/* Get the value from a foo(<param_value>) style call */
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	13982	if (IN_param_value == NULL)
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	13983	IN_param_value = function_call_param_iterator.next();
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	13984	symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	13985	last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	13986
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	13987	if (typeid(*last_type_symbol) == typeid(tod_type_name_c))
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	13988	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	13989
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	13990	symbol_c * return_type_symbol = &search_constant_type_c::byte_type_name;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	13991	s4o.print("(");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	13992	return_type_symbol->accept(*this);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	13993	s4o.print(")time_to_real(");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	13994	IN_param_value->accept(*this);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	13995	s4o.print(")");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	13996	return NULL;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	13997
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	13998	}
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	13999
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	14000	ERROR;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	14001	}
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	14002
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	14003	}/function_tod_to_byte/
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	14004	break;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	14005
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	14006	/****
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	14007	*TOD_TO_WORD
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	14008	*/
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	14009	case function_tod_to_word :
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	14010	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	14011	symbol_c *last_type_symbol = NULL;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	14012
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	14013	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	14014	identifier_c param_name("IN");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	14015	/* Get the value from a foo(<param_name> = <param_value>) style call */
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	14016	symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	14017
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	14018	/* Get the value from a foo(<param_value>) style call */
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	14019	if (IN_param_value == NULL)
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	14020	IN_param_value = function_call_param_iterator.next();
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	14021	symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	14022	last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	14023
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	14024	if (typeid(*last_type_symbol) == typeid(tod_type_name_c))
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	14025	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	14026
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	14027	symbol_c * return_type_symbol = &search_constant_type_c::word_type_name;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	14028	s4o.print("(");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	14029	return_type_symbol->accept(*this);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	14030	s4o.print(")time_to_real(");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	14031	IN_param_value->accept(*this);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	14032	s4o.print(")");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	14033	return NULL;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	14034
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	14035	}
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	14036
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	14037	ERROR;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	14038	}
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	14039
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	14040	}/function_tod_to_word/
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	14041	break;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	14042
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	14043	/****
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	14044	*TOD_TO_DWORD
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	14045	*/
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	14046	case function_tod_to_dword :
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	14047	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	14048	symbol_c *last_type_symbol = NULL;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	14049
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	14050	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	14051	identifier_c param_name("IN");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	14052	/* Get the value from a foo(<param_name> = <param_value>) style call */
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	14053	symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	14054
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	14055	/* Get the value from a foo(<param_value>) style call */
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	14056	if (IN_param_value == NULL)
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	14057	IN_param_value = function_call_param_iterator.next();
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	14058	symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	14059	last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	14060
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	14061	if (typeid(*last_type_symbol) == typeid(tod_type_name_c))
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	14062	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	14063
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	14064	symbol_c * return_type_symbol = &search_constant_type_c::dword_type_name;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	14065	s4o.print("(");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	14066	return_type_symbol->accept(*this);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	14067	s4o.print(")time_to_real(");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	14068	IN_param_value->accept(*this);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	14069	s4o.print(")");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	14070	return NULL;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	14071
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	14072	}
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	14073
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	14074	ERROR;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	14075	}
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	14076
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	14077	}/function_tod_to_dword/
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	14078	break;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	14079
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	14080	/****
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	14081	*TOD_TO_LWORD
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	14082	*/
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	14083	case function_tod_to_lword :
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	14084	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	14085	symbol_c *last_type_symbol = NULL;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	14086
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	14087	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	14088	identifier_c param_name("IN");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	14089	/* Get the value from a foo(<param_name> = <param_value>) style call */
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	14090	symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	14091
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	14092	/* Get the value from a foo(<param_value>) style call */
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	14093	if (IN_param_value == NULL)
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	14094	IN_param_value = function_call_param_iterator.next();
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	14095	symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	14096	last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	14097
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	14098	if (typeid(*last_type_symbol) == typeid(tod_type_name_c))
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	14099	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	14100
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	14101	symbol_c * return_type_symbol = &search_constant_type_c::lword_type_name;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	14102	s4o.print("(");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	14103	return_type_symbol->accept(*this);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	14104	s4o.print(")time_to_real(");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	14105	IN_param_value->accept(*this);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	14106	s4o.print(")");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	14107	return NULL;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	14108
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	14109	}
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	14110
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	14111	ERROR;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	14112	}
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	14113
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	14114	}/function_tod_to_lword/
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	14115	break;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	14116
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	14117	/****
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	14118	*TOD_TO_STRING
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	14119	*/
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	14120	case function_tod_to_string :
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	14121	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	14122	symbol_c *last_type_symbol = NULL;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	14123
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	14124	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	14125	identifier_c param_name("IN");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	14126	/* Get the value from a foo(<param_name> = <param_value>) style call */
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	14127	symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	14128
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	14129	/* Get the value from a foo(<param_value>) style call */
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	14130	if (IN_param_value == NULL)
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	14131	IN_param_value = function_call_param_iterator.next();
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	14132	symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	14133	last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	14134
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	14135	if (typeid(*last_type_symbol) == typeid(tod_type_name_c))
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	14136	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	14137
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	14138	symbol_c * return_type_symbol = &search_constant_type_c::string_type_name;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	14139	s4o.print("(");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	14140	return_type_symbol->accept(*this);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	14141	s4o.print(")time_to_string(");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	14142	IN_param_value->accept(*this);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	14143	s4o.print(")");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	14144	return NULL;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	14145
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	14146	}
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	14147
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	14148	ERROR;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	14149	}
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	14150
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	14151	}/function_tod_to_string/
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	14152	break;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	14153
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	14154	/****
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	14155	*TOD_TO_WSTRING
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	14156	*/
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	14157	case function_tod_to_wstring :
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	14158	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	14159	symbol_c *last_type_symbol = NULL;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	14160
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	14161	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	14162	identifier_c param_name("IN");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	14163	/* Get the value from a foo(<param_name> = <param_value>) style call */
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	14164	symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	14165
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	14166	/* Get the value from a foo(<param_value>) style call */
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	14167	if (IN_param_value == NULL)
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	14168	IN_param_value = function_call_param_iterator.next();
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	14169	symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	14170	last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	14171
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	14172	if (typeid(*last_type_symbol) == typeid(tod_type_name_c))
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	14173	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	14174
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	14175	symbol_c * return_type_symbol = &search_constant_type_c::wstring_type_name;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	14176	s4o.print("(");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	14177	return_type_symbol->accept(*this);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	14178	s4o.print(")time_to_string(");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	14179	IN_param_value->accept(*this);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	14180	s4o.print(")");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	14181	return NULL;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	14182
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	14183	}
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	14184
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	14185	ERROR;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	14186	}
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	14187
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	14188	}/function_tod_to_wstring/
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	14189	break;
33 4507beb2aac6 preliminary std lib support for ST etisserant parents: diff changeset	14190
4507beb2aac6 preliminary std lib support for ST etisserant parents: diff changeset	14191	/****
4507beb2aac6 preliminary std lib support for ST etisserant parents: diff changeset	14192	*DT_TO_REAL
4507beb2aac6 preliminary std lib support for ST etisserant parents: diff changeset	14193	*/
35 9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	14194	case function_dt_to_real :
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	14195	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	14196	symbol_c *last_type_symbol = NULL;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	14197
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	14198	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	14199	identifier_c param_name("IN");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	14200	/* Get the value from a foo(<param_name> = <param_value>) style call */
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	14201	symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	14202
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	14203	/* Get the value from a foo(<param_value>) style call */
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	14204	if (IN_param_value == NULL)
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	14205	IN_param_value = function_call_param_iterator.next();
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	14206	symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	14207	last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	14208
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	14209	if (typeid(*last_type_symbol) == typeid(dt_type_name_c))
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	14210	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	14211
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	14212	symbol_c * return_type_symbol = &search_constant_type_c::real_type_name;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	14213	s4o.print("(");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	14214	return_type_symbol->accept(*this);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	14215	s4o.print(")time_to_real(");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	14216	IN_param_value->accept(*this);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	14217	s4o.print(")");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	14218	return NULL;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	14219
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	14220	}
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	14221
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	14222	ERROR;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	14223	}
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	14224
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	14225	}/function_dt_to_real/
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	14226	break;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	14227
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	14228	/****
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	14229	*DT_TO_LREAL
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	14230	*/
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	14231	case function_dt_to_lreal :
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	14232	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	14233	symbol_c *last_type_symbol = NULL;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	14234
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	14235	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	14236	identifier_c param_name("IN");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	14237	/* Get the value from a foo(<param_name> = <param_value>) style call */
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	14238	symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	14239
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	14240	/* Get the value from a foo(<param_value>) style call */
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	14241	if (IN_param_value == NULL)
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	14242	IN_param_value = function_call_param_iterator.next();
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	14243	symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	14244	last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	14245
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	14246	if (typeid(*last_type_symbol) == typeid(dt_type_name_c))
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	14247	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	14248
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	14249	symbol_c * return_type_symbol = &search_constant_type_c::lreal_type_name;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	14250	s4o.print("(");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	14251	return_type_symbol->accept(*this);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	14252	s4o.print(")time_to_real(");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	14253	IN_param_value->accept(*this);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	14254	s4o.print(")");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	14255	return NULL;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	14256
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	14257	}
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	14258
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	14259	ERROR;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	14260	}
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	14261
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	14262	}/function_dt_to_lreal/
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	14263	break;
33 4507beb2aac6 preliminary std lib support for ST etisserant parents: diff changeset	14264
4507beb2aac6 preliminary std lib support for ST etisserant parents: diff changeset	14265	/****
4507beb2aac6 preliminary std lib support for ST etisserant parents: diff changeset	14266	*DT_TO_SINT
4507beb2aac6 preliminary std lib support for ST etisserant parents: diff changeset	14267	*/
35 9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	14268	case function_dt_to_sint :
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	14269	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	14270	symbol_c *last_type_symbol = NULL;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	14271
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	14272	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	14273	identifier_c param_name("IN");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	14274	/* Get the value from a foo(<param_name> = <param_value>) style call */
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	14275	symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	14276
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	14277	/* Get the value from a foo(<param_value>) style call */
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	14278	if (IN_param_value == NULL)
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	14279	IN_param_value = function_call_param_iterator.next();
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	14280	symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	14281	last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	14282
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	14283	if (typeid(*last_type_symbol) == typeid(dt_type_name_c))
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	14284	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	14285
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	14286	symbol_c * return_type_symbol = &search_constant_type_c::sint_type_name;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	14287	s4o.print("(");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	14288	return_type_symbol->accept(*this);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	14289	s4o.print(")time_to_real(");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	14290	IN_param_value->accept(*this);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	14291	s4o.print(")");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	14292	return NULL;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	14293
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	14294	}
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	14295
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	14296	ERROR;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	14297	}
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	14298
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	14299	}/function_dt_to_sint/
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	14300	break;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	14301
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	14302	/****
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	14303	*DT_TO_INT
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	14304	*/
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	14305	case function_dt_to_int :
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	14306	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	14307	symbol_c *last_type_symbol = NULL;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	14308
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	14309	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	14310	identifier_c param_name("IN");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	14311	/* Get the value from a foo(<param_name> = <param_value>) style call */
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	14312	symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	14313
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	14314	/* Get the value from a foo(<param_value>) style call */
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	14315	if (IN_param_value == NULL)
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	14316	IN_param_value = function_call_param_iterator.next();
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	14317	symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	14318	last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	14319
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	14320	if (typeid(*last_type_symbol) == typeid(dt_type_name_c))
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	14321	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	14322
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	14323	symbol_c * return_type_symbol = &search_constant_type_c::int_type_name;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	14324	s4o.print("(");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	14325	return_type_symbol->accept(*this);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	14326	s4o.print(")time_to_real(");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	14327	IN_param_value->accept(*this);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	14328	s4o.print(")");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	14329	return NULL;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	14330
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	14331	}
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	14332
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	14333	ERROR;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	14334	}
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	14335
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	14336	}/function_dt_to_int/
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	14337	break;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	14338
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	14339	/****
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	14340	*DT_TO_DINT
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	14341	*/
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	14342	case function_dt_to_dint :
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	14343	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	14344	symbol_c *last_type_symbol = NULL;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	14345
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	14346	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	14347	identifier_c param_name("IN");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	14348	/* Get the value from a foo(<param_name> = <param_value>) style call */
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	14349	symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	14350
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	14351	/* Get the value from a foo(<param_value>) style call */
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	14352	if (IN_param_value == NULL)
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	14353	IN_param_value = function_call_param_iterator.next();
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	14354	symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	14355	last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	14356
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	14357	if (typeid(*last_type_symbol) == typeid(dt_type_name_c))
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	14358	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	14359
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	14360	symbol_c * return_type_symbol = &search_constant_type_c::dint_type_name;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	14361	s4o.print("(");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	14362	return_type_symbol->accept(*this);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	14363	s4o.print(")time_to_real(");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	14364	IN_param_value->accept(*this);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	14365	s4o.print(")");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	14366	return NULL;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	14367
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	14368	}
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	14369
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	14370	ERROR;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	14371	}
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	14372
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	14373	}/function_dt_to_dint/
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	14374	break;
33 4507beb2aac6 preliminary std lib support for ST etisserant parents: diff changeset	14375
4507beb2aac6 preliminary std lib support for ST etisserant parents: diff changeset	14376	/****
4507beb2aac6 preliminary std lib support for ST etisserant parents: diff changeset	14377	*DT_TO_LINT
4507beb2aac6 preliminary std lib support for ST etisserant parents: diff changeset	14378	*/
35 9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	14379	case function_dt_to_lint :
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	14380	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	14381	symbol_c *last_type_symbol = NULL;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	14382
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	14383	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	14384	identifier_c param_name("IN");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	14385	/* Get the value from a foo(<param_name> = <param_value>) style call */
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	14386	symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	14387
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	14388	/* Get the value from a foo(<param_value>) style call */
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	14389	if (IN_param_value == NULL)
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	14390	IN_param_value = function_call_param_iterator.next();
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	14391	symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	14392	last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	14393
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	14394	if (typeid(*last_type_symbol) == typeid(dt_type_name_c))
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	14395	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	14396
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	14397	symbol_c * return_type_symbol = &search_constant_type_c::lint_type_name;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	14398	s4o.print("(");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	14399	return_type_symbol->accept(*this);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	14400	s4o.print(")time_to_real(");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	14401	IN_param_value->accept(*this);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	14402	s4o.print(")");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	14403	return NULL;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	14404
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	14405	}
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	14406
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	14407	ERROR;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	14408	}
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	14409
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	14410	}/function_dt_to_lint/
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	14411	break;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	14412
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	14413	/****
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	14414	*DT_TO_USINT
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	14415	*/
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	14416	case function_dt_to_usint :
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	14417	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	14418	symbol_c *last_type_symbol = NULL;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	14419
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	14420	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	14421	identifier_c param_name("IN");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	14422	/* Get the value from a foo(<param_name> = <param_value>) style call */
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	14423	symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	14424
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	14425	/* Get the value from a foo(<param_value>) style call */
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	14426	if (IN_param_value == NULL)
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	14427	IN_param_value = function_call_param_iterator.next();
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	14428	symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	14429	last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	14430
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	14431	if (typeid(*last_type_symbol) == typeid(dt_type_name_c))
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	14432	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	14433
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	14434	symbol_c * return_type_symbol = &search_constant_type_c::usint_type_name;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	14435	s4o.print("(");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	14436	return_type_symbol->accept(*this);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	14437	s4o.print(")time_to_real(");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	14438	IN_param_value->accept(*this);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	14439	s4o.print(")");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	14440	return NULL;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	14441
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	14442	}
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	14443
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	14444	ERROR;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	14445	}
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	14446
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	14447	}/function_dt_to_usint/
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	14448	break;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	14449
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	14450	/****
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	14451	*DT_TO_UINT
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	14452	*/
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	14453	case function_dt_to_uint :
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	14454	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	14455	symbol_c *last_type_symbol = NULL;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	14456
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	14457	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	14458	identifier_c param_name("IN");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	14459	/* Get the value from a foo(<param_name> = <param_value>) style call */
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	14460	symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	14461
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	14462	/* Get the value from a foo(<param_value>) style call */
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	14463	if (IN_param_value == NULL)
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	14464	IN_param_value = function_call_param_iterator.next();
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	14465	symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	14466	last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	14467
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	14468	if (typeid(*last_type_symbol) == typeid(dt_type_name_c))
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	14469	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	14470
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	14471	symbol_c * return_type_symbol = &search_constant_type_c::uint_type_name;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	14472	s4o.print("(");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	14473	return_type_symbol->accept(*this);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	14474	s4o.print(")time_to_real(");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	14475	IN_param_value->accept(*this);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	14476	s4o.print(")");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	14477	return NULL;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	14478
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	14479	}
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	14480
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	14481	ERROR;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	14482	}
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	14483
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	14484	}/function_dt_to_uint/
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	14485	break;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	14486
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	14487	/****
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	14488	*DT_TO_UDINT
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	14489	*/
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	14490	case function_dt_to_udint :
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	14491	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	14492	symbol_c *last_type_symbol = NULL;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	14493
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	14494	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	14495	identifier_c param_name("IN");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	14496	/* Get the value from a foo(<param_name> = <param_value>) style call */
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	14497	symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	14498
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	14499	/* Get the value from a foo(<param_value>) style call */
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	14500	if (IN_param_value == NULL)
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	14501	IN_param_value = function_call_param_iterator.next();
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	14502	symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	14503	last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	14504
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	14505	if (typeid(*last_type_symbol) == typeid(dt_type_name_c))
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	14506	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	14507
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	14508	symbol_c * return_type_symbol = &search_constant_type_c::udint_type_name;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	14509	s4o.print("(");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	14510	return_type_symbol->accept(*this);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	14511	s4o.print(")time_to_real(");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	14512	IN_param_value->accept(*this);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	14513	s4o.print(")");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	14514	return NULL;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	14515
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	14516	}
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	14517
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	14518	ERROR;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	14519	}
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	14520
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	14521	}/function_dt_to_udint/
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	14522	break;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	14523
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	14524	/****
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	14525	*DT_TO_ULINT
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	14526	*/
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	14527	case function_dt_to_ulint :
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	14528	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	14529	symbol_c *last_type_symbol = NULL;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	14530
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	14531	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	14532	identifier_c param_name("IN");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	14533	/* Get the value from a foo(<param_name> = <param_value>) style call */
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	14534	symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	14535
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	14536	/* Get the value from a foo(<param_value>) style call */
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	14537	if (IN_param_value == NULL)
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	14538	IN_param_value = function_call_param_iterator.next();
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	14539	symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	14540	last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	14541
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	14542	if (typeid(*last_type_symbol) == typeid(dt_type_name_c))
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	14543	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	14544
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	14545	symbol_c * return_type_symbol = &search_constant_type_c::ulint_type_name;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	14546	s4o.print("(");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	14547	return_type_symbol->accept(*this);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	14548	s4o.print(")time_to_real(");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	14549	IN_param_value->accept(*this);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	14550	s4o.print(")");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	14551	return NULL;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	14552
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	14553	}
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	14554
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	14555	ERROR;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	14556	}
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	14557
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	14558	}/function_dt_to_ulint/
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	14559	break;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	14560
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	14561	/****
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	14562	*DT_TO_BOOL
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	14563	*/
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	14564	case function_dt_to_bool :
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	14565	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	14566	symbol_c *last_type_symbol = NULL;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	14567
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	14568	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	14569	identifier_c param_name("IN");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	14570	/* Get the value from a foo(<param_name> = <param_value>) style call */
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	14571	symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	14572
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	14573	/* Get the value from a foo(<param_value>) style call */
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	14574	if (IN_param_value == NULL)
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	14575	IN_param_value = function_call_param_iterator.next();
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	14576	symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	14577	last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	14578
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	14579	if (typeid(*last_type_symbol) == typeid(dt_type_name_c))
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	14580	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	14581
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	14582	symbol_c * return_type_symbol = &search_constant_type_c::bool_type_name;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	14583	s4o.print("(");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	14584	return_type_symbol->accept(*this);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	14585	s4o.print(")time_to_real(");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	14586	IN_param_value->accept(*this);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	14587	s4o.print(")");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	14588	return NULL;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	14589
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	14590	}
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	14591
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	14592	ERROR;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	14593	}
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	14594
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	14595	}/function_dt_to_bool/
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	14596	break;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	14597
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	14598	/****
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	14599	*DT_TO_BYTE
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	14600	*/
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	14601	case function_dt_to_byte :
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	14602	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	14603	symbol_c *last_type_symbol = NULL;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	14604
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	14605	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	14606	identifier_c param_name("IN");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	14607	/* Get the value from a foo(<param_name> = <param_value>) style call */
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	14608	symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	14609
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	14610	/* Get the value from a foo(<param_value>) style call */
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	14611	if (IN_param_value == NULL)
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	14612	IN_param_value = function_call_param_iterator.next();
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	14613	symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	14614	last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	14615
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	14616	if (typeid(*last_type_symbol) == typeid(dt_type_name_c))
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	14617	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	14618
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	14619	symbol_c * return_type_symbol = &search_constant_type_c::byte_type_name;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	14620	s4o.print("(");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	14621	return_type_symbol->accept(*this);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	14622	s4o.print(")time_to_real(");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	14623	IN_param_value->accept(*this);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	14624	s4o.print(")");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	14625	return NULL;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	14626
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	14627	}
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	14628
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	14629	ERROR;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	14630	}
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	14631
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	14632	}/function_dt_to_byte/
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	14633	break;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	14634
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	14635	/****
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	14636	*DT_TO_WORD
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	14637	*/
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	14638	case function_dt_to_word :
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	14639	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	14640	symbol_c *last_type_symbol = NULL;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	14641
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	14642	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	14643	identifier_c param_name("IN");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	14644	/* Get the value from a foo(<param_name> = <param_value>) style call */
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	14645	symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	14646
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	14647	/* Get the value from a foo(<param_value>) style call */
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	14648	if (IN_param_value == NULL)
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	14649	IN_param_value = function_call_param_iterator.next();
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	14650	symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	14651	last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	14652
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	14653	if (typeid(*last_type_symbol) == typeid(dt_type_name_c))
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	14654	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	14655
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	14656	symbol_c * return_type_symbol = &search_constant_type_c::word_type_name;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	14657	s4o.print("(");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	14658	return_type_symbol->accept(*this);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	14659	s4o.print(")time_to_real(");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	14660	IN_param_value->accept(*this);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	14661	s4o.print(")");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	14662	return NULL;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	14663
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	14664	}
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	14665
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	14666	ERROR;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	14667	}
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	14668
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	14669	}/function_dt_to_word/
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	14670	break;
33 4507beb2aac6 preliminary std lib support for ST etisserant parents: diff changeset	14671
4507beb2aac6 preliminary std lib support for ST etisserant parents: diff changeset	14672	/****
4507beb2aac6 preliminary std lib support for ST etisserant parents: diff changeset	14673	*DT_TO_DWORD
4507beb2aac6 preliminary std lib support for ST etisserant parents: diff changeset	14674	*/
35 9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	14675	case function_dt_to_dword :
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	14676	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	14677	symbol_c *last_type_symbol = NULL;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	14678
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	14679	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	14680	identifier_c param_name("IN");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	14681	/* Get the value from a foo(<param_name> = <param_value>) style call */
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	14682	symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	14683
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	14684	/* Get the value from a foo(<param_value>) style call */
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	14685	if (IN_param_value == NULL)
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	14686	IN_param_value = function_call_param_iterator.next();
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	14687	symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	14688	last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	14689
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	14690	if (typeid(*last_type_symbol) == typeid(dt_type_name_c))
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	14691	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	14692
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	14693	symbol_c * return_type_symbol = &search_constant_type_c::dword_type_name;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	14694	s4o.print("(");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	14695	return_type_symbol->accept(*this);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	14696	s4o.print(")time_to_real(");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	14697	IN_param_value->accept(*this);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	14698	s4o.print(")");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	14699	return NULL;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	14700
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	14701	}
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	14702
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	14703	ERROR;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	14704	}
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	14705
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	14706	}/function_dt_to_dword/
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	14707	break;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	14708
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	14709	/****
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	14710	*DT_TO_LWORD
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	14711	*/
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	14712	case function_dt_to_lword :
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	14713	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	14714	symbol_c *last_type_symbol = NULL;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	14715
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	14716	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	14717	identifier_c param_name("IN");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	14718	/* Get the value from a foo(<param_name> = <param_value>) style call */
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	14719	symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	14720
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	14721	/* Get the value from a foo(<param_value>) style call */
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	14722	if (IN_param_value == NULL)
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	14723	IN_param_value = function_call_param_iterator.next();
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	14724	symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	14725	last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	14726
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	14727	if (typeid(*last_type_symbol) == typeid(dt_type_name_c))
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	14728	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	14729
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	14730	symbol_c * return_type_symbol = &search_constant_type_c::lword_type_name;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	14731	s4o.print("(");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	14732	return_type_symbol->accept(*this);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	14733	s4o.print(")time_to_real(");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	14734	IN_param_value->accept(*this);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	14735	s4o.print(")");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	14736	return NULL;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	14737
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	14738	}
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	14739
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	14740	ERROR;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	14741	}
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	14742
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	14743	}/function_dt_to_lword/
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	14744	break;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	14745
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	14746	/****
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	14747	*DT_TO_STRING
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	14748	*/
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	14749	case function_dt_to_string :
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	14750	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	14751	symbol_c *last_type_symbol = NULL;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	14752
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	14753	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	14754	identifier_c param_name("IN");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	14755	/* Get the value from a foo(<param_name> = <param_value>) style call */
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	14756	symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	14757
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	14758	/* Get the value from a foo(<param_value>) style call */
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	14759	if (IN_param_value == NULL)
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	14760	IN_param_value = function_call_param_iterator.next();
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	14761	symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	14762	last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	14763
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	14764	if (typeid(*last_type_symbol) == typeid(dt_type_name_c))
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	14765	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	14766
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	14767	symbol_c * return_type_symbol = &search_constant_type_c::string_type_name;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	14768	s4o.print("(");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	14769	return_type_symbol->accept(*this);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	14770	s4o.print(")time_to_string(");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	14771	IN_param_value->accept(*this);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	14772	s4o.print(")");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	14773	return NULL;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	14774
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	14775	}
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	14776
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	14777	ERROR;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	14778	}
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	14779
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	14780	}/function_dt_to_string/
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	14781	break;
33 4507beb2aac6 preliminary std lib support for ST etisserant parents: diff changeset	14782
4507beb2aac6 preliminary std lib support for ST etisserant parents: diff changeset	14783	/****
4507beb2aac6 preliminary std lib support for ST etisserant parents: diff changeset	14784	*DT_TO_WSTRING
4507beb2aac6 preliminary std lib support for ST etisserant parents: diff changeset	14785	*/
35 9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	14786	case function_dt_to_wstring :
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	14787	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	14788	symbol_c *last_type_symbol = NULL;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	14789
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	14790	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	14791	identifier_c param_name("IN");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	14792	/* Get the value from a foo(<param_name> = <param_value>) style call */
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	14793	symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	14794
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	14795	/* Get the value from a foo(<param_value>) style call */
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	14796	if (IN_param_value == NULL)
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	14797	IN_param_value = function_call_param_iterator.next();
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	14798	symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	14799	last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	14800
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	14801	if (typeid(*last_type_symbol) == typeid(dt_type_name_c))
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	14802	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	14803
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	14804	symbol_c * return_type_symbol = &search_constant_type_c::wstring_type_name;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	14805	s4o.print("(");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	14806	return_type_symbol->accept(*this);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	14807	s4o.print(")time_to_string(");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	14808	IN_param_value->accept(*this);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	14809	s4o.print(")");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	14810	return NULL;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	14811
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	14812	}
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	14813
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	14814	ERROR;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	14815	}
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	14816
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	14817	}/function_dt_to_wstring/
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	14818	break;
33 4507beb2aac6 preliminary std lib support for ST etisserant parents: diff changeset	14819
4507beb2aac6 preliminary std lib support for ST etisserant parents: diff changeset	14820	/****
4507beb2aac6 preliminary std lib support for ST etisserant parents: diff changeset	14821	*TRUNC
4507beb2aac6 preliminary std lib support for ST etisserant parents: diff changeset	14822	*/
35 9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	14823	case function_trunc :
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	14824	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	14825	symbol_c *last_type_symbol = NULL;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	14826
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	14827	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	14828	identifier_c param_name("IN");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	14829	/* Get the value from a foo(<param_name> = <param_value>) style call */
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	14830	symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	14831
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	14832	/* Get the value from a foo(<param_value>) style call */
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	14833	if (IN_param_value == NULL)
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	14834	IN_param_value = function_call_param_iterator.next();
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	14835	symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	14836	last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	14837
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	14838	if(search_expression_type->is_real_type(IN_type_symbol))
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	14839	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	14840
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	14841	symbol_c * return_type_symbol = &search_constant_type_c::constant_int_type_name;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	14842	s4o.print("(int)");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	14843	IN_param_value->accept(*this);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	14844	return NULL;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	14845
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	14846	}
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	14847
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	14848	ERROR;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	14849	}
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	14850
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	14851	}/function_trunc/
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	14852	break;
33 4507beb2aac6 preliminary std lib support for ST etisserant parents: diff changeset	14853
4507beb2aac6 preliminary std lib support for ST etisserant parents: diff changeset	14854	/****
4507beb2aac6 preliminary std lib support for ST etisserant parents: diff changeset	14855	*BCD_TO_SINT
4507beb2aac6 preliminary std lib support for ST etisserant parents: diff changeset	14856	*/
35 9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	14857	case function_bcd_to_sint :
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	14858	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	14859	symbol_c *last_type_symbol = NULL;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	14860
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	14861	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	14862	identifier_c param_name("IN");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	14863	/* Get the value from a foo(<param_name> = <param_value>) style call */
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	14864	symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	14865
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	14866	/* Get the value from a foo(<param_value>) style call */
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	14867	if (IN_param_value == NULL)
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	14868	IN_param_value = function_call_param_iterator.next();
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	14869	symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	14870	last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	14871
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	14872	if(search_expression_type->is_binary_type(IN_type_symbol))
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	14873	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	14874
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	14875	symbol_c * return_type_symbol = &search_constant_type_c::sint_type_name;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	14876	s4o.print("__bcd_to_something(sizeof(");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	14877	IN_type_symbol->accept(*this);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	14878	s4o.print("),&");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	14879	IN_param_value->accept(*this);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	14880	s4o.print(")");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	14881	return NULL;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	14882
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	14883	}
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	14884
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	14885	ERROR;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	14886	}
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	14887
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	14888	}/function_bcd_to_sint/
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	14889	break;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	14890
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	14891	/****
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	14892	*BCD_TO_INT
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	14893	*/
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	14894	case function_bcd_to_int :
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	14895	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	14896	symbol_c *last_type_symbol = NULL;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	14897
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	14898	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	14899	identifier_c param_name("IN");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	14900	/* Get the value from a foo(<param_name> = <param_value>) style call */
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	14901	symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	14902
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	14903	/* Get the value from a foo(<param_value>) style call */
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	14904	if (IN_param_value == NULL)
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	14905	IN_param_value = function_call_param_iterator.next();
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	14906	symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	14907	last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	14908
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	14909	if(search_expression_type->is_binary_type(IN_type_symbol))
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	14910	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	14911
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	14912	symbol_c * return_type_symbol = &search_constant_type_c::int_type_name;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	14913	s4o.print("__bcd_to_something(sizeof(");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	14914	IN_type_symbol->accept(*this);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	14915	s4o.print("),&");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	14916	IN_param_value->accept(*this);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	14917	s4o.print(")");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	14918	return NULL;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	14919
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	14920	}
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	14921
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	14922	ERROR;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	14923	}
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	14924
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	14925	}/function_bcd_to_int/
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	14926	break;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	14927
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	14928	/****
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	14929	*BCD_TO_DINT
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	14930	*/
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	14931	case function_bcd_to_dint :
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	14932	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	14933	symbol_c *last_type_symbol = NULL;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	14934
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	14935	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	14936	identifier_c param_name("IN");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	14937	/* Get the value from a foo(<param_name> = <param_value>) style call */
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	14938	symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	14939
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	14940	/* Get the value from a foo(<param_value>) style call */
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	14941	if (IN_param_value == NULL)
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	14942	IN_param_value = function_call_param_iterator.next();
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	14943	symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	14944	last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	14945
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	14946	if(search_expression_type->is_binary_type(IN_type_symbol))
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	14947	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	14948
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	14949	symbol_c * return_type_symbol = &search_constant_type_c::dint_type_name;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	14950	s4o.print("__bcd_to_something(sizeof(");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	14951	IN_type_symbol->accept(*this);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	14952	s4o.print("),&");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	14953	IN_param_value->accept(*this);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	14954	s4o.print(")");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	14955	return NULL;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	14956
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	14957	}
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	14958
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	14959	ERROR;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	14960	}
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	14961
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	14962	}/function_bcd_to_dint/
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	14963	break;
33 4507beb2aac6 preliminary std lib support for ST etisserant parents: diff changeset	14964
4507beb2aac6 preliminary std lib support for ST etisserant parents: diff changeset	14965	/****
4507beb2aac6 preliminary std lib support for ST etisserant parents: diff changeset	14966	*BCD_TO_LINT
4507beb2aac6 preliminary std lib support for ST etisserant parents: diff changeset	14967	*/
35 9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	14968	case function_bcd_to_lint :
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	14969	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	14970	symbol_c *last_type_symbol = NULL;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	14971
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	14972	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	14973	identifier_c param_name("IN");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	14974	/* Get the value from a foo(<param_name> = <param_value>) style call */
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	14975	symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	14976
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	14977	/* Get the value from a foo(<param_value>) style call */
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	14978	if (IN_param_value == NULL)
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	14979	IN_param_value = function_call_param_iterator.next();
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	14980	symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	14981	last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	14982
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	14983	if(search_expression_type->is_binary_type(IN_type_symbol))
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	14984	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	14985
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	14986	symbol_c * return_type_symbol = &search_constant_type_c::lint_type_name;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	14987	s4o.print("__bcd_to_something(sizeof(");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	14988	IN_type_symbol->accept(*this);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	14989	s4o.print("),&");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	14990	IN_param_value->accept(*this);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	14991	s4o.print(")");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	14992	return NULL;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	14993
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	14994	}
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	14995
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	14996	ERROR;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	14997	}
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	14998
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	14999	}/function_bcd_to_lint/
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	15000	break;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	15001
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	15002	/****
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	15003	*BCD_TO_USINT
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	15004	*/
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	15005	case function_bcd_to_usint :
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	15006	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	15007	symbol_c *last_type_symbol = NULL;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	15008
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	15009	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	15010	identifier_c param_name("IN");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	15011	/* Get the value from a foo(<param_name> = <param_value>) style call */
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	15012	symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	15013
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	15014	/* Get the value from a foo(<param_value>) style call */
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	15015	if (IN_param_value == NULL)
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	15016	IN_param_value = function_call_param_iterator.next();
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	15017	symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	15018	last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	15019
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	15020	if(search_expression_type->is_binary_type(IN_type_symbol))
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	15021	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	15022
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	15023	symbol_c * return_type_symbol = &search_constant_type_c::usint_type_name;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	15024	s4o.print("__bcd_to_something(sizeof(");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	15025	IN_type_symbol->accept(*this);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	15026	s4o.print("),&");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	15027	IN_param_value->accept(*this);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	15028	s4o.print(")");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	15029	return NULL;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	15030
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	15031	}
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	15032
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	15033	ERROR;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	15034	}
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	15035
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	15036	}/function_bcd_to_usint/
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	15037	break;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	15038
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	15039	/****
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	15040	*BCD_TO_UINT
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	15041	*/
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	15042	case function_bcd_to_uint :
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	15043	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	15044	symbol_c *last_type_symbol = NULL;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	15045
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	15046	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	15047	identifier_c param_name("IN");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	15048	/* Get the value from a foo(<param_name> = <param_value>) style call */
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	15049	symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	15050
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	15051	/* Get the value from a foo(<param_value>) style call */
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	15052	if (IN_param_value == NULL)
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	15053	IN_param_value = function_call_param_iterator.next();
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	15054	symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	15055	last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	15056
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	15057	if(search_expression_type->is_binary_type(IN_type_symbol))
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	15058	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	15059
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	15060	symbol_c * return_type_symbol = &search_constant_type_c::uint_type_name;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	15061	s4o.print("__bcd_to_something(sizeof(");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	15062	IN_type_symbol->accept(*this);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	15063	s4o.print("),&");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	15064	IN_param_value->accept(*this);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	15065	s4o.print(")");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	15066	return NULL;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	15067
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	15068	}
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	15069
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	15070	ERROR;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	15071	}
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	15072
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	15073	}/function_bcd_to_uint/
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	15074	break;
33 4507beb2aac6 preliminary std lib support for ST etisserant parents: diff changeset	15075
4507beb2aac6 preliminary std lib support for ST etisserant parents: diff changeset	15076	/****
4507beb2aac6 preliminary std lib support for ST etisserant parents: diff changeset	15077	*BCD_TO_UDINT
4507beb2aac6 preliminary std lib support for ST etisserant parents: diff changeset	15078	*/
35 9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	15079	case function_bcd_to_udint :
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	15080	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	15081	symbol_c *last_type_symbol = NULL;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	15082
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	15083	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	15084	identifier_c param_name("IN");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	15085	/* Get the value from a foo(<param_name> = <param_value>) style call */
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	15086	symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	15087
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	15088	/* Get the value from a foo(<param_value>) style call */
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	15089	if (IN_param_value == NULL)
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	15090	IN_param_value = function_call_param_iterator.next();
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	15091	symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	15092	last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	15093
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	15094	if(search_expression_type->is_binary_type(IN_type_symbol))
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	15095	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	15096
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	15097	symbol_c * return_type_symbol = &search_constant_type_c::udint_type_name;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	15098	s4o.print("__bcd_to_something(sizeof(");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	15099	IN_type_symbol->accept(*this);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	15100	s4o.print("),&");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	15101	IN_param_value->accept(*this);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	15102	s4o.print(")");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	15103	return NULL;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	15104
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	15105	}
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	15106
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	15107	ERROR;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	15108	}
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	15109
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	15110	}/function_bcd_to_udint/
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	15111	break;
33 4507beb2aac6 preliminary std lib support for ST etisserant parents: diff changeset	15112
4507beb2aac6 preliminary std lib support for ST etisserant parents: diff changeset	15113	/****
4507beb2aac6 preliminary std lib support for ST etisserant parents: diff changeset	15114	*BCD_TO_ULINT
4507beb2aac6 preliminary std lib support for ST etisserant parents: diff changeset	15115	*/
35 9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	15116	case function_bcd_to_ulint :
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	15117	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	15118	symbol_c *last_type_symbol = NULL;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	15119
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	15120	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	15121	identifier_c param_name("IN");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	15122	/* Get the value from a foo(<param_name> = <param_value>) style call */
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	15123	symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	15124
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	15125	/* Get the value from a foo(<param_value>) style call */
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	15126	if (IN_param_value == NULL)
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	15127	IN_param_value = function_call_param_iterator.next();
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	15128	symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	15129	last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	15130
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	15131	if(search_expression_type->is_binary_type(IN_type_symbol))
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	15132	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	15133
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	15134	symbol_c * return_type_symbol = &search_constant_type_c::ulint_type_name;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	15135	s4o.print("__bcd_to_something(sizeof(");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	15136	IN_type_symbol->accept(*this);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	15137	s4o.print("),&");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	15138	IN_param_value->accept(*this);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	15139	s4o.print(")");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	15140	return NULL;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	15141
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	15142	}
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	15143
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	15144	ERROR;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	15145	}
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	15146
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	15147	}/function_bcd_to_ulint/
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	15148	break;
33 4507beb2aac6 preliminary std lib support for ST etisserant parents: diff changeset	15149
4507beb2aac6 preliminary std lib support for ST etisserant parents: diff changeset	15150	/****
4507beb2aac6 preliminary std lib support for ST etisserant parents: diff changeset	15151	*SINT_TO_BCD
4507beb2aac6 preliminary std lib support for ST etisserant parents: diff changeset	15152	*/
35 9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	15153	case function_sint_to_bcd :
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	15154	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	15155	symbol_c *last_type_symbol = NULL;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	15156
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	15157	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	15158	identifier_c param_name("IN");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	15159	/* Get the value from a foo(<param_name> = <param_value>) style call */
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	15160	symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	15161
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	15162	/* Get the value from a foo(<param_value>) style call */
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	15163	if (IN_param_value == NULL)
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	15164	IN_param_value = function_call_param_iterator.next();
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	15165	symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	15166	last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	15167
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	15168	if (typeid(*last_type_symbol) == typeid(sint_type_name_c))
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	15169	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	15170
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	15171	symbol_c * return_type_symbol = &search_constant_type_c::constant_int_type_name;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	15172	s4o.print("__something_to_bcd(sizeof(");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	15173	IN_type_symbol->accept(*this);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	15174	s4o.print("),&");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	15175	IN_param_value->accept(*this);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	15176	s4o.print(")");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	15177	return NULL;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	15178
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	15179	}
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	15180
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	15181	ERROR;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	15182	}
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	15183
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	15184	}/function_sint_to_bcd/
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	15185	break;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	15186
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	15187	/****
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	15188	*INT_TO_BCD
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	15189	*/
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	15190	case function_int_to_bcd :
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	15191	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	15192	symbol_c *last_type_symbol = NULL;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	15193
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	15194	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	15195	identifier_c param_name("IN");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	15196	/* Get the value from a foo(<param_name> = <param_value>) style call */
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	15197	symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	15198
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	15199	/* Get the value from a foo(<param_value>) style call */
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	15200	if (IN_param_value == NULL)
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	15201	IN_param_value = function_call_param_iterator.next();
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	15202	symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	15203	last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	15204
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	15205	if (typeid(*last_type_symbol) == typeid(int_type_name_c))
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	15206	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	15207
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	15208	symbol_c * return_type_symbol = &search_constant_type_c::constant_int_type_name;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	15209	s4o.print("__something_to_bcd(sizeof(");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	15210	IN_type_symbol->accept(*this);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	15211	s4o.print("),&");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	15212	IN_param_value->accept(*this);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	15213	s4o.print(")");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	15214	return NULL;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	15215
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	15216	}
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	15217
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	15218	ERROR;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	15219	}
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	15220
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	15221	}/function_int_to_bcd/
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	15222	break;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	15223
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	15224	/****
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	15225	*DINT_TO_BCD
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	15226	*/
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	15227	case function_dint_to_bcd :
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	15228	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	15229	symbol_c *last_type_symbol = NULL;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	15230
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	15231	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	15232	identifier_c param_name("IN");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	15233	/* Get the value from a foo(<param_name> = <param_value>) style call */
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	15234	symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	15235
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	15236	/* Get the value from a foo(<param_value>) style call */
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	15237	if (IN_param_value == NULL)
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	15238	IN_param_value = function_call_param_iterator.next();
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	15239	symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	15240	last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	15241
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	15242	if (typeid(*last_type_symbol) == typeid(dint_type_name_c))
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	15243	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	15244
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	15245	symbol_c * return_type_symbol = &search_constant_type_c::constant_int_type_name;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	15246	s4o.print("__something_to_bcd(sizeof(");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	15247	IN_type_symbol->accept(*this);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	15248	s4o.print("),&");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	15249	IN_param_value->accept(*this);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	15250	s4o.print(")");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	15251	return NULL;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	15252
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	15253	}
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	15254
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	15255	ERROR;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	15256	}
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	15257
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	15258	}/function_dint_to_bcd/
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	15259	break;
33 4507beb2aac6 preliminary std lib support for ST etisserant parents: diff changeset	15260
4507beb2aac6 preliminary std lib support for ST etisserant parents: diff changeset	15261	/****
4507beb2aac6 preliminary std lib support for ST etisserant parents: diff changeset	15262	*LINT_TO_BCD
4507beb2aac6 preliminary std lib support for ST etisserant parents: diff changeset	15263	*/
35 9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	15264	case function_lint_to_bcd :
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	15265	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	15266	symbol_c *last_type_symbol = NULL;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	15267
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	15268	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	15269	identifier_c param_name("IN");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	15270	/* Get the value from a foo(<param_name> = <param_value>) style call */
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	15271	symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	15272
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	15273	/* Get the value from a foo(<param_value>) style call */
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	15274	if (IN_param_value == NULL)
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	15275	IN_param_value = function_call_param_iterator.next();
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	15276	symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	15277	last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	15278
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	15279	if (typeid(*last_type_symbol) == typeid(lint_type_name_c))
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	15280	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	15281
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	15282	symbol_c * return_type_symbol = &search_constant_type_c::constant_int_type_name;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	15283	s4o.print("__something_to_bcd(sizeof(");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	15284	IN_type_symbol->accept(*this);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	15285	s4o.print("),&");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	15286	IN_param_value->accept(*this);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	15287	s4o.print(")");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	15288	return NULL;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	15289
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	15290	}
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	15291
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	15292	ERROR;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	15293	}
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	15294
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	15295	}/function_lint_to_bcd/
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	15296	break;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	15297
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	15298	/****
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	15299	*USINT_TO_BCD
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	15300	*/
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	15301	case function_usint_to_bcd :
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	15302	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	15303	symbol_c *last_type_symbol = NULL;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	15304
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	15305	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	15306	identifier_c param_name("IN");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	15307	/* Get the value from a foo(<param_name> = <param_value>) style call */
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	15308	symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	15309
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	15310	/* Get the value from a foo(<param_value>) style call */
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	15311	if (IN_param_value == NULL)
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	15312	IN_param_value = function_call_param_iterator.next();
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	15313	symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	15314	last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	15315
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	15316	if (typeid(*last_type_symbol) == typeid(usint_type_name_c))
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	15317	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	15318
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	15319	symbol_c * return_type_symbol = &search_constant_type_c::constant_int_type_name;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	15320	s4o.print("__something_to_bcd(sizeof(");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	15321	IN_type_symbol->accept(*this);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	15322	s4o.print("),&");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	15323	IN_param_value->accept(*this);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	15324	s4o.print(")");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	15325	return NULL;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	15326
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	15327	}
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	15328
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	15329	ERROR;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	15330	}
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	15331
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	15332	}/function_usint_to_bcd/
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	15333	break;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	15334
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	15335	/****
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	15336	*UINT_TO_BCD
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	15337	*/
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	15338	case function_uint_to_bcd :
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	15339	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	15340	symbol_c *last_type_symbol = NULL;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	15341
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	15342	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	15343	identifier_c param_name("IN");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	15344	/* Get the value from a foo(<param_name> = <param_value>) style call */
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	15345	symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	15346
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	15347	/* Get the value from a foo(<param_value>) style call */
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	15348	if (IN_param_value == NULL)
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	15349	IN_param_value = function_call_param_iterator.next();
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	15350	symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	15351	last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	15352
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	15353	if (typeid(*last_type_symbol) == typeid(uint_type_name_c))
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	15354	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	15355
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	15356	symbol_c * return_type_symbol = &search_constant_type_c::constant_int_type_name;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	15357	s4o.print("__something_to_bcd(sizeof(");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	15358	IN_type_symbol->accept(*this);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	15359	s4o.print("),&");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	15360	IN_param_value->accept(*this);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	15361	s4o.print(")");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	15362	return NULL;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	15363
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	15364	}
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	15365
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	15366	ERROR;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	15367	}
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	15368
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	15369	}/function_uint_to_bcd/
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	15370	break;
33 4507beb2aac6 preliminary std lib support for ST etisserant parents: diff changeset	15371
4507beb2aac6 preliminary std lib support for ST etisserant parents: diff changeset	15372	/****
4507beb2aac6 preliminary std lib support for ST etisserant parents: diff changeset	15373	*UDINT_TO_BCD
4507beb2aac6 preliminary std lib support for ST etisserant parents: diff changeset	15374	*/
35 9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	15375	case function_udint_to_bcd :
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	15376	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	15377	symbol_c *last_type_symbol = NULL;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	15378
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	15379	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	15380	identifier_c param_name("IN");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	15381	/* Get the value from a foo(<param_name> = <param_value>) style call */
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	15382	symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	15383
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	15384	/* Get the value from a foo(<param_value>) style call */
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	15385	if (IN_param_value == NULL)
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	15386	IN_param_value = function_call_param_iterator.next();
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	15387	symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	15388	last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	15389
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	15390	if (typeid(*last_type_symbol) == typeid(udint_type_name_c))
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	15391	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	15392
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	15393	symbol_c * return_type_symbol = &search_constant_type_c::constant_int_type_name;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	15394	s4o.print("__something_to_bcd(sizeof(");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	15395	IN_type_symbol->accept(*this);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	15396	s4o.print("),&");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	15397	IN_param_value->accept(*this);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	15398	s4o.print(")");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	15399	return NULL;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	15400
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	15401	}
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	15402
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	15403	ERROR;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	15404	}
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	15405
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	15406	}/function_udint_to_bcd/
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	15407	break;
33 4507beb2aac6 preliminary std lib support for ST etisserant parents: diff changeset	15408
4507beb2aac6 preliminary std lib support for ST etisserant parents: diff changeset	15409	/****
4507beb2aac6 preliminary std lib support for ST etisserant parents: diff changeset	15410	*ULINT_TO_BCD
4507beb2aac6 preliminary std lib support for ST etisserant parents: diff changeset	15411	*/
35 9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	15412	case function_ulint_to_bcd :
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	15413	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	15414	symbol_c *last_type_symbol = NULL;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	15415
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	15416	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	15417	identifier_c param_name("IN");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	15418	/* Get the value from a foo(<param_name> = <param_value>) style call */
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	15419	symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	15420
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	15421	/* Get the value from a foo(<param_value>) style call */
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	15422	if (IN_param_value == NULL)
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	15423	IN_param_value = function_call_param_iterator.next();
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	15424	symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	15425	last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	15426
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	15427	if (typeid(*last_type_symbol) == typeid(ulint_type_name_c))
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	15428	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	15429
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	15430	symbol_c * return_type_symbol = &search_constant_type_c::constant_int_type_name;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	15431	s4o.print("__something_to_bcd(sizeof(");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	15432	IN_type_symbol->accept(*this);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	15433	s4o.print("),&");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	15434	IN_param_value->accept(*this);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	15435	s4o.print(")");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	15436	return NULL;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	15437
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	15438	}
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	15439
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	15440	ERROR;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	15441	}
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	15442
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	15443	}/function_ulint_to_bcd/
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	15444	break;
33 4507beb2aac6 preliminary std lib support for ST etisserant parents: diff changeset	15445
4507beb2aac6 preliminary std lib support for ST etisserant parents: diff changeset	15446	/****
4507beb2aac6 preliminary std lib support for ST etisserant parents: diff changeset	15447	*DATE_AND_TIME_TO_TIME_OF_DAY
4507beb2aac6 preliminary std lib support for ST etisserant parents: diff changeset	15448	*/
35 9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	15449	case function_date_and_time_to_time_of_day :
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	15450	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	15451	symbol_c *last_type_symbol = NULL;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	15452
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	15453	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	15454	identifier_c param_name("IN");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	15455	/* Get the value from a foo(<param_name> = <param_value>) style call */
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	15456	symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	15457
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	15458	/* Get the value from a foo(<param_value>) style call */
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	15459	if (IN_param_value == NULL)
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	15460	IN_param_value = function_call_param_iterator.next();
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	15461	symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	15462	last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	15463
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	15464	if (typeid(*last_type_symbol) == typeid(dt_type_name_c))
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	15465	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	15466
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	15467	symbol_c * return_type_symbol = &search_constant_type_c::tod_type_name;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	15468	s4o.print("__date_and_time_to_time_of_day(&");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	15469	IN_param_value->accept(*this);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	15470	s4o.print(")");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	15471	return NULL;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	15472
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	15473	}
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	15474
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	15475	ERROR;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	15476	}
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	15477
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	15478	}/function_date_and_time_to_time_of_day/
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	15479	break;
33 4507beb2aac6 preliminary std lib support for ST etisserant parents: diff changeset	15480
4507beb2aac6 preliminary std lib support for ST etisserant parents: diff changeset	15481	/****
4507beb2aac6 preliminary std lib support for ST etisserant parents: diff changeset	15482	*DATE_AND_TIME_TO_DATE
4507beb2aac6 preliminary std lib support for ST etisserant parents: diff changeset	15483	*/
35 9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	15484	case function_date_and_time_to_date :
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	15485	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	15486	symbol_c *last_type_symbol = NULL;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	15487
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	15488	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	15489	identifier_c param_name("IN");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	15490	/* Get the value from a foo(<param_name> = <param_value>) style call */
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	15491	symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	15492
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	15493	/* Get the value from a foo(<param_value>) style call */
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	15494	if (IN_param_value == NULL)
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	15495	IN_param_value = function_call_param_iterator.next();
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	15496	symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	15497	last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	15498
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	15499	if (typeid(*last_type_symbol) == typeid(dt_type_name_c))
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	15500	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	15501
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	15502	symbol_c * return_type_symbol = &search_constant_type_c::date_type_name;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	15503	s4o.print("__date_and_time_to_time_of_day(&");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	15504	IN_param_value->accept(*this);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	15505	s4o.print(")");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	15506	return NULL;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	15507
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	15508	}
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	15509
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	15510	ERROR;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	15511	}
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	15512
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	15513	}/function_date_and_time_to_date/
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	15514	break;
33 4507beb2aac6 preliminary std lib support for ST etisserant parents: diff changeset	15515
4507beb2aac6 preliminary std lib support for ST etisserant parents: diff changeset	15516	/****
4507beb2aac6 preliminary std lib support for ST etisserant parents: diff changeset	15517	*ABS
4507beb2aac6 preliminary std lib support for ST etisserant parents: diff changeset	15518	*/
35 9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	15519	case function_abs :
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	15520	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	15521	symbol_c *last_type_symbol = NULL;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	15522
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	15523	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	15524	identifier_c param_name("IN");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	15525	/* Get the value from a foo(<param_name> = <param_value>) style call */
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	15526	symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	15527
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	15528	/* Get the value from a foo(<param_value>) style call */
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	15529	if (IN_param_value == NULL)
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	15530	IN_param_value = function_call_param_iterator.next();
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	15531	symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	15532	last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	15533
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	15534	if(search_expression_type->is_num_type(IN_type_symbol))
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	15535	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	15536
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	15537	symbol_c * return_type_symbol = IN_type_symbol;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	15538	s4o.print("__abs_");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	15539	IN_type_symbol->accept(*this);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	15540	s4o.print("(");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	15541	IN_param_value->accept(*this);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	15542	s4o.print(")");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	15543	return NULL;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	15544
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	15545	}
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	15546
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	15547	ERROR;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	15548	}
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	15549
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	15550	}/function_abs/
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	15551	break;
33 4507beb2aac6 preliminary std lib support for ST etisserant parents: diff changeset	15552
4507beb2aac6 preliminary std lib support for ST etisserant parents: diff changeset	15553	/****
4507beb2aac6 preliminary std lib support for ST etisserant parents: diff changeset	15554	*SQRT
4507beb2aac6 preliminary std lib support for ST etisserant parents: diff changeset	15555	*/
35 9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	15556	case function_sqrt :
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	15557	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	15558	symbol_c *last_type_symbol = NULL;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	15559
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	15560	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	15561	identifier_c param_name("IN");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	15562	/* Get the value from a foo(<param_name> = <param_value>) style call */
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	15563	symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	15564
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	15565	/* Get the value from a foo(<param_value>) style call */
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	15566	if (IN_param_value == NULL)
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	15567	IN_param_value = function_call_param_iterator.next();
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	15568	symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	15569	last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	15570
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	15571	if(search_expression_type->is_real_type(IN_type_symbol))
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	15572	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	15573
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	15574	symbol_c * return_type_symbol = IN_type_symbol;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	15575	s4o.print("sqrt(");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	15576	IN_param_value->accept(*this);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	15577	s4o.print(")");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	15578	return NULL;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	15579
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	15580	}
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	15581
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	15582	ERROR;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	15583	}
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	15584
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	15585	}/function_sqrt/
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	15586	break;
33 4507beb2aac6 preliminary std lib support for ST etisserant parents: diff changeset	15587
4507beb2aac6 preliminary std lib support for ST etisserant parents: diff changeset	15588	/****
4507beb2aac6 preliminary std lib support for ST etisserant parents: diff changeset	15589	*LN
4507beb2aac6 preliminary std lib support for ST etisserant parents: diff changeset	15590	*/
35 9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	15591	case function_ln :
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	15592	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	15593	symbol_c *last_type_symbol = NULL;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	15594
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	15595	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	15596	identifier_c param_name("IN");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	15597	/* Get the value from a foo(<param_name> = <param_value>) style call */
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	15598	symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	15599
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	15600	/* Get the value from a foo(<param_value>) style call */
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	15601	if (IN_param_value == NULL)
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	15602	IN_param_value = function_call_param_iterator.next();
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	15603	symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	15604	last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	15605
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	15606	if(search_expression_type->is_real_type(IN_type_symbol))
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	15607	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	15608
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	15609	symbol_c * return_type_symbol = IN_type_symbol;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	15610	s4o.print("ln(");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	15611	IN_param_value->accept(*this);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	15612	s4o.print(")");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	15613	return NULL;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	15614
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	15615	}
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	15616
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	15617	ERROR;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	15618	}
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	15619
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	15620	}/function_ln/
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	15621	break;
33 4507beb2aac6 preliminary std lib support for ST etisserant parents: diff changeset	15622
4507beb2aac6 preliminary std lib support for ST etisserant parents: diff changeset	15623	/****
4507beb2aac6 preliminary std lib support for ST etisserant parents: diff changeset	15624	*LOG
4507beb2aac6 preliminary std lib support for ST etisserant parents: diff changeset	15625	*/
35 9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	15626	case function_log :
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	15627	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	15628	symbol_c *last_type_symbol = NULL;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	15629
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	15630	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	15631	identifier_c param_name("IN");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	15632	/* Get the value from a foo(<param_name> = <param_value>) style call */
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	15633	symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	15634
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	15635	/* Get the value from a foo(<param_value>) style call */
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	15636	if (IN_param_value == NULL)
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	15637	IN_param_value = function_call_param_iterator.next();
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	15638	symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	15639	last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	15640
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	15641	if(search_expression_type->is_real_type(IN_type_symbol))
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	15642	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	15643
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	15644	symbol_c * return_type_symbol = IN_type_symbol;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	15645	s4o.print("log(");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	15646	IN_param_value->accept(*this);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	15647	s4o.print(")");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	15648	return NULL;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	15649
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	15650	}
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	15651
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	15652	ERROR;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	15653	}
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	15654
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	15655	}/function_log/
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	15656	break;
33 4507beb2aac6 preliminary std lib support for ST etisserant parents: diff changeset	15657
4507beb2aac6 preliminary std lib support for ST etisserant parents: diff changeset	15658	/****
4507beb2aac6 preliminary std lib support for ST etisserant parents: diff changeset	15659	*EXP
4507beb2aac6 preliminary std lib support for ST etisserant parents: diff changeset	15660	*/
35 9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	15661	case function_exp :
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	15662	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	15663	symbol_c *last_type_symbol = NULL;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	15664
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	15665	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	15666	identifier_c param_name("IN");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	15667	/* Get the value from a foo(<param_name> = <param_value>) style call */
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	15668	symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	15669
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	15670	/* Get the value from a foo(<param_value>) style call */
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	15671	if (IN_param_value == NULL)
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	15672	IN_param_value = function_call_param_iterator.next();
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	15673	symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	15674	last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	15675
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	15676	if(search_expression_type->is_real_type(IN_type_symbol))
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	15677	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	15678
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	15679	symbol_c * return_type_symbol = IN_type_symbol;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	15680	s4o.print("exp(");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	15681	IN_param_value->accept(*this);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	15682	s4o.print(")");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	15683	return NULL;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	15684
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	15685	}
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	15686
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	15687	ERROR;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	15688	}
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	15689
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	15690	}/function_exp/
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	15691	break;
33 4507beb2aac6 preliminary std lib support for ST etisserant parents: diff changeset	15692
4507beb2aac6 preliminary std lib support for ST etisserant parents: diff changeset	15693	/****
4507beb2aac6 preliminary std lib support for ST etisserant parents: diff changeset	15694	*SIN
4507beb2aac6 preliminary std lib support for ST etisserant parents: diff changeset	15695	*/
35 9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	15696	case function_sin :
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	15697	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	15698	symbol_c *last_type_symbol = NULL;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	15699
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	15700	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	15701	identifier_c param_name("IN");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	15702	/* Get the value from a foo(<param_name> = <param_value>) style call */
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	15703	symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	15704
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	15705	/* Get the value from a foo(<param_value>) style call */
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	15706	if (IN_param_value == NULL)
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	15707	IN_param_value = function_call_param_iterator.next();
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	15708	symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	15709	last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	15710
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	15711	if(search_expression_type->is_real_type(IN_type_symbol))
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	15712	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	15713
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	15714	symbol_c * return_type_symbol = IN_type_symbol;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	15715	s4o.print("sin(");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	15716	IN_param_value->accept(*this);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	15717	s4o.print(")");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	15718	return NULL;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	15719
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	15720	}
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	15721
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	15722	ERROR;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	15723	}
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	15724
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	15725	}/function_sin/
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	15726	break;
33 4507beb2aac6 preliminary std lib support for ST etisserant parents: diff changeset	15727
4507beb2aac6 preliminary std lib support for ST etisserant parents: diff changeset	15728	/****
4507beb2aac6 preliminary std lib support for ST etisserant parents: diff changeset	15729	*COS
4507beb2aac6 preliminary std lib support for ST etisserant parents: diff changeset	15730	*/
35 9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	15731	case function_cos :
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	15732	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	15733	symbol_c *last_type_symbol = NULL;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	15734
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	15735	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	15736	identifier_c param_name("IN");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	15737	/* Get the value from a foo(<param_name> = <param_value>) style call */
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	15738	symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	15739
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	15740	/* Get the value from a foo(<param_value>) style call */
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	15741	if (IN_param_value == NULL)
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	15742	IN_param_value = function_call_param_iterator.next();
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	15743	symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	15744	last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	15745
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	15746	if(search_expression_type->is_real_type(IN_type_symbol))
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	15747	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	15748
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	15749	symbol_c * return_type_symbol = IN_type_symbol;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	15750	s4o.print("cos(");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	15751	IN_param_value->accept(*this);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	15752	s4o.print(")");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	15753	return NULL;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	15754
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	15755	}
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	15756
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	15757	ERROR;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	15758	}
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	15759
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	15760	}/function_cos/
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	15761	break;
33 4507beb2aac6 preliminary std lib support for ST etisserant parents: diff changeset	15762
4507beb2aac6 preliminary std lib support for ST etisserant parents: diff changeset	15763	/****
4507beb2aac6 preliminary std lib support for ST etisserant parents: diff changeset	15764	*TAN
4507beb2aac6 preliminary std lib support for ST etisserant parents: diff changeset	15765	*/
35 9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	15766	case function_tan :
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	15767	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	15768	symbol_c *last_type_symbol = NULL;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	15769
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	15770	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	15771	identifier_c param_name("IN");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	15772	/* Get the value from a foo(<param_name> = <param_value>) style call */
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	15773	symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	15774
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	15775	/* Get the value from a foo(<param_value>) style call */
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	15776	if (IN_param_value == NULL)
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	15777	IN_param_value = function_call_param_iterator.next();
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	15778	symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	15779	last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	15780
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	15781	if(search_expression_type->is_real_type(IN_type_symbol))
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	15782	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	15783
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	15784	symbol_c * return_type_symbol = IN_type_symbol;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	15785	s4o.print("tan(");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	15786	IN_param_value->accept(*this);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	15787	s4o.print(")");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	15788	return NULL;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	15789
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	15790	}
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	15791
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	15792	ERROR;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	15793	}
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	15794
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	15795	}/function_tan/
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	15796	break;
33 4507beb2aac6 preliminary std lib support for ST etisserant parents: diff changeset	15797
4507beb2aac6 preliminary std lib support for ST etisserant parents: diff changeset	15798	/****
4507beb2aac6 preliminary std lib support for ST etisserant parents: diff changeset	15799	*ASIN
4507beb2aac6 preliminary std lib support for ST etisserant parents: diff changeset	15800	*/
35 9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	15801	case function_asin :
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	15802	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	15803	symbol_c *last_type_symbol = NULL;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	15804
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	15805	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	15806	identifier_c param_name("IN");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	15807	/* Get the value from a foo(<param_name> = <param_value>) style call */
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	15808	symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	15809
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	15810	/* Get the value from a foo(<param_value>) style call */
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	15811	if (IN_param_value == NULL)
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	15812	IN_param_value = function_call_param_iterator.next();
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	15813	symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	15814	last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	15815
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	15816	if(search_expression_type->is_real_type(IN_type_symbol))
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	15817	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	15818
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	15819	symbol_c * return_type_symbol = IN_type_symbol;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	15820	s4o.print("asin(");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	15821	IN_param_value->accept(*this);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	15822	s4o.print(")");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	15823	return NULL;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	15824
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	15825	}
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	15826
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	15827	ERROR;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	15828	}
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	15829
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	15830	}/function_asin/
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	15831	break;
33 4507beb2aac6 preliminary std lib support for ST etisserant parents: diff changeset	15832
4507beb2aac6 preliminary std lib support for ST etisserant parents: diff changeset	15833	/****
4507beb2aac6 preliminary std lib support for ST etisserant parents: diff changeset	15834	*ACOS
4507beb2aac6 preliminary std lib support for ST etisserant parents: diff changeset	15835	*/
35 9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	15836	case function_acos :
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	15837	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	15838	symbol_c *last_type_symbol = NULL;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	15839
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	15840	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	15841	identifier_c param_name("IN");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	15842	/* Get the value from a foo(<param_name> = <param_value>) style call */
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	15843	symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	15844
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	15845	/* Get the value from a foo(<param_value>) style call */
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	15846	if (IN_param_value == NULL)
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	15847	IN_param_value = function_call_param_iterator.next();
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	15848	symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	15849	last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	15850
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	15851	if(search_expression_type->is_real_type(IN_type_symbol))
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	15852	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	15853
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	15854	symbol_c * return_type_symbol = IN_type_symbol;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	15855	s4o.print("acos(");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	15856	IN_param_value->accept(*this);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	15857	s4o.print(")");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	15858	return NULL;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	15859
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	15860	}
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	15861
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	15862	ERROR;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	15863	}
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	15864
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	15865	}/function_acos/
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	15866	break;
33 4507beb2aac6 preliminary std lib support for ST etisserant parents: diff changeset	15867
4507beb2aac6 preliminary std lib support for ST etisserant parents: diff changeset	15868	/****
4507beb2aac6 preliminary std lib support for ST etisserant parents: diff changeset	15869	*ATAN
4507beb2aac6 preliminary std lib support for ST etisserant parents: diff changeset	15870	*/
35 9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	15871	case function_atan :
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	15872	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	15873	symbol_c *last_type_symbol = NULL;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	15874
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	15875	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	15876	identifier_c param_name("IN");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	15877	/* Get the value from a foo(<param_name> = <param_value>) style call */
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	15878	symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	15879
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	15880	/* Get the value from a foo(<param_value>) style call */
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	15881	if (IN_param_value == NULL)
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	15882	IN_param_value = function_call_param_iterator.next();
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	15883	symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	15884	last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	15885
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	15886	if(search_expression_type->is_real_type(IN_type_symbol))
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	15887	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	15888
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	15889	symbol_c * return_type_symbol = IN_type_symbol;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	15890	s4o.print("atan(");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	15891	IN_param_value->accept(*this);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	15892	s4o.print(")");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	15893	return NULL;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	15894
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	15895	}
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	15896
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	15897	ERROR;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	15898	}
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	15899
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	15900	}/function_atan/
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	15901	break;
33 4507beb2aac6 preliminary std lib support for ST etisserant parents: diff changeset	15902
4507beb2aac6 preliminary std lib support for ST etisserant parents: diff changeset	15903	/****
4507beb2aac6 preliminary std lib support for ST etisserant parents: diff changeset	15904	*ADD
4507beb2aac6 preliminary std lib support for ST etisserant parents: diff changeset	15905	*/
35 9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	15906	case function_add :
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	15907	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	15908	symbol_c *last_type_symbol = NULL;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	15909
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	15910	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	15911	identifier_c param_name("IN1");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	15912	/* Get the value from a foo(<param_name> = <param_value>) style call */
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	15913	symbol_c *IN1_param_value = function_call_param_iterator.search(&param_name);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	15914
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	15915	/* Get the value from a foo(<param_value>) style call */
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	15916	if (IN1_param_value == NULL)
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	15917	IN1_param_value = function_call_param_iterator.next();
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	15918	symbol_c *IN1_type_symbol = search_expression_type->get_type(IN1_param_value);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	15919	last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN1_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN1_type_symbol, last_type_symbol) : IN1_type_symbol ;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	15920
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	15921	if(search_expression_type->is_num_type(IN1_type_symbol))
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	15922	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	15923
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	15924	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	15925	identifier_c param_name("IN2");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	15926	/* Get the value from a foo(<param_name> = <param_value>) style call */
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	15927	symbol_c *IN2_param_value = function_call_param_iterator.search(&param_name);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	15928
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	15929	/* Get the value from a foo(<param_value>) style call */
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	15930	if (IN2_param_value == NULL)
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	15931	IN2_param_value = function_call_param_iterator.next();
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	15932	symbol_c *IN2_type_symbol = search_expression_type->get_type(IN2_param_value);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	15933	last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN2_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN2_type_symbol, last_type_symbol) : IN2_type_symbol ;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	15934
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	15935	if(search_expression_type->is_num_type(IN2_type_symbol))
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	15936	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	15937
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	15938	symbol_c * return_type_symbol = last_type_symbol;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	15939	s4o.print("(");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	15940	IN1_param_value->accept(*this);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	15941	s4o.print("+");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	15942	IN2_param_value->accept(*this);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	15943
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	15944	int base_num = 3;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	15945	symbol_c *param_value = NULL;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	15946	do{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	15947	char my_name[10];
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	15948	sprintf(my_name, "IN%d", base_num++);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	15949	identifier_c param_name(my_name);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	15950
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	15951	/* Get the value from a foo(<param_name> = <param_value>) style call */
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	15952	param_value = function_call_param_iterator.search(&param_name);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	15953
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	15954	/* Get the value from a foo(<param_value>) style call */
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	15955	if (param_value == NULL)
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	15956	param_value = function_call_param_iterator.next();
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	15957	if (param_value != NULL){
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	15958	symbol_c *current_type_symbol = search_expression_type->get_type(param_value);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	15959	last_type_symbol = last_type_symbol && search_expression_type->is_same_type(current_type_symbol, last_type_symbol) ? search_expression_type->common_type(current_type_symbol, last_type_symbol) : current_type_symbol ;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	15960
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	15961	/Function specific CODE /
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	15962	s4o.print("+");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	15963	param_value->accept(*this);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	15964
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	15965	}
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	15966
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	15967	}while(param_value != NULL);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	15968	s4o.print(")");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	15969	return NULL;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	15970
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	15971
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	15972	}
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	15973
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	15974	ERROR;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	15975	}
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	15976
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	15977	}
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	15978
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	15979	if (typeid(*last_type_symbol) == typeid(dt_type_name_c))
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	15980	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	15981
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	15982	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	15983	identifier_c param_name("IN2");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	15984	/* Get the value from a foo(<param_name> = <param_value>) style call */
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	15985	symbol_c *IN2_param_value = function_call_param_iterator.search(&param_name);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	15986
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	15987	/* Get the value from a foo(<param_value>) style call */
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	15988	if (IN2_param_value == NULL)
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	15989	IN2_param_value = function_call_param_iterator.next();
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	15990	symbol_c *IN2_type_symbol = search_expression_type->get_type(IN2_param_value);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	15991	last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN2_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN2_type_symbol, last_type_symbol) : IN2_type_symbol ;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	15992
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	15993	if (typeid(*last_type_symbol) == typeid(time_type_name_c))
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	15994	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	15995
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	15996	symbol_c * return_type_symbol = &search_constant_type_c::dt_type_name;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	15997	s4o.print("__time_add(&");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	15998	IN1_param_value->accept(*this);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	15999	s4o.print(", &");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	16000	IN2_param_value->accept(*this);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	16001	s4o.print(")");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	16002	return NULL;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	16003
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	16004	}
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	16005
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	16006	ERROR;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	16007	}
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	16008
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	16009	}
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	16010
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	16011	if (typeid(*last_type_symbol) == typeid(tod_type_name_c))
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	16012	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	16013
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	16014	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	16015	identifier_c param_name("IN2");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	16016	/* Get the value from a foo(<param_name> = <param_value>) style call */
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	16017	symbol_c *IN2_param_value = function_call_param_iterator.search(&param_name);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	16018
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	16019	/* Get the value from a foo(<param_value>) style call */
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	16020	if (IN2_param_value == NULL)
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	16021	IN2_param_value = function_call_param_iterator.next();
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	16022	symbol_c *IN2_type_symbol = search_expression_type->get_type(IN2_param_value);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	16023	last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN2_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN2_type_symbol, last_type_symbol) : IN2_type_symbol ;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	16024
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	16025	if (typeid(*last_type_symbol) == typeid(time_type_name_c))
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	16026	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	16027
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	16028	symbol_c * return_type_symbol = &search_constant_type_c::tod_type_name;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	16029	s4o.print("__time_add(&");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	16030	IN1_param_value->accept(*this);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	16031	s4o.print(", &");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	16032	IN2_param_value->accept(*this);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	16033	s4o.print(")");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	16034	return NULL;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	16035
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	16036	}
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	16037
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	16038	ERROR;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	16039	}
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	16040
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	16041	}
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	16042
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	16043	if (typeid(*last_type_symbol) == typeid(time_type_name_c))
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	16044	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	16045
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	16046	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	16047	identifier_c param_name("IN2");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	16048	/* Get the value from a foo(<param_name> = <param_value>) style call */
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	16049	symbol_c *IN2_param_value = function_call_param_iterator.search(&param_name);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	16050
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	16051	/* Get the value from a foo(<param_value>) style call */
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	16052	if (IN2_param_value == NULL)
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	16053	IN2_param_value = function_call_param_iterator.next();
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	16054	symbol_c *IN2_type_symbol = search_expression_type->get_type(IN2_param_value);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	16055	last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN2_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN2_type_symbol, last_type_symbol) : IN2_type_symbol ;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	16056
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	16057	if (typeid(*last_type_symbol) == typeid(time_type_name_c))
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	16058	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	16059
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	16060	symbol_c * return_type_symbol = &search_constant_type_c::time_type_name;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	16061	s4o.print("__time_add(&");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	16062	IN1_param_value->accept(*this);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	16063	s4o.print(", &");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	16064	IN2_param_value->accept(*this);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	16065	s4o.print(")");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	16066	return NULL;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	16067
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	16068	}
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	16069
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	16070	ERROR;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	16071	}
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	16072
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	16073	}
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	16074
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	16075	ERROR;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	16076	}
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	16077
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	16078	}/function_add/
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	16079	break;
33 4507beb2aac6 preliminary std lib support for ST etisserant parents: diff changeset	16080
4507beb2aac6 preliminary std lib support for ST etisserant parents: diff changeset	16081	/****
4507beb2aac6 preliminary std lib support for ST etisserant parents: diff changeset	16082	*MUL
4507beb2aac6 preliminary std lib support for ST etisserant parents: diff changeset	16083	*/
35 9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	16084	case function_mul :
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	16085	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	16086	symbol_c *last_type_symbol = NULL;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	16087
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	16088	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	16089	identifier_c param_name("IN1");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	16090	/* Get the value from a foo(<param_name> = <param_value>) style call */
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	16091	symbol_c *IN1_param_value = function_call_param_iterator.search(&param_name);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	16092
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	16093	/* Get the value from a foo(<param_value>) style call */
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	16094	if (IN1_param_value == NULL)
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	16095	IN1_param_value = function_call_param_iterator.next();
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	16096	symbol_c *IN1_type_symbol = search_expression_type->get_type(IN1_param_value);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	16097	last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN1_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN1_type_symbol, last_type_symbol) : IN1_type_symbol ;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	16098
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	16099	if(search_expression_type->is_num_type(IN1_type_symbol))
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	16100	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	16101
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	16102	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	16103	identifier_c param_name("IN2");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	16104	/* Get the value from a foo(<param_name> = <param_value>) style call */
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	16105	symbol_c *IN2_param_value = function_call_param_iterator.search(&param_name);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	16106
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	16107	/* Get the value from a foo(<param_value>) style call */
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	16108	if (IN2_param_value == NULL)
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	16109	IN2_param_value = function_call_param_iterator.next();
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	16110	symbol_c *IN2_type_symbol = search_expression_type->get_type(IN2_param_value);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	16111	last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN2_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN2_type_symbol, last_type_symbol) : IN2_type_symbol ;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	16112
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	16113	if(search_expression_type->is_num_type(IN2_type_symbol))
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	16114	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	16115
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	16116	symbol_c * return_type_symbol = last_type_symbol;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	16117	s4o.print("(");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	16118	IN1_param_value->accept(*this);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	16119	s4o.print("*");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	16120	IN2_param_value->accept(*this);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	16121
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	16122	int base_num = 3;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	16123	symbol_c *param_value = NULL;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	16124	do{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	16125	char my_name[10];
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	16126	sprintf(my_name, "IN%d", base_num++);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	16127	identifier_c param_name(my_name);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	16128
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	16129	/* Get the value from a foo(<param_name> = <param_value>) style call */
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	16130	param_value = function_call_param_iterator.search(&param_name);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	16131
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	16132	/* Get the value from a foo(<param_value>) style call */
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	16133	if (param_value == NULL)
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	16134	param_value = function_call_param_iterator.next();
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	16135	if (param_value != NULL){
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	16136	symbol_c *current_type_symbol = search_expression_type->get_type(param_value);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	16137	last_type_symbol = last_type_symbol && search_expression_type->is_same_type(current_type_symbol, last_type_symbol) ? search_expression_type->common_type(current_type_symbol, last_type_symbol) : current_type_symbol ;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	16138
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	16139	/Function specific CODE /
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	16140	s4o.print("*");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	16141	param_value->accept(*this);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	16142
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	16143	}
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	16144
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	16145	}while(param_value != NULL);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	16146	s4o.print(")");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	16147	return NULL;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	16148
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	16149
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	16150	}
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	16151
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	16152	ERROR;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	16153	}
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	16154
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	16155	}
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	16156
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	16157	if (typeid(*last_type_symbol) == typeid(time_type_name_c))
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	16158	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	16159
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	16160	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	16161	identifier_c param_name("IN2");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	16162	/* Get the value from a foo(<param_name> = <param_value>) style call */
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	16163	symbol_c *IN2_param_value = function_call_param_iterator.search(&param_name);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	16164
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	16165	/* Get the value from a foo(<param_value>) style call */
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	16166	if (IN2_param_value == NULL)
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	16167	IN2_param_value = function_call_param_iterator.next();
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	16168	symbol_c *IN2_type_symbol = search_expression_type->get_type(IN2_param_value);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	16169	last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN2_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN2_type_symbol, last_type_symbol) : IN2_type_symbol ;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	16170
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	16171	if(search_expression_type->is_num_type(IN2_type_symbol))
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	16172	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	16173
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	16174	symbol_c * return_type_symbol = &search_constant_type_c::time_type_name;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	16175	s4o.print("__time_mul(&");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	16176	IN1_param_value->accept(*this);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	16177	s4o.print(", &");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	16178	IN2_param_value->accept(*this);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	16179	s4o.print(")");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	16180	return NULL;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	16181
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	16182	}
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	16183
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	16184	ERROR;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	16185	}
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	16186
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	16187	}
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	16188
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	16189	ERROR;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	16190	}
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	16191
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	16192	}/function_mul/
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	16193	break;
33 4507beb2aac6 preliminary std lib support for ST etisserant parents: diff changeset	16194
4507beb2aac6 preliminary std lib support for ST etisserant parents: diff changeset	16195	/****
4507beb2aac6 preliminary std lib support for ST etisserant parents: diff changeset	16196	*SUB
4507beb2aac6 preliminary std lib support for ST etisserant parents: diff changeset	16197	*/
35 9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	16198	case function_sub :
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	16199	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	16200	symbol_c *last_type_symbol = NULL;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	16201
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	16202	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	16203	identifier_c param_name("IN1");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	16204	/* Get the value from a foo(<param_name> = <param_value>) style call */
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	16205	symbol_c *IN1_param_value = function_call_param_iterator.search(&param_name);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	16206
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	16207	/* Get the value from a foo(<param_value>) style call */
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	16208	if (IN1_param_value == NULL)
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	16209	IN1_param_value = function_call_param_iterator.next();
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	16210	symbol_c *IN1_type_symbol = search_expression_type->get_type(IN1_param_value);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	16211	last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN1_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN1_type_symbol, last_type_symbol) : IN1_type_symbol ;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	16212
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	16213	if(search_expression_type->is_num_type(IN1_type_symbol))
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	16214	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	16215
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	16216	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	16217	identifier_c param_name("IN2");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	16218	/* Get the value from a foo(<param_name> = <param_value>) style call */
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	16219	symbol_c *IN2_param_value = function_call_param_iterator.search(&param_name);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	16220
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	16221	/* Get the value from a foo(<param_value>) style call */
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	16222	if (IN2_param_value == NULL)
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	16223	IN2_param_value = function_call_param_iterator.next();
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	16224	symbol_c *IN2_type_symbol = search_expression_type->get_type(IN2_param_value);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	16225	last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN2_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN2_type_symbol, last_type_symbol) : IN2_type_symbol ;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	16226
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	16227	if(search_expression_type->is_num_type(IN2_type_symbol))
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	16228	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	16229
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	16230	symbol_c * return_type_symbol = last_type_symbol;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	16231	s4o.print("(");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	16232	IN1_param_value->accept(*this);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	16233	s4o.print("-");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	16234	IN2_param_value->accept(*this);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	16235	s4o.print(")");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	16236	return NULL;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	16237
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	16238	}
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	16239
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	16240	ERROR;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	16241	}
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	16242
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	16243	}
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	16244
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	16245	if (typeid(*last_type_symbol) == typeid(date_type_name_c))
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	16246	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	16247
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	16248	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	16249	identifier_c param_name("IN2");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	16250	/* Get the value from a foo(<param_name> = <param_value>) style call */
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	16251	symbol_c *IN2_param_value = function_call_param_iterator.search(&param_name);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	16252
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	16253	/* Get the value from a foo(<param_value>) style call */
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	16254	if (IN2_param_value == NULL)
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	16255	IN2_param_value = function_call_param_iterator.next();
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	16256	symbol_c *IN2_type_symbol = search_expression_type->get_type(IN2_param_value);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	16257	last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN2_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN2_type_symbol, last_type_symbol) : IN2_type_symbol ;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	16258
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	16259	if (typeid(*last_type_symbol) == typeid(date_type_name_c))
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	16260	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	16261
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	16262	symbol_c * return_type_symbol = &search_constant_type_c::time_type_name;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	16263	s4o.print("__time_sub(&");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	16264	IN1_param_value->accept(*this);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	16265	s4o.print(", &");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	16266	IN2_param_value->accept(*this);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	16267	s4o.print(")");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	16268	return NULL;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	16269
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	16270	}
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	16271
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	16272	ERROR;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	16273	}
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	16274
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	16275	}
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	16276
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	16277	if (typeid(*last_type_symbol) == typeid(dt_type_name_c))
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	16278	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	16279
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	16280	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	16281	identifier_c param_name("IN2");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	16282	/* Get the value from a foo(<param_name> = <param_value>) style call */
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	16283	symbol_c *IN2_param_value = function_call_param_iterator.search(&param_name);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	16284
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	16285	/* Get the value from a foo(<param_value>) style call */
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	16286	if (IN2_param_value == NULL)
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	16287	IN2_param_value = function_call_param_iterator.next();
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	16288	symbol_c *IN2_type_symbol = search_expression_type->get_type(IN2_param_value);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	16289	last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN2_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN2_type_symbol, last_type_symbol) : IN2_type_symbol ;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	16290
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	16291	if (typeid(*last_type_symbol) == typeid(dt_type_name_c))
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	16292	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	16293
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	16294	symbol_c * return_type_symbol = &search_constant_type_c::time_type_name;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	16295	s4o.print("__time_sub(&");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	16296	IN1_param_value->accept(*this);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	16297	s4o.print(", &");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	16298	IN2_param_value->accept(*this);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	16299	s4o.print(")");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	16300	return NULL;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	16301
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	16302	}
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	16303
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	16304	if (typeid(*last_type_symbol) == typeid(time_type_name_c))
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	16305	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	16306
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	16307	symbol_c * return_type_symbol = &search_constant_type_c::dt_type_name;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	16308	s4o.print("__time_sub(&");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	16309	IN1_param_value->accept(*this);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	16310	s4o.print(", &");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	16311	IN2_param_value->accept(*this);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	16312	s4o.print(")");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	16313	return NULL;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	16314
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	16315	}
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	16316
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	16317	ERROR;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	16318	}
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	16319
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	16320	}
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	16321
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	16322	if (typeid(*last_type_symbol) == typeid(tod_type_name_c))
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	16323	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	16324
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	16325	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	16326	identifier_c param_name("IN2");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	16327	/* Get the value from a foo(<param_name> = <param_value>) style call */
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	16328	symbol_c *IN2_param_value = function_call_param_iterator.search(&param_name);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	16329
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	16330	/* Get the value from a foo(<param_value>) style call */
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	16331	if (IN2_param_value == NULL)
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	16332	IN2_param_value = function_call_param_iterator.next();
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	16333	symbol_c *IN2_type_symbol = search_expression_type->get_type(IN2_param_value);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	16334	last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN2_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN2_type_symbol, last_type_symbol) : IN2_type_symbol ;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	16335
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	16336	if (typeid(*last_type_symbol) == typeid(tod_type_name_c))
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	16337	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	16338
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	16339	symbol_c * return_type_symbol = &search_constant_type_c::time_type_name;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	16340	s4o.print("__time_sub(&");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	16341	IN1_param_value->accept(*this);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	16342	s4o.print(", &");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	16343	IN2_param_value->accept(*this);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	16344	s4o.print(")");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	16345	return NULL;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	16346
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	16347	}
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	16348
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	16349	if (typeid(*last_type_symbol) == typeid(time_type_name_c))
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	16350	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	16351
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	16352	symbol_c * return_type_symbol = &search_constant_type_c::tod_type_name;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	16353	s4o.print("__time_sub(&");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	16354	IN1_param_value->accept(*this);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	16355	s4o.print(", &");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	16356	IN2_param_value->accept(*this);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	16357	s4o.print(")");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	16358	return NULL;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	16359
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	16360	}
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	16361
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	16362	ERROR;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	16363	}
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	16364
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	16365	}
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	16366
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	16367	if (typeid(*last_type_symbol) == typeid(time_type_name_c))
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	16368	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	16369
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	16370	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	16371	identifier_c param_name("IN2");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	16372	/* Get the value from a foo(<param_name> = <param_value>) style call */
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	16373	symbol_c *IN2_param_value = function_call_param_iterator.search(&param_name);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	16374
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	16375	/* Get the value from a foo(<param_value>) style call */
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	16376	if (IN2_param_value == NULL)
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	16377	IN2_param_value = function_call_param_iterator.next();
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	16378	symbol_c *IN2_type_symbol = search_expression_type->get_type(IN2_param_value);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	16379	last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN2_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN2_type_symbol, last_type_symbol) : IN2_type_symbol ;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	16380
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	16381	if (typeid(*last_type_symbol) == typeid(time_type_name_c))
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	16382	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	16383
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	16384	symbol_c * return_type_symbol = &search_constant_type_c::time_type_name;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	16385	s4o.print("__time_sub(&");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	16386	IN1_param_value->accept(*this);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	16387	s4o.print(", &");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	16388	IN2_param_value->accept(*this);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	16389	s4o.print(")");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	16390	return NULL;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	16391
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	16392	}
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	16393
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	16394	ERROR;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	16395	}
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	16396
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	16397	}
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	16398
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	16399	ERROR;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	16400	}
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	16401
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	16402	}/function_sub/
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	16403	break;
33 4507beb2aac6 preliminary std lib support for ST etisserant parents: diff changeset	16404
4507beb2aac6 preliminary std lib support for ST etisserant parents: diff changeset	16405	/****
4507beb2aac6 preliminary std lib support for ST etisserant parents: diff changeset	16406	*DIV
4507beb2aac6 preliminary std lib support for ST etisserant parents: diff changeset	16407	*/
35 9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	16408	case function_div :
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	16409	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	16410	symbol_c *last_type_symbol = NULL;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	16411
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	16412	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	16413	identifier_c param_name("IN1");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	16414	/* Get the value from a foo(<param_name> = <param_value>) style call */
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	16415	symbol_c *IN1_param_value = function_call_param_iterator.search(&param_name);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	16416
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	16417	/* Get the value from a foo(<param_value>) style call */
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	16418	if (IN1_param_value == NULL)
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	16419	IN1_param_value = function_call_param_iterator.next();
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	16420	symbol_c *IN1_type_symbol = search_expression_type->get_type(IN1_param_value);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	16421	last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN1_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN1_type_symbol, last_type_symbol) : IN1_type_symbol ;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	16422
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	16423	if(search_expression_type->is_num_type(IN1_type_symbol))
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	16424	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	16425
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	16426	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	16427	identifier_c param_name("IN2");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	16428	/* Get the value from a foo(<param_name> = <param_value>) style call */
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	16429	symbol_c *IN2_param_value = function_call_param_iterator.search(&param_name);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	16430
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	16431	/* Get the value from a foo(<param_value>) style call */
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	16432	if (IN2_param_value == NULL)
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	16433	IN2_param_value = function_call_param_iterator.next();
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	16434	symbol_c *IN2_type_symbol = search_expression_type->get_type(IN2_param_value);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	16435	last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN2_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN2_type_symbol, last_type_symbol) : IN2_type_symbol ;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	16436
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	16437	if(search_expression_type->is_num_type(IN2_type_symbol))
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	16438	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	16439
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	16440	symbol_c * return_type_symbol = last_type_symbol;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	16441	s4o.print("(");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	16442	IN1_param_value->accept(*this);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	16443	s4o.print("/");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	16444	IN2_param_value->accept(*this);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	16445	s4o.print(")");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	16446	return NULL;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	16447
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	16448	}
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	16449
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	16450	ERROR;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	16451	}
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	16452
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	16453	}
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	16454
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	16455	if (typeid(*last_type_symbol) == typeid(time_type_name_c))
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	16456	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	16457
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	16458	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	16459	identifier_c param_name("IN2");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	16460	/* Get the value from a foo(<param_name> = <param_value>) style call */
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	16461	symbol_c *IN2_param_value = function_call_param_iterator.search(&param_name);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	16462
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	16463	/* Get the value from a foo(<param_value>) style call */
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	16464	if (IN2_param_value == NULL)
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	16465	IN2_param_value = function_call_param_iterator.next();
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	16466	symbol_c *IN2_type_symbol = search_expression_type->get_type(IN2_param_value);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	16467	last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN2_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN2_type_symbol, last_type_symbol) : IN2_type_symbol ;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	16468
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	16469	if(search_expression_type->is_num_type(IN2_type_symbol))
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	16470	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	16471
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	16472	symbol_c * return_type_symbol = &search_constant_type_c::time_type_name;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	16473	s4o.print("__time_div(&");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	16474	IN1_param_value->accept(*this);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	16475	s4o.print(", &");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	16476	IN2_param_value->accept(*this);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	16477	s4o.print(")");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	16478	return NULL;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	16479
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	16480	}
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	16481
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	16482	ERROR;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	16483	}
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	16484
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	16485	}
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	16486
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	16487	ERROR;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	16488	}
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	16489
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	16490	}/function_div/
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	16491	break;
33 4507beb2aac6 preliminary std lib support for ST etisserant parents: diff changeset	16492
4507beb2aac6 preliminary std lib support for ST etisserant parents: diff changeset	16493	/****
4507beb2aac6 preliminary std lib support for ST etisserant parents: diff changeset	16494	*MOD
4507beb2aac6 preliminary std lib support for ST etisserant parents: diff changeset	16495	*/
35 9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	16496	case function_mod :
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	16497	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	16498	symbol_c *last_type_symbol = NULL;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	16499
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	16500	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	16501	identifier_c param_name("IN1");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	16502	/* Get the value from a foo(<param_name> = <param_value>) style call */
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	16503	symbol_c *IN1_param_value = function_call_param_iterator.search(&param_name);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	16504
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	16505	/* Get the value from a foo(<param_value>) style call */
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	16506	if (IN1_param_value == NULL)
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	16507	IN1_param_value = function_call_param_iterator.next();
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	16508	symbol_c *IN1_type_symbol = search_expression_type->get_type(IN1_param_value);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	16509	last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN1_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN1_type_symbol, last_type_symbol) : IN1_type_symbol ;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	16510
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	16511	if(search_expression_type->is_num_type(IN1_type_symbol))
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	16512	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	16513
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	16514	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	16515	identifier_c param_name("IN2");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	16516	/* Get the value from a foo(<param_name> = <param_value>) style call */
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	16517	symbol_c *IN2_param_value = function_call_param_iterator.search(&param_name);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	16518
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	16519	/* Get the value from a foo(<param_value>) style call */
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	16520	if (IN2_param_value == NULL)
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	16521	IN2_param_value = function_call_param_iterator.next();
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	16522	symbol_c *IN2_type_symbol = search_expression_type->get_type(IN2_param_value);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	16523	last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN2_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN2_type_symbol, last_type_symbol) : IN2_type_symbol ;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	16524
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	16525	if(search_expression_type->is_num_type(IN2_type_symbol))
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	16526	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	16527
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	16528	symbol_c * return_type_symbol = last_type_symbol;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	16529	s4o.print("(");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	16530	IN1_param_value->accept(*this);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	16531	s4o.print("%");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	16532	IN2_param_value->accept(*this);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	16533	s4o.print(")");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	16534	return NULL;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	16535
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	16536	}
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	16537
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	16538	ERROR;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	16539	}
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	16540
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	16541	}
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	16542
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	16543	ERROR;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	16544	}
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	16545
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	16546	}/function_mod/
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	16547	break;
33 4507beb2aac6 preliminary std lib support for ST etisserant parents: diff changeset	16548
4507beb2aac6 preliminary std lib support for ST etisserant parents: diff changeset	16549	/****
4507beb2aac6 preliminary std lib support for ST etisserant parents: diff changeset	16550	*EXPT
4507beb2aac6 preliminary std lib support for ST etisserant parents: diff changeset	16551	*/
35 9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	16552	case function_expt :
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	16553	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	16554	symbol_c *last_type_symbol = NULL;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	16555
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	16556	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	16557	identifier_c param_name("IN1");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	16558	/* Get the value from a foo(<param_name> = <param_value>) style call */
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	16559	symbol_c *IN1_param_value = function_call_param_iterator.search(&param_name);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	16560
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	16561	/* Get the value from a foo(<param_value>) style call */
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	16562	if (IN1_param_value == NULL)
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	16563	IN1_param_value = function_call_param_iterator.next();
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	16564	symbol_c *IN1_type_symbol = search_expression_type->get_type(IN1_param_value);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	16565	last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN1_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN1_type_symbol, last_type_symbol) : IN1_type_symbol ;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	16566
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	16567	if(search_expression_type->is_num_type(IN1_type_symbol))
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	16568	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	16569
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	16570	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	16571	identifier_c param_name("IN2");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	16572	/* Get the value from a foo(<param_name> = <param_value>) style call */
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	16573	symbol_c *IN2_param_value = function_call_param_iterator.search(&param_name);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	16574
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	16575	/* Get the value from a foo(<param_value>) style call */
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	16576	if (IN2_param_value == NULL)
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	16577	IN2_param_value = function_call_param_iterator.next();
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	16578	symbol_c *IN2_type_symbol = search_expression_type->get_type(IN2_param_value);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	16579	last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN2_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN2_type_symbol, last_type_symbol) : IN2_type_symbol ;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	16580
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	16581	if(search_expression_type->is_num_type(IN2_type_symbol))
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	16582	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	16583
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	16584	symbol_c * return_type_symbol = last_type_symbol;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	16585	s4o.print("pow(&");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	16586	IN1_param_value->accept(*this);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	16587	s4o.print(", &");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	16588	IN2_param_value->accept(*this);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	16589	s4o.print(")");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	16590	return NULL;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	16591
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	16592	}
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	16593
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	16594	ERROR;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	16595	}
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	16596
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	16597	}
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	16598
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	16599	ERROR;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	16600	}
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	16601
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	16602	}/function_expt/
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	16603	break;
33 4507beb2aac6 preliminary std lib support for ST etisserant parents: diff changeset	16604
4507beb2aac6 preliminary std lib support for ST etisserant parents: diff changeset	16605	/****
4507beb2aac6 preliminary std lib support for ST etisserant parents: diff changeset	16606	*MOVE
4507beb2aac6 preliminary std lib support for ST etisserant parents: diff changeset	16607	*/
35 9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	16608	case function_move :
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	16609	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	16610	symbol_c *last_type_symbol = NULL;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	16611
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	16612	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	16613	identifier_c param_name("IN");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	16614	/* Get the value from a foo(<param_name> = <param_value>) style call */
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	16615	symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	16616
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	16617	/* Get the value from a foo(<param_value>) style call */
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	16618	if (IN_param_value == NULL)
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	16619	IN_param_value = function_call_param_iterator.next();
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	16620	symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	16621	last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	16622
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	16623	if(search_expression_type->is_num_type(IN_type_symbol))
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	16624	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	16625
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	16626	symbol_c * return_type_symbol = last_type_symbol;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	16627	IN_param_value->accept(*this);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	16628	return NULL;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	16629
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	16630	}
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	16631
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	16632	ERROR;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	16633	}
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	16634
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	16635	}/function_move/
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	16636	break;
33 4507beb2aac6 preliminary std lib support for ST etisserant parents: diff changeset	16637
4507beb2aac6 preliminary std lib support for ST etisserant parents: diff changeset	16638	/****
4507beb2aac6 preliminary std lib support for ST etisserant parents: diff changeset	16639	*SHL
4507beb2aac6 preliminary std lib support for ST etisserant parents: diff changeset	16640	*/
35 9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	16641	case function_shl :
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	16642	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	16643	symbol_c *last_type_symbol = NULL;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	16644
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	16645	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	16646	identifier_c param_name("IN");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	16647	/* Get the value from a foo(<param_name> = <param_value>) style call */
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	16648	symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	16649
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	16650	/* Get the value from a foo(<param_value>) style call */
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	16651	if (IN_param_value == NULL)
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	16652	IN_param_value = function_call_param_iterator.next();
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	16653	symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	16654	last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	16655
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	16656	if(search_expression_type->is_binary_type(IN_type_symbol))
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	16657	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	16658
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	16659	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	16660	identifier_c param_name("N");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	16661	/* Get the value from a foo(<param_name> = <param_value>) style call */
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	16662	symbol_c *N_param_value = function_call_param_iterator.search(&param_name);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	16663
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	16664	/* Get the value from a foo(<param_value>) style call */
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	16665	if (N_param_value == NULL)
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	16666	N_param_value = function_call_param_iterator.next();
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	16667	symbol_c *N_type_symbol = search_expression_type->get_type(N_param_value);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	16668	last_type_symbol = last_type_symbol && search_expression_type->is_same_type(N_type_symbol, last_type_symbol) ? search_expression_type->common_type(N_type_symbol, last_type_symbol) : N_type_symbol ;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	16669
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	16670	if (typeid(*last_type_symbol) == typeid(uint_type_name_c))
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	16671	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	16672
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	16673	symbol_c * return_type_symbol = IN_type_symbol;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	16674	IN_param_value->accept(*this);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	16675	s4o.print("<<");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	16676	N_param_value->accept(*this);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	16677	return NULL;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	16678
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	16679	}
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	16680
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	16681	ERROR;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	16682	}
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	16683
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	16684	}
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	16685
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	16686	ERROR;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	16687	}
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	16688
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	16689	}/function_shl/
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	16690	break;
33 4507beb2aac6 preliminary std lib support for ST etisserant parents: diff changeset	16691
4507beb2aac6 preliminary std lib support for ST etisserant parents: diff changeset	16692	/****
4507beb2aac6 preliminary std lib support for ST etisserant parents: diff changeset	16693	*SHR
4507beb2aac6 preliminary std lib support for ST etisserant parents: diff changeset	16694	*/
35 9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	16695	case function_shr :
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	16696	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	16697	symbol_c *last_type_symbol = NULL;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	16698
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	16699	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	16700	identifier_c param_name("IN");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	16701	/* Get the value from a foo(<param_name> = <param_value>) style call */
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	16702	symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	16703
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	16704	/* Get the value from a foo(<param_value>) style call */
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	16705	if (IN_param_value == NULL)
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	16706	IN_param_value = function_call_param_iterator.next();
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	16707	symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	16708	last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	16709
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	16710	if(search_expression_type->is_binary_type(IN_type_symbol))
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	16711	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	16712
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	16713	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	16714	identifier_c param_name("N");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	16715	/* Get the value from a foo(<param_name> = <param_value>) style call */
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	16716	symbol_c *N_param_value = function_call_param_iterator.search(&param_name);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	16717
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	16718	/* Get the value from a foo(<param_value>) style call */
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	16719	if (N_param_value == NULL)
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	16720	N_param_value = function_call_param_iterator.next();
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	16721	symbol_c *N_type_symbol = search_expression_type->get_type(N_param_value);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	16722	last_type_symbol = last_type_symbol && search_expression_type->is_same_type(N_type_symbol, last_type_symbol) ? search_expression_type->common_type(N_type_symbol, last_type_symbol) : N_type_symbol ;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	16723
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	16724	if (typeid(*last_type_symbol) == typeid(uint_type_name_c))
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	16725	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	16726
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	16727	symbol_c * return_type_symbol = IN_type_symbol;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	16728	IN_param_value->accept(*this);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	16729	s4o.print(">>");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	16730	N_param_value->accept(*this);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	16731	return NULL;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	16732
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	16733	}
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	16734
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	16735	ERROR;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	16736	}
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	16737
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	16738	}
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	16739
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	16740	ERROR;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	16741	}
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	16742
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	16743	}/function_shr/
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	16744	break;
33 4507beb2aac6 preliminary std lib support for ST etisserant parents: diff changeset	16745
4507beb2aac6 preliminary std lib support for ST etisserant parents: diff changeset	16746	/****
4507beb2aac6 preliminary std lib support for ST etisserant parents: diff changeset	16747	*ROR
4507beb2aac6 preliminary std lib support for ST etisserant parents: diff changeset	16748	*/
35 9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	16749	case function_ror :
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	16750	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	16751	symbol_c *last_type_symbol = NULL;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	16752
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	16753	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	16754	identifier_c param_name("IN");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	16755	/* Get the value from a foo(<param_name> = <param_value>) style call */
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	16756	symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	16757
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	16758	/* Get the value from a foo(<param_value>) style call */
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	16759	if (IN_param_value == NULL)
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	16760	IN_param_value = function_call_param_iterator.next();
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	16761	symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	16762	last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	16763
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	16764	if(search_expression_type->is_binary_type(IN_type_symbol))
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	16765	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	16766
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	16767	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	16768	identifier_c param_name("N");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	16769	/* Get the value from a foo(<param_name> = <param_value>) style call */
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	16770	symbol_c *N_param_value = function_call_param_iterator.search(&param_name);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	16771
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	16772	/* Get the value from a foo(<param_value>) style call */
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	16773	if (N_param_value == NULL)
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	16774	N_param_value = function_call_param_iterator.next();
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	16775	symbol_c *N_type_symbol = search_expression_type->get_type(N_param_value);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	16776	last_type_symbol = last_type_symbol && search_expression_type->is_same_type(N_type_symbol, last_type_symbol) ? search_expression_type->common_type(N_type_symbol, last_type_symbol) : N_type_symbol ;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	16777
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	16778	if (typeid(*last_type_symbol) == typeid(uint_type_name_c))
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	16779	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	16780
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	16781	symbol_c * return_type_symbol = IN_type_symbol;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	16782	s4o.print("__ror(sizeof(");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	16783	IN_type_symbol->accept(*this);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	16784	s4o.print("), &");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	16785	IN_param_value->accept(*this);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	16786	s4o.print(", ");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	16787	N_param_value->accept(*this);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	16788	s4o.print(")");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	16789	return NULL;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	16790
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	16791	}
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	16792
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	16793	ERROR;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	16794	}
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	16795
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	16796	}
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	16797
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	16798	ERROR;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	16799	}
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	16800
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	16801	}/function_ror/
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	16802	break;
33 4507beb2aac6 preliminary std lib support for ST etisserant parents: diff changeset	16803
4507beb2aac6 preliminary std lib support for ST etisserant parents: diff changeset	16804	/****
4507beb2aac6 preliminary std lib support for ST etisserant parents: diff changeset	16805	*ROL
4507beb2aac6 preliminary std lib support for ST etisserant parents: diff changeset	16806	*/
35 9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	16807	case function_rol :
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	16808	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	16809	symbol_c *last_type_symbol = NULL;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	16810
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	16811	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	16812	identifier_c param_name("IN");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	16813	/* Get the value from a foo(<param_name> = <param_value>) style call */
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	16814	symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	16815
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	16816	/* Get the value from a foo(<param_value>) style call */
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	16817	if (IN_param_value == NULL)
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	16818	IN_param_value = function_call_param_iterator.next();
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	16819	symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	16820	last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	16821
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	16822	if(search_expression_type->is_binary_type(IN_type_symbol))
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	16823	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	16824
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	16825	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	16826	identifier_c param_name("N");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	16827	/* Get the value from a foo(<param_name> = <param_value>) style call */
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	16828	symbol_c *N_param_value = function_call_param_iterator.search(&param_name);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	16829
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	16830	/* Get the value from a foo(<param_value>) style call */
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	16831	if (N_param_value == NULL)
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	16832	N_param_value = function_call_param_iterator.next();
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	16833	symbol_c *N_type_symbol = search_expression_type->get_type(N_param_value);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	16834	last_type_symbol = last_type_symbol && search_expression_type->is_same_type(N_type_symbol, last_type_symbol) ? search_expression_type->common_type(N_type_symbol, last_type_symbol) : N_type_symbol ;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	16835
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	16836	if (typeid(*last_type_symbol) == typeid(uint_type_name_c))
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	16837	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	16838
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	16839	symbol_c * return_type_symbol = IN_type_symbol;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	16840	s4o.print("__rol(sizeof(");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	16841	IN_type_symbol->accept(*this);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	16842	s4o.print("), &");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	16843	IN_param_value->accept(*this);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	16844	s4o.print(", ");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	16845	N_param_value->accept(*this);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	16846	s4o.print(")");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	16847	return NULL;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	16848
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	16849	}
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	16850
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	16851	ERROR;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	16852	}
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	16853
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	16854	}
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	16855
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	16856	ERROR;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	16857	}
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	16858
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	16859	}/function_rol/
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	16860	break;
33 4507beb2aac6 preliminary std lib support for ST etisserant parents: diff changeset	16861
4507beb2aac6 preliminary std lib support for ST etisserant parents: diff changeset	16862	/****
4507beb2aac6 preliminary std lib support for ST etisserant parents: diff changeset	16863	*AND
4507beb2aac6 preliminary std lib support for ST etisserant parents: diff changeset	16864	*/
35 9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	16865	case function_and :
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	16866	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	16867	symbol_c *last_type_symbol = NULL;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	16868
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	16869	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	16870	identifier_c param_name("IN1");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	16871	/* Get the value from a foo(<param_name> = <param_value>) style call */
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	16872	symbol_c *IN1_param_value = function_call_param_iterator.search(&param_name);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	16873
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	16874	/* Get the value from a foo(<param_value>) style call */
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	16875	if (IN1_param_value == NULL)
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	16876	IN1_param_value = function_call_param_iterator.next();
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	16877	symbol_c *IN1_type_symbol = search_expression_type->get_type(IN1_param_value);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	16878	last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN1_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN1_type_symbol, last_type_symbol) : IN1_type_symbol ;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	16879
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	16880	if(search_expression_type->is_binary_type(IN1_type_symbol))
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	16881	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	16882
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	16883	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	16884	identifier_c param_name("IN2");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	16885	/* Get the value from a foo(<param_name> = <param_value>) style call */
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	16886	symbol_c *IN2_param_value = function_call_param_iterator.search(&param_name);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	16887
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	16888	/* Get the value from a foo(<param_value>) style call */
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	16889	if (IN2_param_value == NULL)
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	16890	IN2_param_value = function_call_param_iterator.next();
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	16891	symbol_c *IN2_type_symbol = search_expression_type->get_type(IN2_param_value);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	16892	last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN2_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN2_type_symbol, last_type_symbol) : IN2_type_symbol ;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	16893
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	16894	if(search_expression_type->is_binary_type(IN2_type_symbol))
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	16895	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	16896
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	16897	symbol_c * return_type_symbol = last_type_symbol;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	16898	s4o.print("(");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	16899	if (search_expression_type->is_bool_type(last_type_symbol))
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	16900	s4o.print("(");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	16901	IN1_param_value->accept(*this);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	16902	s4o.print("&");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	16903	IN2_param_value->accept(*this);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	16904
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	16905	int base_num = 3;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	16906	symbol_c *param_value = NULL;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	16907	do{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	16908	char my_name[10];
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	16909	sprintf(my_name, "IN%d", base_num++);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	16910	identifier_c param_name(my_name);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	16911
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	16912	/* Get the value from a foo(<param_name> = <param_value>) style call */
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	16913	param_value = function_call_param_iterator.search(&param_name);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	16914
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	16915	/* Get the value from a foo(<param_value>) style call */
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	16916	if (param_value == NULL)
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	16917	param_value = function_call_param_iterator.next();
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	16918	if (param_value != NULL){
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	16919	symbol_c *current_type_symbol = search_expression_type->get_type(param_value);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	16920	last_type_symbol = last_type_symbol && search_expression_type->is_same_type(current_type_symbol, last_type_symbol) ? search_expression_type->common_type(current_type_symbol, last_type_symbol) : current_type_symbol ;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	16921
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	16922	/Function specific CODE /
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	16923	s4o.print("&");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	16924	param_value->accept(*this);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	16925
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	16926	}
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	16927
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	16928	}while(param_value != NULL);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	16929	s4o.print(")");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	16930	if (search_expression_type->is_bool_type(last_type_symbol)) {
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	16931	s4o.print("&1");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	16932	s4o.print(")");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	16933	}
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	16934	s4o.print("");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	16935	return NULL;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	16936
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	16937
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	16938	}
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	16939
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	16940	ERROR;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	16941	}
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	16942
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	16943	}
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	16944
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	16945	ERROR;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	16946	}
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	16947
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	16948	}/function_and/
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	16949	break;
33 4507beb2aac6 preliminary std lib support for ST etisserant parents: diff changeset	16950
4507beb2aac6 preliminary std lib support for ST etisserant parents: diff changeset	16951	/****
4507beb2aac6 preliminary std lib support for ST etisserant parents: diff changeset	16952	*OR
4507beb2aac6 preliminary std lib support for ST etisserant parents: diff changeset	16953	*/
35 9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	16954	case function_or :
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	16955	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	16956	symbol_c *last_type_symbol = NULL;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	16957
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	16958	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	16959	identifier_c param_name("IN1");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	16960	/* Get the value from a foo(<param_name> = <param_value>) style call */
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	16961	symbol_c *IN1_param_value = function_call_param_iterator.search(&param_name);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	16962
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	16963	/* Get the value from a foo(<param_value>) style call */
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	16964	if (IN1_param_value == NULL)
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	16965	IN1_param_value = function_call_param_iterator.next();
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	16966	symbol_c *IN1_type_symbol = search_expression_type->get_type(IN1_param_value);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	16967	last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN1_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN1_type_symbol, last_type_symbol) : IN1_type_symbol ;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	16968
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	16969	if(search_expression_type->is_binary_type(IN1_type_symbol))
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	16970	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	16971
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	16972	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	16973	identifier_c param_name("IN2");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	16974	/* Get the value from a foo(<param_name> = <param_value>) style call */
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	16975	symbol_c *IN2_param_value = function_call_param_iterator.search(&param_name);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	16976
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	16977	/* Get the value from a foo(<param_value>) style call */
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	16978	if (IN2_param_value == NULL)
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	16979	IN2_param_value = function_call_param_iterator.next();
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	16980	symbol_c *IN2_type_symbol = search_expression_type->get_type(IN2_param_value);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	16981	last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN2_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN2_type_symbol, last_type_symbol) : IN2_type_symbol ;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	16982
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	16983	if(search_expression_type->is_binary_type(IN2_type_symbol))
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	16984	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	16985
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	16986	symbol_c * return_type_symbol = last_type_symbol;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	16987	s4o.print("(");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	16988	if (search_expression_type->is_bool_type(last_type_symbol))
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	16989	s4o.print("(");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	16990	IN1_param_value->accept(*this);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	16991	s4o.print("\|");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	16992	IN2_param_value->accept(*this);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	16993
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	16994	int base_num = 3;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	16995	symbol_c *param_value = NULL;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	16996	do{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	16997	char my_name[10];
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	16998	sprintf(my_name, "IN%d", base_num++);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	16999	identifier_c param_name(my_name);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	17000
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	17001	/* Get the value from a foo(<param_name> = <param_value>) style call */
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	17002	param_value = function_call_param_iterator.search(&param_name);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	17003
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	17004	/* Get the value from a foo(<param_value>) style call */
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	17005	if (param_value == NULL)
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	17006	param_value = function_call_param_iterator.next();
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	17007	if (param_value != NULL){
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	17008	symbol_c *current_type_symbol = search_expression_type->get_type(param_value);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	17009	last_type_symbol = last_type_symbol && search_expression_type->is_same_type(current_type_symbol, last_type_symbol) ? search_expression_type->common_type(current_type_symbol, last_type_symbol) : current_type_symbol ;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	17010
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	17011	/Function specific CODE /
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	17012	s4o.print("\|");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	17013	param_value->accept(*this);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	17014
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	17015	}
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	17016
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	17017	}while(param_value != NULL);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	17018	s4o.print(")");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	17019	if (search_expression_type->is_bool_type(last_type_symbol)) {
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	17020	s4o.print("&1");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	17021	s4o.print(")");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	17022	}
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	17023	s4o.print("");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	17024	return NULL;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	17025
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	17026
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	17027	}
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	17028
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	17029	ERROR;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	17030	}
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	17031
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	17032	}
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	17033
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	17034	ERROR;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	17035	}
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	17036
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	17037	}/function_or/
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	17038	break;
33 4507beb2aac6 preliminary std lib support for ST etisserant parents: diff changeset	17039
4507beb2aac6 preliminary std lib support for ST etisserant parents: diff changeset	17040	/****
4507beb2aac6 preliminary std lib support for ST etisserant parents: diff changeset	17041	*XOR
4507beb2aac6 preliminary std lib support for ST etisserant parents: diff changeset	17042	*/
35 9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	17043	case function_xor :
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	17044	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	17045	symbol_c *last_type_symbol = NULL;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	17046
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	17047	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	17048	identifier_c param_name("IN1");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	17049	/* Get the value from a foo(<param_name> = <param_value>) style call */
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	17050	symbol_c *IN1_param_value = function_call_param_iterator.search(&param_name);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	17051
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	17052	/* Get the value from a foo(<param_value>) style call */
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	17053	if (IN1_param_value == NULL)
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	17054	IN1_param_value = function_call_param_iterator.next();
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	17055	symbol_c *IN1_type_symbol = search_expression_type->get_type(IN1_param_value);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	17056	last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN1_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN1_type_symbol, last_type_symbol) : IN1_type_symbol ;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	17057
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	17058	if(search_expression_type->is_binary_type(IN1_type_symbol))
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	17059	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	17060
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	17061	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	17062	identifier_c param_name("IN2");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	17063	/* Get the value from a foo(<param_name> = <param_value>) style call */
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	17064	symbol_c *IN2_param_value = function_call_param_iterator.search(&param_name);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	17065
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	17066	/* Get the value from a foo(<param_value>) style call */
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	17067	if (IN2_param_value == NULL)
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	17068	IN2_param_value = function_call_param_iterator.next();
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	17069	symbol_c *IN2_type_symbol = search_expression_type->get_type(IN2_param_value);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	17070	last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN2_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN2_type_symbol, last_type_symbol) : IN2_type_symbol ;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	17071
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	17072	if(search_expression_type->is_binary_type(IN2_type_symbol))
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	17073	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	17074
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	17075	symbol_c * return_type_symbol = last_type_symbol;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	17076	s4o.print("(");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	17077	if (search_expression_type->is_bool_type(last_type_symbol))
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	17078	s4o.print("(");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	17079	IN1_param_value->accept(*this);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	17080	s4o.print("^");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	17081	IN2_param_value->accept(*this);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	17082
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	17083	int base_num = 3;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	17084	symbol_c *param_value = NULL;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	17085	do{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	17086	char my_name[10];
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	17087	sprintf(my_name, "IN%d", base_num++);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	17088	identifier_c param_name(my_name);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	17089
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	17090	/* Get the value from a foo(<param_name> = <param_value>) style call */
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	17091	param_value = function_call_param_iterator.search(&param_name);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	17092
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	17093	/* Get the value from a foo(<param_value>) style call */
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	17094	if (param_value == NULL)
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	17095	param_value = function_call_param_iterator.next();
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	17096	if (param_value != NULL){
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	17097	symbol_c *current_type_symbol = search_expression_type->get_type(param_value);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	17098	last_type_symbol = last_type_symbol && search_expression_type->is_same_type(current_type_symbol, last_type_symbol) ? search_expression_type->common_type(current_type_symbol, last_type_symbol) : current_type_symbol ;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	17099
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	17100	/Function specific CODE /
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	17101	s4o.print("^");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	17102	param_value->accept(*this);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	17103
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	17104	}
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	17105
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	17106	}while(param_value != NULL);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	17107	s4o.print(")");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	17108	if (search_expression_type->is_bool_type(last_type_symbol)) {
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	17109	s4o.print("&1");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	17110	s4o.print(")");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	17111	}
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	17112	s4o.print("");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	17113	return NULL;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	17114
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	17115
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	17116	}
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	17117
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	17118	ERROR;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	17119	}
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	17120
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	17121	}
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	17122
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	17123	ERROR;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	17124	}
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	17125
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	17126	}/function_xor/
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	17127	break;
33 4507beb2aac6 preliminary std lib support for ST etisserant parents: diff changeset	17128
4507beb2aac6 preliminary std lib support for ST etisserant parents: diff changeset	17129	/****
4507beb2aac6 preliminary std lib support for ST etisserant parents: diff changeset	17130	*NOT
4507beb2aac6 preliminary std lib support for ST etisserant parents: diff changeset	17131	*/
35 9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	17132	case function_not :
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	17133	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	17134	symbol_c *last_type_symbol = NULL;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	17135
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	17136	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	17137	identifier_c param_name("IN");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	17138	/* Get the value from a foo(<param_name> = <param_value>) style call */
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	17139	symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	17140
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	17141	/* Get the value from a foo(<param_value>) style call */
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	17142	if (IN_param_value == NULL)
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	17143	IN_param_value = function_call_param_iterator.next();
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	17144	symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	17145	last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	17146
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	17147	if(search_expression_type->is_binary_type(IN_type_symbol))
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	17148	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	17149
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	17150	symbol_c * return_type_symbol = IN_type_symbol;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	17151	s4o.print("~");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	17152	IN_param_value->accept(*this);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	17153	return NULL;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	17154
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	17155	}
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	17156
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	17157	ERROR;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	17158	}
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	17159
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	17160	}/function_not/
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	17161	break;
33 4507beb2aac6 preliminary std lib support for ST etisserant parents: diff changeset	17162
4507beb2aac6 preliminary std lib support for ST etisserant parents: diff changeset	17163	/****
4507beb2aac6 preliminary std lib support for ST etisserant parents: diff changeset	17164	*SEL
4507beb2aac6 preliminary std lib support for ST etisserant parents: diff changeset	17165	*/
35 9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	17166	case function_sel :
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	17167	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	17168	symbol_c *last_type_symbol = NULL;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	17169
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	17170	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	17171	identifier_c param_name("G");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	17172	/* Get the value from a foo(<param_name> = <param_value>) style call */
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	17173	symbol_c *G_param_value = function_call_param_iterator.search(&param_name);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	17174
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	17175	/* Get the value from a foo(<param_value>) style call */
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	17176	if (G_param_value == NULL)
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	17177	G_param_value = function_call_param_iterator.next();
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	17178	symbol_c *G_type_symbol = search_expression_type->get_type(G_param_value);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	17179	last_type_symbol = last_type_symbol && search_expression_type->is_same_type(G_type_symbol, last_type_symbol) ? search_expression_type->common_type(G_type_symbol, last_type_symbol) : G_type_symbol ;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	17180
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	17181	if (typeid(*last_type_symbol) == typeid(bool_type_name_c))
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	17182	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	17183
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	17184	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	17185	identifier_c param_name("IN0");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	17186	/* Get the value from a foo(<param_name> = <param_value>) style call */
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	17187	symbol_c *IN0_param_value = function_call_param_iterator.search(&param_name);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	17188
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	17189	/* Get the value from a foo(<param_value>) style call */
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	17190	if (IN0_param_value == NULL)
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	17191	IN0_param_value = function_call_param_iterator.next();
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	17192	symbol_c *IN0_type_symbol = search_expression_type->get_type(IN0_param_value);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	17193	last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN0_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN0_type_symbol, last_type_symbol) : IN0_type_symbol ;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	17194
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	17195
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	17196	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	17197
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	17198	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	17199	identifier_c param_name("IN1");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	17200	/* Get the value from a foo(<param_name> = <param_value>) style call */
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	17201	symbol_c *IN1_param_value = function_call_param_iterator.search(&param_name);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	17202
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	17203	/* Get the value from a foo(<param_value>) style call */
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	17204	if (IN1_param_value == NULL)
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	17205	IN1_param_value = function_call_param_iterator.next();
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	17206	symbol_c *IN1_type_symbol = search_expression_type->get_type(IN1_param_value);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	17207	last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN1_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN1_type_symbol, last_type_symbol) : IN1_type_symbol ;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	17208
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	17209
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	17210	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	17211
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	17212	symbol_c * return_type_symbol = last_type_symbol;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	17213	G_param_value->accept(*this);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	17214	s4o.print(" ? ");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	17215	IN1_param_value->accept(*this);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	17216	s4o.print(" : ");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	17217	IN0_param_value->accept(*this);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	17218	return NULL;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	17219
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	17220	}
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	17221
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	17222	ERROR;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	17223	}
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	17224
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	17225	}
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	17226
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	17227	ERROR;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	17228	}
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	17229
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	17230	}
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	17231
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	17232	ERROR;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	17233	}
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	17234
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	17235	}/function_sel/
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	17236	break;
33 4507beb2aac6 preliminary std lib support for ST etisserant parents: diff changeset	17237
4507beb2aac6 preliminary std lib support for ST etisserant parents: diff changeset	17238	/****
4507beb2aac6 preliminary std lib support for ST etisserant parents: diff changeset	17239	*MAX
4507beb2aac6 preliminary std lib support for ST etisserant parents: diff changeset	17240	*/
35 9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	17241	case function_max :
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	17242	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	17243	symbol_c *last_type_symbol = NULL;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	17244
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	17245	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	17246	identifier_c param_name("IN1");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	17247	/* Get the value from a foo(<param_name> = <param_value>) style call */
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	17248	symbol_c *IN1_param_value = function_call_param_iterator.search(&param_name);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	17249
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	17250	/* Get the value from a foo(<param_value>) style call */
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	17251	if (IN1_param_value == NULL)
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	17252	IN1_param_value = function_call_param_iterator.next();
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	17253	symbol_c *IN1_type_symbol = search_expression_type->get_type(IN1_param_value);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	17254	last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN1_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN1_type_symbol, last_type_symbol) : IN1_type_symbol ;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	17255
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	17256
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	17257	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	17258
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	17259	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	17260	identifier_c param_name("IN2");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	17261	/* Get the value from a foo(<param_name> = <param_value>) style call */
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	17262	symbol_c *IN2_param_value = function_call_param_iterator.search(&param_name);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	17263
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	17264	/* Get the value from a foo(<param_value>) style call */
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	17265	if (IN2_param_value == NULL)
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	17266	IN2_param_value = function_call_param_iterator.next();
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	17267	symbol_c *IN2_type_symbol = search_expression_type->get_type(IN2_param_value);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	17268	last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN2_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN2_type_symbol, last_type_symbol) : IN2_type_symbol ;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	17269
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	17270
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	17271	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	17272
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	17273	symbol_c * return_type_symbol = last_type_symbol;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	17274	s4o.print("__max_");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	17275	return_type_symbol->accept(*this);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	17276	s4o.print("(");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	17277	s4o.print_integer(nb_param);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	17278	s4o.print(",");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	17279	IN1_param_value->accept(*this);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	17280	s4o.print(",");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	17281	IN2_param_value->accept(*this);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	17282
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	17283	int base_num = 3;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	17284	symbol_c *param_value = NULL;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	17285	do{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	17286	char my_name[10];
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	17287	sprintf(my_name, "IN%d", base_num++);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	17288	identifier_c param_name(my_name);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	17289
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	17290	/* Get the value from a foo(<param_name> = <param_value>) style call */
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	17291	param_value = function_call_param_iterator.search(&param_name);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	17292
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	17293	/* Get the value from a foo(<param_value>) style call */
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	17294	if (param_value == NULL)
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	17295	param_value = function_call_param_iterator.next();
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	17296	if (param_value != NULL){
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	17297	symbol_c *current_type_symbol = search_expression_type->get_type(param_value);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	17298	last_type_symbol = last_type_symbol && search_expression_type->is_same_type(current_type_symbol, last_type_symbol) ? search_expression_type->common_type(current_type_symbol, last_type_symbol) : current_type_symbol ;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	17299
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	17300	/Function specific CODE /
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	17301	s4o.print(",");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	17302	param_value->accept(*this);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	17303
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	17304	}
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	17305
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	17306	}while(param_value != NULL);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	17307	s4o.print(")");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	17308	return NULL;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	17309
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	17310
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	17311	}
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	17312
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	17313	ERROR;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	17314	}
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	17315
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	17316	}
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	17317
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	17318	ERROR;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	17319	}
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	17320
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	17321	}/function_max/
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	17322	break;
33 4507beb2aac6 preliminary std lib support for ST etisserant parents: diff changeset	17323
4507beb2aac6 preliminary std lib support for ST etisserant parents: diff changeset	17324	/****
4507beb2aac6 preliminary std lib support for ST etisserant parents: diff changeset	17325	*MIN
4507beb2aac6 preliminary std lib support for ST etisserant parents: diff changeset	17326	*/
35 9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	17327	case function_min :
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	17328	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	17329	symbol_c *last_type_symbol = NULL;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	17330
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	17331	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	17332	identifier_c param_name("IN1");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	17333	/* Get the value from a foo(<param_name> = <param_value>) style call */
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	17334	symbol_c *IN1_param_value = function_call_param_iterator.search(&param_name);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	17335
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	17336	/* Get the value from a foo(<param_value>) style call */
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	17337	if (IN1_param_value == NULL)
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	17338	IN1_param_value = function_call_param_iterator.next();
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	17339	symbol_c *IN1_type_symbol = search_expression_type->get_type(IN1_param_value);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	17340	last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN1_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN1_type_symbol, last_type_symbol) : IN1_type_symbol ;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	17341
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	17342
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	17343	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	17344
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	17345	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	17346	identifier_c param_name("IN2");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	17347	/* Get the value from a foo(<param_name> = <param_value>) style call */
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	17348	symbol_c *IN2_param_value = function_call_param_iterator.search(&param_name);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	17349
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	17350	/* Get the value from a foo(<param_value>) style call */
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	17351	if (IN2_param_value == NULL)
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	17352	IN2_param_value = function_call_param_iterator.next();
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	17353	symbol_c *IN2_type_symbol = search_expression_type->get_type(IN2_param_value);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	17354	last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN2_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN2_type_symbol, last_type_symbol) : IN2_type_symbol ;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	17355
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	17356
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	17357	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	17358
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	17359	symbol_c * return_type_symbol = last_type_symbol;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	17360	s4o.print("__min_");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	17361	return_type_symbol->accept(*this);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	17362	s4o.print("(");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	17363	s4o.print_integer(nb_param);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	17364	s4o.print(",");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	17365	IN1_param_value->accept(*this);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	17366	s4o.print(",");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	17367	IN2_param_value->accept(*this);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	17368
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	17369	int base_num = 3;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	17370	symbol_c *param_value = NULL;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	17371	do{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	17372	char my_name[10];
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	17373	sprintf(my_name, "IN%d", base_num++);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	17374	identifier_c param_name(my_name);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	17375
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	17376	/* Get the value from a foo(<param_name> = <param_value>) style call */
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	17377	param_value = function_call_param_iterator.search(&param_name);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	17378
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	17379	/* Get the value from a foo(<param_value>) style call */
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	17380	if (param_value == NULL)
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	17381	param_value = function_call_param_iterator.next();
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	17382	if (param_value != NULL){
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	17383	symbol_c *current_type_symbol = search_expression_type->get_type(param_value);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	17384	last_type_symbol = last_type_symbol && search_expression_type->is_same_type(current_type_symbol, last_type_symbol) ? search_expression_type->common_type(current_type_symbol, last_type_symbol) : current_type_symbol ;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	17385
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	17386	/Function specific CODE /
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	17387	s4o.print(",");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	17388	param_value->accept(*this);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	17389
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	17390	}
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	17391
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	17392	}while(param_value != NULL);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	17393	s4o.print(")");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	17394	return NULL;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	17395
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	17396
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	17397	}
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	17398
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	17399	ERROR;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	17400	}
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	17401
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	17402	}
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	17403
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	17404	ERROR;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	17405	}
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	17406
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	17407	}/function_min/
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	17408	break;
33 4507beb2aac6 preliminary std lib support for ST etisserant parents: diff changeset	17409
4507beb2aac6 preliminary std lib support for ST etisserant parents: diff changeset	17410	/****
4507beb2aac6 preliminary std lib support for ST etisserant parents: diff changeset	17411	*LIMIT
4507beb2aac6 preliminary std lib support for ST etisserant parents: diff changeset	17412	*/
35 9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	17413	case function_limit :
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	17414	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	17415	symbol_c *last_type_symbol = NULL;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	17416
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	17417	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	17418	identifier_c param_name("MN");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	17419	/* Get the value from a foo(<param_name> = <param_value>) style call */
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	17420	symbol_c *MN_param_value = function_call_param_iterator.search(&param_name);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	17421
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	17422	/* Get the value from a foo(<param_value>) style call */
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	17423	if (MN_param_value == NULL)
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	17424	MN_param_value = function_call_param_iterator.next();
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	17425	symbol_c *MN_type_symbol = search_expression_type->get_type(MN_param_value);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	17426	last_type_symbol = last_type_symbol && search_expression_type->is_same_type(MN_type_symbol, last_type_symbol) ? search_expression_type->common_type(MN_type_symbol, last_type_symbol) : MN_type_symbol ;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	17427
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	17428
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	17429	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	17430
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	17431	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	17432	identifier_c param_name("IN");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	17433	/* Get the value from a foo(<param_name> = <param_value>) style call */
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	17434	symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	17435
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	17436	/* Get the value from a foo(<param_value>) style call */
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	17437	if (IN_param_value == NULL)
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	17438	IN_param_value = function_call_param_iterator.next();
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	17439	symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	17440	last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	17441
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	17442
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	17443	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	17444
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	17445	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	17446	identifier_c param_name("MX");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	17447	/* Get the value from a foo(<param_name> = <param_value>) style call */
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	17448	symbol_c *MX_param_value = function_call_param_iterator.search(&param_name);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	17449
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	17450	/* Get the value from a foo(<param_value>) style call */
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	17451	if (MX_param_value == NULL)
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	17452	MX_param_value = function_call_param_iterator.next();
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	17453	symbol_c *MX_type_symbol = search_expression_type->get_type(MX_param_value);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	17454	last_type_symbol = last_type_symbol && search_expression_type->is_same_type(MX_type_symbol, last_type_symbol) ? search_expression_type->common_type(MX_type_symbol, last_type_symbol) : MX_type_symbol ;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	17455
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	17456
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	17457	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	17458
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	17459	symbol_c * return_type_symbol = IN_type_symbol;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	17460	s4o.print("__limit_");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	17461	IN_type_symbol->accept(*this);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	17462	s4o.print("(");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	17463	MN_param_value->accept(*this);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	17464	s4o.print(", ");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	17465	IN_param_value->accept(*this);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	17466	s4o.print(", ");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	17467	MX_param_value->accept(*this);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	17468	s4o.print(")");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	17469	return NULL;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	17470
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	17471	}
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	17472
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	17473	ERROR;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	17474	}
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	17475
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	17476	}
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	17477
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	17478	ERROR;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	17479	}
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	17480
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	17481	}
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	17482
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	17483	ERROR;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	17484	}
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	17485
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	17486	}/function_limit/
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	17487	break;
33 4507beb2aac6 preliminary std lib support for ST etisserant parents: diff changeset	17488
4507beb2aac6 preliminary std lib support for ST etisserant parents: diff changeset	17489	/****
4507beb2aac6 preliminary std lib support for ST etisserant parents: diff changeset	17490	*MUX
4507beb2aac6 preliminary std lib support for ST etisserant parents: diff changeset	17491	*/
35 9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	17492	case function_mux :
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	17493	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	17494	symbol_c *last_type_symbol = NULL;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	17495
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	17496	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	17497	identifier_c param_name("K");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	17498	/* Get the value from a foo(<param_name> = <param_value>) style call */
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	17499	symbol_c *K_param_value = function_call_param_iterator.search(&param_name);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	17500
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	17501	/* Get the value from a foo(<param_value>) style call */
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	17502	if (K_param_value == NULL)
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	17503	K_param_value = function_call_param_iterator.next();
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	17504	symbol_c *K_type_symbol = search_expression_type->get_type(K_param_value);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	17505	last_type_symbol = last_type_symbol && search_expression_type->is_same_type(K_type_symbol, last_type_symbol) ? search_expression_type->common_type(K_type_symbol, last_type_symbol) : K_type_symbol ;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	17506
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	17507	if(search_expression_type->is_integer_type(K_type_symbol))
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	17508	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	17509
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	17510	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	17511	identifier_c param_name("IN0");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	17512	/* Get the value from a foo(<param_name> = <param_value>) style call */
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	17513	symbol_c *IN0_param_value = function_call_param_iterator.search(&param_name);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	17514
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	17515	/* Get the value from a foo(<param_value>) style call */
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	17516	if (IN0_param_value == NULL)
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	17517	IN0_param_value = function_call_param_iterator.next();
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	17518	symbol_c *IN0_type_symbol = search_expression_type->get_type(IN0_param_value);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	17519	last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN0_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN0_type_symbol, last_type_symbol) : IN0_type_symbol ;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	17520
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	17521
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	17522	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	17523
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	17524	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	17525	identifier_c param_name("IN1");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	17526	/* Get the value from a foo(<param_name> = <param_value>) style call */
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	17527	symbol_c *IN1_param_value = function_call_param_iterator.search(&param_name);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	17528
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	17529	/* Get the value from a foo(<param_value>) style call */
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	17530	if (IN1_param_value == NULL)
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	17531	IN1_param_value = function_call_param_iterator.next();
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	17532	symbol_c *IN1_type_symbol = search_expression_type->get_type(IN1_param_value);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	17533	last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN1_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN1_type_symbol, last_type_symbol) : IN1_type_symbol ;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	17534
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	17535
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	17536	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	17537
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	17538	symbol_c * return_type_symbol = last_type_symbol;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	17539	s4o.print("__mux_");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	17540	return_type_symbol->accept(*this);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	17541	s4o.print("(");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	17542	s4o.print_integer(nb_param);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	17543	s4o.print(",");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	17544	K_param_value->accept(*this);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	17545	s4o.print(",");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	17546	IN0_param_value->accept(*this);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	17547	s4o.print(",");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	17548	IN1_param_value->accept(*this);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	17549
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	17550	int base_num = 2;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	17551	symbol_c *param_value = NULL;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	17552	do{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	17553	char my_name[10];
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	17554	sprintf(my_name, "IN%d", base_num++);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	17555	identifier_c param_name(my_name);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	17556
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	17557	/* Get the value from a foo(<param_name> = <param_value>) style call */
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	17558	param_value = function_call_param_iterator.search(&param_name);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	17559
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	17560	/* Get the value from a foo(<param_value>) style call */
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	17561	if (param_value == NULL)
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	17562	param_value = function_call_param_iterator.next();
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	17563	if (param_value != NULL){
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	17564	symbol_c *current_type_symbol = search_expression_type->get_type(param_value);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	17565	last_type_symbol = last_type_symbol && search_expression_type->is_same_type(current_type_symbol, last_type_symbol) ? search_expression_type->common_type(current_type_symbol, last_type_symbol) : current_type_symbol ;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	17566
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	17567	/Function specific CODE /
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	17568	s4o.print(",");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	17569	param_value->accept(*this);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	17570
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	17571	}
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	17572
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	17573	}while(param_value != NULL);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	17574	s4o.print(")");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	17575	return NULL;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	17576
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	17577
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	17578	}
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	17579
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	17580	ERROR;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	17581	}
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	17582
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	17583	}
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	17584
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	17585	ERROR;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	17586	}
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	17587
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	17588	}
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	17589
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	17590	ERROR;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	17591	}
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	17592
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	17593	}/function_mux/
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	17594	break;
33 4507beb2aac6 preliminary std lib support for ST etisserant parents: diff changeset	17595
4507beb2aac6 preliminary std lib support for ST etisserant parents: diff changeset	17596	/****
4507beb2aac6 preliminary std lib support for ST etisserant parents: diff changeset	17597	*GT
4507beb2aac6 preliminary std lib support for ST etisserant parents: diff changeset	17598	*/
35 9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	17599	case function_gt :
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	17600	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	17601	symbol_c *last_type_symbol = NULL;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	17602
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	17603	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	17604	identifier_c param_name("IN1");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	17605	/* Get the value from a foo(<param_name> = <param_value>) style call */
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	17606	symbol_c *IN1_param_value = function_call_param_iterator.search(&param_name);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	17607
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	17608	/* Get the value from a foo(<param_value>) style call */
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	17609	if (IN1_param_value == NULL)
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	17610	IN1_param_value = function_call_param_iterator.next();
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	17611	symbol_c *IN1_type_symbol = search_expression_type->get_type(IN1_param_value);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	17612	last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN1_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN1_type_symbol, last_type_symbol) : IN1_type_symbol ;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	17613
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	17614
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	17615	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	17616
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	17617	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	17618	identifier_c param_name("IN2");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	17619	/* Get the value from a foo(<param_name> = <param_value>) style call */
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	17620	symbol_c *IN2_param_value = function_call_param_iterator.search(&param_name);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	17621
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	17622	/* Get the value from a foo(<param_value>) style call */
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	17623	if (IN2_param_value == NULL)
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	17624	IN2_param_value = function_call_param_iterator.next();
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	17625	symbol_c *IN2_type_symbol = search_expression_type->get_type(IN2_param_value);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	17626	last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN2_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN2_type_symbol, last_type_symbol) : IN2_type_symbol ;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	17627
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	17628
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	17629	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	17630
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	17631	symbol_c * return_type_symbol = &search_constant_type_c::bool_type_name;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	17632	s4o.print("__gt_");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	17633	return_type_symbol->accept(*this);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	17634	s4o.print("(");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	17635	s4o.print_integer(nb_param);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	17636	s4o.print(",");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	17637	IN1_param_value->accept(*this);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	17638	s4o.print(",");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	17639	IN2_param_value->accept(*this);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	17640
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	17641	int base_num = 3;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	17642	symbol_c *param_value = NULL;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	17643	do{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	17644	char my_name[10];
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	17645	sprintf(my_name, "IN%d", base_num++);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	17646	identifier_c param_name(my_name);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	17647
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	17648	/* Get the value from a foo(<param_name> = <param_value>) style call */
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	17649	param_value = function_call_param_iterator.search(&param_name);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	17650
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	17651	/* Get the value from a foo(<param_value>) style call */
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	17652	if (param_value == NULL)
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	17653	param_value = function_call_param_iterator.next();
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	17654	if (param_value != NULL){
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	17655	symbol_c *current_type_symbol = search_expression_type->get_type(param_value);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	17656	last_type_symbol = last_type_symbol && search_expression_type->is_same_type(current_type_symbol, last_type_symbol) ? search_expression_type->common_type(current_type_symbol, last_type_symbol) : current_type_symbol ;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	17657
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	17658	/Function specific CODE /
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	17659	s4o.print(",");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	17660	param_value->accept(*this);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	17661
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	17662	}
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	17663
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	17664	}while(param_value != NULL);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	17665	s4o.print(")");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	17666	return NULL;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	17667
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	17668
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	17669	}
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	17670
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	17671	ERROR;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	17672	}
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	17673
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	17674	}
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	17675
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	17676	ERROR;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	17677	}
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	17678
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	17679	}/function_gt/
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	17680	break;
33 4507beb2aac6 preliminary std lib support for ST etisserant parents: diff changeset	17681
4507beb2aac6 preliminary std lib support for ST etisserant parents: diff changeset	17682	/****
4507beb2aac6 preliminary std lib support for ST etisserant parents: diff changeset	17683	*GE
4507beb2aac6 preliminary std lib support for ST etisserant parents: diff changeset	17684	*/
35 9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	17685	case function_ge :
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	17686	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	17687	symbol_c *last_type_symbol = NULL;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	17688
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	17689	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	17690	identifier_c param_name("IN1");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	17691	/* Get the value from a foo(<param_name> = <param_value>) style call */
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	17692	symbol_c *IN1_param_value = function_call_param_iterator.search(&param_name);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	17693
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	17694	/* Get the value from a foo(<param_value>) style call */
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	17695	if (IN1_param_value == NULL)
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	17696	IN1_param_value = function_call_param_iterator.next();
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	17697	symbol_c *IN1_type_symbol = search_expression_type->get_type(IN1_param_value);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	17698	last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN1_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN1_type_symbol, last_type_symbol) : IN1_type_symbol ;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	17699
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	17700
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	17701	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	17702
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	17703	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	17704	identifier_c param_name("IN2");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	17705	/* Get the value from a foo(<param_name> = <param_value>) style call */
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	17706	symbol_c *IN2_param_value = function_call_param_iterator.search(&param_name);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	17707
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	17708	/* Get the value from a foo(<param_value>) style call */
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	17709	if (IN2_param_value == NULL)
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	17710	IN2_param_value = function_call_param_iterator.next();
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	17711	symbol_c *IN2_type_symbol = search_expression_type->get_type(IN2_param_value);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	17712	last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN2_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN2_type_symbol, last_type_symbol) : IN2_type_symbol ;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	17713
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	17714
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	17715	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	17716
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	17717	symbol_c * return_type_symbol = &search_constant_type_c::bool_type_name;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	17718	s4o.print("__ge_");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	17719	return_type_symbol->accept(*this);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	17720	s4o.print("(");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	17721	s4o.print_integer(nb_param);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	17722	s4o.print(",");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	17723	IN1_param_value->accept(*this);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	17724	s4o.print(",");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	17725	IN2_param_value->accept(*this);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	17726
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	17727	int base_num = 3;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	17728	symbol_c *param_value = NULL;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	17729	do{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	17730	char my_name[10];
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	17731	sprintf(my_name, "IN%d", base_num++);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	17732	identifier_c param_name(my_name);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	17733
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	17734	/* Get the value from a foo(<param_name> = <param_value>) style call */
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	17735	param_value = function_call_param_iterator.search(&param_name);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	17736
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	17737	/* Get the value from a foo(<param_value>) style call */
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	17738	if (param_value == NULL)
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	17739	param_value = function_call_param_iterator.next();
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	17740	if (param_value != NULL){
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	17741	symbol_c *current_type_symbol = search_expression_type->get_type(param_value);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	17742	last_type_symbol = last_type_symbol && search_expression_type->is_same_type(current_type_symbol, last_type_symbol) ? search_expression_type->common_type(current_type_symbol, last_type_symbol) : current_type_symbol ;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	17743
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	17744	/Function specific CODE /
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	17745	s4o.print(",");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	17746	param_value->accept(*this);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	17747
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	17748	}
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	17749
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	17750	}while(param_value != NULL);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	17751	s4o.print(")");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	17752	return NULL;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	17753
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	17754
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	17755	}
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	17756
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	17757	ERROR;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	17758	}
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	17759
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	17760	}
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	17761
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	17762	ERROR;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	17763	}
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	17764
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	17765	}/function_ge/
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	17766	break;
33 4507beb2aac6 preliminary std lib support for ST etisserant parents: diff changeset	17767
4507beb2aac6 preliminary std lib support for ST etisserant parents: diff changeset	17768	/****
4507beb2aac6 preliminary std lib support for ST etisserant parents: diff changeset	17769	*EQ
4507beb2aac6 preliminary std lib support for ST etisserant parents: diff changeset	17770	*/
35 9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	17771	case function_eq :
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	17772	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	17773	symbol_c *last_type_symbol = NULL;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	17774
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	17775	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	17776	identifier_c param_name("IN1");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	17777	/* Get the value from a foo(<param_name> = <param_value>) style call */
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	17778	symbol_c *IN1_param_value = function_call_param_iterator.search(&param_name);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	17779
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	17780	/* Get the value from a foo(<param_value>) style call */
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	17781	if (IN1_param_value == NULL)
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	17782	IN1_param_value = function_call_param_iterator.next();
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	17783	symbol_c *IN1_type_symbol = search_expression_type->get_type(IN1_param_value);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	17784	last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN1_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN1_type_symbol, last_type_symbol) : IN1_type_symbol ;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	17785
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	17786
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	17787	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	17788
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	17789	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	17790	identifier_c param_name("IN2");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	17791	/* Get the value from a foo(<param_name> = <param_value>) style call */
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	17792	symbol_c *IN2_param_value = function_call_param_iterator.search(&param_name);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	17793
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	17794	/* Get the value from a foo(<param_value>) style call */
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	17795	if (IN2_param_value == NULL)
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	17796	IN2_param_value = function_call_param_iterator.next();
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	17797	symbol_c *IN2_type_symbol = search_expression_type->get_type(IN2_param_value);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	17798	last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN2_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN2_type_symbol, last_type_symbol) : IN2_type_symbol ;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	17799
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	17800
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	17801	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	17802
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	17803	symbol_c * return_type_symbol = &search_constant_type_c::bool_type_name;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	17804	s4o.print("__eq_");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	17805	return_type_symbol->accept(*this);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	17806	s4o.print("(");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	17807	s4o.print_integer(nb_param);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	17808	s4o.print(",");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	17809	IN1_param_value->accept(*this);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	17810	s4o.print(",");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	17811	IN2_param_value->accept(*this);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	17812
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	17813	int base_num = 3;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	17814	symbol_c *param_value = NULL;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	17815	do{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	17816	char my_name[10];
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	17817	sprintf(my_name, "IN%d", base_num++);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	17818	identifier_c param_name(my_name);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	17819
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	17820	/* Get the value from a foo(<param_name> = <param_value>) style call */
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	17821	param_value = function_call_param_iterator.search(&param_name);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	17822
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	17823	/* Get the value from a foo(<param_value>) style call */
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	17824	if (param_value == NULL)
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	17825	param_value = function_call_param_iterator.next();
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	17826	if (param_value != NULL){
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	17827	symbol_c *current_type_symbol = search_expression_type->get_type(param_value);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	17828	last_type_symbol = last_type_symbol && search_expression_type->is_same_type(current_type_symbol, last_type_symbol) ? search_expression_type->common_type(current_type_symbol, last_type_symbol) : current_type_symbol ;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	17829
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	17830	/Function specific CODE /
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	17831	s4o.print(",");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	17832	param_value->accept(*this);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	17833
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	17834	}
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	17835
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	17836	}while(param_value != NULL);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	17837	s4o.print(")");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	17838	return NULL;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	17839
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	17840
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	17841	}
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	17842
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	17843	ERROR;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	17844	}
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	17845
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	17846	}
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	17847
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	17848	ERROR;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	17849	}
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	17850
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	17851	}/function_eq/
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	17852	break;
33 4507beb2aac6 preliminary std lib support for ST etisserant parents: diff changeset	17853
4507beb2aac6 preliminary std lib support for ST etisserant parents: diff changeset	17854	/****
4507beb2aac6 preliminary std lib support for ST etisserant parents: diff changeset	17855	*LT
4507beb2aac6 preliminary std lib support for ST etisserant parents: diff changeset	17856	*/
35 9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	17857	case function_lt :
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	17858	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	17859	symbol_c *last_type_symbol = NULL;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	17860
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	17861	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	17862	identifier_c param_name("IN1");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	17863	/* Get the value from a foo(<param_name> = <param_value>) style call */
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	17864	symbol_c *IN1_param_value = function_call_param_iterator.search(&param_name);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	17865
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	17866	/* Get the value from a foo(<param_value>) style call */
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	17867	if (IN1_param_value == NULL)
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	17868	IN1_param_value = function_call_param_iterator.next();
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	17869	symbol_c *IN1_type_symbol = search_expression_type->get_type(IN1_param_value);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	17870	last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN1_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN1_type_symbol, last_type_symbol) : IN1_type_symbol ;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	17871
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	17872
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	17873	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	17874
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	17875	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	17876	identifier_c param_name("IN2");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	17877	/* Get the value from a foo(<param_name> = <param_value>) style call */
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	17878	symbol_c *IN2_param_value = function_call_param_iterator.search(&param_name);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	17879
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	17880	/* Get the value from a foo(<param_value>) style call */
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	17881	if (IN2_param_value == NULL)
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	17882	IN2_param_value = function_call_param_iterator.next();
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	17883	symbol_c *IN2_type_symbol = search_expression_type->get_type(IN2_param_value);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	17884	last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN2_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN2_type_symbol, last_type_symbol) : IN2_type_symbol ;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	17885
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	17886
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	17887	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	17888
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	17889	symbol_c * return_type_symbol = &search_constant_type_c::bool_type_name;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	17890	s4o.print("__lt_");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	17891	return_type_symbol->accept(*this);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	17892	s4o.print("(");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	17893	s4o.print_integer(nb_param);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	17894	s4o.print(",");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	17895	IN1_param_value->accept(*this);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	17896	s4o.print(",");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	17897	IN2_param_value->accept(*this);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	17898
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	17899	int base_num = 3;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	17900	symbol_c *param_value = NULL;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	17901	do{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	17902	char my_name[10];
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	17903	sprintf(my_name, "IN%d", base_num++);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	17904	identifier_c param_name(my_name);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	17905
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	17906	/* Get the value from a foo(<param_name> = <param_value>) style call */
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	17907	param_value = function_call_param_iterator.search(&param_name);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	17908
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	17909	/* Get the value from a foo(<param_value>) style call */
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	17910	if (param_value == NULL)
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	17911	param_value = function_call_param_iterator.next();
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	17912	if (param_value != NULL){
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	17913	symbol_c *current_type_symbol = search_expression_type->get_type(param_value);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	17914	last_type_symbol = last_type_symbol && search_expression_type->is_same_type(current_type_symbol, last_type_symbol) ? search_expression_type->common_type(current_type_symbol, last_type_symbol) : current_type_symbol ;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	17915
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	17916	/Function specific CODE /
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	17917	s4o.print(",");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	17918	param_value->accept(*this);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	17919
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	17920	}
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	17921
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	17922	}while(param_value != NULL);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	17923	s4o.print(")");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	17924	return NULL;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	17925
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	17926
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	17927	}
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	17928
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	17929	ERROR;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	17930	}
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	17931
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	17932	}
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	17933
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	17934	ERROR;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	17935	}
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	17936
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	17937	}/function_lt/
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	17938	break;
33 4507beb2aac6 preliminary std lib support for ST etisserant parents: diff changeset	17939
4507beb2aac6 preliminary std lib support for ST etisserant parents: diff changeset	17940	/****
4507beb2aac6 preliminary std lib support for ST etisserant parents: diff changeset	17941	*LE
4507beb2aac6 preliminary std lib support for ST etisserant parents: diff changeset	17942	*/
35 9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	17943	case function_le :
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	17944	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	17945	symbol_c *last_type_symbol = NULL;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	17946
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	17947	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	17948	identifier_c param_name("IN1");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	17949	/* Get the value from a foo(<param_name> = <param_value>) style call */
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	17950	symbol_c *IN1_param_value = function_call_param_iterator.search(&param_name);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	17951
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	17952	/* Get the value from a foo(<param_value>) style call */
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	17953	if (IN1_param_value == NULL)
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	17954	IN1_param_value = function_call_param_iterator.next();
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	17955	symbol_c *IN1_type_symbol = search_expression_type->get_type(IN1_param_value);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	17956	last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN1_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN1_type_symbol, last_type_symbol) : IN1_type_symbol ;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	17957
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	17958
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	17959	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	17960
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	17961	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	17962	identifier_c param_name("IN2");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	17963	/* Get the value from a foo(<param_name> = <param_value>) style call */
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	17964	symbol_c *IN2_param_value = function_call_param_iterator.search(&param_name);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	17965
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	17966	/* Get the value from a foo(<param_value>) style call */
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	17967	if (IN2_param_value == NULL)
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	17968	IN2_param_value = function_call_param_iterator.next();
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	17969	symbol_c *IN2_type_symbol = search_expression_type->get_type(IN2_param_value);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	17970	last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN2_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN2_type_symbol, last_type_symbol) : IN2_type_symbol ;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	17971
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	17972
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	17973	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	17974
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	17975	symbol_c * return_type_symbol = &search_constant_type_c::bool_type_name;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	17976	s4o.print("__le_");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	17977	return_type_symbol->accept(*this);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	17978	s4o.print("(");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	17979	s4o.print_integer(nb_param);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	17980	s4o.print(",");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	17981	IN1_param_value->accept(*this);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	17982	s4o.print(",");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	17983	IN2_param_value->accept(*this);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	17984
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	17985	int base_num = 3;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	17986	symbol_c *param_value = NULL;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	17987	do{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	17988	char my_name[10];
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	17989	sprintf(my_name, "IN%d", base_num++);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	17990	identifier_c param_name(my_name);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	17991
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	17992	/* Get the value from a foo(<param_name> = <param_value>) style call */
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	17993	param_value = function_call_param_iterator.search(&param_name);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	17994
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	17995	/* Get the value from a foo(<param_value>) style call */
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	17996	if (param_value == NULL)
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	17997	param_value = function_call_param_iterator.next();
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	17998	if (param_value != NULL){
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	17999	symbol_c *current_type_symbol = search_expression_type->get_type(param_value);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	18000	last_type_symbol = last_type_symbol && search_expression_type->is_same_type(current_type_symbol, last_type_symbol) ? search_expression_type->common_type(current_type_symbol, last_type_symbol) : current_type_symbol ;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	18001
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	18002	/Function specific CODE /
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	18003	s4o.print(",");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	18004	param_value->accept(*this);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	18005
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	18006	}
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	18007
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	18008	}while(param_value != NULL);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	18009	s4o.print(")");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	18010	return NULL;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	18011
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	18012
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	18013	}
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	18014
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	18015	ERROR;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	18016	}
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	18017
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	18018	}
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	18019
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	18020	ERROR;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	18021	}
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	18022
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	18023	}/function_le/
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	18024	break;
33 4507beb2aac6 preliminary std lib support for ST etisserant parents: diff changeset	18025
4507beb2aac6 preliminary std lib support for ST etisserant parents: diff changeset	18026	/****
4507beb2aac6 preliminary std lib support for ST etisserant parents: diff changeset	18027	*NE
4507beb2aac6 preliminary std lib support for ST etisserant parents: diff changeset	18028	*/
35 9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	18029	case function_ne :
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	18030	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	18031	symbol_c *last_type_symbol = NULL;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	18032
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	18033	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	18034	identifier_c param_name("IN1");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	18035	/* Get the value from a foo(<param_name> = <param_value>) style call */
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	18036	symbol_c *IN1_param_value = function_call_param_iterator.search(&param_name);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	18037
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	18038	/* Get the value from a foo(<param_value>) style call */
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	18039	if (IN1_param_value == NULL)
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	18040	IN1_param_value = function_call_param_iterator.next();
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	18041	symbol_c *IN1_type_symbol = search_expression_type->get_type(IN1_param_value);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	18042	last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN1_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN1_type_symbol, last_type_symbol) : IN1_type_symbol ;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	18043
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	18044
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	18045	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	18046
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	18047	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	18048	identifier_c param_name("IN2");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	18049	/* Get the value from a foo(<param_name> = <param_value>) style call */
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	18050	symbol_c *IN2_param_value = function_call_param_iterator.search(&param_name);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	18051
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	18052	/* Get the value from a foo(<param_value>) style call */
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	18053	if (IN2_param_value == NULL)
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	18054	IN2_param_value = function_call_param_iterator.next();
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	18055	symbol_c *IN2_type_symbol = search_expression_type->get_type(IN2_param_value);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	18056	last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN2_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN2_type_symbol, last_type_symbol) : IN2_type_symbol ;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	18057
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	18058
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	18059	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	18060
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	18061	symbol_c * return_type_symbol = &search_constant_type_c::bool_type_name;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	18062	s4o.print("__ne_");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	18063	return_type_symbol->accept(*this);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	18064	s4o.print("(");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	18065	s4o.print_integer(nb_param);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	18066	s4o.print(",");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	18067	IN1_param_value->accept(*this);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	18068	s4o.print(",");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	18069	IN2_param_value->accept(*this);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	18070
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	18071	int base_num = 3;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	18072	symbol_c *param_value = NULL;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	18073	do{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	18074	char my_name[10];
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	18075	sprintf(my_name, "IN%d", base_num++);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	18076	identifier_c param_name(my_name);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	18077
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	18078	/* Get the value from a foo(<param_name> = <param_value>) style call */
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	18079	param_value = function_call_param_iterator.search(&param_name);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	18080
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	18081	/* Get the value from a foo(<param_value>) style call */
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	18082	if (param_value == NULL)
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	18083	param_value = function_call_param_iterator.next();
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	18084	if (param_value != NULL){
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	18085	symbol_c *current_type_symbol = search_expression_type->get_type(param_value);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	18086	last_type_symbol = last_type_symbol && search_expression_type->is_same_type(current_type_symbol, last_type_symbol) ? search_expression_type->common_type(current_type_symbol, last_type_symbol) : current_type_symbol ;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	18087
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	18088	/Function specific CODE /
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	18089	s4o.print(",");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	18090	param_value->accept(*this);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	18091
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	18092	}
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	18093
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	18094	}while(param_value != NULL);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	18095	s4o.print(")");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	18096	return NULL;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	18097
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	18098
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	18099	}
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	18100
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	18101	ERROR;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	18102	}
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	18103
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	18104	}
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	18105
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	18106	ERROR;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	18107	}
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	18108
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	18109	}/function_ne/
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	18110	break;
33 4507beb2aac6 preliminary std lib support for ST etisserant parents: diff changeset	18111
4507beb2aac6 preliminary std lib support for ST etisserant parents: diff changeset	18112	/****
4507beb2aac6 preliminary std lib support for ST etisserant parents: diff changeset	18113	*LEN
4507beb2aac6 preliminary std lib support for ST etisserant parents: diff changeset	18114	*/
35 9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	18115	case function_len :
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	18116	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	18117	symbol_c *last_type_symbol = NULL;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	18118
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	18119	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	18120	identifier_c param_name("IN");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	18121	/* Get the value from a foo(<param_name> = <param_value>) style call */
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	18122	symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	18123
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	18124	/* Get the value from a foo(<param_value>) style call */
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	18125	if (IN_param_value == NULL)
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	18126	IN_param_value = function_call_param_iterator.next();
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	18127	symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	18128	last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	18129
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	18130	if (typeid(*last_type_symbol) == typeid(string_type_name_c))
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	18131	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	18132
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	18133	symbol_c * return_type_symbol = &search_constant_type_c::int_type_name;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	18134	s4o.print("__len(&");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	18135	IN_param_value->accept(*this);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	18136	s4o.print(")");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	18137	return NULL;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	18138
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	18139	}
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	18140
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	18141	ERROR;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	18142	}
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	18143
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	18144	}/function_len/
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	18145	break;
33 4507beb2aac6 preliminary std lib support for ST etisserant parents: diff changeset	18146
4507beb2aac6 preliminary std lib support for ST etisserant parents: diff changeset	18147	/****
4507beb2aac6 preliminary std lib support for ST etisserant parents: diff changeset	18148	*LEFT
4507beb2aac6 preliminary std lib support for ST etisserant parents: diff changeset	18149	*/
35 9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	18150	case function_left :
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	18151	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	18152	symbol_c *last_type_symbol = NULL;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	18153
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	18154	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	18155	identifier_c param_name("IN");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	18156	/* Get the value from a foo(<param_name> = <param_value>) style call */
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	18157	symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	18158
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	18159	/* Get the value from a foo(<param_value>) style call */
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	18160	if (IN_param_value == NULL)
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	18161	IN_param_value = function_call_param_iterator.next();
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	18162	symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	18163	last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	18164
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	18165	if (typeid(*last_type_symbol) == typeid(string_type_name_c))
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	18166	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	18167
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	18168	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	18169	identifier_c param_name("L");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	18170	/* Get the value from a foo(<param_name> = <param_value>) style call */
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	18171	symbol_c *L_param_value = function_call_param_iterator.search(&param_name);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	18172
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	18173	/* Get the value from a foo(<param_value>) style call */
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	18174	if (L_param_value == NULL)
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	18175	L_param_value = function_call_param_iterator.next();
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	18176	symbol_c *L_type_symbol = search_expression_type->get_type(L_param_value);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	18177	last_type_symbol = last_type_symbol && search_expression_type->is_same_type(L_type_symbol, last_type_symbol) ? search_expression_type->common_type(L_type_symbol, last_type_symbol) : L_type_symbol ;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	18178
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	18179	if (typeid(*last_type_symbol) == typeid(uint_type_name_c))
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	18180	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	18181
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	18182	symbol_c * return_type_symbol = &search_constant_type_c::string_type_name;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	18183	s4o.print("__left(&");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	18184	IN_param_value->accept(*this);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	18185	s4o.print(", ");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	18186	L_param_value->accept(*this);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	18187	s4o.print(")");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	18188	return NULL;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	18189
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	18190	}
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	18191
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	18192	ERROR;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	18193	}
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	18194
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	18195	}
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	18196
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	18197	ERROR;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	18198	}
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	18199
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	18200	}/function_left/
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	18201	break;
33 4507beb2aac6 preliminary std lib support for ST etisserant parents: diff changeset	18202
4507beb2aac6 preliminary std lib support for ST etisserant parents: diff changeset	18203	/****
4507beb2aac6 preliminary std lib support for ST etisserant parents: diff changeset	18204	*RIGHT
4507beb2aac6 preliminary std lib support for ST etisserant parents: diff changeset	18205	*/
35 9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	18206	case function_right :
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	18207	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	18208	symbol_c *last_type_symbol = NULL;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	18209
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	18210	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	18211	identifier_c param_name("IN");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	18212	/* Get the value from a foo(<param_name> = <param_value>) style call */
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	18213	symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	18214
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	18215	/* Get the value from a foo(<param_value>) style call */
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	18216	if (IN_param_value == NULL)
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	18217	IN_param_value = function_call_param_iterator.next();
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	18218	symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	18219	last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	18220
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	18221	if (typeid(*last_type_symbol) == typeid(string_type_name_c))
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	18222	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	18223
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	18224	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	18225	identifier_c param_name("L");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	18226	/* Get the value from a foo(<param_name> = <param_value>) style call */
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	18227	symbol_c *L_param_value = function_call_param_iterator.search(&param_name);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	18228
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	18229	/* Get the value from a foo(<param_value>) style call */
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	18230	if (L_param_value == NULL)
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	18231	L_param_value = function_call_param_iterator.next();
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	18232	symbol_c *L_type_symbol = search_expression_type->get_type(L_param_value);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	18233	last_type_symbol = last_type_symbol && search_expression_type->is_same_type(L_type_symbol, last_type_symbol) ? search_expression_type->common_type(L_type_symbol, last_type_symbol) : L_type_symbol ;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	18234
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	18235	if (typeid(*last_type_symbol) == typeid(uint_type_name_c))
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	18236	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	18237
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	18238	symbol_c * return_type_symbol = &search_constant_type_c::string_type_name;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	18239	s4o.print("__right(&");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	18240	IN_param_value->accept(*this);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	18241	s4o.print(", ");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	18242	L_param_value->accept(*this);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	18243	s4o.print(")");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	18244	return NULL;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	18245
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	18246	}
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	18247
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	18248	ERROR;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	18249	}
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	18250
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	18251	}
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	18252
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	18253	ERROR;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	18254	}
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	18255
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	18256	}/function_right/
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	18257	break;
33 4507beb2aac6 preliminary std lib support for ST etisserant parents: diff changeset	18258
4507beb2aac6 preliminary std lib support for ST etisserant parents: diff changeset	18259	/****
4507beb2aac6 preliminary std lib support for ST etisserant parents: diff changeset	18260	*MID
4507beb2aac6 preliminary std lib support for ST etisserant parents: diff changeset	18261	*/
35 9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	18262	case function_mid :
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	18263	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	18264	symbol_c *last_type_symbol = NULL;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	18265
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	18266	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	18267	identifier_c param_name("IN");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	18268	/* Get the value from a foo(<param_name> = <param_value>) style call */
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	18269	symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	18270
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	18271	/* Get the value from a foo(<param_value>) style call */
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	18272	if (IN_param_value == NULL)
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	18273	IN_param_value = function_call_param_iterator.next();
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	18274	symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	18275	last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	18276
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	18277	if (typeid(*last_type_symbol) == typeid(string_type_name_c))
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	18278	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	18279
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	18280	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	18281	identifier_c param_name("L");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	18282	/* Get the value from a foo(<param_name> = <param_value>) style call */
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	18283	symbol_c *L_param_value = function_call_param_iterator.search(&param_name);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	18284
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	18285	/* Get the value from a foo(<param_value>) style call */
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	18286	if (L_param_value == NULL)
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	18287	L_param_value = function_call_param_iterator.next();
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	18288	symbol_c *L_type_symbol = search_expression_type->get_type(L_param_value);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	18289	last_type_symbol = last_type_symbol && search_expression_type->is_same_type(L_type_symbol, last_type_symbol) ? search_expression_type->common_type(L_type_symbol, last_type_symbol) : L_type_symbol ;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	18290
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	18291	if (typeid(*last_type_symbol) == typeid(uint_type_name_c))
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	18292	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	18293
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	18294	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	18295	identifier_c param_name("P");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	18296	/* Get the value from a foo(<param_name> = <param_value>) style call */
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	18297	symbol_c *P_param_value = function_call_param_iterator.search(&param_name);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	18298
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	18299	/* Get the value from a foo(<param_value>) style call */
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	18300	if (P_param_value == NULL)
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	18301	P_param_value = function_call_param_iterator.next();
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	18302	symbol_c *P_type_symbol = search_expression_type->get_type(P_param_value);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	18303	last_type_symbol = last_type_symbol && search_expression_type->is_same_type(P_type_symbol, last_type_symbol) ? search_expression_type->common_type(P_type_symbol, last_type_symbol) : P_type_symbol ;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	18304
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	18305	if (typeid(*last_type_symbol) == typeid(uint_type_name_c))
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	18306	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	18307
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	18308	symbol_c * return_type_symbol = &search_constant_type_c::string_type_name;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	18309	s4o.print("__mid(&");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	18310	IN_param_value->accept(*this);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	18311	s4o.print(", ");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	18312	L_param_value->accept(*this);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	18313	s4o.print(", ");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	18314	P_param_value->accept(*this);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	18315	s4o.print(")");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	18316	return NULL;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	18317
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	18318	}
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	18319
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	18320	ERROR;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	18321	}
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	18322
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	18323	}
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	18324
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	18325	ERROR;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	18326	}
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	18327
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	18328	}
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	18329
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	18330	ERROR;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	18331	}
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	18332
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	18333	}/function_mid/
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	18334	break;
33 4507beb2aac6 preliminary std lib support for ST etisserant parents: diff changeset	18335
4507beb2aac6 preliminary std lib support for ST etisserant parents: diff changeset	18336	/****
4507beb2aac6 preliminary std lib support for ST etisserant parents: diff changeset	18337	*CONCAT
4507beb2aac6 preliminary std lib support for ST etisserant parents: diff changeset	18338	*/
35 9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	18339	case function_concat :
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	18340	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	18341	symbol_c *last_type_symbol = NULL;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	18342
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	18343	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	18344	identifier_c param_name("IN1");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	18345	/* Get the value from a foo(<param_name> = <param_value>) style call */
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	18346	symbol_c *IN1_param_value = function_call_param_iterator.search(&param_name);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	18347
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	18348	/* Get the value from a foo(<param_value>) style call */
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	18349	if (IN1_param_value == NULL)
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	18350	IN1_param_value = function_call_param_iterator.next();
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	18351	symbol_c *IN1_type_symbol = search_expression_type->get_type(IN1_param_value);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	18352	last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN1_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN1_type_symbol, last_type_symbol) : IN1_type_symbol ;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	18353
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	18354	if (typeid(*last_type_symbol) == typeid(date_type_name_c))
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	18355	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	18356
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	18357	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	18358	identifier_c param_name("IN2");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	18359	/* Get the value from a foo(<param_name> = <param_value>) style call */
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	18360	symbol_c *IN2_param_value = function_call_param_iterator.search(&param_name);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	18361
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	18362	/* Get the value from a foo(<param_value>) style call */
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	18363	if (IN2_param_value == NULL)
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	18364	IN2_param_value = function_call_param_iterator.next();
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	18365	symbol_c *IN2_type_symbol = search_expression_type->get_type(IN2_param_value);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	18366	last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN2_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN2_type_symbol, last_type_symbol) : IN2_type_symbol ;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	18367
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	18368	if (typeid(*last_type_symbol) == typeid(tod_type_name_c))
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	18369	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	18370
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	18371	symbol_c * return_type_symbol = &search_constant_type_c::dt_type_name;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	18372	s4o.print("__time_add(&");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	18373	IN1_param_value->accept(*this);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	18374	s4o.print(", &");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	18375	IN2_param_value->accept(*this);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	18376	s4o.print(")");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	18377	return NULL;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	18378
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	18379	}
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	18380
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	18381	ERROR;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	18382	}
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	18383
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	18384	}
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	18385
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	18386	if (typeid(*last_type_symbol) == typeid(string_type_name_c))
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	18387	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	18388
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	18389	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	18390	identifier_c param_name("IN2");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	18391	/* Get the value from a foo(<param_name> = <param_value>) style call */
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	18392	symbol_c *IN2_param_value = function_call_param_iterator.search(&param_name);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	18393
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	18394	/* Get the value from a foo(<param_value>) style call */
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	18395	if (IN2_param_value == NULL)
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	18396	IN2_param_value = function_call_param_iterator.next();
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	18397	symbol_c *IN2_type_symbol = search_expression_type->get_type(IN2_param_value);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	18398	last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN2_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN2_type_symbol, last_type_symbol) : IN2_type_symbol ;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	18399
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	18400	if (typeid(*last_type_symbol) == typeid(string_type_name_c))
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	18401	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	18402
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	18403	symbol_c * return_type_symbol = &search_constant_type_c::string_type_name;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	18404	s4o.print("__concat(");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	18405	s4o.print_integer(nb_param);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	18406	s4o.print(",");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	18407	IN1_param_value->accept(*this);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	18408	s4o.print(",&");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	18409	IN2_param_value->accept(*this);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	18410
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	18411	int base_num = 3;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	18412	symbol_c *param_value = NULL;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	18413	do{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	18414	char my_name[10];
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	18415	sprintf(my_name, "IN%d", base_num++);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	18416	identifier_c param_name(my_name);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	18417
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	18418	/* Get the value from a foo(<param_name> = <param_value>) style call */
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	18419	param_value = function_call_param_iterator.search(&param_name);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	18420
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	18421	/* Get the value from a foo(<param_value>) style call */
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	18422	if (param_value == NULL)
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	18423	param_value = function_call_param_iterator.next();
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	18424	if (param_value != NULL){
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	18425	symbol_c *current_type_symbol = search_expression_type->get_type(param_value);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	18426	last_type_symbol = last_type_symbol && search_expression_type->is_same_type(current_type_symbol, last_type_symbol) ? search_expression_type->common_type(current_type_symbol, last_type_symbol) : current_type_symbol ;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	18427
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	18428	/Function specific CODE /
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	18429	s4o.print(",&");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	18430	param_value->accept(*this);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	18431
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	18432	}
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	18433
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	18434	}while(param_value != NULL);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	18435	s4o.print(")");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	18436	return NULL;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	18437
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	18438
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	18439	}
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	18440
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	18441	ERROR;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	18442	}
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	18443
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	18444	}
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	18445
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	18446	ERROR;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	18447	}
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	18448
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	18449	}/function_concat/
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	18450	break;
33 4507beb2aac6 preliminary std lib support for ST etisserant parents: diff changeset	18451
4507beb2aac6 preliminary std lib support for ST etisserant parents: diff changeset	18452	/****
4507beb2aac6 preliminary std lib support for ST etisserant parents: diff changeset	18453	*INSERT
4507beb2aac6 preliminary std lib support for ST etisserant parents: diff changeset	18454	*/
35 9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	18455	case function_insert :
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	18456	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	18457	symbol_c *last_type_symbol = NULL;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	18458
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	18459	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	18460	identifier_c param_name("IN1");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	18461	/* Get the value from a foo(<param_name> = <param_value>) style call */
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	18462	symbol_c *IN1_param_value = function_call_param_iterator.search(&param_name);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	18463
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	18464	/* Get the value from a foo(<param_value>) style call */
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	18465	if (IN1_param_value == NULL)
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	18466	IN1_param_value = function_call_param_iterator.next();
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	18467	symbol_c *IN1_type_symbol = search_expression_type->get_type(IN1_param_value);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	18468	last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN1_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN1_type_symbol, last_type_symbol) : IN1_type_symbol ;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	18469
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	18470	if (typeid(*last_type_symbol) == typeid(string_type_name_c))
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	18471	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	18472
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	18473	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	18474	identifier_c param_name("IN2");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	18475	/* Get the value from a foo(<param_name> = <param_value>) style call */
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	18476	symbol_c *IN2_param_value = function_call_param_iterator.search(&param_name);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	18477
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	18478	/* Get the value from a foo(<param_value>) style call */
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	18479	if (IN2_param_value == NULL)
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	18480	IN2_param_value = function_call_param_iterator.next();
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	18481	symbol_c *IN2_type_symbol = search_expression_type->get_type(IN2_param_value);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	18482	last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN2_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN2_type_symbol, last_type_symbol) : IN2_type_symbol ;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	18483
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	18484	if (typeid(*last_type_symbol) == typeid(string_type_name_c))
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	18485	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	18486
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	18487	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	18488	identifier_c param_name("P");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	18489	/* Get the value from a foo(<param_name> = <param_value>) style call */
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	18490	symbol_c *P_param_value = function_call_param_iterator.search(&param_name);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	18491
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	18492	/* Get the value from a foo(<param_value>) style call */
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	18493	if (P_param_value == NULL)
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	18494	P_param_value = function_call_param_iterator.next();
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	18495	symbol_c *P_type_symbol = search_expression_type->get_type(P_param_value);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	18496	last_type_symbol = last_type_symbol && search_expression_type->is_same_type(P_type_symbol, last_type_symbol) ? search_expression_type->common_type(P_type_symbol, last_type_symbol) : P_type_symbol ;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	18497
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	18498	if (typeid(*last_type_symbol) == typeid(uint_type_name_c))
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	18499	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	18500
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	18501	symbol_c * return_type_symbol = &search_constant_type_c::string_type_name;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	18502	s4o.print("__insert(&");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	18503	IN1_param_value->accept(*this);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	18504	s4o.print(", &");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	18505	IN2_param_value->accept(*this);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	18506	s4o.print(", ");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	18507	P_param_value->accept(*this);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	18508	s4o.print(")");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	18509	return NULL;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	18510
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	18511	}
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	18512
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	18513	ERROR;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	18514	}
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	18515
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	18516	}
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	18517
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	18518	ERROR;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	18519	}
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	18520
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	18521	}
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	18522
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	18523	ERROR;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	18524	}
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	18525
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	18526	}/function_insert/
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	18527	break;
33 4507beb2aac6 preliminary std lib support for ST etisserant parents: diff changeset	18528
4507beb2aac6 preliminary std lib support for ST etisserant parents: diff changeset	18529	/****
4507beb2aac6 preliminary std lib support for ST etisserant parents: diff changeset	18530	*DELETE
4507beb2aac6 preliminary std lib support for ST etisserant parents: diff changeset	18531	*/
35 9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	18532	case function_delete :
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	18533	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	18534	symbol_c *last_type_symbol = NULL;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	18535
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	18536	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	18537	identifier_c param_name("IN");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	18538	/* Get the value from a foo(<param_name> = <param_value>) style call */
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	18539	symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	18540
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	18541	/* Get the value from a foo(<param_value>) style call */
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	18542	if (IN_param_value == NULL)
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	18543	IN_param_value = function_call_param_iterator.next();
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	18544	symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	18545	last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	18546
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	18547	if (typeid(*last_type_symbol) == typeid(string_type_name_c))
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	18548	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	18549
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	18550	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	18551	identifier_c param_name("L");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	18552	/* Get the value from a foo(<param_name> = <param_value>) style call */
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	18553	symbol_c *L_param_value = function_call_param_iterator.search(&param_name);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	18554
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	18555	/* Get the value from a foo(<param_value>) style call */
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	18556	if (L_param_value == NULL)
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	18557	L_param_value = function_call_param_iterator.next();
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	18558	symbol_c *L_type_symbol = search_expression_type->get_type(L_param_value);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	18559	last_type_symbol = last_type_symbol && search_expression_type->is_same_type(L_type_symbol, last_type_symbol) ? search_expression_type->common_type(L_type_symbol, last_type_symbol) : L_type_symbol ;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	18560
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	18561	if (typeid(*last_type_symbol) == typeid(uint_type_name_c))
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	18562	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	18563
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	18564	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	18565	identifier_c param_name("P");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	18566	/* Get the value from a foo(<param_name> = <param_value>) style call */
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	18567	symbol_c *P_param_value = function_call_param_iterator.search(&param_name);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	18568
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	18569	/* Get the value from a foo(<param_value>) style call */
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	18570	if (P_param_value == NULL)
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	18571	P_param_value = function_call_param_iterator.next();
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	18572	symbol_c *P_type_symbol = search_expression_type->get_type(P_param_value);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	18573	last_type_symbol = last_type_symbol && search_expression_type->is_same_type(P_type_symbol, last_type_symbol) ? search_expression_type->common_type(P_type_symbol, last_type_symbol) : P_type_symbol ;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	18574
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	18575	if (typeid(*last_type_symbol) == typeid(uint_type_name_c))
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	18576	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	18577
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	18578	symbol_c * return_type_symbol = &search_constant_type_c::string_type_name;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	18579	s4o.print("__delete(&");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	18580	IN_param_value->accept(*this);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	18581	s4o.print(", ");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	18582	L_param_value->accept(*this);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	18583	s4o.print(", ");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	18584	P_param_value->accept(*this);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	18585	s4o.print(")");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	18586	return NULL;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	18587
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	18588	}
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	18589
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	18590	ERROR;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	18591	}
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	18592
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	18593	}
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	18594
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	18595	ERROR;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	18596	}
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	18597
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	18598	}
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	18599
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	18600	ERROR;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	18601	}
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	18602
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	18603	}/function_delete/
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	18604	break;
33 4507beb2aac6 preliminary std lib support for ST etisserant parents: diff changeset	18605
4507beb2aac6 preliminary std lib support for ST etisserant parents: diff changeset	18606	/****
4507beb2aac6 preliminary std lib support for ST etisserant parents: diff changeset	18607	*REPLACE
4507beb2aac6 preliminary std lib support for ST etisserant parents: diff changeset	18608	*/
35 9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	18609	case function_replace :
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	18610	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	18611	symbol_c *last_type_symbol = NULL;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	18612
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	18613	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	18614	identifier_c param_name("IN1");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	18615	/* Get the value from a foo(<param_name> = <param_value>) style call */
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	18616	symbol_c *IN1_param_value = function_call_param_iterator.search(&param_name);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	18617
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	18618	/* Get the value from a foo(<param_value>) style call */
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	18619	if (IN1_param_value == NULL)
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	18620	IN1_param_value = function_call_param_iterator.next();
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	18621	symbol_c *IN1_type_symbol = search_expression_type->get_type(IN1_param_value);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	18622	last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN1_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN1_type_symbol, last_type_symbol) : IN1_type_symbol ;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	18623
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	18624	if (typeid(*last_type_symbol) == typeid(string_type_name_c))
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	18625	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	18626
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	18627	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	18628	identifier_c param_name("IN2");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	18629	/* Get the value from a foo(<param_name> = <param_value>) style call */
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	18630	symbol_c *IN2_param_value = function_call_param_iterator.search(&param_name);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	18631
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	18632	/* Get the value from a foo(<param_value>) style call */
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	18633	if (IN2_param_value == NULL)
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	18634	IN2_param_value = function_call_param_iterator.next();
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	18635	symbol_c *IN2_type_symbol = search_expression_type->get_type(IN2_param_value);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	18636	last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN2_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN2_type_symbol, last_type_symbol) : IN2_type_symbol ;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	18637
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	18638	if (typeid(*last_type_symbol) == typeid(string_type_name_c))
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	18639	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	18640
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	18641	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	18642	identifier_c param_name("L");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	18643	/* Get the value from a foo(<param_name> = <param_value>) style call */
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	18644	symbol_c *L_param_value = function_call_param_iterator.search(&param_name);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	18645
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	18646	/* Get the value from a foo(<param_value>) style call */
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	18647	if (L_param_value == NULL)
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	18648	L_param_value = function_call_param_iterator.next();
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	18649	symbol_c *L_type_symbol = search_expression_type->get_type(L_param_value);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	18650	last_type_symbol = last_type_symbol && search_expression_type->is_same_type(L_type_symbol, last_type_symbol) ? search_expression_type->common_type(L_type_symbol, last_type_symbol) : L_type_symbol ;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	18651
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	18652	if (typeid(*last_type_symbol) == typeid(uint_type_name_c))
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	18653	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	18654
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	18655	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	18656	identifier_c param_name("P");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	18657	/* Get the value from a foo(<param_name> = <param_value>) style call */
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	18658	symbol_c *P_param_value = function_call_param_iterator.search(&param_name);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	18659
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	18660	/* Get the value from a foo(<param_value>) style call */
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	18661	if (P_param_value == NULL)
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	18662	P_param_value = function_call_param_iterator.next();
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	18663	symbol_c *P_type_symbol = search_expression_type->get_type(P_param_value);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	18664	last_type_symbol = last_type_symbol && search_expression_type->is_same_type(P_type_symbol, last_type_symbol) ? search_expression_type->common_type(P_type_symbol, last_type_symbol) : P_type_symbol ;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	18665
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	18666	if (typeid(*last_type_symbol) == typeid(uint_type_name_c))
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	18667	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	18668
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	18669	symbol_c * return_type_symbol = &search_constant_type_c::string_type_name;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	18670	s4o.print("__replace(&");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	18671	IN1_param_value->accept(*this);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	18672	s4o.print(", &");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	18673	IN2_param_value->accept(*this);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	18674	s4o.print(", ");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	18675	L_param_value->accept(*this);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	18676	s4o.print(", ");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	18677	P_param_value->accept(*this);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	18678	s4o.print(")");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	18679	return NULL;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	18680
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	18681	}
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	18682
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	18683	ERROR;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	18684	}
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	18685
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	18686	}
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	18687
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	18688	ERROR;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	18689	}
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	18690
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	18691	}
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	18692
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	18693	ERROR;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	18694	}
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	18695
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	18696	}
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	18697
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	18698	ERROR;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	18699	}
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	18700
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	18701	}/function_replace/
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	18702	break;
33 4507beb2aac6 preliminary std lib support for ST etisserant parents: diff changeset	18703
4507beb2aac6 preliminary std lib support for ST etisserant parents: diff changeset	18704	/****
4507beb2aac6 preliminary std lib support for ST etisserant parents: diff changeset	18705	*FIND
4507beb2aac6 preliminary std lib support for ST etisserant parents: diff changeset	18706	*/
35 9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	18707	case function_find :
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	18708	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	18709	symbol_c *last_type_symbol = NULL;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	18710
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	18711	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	18712	identifier_c param_name("IN1");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	18713	/* Get the value from a foo(<param_name> = <param_value>) style call */
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	18714	symbol_c *IN1_param_value = function_call_param_iterator.search(&param_name);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	18715
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	18716	/* Get the value from a foo(<param_value>) style call */
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	18717	if (IN1_param_value == NULL)
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	18718	IN1_param_value = function_call_param_iterator.next();
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	18719	symbol_c *IN1_type_symbol = search_expression_type->get_type(IN1_param_value);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	18720	last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN1_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN1_type_symbol, last_type_symbol) : IN1_type_symbol ;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	18721
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	18722	if (typeid(*last_type_symbol) == typeid(string_type_name_c))
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	18723	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	18724
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	18725	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	18726	identifier_c param_name("IN2");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	18727	/* Get the value from a foo(<param_name> = <param_value>) style call */
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	18728	symbol_c *IN2_param_value = function_call_param_iterator.search(&param_name);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	18729
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	18730	/* Get the value from a foo(<param_value>) style call */
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	18731	if (IN2_param_value == NULL)
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	18732	IN2_param_value = function_call_param_iterator.next();
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	18733	symbol_c *IN2_type_symbol = search_expression_type->get_type(IN2_param_value);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	18734	last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN2_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN2_type_symbol, last_type_symbol) : IN2_type_symbol ;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	18735
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	18736	if (typeid(*last_type_symbol) == typeid(string_type_name_c))
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	18737	{
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	18738
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	18739	symbol_c * return_type_symbol = &search_constant_type_c::int_type_name;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	18740	s4o.print("__find(&");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	18741	IN1_param_value->accept(*this);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	18742	s4o.print(", &");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	18743	IN2_param_value->accept(*this);
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	18744	s4o.print(")");
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	18745	return NULL;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	18746
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	18747	}
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	18748
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	18749	ERROR;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	18750	}
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	18751
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	18752	}
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	18753
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	18754	ERROR;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	18755	}
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	18756
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	18757	}/function_find/
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	18758	break;
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	18759
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	18760	case function_none :
9f3d6c089533 Generated code for il finished lbessard parents: 34 diff changeset	18761	ERROR;
33 4507beb2aac6 preliminary std lib support for ST etisserant parents: diff changeset	18762	}
4507beb2aac6 preliminary std lib support for ST etisserant parents: diff changeset	18763	return NULL;

author	lbessard
	Thu, 21 Jun 2007 10:22:32 +0200
changeset 35	9f3d6c089533
parent 34	a793b010e371
child 38	6cce7d14647e
permissions	-rw-r--r--