matiec: stage4/generate_c/st_code_gen.c@bea932bc60b0 (annotated)

70 e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	1	/*
149 05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	2	* (c) 2008 Edouard TISSERANT
70 e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	3	*
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	4	* Offered to the public under the terms of the GNU General Public License
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	5	* as published by the Free Software Foundation; either version 2 of the
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	6	* License, or (at your option) any later version.
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	7	*
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	8	* This program is distributed in the hope that it will be useful, but
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	9	* WITHOUT ANY WARRANTY; without even the implied warranty of
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	10	* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU General
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	11	* Public License for more details.
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	12	*
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	13	* This code is made available on the understanding that it will not be
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	14	* used in safety-critical situations without a full and competent review.
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	15	*/
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	16
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	17	/*
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	18	* An IEC 61131-3 IL and ST compiler.
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	19	*
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	20	* Based on the
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	21	* FINAL DRAFT - IEC 61131-3, 2nd Ed. (2001-12-10)
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	22	*
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	23	*/
149 05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	24
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	25	/****
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	26	* IEC 61131-3 standard function library
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	27	* generated code, do not edit by hand
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	28	*/
70 e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	29
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	30
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	31	switch(current_function_type){
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	32
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	33	/****
149 05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	34	*REAL_TO_SINT
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	35	*/
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	36	case function_real_to_sint :
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	37	{
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	38	symbol_c *last_type_symbol = NULL;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	39
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	40	{
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	41	identifier_c param_name("IN");
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	42	/* Get the value from a foo(<param_name> = <param_value>) style call */
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	43	symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
169 bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	44	symbol_c *IN_type_symbol = NULL;
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	45
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	46	/* Get the value from a foo(<param_value>) style call */
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	47	if (IN_param_value == NULL)
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	48	IN_param_value = function_call_param_iterator.next();
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	49	if (IN_param_value != NULL) {
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	50	IN_type_symbol = search_expression_type->get_type(IN_param_value);
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	51	last_type_symbol = last_type_symbol && IN_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	52	}
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	53
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	54	if(IN_type_symbol == NULL \|\| search_expression_type->is_same_type(&search_constant_type_c::real_type_name, last_type_symbol))
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	55	{
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	56
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	57
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	58	if (IN_type_symbol == NULL)
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	59	IN_type_symbol = last_type_symbol;
149 05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	60	ADD_PARAM_LIST(IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in)
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	61	symbol_c * return_type_symbol = &search_constant_type_c::sint_type_name;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	62	function_type_prefix = return_type_symbol;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	63	break;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	64
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	65	}
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	66
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	67
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	68	ERROR;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	69	}
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	70
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	71	}/function_real_to_sint/
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	72	break;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	73
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	74	/****
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	75	*REAL_TO_LINT
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	76	*/
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	77	case function_real_to_lint :
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	78	{
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	79	symbol_c *last_type_symbol = NULL;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	80
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	81	{
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	82	identifier_c param_name("IN");
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	83	/* Get the value from a foo(<param_name> = <param_value>) style call */
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	84	symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
169 bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	85	symbol_c *IN_type_symbol = NULL;
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	86
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	87	/* Get the value from a foo(<param_value>) style call */
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	88	if (IN_param_value == NULL)
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	89	IN_param_value = function_call_param_iterator.next();
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	90	if (IN_param_value != NULL) {
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	91	IN_type_symbol = search_expression_type->get_type(IN_param_value);
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	92	last_type_symbol = last_type_symbol && IN_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	93	}
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	94
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	95	if(IN_type_symbol == NULL \|\| search_expression_type->is_same_type(&search_constant_type_c::real_type_name, last_type_symbol))
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	96	{
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	97
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	98
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	99	if (IN_type_symbol == NULL)
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	100	IN_type_symbol = last_type_symbol;
149 05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	101	ADD_PARAM_LIST(IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in)
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	102	symbol_c * return_type_symbol = &search_constant_type_c::lint_type_name;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	103	function_type_prefix = return_type_symbol;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	104	break;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	105
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	106	}
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	107
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	108
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	109	ERROR;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	110	}
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	111
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	112	}/function_real_to_lint/
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	113	break;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	114
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	115	/****
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	116	*REAL_TO_DINT
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	117	*/
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	118	case function_real_to_dint :
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	119	{
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	120	symbol_c *last_type_symbol = NULL;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	121
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	122	{
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	123	identifier_c param_name("IN");
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	124	/* Get the value from a foo(<param_name> = <param_value>) style call */
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	125	symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
169 bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	126	symbol_c *IN_type_symbol = NULL;
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	127
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	128	/* Get the value from a foo(<param_value>) style call */
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	129	if (IN_param_value == NULL)
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	130	IN_param_value = function_call_param_iterator.next();
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	131	if (IN_param_value != NULL) {
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	132	IN_type_symbol = search_expression_type->get_type(IN_param_value);
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	133	last_type_symbol = last_type_symbol && IN_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	134	}
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	135
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	136	if(IN_type_symbol == NULL \|\| search_expression_type->is_same_type(&search_constant_type_c::real_type_name, last_type_symbol))
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	137	{
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	138
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	139
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	140	if (IN_type_symbol == NULL)
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	141	IN_type_symbol = last_type_symbol;
149 05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	142	ADD_PARAM_LIST(IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in)
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	143	symbol_c * return_type_symbol = &search_constant_type_c::dint_type_name;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	144	function_type_prefix = return_type_symbol;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	145	break;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	146
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	147	}
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	148
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	149
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	150	ERROR;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	151	}
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	152
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	153	}/function_real_to_dint/
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	154	break;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	155
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	156	/****
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	157	*REAL_TO_DATE
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	158	*/
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	159	case function_real_to_date :
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	160	{
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	161	symbol_c *last_type_symbol = NULL;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	162
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	163	{
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	164	identifier_c param_name("IN");
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	165	/* Get the value from a foo(<param_name> = <param_value>) style call */
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	166	symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
169 bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	167	symbol_c *IN_type_symbol = NULL;
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	168
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	169	/* Get the value from a foo(<param_value>) style call */
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	170	if (IN_param_value == NULL)
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	171	IN_param_value = function_call_param_iterator.next();
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	172	if (IN_param_value != NULL) {
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	173	IN_type_symbol = search_expression_type->get_type(IN_param_value);
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	174	last_type_symbol = last_type_symbol && IN_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	175	}
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	176
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	177	if(IN_type_symbol == NULL \|\| search_expression_type->is_same_type(&search_constant_type_c::real_type_name, last_type_symbol))
149 05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	178	{
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	179
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	180	function_name = (symbol_c*)(new pragma_c("__real_to_time"));
169 bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	181
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	182	if (IN_type_symbol == NULL)
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	183	IN_type_symbol = last_type_symbol;
149 05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	184	ADD_PARAM_LIST(IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in)
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	185	symbol_c * return_type_symbol = &search_constant_type_c::date_type_name;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	186	function_type_prefix = return_type_symbol;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	187	break;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	188
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	189	}
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	190
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	191
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	192	ERROR;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	193	}
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	194
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	195	}/function_real_to_date/
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	196	break;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	197
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	198	/****
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	199	*REAL_TO_DWORD
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	200	*/
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	201	case function_real_to_dword :
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	202	{
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	203	symbol_c *last_type_symbol = NULL;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	204
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	205	{
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	206	identifier_c param_name("IN");
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	207	/* Get the value from a foo(<param_name> = <param_value>) style call */
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	208	symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
169 bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	209	symbol_c *IN_type_symbol = NULL;
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	210
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	211	/* Get the value from a foo(<param_value>) style call */
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	212	if (IN_param_value == NULL)
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	213	IN_param_value = function_call_param_iterator.next();
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	214	if (IN_param_value != NULL) {
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	215	IN_type_symbol = search_expression_type->get_type(IN_param_value);
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	216	last_type_symbol = last_type_symbol && IN_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	217	}
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	218
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	219	if(IN_type_symbol == NULL \|\| search_expression_type->is_same_type(&search_constant_type_c::real_type_name, last_type_symbol))
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	220	{
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	221
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	222
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	223	if (IN_type_symbol == NULL)
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	224	IN_type_symbol = last_type_symbol;
149 05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	225	ADD_PARAM_LIST(IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in)
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	226	symbol_c * return_type_symbol = &search_constant_type_c::dword_type_name;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	227	function_type_prefix = return_type_symbol;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	228	break;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	229
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	230	}
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	231
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	232
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	233	ERROR;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	234	}
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	235
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	236	}/function_real_to_dword/
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	237	break;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	238
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	239	/****
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	240	*REAL_TO_DT
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	241	*/
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	242	case function_real_to_dt :
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	243	{
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	244	symbol_c *last_type_symbol = NULL;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	245
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	246	{
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	247	identifier_c param_name("IN");
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	248	/* Get the value from a foo(<param_name> = <param_value>) style call */
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	249	symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
169 bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	250	symbol_c *IN_type_symbol = NULL;
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	251
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	252	/* Get the value from a foo(<param_value>) style call */
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	253	if (IN_param_value == NULL)
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	254	IN_param_value = function_call_param_iterator.next();
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	255	if (IN_param_value != NULL) {
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	256	IN_type_symbol = search_expression_type->get_type(IN_param_value);
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	257	last_type_symbol = last_type_symbol && IN_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	258	}
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	259
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	260	if(IN_type_symbol == NULL \|\| search_expression_type->is_same_type(&search_constant_type_c::real_type_name, last_type_symbol))
149 05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	261	{
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	262
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	263	function_name = (symbol_c*)(new pragma_c("__real_to_time"));
169 bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	264
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	265	if (IN_type_symbol == NULL)
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	266	IN_type_symbol = last_type_symbol;
149 05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	267	ADD_PARAM_LIST(IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in)
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	268	symbol_c * return_type_symbol = &search_constant_type_c::dt_type_name;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	269	function_type_prefix = return_type_symbol;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	270	break;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	271
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	272	}
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	273
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	274
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	275	ERROR;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	276	}
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	277
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	278	}/function_real_to_dt/
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	279	break;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	280
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	281	/****
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	282	*REAL_TO_TOD
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	283	*/
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	284	case function_real_to_tod :
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	285	{
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	286	symbol_c *last_type_symbol = NULL;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	287
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	288	{
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	289	identifier_c param_name("IN");
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	290	/* Get the value from a foo(<param_name> = <param_value>) style call */
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	291	symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
169 bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	292	symbol_c *IN_type_symbol = NULL;
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	293
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	294	/* Get the value from a foo(<param_value>) style call */
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	295	if (IN_param_value == NULL)
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	296	IN_param_value = function_call_param_iterator.next();
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	297	if (IN_param_value != NULL) {
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	298	IN_type_symbol = search_expression_type->get_type(IN_param_value);
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	299	last_type_symbol = last_type_symbol && IN_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	300	}
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	301
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	302	if(IN_type_symbol == NULL \|\| search_expression_type->is_same_type(&search_constant_type_c::real_type_name, last_type_symbol))
149 05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	303	{
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	304
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	305	function_name = (symbol_c*)(new pragma_c("__real_to_time"));
169 bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	306
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	307	if (IN_type_symbol == NULL)
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	308	IN_type_symbol = last_type_symbol;
149 05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	309	ADD_PARAM_LIST(IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in)
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	310	symbol_c * return_type_symbol = &search_constant_type_c::tod_type_name;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	311	function_type_prefix = return_type_symbol;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	312	break;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	313
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	314	}
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	315
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	316
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	317	ERROR;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	318	}
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	319
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	320	}/function_real_to_tod/
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	321	break;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	322
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	323	/****
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	324	*REAL_TO_UDINT
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	325	*/
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	326	case function_real_to_udint :
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	327	{
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	328	symbol_c *last_type_symbol = NULL;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	329
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	330	{
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	331	identifier_c param_name("IN");
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	332	/* Get the value from a foo(<param_name> = <param_value>) style call */
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	333	symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
169 bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	334	symbol_c *IN_type_symbol = NULL;
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	335
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	336	/* Get the value from a foo(<param_value>) style call */
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	337	if (IN_param_value == NULL)
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	338	IN_param_value = function_call_param_iterator.next();
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	339	if (IN_param_value != NULL) {
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	340	IN_type_symbol = search_expression_type->get_type(IN_param_value);
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	341	last_type_symbol = last_type_symbol && IN_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	342	}
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	343
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	344	if(IN_type_symbol == NULL \|\| search_expression_type->is_same_type(&search_constant_type_c::real_type_name, last_type_symbol))
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	345	{
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	346
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	347
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	348	if (IN_type_symbol == NULL)
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	349	IN_type_symbol = last_type_symbol;
149 05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	350	ADD_PARAM_LIST(IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in)
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	351	symbol_c * return_type_symbol = &search_constant_type_c::udint_type_name;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	352	function_type_prefix = return_type_symbol;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	353	break;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	354
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	355	}
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	356
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	357
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	358	ERROR;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	359	}
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	360
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	361	}/function_real_to_udint/
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	362	break;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	363
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	364	/****
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	365	*REAL_TO_WORD
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	366	*/
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	367	case function_real_to_word :
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	368	{
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	369	symbol_c *last_type_symbol = NULL;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	370
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	371	{
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	372	identifier_c param_name("IN");
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	373	/* Get the value from a foo(<param_name> = <param_value>) style call */
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	374	symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
169 bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	375	symbol_c *IN_type_symbol = NULL;
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	376
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	377	/* Get the value from a foo(<param_value>) style call */
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	378	if (IN_param_value == NULL)
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	379	IN_param_value = function_call_param_iterator.next();
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	380	if (IN_param_value != NULL) {
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	381	IN_type_symbol = search_expression_type->get_type(IN_param_value);
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	382	last_type_symbol = last_type_symbol && IN_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	383	}
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	384
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	385	if(IN_type_symbol == NULL \|\| search_expression_type->is_same_type(&search_constant_type_c::real_type_name, last_type_symbol))
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	386	{
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	387
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	388
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	389	if (IN_type_symbol == NULL)
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	390	IN_type_symbol = last_type_symbol;
149 05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	391	ADD_PARAM_LIST(IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in)
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	392	symbol_c * return_type_symbol = &search_constant_type_c::word_type_name;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	393	function_type_prefix = return_type_symbol;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	394	break;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	395
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	396	}
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	397
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	398
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	399	ERROR;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	400	}
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	401
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	402	}/function_real_to_word/
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	403	break;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	404
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	405	/****
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	406	*REAL_TO_STRING
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	407	*/
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	408	case function_real_to_string :
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	409	{
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	410	symbol_c *last_type_symbol = NULL;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	411
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	412	{
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	413	identifier_c param_name("IN");
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	414	/* Get the value from a foo(<param_name> = <param_value>) style call */
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	415	symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
169 bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	416	symbol_c *IN_type_symbol = NULL;
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	417
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	418	/* Get the value from a foo(<param_value>) style call */
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	419	if (IN_param_value == NULL)
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	420	IN_param_value = function_call_param_iterator.next();
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	421	if (IN_param_value != NULL) {
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	422	IN_type_symbol = search_expression_type->get_type(IN_param_value);
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	423	last_type_symbol = last_type_symbol && IN_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	424	}
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	425
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	426	if(IN_type_symbol == NULL \|\| search_expression_type->is_same_type(&search_constant_type_c::real_type_name, last_type_symbol))
149 05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	427	{
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	428
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	429	function_name = (symbol_c*)(new pragma_c("__real_to_string"));
169 bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	430
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	431	if (IN_type_symbol == NULL)
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	432	IN_type_symbol = last_type_symbol;
149 05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	433	ADD_PARAM_LIST(IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in)
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	434	symbol_c * return_type_symbol = &search_constant_type_c::string_type_name;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	435	function_type_prefix = return_type_symbol;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	436	break;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	437
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	438	}
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	439
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	440
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	441	ERROR;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	442	}
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	443
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	444	}/function_real_to_string/
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	445	break;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	446
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	447	/****
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	448	*REAL_TO_LWORD
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	449	*/
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	450	case function_real_to_lword :
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	451	{
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	452	symbol_c *last_type_symbol = NULL;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	453
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	454	{
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	455	identifier_c param_name("IN");
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	456	/* Get the value from a foo(<param_name> = <param_value>) style call */
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	457	symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
169 bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	458	symbol_c *IN_type_symbol = NULL;
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	459
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	460	/* Get the value from a foo(<param_value>) style call */
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	461	if (IN_param_value == NULL)
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	462	IN_param_value = function_call_param_iterator.next();
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	463	if (IN_param_value != NULL) {
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	464	IN_type_symbol = search_expression_type->get_type(IN_param_value);
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	465	last_type_symbol = last_type_symbol && IN_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	466	}
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	467
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	468	if(IN_type_symbol == NULL \|\| search_expression_type->is_same_type(&search_constant_type_c::real_type_name, last_type_symbol))
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	469	{
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	470
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	471
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	472	if (IN_type_symbol == NULL)
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	473	IN_type_symbol = last_type_symbol;
149 05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	474	ADD_PARAM_LIST(IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in)
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	475	symbol_c * return_type_symbol = &search_constant_type_c::lword_type_name;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	476	function_type_prefix = return_type_symbol;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	477	break;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	478
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	479	}
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	480
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	481
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	482	ERROR;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	483	}
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	484
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	485	}/function_real_to_lword/
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	486	break;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	487
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	488	/****
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	489	*REAL_TO_UINT
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	490	*/
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	491	case function_real_to_uint :
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	492	{
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	493	symbol_c *last_type_symbol = NULL;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	494
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	495	{
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	496	identifier_c param_name("IN");
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	497	/* Get the value from a foo(<param_name> = <param_value>) style call */
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	498	symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
169 bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	499	symbol_c *IN_type_symbol = NULL;
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	500
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	501	/* Get the value from a foo(<param_value>) style call */
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	502	if (IN_param_value == NULL)
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	503	IN_param_value = function_call_param_iterator.next();
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	504	if (IN_param_value != NULL) {
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	505	IN_type_symbol = search_expression_type->get_type(IN_param_value);
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	506	last_type_symbol = last_type_symbol && IN_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	507	}
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	508
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	509	if(IN_type_symbol == NULL \|\| search_expression_type->is_same_type(&search_constant_type_c::real_type_name, last_type_symbol))
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	510	{
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	511
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	512
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	513	if (IN_type_symbol == NULL)
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	514	IN_type_symbol = last_type_symbol;
149 05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	515	ADD_PARAM_LIST(IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in)
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	516	symbol_c * return_type_symbol = &search_constant_type_c::uint_type_name;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	517	function_type_prefix = return_type_symbol;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	518	break;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	519
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	520	}
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	521
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	522
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	523	ERROR;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	524	}
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	525
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	526	}/function_real_to_uint/
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	527	break;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	528
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	529	/****
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	530	*REAL_TO_LREAL
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	531	*/
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	532	case function_real_to_lreal :
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	533	{
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	534	symbol_c *last_type_symbol = NULL;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	535
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	536	{
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	537	identifier_c param_name("IN");
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	538	/* Get the value from a foo(<param_name> = <param_value>) style call */
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	539	symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
169 bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	540	symbol_c *IN_type_symbol = NULL;
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	541
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	542	/* Get the value from a foo(<param_value>) style call */
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	543	if (IN_param_value == NULL)
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	544	IN_param_value = function_call_param_iterator.next();
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	545	if (IN_param_value != NULL) {
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	546	IN_type_symbol = search_expression_type->get_type(IN_param_value);
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	547	last_type_symbol = last_type_symbol && IN_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	548	}
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	549
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	550	if(IN_type_symbol == NULL \|\| search_expression_type->is_same_type(&search_constant_type_c::real_type_name, last_type_symbol))
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	551	{
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	552
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	553
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	554	if (IN_type_symbol == NULL)
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	555	IN_type_symbol = last_type_symbol;
149 05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	556	ADD_PARAM_LIST(IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in)
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	557	symbol_c * return_type_symbol = &search_constant_type_c::lreal_type_name;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	558	function_type_prefix = return_type_symbol;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	559	break;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	560
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	561	}
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	562
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	563
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	564	ERROR;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	565	}
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	566
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	567	}/function_real_to_lreal/
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	568	break;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	569
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	570	/****
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	571	*REAL_TO_BYTE
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	572	*/
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	573	case function_real_to_byte :
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	574	{
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	575	symbol_c *last_type_symbol = NULL;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	576
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	577	{
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	578	identifier_c param_name("IN");
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	579	/* Get the value from a foo(<param_name> = <param_value>) style call */
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	580	symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
169 bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	581	symbol_c *IN_type_symbol = NULL;
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	582
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	583	/* Get the value from a foo(<param_value>) style call */
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	584	if (IN_param_value == NULL)
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	585	IN_param_value = function_call_param_iterator.next();
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	586	if (IN_param_value != NULL) {
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	587	IN_type_symbol = search_expression_type->get_type(IN_param_value);
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	588	last_type_symbol = last_type_symbol && IN_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	589	}
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	590
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	591	if(IN_type_symbol == NULL \|\| search_expression_type->is_same_type(&search_constant_type_c::real_type_name, last_type_symbol))
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	592	{
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	593
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	594
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	595	if (IN_type_symbol == NULL)
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	596	IN_type_symbol = last_type_symbol;
149 05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	597	ADD_PARAM_LIST(IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in)
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	598	symbol_c * return_type_symbol = &search_constant_type_c::byte_type_name;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	599	function_type_prefix = return_type_symbol;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	600	break;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	601
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	602	}
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	603
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	604
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	605	ERROR;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	606	}
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	607
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	608	}/function_real_to_byte/
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	609	break;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	610
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	611	/****
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	612	*REAL_TO_USINT
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	613	*/
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	614	case function_real_to_usint :
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	615	{
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	616	symbol_c *last_type_symbol = NULL;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	617
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	618	{
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	619	identifier_c param_name("IN");
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	620	/* Get the value from a foo(<param_name> = <param_value>) style call */
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	621	symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
169 bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	622	symbol_c *IN_type_symbol = NULL;
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	623
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	624	/* Get the value from a foo(<param_value>) style call */
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	625	if (IN_param_value == NULL)
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	626	IN_param_value = function_call_param_iterator.next();
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	627	if (IN_param_value != NULL) {
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	628	IN_type_symbol = search_expression_type->get_type(IN_param_value);
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	629	last_type_symbol = last_type_symbol && IN_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	630	}
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	631
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	632	if(IN_type_symbol == NULL \|\| search_expression_type->is_same_type(&search_constant_type_c::real_type_name, last_type_symbol))
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	633	{
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	634
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	635
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	636	if (IN_type_symbol == NULL)
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	637	IN_type_symbol = last_type_symbol;
149 05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	638	ADD_PARAM_LIST(IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in)
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	639	symbol_c * return_type_symbol = &search_constant_type_c::usint_type_name;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	640	function_type_prefix = return_type_symbol;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	641	break;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	642
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	643	}
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	644
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	645
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	646	ERROR;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	647	}
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	648
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	649	}/function_real_to_usint/
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	650	break;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	651
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	652	/****
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	653	*REAL_TO_ULINT
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	654	*/
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	655	case function_real_to_ulint :
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	656	{
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	657	symbol_c *last_type_symbol = NULL;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	658
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	659	{
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	660	identifier_c param_name("IN");
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	661	/* Get the value from a foo(<param_name> = <param_value>) style call */
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	662	symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
169 bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	663	symbol_c *IN_type_symbol = NULL;
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	664
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	665	/* Get the value from a foo(<param_value>) style call */
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	666	if (IN_param_value == NULL)
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	667	IN_param_value = function_call_param_iterator.next();
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	668	if (IN_param_value != NULL) {
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	669	IN_type_symbol = search_expression_type->get_type(IN_param_value);
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	670	last_type_symbol = last_type_symbol && IN_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	671	}
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	672
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	673	if(IN_type_symbol == NULL \|\| search_expression_type->is_same_type(&search_constant_type_c::real_type_name, last_type_symbol))
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	674	{
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	675
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	676
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	677	if (IN_type_symbol == NULL)
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	678	IN_type_symbol = last_type_symbol;
149 05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	679	ADD_PARAM_LIST(IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in)
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	680	symbol_c * return_type_symbol = &search_constant_type_c::ulint_type_name;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	681	function_type_prefix = return_type_symbol;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	682	break;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	683
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	684	}
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	685
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	686
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	687	ERROR;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	688	}
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	689
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	690	}/function_real_to_ulint/
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	691	break;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	692
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	693	/****
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	694	*REAL_TO_BOOL
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	695	*/
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	696	case function_real_to_bool :
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	697	{
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	698	symbol_c *last_type_symbol = NULL;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	699
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	700	{
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	701	identifier_c param_name("IN");
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	702	/* Get the value from a foo(<param_name> = <param_value>) style call */
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	703	symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
169 bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	704	symbol_c *IN_type_symbol = NULL;
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	705
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	706	/* Get the value from a foo(<param_value>) style call */
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	707	if (IN_param_value == NULL)
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	708	IN_param_value = function_call_param_iterator.next();
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	709	if (IN_param_value != NULL) {
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	710	IN_type_symbol = search_expression_type->get_type(IN_param_value);
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	711	last_type_symbol = last_type_symbol && IN_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	712	}
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	713
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	714	if(IN_type_symbol == NULL \|\| search_expression_type->is_same_type(&search_constant_type_c::real_type_name, last_type_symbol))
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	715	{
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	716
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	717
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	718	if (IN_type_symbol == NULL)
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	719	IN_type_symbol = last_type_symbol;
149 05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	720	ADD_PARAM_LIST(IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in)
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	721	symbol_c * return_type_symbol = &search_constant_type_c::bool_type_name;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	722	function_type_prefix = return_type_symbol;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	723	break;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	724
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	725	}
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	726
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	727
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	728	ERROR;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	729	}
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	730
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	731	}/function_real_to_bool/
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	732	break;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	733
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	734	/****
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	735	*REAL_TO_TIME
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	736	*/
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	737	case function_real_to_time :
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	738	{
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	739	symbol_c *last_type_symbol = NULL;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	740
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	741	{
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	742	identifier_c param_name("IN");
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	743	/* Get the value from a foo(<param_name> = <param_value>) style call */
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	744	symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
169 bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	745	symbol_c *IN_type_symbol = NULL;
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	746
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	747	/* Get the value from a foo(<param_value>) style call */
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	748	if (IN_param_value == NULL)
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	749	IN_param_value = function_call_param_iterator.next();
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	750	if (IN_param_value != NULL) {
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	751	IN_type_symbol = search_expression_type->get_type(IN_param_value);
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	752	last_type_symbol = last_type_symbol && IN_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	753	}
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	754
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	755	if(IN_type_symbol == NULL \|\| search_expression_type->is_same_type(&search_constant_type_c::real_type_name, last_type_symbol))
149 05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	756	{
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	757
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	758	function_name = (symbol_c*)(new pragma_c("__real_to_time"));
169 bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	759
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	760	if (IN_type_symbol == NULL)
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	761	IN_type_symbol = last_type_symbol;
149 05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	762	ADD_PARAM_LIST(IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in)
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	763	symbol_c * return_type_symbol = &search_constant_type_c::time_type_name;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	764	function_type_prefix = return_type_symbol;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	765	break;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	766
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	767	}
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	768
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	769
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	770	ERROR;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	771	}
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	772
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	773	}/function_real_to_time/
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	774	break;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	775
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	776	/****
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	777	*REAL_TO_INT
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	778	*/
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	779	case function_real_to_int :
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	780	{
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	781	symbol_c *last_type_symbol = NULL;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	782
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	783	{
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	784	identifier_c param_name("IN");
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	785	/* Get the value from a foo(<param_name> = <param_value>) style call */
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	786	symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
169 bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	787	symbol_c *IN_type_symbol = NULL;
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	788
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	789	/* Get the value from a foo(<param_value>) style call */
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	790	if (IN_param_value == NULL)
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	791	IN_param_value = function_call_param_iterator.next();
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	792	if (IN_param_value != NULL) {
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	793	IN_type_symbol = search_expression_type->get_type(IN_param_value);
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	794	last_type_symbol = last_type_symbol && IN_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	795	}
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	796
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	797	if(IN_type_symbol == NULL \|\| search_expression_type->is_same_type(&search_constant_type_c::real_type_name, last_type_symbol))
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	798	{
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	799
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	800
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	801	if (IN_type_symbol == NULL)
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	802	IN_type_symbol = last_type_symbol;
149 05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	803	ADD_PARAM_LIST(IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in)
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	804	symbol_c * return_type_symbol = &search_constant_type_c::int_type_name;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	805	function_type_prefix = return_type_symbol;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	806	break;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	807
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	808	}
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	809
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	810
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	811	ERROR;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	812	}
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	813
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	814	}/function_real_to_int/
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	815	break;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	816
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	817	/****
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	818	*SINT_TO_REAL
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	819	*/
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	820	case function_sint_to_real :
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	821	{
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	822	symbol_c *last_type_symbol = NULL;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	823
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	824	{
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	825	identifier_c param_name("IN");
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	826	/* Get the value from a foo(<param_name> = <param_value>) style call */
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	827	symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
169 bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	828	symbol_c *IN_type_symbol = NULL;
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	829
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	830	/* Get the value from a foo(<param_value>) style call */
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	831	if (IN_param_value == NULL)
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	832	IN_param_value = function_call_param_iterator.next();
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	833	if (IN_param_value != NULL) {
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	834	IN_type_symbol = search_expression_type->get_type(IN_param_value);
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	835	last_type_symbol = last_type_symbol && IN_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	836	}
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	837
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	838	if(IN_type_symbol == NULL \|\| search_expression_type->is_same_type(&search_constant_type_c::sint_type_name, last_type_symbol))
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	839	{
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	840
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	841
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	842	if (IN_type_symbol == NULL)
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	843	IN_type_symbol = last_type_symbol;
149 05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	844	ADD_PARAM_LIST(IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in)
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	845	symbol_c * return_type_symbol = &search_constant_type_c::real_type_name;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	846	function_type_prefix = return_type_symbol;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	847	break;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	848
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	849	}
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	850
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	851
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	852	ERROR;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	853	}
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	854
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	855	}/function_sint_to_real/
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	856	break;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	857
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	858	/****
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	859	*SINT_TO_LINT
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	860	*/
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	861	case function_sint_to_lint :
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	862	{
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	863	symbol_c *last_type_symbol = NULL;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	864
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	865	{
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	866	identifier_c param_name("IN");
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	867	/* Get the value from a foo(<param_name> = <param_value>) style call */
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	868	symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
169 bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	869	symbol_c *IN_type_symbol = NULL;
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	870
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	871	/* Get the value from a foo(<param_value>) style call */
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	872	if (IN_param_value == NULL)
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	873	IN_param_value = function_call_param_iterator.next();
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	874	if (IN_param_value != NULL) {
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	875	IN_type_symbol = search_expression_type->get_type(IN_param_value);
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	876	last_type_symbol = last_type_symbol && IN_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	877	}
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	878
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	879	if(IN_type_symbol == NULL \|\| search_expression_type->is_same_type(&search_constant_type_c::sint_type_name, last_type_symbol))
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	880	{
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	881
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	882
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	883	if (IN_type_symbol == NULL)
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	884	IN_type_symbol = last_type_symbol;
149 05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	885	ADD_PARAM_LIST(IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in)
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	886	symbol_c * return_type_symbol = &search_constant_type_c::lint_type_name;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	887	function_type_prefix = return_type_symbol;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	888	break;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	889
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	890	}
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	891
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	892
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	893	ERROR;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	894	}
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	895
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	896	}/function_sint_to_lint/
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	897	break;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	898
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	899	/****
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	900	*SINT_TO_DINT
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	901	*/
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	902	case function_sint_to_dint :
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	903	{
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	904	symbol_c *last_type_symbol = NULL;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	905
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	906	{
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	907	identifier_c param_name("IN");
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	908	/* Get the value from a foo(<param_name> = <param_value>) style call */
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	909	symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
169 bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	910	symbol_c *IN_type_symbol = NULL;
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	911
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	912	/* Get the value from a foo(<param_value>) style call */
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	913	if (IN_param_value == NULL)
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	914	IN_param_value = function_call_param_iterator.next();
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	915	if (IN_param_value != NULL) {
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	916	IN_type_symbol = search_expression_type->get_type(IN_param_value);
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	917	last_type_symbol = last_type_symbol && IN_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	918	}
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	919
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	920	if(IN_type_symbol == NULL \|\| search_expression_type->is_same_type(&search_constant_type_c::sint_type_name, last_type_symbol))
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	921	{
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	922
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	923
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	924	if (IN_type_symbol == NULL)
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	925	IN_type_symbol = last_type_symbol;
149 05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	926	ADD_PARAM_LIST(IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in)
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	927	symbol_c * return_type_symbol = &search_constant_type_c::dint_type_name;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	928	function_type_prefix = return_type_symbol;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	929	break;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	930
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	931	}
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	932
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	933
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	934	ERROR;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	935	}
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	936
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	937	}/function_sint_to_dint/
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	938	break;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	939
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	940	/****
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	941	*SINT_TO_DATE
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	942	*/
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	943	case function_sint_to_date :
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	944	{
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	945	symbol_c *last_type_symbol = NULL;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	946
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	947	{
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	948	identifier_c param_name("IN");
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	949	/* Get the value from a foo(<param_name> = <param_value>) style call */
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	950	symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
169 bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	951	symbol_c *IN_type_symbol = NULL;
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	952
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	953	/* Get the value from a foo(<param_value>) style call */
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	954	if (IN_param_value == NULL)
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	955	IN_param_value = function_call_param_iterator.next();
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	956	if (IN_param_value != NULL) {
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	957	IN_type_symbol = search_expression_type->get_type(IN_param_value);
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	958	last_type_symbol = last_type_symbol && IN_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	959	}
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	960
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	961	if(IN_type_symbol == NULL \|\| search_expression_type->is_same_type(&search_constant_type_c::sint_type_name, last_type_symbol))
149 05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	962	{
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	963
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	964	function_name = (symbol_c*)(new pragma_c("__int_to_time"));
169 bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	965
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	966	if (IN_type_symbol == NULL)
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	967	IN_type_symbol = last_type_symbol;
149 05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	968	ADD_PARAM_LIST(IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in)
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	969	symbol_c * return_type_symbol = &search_constant_type_c::date_type_name;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	970	function_type_prefix = return_type_symbol;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	971	break;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	972
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	973	}
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	974
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	975
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	976	ERROR;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	977	}
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	978
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	979	}/function_sint_to_date/
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	980	break;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	981
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	982	/****
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	983	*SINT_TO_DWORD
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	984	*/
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	985	case function_sint_to_dword :
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	986	{
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	987	symbol_c *last_type_symbol = NULL;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	988
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	989	{
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	990	identifier_c param_name("IN");
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	991	/* Get the value from a foo(<param_name> = <param_value>) style call */
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	992	symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
169 bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	993	symbol_c *IN_type_symbol = NULL;
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	994
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	995	/* Get the value from a foo(<param_value>) style call */
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	996	if (IN_param_value == NULL)
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	997	IN_param_value = function_call_param_iterator.next();
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	998	if (IN_param_value != NULL) {
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	999	IN_type_symbol = search_expression_type->get_type(IN_param_value);
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	1000	last_type_symbol = last_type_symbol && IN_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	1001	}
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	1002
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	1003	if(IN_type_symbol == NULL \|\| search_expression_type->is_same_type(&search_constant_type_c::sint_type_name, last_type_symbol))
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	1004	{
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	1005
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	1006
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	1007	if (IN_type_symbol == NULL)
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	1008	IN_type_symbol = last_type_symbol;
149 05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	1009	ADD_PARAM_LIST(IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in)
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	1010	symbol_c * return_type_symbol = &search_constant_type_c::dword_type_name;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	1011	function_type_prefix = return_type_symbol;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	1012	break;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	1013
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	1014	}
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	1015
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	1016
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	1017	ERROR;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	1018	}
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	1019
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	1020	}/function_sint_to_dword/
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	1021	break;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	1022
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	1023	/****
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	1024	*SINT_TO_DT
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	1025	*/
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	1026	case function_sint_to_dt :
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	1027	{
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	1028	symbol_c *last_type_symbol = NULL;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	1029
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	1030	{
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	1031	identifier_c param_name("IN");
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	1032	/* Get the value from a foo(<param_name> = <param_value>) style call */
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	1033	symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
169 bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	1034	symbol_c *IN_type_symbol = NULL;
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	1035
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	1036	/* Get the value from a foo(<param_value>) style call */
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	1037	if (IN_param_value == NULL)
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	1038	IN_param_value = function_call_param_iterator.next();
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	1039	if (IN_param_value != NULL) {
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	1040	IN_type_symbol = search_expression_type->get_type(IN_param_value);
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	1041	last_type_symbol = last_type_symbol && IN_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	1042	}
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	1043
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	1044	if(IN_type_symbol == NULL \|\| search_expression_type->is_same_type(&search_constant_type_c::sint_type_name, last_type_symbol))
149 05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	1045	{
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	1046
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	1047	function_name = (symbol_c*)(new pragma_c("__int_to_time"));
169 bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	1048
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	1049	if (IN_type_symbol == NULL)
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	1050	IN_type_symbol = last_type_symbol;
149 05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	1051	ADD_PARAM_LIST(IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in)
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	1052	symbol_c * return_type_symbol = &search_constant_type_c::dt_type_name;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	1053	function_type_prefix = return_type_symbol;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	1054	break;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	1055
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	1056	}
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	1057
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	1058
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	1059	ERROR;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	1060	}
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	1061
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	1062	}/function_sint_to_dt/
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	1063	break;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	1064
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	1065	/****
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	1066	*SINT_TO_TOD
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	1067	*/
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	1068	case function_sint_to_tod :
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	1069	{
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	1070	symbol_c *last_type_symbol = NULL;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	1071
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	1072	{
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	1073	identifier_c param_name("IN");
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	1074	/* Get the value from a foo(<param_name> = <param_value>) style call */
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	1075	symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
169 bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	1076	symbol_c *IN_type_symbol = NULL;
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	1077
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	1078	/* Get the value from a foo(<param_value>) style call */
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	1079	if (IN_param_value == NULL)
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	1080	IN_param_value = function_call_param_iterator.next();
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	1081	if (IN_param_value != NULL) {
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	1082	IN_type_symbol = search_expression_type->get_type(IN_param_value);
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	1083	last_type_symbol = last_type_symbol && IN_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	1084	}
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	1085
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	1086	if(IN_type_symbol == NULL \|\| search_expression_type->is_same_type(&search_constant_type_c::sint_type_name, last_type_symbol))
149 05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	1087	{
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	1088
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	1089	function_name = (symbol_c*)(new pragma_c("__int_to_time"));
169 bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	1090
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	1091	if (IN_type_symbol == NULL)
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	1092	IN_type_symbol = last_type_symbol;
149 05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	1093	ADD_PARAM_LIST(IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in)
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	1094	symbol_c * return_type_symbol = &search_constant_type_c::tod_type_name;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	1095	function_type_prefix = return_type_symbol;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	1096	break;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	1097
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	1098	}
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	1099
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	1100
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	1101	ERROR;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	1102	}
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	1103
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	1104	}/function_sint_to_tod/
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	1105	break;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	1106
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	1107	/****
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	1108	*SINT_TO_UDINT
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	1109	*/
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	1110	case function_sint_to_udint :
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	1111	{
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	1112	symbol_c *last_type_symbol = NULL;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	1113
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	1114	{
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	1115	identifier_c param_name("IN");
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	1116	/* Get the value from a foo(<param_name> = <param_value>) style call */
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	1117	symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
169 bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	1118	symbol_c *IN_type_symbol = NULL;
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	1119
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	1120	/* Get the value from a foo(<param_value>) style call */
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	1121	if (IN_param_value == NULL)
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	1122	IN_param_value = function_call_param_iterator.next();
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	1123	if (IN_param_value != NULL) {
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	1124	IN_type_symbol = search_expression_type->get_type(IN_param_value);
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	1125	last_type_symbol = last_type_symbol && IN_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	1126	}
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	1127
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	1128	if(IN_type_symbol == NULL \|\| search_expression_type->is_same_type(&search_constant_type_c::sint_type_name, last_type_symbol))
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	1129	{
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	1130
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	1131
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	1132	if (IN_type_symbol == NULL)
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	1133	IN_type_symbol = last_type_symbol;
149 05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	1134	ADD_PARAM_LIST(IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in)
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	1135	symbol_c * return_type_symbol = &search_constant_type_c::udint_type_name;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	1136	function_type_prefix = return_type_symbol;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	1137	break;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	1138
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	1139	}
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	1140
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	1141
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	1142	ERROR;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	1143	}
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	1144
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	1145	}/function_sint_to_udint/
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	1146	break;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	1147
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	1148	/****
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	1149	*SINT_TO_WORD
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	1150	*/
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	1151	case function_sint_to_word :
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	1152	{
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	1153	symbol_c *last_type_symbol = NULL;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	1154
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	1155	{
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	1156	identifier_c param_name("IN");
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	1157	/* Get the value from a foo(<param_name> = <param_value>) style call */
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	1158	symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
169 bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	1159	symbol_c *IN_type_symbol = NULL;
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	1160
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	1161	/* Get the value from a foo(<param_value>) style call */
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	1162	if (IN_param_value == NULL)
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	1163	IN_param_value = function_call_param_iterator.next();
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	1164	if (IN_param_value != NULL) {
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	1165	IN_type_symbol = search_expression_type->get_type(IN_param_value);
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	1166	last_type_symbol = last_type_symbol && IN_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	1167	}
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	1168
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	1169	if(IN_type_symbol == NULL \|\| search_expression_type->is_same_type(&search_constant_type_c::sint_type_name, last_type_symbol))
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	1170	{
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	1171
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	1172
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	1173	if (IN_type_symbol == NULL)
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	1174	IN_type_symbol = last_type_symbol;
149 05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	1175	ADD_PARAM_LIST(IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in)
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	1176	symbol_c * return_type_symbol = &search_constant_type_c::word_type_name;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	1177	function_type_prefix = return_type_symbol;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	1178	break;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	1179
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	1180	}
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	1181
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	1182
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	1183	ERROR;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	1184	}
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	1185
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	1186	}/function_sint_to_word/
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	1187	break;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	1188
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	1189	/****
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	1190	*SINT_TO_STRING
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	1191	*/
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	1192	case function_sint_to_string :
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	1193	{
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	1194	symbol_c *last_type_symbol = NULL;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	1195
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	1196	{
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	1197	identifier_c param_name("IN");
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	1198	/* Get the value from a foo(<param_name> = <param_value>) style call */
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	1199	symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
169 bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	1200	symbol_c *IN_type_symbol = NULL;
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	1201
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	1202	/* Get the value from a foo(<param_value>) style call */
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	1203	if (IN_param_value == NULL)
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	1204	IN_param_value = function_call_param_iterator.next();
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	1205	if (IN_param_value != NULL) {
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	1206	IN_type_symbol = search_expression_type->get_type(IN_param_value);
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	1207	last_type_symbol = last_type_symbol && IN_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	1208	}
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	1209
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	1210	if(IN_type_symbol == NULL \|\| search_expression_type->is_same_type(&search_constant_type_c::sint_type_name, last_type_symbol))
149 05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	1211	{
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	1212
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	1213	function_name = (symbol_c*)(new pragma_c("__sint_to_string"));
169 bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	1214
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	1215	if (IN_type_symbol == NULL)
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	1216	IN_type_symbol = last_type_symbol;
149 05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	1217	ADD_PARAM_LIST(IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in)
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	1218	symbol_c * return_type_symbol = &search_constant_type_c::string_type_name;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	1219	function_type_prefix = return_type_symbol;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	1220	break;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	1221
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	1222	}
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	1223
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	1224
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	1225	ERROR;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	1226	}
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	1227
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	1228	}/function_sint_to_string/
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	1229	break;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	1230
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	1231	/****
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	1232	*SINT_TO_LWORD
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	1233	*/
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	1234	case function_sint_to_lword :
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	1235	{
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	1236	symbol_c *last_type_symbol = NULL;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	1237
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	1238	{
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	1239	identifier_c param_name("IN");
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	1240	/* Get the value from a foo(<param_name> = <param_value>) style call */
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	1241	symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
169 bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	1242	symbol_c *IN_type_symbol = NULL;
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	1243
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	1244	/* Get the value from a foo(<param_value>) style call */
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	1245	if (IN_param_value == NULL)
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	1246	IN_param_value = function_call_param_iterator.next();
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	1247	if (IN_param_value != NULL) {
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	1248	IN_type_symbol = search_expression_type->get_type(IN_param_value);
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	1249	last_type_symbol = last_type_symbol && IN_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	1250	}
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	1251
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	1252	if(IN_type_symbol == NULL \|\| search_expression_type->is_same_type(&search_constant_type_c::sint_type_name, last_type_symbol))
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	1253	{
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	1254
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	1255
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	1256	if (IN_type_symbol == NULL)
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	1257	IN_type_symbol = last_type_symbol;
149 05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	1258	ADD_PARAM_LIST(IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in)
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	1259	symbol_c * return_type_symbol = &search_constant_type_c::lword_type_name;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	1260	function_type_prefix = return_type_symbol;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	1261	break;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	1262
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	1263	}
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	1264
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	1265
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	1266	ERROR;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	1267	}
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	1268
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	1269	}/function_sint_to_lword/
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	1270	break;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	1271
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	1272	/****
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	1273	*SINT_TO_UINT
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	1274	*/
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	1275	case function_sint_to_uint :
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	1276	{
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	1277	symbol_c *last_type_symbol = NULL;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	1278
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	1279	{
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	1280	identifier_c param_name("IN");
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	1281	/* Get the value from a foo(<param_name> = <param_value>) style call */
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	1282	symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
169 bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	1283	symbol_c *IN_type_symbol = NULL;
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	1284
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	1285	/* Get the value from a foo(<param_value>) style call */
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	1286	if (IN_param_value == NULL)
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	1287	IN_param_value = function_call_param_iterator.next();
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	1288	if (IN_param_value != NULL) {
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	1289	IN_type_symbol = search_expression_type->get_type(IN_param_value);
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	1290	last_type_symbol = last_type_symbol && IN_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	1291	}
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	1292
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	1293	if(IN_type_symbol == NULL \|\| search_expression_type->is_same_type(&search_constant_type_c::sint_type_name, last_type_symbol))
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	1294	{
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	1295
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	1296
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	1297	if (IN_type_symbol == NULL)
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	1298	IN_type_symbol = last_type_symbol;
149 05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	1299	ADD_PARAM_LIST(IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in)
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	1300	symbol_c * return_type_symbol = &search_constant_type_c::uint_type_name;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	1301	function_type_prefix = return_type_symbol;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	1302	break;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	1303
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	1304	}
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	1305
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	1306
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	1307	ERROR;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	1308	}
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	1309
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	1310	}/function_sint_to_uint/
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	1311	break;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	1312
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	1313	/****
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	1314	*SINT_TO_LREAL
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	1315	*/
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	1316	case function_sint_to_lreal :
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	1317	{
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	1318	symbol_c *last_type_symbol = NULL;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	1319
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	1320	{
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	1321	identifier_c param_name("IN");
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	1322	/* Get the value from a foo(<param_name> = <param_value>) style call */
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	1323	symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
169 bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	1324	symbol_c *IN_type_symbol = NULL;
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	1325
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	1326	/* Get the value from a foo(<param_value>) style call */
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	1327	if (IN_param_value == NULL)
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	1328	IN_param_value = function_call_param_iterator.next();
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	1329	if (IN_param_value != NULL) {
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	1330	IN_type_symbol = search_expression_type->get_type(IN_param_value);
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	1331	last_type_symbol = last_type_symbol && IN_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	1332	}
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	1333
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	1334	if(IN_type_symbol == NULL \|\| search_expression_type->is_same_type(&search_constant_type_c::sint_type_name, last_type_symbol))
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	1335	{
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	1336
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	1337
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	1338	if (IN_type_symbol == NULL)
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	1339	IN_type_symbol = last_type_symbol;
149 05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	1340	ADD_PARAM_LIST(IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in)
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	1341	symbol_c * return_type_symbol = &search_constant_type_c::lreal_type_name;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	1342	function_type_prefix = return_type_symbol;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	1343	break;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	1344
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	1345	}
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	1346
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	1347
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	1348	ERROR;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	1349	}
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	1350
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	1351	}/function_sint_to_lreal/
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	1352	break;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	1353
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	1354	/****
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	1355	*SINT_TO_BYTE
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	1356	*/
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	1357	case function_sint_to_byte :
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	1358	{
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	1359	symbol_c *last_type_symbol = NULL;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	1360
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	1361	{
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	1362	identifier_c param_name("IN");
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	1363	/* Get the value from a foo(<param_name> = <param_value>) style call */
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	1364	symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
169 bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	1365	symbol_c *IN_type_symbol = NULL;
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	1366
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	1367	/* Get the value from a foo(<param_value>) style call */
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	1368	if (IN_param_value == NULL)
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	1369	IN_param_value = function_call_param_iterator.next();
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	1370	if (IN_param_value != NULL) {
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	1371	IN_type_symbol = search_expression_type->get_type(IN_param_value);
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	1372	last_type_symbol = last_type_symbol && IN_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	1373	}
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	1374
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	1375	if(IN_type_symbol == NULL \|\| search_expression_type->is_same_type(&search_constant_type_c::sint_type_name, last_type_symbol))
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	1376	{
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	1377
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	1378
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	1379	if (IN_type_symbol == NULL)
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	1380	IN_type_symbol = last_type_symbol;
149 05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	1381	ADD_PARAM_LIST(IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in)
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	1382	symbol_c * return_type_symbol = &search_constant_type_c::byte_type_name;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	1383	function_type_prefix = return_type_symbol;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	1384	break;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	1385
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	1386	}
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	1387
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	1388
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	1389	ERROR;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	1390	}
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	1391
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	1392	}/function_sint_to_byte/
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	1393	break;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	1394
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	1395	/****
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	1396	*SINT_TO_USINT
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	1397	*/
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	1398	case function_sint_to_usint :
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	1399	{
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	1400	symbol_c *last_type_symbol = NULL;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	1401
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	1402	{
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	1403	identifier_c param_name("IN");
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	1404	/* Get the value from a foo(<param_name> = <param_value>) style call */
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	1405	symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
169 bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	1406	symbol_c *IN_type_symbol = NULL;
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	1407
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	1408	/* Get the value from a foo(<param_value>) style call */
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	1409	if (IN_param_value == NULL)
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	1410	IN_param_value = function_call_param_iterator.next();
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	1411	if (IN_param_value != NULL) {
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	1412	IN_type_symbol = search_expression_type->get_type(IN_param_value);
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	1413	last_type_symbol = last_type_symbol && IN_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	1414	}
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	1415
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	1416	if(IN_type_symbol == NULL \|\| search_expression_type->is_same_type(&search_constant_type_c::sint_type_name, last_type_symbol))
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	1417	{
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	1418
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	1419
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	1420	if (IN_type_symbol == NULL)
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	1421	IN_type_symbol = last_type_symbol;
149 05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	1422	ADD_PARAM_LIST(IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in)
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	1423	symbol_c * return_type_symbol = &search_constant_type_c::usint_type_name;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	1424	function_type_prefix = return_type_symbol;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	1425	break;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	1426
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	1427	}
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	1428
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	1429
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	1430	ERROR;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	1431	}
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	1432
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	1433	}/function_sint_to_usint/
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	1434	break;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	1435
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	1436	/****
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	1437	*SINT_TO_ULINT
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	1438	*/
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	1439	case function_sint_to_ulint :
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	1440	{
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	1441	symbol_c *last_type_symbol = NULL;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	1442
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	1443	{
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	1444	identifier_c param_name("IN");
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	1445	/* Get the value from a foo(<param_name> = <param_value>) style call */
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	1446	symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
169 bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	1447	symbol_c *IN_type_symbol = NULL;
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	1448
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	1449	/* Get the value from a foo(<param_value>) style call */
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	1450	if (IN_param_value == NULL)
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	1451	IN_param_value = function_call_param_iterator.next();
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	1452	if (IN_param_value != NULL) {
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	1453	IN_type_symbol = search_expression_type->get_type(IN_param_value);
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	1454	last_type_symbol = last_type_symbol && IN_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	1455	}
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	1456
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	1457	if(IN_type_symbol == NULL \|\| search_expression_type->is_same_type(&search_constant_type_c::sint_type_name, last_type_symbol))
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	1458	{
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	1459
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	1460
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	1461	if (IN_type_symbol == NULL)
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	1462	IN_type_symbol = last_type_symbol;
149 05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	1463	ADD_PARAM_LIST(IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in)
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	1464	symbol_c * return_type_symbol = &search_constant_type_c::ulint_type_name;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	1465	function_type_prefix = return_type_symbol;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	1466	break;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	1467
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	1468	}
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	1469
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	1470
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	1471	ERROR;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	1472	}
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	1473
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	1474	}/function_sint_to_ulint/
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	1475	break;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	1476
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	1477	/****
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	1478	*SINT_TO_BOOL
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	1479	*/
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	1480	case function_sint_to_bool :
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	1481	{
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	1482	symbol_c *last_type_symbol = NULL;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	1483
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	1484	{
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	1485	identifier_c param_name("IN");
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	1486	/* Get the value from a foo(<param_name> = <param_value>) style call */
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	1487	symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
169 bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	1488	symbol_c *IN_type_symbol = NULL;
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	1489
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	1490	/* Get the value from a foo(<param_value>) style call */
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	1491	if (IN_param_value == NULL)
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	1492	IN_param_value = function_call_param_iterator.next();
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	1493	if (IN_param_value != NULL) {
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	1494	IN_type_symbol = search_expression_type->get_type(IN_param_value);
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	1495	last_type_symbol = last_type_symbol && IN_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	1496	}
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	1497
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	1498	if(IN_type_symbol == NULL \|\| search_expression_type->is_same_type(&search_constant_type_c::sint_type_name, last_type_symbol))
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	1499	{
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	1500
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	1501
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	1502	if (IN_type_symbol == NULL)
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	1503	IN_type_symbol = last_type_symbol;
149 05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	1504	ADD_PARAM_LIST(IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in)
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	1505	symbol_c * return_type_symbol = &search_constant_type_c::bool_type_name;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	1506	function_type_prefix = return_type_symbol;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	1507	break;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	1508
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	1509	}
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	1510
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	1511
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	1512	ERROR;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	1513	}
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	1514
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	1515	}/function_sint_to_bool/
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	1516	break;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	1517
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	1518	/****
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	1519	*SINT_TO_TIME
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	1520	*/
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	1521	case function_sint_to_time :
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	1522	{
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	1523	symbol_c *last_type_symbol = NULL;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	1524
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	1525	{
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	1526	identifier_c param_name("IN");
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	1527	/* Get the value from a foo(<param_name> = <param_value>) style call */
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	1528	symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
169 bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	1529	symbol_c *IN_type_symbol = NULL;
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	1530
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	1531	/* Get the value from a foo(<param_value>) style call */
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	1532	if (IN_param_value == NULL)
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	1533	IN_param_value = function_call_param_iterator.next();
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	1534	if (IN_param_value != NULL) {
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	1535	IN_type_symbol = search_expression_type->get_type(IN_param_value);
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	1536	last_type_symbol = last_type_symbol && IN_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	1537	}
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	1538
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	1539	if(IN_type_symbol == NULL \|\| search_expression_type->is_same_type(&search_constant_type_c::sint_type_name, last_type_symbol))
149 05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	1540	{
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	1541
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	1542	function_name = (symbol_c*)(new pragma_c("__int_to_time"));
169 bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	1543
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	1544	if (IN_type_symbol == NULL)
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	1545	IN_type_symbol = last_type_symbol;
149 05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	1546	ADD_PARAM_LIST(IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in)
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	1547	symbol_c * return_type_symbol = &search_constant_type_c::time_type_name;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	1548	function_type_prefix = return_type_symbol;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	1549	break;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	1550
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	1551	}
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	1552
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	1553
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	1554	ERROR;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	1555	}
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	1556
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	1557	}/function_sint_to_time/
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	1558	break;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	1559
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	1560	/****
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	1561	*SINT_TO_INT
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	1562	*/
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	1563	case function_sint_to_int :
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	1564	{
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	1565	symbol_c *last_type_symbol = NULL;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	1566
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	1567	{
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	1568	identifier_c param_name("IN");
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	1569	/* Get the value from a foo(<param_name> = <param_value>) style call */
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	1570	symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
169 bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	1571	symbol_c *IN_type_symbol = NULL;
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	1572
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	1573	/* Get the value from a foo(<param_value>) style call */
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	1574	if (IN_param_value == NULL)
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	1575	IN_param_value = function_call_param_iterator.next();
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	1576	if (IN_param_value != NULL) {
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	1577	IN_type_symbol = search_expression_type->get_type(IN_param_value);
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	1578	last_type_symbol = last_type_symbol && IN_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	1579	}
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	1580
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	1581	if(IN_type_symbol == NULL \|\| search_expression_type->is_same_type(&search_constant_type_c::sint_type_name, last_type_symbol))
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	1582	{
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	1583
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	1584
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	1585	if (IN_type_symbol == NULL)
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	1586	IN_type_symbol = last_type_symbol;
149 05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	1587	ADD_PARAM_LIST(IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in)
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	1588	symbol_c * return_type_symbol = &search_constant_type_c::int_type_name;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	1589	function_type_prefix = return_type_symbol;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	1590	break;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	1591
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	1592	}
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	1593
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	1594
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	1595	ERROR;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	1596	}
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	1597
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	1598	}/function_sint_to_int/
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	1599	break;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	1600
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	1601	/****
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	1602	*LINT_TO_REAL
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	1603	*/
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	1604	case function_lint_to_real :
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	1605	{
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	1606	symbol_c *last_type_symbol = NULL;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	1607
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	1608	{
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	1609	identifier_c param_name("IN");
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	1610	/* Get the value from a foo(<param_name> = <param_value>) style call */
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	1611	symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
169 bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	1612	symbol_c *IN_type_symbol = NULL;
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	1613
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	1614	/* Get the value from a foo(<param_value>) style call */
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	1615	if (IN_param_value == NULL)
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	1616	IN_param_value = function_call_param_iterator.next();
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	1617	if (IN_param_value != NULL) {
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	1618	IN_type_symbol = search_expression_type->get_type(IN_param_value);
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	1619	last_type_symbol = last_type_symbol && IN_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	1620	}
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	1621
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	1622	if(IN_type_symbol == NULL \|\| search_expression_type->is_same_type(&search_constant_type_c::lint_type_name, last_type_symbol))
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	1623	{
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	1624
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	1625
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	1626	if (IN_type_symbol == NULL)
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	1627	IN_type_symbol = last_type_symbol;
149 05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	1628	ADD_PARAM_LIST(IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in)
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	1629	symbol_c * return_type_symbol = &search_constant_type_c::real_type_name;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	1630	function_type_prefix = return_type_symbol;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	1631	break;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	1632
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	1633	}
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	1634
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	1635
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	1636	ERROR;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	1637	}
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	1638
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	1639	}/function_lint_to_real/
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	1640	break;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	1641
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	1642	/****
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	1643	*LINT_TO_SINT
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	1644	*/
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	1645	case function_lint_to_sint :
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	1646	{
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	1647	symbol_c *last_type_symbol = NULL;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	1648
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	1649	{
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	1650	identifier_c param_name("IN");
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	1651	/* Get the value from a foo(<param_name> = <param_value>) style call */
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	1652	symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
169 bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	1653	symbol_c *IN_type_symbol = NULL;
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	1654
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	1655	/* Get the value from a foo(<param_value>) style call */
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	1656	if (IN_param_value == NULL)
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	1657	IN_param_value = function_call_param_iterator.next();
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	1658	if (IN_param_value != NULL) {
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	1659	IN_type_symbol = search_expression_type->get_type(IN_param_value);
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	1660	last_type_symbol = last_type_symbol && IN_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	1661	}
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	1662
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	1663	if(IN_type_symbol == NULL \|\| search_expression_type->is_same_type(&search_constant_type_c::lint_type_name, last_type_symbol))
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	1664	{
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	1665
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	1666
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	1667	if (IN_type_symbol == NULL)
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	1668	IN_type_symbol = last_type_symbol;
149 05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	1669	ADD_PARAM_LIST(IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in)
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	1670	symbol_c * return_type_symbol = &search_constant_type_c::sint_type_name;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	1671	function_type_prefix = return_type_symbol;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	1672	break;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	1673
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	1674	}
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	1675
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	1676
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	1677	ERROR;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	1678	}
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	1679
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	1680	}/function_lint_to_sint/
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	1681	break;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	1682
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	1683	/****
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	1684	*LINT_TO_DINT
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	1685	*/
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	1686	case function_lint_to_dint :
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	1687	{
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	1688	symbol_c *last_type_symbol = NULL;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	1689
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	1690	{
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	1691	identifier_c param_name("IN");
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	1692	/* Get the value from a foo(<param_name> = <param_value>) style call */
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	1693	symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
169 bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	1694	symbol_c *IN_type_symbol = NULL;
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	1695
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	1696	/* Get the value from a foo(<param_value>) style call */
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	1697	if (IN_param_value == NULL)
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	1698	IN_param_value = function_call_param_iterator.next();
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	1699	if (IN_param_value != NULL) {
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	1700	IN_type_symbol = search_expression_type->get_type(IN_param_value);
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	1701	last_type_symbol = last_type_symbol && IN_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	1702	}
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	1703
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	1704	if(IN_type_symbol == NULL \|\| search_expression_type->is_same_type(&search_constant_type_c::lint_type_name, last_type_symbol))
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	1705	{
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	1706
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	1707
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	1708	if (IN_type_symbol == NULL)
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	1709	IN_type_symbol = last_type_symbol;
149 05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	1710	ADD_PARAM_LIST(IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in)
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	1711	symbol_c * return_type_symbol = &search_constant_type_c::dint_type_name;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	1712	function_type_prefix = return_type_symbol;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	1713	break;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	1714
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	1715	}
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	1716
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	1717
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	1718	ERROR;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	1719	}
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	1720
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	1721	}/function_lint_to_dint/
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	1722	break;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	1723
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	1724	/****
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	1725	*LINT_TO_DATE
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	1726	*/
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	1727	case function_lint_to_date :
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	1728	{
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	1729	symbol_c *last_type_symbol = NULL;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	1730
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	1731	{
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	1732	identifier_c param_name("IN");
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	1733	/* Get the value from a foo(<param_name> = <param_value>) style call */
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	1734	symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
169 bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	1735	symbol_c *IN_type_symbol = NULL;
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	1736
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	1737	/* Get the value from a foo(<param_value>) style call */
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	1738	if (IN_param_value == NULL)
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	1739	IN_param_value = function_call_param_iterator.next();
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	1740	if (IN_param_value != NULL) {
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	1741	IN_type_symbol = search_expression_type->get_type(IN_param_value);
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	1742	last_type_symbol = last_type_symbol && IN_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	1743	}
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	1744
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	1745	if(IN_type_symbol == NULL \|\| search_expression_type->is_same_type(&search_constant_type_c::lint_type_name, last_type_symbol))
149 05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	1746	{
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	1747
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	1748	function_name = (symbol_c*)(new pragma_c("__int_to_time"));
169 bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	1749
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	1750	if (IN_type_symbol == NULL)
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	1751	IN_type_symbol = last_type_symbol;
149 05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	1752	ADD_PARAM_LIST(IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in)
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	1753	symbol_c * return_type_symbol = &search_constant_type_c::date_type_name;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	1754	function_type_prefix = return_type_symbol;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	1755	break;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	1756
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	1757	}
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	1758
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	1759
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	1760	ERROR;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	1761	}
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	1762
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	1763	}/function_lint_to_date/
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	1764	break;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	1765
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	1766	/****
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	1767	*LINT_TO_DWORD
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	1768	*/
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	1769	case function_lint_to_dword :
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	1770	{
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	1771	symbol_c *last_type_symbol = NULL;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	1772
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	1773	{
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	1774	identifier_c param_name("IN");
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	1775	/* Get the value from a foo(<param_name> = <param_value>) style call */
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	1776	symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
169 bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	1777	symbol_c *IN_type_symbol = NULL;
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	1778
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	1779	/* Get the value from a foo(<param_value>) style call */
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	1780	if (IN_param_value == NULL)
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	1781	IN_param_value = function_call_param_iterator.next();
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	1782	if (IN_param_value != NULL) {
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	1783	IN_type_symbol = search_expression_type->get_type(IN_param_value);
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	1784	last_type_symbol = last_type_symbol && IN_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	1785	}
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	1786
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	1787	if(IN_type_symbol == NULL \|\| search_expression_type->is_same_type(&search_constant_type_c::lint_type_name, last_type_symbol))
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	1788	{
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	1789
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	1790
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	1791	if (IN_type_symbol == NULL)
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	1792	IN_type_symbol = last_type_symbol;
149 05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	1793	ADD_PARAM_LIST(IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in)
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	1794	symbol_c * return_type_symbol = &search_constant_type_c::dword_type_name;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	1795	function_type_prefix = return_type_symbol;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	1796	break;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	1797
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	1798	}
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	1799
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	1800
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	1801	ERROR;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	1802	}
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	1803
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	1804	}/function_lint_to_dword/
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	1805	break;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	1806
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	1807	/****
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	1808	*LINT_TO_DT
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	1809	*/
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	1810	case function_lint_to_dt :
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	1811	{
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	1812	symbol_c *last_type_symbol = NULL;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	1813
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	1814	{
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	1815	identifier_c param_name("IN");
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	1816	/* Get the value from a foo(<param_name> = <param_value>) style call */
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	1817	symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
169 bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	1818	symbol_c *IN_type_symbol = NULL;
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	1819
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	1820	/* Get the value from a foo(<param_value>) style call */
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	1821	if (IN_param_value == NULL)
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	1822	IN_param_value = function_call_param_iterator.next();
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	1823	if (IN_param_value != NULL) {
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	1824	IN_type_symbol = search_expression_type->get_type(IN_param_value);
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	1825	last_type_symbol = last_type_symbol && IN_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	1826	}
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	1827
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	1828	if(IN_type_symbol == NULL \|\| search_expression_type->is_same_type(&search_constant_type_c::lint_type_name, last_type_symbol))
149 05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	1829	{
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	1830
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	1831	function_name = (symbol_c*)(new pragma_c("__int_to_time"));
169 bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	1832
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	1833	if (IN_type_symbol == NULL)
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	1834	IN_type_symbol = last_type_symbol;
149 05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	1835	ADD_PARAM_LIST(IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in)
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	1836	symbol_c * return_type_symbol = &search_constant_type_c::dt_type_name;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	1837	function_type_prefix = return_type_symbol;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	1838	break;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	1839
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	1840	}
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	1841
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	1842
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	1843	ERROR;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	1844	}
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	1845
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	1846	}/function_lint_to_dt/
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	1847	break;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	1848
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	1849	/****
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	1850	*LINT_TO_TOD
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	1851	*/
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	1852	case function_lint_to_tod :
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	1853	{
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	1854	symbol_c *last_type_symbol = NULL;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	1855
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	1856	{
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	1857	identifier_c param_name("IN");
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	1858	/* Get the value from a foo(<param_name> = <param_value>) style call */
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	1859	symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
169 bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	1860	symbol_c *IN_type_symbol = NULL;
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	1861
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	1862	/* Get the value from a foo(<param_value>) style call */
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	1863	if (IN_param_value == NULL)
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	1864	IN_param_value = function_call_param_iterator.next();
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	1865	if (IN_param_value != NULL) {
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	1866	IN_type_symbol = search_expression_type->get_type(IN_param_value);
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	1867	last_type_symbol = last_type_symbol && IN_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	1868	}
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	1869
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	1870	if(IN_type_symbol == NULL \|\| search_expression_type->is_same_type(&search_constant_type_c::lint_type_name, last_type_symbol))
149 05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	1871	{
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	1872
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	1873	function_name = (symbol_c*)(new pragma_c("__int_to_time"));
169 bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	1874
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	1875	if (IN_type_symbol == NULL)
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	1876	IN_type_symbol = last_type_symbol;
149 05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	1877	ADD_PARAM_LIST(IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in)
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	1878	symbol_c * return_type_symbol = &search_constant_type_c::tod_type_name;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	1879	function_type_prefix = return_type_symbol;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	1880	break;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	1881
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	1882	}
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	1883
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	1884
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	1885	ERROR;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	1886	}
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	1887
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	1888	}/function_lint_to_tod/
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	1889	break;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	1890
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	1891	/****
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	1892	*LINT_TO_UDINT
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	1893	*/
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	1894	case function_lint_to_udint :
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	1895	{
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	1896	symbol_c *last_type_symbol = NULL;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	1897
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	1898	{
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	1899	identifier_c param_name("IN");
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	1900	/* Get the value from a foo(<param_name> = <param_value>) style call */
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	1901	symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
169 bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	1902	symbol_c *IN_type_symbol = NULL;
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	1903
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	1904	/* Get the value from a foo(<param_value>) style call */
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	1905	if (IN_param_value == NULL)
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	1906	IN_param_value = function_call_param_iterator.next();
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	1907	if (IN_param_value != NULL) {
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	1908	IN_type_symbol = search_expression_type->get_type(IN_param_value);
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	1909	last_type_symbol = last_type_symbol && IN_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	1910	}
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	1911
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	1912	if(IN_type_symbol == NULL \|\| search_expression_type->is_same_type(&search_constant_type_c::lint_type_name, last_type_symbol))
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	1913	{
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	1914
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	1915
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	1916	if (IN_type_symbol == NULL)
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	1917	IN_type_symbol = last_type_symbol;
149 05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	1918	ADD_PARAM_LIST(IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in)
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	1919	symbol_c * return_type_symbol = &search_constant_type_c::udint_type_name;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	1920	function_type_prefix = return_type_symbol;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	1921	break;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	1922
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	1923	}
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	1924
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	1925
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	1926	ERROR;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	1927	}
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	1928
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	1929	}/function_lint_to_udint/
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	1930	break;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	1931
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	1932	/****
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	1933	*LINT_TO_WORD
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	1934	*/
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	1935	case function_lint_to_word :
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	1936	{
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	1937	symbol_c *last_type_symbol = NULL;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	1938
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	1939	{
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	1940	identifier_c param_name("IN");
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	1941	/* Get the value from a foo(<param_name> = <param_value>) style call */
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	1942	symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
169 bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	1943	symbol_c *IN_type_symbol = NULL;
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	1944
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	1945	/* Get the value from a foo(<param_value>) style call */
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	1946	if (IN_param_value == NULL)
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	1947	IN_param_value = function_call_param_iterator.next();
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	1948	if (IN_param_value != NULL) {
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	1949	IN_type_symbol = search_expression_type->get_type(IN_param_value);
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	1950	last_type_symbol = last_type_symbol && IN_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	1951	}
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	1952
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	1953	if(IN_type_symbol == NULL \|\| search_expression_type->is_same_type(&search_constant_type_c::lint_type_name, last_type_symbol))
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	1954	{
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	1955
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	1956
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	1957	if (IN_type_symbol == NULL)
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	1958	IN_type_symbol = last_type_symbol;
149 05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	1959	ADD_PARAM_LIST(IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in)
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	1960	symbol_c * return_type_symbol = &search_constant_type_c::word_type_name;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	1961	function_type_prefix = return_type_symbol;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	1962	break;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	1963
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	1964	}
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	1965
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	1966
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	1967	ERROR;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	1968	}
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	1969
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	1970	}/function_lint_to_word/
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	1971	break;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	1972
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	1973	/****
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	1974	*LINT_TO_STRING
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	1975	*/
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	1976	case function_lint_to_string :
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	1977	{
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	1978	symbol_c *last_type_symbol = NULL;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	1979
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	1980	{
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	1981	identifier_c param_name("IN");
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	1982	/* Get the value from a foo(<param_name> = <param_value>) style call */
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	1983	symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
169 bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	1984	symbol_c *IN_type_symbol = NULL;
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	1985
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	1986	/* Get the value from a foo(<param_value>) style call */
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	1987	if (IN_param_value == NULL)
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	1988	IN_param_value = function_call_param_iterator.next();
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	1989	if (IN_param_value != NULL) {
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	1990	IN_type_symbol = search_expression_type->get_type(IN_param_value);
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	1991	last_type_symbol = last_type_symbol && IN_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	1992	}
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	1993
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	1994	if(IN_type_symbol == NULL \|\| search_expression_type->is_same_type(&search_constant_type_c::lint_type_name, last_type_symbol))
149 05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	1995	{
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	1996
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	1997	function_name = (symbol_c*)(new pragma_c("__sint_to_string"));
169 bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	1998
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	1999	if (IN_type_symbol == NULL)
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	2000	IN_type_symbol = last_type_symbol;
149 05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	2001	ADD_PARAM_LIST(IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in)
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	2002	symbol_c * return_type_symbol = &search_constant_type_c::string_type_name;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	2003	function_type_prefix = return_type_symbol;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	2004	break;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	2005
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	2006	}
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	2007
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	2008
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	2009	ERROR;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	2010	}
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	2011
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	2012	}/function_lint_to_string/
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	2013	break;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	2014
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	2015	/****
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	2016	*LINT_TO_LWORD
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	2017	*/
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	2018	case function_lint_to_lword :
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	2019	{
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	2020	symbol_c *last_type_symbol = NULL;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	2021
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	2022	{
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	2023	identifier_c param_name("IN");
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	2024	/* Get the value from a foo(<param_name> = <param_value>) style call */
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	2025	symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
169 bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	2026	symbol_c *IN_type_symbol = NULL;
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	2027
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	2028	/* Get the value from a foo(<param_value>) style call */
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	2029	if (IN_param_value == NULL)
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	2030	IN_param_value = function_call_param_iterator.next();
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	2031	if (IN_param_value != NULL) {
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	2032	IN_type_symbol = search_expression_type->get_type(IN_param_value);
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	2033	last_type_symbol = last_type_symbol && IN_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	2034	}
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	2035
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	2036	if(IN_type_symbol == NULL \|\| search_expression_type->is_same_type(&search_constant_type_c::lint_type_name, last_type_symbol))
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	2037	{
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	2038
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	2039
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	2040	if (IN_type_symbol == NULL)
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	2041	IN_type_symbol = last_type_symbol;
149 05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	2042	ADD_PARAM_LIST(IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in)
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	2043	symbol_c * return_type_symbol = &search_constant_type_c::lword_type_name;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	2044	function_type_prefix = return_type_symbol;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	2045	break;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	2046
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	2047	}
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	2048
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	2049
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	2050	ERROR;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	2051	}
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	2052
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	2053	}/function_lint_to_lword/
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	2054	break;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	2055
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	2056	/****
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	2057	*LINT_TO_UINT
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	2058	*/
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	2059	case function_lint_to_uint :
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	2060	{
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	2061	symbol_c *last_type_symbol = NULL;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	2062
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	2063	{
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	2064	identifier_c param_name("IN");
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	2065	/* Get the value from a foo(<param_name> = <param_value>) style call */
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	2066	symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
169 bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	2067	symbol_c *IN_type_symbol = NULL;
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	2068
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	2069	/* Get the value from a foo(<param_value>) style call */
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	2070	if (IN_param_value == NULL)
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	2071	IN_param_value = function_call_param_iterator.next();
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	2072	if (IN_param_value != NULL) {
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	2073	IN_type_symbol = search_expression_type->get_type(IN_param_value);
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	2074	last_type_symbol = last_type_symbol && IN_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	2075	}
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	2076
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	2077	if(IN_type_symbol == NULL \|\| search_expression_type->is_same_type(&search_constant_type_c::lint_type_name, last_type_symbol))
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	2078	{
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	2079
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	2080
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	2081	if (IN_type_symbol == NULL)
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	2082	IN_type_symbol = last_type_symbol;
149 05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	2083	ADD_PARAM_LIST(IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in)
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	2084	symbol_c * return_type_symbol = &search_constant_type_c::uint_type_name;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	2085	function_type_prefix = return_type_symbol;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	2086	break;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	2087
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	2088	}
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	2089
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	2090
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	2091	ERROR;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	2092	}
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	2093
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	2094	}/function_lint_to_uint/
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	2095	break;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	2096
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	2097	/****
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	2098	*LINT_TO_LREAL
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	2099	*/
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	2100	case function_lint_to_lreal :
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	2101	{
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	2102	symbol_c *last_type_symbol = NULL;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	2103
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	2104	{
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	2105	identifier_c param_name("IN");
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	2106	/* Get the value from a foo(<param_name> = <param_value>) style call */
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	2107	symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
169 bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	2108	symbol_c *IN_type_symbol = NULL;
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	2109
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	2110	/* Get the value from a foo(<param_value>) style call */
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	2111	if (IN_param_value == NULL)
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	2112	IN_param_value = function_call_param_iterator.next();
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	2113	if (IN_param_value != NULL) {
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	2114	IN_type_symbol = search_expression_type->get_type(IN_param_value);
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	2115	last_type_symbol = last_type_symbol && IN_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	2116	}
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	2117
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	2118	if(IN_type_symbol == NULL \|\| search_expression_type->is_same_type(&search_constant_type_c::lint_type_name, last_type_symbol))
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	2119	{
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	2120
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	2121
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	2122	if (IN_type_symbol == NULL)
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	2123	IN_type_symbol = last_type_symbol;
149 05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	2124	ADD_PARAM_LIST(IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in)
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	2125	symbol_c * return_type_symbol = &search_constant_type_c::lreal_type_name;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	2126	function_type_prefix = return_type_symbol;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	2127	break;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	2128
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	2129	}
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	2130
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	2131
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	2132	ERROR;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	2133	}
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	2134
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	2135	}/function_lint_to_lreal/
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	2136	break;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	2137
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	2138	/****
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	2139	*LINT_TO_BYTE
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	2140	*/
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	2141	case function_lint_to_byte :
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	2142	{
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	2143	symbol_c *last_type_symbol = NULL;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	2144
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	2145	{
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	2146	identifier_c param_name("IN");
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	2147	/* Get the value from a foo(<param_name> = <param_value>) style call */
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	2148	symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
169 bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	2149	symbol_c *IN_type_symbol = NULL;
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	2150
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	2151	/* Get the value from a foo(<param_value>) style call */
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	2152	if (IN_param_value == NULL)
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	2153	IN_param_value = function_call_param_iterator.next();
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	2154	if (IN_param_value != NULL) {
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	2155	IN_type_symbol = search_expression_type->get_type(IN_param_value);
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	2156	last_type_symbol = last_type_symbol && IN_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	2157	}
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	2158
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	2159	if(IN_type_symbol == NULL \|\| search_expression_type->is_same_type(&search_constant_type_c::lint_type_name, last_type_symbol))
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	2160	{
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	2161
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	2162
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	2163	if (IN_type_symbol == NULL)
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	2164	IN_type_symbol = last_type_symbol;
149 05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	2165	ADD_PARAM_LIST(IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in)
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	2166	symbol_c * return_type_symbol = &search_constant_type_c::byte_type_name;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	2167	function_type_prefix = return_type_symbol;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	2168	break;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	2169
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	2170	}
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	2171
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	2172
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	2173	ERROR;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	2174	}
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	2175
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	2176	}/function_lint_to_byte/
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	2177	break;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	2178
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	2179	/****
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	2180	*LINT_TO_USINT
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	2181	*/
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	2182	case function_lint_to_usint :
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	2183	{
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	2184	symbol_c *last_type_symbol = NULL;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	2185
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	2186	{
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	2187	identifier_c param_name("IN");
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	2188	/* Get the value from a foo(<param_name> = <param_value>) style call */
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	2189	symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
169 bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	2190	symbol_c *IN_type_symbol = NULL;
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	2191
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	2192	/* Get the value from a foo(<param_value>) style call */
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	2193	if (IN_param_value == NULL)
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	2194	IN_param_value = function_call_param_iterator.next();
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	2195	if (IN_param_value != NULL) {
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	2196	IN_type_symbol = search_expression_type->get_type(IN_param_value);
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	2197	last_type_symbol = last_type_symbol && IN_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	2198	}
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	2199
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	2200	if(IN_type_symbol == NULL \|\| search_expression_type->is_same_type(&search_constant_type_c::lint_type_name, last_type_symbol))
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	2201	{
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	2202
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	2203
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	2204	if (IN_type_symbol == NULL)
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	2205	IN_type_symbol = last_type_symbol;
149 05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	2206	ADD_PARAM_LIST(IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in)
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	2207	symbol_c * return_type_symbol = &search_constant_type_c::usint_type_name;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	2208	function_type_prefix = return_type_symbol;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	2209	break;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	2210
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	2211	}
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	2212
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	2213
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	2214	ERROR;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	2215	}
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	2216
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	2217	}/function_lint_to_usint/
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	2218	break;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	2219
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	2220	/****
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	2221	*LINT_TO_ULINT
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	2222	*/
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	2223	case function_lint_to_ulint :
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	2224	{
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	2225	symbol_c *last_type_symbol = NULL;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	2226
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	2227	{
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	2228	identifier_c param_name("IN");
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	2229	/* Get the value from a foo(<param_name> = <param_value>) style call */
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	2230	symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
169 bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	2231	symbol_c *IN_type_symbol = NULL;
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	2232
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	2233	/* Get the value from a foo(<param_value>) style call */
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	2234	if (IN_param_value == NULL)
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	2235	IN_param_value = function_call_param_iterator.next();
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	2236	if (IN_param_value != NULL) {
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	2237	IN_type_symbol = search_expression_type->get_type(IN_param_value);
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	2238	last_type_symbol = last_type_symbol && IN_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	2239	}
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	2240
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	2241	if(IN_type_symbol == NULL \|\| search_expression_type->is_same_type(&search_constant_type_c::lint_type_name, last_type_symbol))
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	2242	{
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	2243
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	2244
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	2245	if (IN_type_symbol == NULL)
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	2246	IN_type_symbol = last_type_symbol;
149 05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	2247	ADD_PARAM_LIST(IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in)
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	2248	symbol_c * return_type_symbol = &search_constant_type_c::ulint_type_name;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	2249	function_type_prefix = return_type_symbol;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	2250	break;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	2251
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	2252	}
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	2253
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	2254
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	2255	ERROR;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	2256	}
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	2257
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	2258	}/function_lint_to_ulint/
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	2259	break;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	2260
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	2261	/****
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	2262	*LINT_TO_BOOL
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	2263	*/
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	2264	case function_lint_to_bool :
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	2265	{
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	2266	symbol_c *last_type_symbol = NULL;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	2267
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	2268	{
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	2269	identifier_c param_name("IN");
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	2270	/* Get the value from a foo(<param_name> = <param_value>) style call */
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	2271	symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
169 bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	2272	symbol_c *IN_type_symbol = NULL;
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	2273
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	2274	/* Get the value from a foo(<param_value>) style call */
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	2275	if (IN_param_value == NULL)
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	2276	IN_param_value = function_call_param_iterator.next();
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	2277	if (IN_param_value != NULL) {
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	2278	IN_type_symbol = search_expression_type->get_type(IN_param_value);
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	2279	last_type_symbol = last_type_symbol && IN_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	2280	}
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	2281
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	2282	if(IN_type_symbol == NULL \|\| search_expression_type->is_same_type(&search_constant_type_c::lint_type_name, last_type_symbol))
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	2283	{
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	2284
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	2285
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	2286	if (IN_type_symbol == NULL)
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	2287	IN_type_symbol = last_type_symbol;
149 05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	2288	ADD_PARAM_LIST(IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in)
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	2289	symbol_c * return_type_symbol = &search_constant_type_c::bool_type_name;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	2290	function_type_prefix = return_type_symbol;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	2291	break;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	2292
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	2293	}
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	2294
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	2295
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	2296	ERROR;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	2297	}
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	2298
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	2299	}/function_lint_to_bool/
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	2300	break;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	2301
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	2302	/****
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	2303	*LINT_TO_TIME
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	2304	*/
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	2305	case function_lint_to_time :
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	2306	{
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	2307	symbol_c *last_type_symbol = NULL;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	2308
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	2309	{
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	2310	identifier_c param_name("IN");
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	2311	/* Get the value from a foo(<param_name> = <param_value>) style call */
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	2312	symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
169 bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	2313	symbol_c *IN_type_symbol = NULL;
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	2314
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	2315	/* Get the value from a foo(<param_value>) style call */
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	2316	if (IN_param_value == NULL)
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	2317	IN_param_value = function_call_param_iterator.next();
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	2318	if (IN_param_value != NULL) {
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	2319	IN_type_symbol = search_expression_type->get_type(IN_param_value);
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	2320	last_type_symbol = last_type_symbol && IN_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	2321	}
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	2322
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	2323	if(IN_type_symbol == NULL \|\| search_expression_type->is_same_type(&search_constant_type_c::lint_type_name, last_type_symbol))
149 05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	2324	{
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	2325
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	2326	function_name = (symbol_c*)(new pragma_c("__int_to_time"));
169 bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	2327
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	2328	if (IN_type_symbol == NULL)
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	2329	IN_type_symbol = last_type_symbol;
149 05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	2330	ADD_PARAM_LIST(IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in)
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	2331	symbol_c * return_type_symbol = &search_constant_type_c::time_type_name;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	2332	function_type_prefix = return_type_symbol;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	2333	break;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	2334
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	2335	}
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	2336
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	2337
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	2338	ERROR;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	2339	}
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	2340
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	2341	}/function_lint_to_time/
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	2342	break;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	2343
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	2344	/****
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	2345	*LINT_TO_INT
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	2346	*/
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	2347	case function_lint_to_int :
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	2348	{
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	2349	symbol_c *last_type_symbol = NULL;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	2350
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	2351	{
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	2352	identifier_c param_name("IN");
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	2353	/* Get the value from a foo(<param_name> = <param_value>) style call */
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	2354	symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
169 bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	2355	symbol_c *IN_type_symbol = NULL;
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	2356
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	2357	/* Get the value from a foo(<param_value>) style call */
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	2358	if (IN_param_value == NULL)
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	2359	IN_param_value = function_call_param_iterator.next();
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	2360	if (IN_param_value != NULL) {
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	2361	IN_type_symbol = search_expression_type->get_type(IN_param_value);
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	2362	last_type_symbol = last_type_symbol && IN_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	2363	}
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	2364
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	2365	if(IN_type_symbol == NULL \|\| search_expression_type->is_same_type(&search_constant_type_c::lint_type_name, last_type_symbol))
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	2366	{
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	2367
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	2368
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	2369	if (IN_type_symbol == NULL)
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	2370	IN_type_symbol = last_type_symbol;
149 05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	2371	ADD_PARAM_LIST(IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in)
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	2372	symbol_c * return_type_symbol = &search_constant_type_c::int_type_name;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	2373	function_type_prefix = return_type_symbol;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	2374	break;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	2375
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	2376	}
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	2377
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	2378
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	2379	ERROR;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	2380	}
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	2381
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	2382	}/function_lint_to_int/
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	2383	break;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	2384
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	2385	/****
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	2386	*DINT_TO_REAL
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	2387	*/
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	2388	case function_dint_to_real :
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	2389	{
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	2390	symbol_c *last_type_symbol = NULL;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	2391
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	2392	{
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	2393	identifier_c param_name("IN");
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	2394	/* Get the value from a foo(<param_name> = <param_value>) style call */
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	2395	symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
169 bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	2396	symbol_c *IN_type_symbol = NULL;
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	2397
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	2398	/* Get the value from a foo(<param_value>) style call */
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	2399	if (IN_param_value == NULL)
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	2400	IN_param_value = function_call_param_iterator.next();
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	2401	if (IN_param_value != NULL) {
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	2402	IN_type_symbol = search_expression_type->get_type(IN_param_value);
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	2403	last_type_symbol = last_type_symbol && IN_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	2404	}
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	2405
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	2406	if(IN_type_symbol == NULL \|\| search_expression_type->is_same_type(&search_constant_type_c::dint_type_name, last_type_symbol))
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	2407	{
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	2408
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	2409
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	2410	if (IN_type_symbol == NULL)
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	2411	IN_type_symbol = last_type_symbol;
149 05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	2412	ADD_PARAM_LIST(IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in)
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	2413	symbol_c * return_type_symbol = &search_constant_type_c::real_type_name;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	2414	function_type_prefix = return_type_symbol;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	2415	break;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	2416
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	2417	}
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	2418
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	2419
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	2420	ERROR;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	2421	}
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	2422
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	2423	}/function_dint_to_real/
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	2424	break;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	2425
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	2426	/****
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	2427	*DINT_TO_SINT
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	2428	*/
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	2429	case function_dint_to_sint :
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	2430	{
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	2431	symbol_c *last_type_symbol = NULL;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	2432
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	2433	{
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	2434	identifier_c param_name("IN");
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	2435	/* Get the value from a foo(<param_name> = <param_value>) style call */
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	2436	symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
169 bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	2437	symbol_c *IN_type_symbol = NULL;
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	2438
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	2439	/* Get the value from a foo(<param_value>) style call */
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	2440	if (IN_param_value == NULL)
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	2441	IN_param_value = function_call_param_iterator.next();
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	2442	if (IN_param_value != NULL) {
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	2443	IN_type_symbol = search_expression_type->get_type(IN_param_value);
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	2444	last_type_symbol = last_type_symbol && IN_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	2445	}
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	2446
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	2447	if(IN_type_symbol == NULL \|\| search_expression_type->is_same_type(&search_constant_type_c::dint_type_name, last_type_symbol))
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	2448	{
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	2449
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	2450
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	2451	if (IN_type_symbol == NULL)
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	2452	IN_type_symbol = last_type_symbol;
149 05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	2453	ADD_PARAM_LIST(IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in)
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	2454	symbol_c * return_type_symbol = &search_constant_type_c::sint_type_name;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	2455	function_type_prefix = return_type_symbol;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	2456	break;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	2457
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	2458	}
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	2459
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	2460
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	2461	ERROR;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	2462	}
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	2463
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	2464	}/function_dint_to_sint/
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	2465	break;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	2466
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	2467	/****
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	2468	*DINT_TO_LINT
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	2469	*/
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	2470	case function_dint_to_lint :
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	2471	{
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	2472	symbol_c *last_type_symbol = NULL;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	2473
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	2474	{
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	2475	identifier_c param_name("IN");
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	2476	/* Get the value from a foo(<param_name> = <param_value>) style call */
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	2477	symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
169 bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	2478	symbol_c *IN_type_symbol = NULL;
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	2479
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	2480	/* Get the value from a foo(<param_value>) style call */
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	2481	if (IN_param_value == NULL)
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	2482	IN_param_value = function_call_param_iterator.next();
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	2483	if (IN_param_value != NULL) {
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	2484	IN_type_symbol = search_expression_type->get_type(IN_param_value);
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	2485	last_type_symbol = last_type_symbol && IN_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	2486	}
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	2487
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	2488	if(IN_type_symbol == NULL \|\| search_expression_type->is_same_type(&search_constant_type_c::dint_type_name, last_type_symbol))
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	2489	{
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	2490
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	2491
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	2492	if (IN_type_symbol == NULL)
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	2493	IN_type_symbol = last_type_symbol;
149 05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	2494	ADD_PARAM_LIST(IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in)
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	2495	symbol_c * return_type_symbol = &search_constant_type_c::lint_type_name;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	2496	function_type_prefix = return_type_symbol;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	2497	break;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	2498
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	2499	}
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	2500
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	2501
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	2502	ERROR;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	2503	}
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	2504
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	2505	}/function_dint_to_lint/
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	2506	break;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	2507
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	2508	/****
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	2509	*DINT_TO_DATE
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	2510	*/
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	2511	case function_dint_to_date :
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	2512	{
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	2513	symbol_c *last_type_symbol = NULL;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	2514
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	2515	{
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	2516	identifier_c param_name("IN");
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	2517	/* Get the value from a foo(<param_name> = <param_value>) style call */
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	2518	symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
169 bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	2519	symbol_c *IN_type_symbol = NULL;
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	2520
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	2521	/* Get the value from a foo(<param_value>) style call */
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	2522	if (IN_param_value == NULL)
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	2523	IN_param_value = function_call_param_iterator.next();
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	2524	if (IN_param_value != NULL) {
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	2525	IN_type_symbol = search_expression_type->get_type(IN_param_value);
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	2526	last_type_symbol = last_type_symbol && IN_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	2527	}
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	2528
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	2529	if(IN_type_symbol == NULL \|\| search_expression_type->is_same_type(&search_constant_type_c::dint_type_name, last_type_symbol))
149 05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	2530	{
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	2531
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	2532	function_name = (symbol_c*)(new pragma_c("__int_to_time"));
169 bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	2533
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	2534	if (IN_type_symbol == NULL)
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	2535	IN_type_symbol = last_type_symbol;
149 05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	2536	ADD_PARAM_LIST(IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in)
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	2537	symbol_c * return_type_symbol = &search_constant_type_c::date_type_name;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	2538	function_type_prefix = return_type_symbol;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	2539	break;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	2540
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	2541	}
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	2542
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	2543
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	2544	ERROR;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	2545	}
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	2546
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	2547	}/function_dint_to_date/
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	2548	break;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	2549
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	2550	/****
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	2551	*DINT_TO_DWORD
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	2552	*/
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	2553	case function_dint_to_dword :
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	2554	{
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	2555	symbol_c *last_type_symbol = NULL;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	2556
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	2557	{
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	2558	identifier_c param_name("IN");
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	2559	/* Get the value from a foo(<param_name> = <param_value>) style call */
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	2560	symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
169 bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	2561	symbol_c *IN_type_symbol = NULL;
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	2562
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	2563	/* Get the value from a foo(<param_value>) style call */
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	2564	if (IN_param_value == NULL)
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	2565	IN_param_value = function_call_param_iterator.next();
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	2566	if (IN_param_value != NULL) {
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	2567	IN_type_symbol = search_expression_type->get_type(IN_param_value);
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	2568	last_type_symbol = last_type_symbol && IN_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	2569	}
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	2570
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	2571	if(IN_type_symbol == NULL \|\| search_expression_type->is_same_type(&search_constant_type_c::dint_type_name, last_type_symbol))
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	2572	{
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	2573
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	2574
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	2575	if (IN_type_symbol == NULL)
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	2576	IN_type_symbol = last_type_symbol;
149 05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	2577	ADD_PARAM_LIST(IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in)
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	2578	symbol_c * return_type_symbol = &search_constant_type_c::dword_type_name;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	2579	function_type_prefix = return_type_symbol;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	2580	break;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	2581
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	2582	}
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	2583
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	2584
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	2585	ERROR;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	2586	}
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	2587
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	2588	}/function_dint_to_dword/
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	2589	break;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	2590
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	2591	/****
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	2592	*DINT_TO_DT
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	2593	*/
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	2594	case function_dint_to_dt :
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	2595	{
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	2596	symbol_c *last_type_symbol = NULL;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	2597
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	2598	{
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	2599	identifier_c param_name("IN");
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	2600	/* Get the value from a foo(<param_name> = <param_value>) style call */
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	2601	symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
169 bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	2602	symbol_c *IN_type_symbol = NULL;
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	2603
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	2604	/* Get the value from a foo(<param_value>) style call */
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	2605	if (IN_param_value == NULL)
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	2606	IN_param_value = function_call_param_iterator.next();
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	2607	if (IN_param_value != NULL) {
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	2608	IN_type_symbol = search_expression_type->get_type(IN_param_value);
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	2609	last_type_symbol = last_type_symbol && IN_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	2610	}
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	2611
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	2612	if(IN_type_symbol == NULL \|\| search_expression_type->is_same_type(&search_constant_type_c::dint_type_name, last_type_symbol))
149 05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	2613	{
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	2614
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	2615	function_name = (symbol_c*)(new pragma_c("__int_to_time"));
169 bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	2616
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	2617	if (IN_type_symbol == NULL)
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	2618	IN_type_symbol = last_type_symbol;
149 05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	2619	ADD_PARAM_LIST(IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in)
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	2620	symbol_c * return_type_symbol = &search_constant_type_c::dt_type_name;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	2621	function_type_prefix = return_type_symbol;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	2622	break;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	2623
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	2624	}
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	2625
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	2626
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	2627	ERROR;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	2628	}
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	2629
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	2630	}/function_dint_to_dt/
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	2631	break;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	2632
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	2633	/****
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	2634	*DINT_TO_TOD
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	2635	*/
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	2636	case function_dint_to_tod :
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	2637	{
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	2638	symbol_c *last_type_symbol = NULL;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	2639
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	2640	{
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	2641	identifier_c param_name("IN");
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	2642	/* Get the value from a foo(<param_name> = <param_value>) style call */
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	2643	symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
169 bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	2644	symbol_c *IN_type_symbol = NULL;
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	2645
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	2646	/* Get the value from a foo(<param_value>) style call */
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	2647	if (IN_param_value == NULL)
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	2648	IN_param_value = function_call_param_iterator.next();
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	2649	if (IN_param_value != NULL) {
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	2650	IN_type_symbol = search_expression_type->get_type(IN_param_value);
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	2651	last_type_symbol = last_type_symbol && IN_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	2652	}
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	2653
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	2654	if(IN_type_symbol == NULL \|\| search_expression_type->is_same_type(&search_constant_type_c::dint_type_name, last_type_symbol))
149 05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	2655	{
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	2656
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	2657	function_name = (symbol_c*)(new pragma_c("__int_to_time"));
169 bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	2658
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	2659	if (IN_type_symbol == NULL)
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	2660	IN_type_symbol = last_type_symbol;
149 05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	2661	ADD_PARAM_LIST(IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in)
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	2662	symbol_c * return_type_symbol = &search_constant_type_c::tod_type_name;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	2663	function_type_prefix = return_type_symbol;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	2664	break;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	2665
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	2666	}
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	2667
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	2668
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	2669	ERROR;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	2670	}
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	2671
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	2672	}/function_dint_to_tod/
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	2673	break;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	2674
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	2675	/****
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	2676	*DINT_TO_UDINT
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	2677	*/
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	2678	case function_dint_to_udint :
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	2679	{
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	2680	symbol_c *last_type_symbol = NULL;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	2681
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	2682	{
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	2683	identifier_c param_name("IN");
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	2684	/* Get the value from a foo(<param_name> = <param_value>) style call */
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	2685	symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
169 bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	2686	symbol_c *IN_type_symbol = NULL;
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	2687
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	2688	/* Get the value from a foo(<param_value>) style call */
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	2689	if (IN_param_value == NULL)
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	2690	IN_param_value = function_call_param_iterator.next();
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	2691	if (IN_param_value != NULL) {
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	2692	IN_type_symbol = search_expression_type->get_type(IN_param_value);
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	2693	last_type_symbol = last_type_symbol && IN_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	2694	}
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	2695
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	2696	if(IN_type_symbol == NULL \|\| search_expression_type->is_same_type(&search_constant_type_c::dint_type_name, last_type_symbol))
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	2697	{
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	2698
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	2699
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	2700	if (IN_type_symbol == NULL)
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	2701	IN_type_symbol = last_type_symbol;
149 05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	2702	ADD_PARAM_LIST(IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in)
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	2703	symbol_c * return_type_symbol = &search_constant_type_c::udint_type_name;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	2704	function_type_prefix = return_type_symbol;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	2705	break;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	2706
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	2707	}
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	2708
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	2709
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	2710	ERROR;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	2711	}
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	2712
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	2713	}/function_dint_to_udint/
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	2714	break;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	2715
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	2716	/****
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	2717	*DINT_TO_WORD
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	2718	*/
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	2719	case function_dint_to_word :
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	2720	{
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	2721	symbol_c *last_type_symbol = NULL;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	2722
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	2723	{
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	2724	identifier_c param_name("IN");
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	2725	/* Get the value from a foo(<param_name> = <param_value>) style call */
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	2726	symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
169 bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	2727	symbol_c *IN_type_symbol = NULL;
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	2728
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	2729	/* Get the value from a foo(<param_value>) style call */
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	2730	if (IN_param_value == NULL)
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	2731	IN_param_value = function_call_param_iterator.next();
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	2732	if (IN_param_value != NULL) {
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	2733	IN_type_symbol = search_expression_type->get_type(IN_param_value);
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	2734	last_type_symbol = last_type_symbol && IN_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	2735	}
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	2736
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	2737	if(IN_type_symbol == NULL \|\| search_expression_type->is_same_type(&search_constant_type_c::dint_type_name, last_type_symbol))
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	2738	{
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	2739
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	2740
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	2741	if (IN_type_symbol == NULL)
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	2742	IN_type_symbol = last_type_symbol;
149 05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	2743	ADD_PARAM_LIST(IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in)
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	2744	symbol_c * return_type_symbol = &search_constant_type_c::word_type_name;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	2745	function_type_prefix = return_type_symbol;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	2746	break;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	2747
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	2748	}
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	2749
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	2750
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	2751	ERROR;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	2752	}
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	2753
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	2754	}/function_dint_to_word/
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	2755	break;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	2756
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	2757	/****
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	2758	*DINT_TO_STRING
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	2759	*/
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	2760	case function_dint_to_string :
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	2761	{
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	2762	symbol_c *last_type_symbol = NULL;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	2763
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	2764	{
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	2765	identifier_c param_name("IN");
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	2766	/* Get the value from a foo(<param_name> = <param_value>) style call */
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	2767	symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
169 bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	2768	symbol_c *IN_type_symbol = NULL;
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	2769
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	2770	/* Get the value from a foo(<param_value>) style call */
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	2771	if (IN_param_value == NULL)
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	2772	IN_param_value = function_call_param_iterator.next();
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	2773	if (IN_param_value != NULL) {
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	2774	IN_type_symbol = search_expression_type->get_type(IN_param_value);
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	2775	last_type_symbol = last_type_symbol && IN_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	2776	}
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	2777
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	2778	if(IN_type_symbol == NULL \|\| search_expression_type->is_same_type(&search_constant_type_c::dint_type_name, last_type_symbol))
149 05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	2779	{
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	2780
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	2781	function_name = (symbol_c*)(new pragma_c("__sint_to_string"));
169 bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	2782
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	2783	if (IN_type_symbol == NULL)
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	2784	IN_type_symbol = last_type_symbol;
149 05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	2785	ADD_PARAM_LIST(IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in)
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	2786	symbol_c * return_type_symbol = &search_constant_type_c::string_type_name;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	2787	function_type_prefix = return_type_symbol;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	2788	break;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	2789
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	2790	}
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	2791
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	2792
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	2793	ERROR;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	2794	}
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	2795
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	2796	}/function_dint_to_string/
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	2797	break;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	2798
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	2799	/****
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	2800	*DINT_TO_LWORD
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	2801	*/
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	2802	case function_dint_to_lword :
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	2803	{
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	2804	symbol_c *last_type_symbol = NULL;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	2805
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	2806	{
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	2807	identifier_c param_name("IN");
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	2808	/* Get the value from a foo(<param_name> = <param_value>) style call */
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	2809	symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
169 bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	2810	symbol_c *IN_type_symbol = NULL;
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	2811
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	2812	/* Get the value from a foo(<param_value>) style call */
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	2813	if (IN_param_value == NULL)
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	2814	IN_param_value = function_call_param_iterator.next();
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	2815	if (IN_param_value != NULL) {
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	2816	IN_type_symbol = search_expression_type->get_type(IN_param_value);
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	2817	last_type_symbol = last_type_symbol && IN_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	2818	}
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	2819
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	2820	if(IN_type_symbol == NULL \|\| search_expression_type->is_same_type(&search_constant_type_c::dint_type_name, last_type_symbol))
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	2821	{
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	2822
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	2823
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	2824	if (IN_type_symbol == NULL)
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	2825	IN_type_symbol = last_type_symbol;
149 05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	2826	ADD_PARAM_LIST(IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in)
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	2827	symbol_c * return_type_symbol = &search_constant_type_c::lword_type_name;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	2828	function_type_prefix = return_type_symbol;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	2829	break;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	2830
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	2831	}
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	2832
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	2833
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	2834	ERROR;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	2835	}
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	2836
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	2837	}/function_dint_to_lword/
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	2838	break;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	2839
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	2840	/****
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	2841	*DINT_TO_UINT
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	2842	*/
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	2843	case function_dint_to_uint :
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	2844	{
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	2845	symbol_c *last_type_symbol = NULL;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	2846
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	2847	{
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	2848	identifier_c param_name("IN");
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	2849	/* Get the value from a foo(<param_name> = <param_value>) style call */
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	2850	symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
169 bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	2851	symbol_c *IN_type_symbol = NULL;
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	2852
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	2853	/* Get the value from a foo(<param_value>) style call */
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	2854	if (IN_param_value == NULL)
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	2855	IN_param_value = function_call_param_iterator.next();
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	2856	if (IN_param_value != NULL) {
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	2857	IN_type_symbol = search_expression_type->get_type(IN_param_value);
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	2858	last_type_symbol = last_type_symbol && IN_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	2859	}
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	2860
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	2861	if(IN_type_symbol == NULL \|\| search_expression_type->is_same_type(&search_constant_type_c::dint_type_name, last_type_symbol))
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	2862	{
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	2863
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	2864
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	2865	if (IN_type_symbol == NULL)
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	2866	IN_type_symbol = last_type_symbol;
149 05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	2867	ADD_PARAM_LIST(IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in)
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	2868	symbol_c * return_type_symbol = &search_constant_type_c::uint_type_name;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	2869	function_type_prefix = return_type_symbol;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	2870	break;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	2871
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	2872	}
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	2873
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	2874
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	2875	ERROR;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	2876	}
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	2877
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	2878	}/function_dint_to_uint/
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	2879	break;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	2880
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	2881	/****
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	2882	*DINT_TO_LREAL
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	2883	*/
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	2884	case function_dint_to_lreal :
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	2885	{
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	2886	symbol_c *last_type_symbol = NULL;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	2887
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	2888	{
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	2889	identifier_c param_name("IN");
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	2890	/* Get the value from a foo(<param_name> = <param_value>) style call */
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	2891	symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
169 bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	2892	symbol_c *IN_type_symbol = NULL;
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	2893
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	2894	/* Get the value from a foo(<param_value>) style call */
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	2895	if (IN_param_value == NULL)
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	2896	IN_param_value = function_call_param_iterator.next();
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	2897	if (IN_param_value != NULL) {
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	2898	IN_type_symbol = search_expression_type->get_type(IN_param_value);
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	2899	last_type_symbol = last_type_symbol && IN_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	2900	}
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	2901
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	2902	if(IN_type_symbol == NULL \|\| search_expression_type->is_same_type(&search_constant_type_c::dint_type_name, last_type_symbol))
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	2903	{
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	2904
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	2905
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	2906	if (IN_type_symbol == NULL)
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	2907	IN_type_symbol = last_type_symbol;
149 05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	2908	ADD_PARAM_LIST(IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in)
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	2909	symbol_c * return_type_symbol = &search_constant_type_c::lreal_type_name;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	2910	function_type_prefix = return_type_symbol;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	2911	break;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	2912
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	2913	}
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	2914
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	2915
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	2916	ERROR;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	2917	}
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	2918
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	2919	}/function_dint_to_lreal/
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	2920	break;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	2921
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	2922	/****
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	2923	*DINT_TO_BYTE
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	2924	*/
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	2925	case function_dint_to_byte :
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	2926	{
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	2927	symbol_c *last_type_symbol = NULL;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	2928
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	2929	{
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	2930	identifier_c param_name("IN");
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	2931	/* Get the value from a foo(<param_name> = <param_value>) style call */
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	2932	symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
169 bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	2933	symbol_c *IN_type_symbol = NULL;
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	2934
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	2935	/* Get the value from a foo(<param_value>) style call */
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	2936	if (IN_param_value == NULL)
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	2937	IN_param_value = function_call_param_iterator.next();
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	2938	if (IN_param_value != NULL) {
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	2939	IN_type_symbol = search_expression_type->get_type(IN_param_value);
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	2940	last_type_symbol = last_type_symbol && IN_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	2941	}
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	2942
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	2943	if(IN_type_symbol == NULL \|\| search_expression_type->is_same_type(&search_constant_type_c::dint_type_name, last_type_symbol))
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	2944	{
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	2945
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	2946
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	2947	if (IN_type_symbol == NULL)
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	2948	IN_type_symbol = last_type_symbol;
149 05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	2949	ADD_PARAM_LIST(IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in)
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	2950	symbol_c * return_type_symbol = &search_constant_type_c::byte_type_name;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	2951	function_type_prefix = return_type_symbol;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	2952	break;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	2953
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	2954	}
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	2955
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	2956
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	2957	ERROR;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	2958	}
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	2959
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	2960	}/function_dint_to_byte/
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	2961	break;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	2962
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	2963	/****
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	2964	*DINT_TO_USINT
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	2965	*/
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	2966	case function_dint_to_usint :
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	2967	{
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	2968	symbol_c *last_type_symbol = NULL;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	2969
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	2970	{
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	2971	identifier_c param_name("IN");
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	2972	/* Get the value from a foo(<param_name> = <param_value>) style call */
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	2973	symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
169 bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	2974	symbol_c *IN_type_symbol = NULL;
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	2975
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	2976	/* Get the value from a foo(<param_value>) style call */
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	2977	if (IN_param_value == NULL)
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	2978	IN_param_value = function_call_param_iterator.next();
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	2979	if (IN_param_value != NULL) {
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	2980	IN_type_symbol = search_expression_type->get_type(IN_param_value);
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	2981	last_type_symbol = last_type_symbol && IN_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	2982	}
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	2983
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	2984	if(IN_type_symbol == NULL \|\| search_expression_type->is_same_type(&search_constant_type_c::dint_type_name, last_type_symbol))
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	2985	{
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	2986
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	2987
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	2988	if (IN_type_symbol == NULL)
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	2989	IN_type_symbol = last_type_symbol;
149 05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	2990	ADD_PARAM_LIST(IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in)
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	2991	symbol_c * return_type_symbol = &search_constant_type_c::usint_type_name;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	2992	function_type_prefix = return_type_symbol;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	2993	break;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	2994
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	2995	}
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	2996
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	2997
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	2998	ERROR;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	2999	}
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	3000
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	3001	}/function_dint_to_usint/
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	3002	break;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	3003
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	3004	/****
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	3005	*DINT_TO_ULINT
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	3006	*/
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	3007	case function_dint_to_ulint :
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	3008	{
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	3009	symbol_c *last_type_symbol = NULL;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	3010
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	3011	{
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	3012	identifier_c param_name("IN");
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	3013	/* Get the value from a foo(<param_name> = <param_value>) style call */
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	3014	symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
169 bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	3015	symbol_c *IN_type_symbol = NULL;
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	3016
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	3017	/* Get the value from a foo(<param_value>) style call */
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	3018	if (IN_param_value == NULL)
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	3019	IN_param_value = function_call_param_iterator.next();
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	3020	if (IN_param_value != NULL) {
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	3021	IN_type_symbol = search_expression_type->get_type(IN_param_value);
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	3022	last_type_symbol = last_type_symbol && IN_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	3023	}
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	3024
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	3025	if(IN_type_symbol == NULL \|\| search_expression_type->is_same_type(&search_constant_type_c::dint_type_name, last_type_symbol))
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	3026	{
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	3027
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	3028
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	3029	if (IN_type_symbol == NULL)
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	3030	IN_type_symbol = last_type_symbol;
149 05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	3031	ADD_PARAM_LIST(IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in)
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	3032	symbol_c * return_type_symbol = &search_constant_type_c::ulint_type_name;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	3033	function_type_prefix = return_type_symbol;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	3034	break;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	3035
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	3036	}
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	3037
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	3038
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	3039	ERROR;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	3040	}
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	3041
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	3042	}/function_dint_to_ulint/
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	3043	break;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	3044
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	3045	/****
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	3046	*DINT_TO_BOOL
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	3047	*/
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	3048	case function_dint_to_bool :
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	3049	{
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	3050	symbol_c *last_type_symbol = NULL;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	3051
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	3052	{
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	3053	identifier_c param_name("IN");
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	3054	/* Get the value from a foo(<param_name> = <param_value>) style call */
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	3055	symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
169 bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	3056	symbol_c *IN_type_symbol = NULL;
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	3057
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	3058	/* Get the value from a foo(<param_value>) style call */
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	3059	if (IN_param_value == NULL)
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	3060	IN_param_value = function_call_param_iterator.next();
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	3061	if (IN_param_value != NULL) {
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	3062	IN_type_symbol = search_expression_type->get_type(IN_param_value);
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	3063	last_type_symbol = last_type_symbol && IN_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	3064	}
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	3065
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	3066	if(IN_type_symbol == NULL \|\| search_expression_type->is_same_type(&search_constant_type_c::dint_type_name, last_type_symbol))
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	3067	{
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	3068
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	3069
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	3070	if (IN_type_symbol == NULL)
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	3071	IN_type_symbol = last_type_symbol;
149 05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	3072	ADD_PARAM_LIST(IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in)
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	3073	symbol_c * return_type_symbol = &search_constant_type_c::bool_type_name;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	3074	function_type_prefix = return_type_symbol;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	3075	break;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	3076
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	3077	}
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	3078
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	3079
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	3080	ERROR;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	3081	}
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	3082
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	3083	}/function_dint_to_bool/
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	3084	break;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	3085
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	3086	/****
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	3087	*DINT_TO_TIME
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	3088	*/
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	3089	case function_dint_to_time :
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	3090	{
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	3091	symbol_c *last_type_symbol = NULL;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	3092
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	3093	{
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	3094	identifier_c param_name("IN");
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	3095	/* Get the value from a foo(<param_name> = <param_value>) style call */
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	3096	symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
169 bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	3097	symbol_c *IN_type_symbol = NULL;
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	3098
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	3099	/* Get the value from a foo(<param_value>) style call */
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	3100	if (IN_param_value == NULL)
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	3101	IN_param_value = function_call_param_iterator.next();
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	3102	if (IN_param_value != NULL) {
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	3103	IN_type_symbol = search_expression_type->get_type(IN_param_value);
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	3104	last_type_symbol = last_type_symbol && IN_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	3105	}
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	3106
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	3107	if(IN_type_symbol == NULL \|\| search_expression_type->is_same_type(&search_constant_type_c::dint_type_name, last_type_symbol))
149 05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	3108	{
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	3109
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	3110	function_name = (symbol_c*)(new pragma_c("__int_to_time"));
169 bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	3111
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	3112	if (IN_type_symbol == NULL)
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	3113	IN_type_symbol = last_type_symbol;
149 05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	3114	ADD_PARAM_LIST(IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in)
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	3115	symbol_c * return_type_symbol = &search_constant_type_c::time_type_name;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	3116	function_type_prefix = return_type_symbol;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	3117	break;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	3118
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	3119	}
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	3120
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	3121
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	3122	ERROR;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	3123	}
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	3124
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	3125	}/function_dint_to_time/
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	3126	break;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	3127
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	3128	/****
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	3129	*DINT_TO_INT
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	3130	*/
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	3131	case function_dint_to_int :
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	3132	{
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	3133	symbol_c *last_type_symbol = NULL;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	3134
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	3135	{
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	3136	identifier_c param_name("IN");
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	3137	/* Get the value from a foo(<param_name> = <param_value>) style call */
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	3138	symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
169 bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	3139	symbol_c *IN_type_symbol = NULL;
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	3140
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	3141	/* Get the value from a foo(<param_value>) style call */
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	3142	if (IN_param_value == NULL)
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	3143	IN_param_value = function_call_param_iterator.next();
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	3144	if (IN_param_value != NULL) {
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	3145	IN_type_symbol = search_expression_type->get_type(IN_param_value);
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	3146	last_type_symbol = last_type_symbol && IN_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	3147	}
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	3148
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	3149	if(IN_type_symbol == NULL \|\| search_expression_type->is_same_type(&search_constant_type_c::dint_type_name, last_type_symbol))
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	3150	{
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	3151
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	3152
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	3153	if (IN_type_symbol == NULL)
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	3154	IN_type_symbol = last_type_symbol;
149 05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	3155	ADD_PARAM_LIST(IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in)
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	3156	symbol_c * return_type_symbol = &search_constant_type_c::int_type_name;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	3157	function_type_prefix = return_type_symbol;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	3158	break;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	3159
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	3160	}
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	3161
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	3162
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	3163	ERROR;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	3164	}
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	3165
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	3166	}/function_dint_to_int/
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	3167	break;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	3168
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	3169	/****
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	3170	*DATE_TO_REAL
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	3171	*/
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	3172	case function_date_to_real :
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	3173	{
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	3174	symbol_c *last_type_symbol = NULL;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	3175
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	3176	{
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	3177	identifier_c param_name("IN");
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	3178	/* Get the value from a foo(<param_name> = <param_value>) style call */
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	3179	symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
169 bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	3180	symbol_c *IN_type_symbol = NULL;
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	3181
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	3182	/* Get the value from a foo(<param_value>) style call */
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	3183	if (IN_param_value == NULL)
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	3184	IN_param_value = function_call_param_iterator.next();
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	3185	if (IN_param_value != NULL) {
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	3186	IN_type_symbol = search_expression_type->get_type(IN_param_value);
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	3187	last_type_symbol = last_type_symbol && IN_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	3188	}
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	3189
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	3190	if(IN_type_symbol == NULL \|\| search_expression_type->is_same_type(&search_constant_type_c::date_type_name, last_type_symbol))
149 05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	3191	{
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	3192
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	3193	function_name = (symbol_c*)(new pragma_c("__time_to_real"));
169 bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	3194
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	3195	if (IN_type_symbol == NULL)
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	3196	IN_type_symbol = last_type_symbol;
149 05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	3197	ADD_PARAM_LIST(IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in)
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	3198	symbol_c * return_type_symbol = &search_constant_type_c::real_type_name;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	3199	function_type_prefix = return_type_symbol;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	3200	break;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	3201
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	3202	}
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	3203
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	3204
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	3205	ERROR;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	3206	}
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	3207
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	3208	}/function_date_to_real/
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	3209	break;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	3210
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	3211	/****
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	3212	*DATE_TO_SINT
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	3213	*/
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	3214	case function_date_to_sint :
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	3215	{
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	3216	symbol_c *last_type_symbol = NULL;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	3217
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	3218	{
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	3219	identifier_c param_name("IN");
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	3220	/* Get the value from a foo(<param_name> = <param_value>) style call */
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	3221	symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
169 bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	3222	symbol_c *IN_type_symbol = NULL;
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	3223
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	3224	/* Get the value from a foo(<param_value>) style call */
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	3225	if (IN_param_value == NULL)
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	3226	IN_param_value = function_call_param_iterator.next();
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	3227	if (IN_param_value != NULL) {
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	3228	IN_type_symbol = search_expression_type->get_type(IN_param_value);
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	3229	last_type_symbol = last_type_symbol && IN_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	3230	}
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	3231
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	3232	if(IN_type_symbol == NULL \|\| search_expression_type->is_same_type(&search_constant_type_c::date_type_name, last_type_symbol))
149 05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	3233	{
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	3234
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	3235	function_name = (symbol_c*)(new pragma_c("__time_to_int"));
169 bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	3236
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	3237	if (IN_type_symbol == NULL)
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	3238	IN_type_symbol = last_type_symbol;
149 05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	3239	ADD_PARAM_LIST(IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in)
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	3240	symbol_c * return_type_symbol = &search_constant_type_c::sint_type_name;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	3241	function_type_prefix = return_type_symbol;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	3242	break;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	3243
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	3244	}
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	3245
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	3246
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	3247	ERROR;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	3248	}
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	3249
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	3250	}/function_date_to_sint/
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	3251	break;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	3252
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	3253	/****
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	3254	*DATE_TO_LINT
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	3255	*/
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	3256	case function_date_to_lint :
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	3257	{
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	3258	symbol_c *last_type_symbol = NULL;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	3259
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	3260	{
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	3261	identifier_c param_name("IN");
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	3262	/* Get the value from a foo(<param_name> = <param_value>) style call */
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	3263	symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
169 bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	3264	symbol_c *IN_type_symbol = NULL;
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	3265
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	3266	/* Get the value from a foo(<param_value>) style call */
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	3267	if (IN_param_value == NULL)
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	3268	IN_param_value = function_call_param_iterator.next();
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	3269	if (IN_param_value != NULL) {
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	3270	IN_type_symbol = search_expression_type->get_type(IN_param_value);
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	3271	last_type_symbol = last_type_symbol && IN_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	3272	}
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	3273
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	3274	if(IN_type_symbol == NULL \|\| search_expression_type->is_same_type(&search_constant_type_c::date_type_name, last_type_symbol))
149 05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	3275	{
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	3276
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	3277	function_name = (symbol_c*)(new pragma_c("__time_to_int"));
169 bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	3278
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	3279	if (IN_type_symbol == NULL)
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	3280	IN_type_symbol = last_type_symbol;
149 05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	3281	ADD_PARAM_LIST(IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in)
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	3282	symbol_c * return_type_symbol = &search_constant_type_c::lint_type_name;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	3283	function_type_prefix = return_type_symbol;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	3284	break;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	3285
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	3286	}
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	3287
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	3288
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	3289	ERROR;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	3290	}
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	3291
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	3292	}/function_date_to_lint/
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	3293	break;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	3294
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	3295	/****
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	3296	*DATE_TO_DINT
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	3297	*/
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	3298	case function_date_to_dint :
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	3299	{
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	3300	symbol_c *last_type_symbol = NULL;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	3301
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	3302	{
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	3303	identifier_c param_name("IN");
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	3304	/* Get the value from a foo(<param_name> = <param_value>) style call */
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	3305	symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
169 bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	3306	symbol_c *IN_type_symbol = NULL;
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	3307
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	3308	/* Get the value from a foo(<param_value>) style call */
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	3309	if (IN_param_value == NULL)
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	3310	IN_param_value = function_call_param_iterator.next();
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	3311	if (IN_param_value != NULL) {
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	3312	IN_type_symbol = search_expression_type->get_type(IN_param_value);
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	3313	last_type_symbol = last_type_symbol && IN_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	3314	}
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	3315
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	3316	if(IN_type_symbol == NULL \|\| search_expression_type->is_same_type(&search_constant_type_c::date_type_name, last_type_symbol))
149 05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	3317	{
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	3318
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	3319	function_name = (symbol_c*)(new pragma_c("__time_to_int"));
169 bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	3320
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	3321	if (IN_type_symbol == NULL)
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	3322	IN_type_symbol = last_type_symbol;
149 05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	3323	ADD_PARAM_LIST(IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in)
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	3324	symbol_c * return_type_symbol = &search_constant_type_c::dint_type_name;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	3325	function_type_prefix = return_type_symbol;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	3326	break;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	3327
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	3328	}
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	3329
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	3330
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	3331	ERROR;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	3332	}
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	3333
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	3334	}/function_date_to_dint/
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	3335	break;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	3336
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	3337	/****
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	3338	*DATE_TO_DWORD
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	3339	*/
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	3340	case function_date_to_dword :
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	3341	{
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	3342	symbol_c *last_type_symbol = NULL;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	3343
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	3344	{
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	3345	identifier_c param_name("IN");
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	3346	/* Get the value from a foo(<param_name> = <param_value>) style call */
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	3347	symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
169 bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	3348	symbol_c *IN_type_symbol = NULL;
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	3349
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	3350	/* Get the value from a foo(<param_value>) style call */
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	3351	if (IN_param_value == NULL)
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	3352	IN_param_value = function_call_param_iterator.next();
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	3353	if (IN_param_value != NULL) {
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	3354	IN_type_symbol = search_expression_type->get_type(IN_param_value);
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	3355	last_type_symbol = last_type_symbol && IN_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	3356	}
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	3357
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	3358	if(IN_type_symbol == NULL \|\| search_expression_type->is_same_type(&search_constant_type_c::date_type_name, last_type_symbol))
149 05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	3359	{
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	3360
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	3361	function_name = (symbol_c*)(new pragma_c("__time_to_int"));
169 bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	3362
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	3363	if (IN_type_symbol == NULL)
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	3364	IN_type_symbol = last_type_symbol;
149 05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	3365	ADD_PARAM_LIST(IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in)
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	3366	symbol_c * return_type_symbol = &search_constant_type_c::dword_type_name;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	3367	function_type_prefix = return_type_symbol;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	3368	break;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	3369
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	3370	}
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	3371
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	3372
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	3373	ERROR;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	3374	}
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	3375
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	3376	}/function_date_to_dword/
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	3377	break;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	3378
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	3379	/****
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	3380	*DATE_TO_UDINT
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	3381	*/
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	3382	case function_date_to_udint :
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	3383	{
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	3384	symbol_c *last_type_symbol = NULL;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	3385
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	3386	{
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	3387	identifier_c param_name("IN");
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	3388	/* Get the value from a foo(<param_name> = <param_value>) style call */
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	3389	symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
169 bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	3390	symbol_c *IN_type_symbol = NULL;
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	3391
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	3392	/* Get the value from a foo(<param_value>) style call */
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	3393	if (IN_param_value == NULL)
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	3394	IN_param_value = function_call_param_iterator.next();
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	3395	if (IN_param_value != NULL) {
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	3396	IN_type_symbol = search_expression_type->get_type(IN_param_value);
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	3397	last_type_symbol = last_type_symbol && IN_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	3398	}
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	3399
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	3400	if(IN_type_symbol == NULL \|\| search_expression_type->is_same_type(&search_constant_type_c::date_type_name, last_type_symbol))
149 05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	3401	{
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	3402
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	3403	function_name = (symbol_c*)(new pragma_c("__time_to_int"));
169 bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	3404
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	3405	if (IN_type_symbol == NULL)
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	3406	IN_type_symbol = last_type_symbol;
149 05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	3407	ADD_PARAM_LIST(IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in)
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	3408	symbol_c * return_type_symbol = &search_constant_type_c::udint_type_name;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	3409	function_type_prefix = return_type_symbol;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	3410	break;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	3411
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	3412	}
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	3413
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	3414
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	3415	ERROR;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	3416	}
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	3417
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	3418	}/function_date_to_udint/
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	3419	break;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	3420
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	3421	/****
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	3422	*DATE_TO_WORD
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	3423	*/
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	3424	case function_date_to_word :
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	3425	{
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	3426	symbol_c *last_type_symbol = NULL;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	3427
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	3428	{
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	3429	identifier_c param_name("IN");
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	3430	/* Get the value from a foo(<param_name> = <param_value>) style call */
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	3431	symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
169 bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	3432	symbol_c *IN_type_symbol = NULL;
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	3433
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	3434	/* Get the value from a foo(<param_value>) style call */
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	3435	if (IN_param_value == NULL)
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	3436	IN_param_value = function_call_param_iterator.next();
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	3437	if (IN_param_value != NULL) {
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	3438	IN_type_symbol = search_expression_type->get_type(IN_param_value);
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	3439	last_type_symbol = last_type_symbol && IN_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	3440	}
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	3441
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	3442	if(IN_type_symbol == NULL \|\| search_expression_type->is_same_type(&search_constant_type_c::date_type_name, last_type_symbol))
149 05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	3443	{
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	3444
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	3445	function_name = (symbol_c*)(new pragma_c("__time_to_int"));
169 bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	3446
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	3447	if (IN_type_symbol == NULL)
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	3448	IN_type_symbol = last_type_symbol;
149 05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	3449	ADD_PARAM_LIST(IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in)
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	3450	symbol_c * return_type_symbol = &search_constant_type_c::word_type_name;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	3451	function_type_prefix = return_type_symbol;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	3452	break;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	3453
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	3454	}
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	3455
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	3456
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	3457	ERROR;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	3458	}
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	3459
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	3460	}/function_date_to_word/
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	3461	break;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	3462
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	3463	/****
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	3464	*DATE_TO_STRING
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	3465	*/
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	3466	case function_date_to_string :
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	3467	{
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	3468	symbol_c *last_type_symbol = NULL;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	3469
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	3470	{
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	3471	identifier_c param_name("IN");
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	3472	/* Get the value from a foo(<param_name> = <param_value>) style call */
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	3473	symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
169 bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	3474	symbol_c *IN_type_symbol = NULL;
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	3475
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	3476	/* Get the value from a foo(<param_value>) style call */
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	3477	if (IN_param_value == NULL)
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	3478	IN_param_value = function_call_param_iterator.next();
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	3479	if (IN_param_value != NULL) {
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	3480	IN_type_symbol = search_expression_type->get_type(IN_param_value);
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	3481	last_type_symbol = last_type_symbol && IN_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	3482	}
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	3483
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	3484	if(IN_type_symbol == NULL \|\| search_expression_type->is_same_type(&search_constant_type_c::date_type_name, last_type_symbol))
149 05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	3485	{
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	3486
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	3487	function_name = (symbol_c*)(new pragma_c("__date_to_string"));
169 bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	3488
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	3489	if (IN_type_symbol == NULL)
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	3490	IN_type_symbol = last_type_symbol;
149 05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	3491	ADD_PARAM_LIST(IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in)
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	3492	symbol_c * return_type_symbol = &search_constant_type_c::string_type_name;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	3493	function_type_prefix = return_type_symbol;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	3494	break;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	3495
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	3496	}
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	3497
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	3498
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	3499	ERROR;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	3500	}
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	3501
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	3502	}/function_date_to_string/
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	3503	break;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	3504
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	3505	/****
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	3506	*DATE_TO_LWORD
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	3507	*/
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	3508	case function_date_to_lword :
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	3509	{
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	3510	symbol_c *last_type_symbol = NULL;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	3511
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	3512	{
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	3513	identifier_c param_name("IN");
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	3514	/* Get the value from a foo(<param_name> = <param_value>) style call */
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	3515	symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
169 bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	3516	symbol_c *IN_type_symbol = NULL;
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	3517
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	3518	/* Get the value from a foo(<param_value>) style call */
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	3519	if (IN_param_value == NULL)
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	3520	IN_param_value = function_call_param_iterator.next();
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	3521	if (IN_param_value != NULL) {
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	3522	IN_type_symbol = search_expression_type->get_type(IN_param_value);
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	3523	last_type_symbol = last_type_symbol && IN_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	3524	}
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	3525
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	3526	if(IN_type_symbol == NULL \|\| search_expression_type->is_same_type(&search_constant_type_c::date_type_name, last_type_symbol))
149 05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	3527	{
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	3528
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	3529	function_name = (symbol_c*)(new pragma_c("__time_to_int"));
169 bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	3530
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	3531	if (IN_type_symbol == NULL)
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	3532	IN_type_symbol = last_type_symbol;
149 05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	3533	ADD_PARAM_LIST(IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in)
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	3534	symbol_c * return_type_symbol = &search_constant_type_c::lword_type_name;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	3535	function_type_prefix = return_type_symbol;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	3536	break;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	3537
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	3538	}
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	3539
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	3540
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	3541	ERROR;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	3542	}
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	3543
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	3544	}/function_date_to_lword/
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	3545	break;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	3546
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	3547	/****
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	3548	*DATE_TO_UINT
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	3549	*/
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	3550	case function_date_to_uint :
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	3551	{
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	3552	symbol_c *last_type_symbol = NULL;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	3553
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	3554	{
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	3555	identifier_c param_name("IN");
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	3556	/* Get the value from a foo(<param_name> = <param_value>) style call */
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	3557	symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
169 bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	3558	symbol_c *IN_type_symbol = NULL;
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	3559
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	3560	/* Get the value from a foo(<param_value>) style call */
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	3561	if (IN_param_value == NULL)
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	3562	IN_param_value = function_call_param_iterator.next();
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	3563	if (IN_param_value != NULL) {
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	3564	IN_type_symbol = search_expression_type->get_type(IN_param_value);
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	3565	last_type_symbol = last_type_symbol && IN_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	3566	}
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	3567
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	3568	if(IN_type_symbol == NULL \|\| search_expression_type->is_same_type(&search_constant_type_c::date_type_name, last_type_symbol))
149 05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	3569	{
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	3570
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	3571	function_name = (symbol_c*)(new pragma_c("__time_to_int"));
169 bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	3572
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	3573	if (IN_type_symbol == NULL)
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	3574	IN_type_symbol = last_type_symbol;
149 05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	3575	ADD_PARAM_LIST(IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in)
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	3576	symbol_c * return_type_symbol = &search_constant_type_c::uint_type_name;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	3577	function_type_prefix = return_type_symbol;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	3578	break;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	3579
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	3580	}
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	3581
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	3582
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	3583	ERROR;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	3584	}
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	3585
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	3586	}/function_date_to_uint/
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	3587	break;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	3588
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	3589	/****
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	3590	*DATE_TO_LREAL
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	3591	*/
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	3592	case function_date_to_lreal :
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	3593	{
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	3594	symbol_c *last_type_symbol = NULL;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	3595
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	3596	{
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	3597	identifier_c param_name("IN");
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	3598	/* Get the value from a foo(<param_name> = <param_value>) style call */
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	3599	symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
169 bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	3600	symbol_c *IN_type_symbol = NULL;
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	3601
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	3602	/* Get the value from a foo(<param_value>) style call */
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	3603	if (IN_param_value == NULL)
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	3604	IN_param_value = function_call_param_iterator.next();
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	3605	if (IN_param_value != NULL) {
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	3606	IN_type_symbol = search_expression_type->get_type(IN_param_value);
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	3607	last_type_symbol = last_type_symbol && IN_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	3608	}
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	3609
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	3610	if(IN_type_symbol == NULL \|\| search_expression_type->is_same_type(&search_constant_type_c::date_type_name, last_type_symbol))
149 05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	3611	{
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	3612
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	3613	function_name = (symbol_c*)(new pragma_c("__time_to_real"));
169 bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	3614
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	3615	if (IN_type_symbol == NULL)
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	3616	IN_type_symbol = last_type_symbol;
149 05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	3617	ADD_PARAM_LIST(IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in)
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	3618	symbol_c * return_type_symbol = &search_constant_type_c::lreal_type_name;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	3619	function_type_prefix = return_type_symbol;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	3620	break;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	3621
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	3622	}
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	3623
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	3624
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	3625	ERROR;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	3626	}
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	3627
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	3628	}/function_date_to_lreal/
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	3629	break;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	3630
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	3631	/****
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	3632	*DATE_TO_BYTE
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	3633	*/
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	3634	case function_date_to_byte :
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	3635	{
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	3636	symbol_c *last_type_symbol = NULL;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	3637
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	3638	{
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	3639	identifier_c param_name("IN");
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	3640	/* Get the value from a foo(<param_name> = <param_value>) style call */
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	3641	symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
169 bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	3642	symbol_c *IN_type_symbol = NULL;
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	3643
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	3644	/* Get the value from a foo(<param_value>) style call */
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	3645	if (IN_param_value == NULL)
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	3646	IN_param_value = function_call_param_iterator.next();
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	3647	if (IN_param_value != NULL) {
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	3648	IN_type_symbol = search_expression_type->get_type(IN_param_value);
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	3649	last_type_symbol = last_type_symbol && IN_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	3650	}
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	3651
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	3652	if(IN_type_symbol == NULL \|\| search_expression_type->is_same_type(&search_constant_type_c::date_type_name, last_type_symbol))
149 05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	3653	{
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	3654
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	3655	function_name = (symbol_c*)(new pragma_c("__time_to_int"));
169 bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	3656
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	3657	if (IN_type_symbol == NULL)
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	3658	IN_type_symbol = last_type_symbol;
149 05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	3659	ADD_PARAM_LIST(IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in)
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	3660	symbol_c * return_type_symbol = &search_constant_type_c::byte_type_name;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	3661	function_type_prefix = return_type_symbol;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	3662	break;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	3663
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	3664	}
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	3665
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	3666
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	3667	ERROR;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	3668	}
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	3669
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	3670	}/function_date_to_byte/
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	3671	break;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	3672
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	3673	/****
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	3674	*DATE_TO_USINT
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	3675	*/
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	3676	case function_date_to_usint :
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	3677	{
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	3678	symbol_c *last_type_symbol = NULL;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	3679
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	3680	{
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	3681	identifier_c param_name("IN");
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	3682	/* Get the value from a foo(<param_name> = <param_value>) style call */
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	3683	symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
169 bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	3684	symbol_c *IN_type_symbol = NULL;
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	3685
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	3686	/* Get the value from a foo(<param_value>) style call */
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	3687	if (IN_param_value == NULL)
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	3688	IN_param_value = function_call_param_iterator.next();
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	3689	if (IN_param_value != NULL) {
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	3690	IN_type_symbol = search_expression_type->get_type(IN_param_value);
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	3691	last_type_symbol = last_type_symbol && IN_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	3692	}
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	3693
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	3694	if(IN_type_symbol == NULL \|\| search_expression_type->is_same_type(&search_constant_type_c::date_type_name, last_type_symbol))
149 05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	3695	{
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	3696
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	3697	function_name = (symbol_c*)(new pragma_c("__time_to_int"));
169 bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	3698
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	3699	if (IN_type_symbol == NULL)
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	3700	IN_type_symbol = last_type_symbol;
149 05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	3701	ADD_PARAM_LIST(IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in)
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	3702	symbol_c * return_type_symbol = &search_constant_type_c::usint_type_name;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	3703	function_type_prefix = return_type_symbol;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	3704	break;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	3705
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	3706	}
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	3707
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	3708
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	3709	ERROR;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	3710	}
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	3711
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	3712	}/function_date_to_usint/
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	3713	break;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	3714
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	3715	/****
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	3716	*DATE_TO_ULINT
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	3717	*/
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	3718	case function_date_to_ulint :
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	3719	{
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	3720	symbol_c *last_type_symbol = NULL;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	3721
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	3722	{
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	3723	identifier_c param_name("IN");
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	3724	/* Get the value from a foo(<param_name> = <param_value>) style call */
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	3725	symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
169 bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	3726	symbol_c *IN_type_symbol = NULL;
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	3727
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	3728	/* Get the value from a foo(<param_value>) style call */
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	3729	if (IN_param_value == NULL)
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	3730	IN_param_value = function_call_param_iterator.next();
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	3731	if (IN_param_value != NULL) {
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	3732	IN_type_symbol = search_expression_type->get_type(IN_param_value);
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	3733	last_type_symbol = last_type_symbol && IN_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	3734	}
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	3735
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	3736	if(IN_type_symbol == NULL \|\| search_expression_type->is_same_type(&search_constant_type_c::date_type_name, last_type_symbol))
149 05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	3737	{
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	3738
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	3739	function_name = (symbol_c*)(new pragma_c("__time_to_int"));
169 bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	3740
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	3741	if (IN_type_symbol == NULL)
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	3742	IN_type_symbol = last_type_symbol;
149 05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	3743	ADD_PARAM_LIST(IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in)
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	3744	symbol_c * return_type_symbol = &search_constant_type_c::ulint_type_name;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	3745	function_type_prefix = return_type_symbol;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	3746	break;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	3747
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	3748	}
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	3749
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	3750
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	3751	ERROR;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	3752	}
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	3753
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	3754	}/function_date_to_ulint/
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	3755	break;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	3756
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	3757	/****
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	3758	*DATE_TO_INT
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	3759	*/
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	3760	case function_date_to_int :
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	3761	{
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	3762	symbol_c *last_type_symbol = NULL;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	3763
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	3764	{
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	3765	identifier_c param_name("IN");
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	3766	/* Get the value from a foo(<param_name> = <param_value>) style call */
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	3767	symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
169 bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	3768	symbol_c *IN_type_symbol = NULL;
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	3769
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	3770	/* Get the value from a foo(<param_value>) style call */
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	3771	if (IN_param_value == NULL)
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	3772	IN_param_value = function_call_param_iterator.next();
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	3773	if (IN_param_value != NULL) {
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	3774	IN_type_symbol = search_expression_type->get_type(IN_param_value);
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	3775	last_type_symbol = last_type_symbol && IN_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	3776	}
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	3777
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	3778	if(IN_type_symbol == NULL \|\| search_expression_type->is_same_type(&search_constant_type_c::date_type_name, last_type_symbol))
149 05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	3779	{
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	3780
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	3781	function_name = (symbol_c*)(new pragma_c("__time_to_int"));
169 bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	3782
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	3783	if (IN_type_symbol == NULL)
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	3784	IN_type_symbol = last_type_symbol;
149 05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	3785	ADD_PARAM_LIST(IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in)
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	3786	symbol_c * return_type_symbol = &search_constant_type_c::int_type_name;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	3787	function_type_prefix = return_type_symbol;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	3788	break;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	3789
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	3790	}
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	3791
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	3792
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	3793	ERROR;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	3794	}
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	3795
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	3796	}/function_date_to_int/
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	3797	break;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	3798
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	3799	/****
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	3800	*DWORD_TO_REAL
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	3801	*/
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	3802	case function_dword_to_real :
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	3803	{
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	3804	symbol_c *last_type_symbol = NULL;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	3805
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	3806	{
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	3807	identifier_c param_name("IN");
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	3808	/* Get the value from a foo(<param_name> = <param_value>) style call */
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	3809	symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
169 bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	3810	symbol_c *IN_type_symbol = NULL;
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	3811
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	3812	/* Get the value from a foo(<param_value>) style call */
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	3813	if (IN_param_value == NULL)
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	3814	IN_param_value = function_call_param_iterator.next();
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	3815	if (IN_param_value != NULL) {
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	3816	IN_type_symbol = search_expression_type->get_type(IN_param_value);
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	3817	last_type_symbol = last_type_symbol && IN_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	3818	}
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	3819
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	3820	if(IN_type_symbol == NULL \|\| search_expression_type->is_same_type(&search_constant_type_c::dword_type_name, last_type_symbol))
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	3821	{
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	3822
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	3823
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	3824	if (IN_type_symbol == NULL)
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	3825	IN_type_symbol = last_type_symbol;
149 05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	3826	ADD_PARAM_LIST(IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in)
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	3827	symbol_c * return_type_symbol = &search_constant_type_c::real_type_name;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	3828	function_type_prefix = return_type_symbol;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	3829	break;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	3830
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	3831	}
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	3832
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	3833
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	3834	ERROR;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	3835	}
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	3836
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	3837	}/function_dword_to_real/
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	3838	break;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	3839
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	3840	/****
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	3841	*DWORD_TO_SINT
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	3842	*/
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	3843	case function_dword_to_sint :
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	3844	{
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	3845	symbol_c *last_type_symbol = NULL;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	3846
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	3847	{
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	3848	identifier_c param_name("IN");
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	3849	/* Get the value from a foo(<param_name> = <param_value>) style call */
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	3850	symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
169 bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	3851	symbol_c *IN_type_symbol = NULL;
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	3852
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	3853	/* Get the value from a foo(<param_value>) style call */
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	3854	if (IN_param_value == NULL)
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	3855	IN_param_value = function_call_param_iterator.next();
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	3856	if (IN_param_value != NULL) {
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	3857	IN_type_symbol = search_expression_type->get_type(IN_param_value);
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	3858	last_type_symbol = last_type_symbol && IN_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	3859	}
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	3860
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	3861	if(IN_type_symbol == NULL \|\| search_expression_type->is_same_type(&search_constant_type_c::dword_type_name, last_type_symbol))
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	3862	{
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	3863
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	3864
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	3865	if (IN_type_symbol == NULL)
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	3866	IN_type_symbol = last_type_symbol;
149 05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	3867	ADD_PARAM_LIST(IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in)
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	3868	symbol_c * return_type_symbol = &search_constant_type_c::sint_type_name;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	3869	function_type_prefix = return_type_symbol;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	3870	break;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	3871
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	3872	}
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	3873
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	3874
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	3875	ERROR;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	3876	}
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	3877
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	3878	}/function_dword_to_sint/
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	3879	break;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	3880
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	3881	/****
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	3882	*DWORD_TO_LINT
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	3883	*/
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	3884	case function_dword_to_lint :
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	3885	{
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	3886	symbol_c *last_type_symbol = NULL;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	3887
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	3888	{
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	3889	identifier_c param_name("IN");
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	3890	/* Get the value from a foo(<param_name> = <param_value>) style call */
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	3891	symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
169 bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	3892	symbol_c *IN_type_symbol = NULL;
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	3893
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	3894	/* Get the value from a foo(<param_value>) style call */
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	3895	if (IN_param_value == NULL)
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	3896	IN_param_value = function_call_param_iterator.next();
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	3897	if (IN_param_value != NULL) {
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	3898	IN_type_symbol = search_expression_type->get_type(IN_param_value);
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	3899	last_type_symbol = last_type_symbol && IN_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	3900	}
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	3901
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	3902	if(IN_type_symbol == NULL \|\| search_expression_type->is_same_type(&search_constant_type_c::dword_type_name, last_type_symbol))
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	3903	{
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	3904
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	3905
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	3906	if (IN_type_symbol == NULL)
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	3907	IN_type_symbol = last_type_symbol;
149 05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	3908	ADD_PARAM_LIST(IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in)
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	3909	symbol_c * return_type_symbol = &search_constant_type_c::lint_type_name;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	3910	function_type_prefix = return_type_symbol;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	3911	break;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	3912
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	3913	}
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	3914
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	3915
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	3916	ERROR;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	3917	}
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	3918
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	3919	}/function_dword_to_lint/
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	3920	break;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	3921
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	3922	/****
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	3923	*DWORD_TO_DINT
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	3924	*/
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	3925	case function_dword_to_dint :
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	3926	{
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	3927	symbol_c *last_type_symbol = NULL;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	3928
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	3929	{
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	3930	identifier_c param_name("IN");
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	3931	/* Get the value from a foo(<param_name> = <param_value>) style call */
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	3932	symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
169 bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	3933	symbol_c *IN_type_symbol = NULL;
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	3934
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	3935	/* Get the value from a foo(<param_value>) style call */
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	3936	if (IN_param_value == NULL)
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	3937	IN_param_value = function_call_param_iterator.next();
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	3938	if (IN_param_value != NULL) {
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	3939	IN_type_symbol = search_expression_type->get_type(IN_param_value);
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	3940	last_type_symbol = last_type_symbol && IN_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	3941	}
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	3942
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	3943	if(IN_type_symbol == NULL \|\| search_expression_type->is_same_type(&search_constant_type_c::dword_type_name, last_type_symbol))
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	3944	{
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	3945
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	3946
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	3947	if (IN_type_symbol == NULL)
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	3948	IN_type_symbol = last_type_symbol;
149 05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	3949	ADD_PARAM_LIST(IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in)
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	3950	symbol_c * return_type_symbol = &search_constant_type_c::dint_type_name;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	3951	function_type_prefix = return_type_symbol;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	3952	break;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	3953
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	3954	}
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	3955
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	3956
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	3957	ERROR;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	3958	}
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	3959
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	3960	}/function_dword_to_dint/
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	3961	break;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	3962
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	3963	/****
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	3964	*DWORD_TO_DATE
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	3965	*/
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	3966	case function_dword_to_date :
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	3967	{
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	3968	symbol_c *last_type_symbol = NULL;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	3969
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	3970	{
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	3971	identifier_c param_name("IN");
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	3972	/* Get the value from a foo(<param_name> = <param_value>) style call */
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	3973	symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
169 bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	3974	symbol_c *IN_type_symbol = NULL;
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	3975
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	3976	/* Get the value from a foo(<param_value>) style call */
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	3977	if (IN_param_value == NULL)
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	3978	IN_param_value = function_call_param_iterator.next();
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	3979	if (IN_param_value != NULL) {
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	3980	IN_type_symbol = search_expression_type->get_type(IN_param_value);
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	3981	last_type_symbol = last_type_symbol && IN_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	3982	}
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	3983
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	3984	if(IN_type_symbol == NULL \|\| search_expression_type->is_same_type(&search_constant_type_c::dword_type_name, last_type_symbol))
149 05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	3985	{
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	3986
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	3987	function_name = (symbol_c*)(new pragma_c("__int_to_time"));
169 bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	3988
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	3989	if (IN_type_symbol == NULL)
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	3990	IN_type_symbol = last_type_symbol;
149 05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	3991	ADD_PARAM_LIST(IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in)
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	3992	symbol_c * return_type_symbol = &search_constant_type_c::date_type_name;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	3993	function_type_prefix = return_type_symbol;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	3994	break;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	3995
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	3996	}
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	3997
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	3998
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	3999	ERROR;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	4000	}
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	4001
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	4002	}/function_dword_to_date/
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	4003	break;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	4004
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	4005	/****
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	4006	*DWORD_TO_DT
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	4007	*/
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	4008	case function_dword_to_dt :
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	4009	{
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	4010	symbol_c *last_type_symbol = NULL;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	4011
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	4012	{
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	4013	identifier_c param_name("IN");
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	4014	/* Get the value from a foo(<param_name> = <param_value>) style call */
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	4015	symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
169 bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	4016	symbol_c *IN_type_symbol = NULL;
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	4017
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	4018	/* Get the value from a foo(<param_value>) style call */
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	4019	if (IN_param_value == NULL)
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	4020	IN_param_value = function_call_param_iterator.next();
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	4021	if (IN_param_value != NULL) {
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	4022	IN_type_symbol = search_expression_type->get_type(IN_param_value);
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	4023	last_type_symbol = last_type_symbol && IN_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	4024	}
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	4025
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	4026	if(IN_type_symbol == NULL \|\| search_expression_type->is_same_type(&search_constant_type_c::dword_type_name, last_type_symbol))
149 05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	4027	{
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	4028
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	4029	function_name = (symbol_c*)(new pragma_c("__int_to_time"));
169 bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	4030
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	4031	if (IN_type_symbol == NULL)
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	4032	IN_type_symbol = last_type_symbol;
149 05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	4033	ADD_PARAM_LIST(IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in)
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	4034	symbol_c * return_type_symbol = &search_constant_type_c::dt_type_name;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	4035	function_type_prefix = return_type_symbol;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	4036	break;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	4037
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	4038	}
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	4039
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	4040
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	4041	ERROR;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	4042	}
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	4043
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	4044	}/function_dword_to_dt/
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	4045	break;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	4046
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	4047	/****
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	4048	*DWORD_TO_TOD
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	4049	*/
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	4050	case function_dword_to_tod :
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	4051	{
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	4052	symbol_c *last_type_symbol = NULL;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	4053
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	4054	{
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	4055	identifier_c param_name("IN");
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	4056	/* Get the value from a foo(<param_name> = <param_value>) style call */
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	4057	symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
169 bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	4058	symbol_c *IN_type_symbol = NULL;
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	4059
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	4060	/* Get the value from a foo(<param_value>) style call */
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	4061	if (IN_param_value == NULL)
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	4062	IN_param_value = function_call_param_iterator.next();
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	4063	if (IN_param_value != NULL) {
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	4064	IN_type_symbol = search_expression_type->get_type(IN_param_value);
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	4065	last_type_symbol = last_type_symbol && IN_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	4066	}
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	4067
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	4068	if(IN_type_symbol == NULL \|\| search_expression_type->is_same_type(&search_constant_type_c::dword_type_name, last_type_symbol))
149 05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	4069	{
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	4070
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	4071	function_name = (symbol_c*)(new pragma_c("__int_to_time"));
169 bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	4072
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	4073	if (IN_type_symbol == NULL)
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	4074	IN_type_symbol = last_type_symbol;
149 05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	4075	ADD_PARAM_LIST(IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in)
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	4076	symbol_c * return_type_symbol = &search_constant_type_c::tod_type_name;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	4077	function_type_prefix = return_type_symbol;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	4078	break;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	4079
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	4080	}
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	4081
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	4082
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	4083	ERROR;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	4084	}
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	4085
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	4086	}/function_dword_to_tod/
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	4087	break;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	4088
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	4089	/****
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	4090	*DWORD_TO_UDINT
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	4091	*/
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	4092	case function_dword_to_udint :
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	4093	{
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	4094	symbol_c *last_type_symbol = NULL;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	4095
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	4096	{
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	4097	identifier_c param_name("IN");
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	4098	/* Get the value from a foo(<param_name> = <param_value>) style call */
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	4099	symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
169 bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	4100	symbol_c *IN_type_symbol = NULL;
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	4101
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	4102	/* Get the value from a foo(<param_value>) style call */
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	4103	if (IN_param_value == NULL)
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	4104	IN_param_value = function_call_param_iterator.next();
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	4105	if (IN_param_value != NULL) {
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	4106	IN_type_symbol = search_expression_type->get_type(IN_param_value);
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	4107	last_type_symbol = last_type_symbol && IN_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	4108	}
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	4109
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	4110	if(IN_type_symbol == NULL \|\| search_expression_type->is_same_type(&search_constant_type_c::dword_type_name, last_type_symbol))
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	4111	{
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	4112
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	4113
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	4114	if (IN_type_symbol == NULL)
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	4115	IN_type_symbol = last_type_symbol;
149 05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	4116	ADD_PARAM_LIST(IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in)
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	4117	symbol_c * return_type_symbol = &search_constant_type_c::udint_type_name;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	4118	function_type_prefix = return_type_symbol;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	4119	break;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	4120
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	4121	}
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	4122
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	4123
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	4124	ERROR;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	4125	}
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	4126
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	4127	}/function_dword_to_udint/
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	4128	break;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	4129
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	4130	/****
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	4131	*DWORD_TO_WORD
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	4132	*/
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	4133	case function_dword_to_word :
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	4134	{
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	4135	symbol_c *last_type_symbol = NULL;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	4136
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	4137	{
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	4138	identifier_c param_name("IN");
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	4139	/* Get the value from a foo(<param_name> = <param_value>) style call */
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	4140	symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
169 bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	4141	symbol_c *IN_type_symbol = NULL;
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	4142
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	4143	/* Get the value from a foo(<param_value>) style call */
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	4144	if (IN_param_value == NULL)
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	4145	IN_param_value = function_call_param_iterator.next();
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	4146	if (IN_param_value != NULL) {
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	4147	IN_type_symbol = search_expression_type->get_type(IN_param_value);
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	4148	last_type_symbol = last_type_symbol && IN_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	4149	}
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	4150
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	4151	if(IN_type_symbol == NULL \|\| search_expression_type->is_same_type(&search_constant_type_c::dword_type_name, last_type_symbol))
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	4152	{
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	4153
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	4154
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	4155	if (IN_type_symbol == NULL)
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	4156	IN_type_symbol = last_type_symbol;
149 05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	4157	ADD_PARAM_LIST(IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in)
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	4158	symbol_c * return_type_symbol = &search_constant_type_c::word_type_name;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	4159	function_type_prefix = return_type_symbol;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	4160	break;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	4161
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	4162	}
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	4163
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	4164
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	4165	ERROR;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	4166	}
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	4167
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	4168	}/function_dword_to_word/
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	4169	break;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	4170
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	4171	/****
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	4172	*DWORD_TO_STRING
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	4173	*/
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	4174	case function_dword_to_string :
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	4175	{
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	4176	symbol_c *last_type_symbol = NULL;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	4177
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	4178	{
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	4179	identifier_c param_name("IN");
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	4180	/* Get the value from a foo(<param_name> = <param_value>) style call */
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	4181	symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
169 bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	4182	symbol_c *IN_type_symbol = NULL;
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	4183
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	4184	/* Get the value from a foo(<param_value>) style call */
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	4185	if (IN_param_value == NULL)
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	4186	IN_param_value = function_call_param_iterator.next();
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	4187	if (IN_param_value != NULL) {
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	4188	IN_type_symbol = search_expression_type->get_type(IN_param_value);
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	4189	last_type_symbol = last_type_symbol && IN_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	4190	}
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	4191
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	4192	if(IN_type_symbol == NULL \|\| search_expression_type->is_same_type(&search_constant_type_c::dword_type_name, last_type_symbol))
149 05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	4193	{
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	4194
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	4195	function_name = (symbol_c*)(new pragma_c("__bit_to_string"));
169 bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	4196
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	4197	if (IN_type_symbol == NULL)
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	4198	IN_type_symbol = last_type_symbol;
149 05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	4199	ADD_PARAM_LIST(IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in)
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	4200	symbol_c * return_type_symbol = &search_constant_type_c::string_type_name;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	4201	function_type_prefix = return_type_symbol;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	4202	break;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	4203
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	4204	}
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	4205
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	4206
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	4207	ERROR;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	4208	}
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	4209
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	4210	}/function_dword_to_string/
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	4211	break;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	4212
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	4213	/****
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	4214	*DWORD_TO_LWORD
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	4215	*/
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	4216	case function_dword_to_lword :
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	4217	{
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	4218	symbol_c *last_type_symbol = NULL;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	4219
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	4220	{
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	4221	identifier_c param_name("IN");
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	4222	/* Get the value from a foo(<param_name> = <param_value>) style call */
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	4223	symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
169 bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	4224	symbol_c *IN_type_symbol = NULL;
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	4225
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	4226	/* Get the value from a foo(<param_value>) style call */
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	4227	if (IN_param_value == NULL)
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	4228	IN_param_value = function_call_param_iterator.next();
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	4229	if (IN_param_value != NULL) {
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	4230	IN_type_symbol = search_expression_type->get_type(IN_param_value);
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	4231	last_type_symbol = last_type_symbol && IN_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	4232	}
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	4233
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	4234	if(IN_type_symbol == NULL \|\| search_expression_type->is_same_type(&search_constant_type_c::dword_type_name, last_type_symbol))
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	4235	{
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	4236
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	4237
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	4238	if (IN_type_symbol == NULL)
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	4239	IN_type_symbol = last_type_symbol;
149 05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	4240	ADD_PARAM_LIST(IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in)
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	4241	symbol_c * return_type_symbol = &search_constant_type_c::lword_type_name;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	4242	function_type_prefix = return_type_symbol;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	4243	break;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	4244
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	4245	}
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	4246
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	4247
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	4248	ERROR;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	4249	}
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	4250
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	4251	}/function_dword_to_lword/
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	4252	break;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	4253
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	4254	/****
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	4255	*DWORD_TO_UINT
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	4256	*/
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	4257	case function_dword_to_uint :
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	4258	{
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	4259	symbol_c *last_type_symbol = NULL;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	4260
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	4261	{
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	4262	identifier_c param_name("IN");
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	4263	/* Get the value from a foo(<param_name> = <param_value>) style call */
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	4264	symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
169 bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	4265	symbol_c *IN_type_symbol = NULL;
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	4266
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	4267	/* Get the value from a foo(<param_value>) style call */
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	4268	if (IN_param_value == NULL)
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	4269	IN_param_value = function_call_param_iterator.next();
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	4270	if (IN_param_value != NULL) {
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	4271	IN_type_symbol = search_expression_type->get_type(IN_param_value);
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	4272	last_type_symbol = last_type_symbol && IN_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	4273	}
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	4274
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	4275	if(IN_type_symbol == NULL \|\| search_expression_type->is_same_type(&search_constant_type_c::dword_type_name, last_type_symbol))
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	4276	{
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	4277
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	4278
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	4279	if (IN_type_symbol == NULL)
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	4280	IN_type_symbol = last_type_symbol;
149 05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	4281	ADD_PARAM_LIST(IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in)
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	4282	symbol_c * return_type_symbol = &search_constant_type_c::uint_type_name;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	4283	function_type_prefix = return_type_symbol;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	4284	break;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	4285
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	4286	}
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	4287
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	4288
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	4289	ERROR;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	4290	}
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	4291
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	4292	}/function_dword_to_uint/
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	4293	break;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	4294
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	4295	/****
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	4296	*DWORD_TO_LREAL
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	4297	*/
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	4298	case function_dword_to_lreal :
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	4299	{
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	4300	symbol_c *last_type_symbol = NULL;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	4301
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	4302	{
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	4303	identifier_c param_name("IN");
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	4304	/* Get the value from a foo(<param_name> = <param_value>) style call */
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	4305	symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
169 bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	4306	symbol_c *IN_type_symbol = NULL;
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	4307
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	4308	/* Get the value from a foo(<param_value>) style call */
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	4309	if (IN_param_value == NULL)
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	4310	IN_param_value = function_call_param_iterator.next();
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	4311	if (IN_param_value != NULL) {
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	4312	IN_type_symbol = search_expression_type->get_type(IN_param_value);
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	4313	last_type_symbol = last_type_symbol && IN_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	4314	}
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	4315
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	4316	if(IN_type_symbol == NULL \|\| search_expression_type->is_same_type(&search_constant_type_c::dword_type_name, last_type_symbol))
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	4317	{
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	4318
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	4319
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	4320	if (IN_type_symbol == NULL)
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	4321	IN_type_symbol = last_type_symbol;
149 05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	4322	ADD_PARAM_LIST(IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in)
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	4323	symbol_c * return_type_symbol = &search_constant_type_c::lreal_type_name;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	4324	function_type_prefix = return_type_symbol;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	4325	break;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	4326
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	4327	}
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	4328
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	4329
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	4330	ERROR;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	4331	}
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	4332
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	4333	}/function_dword_to_lreal/
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	4334	break;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	4335
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	4336	/****
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	4337	*DWORD_TO_BYTE
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	4338	*/
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	4339	case function_dword_to_byte :
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	4340	{
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	4341	symbol_c *last_type_symbol = NULL;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	4342
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	4343	{
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	4344	identifier_c param_name("IN");
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	4345	/* Get the value from a foo(<param_name> = <param_value>) style call */
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	4346	symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
169 bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	4347	symbol_c *IN_type_symbol = NULL;
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	4348
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	4349	/* Get the value from a foo(<param_value>) style call */
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	4350	if (IN_param_value == NULL)
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	4351	IN_param_value = function_call_param_iterator.next();
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	4352	if (IN_param_value != NULL) {
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	4353	IN_type_symbol = search_expression_type->get_type(IN_param_value);
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	4354	last_type_symbol = last_type_symbol && IN_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	4355	}
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	4356
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	4357	if(IN_type_symbol == NULL \|\| search_expression_type->is_same_type(&search_constant_type_c::dword_type_name, last_type_symbol))
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	4358	{
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	4359
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	4360
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	4361	if (IN_type_symbol == NULL)
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	4362	IN_type_symbol = last_type_symbol;
149 05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	4363	ADD_PARAM_LIST(IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in)
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	4364	symbol_c * return_type_symbol = &search_constant_type_c::byte_type_name;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	4365	function_type_prefix = return_type_symbol;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	4366	break;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	4367
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	4368	}
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	4369
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	4370
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	4371	ERROR;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	4372	}
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	4373
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	4374	}/function_dword_to_byte/
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	4375	break;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	4376
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	4377	/****
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	4378	*DWORD_TO_USINT
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	4379	*/
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	4380	case function_dword_to_usint :
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	4381	{
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	4382	symbol_c *last_type_symbol = NULL;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	4383
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	4384	{
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	4385	identifier_c param_name("IN");
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	4386	/* Get the value from a foo(<param_name> = <param_value>) style call */
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	4387	symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
169 bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	4388	symbol_c *IN_type_symbol = NULL;
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	4389
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	4390	/* Get the value from a foo(<param_value>) style call */
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	4391	if (IN_param_value == NULL)
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	4392	IN_param_value = function_call_param_iterator.next();
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	4393	if (IN_param_value != NULL) {
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	4394	IN_type_symbol = search_expression_type->get_type(IN_param_value);
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	4395	last_type_symbol = last_type_symbol && IN_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	4396	}
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	4397
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	4398	if(IN_type_symbol == NULL \|\| search_expression_type->is_same_type(&search_constant_type_c::dword_type_name, last_type_symbol))
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	4399	{
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	4400
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	4401
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	4402	if (IN_type_symbol == NULL)
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	4403	IN_type_symbol = last_type_symbol;
149 05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	4404	ADD_PARAM_LIST(IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in)
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	4405	symbol_c * return_type_symbol = &search_constant_type_c::usint_type_name;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	4406	function_type_prefix = return_type_symbol;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	4407	break;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	4408
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	4409	}
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	4410
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	4411
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	4412	ERROR;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	4413	}
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	4414
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	4415	}/function_dword_to_usint/
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	4416	break;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	4417
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	4418	/****
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	4419	*DWORD_TO_ULINT
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	4420	*/
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	4421	case function_dword_to_ulint :
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	4422	{
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	4423	symbol_c *last_type_symbol = NULL;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	4424
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	4425	{
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	4426	identifier_c param_name("IN");
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	4427	/* Get the value from a foo(<param_name> = <param_value>) style call */
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	4428	symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
169 bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	4429	symbol_c *IN_type_symbol = NULL;
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	4430
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	4431	/* Get the value from a foo(<param_value>) style call */
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	4432	if (IN_param_value == NULL)
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	4433	IN_param_value = function_call_param_iterator.next();
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	4434	if (IN_param_value != NULL) {
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	4435	IN_type_symbol = search_expression_type->get_type(IN_param_value);
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	4436	last_type_symbol = last_type_symbol && IN_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	4437	}
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	4438
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	4439	if(IN_type_symbol == NULL \|\| search_expression_type->is_same_type(&search_constant_type_c::dword_type_name, last_type_symbol))
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	4440	{
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	4441
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	4442
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	4443	if (IN_type_symbol == NULL)
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	4444	IN_type_symbol = last_type_symbol;
149 05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	4445	ADD_PARAM_LIST(IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in)
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	4446	symbol_c * return_type_symbol = &search_constant_type_c::ulint_type_name;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	4447	function_type_prefix = return_type_symbol;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	4448	break;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	4449
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	4450	}
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	4451
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	4452
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	4453	ERROR;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	4454	}
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	4455
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	4456	}/function_dword_to_ulint/
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	4457	break;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	4458
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	4459	/****
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	4460	*DWORD_TO_BOOL
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	4461	*/
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	4462	case function_dword_to_bool :
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	4463	{
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	4464	symbol_c *last_type_symbol = NULL;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	4465
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	4466	{
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	4467	identifier_c param_name("IN");
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	4468	/* Get the value from a foo(<param_name> = <param_value>) style call */
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	4469	symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
169 bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	4470	symbol_c *IN_type_symbol = NULL;
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	4471
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	4472	/* Get the value from a foo(<param_value>) style call */
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	4473	if (IN_param_value == NULL)
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	4474	IN_param_value = function_call_param_iterator.next();
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	4475	if (IN_param_value != NULL) {
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	4476	IN_type_symbol = search_expression_type->get_type(IN_param_value);
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	4477	last_type_symbol = last_type_symbol && IN_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	4478	}
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	4479
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	4480	if(IN_type_symbol == NULL \|\| search_expression_type->is_same_type(&search_constant_type_c::dword_type_name, last_type_symbol))
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	4481	{
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	4482
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	4483
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	4484	if (IN_type_symbol == NULL)
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	4485	IN_type_symbol = last_type_symbol;
149 05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	4486	ADD_PARAM_LIST(IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in)
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	4487	symbol_c * return_type_symbol = &search_constant_type_c::bool_type_name;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	4488	function_type_prefix = return_type_symbol;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	4489	break;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	4490
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	4491	}
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	4492
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	4493
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	4494	ERROR;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	4495	}
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	4496
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	4497	}/function_dword_to_bool/
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	4498	break;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	4499
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	4500	/****
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	4501	*DWORD_TO_TIME
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	4502	*/
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	4503	case function_dword_to_time :
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	4504	{
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	4505	symbol_c *last_type_symbol = NULL;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	4506
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	4507	{
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	4508	identifier_c param_name("IN");
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	4509	/* Get the value from a foo(<param_name> = <param_value>) style call */
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	4510	symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
169 bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	4511	symbol_c *IN_type_symbol = NULL;
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	4512
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	4513	/* Get the value from a foo(<param_value>) style call */
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	4514	if (IN_param_value == NULL)
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	4515	IN_param_value = function_call_param_iterator.next();
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	4516	if (IN_param_value != NULL) {
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	4517	IN_type_symbol = search_expression_type->get_type(IN_param_value);
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	4518	last_type_symbol = last_type_symbol && IN_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	4519	}
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	4520
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	4521	if(IN_type_symbol == NULL \|\| search_expression_type->is_same_type(&search_constant_type_c::dword_type_name, last_type_symbol))
149 05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	4522	{
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	4523
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	4524	function_name = (symbol_c*)(new pragma_c("__int_to_time"));
169 bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	4525
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	4526	if (IN_type_symbol == NULL)
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	4527	IN_type_symbol = last_type_symbol;
149 05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	4528	ADD_PARAM_LIST(IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in)
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	4529	symbol_c * return_type_symbol = &search_constant_type_c::time_type_name;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	4530	function_type_prefix = return_type_symbol;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	4531	break;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	4532
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	4533	}
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	4534
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	4535
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	4536	ERROR;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	4537	}
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	4538
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	4539	}/function_dword_to_time/
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	4540	break;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	4541
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	4542	/****
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	4543	*DWORD_TO_INT
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	4544	*/
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	4545	case function_dword_to_int :
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	4546	{
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	4547	symbol_c *last_type_symbol = NULL;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	4548
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	4549	{
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	4550	identifier_c param_name("IN");
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	4551	/* Get the value from a foo(<param_name> = <param_value>) style call */
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	4552	symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
169 bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	4553	symbol_c *IN_type_symbol = NULL;
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	4554
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	4555	/* Get the value from a foo(<param_value>) style call */
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	4556	if (IN_param_value == NULL)
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	4557	IN_param_value = function_call_param_iterator.next();
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	4558	if (IN_param_value != NULL) {
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	4559	IN_type_symbol = search_expression_type->get_type(IN_param_value);
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	4560	last_type_symbol = last_type_symbol && IN_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	4561	}
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	4562
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	4563	if(IN_type_symbol == NULL \|\| search_expression_type->is_same_type(&search_constant_type_c::dword_type_name, last_type_symbol))
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	4564	{
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	4565
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	4566
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	4567	if (IN_type_symbol == NULL)
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	4568	IN_type_symbol = last_type_symbol;
149 05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	4569	ADD_PARAM_LIST(IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in)
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	4570	symbol_c * return_type_symbol = &search_constant_type_c::int_type_name;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	4571	function_type_prefix = return_type_symbol;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	4572	break;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	4573
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	4574	}
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	4575
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	4576
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	4577	ERROR;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	4578	}
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	4579
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	4580	}/function_dword_to_int/
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	4581	break;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	4582
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	4583	/****
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	4584	*DT_TO_REAL
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	4585	*/
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	4586	case function_dt_to_real :
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	4587	{
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	4588	symbol_c *last_type_symbol = NULL;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	4589
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	4590	{
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	4591	identifier_c param_name("IN");
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	4592	/* Get the value from a foo(<param_name> = <param_value>) style call */
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	4593	symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
169 bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	4594	symbol_c *IN_type_symbol = NULL;
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	4595
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	4596	/* Get the value from a foo(<param_value>) style call */
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	4597	if (IN_param_value == NULL)
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	4598	IN_param_value = function_call_param_iterator.next();
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	4599	if (IN_param_value != NULL) {
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	4600	IN_type_symbol = search_expression_type->get_type(IN_param_value);
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	4601	last_type_symbol = last_type_symbol && IN_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	4602	}
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	4603
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	4604	if(IN_type_symbol == NULL \|\| search_expression_type->is_same_type(&search_constant_type_c::dt_type_name, last_type_symbol))
149 05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	4605	{
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	4606
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	4607	function_name = (symbol_c*)(new pragma_c("__time_to_real"));
169 bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	4608
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	4609	if (IN_type_symbol == NULL)
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	4610	IN_type_symbol = last_type_symbol;
149 05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	4611	ADD_PARAM_LIST(IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in)
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	4612	symbol_c * return_type_symbol = &search_constant_type_c::real_type_name;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	4613	function_type_prefix = return_type_symbol;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	4614	break;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	4615
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	4616	}
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	4617
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	4618
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	4619	ERROR;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	4620	}
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	4621
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	4622	}/function_dt_to_real/
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	4623	break;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	4624
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	4625	/****
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	4626	*DT_TO_SINT
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	4627	*/
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	4628	case function_dt_to_sint :
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	4629	{
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	4630	symbol_c *last_type_symbol = NULL;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	4631
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	4632	{
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	4633	identifier_c param_name("IN");
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	4634	/* Get the value from a foo(<param_name> = <param_value>) style call */
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	4635	symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
169 bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	4636	symbol_c *IN_type_symbol = NULL;
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	4637
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	4638	/* Get the value from a foo(<param_value>) style call */
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	4639	if (IN_param_value == NULL)
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	4640	IN_param_value = function_call_param_iterator.next();
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	4641	if (IN_param_value != NULL) {
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	4642	IN_type_symbol = search_expression_type->get_type(IN_param_value);
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	4643	last_type_symbol = last_type_symbol && IN_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	4644	}
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	4645
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	4646	if(IN_type_symbol == NULL \|\| search_expression_type->is_same_type(&search_constant_type_c::dt_type_name, last_type_symbol))
149 05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	4647	{
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	4648
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	4649	function_name = (symbol_c*)(new pragma_c("__time_to_int"));
169 bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	4650
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	4651	if (IN_type_symbol == NULL)
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	4652	IN_type_symbol = last_type_symbol;
149 05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	4653	ADD_PARAM_LIST(IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in)
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	4654	symbol_c * return_type_symbol = &search_constant_type_c::sint_type_name;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	4655	function_type_prefix = return_type_symbol;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	4656	break;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	4657
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	4658	}
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	4659
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	4660
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	4661	ERROR;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	4662	}
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	4663
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	4664	}/function_dt_to_sint/
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	4665	break;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	4666
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	4667	/****
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	4668	*DT_TO_LINT
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	4669	*/
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	4670	case function_dt_to_lint :
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	4671	{
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	4672	symbol_c *last_type_symbol = NULL;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	4673
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	4674	{
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	4675	identifier_c param_name("IN");
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	4676	/* Get the value from a foo(<param_name> = <param_value>) style call */
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	4677	symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
169 bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	4678	symbol_c *IN_type_symbol = NULL;
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	4679
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	4680	/* Get the value from a foo(<param_value>) style call */
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	4681	if (IN_param_value == NULL)
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	4682	IN_param_value = function_call_param_iterator.next();
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	4683	if (IN_param_value != NULL) {
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	4684	IN_type_symbol = search_expression_type->get_type(IN_param_value);
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	4685	last_type_symbol = last_type_symbol && IN_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	4686	}
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	4687
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	4688	if(IN_type_symbol == NULL \|\| search_expression_type->is_same_type(&search_constant_type_c::dt_type_name, last_type_symbol))
149 05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	4689	{
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	4690
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	4691	function_name = (symbol_c*)(new pragma_c("__time_to_int"));
169 bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	4692
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	4693	if (IN_type_symbol == NULL)
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	4694	IN_type_symbol = last_type_symbol;
149 05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	4695	ADD_PARAM_LIST(IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in)
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	4696	symbol_c * return_type_symbol = &search_constant_type_c::lint_type_name;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	4697	function_type_prefix = return_type_symbol;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	4698	break;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	4699
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	4700	}
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	4701
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	4702
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	4703	ERROR;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	4704	}
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	4705
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	4706	}/function_dt_to_lint/
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	4707	break;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	4708
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	4709	/****
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	4710	*DT_TO_DINT
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	4711	*/
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	4712	case function_dt_to_dint :
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	4713	{
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	4714	symbol_c *last_type_symbol = NULL;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	4715
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	4716	{
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	4717	identifier_c param_name("IN");
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	4718	/* Get the value from a foo(<param_name> = <param_value>) style call */
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	4719	symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
169 bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	4720	symbol_c *IN_type_symbol = NULL;
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	4721
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	4722	/* Get the value from a foo(<param_value>) style call */
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	4723	if (IN_param_value == NULL)
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	4724	IN_param_value = function_call_param_iterator.next();
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	4725	if (IN_param_value != NULL) {
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	4726	IN_type_symbol = search_expression_type->get_type(IN_param_value);
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	4727	last_type_symbol = last_type_symbol && IN_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	4728	}
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	4729
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	4730	if(IN_type_symbol == NULL \|\| search_expression_type->is_same_type(&search_constant_type_c::dt_type_name, last_type_symbol))
149 05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	4731	{
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	4732
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	4733	function_name = (symbol_c*)(new pragma_c("__time_to_int"));
169 bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	4734
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	4735	if (IN_type_symbol == NULL)
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	4736	IN_type_symbol = last_type_symbol;
149 05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	4737	ADD_PARAM_LIST(IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in)
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	4738	symbol_c * return_type_symbol = &search_constant_type_c::dint_type_name;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	4739	function_type_prefix = return_type_symbol;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	4740	break;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	4741
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	4742	}
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	4743
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	4744
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	4745	ERROR;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	4746	}
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	4747
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	4748	}/function_dt_to_dint/
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	4749	break;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	4750
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	4751	/****
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	4752	*DT_TO_DWORD
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	4753	*/
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	4754	case function_dt_to_dword :
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	4755	{
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	4756	symbol_c *last_type_symbol = NULL;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	4757
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	4758	{
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	4759	identifier_c param_name("IN");
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	4760	/* Get the value from a foo(<param_name> = <param_value>) style call */
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	4761	symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
169 bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	4762	symbol_c *IN_type_symbol = NULL;
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	4763
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	4764	/* Get the value from a foo(<param_value>) style call */
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	4765	if (IN_param_value == NULL)
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	4766	IN_param_value = function_call_param_iterator.next();
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	4767	if (IN_param_value != NULL) {
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	4768	IN_type_symbol = search_expression_type->get_type(IN_param_value);
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	4769	last_type_symbol = last_type_symbol && IN_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	4770	}
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	4771
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	4772	if(IN_type_symbol == NULL \|\| search_expression_type->is_same_type(&search_constant_type_c::dt_type_name, last_type_symbol))
149 05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	4773	{
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	4774
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	4775	function_name = (symbol_c*)(new pragma_c("__time_to_int"));
169 bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	4776
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	4777	if (IN_type_symbol == NULL)
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	4778	IN_type_symbol = last_type_symbol;
149 05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	4779	ADD_PARAM_LIST(IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in)
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	4780	symbol_c * return_type_symbol = &search_constant_type_c::dword_type_name;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	4781	function_type_prefix = return_type_symbol;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	4782	break;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	4783
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	4784	}
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	4785
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	4786
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	4787	ERROR;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	4788	}
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	4789
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	4790	}/function_dt_to_dword/
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	4791	break;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	4792
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	4793	/****
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	4794	*DT_TO_UDINT
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	4795	*/
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	4796	case function_dt_to_udint :
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	4797	{
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	4798	symbol_c *last_type_symbol = NULL;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	4799
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	4800	{
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	4801	identifier_c param_name("IN");
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	4802	/* Get the value from a foo(<param_name> = <param_value>) style call */
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	4803	symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
169 bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	4804	symbol_c *IN_type_symbol = NULL;
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	4805
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	4806	/* Get the value from a foo(<param_value>) style call */
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	4807	if (IN_param_value == NULL)
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	4808	IN_param_value = function_call_param_iterator.next();
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	4809	if (IN_param_value != NULL) {
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	4810	IN_type_symbol = search_expression_type->get_type(IN_param_value);
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	4811	last_type_symbol = last_type_symbol && IN_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	4812	}
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	4813
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	4814	if(IN_type_symbol == NULL \|\| search_expression_type->is_same_type(&search_constant_type_c::dt_type_name, last_type_symbol))
149 05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	4815	{
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	4816
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	4817	function_name = (symbol_c*)(new pragma_c("__time_to_int"));
169 bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	4818
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	4819	if (IN_type_symbol == NULL)
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	4820	IN_type_symbol = last_type_symbol;
149 05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	4821	ADD_PARAM_LIST(IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in)
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	4822	symbol_c * return_type_symbol = &search_constant_type_c::udint_type_name;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	4823	function_type_prefix = return_type_symbol;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	4824	break;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	4825
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	4826	}
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	4827
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	4828
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	4829	ERROR;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	4830	}
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	4831
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	4832	}/function_dt_to_udint/
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	4833	break;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	4834
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	4835	/****
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	4836	*DT_TO_WORD
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	4837	*/
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	4838	case function_dt_to_word :
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	4839	{
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	4840	symbol_c *last_type_symbol = NULL;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	4841
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	4842	{
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	4843	identifier_c param_name("IN");
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	4844	/* Get the value from a foo(<param_name> = <param_value>) style call */
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	4845	symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
169 bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	4846	symbol_c *IN_type_symbol = NULL;
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	4847
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	4848	/* Get the value from a foo(<param_value>) style call */
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	4849	if (IN_param_value == NULL)
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	4850	IN_param_value = function_call_param_iterator.next();
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	4851	if (IN_param_value != NULL) {
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	4852	IN_type_symbol = search_expression_type->get_type(IN_param_value);
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	4853	last_type_symbol = last_type_symbol && IN_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	4854	}
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	4855
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	4856	if(IN_type_symbol == NULL \|\| search_expression_type->is_same_type(&search_constant_type_c::dt_type_name, last_type_symbol))
149 05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	4857	{
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	4858
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	4859	function_name = (symbol_c*)(new pragma_c("__time_to_int"));
169 bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	4860
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	4861	if (IN_type_symbol == NULL)
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	4862	IN_type_symbol = last_type_symbol;
149 05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	4863	ADD_PARAM_LIST(IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in)
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	4864	symbol_c * return_type_symbol = &search_constant_type_c::word_type_name;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	4865	function_type_prefix = return_type_symbol;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	4866	break;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	4867
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	4868	}
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	4869
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	4870
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	4871	ERROR;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	4872	}
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	4873
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	4874	}/function_dt_to_word/
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	4875	break;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	4876
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	4877	/****
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	4878	*DT_TO_STRING
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	4879	*/
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	4880	case function_dt_to_string :
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	4881	{
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	4882	symbol_c *last_type_symbol = NULL;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	4883
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	4884	{
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	4885	identifier_c param_name("IN");
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	4886	/* Get the value from a foo(<param_name> = <param_value>) style call */
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	4887	symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
169 bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	4888	symbol_c *IN_type_symbol = NULL;
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	4889
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	4890	/* Get the value from a foo(<param_value>) style call */
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	4891	if (IN_param_value == NULL)
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	4892	IN_param_value = function_call_param_iterator.next();
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	4893	if (IN_param_value != NULL) {
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	4894	IN_type_symbol = search_expression_type->get_type(IN_param_value);
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	4895	last_type_symbol = last_type_symbol && IN_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	4896	}
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	4897
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	4898	if(IN_type_symbol == NULL \|\| search_expression_type->is_same_type(&search_constant_type_c::dt_type_name, last_type_symbol))
149 05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	4899	{
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	4900
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	4901	function_name = (symbol_c*)(new pragma_c("__dt_to_string"));
169 bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	4902
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	4903	if (IN_type_symbol == NULL)
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	4904	IN_type_symbol = last_type_symbol;
149 05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	4905	ADD_PARAM_LIST(IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in)
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	4906	symbol_c * return_type_symbol = &search_constant_type_c::string_type_name;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	4907	function_type_prefix = return_type_symbol;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	4908	break;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	4909
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	4910	}
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	4911
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	4912
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	4913	ERROR;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	4914	}
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	4915
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	4916	}/function_dt_to_string/
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	4917	break;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	4918
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	4919	/****
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	4920	*DT_TO_LWORD
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	4921	*/
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	4922	case function_dt_to_lword :
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	4923	{
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	4924	symbol_c *last_type_symbol = NULL;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	4925
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	4926	{
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	4927	identifier_c param_name("IN");
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	4928	/* Get the value from a foo(<param_name> = <param_value>) style call */
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	4929	symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
169 bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	4930	symbol_c *IN_type_symbol = NULL;
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	4931
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	4932	/* Get the value from a foo(<param_value>) style call */
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	4933	if (IN_param_value == NULL)
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	4934	IN_param_value = function_call_param_iterator.next();
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	4935	if (IN_param_value != NULL) {
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	4936	IN_type_symbol = search_expression_type->get_type(IN_param_value);
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	4937	last_type_symbol = last_type_symbol && IN_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	4938	}
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	4939
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	4940	if(IN_type_symbol == NULL \|\| search_expression_type->is_same_type(&search_constant_type_c::dt_type_name, last_type_symbol))
149 05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	4941	{
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	4942
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	4943	function_name = (symbol_c*)(new pragma_c("__time_to_int"));
169 bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	4944
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	4945	if (IN_type_symbol == NULL)
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	4946	IN_type_symbol = last_type_symbol;
149 05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	4947	ADD_PARAM_LIST(IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in)
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	4948	symbol_c * return_type_symbol = &search_constant_type_c::lword_type_name;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	4949	function_type_prefix = return_type_symbol;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	4950	break;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	4951
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	4952	}
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	4953
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	4954
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	4955	ERROR;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	4956	}
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	4957
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	4958	}/function_dt_to_lword/
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	4959	break;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	4960
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	4961	/****
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	4962	*DT_TO_UINT
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	4963	*/
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	4964	case function_dt_to_uint :
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	4965	{
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	4966	symbol_c *last_type_symbol = NULL;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	4967
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	4968	{
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	4969	identifier_c param_name("IN");
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	4970	/* Get the value from a foo(<param_name> = <param_value>) style call */
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	4971	symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
169 bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	4972	symbol_c *IN_type_symbol = NULL;
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	4973
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	4974	/* Get the value from a foo(<param_value>) style call */
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	4975	if (IN_param_value == NULL)
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	4976	IN_param_value = function_call_param_iterator.next();
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	4977	if (IN_param_value != NULL) {
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	4978	IN_type_symbol = search_expression_type->get_type(IN_param_value);
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	4979	last_type_symbol = last_type_symbol && IN_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	4980	}
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	4981
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	4982	if(IN_type_symbol == NULL \|\| search_expression_type->is_same_type(&search_constant_type_c::dt_type_name, last_type_symbol))
149 05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	4983	{
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	4984
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	4985	function_name = (symbol_c*)(new pragma_c("__time_to_int"));
169 bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	4986
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	4987	if (IN_type_symbol == NULL)
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	4988	IN_type_symbol = last_type_symbol;
149 05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	4989	ADD_PARAM_LIST(IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in)
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	4990	symbol_c * return_type_symbol = &search_constant_type_c::uint_type_name;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	4991	function_type_prefix = return_type_symbol;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	4992	break;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	4993
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	4994	}
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	4995
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	4996
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	4997	ERROR;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	4998	}
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	4999
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	5000	}/function_dt_to_uint/
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	5001	break;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	5002
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	5003	/****
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	5004	*DT_TO_LREAL
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	5005	*/
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	5006	case function_dt_to_lreal :
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	5007	{
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	5008	symbol_c *last_type_symbol = NULL;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	5009
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	5010	{
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	5011	identifier_c param_name("IN");
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	5012	/* Get the value from a foo(<param_name> = <param_value>) style call */
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	5013	symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
169 bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	5014	symbol_c *IN_type_symbol = NULL;
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	5015
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	5016	/* Get the value from a foo(<param_value>) style call */
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	5017	if (IN_param_value == NULL)
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	5018	IN_param_value = function_call_param_iterator.next();
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	5019	if (IN_param_value != NULL) {
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	5020	IN_type_symbol = search_expression_type->get_type(IN_param_value);
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	5021	last_type_symbol = last_type_symbol && IN_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	5022	}
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	5023
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	5024	if(IN_type_symbol == NULL \|\| search_expression_type->is_same_type(&search_constant_type_c::dt_type_name, last_type_symbol))
149 05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	5025	{
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	5026
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	5027	function_name = (symbol_c*)(new pragma_c("__time_to_real"));
169 bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	5028
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	5029	if (IN_type_symbol == NULL)
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	5030	IN_type_symbol = last_type_symbol;
149 05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	5031	ADD_PARAM_LIST(IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in)
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	5032	symbol_c * return_type_symbol = &search_constant_type_c::lreal_type_name;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	5033	function_type_prefix = return_type_symbol;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	5034	break;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	5035
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	5036	}
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	5037
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	5038
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	5039	ERROR;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	5040	}
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	5041
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	5042	}/function_dt_to_lreal/
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	5043	break;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	5044
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	5045	/****
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	5046	*DT_TO_BYTE
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	5047	*/
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	5048	case function_dt_to_byte :
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	5049	{
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	5050	symbol_c *last_type_symbol = NULL;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	5051
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	5052	{
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	5053	identifier_c param_name("IN");
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	5054	/* Get the value from a foo(<param_name> = <param_value>) style call */
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	5055	symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
169 bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	5056	symbol_c *IN_type_symbol = NULL;
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	5057
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	5058	/* Get the value from a foo(<param_value>) style call */
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	5059	if (IN_param_value == NULL)
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	5060	IN_param_value = function_call_param_iterator.next();
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	5061	if (IN_param_value != NULL) {
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	5062	IN_type_symbol = search_expression_type->get_type(IN_param_value);
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	5063	last_type_symbol = last_type_symbol && IN_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	5064	}
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	5065
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	5066	if(IN_type_symbol == NULL \|\| search_expression_type->is_same_type(&search_constant_type_c::dt_type_name, last_type_symbol))
149 05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	5067	{
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	5068
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	5069	function_name = (symbol_c*)(new pragma_c("__time_to_int"));
169 bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	5070
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	5071	if (IN_type_symbol == NULL)
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	5072	IN_type_symbol = last_type_symbol;
149 05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	5073	ADD_PARAM_LIST(IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in)
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	5074	symbol_c * return_type_symbol = &search_constant_type_c::byte_type_name;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	5075	function_type_prefix = return_type_symbol;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	5076	break;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	5077
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	5078	}
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	5079
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	5080
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	5081	ERROR;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	5082	}
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	5083
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	5084	}/function_dt_to_byte/
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	5085	break;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	5086
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	5087	/****
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	5088	*DT_TO_USINT
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	5089	*/
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	5090	case function_dt_to_usint :
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	5091	{
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	5092	symbol_c *last_type_symbol = NULL;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	5093
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	5094	{
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	5095	identifier_c param_name("IN");
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	5096	/* Get the value from a foo(<param_name> = <param_value>) style call */
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	5097	symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
169 bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	5098	symbol_c *IN_type_symbol = NULL;
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	5099
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	5100	/* Get the value from a foo(<param_value>) style call */
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	5101	if (IN_param_value == NULL)
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	5102	IN_param_value = function_call_param_iterator.next();
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	5103	if (IN_param_value != NULL) {
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	5104	IN_type_symbol = search_expression_type->get_type(IN_param_value);
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	5105	last_type_symbol = last_type_symbol && IN_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	5106	}
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	5107
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	5108	if(IN_type_symbol == NULL \|\| search_expression_type->is_same_type(&search_constant_type_c::dt_type_name, last_type_symbol))
149 05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	5109	{
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	5110
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	5111	function_name = (symbol_c*)(new pragma_c("__time_to_int"));
169 bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	5112
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	5113	if (IN_type_symbol == NULL)
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	5114	IN_type_symbol = last_type_symbol;
149 05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	5115	ADD_PARAM_LIST(IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in)
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	5116	symbol_c * return_type_symbol = &search_constant_type_c::usint_type_name;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	5117	function_type_prefix = return_type_symbol;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	5118	break;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	5119
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	5120	}
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	5121
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	5122
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	5123	ERROR;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	5124	}
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	5125
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	5126	}/function_dt_to_usint/
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	5127	break;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	5128
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	5129	/****
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	5130	*DT_TO_ULINT
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	5131	*/
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	5132	case function_dt_to_ulint :
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	5133	{
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	5134	symbol_c *last_type_symbol = NULL;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	5135
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	5136	{
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	5137	identifier_c param_name("IN");
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	5138	/* Get the value from a foo(<param_name> = <param_value>) style call */
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	5139	symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
169 bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	5140	symbol_c *IN_type_symbol = NULL;
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	5141
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	5142	/* Get the value from a foo(<param_value>) style call */
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	5143	if (IN_param_value == NULL)
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	5144	IN_param_value = function_call_param_iterator.next();
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	5145	if (IN_param_value != NULL) {
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	5146	IN_type_symbol = search_expression_type->get_type(IN_param_value);
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	5147	last_type_symbol = last_type_symbol && IN_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	5148	}
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	5149
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	5150	if(IN_type_symbol == NULL \|\| search_expression_type->is_same_type(&search_constant_type_c::dt_type_name, last_type_symbol))
149 05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	5151	{
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	5152
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	5153	function_name = (symbol_c*)(new pragma_c("__time_to_int"));
169 bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	5154
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	5155	if (IN_type_symbol == NULL)
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	5156	IN_type_symbol = last_type_symbol;
149 05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	5157	ADD_PARAM_LIST(IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in)
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	5158	symbol_c * return_type_symbol = &search_constant_type_c::ulint_type_name;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	5159	function_type_prefix = return_type_symbol;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	5160	break;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	5161
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	5162	}
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	5163
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	5164
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	5165	ERROR;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	5166	}
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	5167
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	5168	}/function_dt_to_ulint/
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	5169	break;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	5170
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	5171	/****
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	5172	*DT_TO_INT
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	5173	*/
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	5174	case function_dt_to_int :
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	5175	{
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	5176	symbol_c *last_type_symbol = NULL;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	5177
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	5178	{
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	5179	identifier_c param_name("IN");
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	5180	/* Get the value from a foo(<param_name> = <param_value>) style call */
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	5181	symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
169 bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	5182	symbol_c *IN_type_symbol = NULL;
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	5183
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	5184	/* Get the value from a foo(<param_value>) style call */
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	5185	if (IN_param_value == NULL)
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	5186	IN_param_value = function_call_param_iterator.next();
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	5187	if (IN_param_value != NULL) {
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	5188	IN_type_symbol = search_expression_type->get_type(IN_param_value);
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	5189	last_type_symbol = last_type_symbol && IN_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	5190	}
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	5191
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	5192	if(IN_type_symbol == NULL \|\| search_expression_type->is_same_type(&search_constant_type_c::dt_type_name, last_type_symbol))
149 05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	5193	{
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	5194
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	5195	function_name = (symbol_c*)(new pragma_c("__time_to_int"));
169 bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	5196
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	5197	if (IN_type_symbol == NULL)
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	5198	IN_type_symbol = last_type_symbol;
149 05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	5199	ADD_PARAM_LIST(IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in)
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	5200	symbol_c * return_type_symbol = &search_constant_type_c::int_type_name;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	5201	function_type_prefix = return_type_symbol;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	5202	break;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	5203
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	5204	}
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	5205
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	5206
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	5207	ERROR;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	5208	}
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	5209
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	5210	}/function_dt_to_int/
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	5211	break;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	5212
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	5213	/****
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	5214	*TOD_TO_REAL
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	5215	*/
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	5216	case function_tod_to_real :
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	5217	{
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	5218	symbol_c *last_type_symbol = NULL;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	5219
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	5220	{
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	5221	identifier_c param_name("IN");
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	5222	/* Get the value from a foo(<param_name> = <param_value>) style call */
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	5223	symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
169 bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	5224	symbol_c *IN_type_symbol = NULL;
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	5225
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	5226	/* Get the value from a foo(<param_value>) style call */
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	5227	if (IN_param_value == NULL)
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	5228	IN_param_value = function_call_param_iterator.next();
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	5229	if (IN_param_value != NULL) {
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	5230	IN_type_symbol = search_expression_type->get_type(IN_param_value);
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	5231	last_type_symbol = last_type_symbol && IN_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	5232	}
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	5233
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	5234	if(IN_type_symbol == NULL \|\| search_expression_type->is_same_type(&search_constant_type_c::tod_type_name, last_type_symbol))
149 05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	5235	{
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	5236
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	5237	function_name = (symbol_c*)(new pragma_c("__time_to_real"));
169 bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	5238
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	5239	if (IN_type_symbol == NULL)
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	5240	IN_type_symbol = last_type_symbol;
149 05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	5241	ADD_PARAM_LIST(IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in)
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	5242	symbol_c * return_type_symbol = &search_constant_type_c::real_type_name;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	5243	function_type_prefix = return_type_symbol;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	5244	break;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	5245
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	5246	}
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	5247
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	5248
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	5249	ERROR;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	5250	}
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	5251
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	5252	}/function_tod_to_real/
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	5253	break;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	5254
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	5255	/****
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	5256	*TOD_TO_SINT
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	5257	*/
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	5258	case function_tod_to_sint :
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	5259	{
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	5260	symbol_c *last_type_symbol = NULL;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	5261
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	5262	{
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	5263	identifier_c param_name("IN");
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	5264	/* Get the value from a foo(<param_name> = <param_value>) style call */
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	5265	symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
169 bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	5266	symbol_c *IN_type_symbol = NULL;
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	5267
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	5268	/* Get the value from a foo(<param_value>) style call */
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	5269	if (IN_param_value == NULL)
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	5270	IN_param_value = function_call_param_iterator.next();
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	5271	if (IN_param_value != NULL) {
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	5272	IN_type_symbol = search_expression_type->get_type(IN_param_value);
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	5273	last_type_symbol = last_type_symbol && IN_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	5274	}
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	5275
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	5276	if(IN_type_symbol == NULL \|\| search_expression_type->is_same_type(&search_constant_type_c::tod_type_name, last_type_symbol))
149 05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	5277	{
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	5278
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	5279	function_name = (symbol_c*)(new pragma_c("__time_to_int"));
169 bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	5280
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	5281	if (IN_type_symbol == NULL)
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	5282	IN_type_symbol = last_type_symbol;
149 05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	5283	ADD_PARAM_LIST(IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in)
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	5284	symbol_c * return_type_symbol = &search_constant_type_c::sint_type_name;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	5285	function_type_prefix = return_type_symbol;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	5286	break;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	5287
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	5288	}
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	5289
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	5290
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	5291	ERROR;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	5292	}
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	5293
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	5294	}/function_tod_to_sint/
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	5295	break;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	5296
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	5297	/****
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	5298	*TOD_TO_LINT
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	5299	*/
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	5300	case function_tod_to_lint :
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	5301	{
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	5302	symbol_c *last_type_symbol = NULL;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	5303
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	5304	{
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	5305	identifier_c param_name("IN");
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	5306	/* Get the value from a foo(<param_name> = <param_value>) style call */
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	5307	symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
169 bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	5308	symbol_c *IN_type_symbol = NULL;
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	5309
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	5310	/* Get the value from a foo(<param_value>) style call */
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	5311	if (IN_param_value == NULL)
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	5312	IN_param_value = function_call_param_iterator.next();
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	5313	if (IN_param_value != NULL) {
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	5314	IN_type_symbol = search_expression_type->get_type(IN_param_value);
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	5315	last_type_symbol = last_type_symbol && IN_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	5316	}
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	5317
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	5318	if(IN_type_symbol == NULL \|\| search_expression_type->is_same_type(&search_constant_type_c::tod_type_name, last_type_symbol))
149 05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	5319	{
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	5320
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	5321	function_name = (symbol_c*)(new pragma_c("__time_to_int"));
169 bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	5322
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	5323	if (IN_type_symbol == NULL)
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	5324	IN_type_symbol = last_type_symbol;
149 05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	5325	ADD_PARAM_LIST(IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in)
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	5326	symbol_c * return_type_symbol = &search_constant_type_c::lint_type_name;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	5327	function_type_prefix = return_type_symbol;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	5328	break;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	5329
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	5330	}
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	5331
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	5332
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	5333	ERROR;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	5334	}
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	5335
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	5336	}/function_tod_to_lint/
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	5337	break;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	5338
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	5339	/****
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	5340	*TOD_TO_DINT
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	5341	*/
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	5342	case function_tod_to_dint :
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	5343	{
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	5344	symbol_c *last_type_symbol = NULL;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	5345
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	5346	{
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	5347	identifier_c param_name("IN");
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	5348	/* Get the value from a foo(<param_name> = <param_value>) style call */
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	5349	symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
169 bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	5350	symbol_c *IN_type_symbol = NULL;
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	5351
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	5352	/* Get the value from a foo(<param_value>) style call */
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	5353	if (IN_param_value == NULL)
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	5354	IN_param_value = function_call_param_iterator.next();
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	5355	if (IN_param_value != NULL) {
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	5356	IN_type_symbol = search_expression_type->get_type(IN_param_value);
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	5357	last_type_symbol = last_type_symbol && IN_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	5358	}
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	5359
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	5360	if(IN_type_symbol == NULL \|\| search_expression_type->is_same_type(&search_constant_type_c::tod_type_name, last_type_symbol))
149 05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	5361	{
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	5362
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	5363	function_name = (symbol_c*)(new pragma_c("__time_to_int"));
169 bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	5364
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	5365	if (IN_type_symbol == NULL)
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	5366	IN_type_symbol = last_type_symbol;
149 05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	5367	ADD_PARAM_LIST(IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in)
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	5368	symbol_c * return_type_symbol = &search_constant_type_c::dint_type_name;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	5369	function_type_prefix = return_type_symbol;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	5370	break;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	5371
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	5372	}
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	5373
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	5374
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	5375	ERROR;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	5376	}
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	5377
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	5378	}/function_tod_to_dint/
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	5379	break;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	5380
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	5381	/****
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	5382	*TOD_TO_DWORD
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	5383	*/
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	5384	case function_tod_to_dword :
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	5385	{
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	5386	symbol_c *last_type_symbol = NULL;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	5387
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	5388	{
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	5389	identifier_c param_name("IN");
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	5390	/* Get the value from a foo(<param_name> = <param_value>) style call */
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	5391	symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
169 bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	5392	symbol_c *IN_type_symbol = NULL;
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	5393
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	5394	/* Get the value from a foo(<param_value>) style call */
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	5395	if (IN_param_value == NULL)
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	5396	IN_param_value = function_call_param_iterator.next();
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	5397	if (IN_param_value != NULL) {
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	5398	IN_type_symbol = search_expression_type->get_type(IN_param_value);
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	5399	last_type_symbol = last_type_symbol && IN_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	5400	}
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	5401
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	5402	if(IN_type_symbol == NULL \|\| search_expression_type->is_same_type(&search_constant_type_c::tod_type_name, last_type_symbol))
149 05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	5403	{
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	5404
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	5405	function_name = (symbol_c*)(new pragma_c("__time_to_int"));
169 bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	5406
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	5407	if (IN_type_symbol == NULL)
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	5408	IN_type_symbol = last_type_symbol;
149 05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	5409	ADD_PARAM_LIST(IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in)
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	5410	symbol_c * return_type_symbol = &search_constant_type_c::dword_type_name;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	5411	function_type_prefix = return_type_symbol;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	5412	break;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	5413
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	5414	}
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	5415
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	5416
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	5417	ERROR;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	5418	}
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	5419
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	5420	}/function_tod_to_dword/
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	5421	break;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	5422
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	5423	/****
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	5424	*TOD_TO_UDINT
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	5425	*/
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	5426	case function_tod_to_udint :
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	5427	{
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	5428	symbol_c *last_type_symbol = NULL;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	5429
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	5430	{
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	5431	identifier_c param_name("IN");
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	5432	/* Get the value from a foo(<param_name> = <param_value>) style call */
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	5433	symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
169 bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	5434	symbol_c *IN_type_symbol = NULL;
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	5435
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	5436	/* Get the value from a foo(<param_value>) style call */
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	5437	if (IN_param_value == NULL)
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	5438	IN_param_value = function_call_param_iterator.next();
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	5439	if (IN_param_value != NULL) {
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	5440	IN_type_symbol = search_expression_type->get_type(IN_param_value);
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	5441	last_type_symbol = last_type_symbol && IN_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	5442	}
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	5443
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	5444	if(IN_type_symbol == NULL \|\| search_expression_type->is_same_type(&search_constant_type_c::tod_type_name, last_type_symbol))
149 05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	5445	{
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	5446
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	5447	function_name = (symbol_c*)(new pragma_c("__time_to_int"));
169 bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	5448
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	5449	if (IN_type_symbol == NULL)
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	5450	IN_type_symbol = last_type_symbol;
149 05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	5451	ADD_PARAM_LIST(IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in)
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	5452	symbol_c * return_type_symbol = &search_constant_type_c::udint_type_name;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	5453	function_type_prefix = return_type_symbol;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	5454	break;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	5455
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	5456	}
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	5457
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	5458
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	5459	ERROR;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	5460	}
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	5461
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	5462	}/function_tod_to_udint/
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	5463	break;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	5464
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	5465	/****
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	5466	*TOD_TO_WORD
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	5467	*/
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	5468	case function_tod_to_word :
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	5469	{
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	5470	symbol_c *last_type_symbol = NULL;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	5471
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	5472	{
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	5473	identifier_c param_name("IN");
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	5474	/* Get the value from a foo(<param_name> = <param_value>) style call */
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	5475	symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
169 bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	5476	symbol_c *IN_type_symbol = NULL;
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	5477
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	5478	/* Get the value from a foo(<param_value>) style call */
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	5479	if (IN_param_value == NULL)
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	5480	IN_param_value = function_call_param_iterator.next();
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	5481	if (IN_param_value != NULL) {
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	5482	IN_type_symbol = search_expression_type->get_type(IN_param_value);
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	5483	last_type_symbol = last_type_symbol && IN_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	5484	}
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	5485
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	5486	if(IN_type_symbol == NULL \|\| search_expression_type->is_same_type(&search_constant_type_c::tod_type_name, last_type_symbol))
149 05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	5487	{
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	5488
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	5489	function_name = (symbol_c*)(new pragma_c("__time_to_int"));
169 bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	5490
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	5491	if (IN_type_symbol == NULL)
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	5492	IN_type_symbol = last_type_symbol;
149 05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	5493	ADD_PARAM_LIST(IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in)
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	5494	symbol_c * return_type_symbol = &search_constant_type_c::word_type_name;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	5495	function_type_prefix = return_type_symbol;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	5496	break;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	5497
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	5498	}
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	5499
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	5500
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	5501	ERROR;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	5502	}
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	5503
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	5504	}/function_tod_to_word/
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	5505	break;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	5506
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	5507	/****
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	5508	*TOD_TO_STRING
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	5509	*/
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	5510	case function_tod_to_string :
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	5511	{
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	5512	symbol_c *last_type_symbol = NULL;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	5513
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	5514	{
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	5515	identifier_c param_name("IN");
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	5516	/* Get the value from a foo(<param_name> = <param_value>) style call */
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	5517	symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
169 bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	5518	symbol_c *IN_type_symbol = NULL;
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	5519
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	5520	/* Get the value from a foo(<param_value>) style call */
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	5521	if (IN_param_value == NULL)
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	5522	IN_param_value = function_call_param_iterator.next();
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	5523	if (IN_param_value != NULL) {
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	5524	IN_type_symbol = search_expression_type->get_type(IN_param_value);
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	5525	last_type_symbol = last_type_symbol && IN_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	5526	}
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	5527
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	5528	if(IN_type_symbol == NULL \|\| search_expression_type->is_same_type(&search_constant_type_c::tod_type_name, last_type_symbol))
149 05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	5529	{
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	5530
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	5531	function_name = (symbol_c*)(new pragma_c("__tod_to_string"));
169 bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	5532
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	5533	if (IN_type_symbol == NULL)
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	5534	IN_type_symbol = last_type_symbol;
149 05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	5535	ADD_PARAM_LIST(IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in)
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	5536	symbol_c * return_type_symbol = &search_constant_type_c::string_type_name;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	5537	function_type_prefix = return_type_symbol;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	5538	break;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	5539
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	5540	}
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	5541
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	5542
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	5543	ERROR;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	5544	}
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	5545
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	5546	}/function_tod_to_string/
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	5547	break;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	5548
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	5549	/****
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	5550	*TOD_TO_LWORD
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	5551	*/
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	5552	case function_tod_to_lword :
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	5553	{
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	5554	symbol_c *last_type_symbol = NULL;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	5555
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	5556	{
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	5557	identifier_c param_name("IN");
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	5558	/* Get the value from a foo(<param_name> = <param_value>) style call */
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	5559	symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
169 bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	5560	symbol_c *IN_type_symbol = NULL;
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	5561
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	5562	/* Get the value from a foo(<param_value>) style call */
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	5563	if (IN_param_value == NULL)
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	5564	IN_param_value = function_call_param_iterator.next();
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	5565	if (IN_param_value != NULL) {
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	5566	IN_type_symbol = search_expression_type->get_type(IN_param_value);
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	5567	last_type_symbol = last_type_symbol && IN_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	5568	}
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	5569
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	5570	if(IN_type_symbol == NULL \|\| search_expression_type->is_same_type(&search_constant_type_c::tod_type_name, last_type_symbol))
149 05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	5571	{
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	5572
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	5573	function_name = (symbol_c*)(new pragma_c("__time_to_int"));
169 bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	5574
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	5575	if (IN_type_symbol == NULL)
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	5576	IN_type_symbol = last_type_symbol;
149 05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	5577	ADD_PARAM_LIST(IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in)
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	5578	symbol_c * return_type_symbol = &search_constant_type_c::lword_type_name;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	5579	function_type_prefix = return_type_symbol;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	5580	break;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	5581
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	5582	}
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	5583
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	5584
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	5585	ERROR;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	5586	}
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	5587
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	5588	}/function_tod_to_lword/
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	5589	break;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	5590
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	5591	/****
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	5592	*TOD_TO_UINT
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	5593	*/
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	5594	case function_tod_to_uint :
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	5595	{
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	5596	symbol_c *last_type_symbol = NULL;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	5597
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	5598	{
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	5599	identifier_c param_name("IN");
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	5600	/* Get the value from a foo(<param_name> = <param_value>) style call */
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	5601	symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
169 bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	5602	symbol_c *IN_type_symbol = NULL;
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	5603
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	5604	/* Get the value from a foo(<param_value>) style call */
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	5605	if (IN_param_value == NULL)
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	5606	IN_param_value = function_call_param_iterator.next();
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	5607	if (IN_param_value != NULL) {
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	5608	IN_type_symbol = search_expression_type->get_type(IN_param_value);
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	5609	last_type_symbol = last_type_symbol && IN_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	5610	}
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	5611
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	5612	if(IN_type_symbol == NULL \|\| search_expression_type->is_same_type(&search_constant_type_c::tod_type_name, last_type_symbol))
149 05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	5613	{
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	5614
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	5615	function_name = (symbol_c*)(new pragma_c("__time_to_int"));
169 bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	5616
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	5617	if (IN_type_symbol == NULL)
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	5618	IN_type_symbol = last_type_symbol;
149 05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	5619	ADD_PARAM_LIST(IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in)
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	5620	symbol_c * return_type_symbol = &search_constant_type_c::uint_type_name;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	5621	function_type_prefix = return_type_symbol;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	5622	break;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	5623
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	5624	}
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	5625
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	5626
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	5627	ERROR;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	5628	}
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	5629
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	5630	}/function_tod_to_uint/
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	5631	break;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	5632
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	5633	/****
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	5634	*TOD_TO_LREAL
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	5635	*/
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	5636	case function_tod_to_lreal :
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	5637	{
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	5638	symbol_c *last_type_symbol = NULL;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	5639
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	5640	{
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	5641	identifier_c param_name("IN");
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	5642	/* Get the value from a foo(<param_name> = <param_value>) style call */
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	5643	symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
169 bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	5644	symbol_c *IN_type_symbol = NULL;
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	5645
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	5646	/* Get the value from a foo(<param_value>) style call */
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	5647	if (IN_param_value == NULL)
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	5648	IN_param_value = function_call_param_iterator.next();
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	5649	if (IN_param_value != NULL) {
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	5650	IN_type_symbol = search_expression_type->get_type(IN_param_value);
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	5651	last_type_symbol = last_type_symbol && IN_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	5652	}
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	5653
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	5654	if(IN_type_symbol == NULL \|\| search_expression_type->is_same_type(&search_constant_type_c::tod_type_name, last_type_symbol))
149 05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	5655	{
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	5656
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	5657	function_name = (symbol_c*)(new pragma_c("__time_to_real"));
169 bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	5658
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	5659	if (IN_type_symbol == NULL)
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	5660	IN_type_symbol = last_type_symbol;
149 05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	5661	ADD_PARAM_LIST(IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in)
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	5662	symbol_c * return_type_symbol = &search_constant_type_c::lreal_type_name;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	5663	function_type_prefix = return_type_symbol;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	5664	break;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	5665
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	5666	}
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	5667
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	5668
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	5669	ERROR;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	5670	}
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	5671
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	5672	}/function_tod_to_lreal/
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	5673	break;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	5674
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	5675	/****
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	5676	*TOD_TO_BYTE
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	5677	*/
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	5678	case function_tod_to_byte :
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	5679	{
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	5680	symbol_c *last_type_symbol = NULL;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	5681
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	5682	{
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	5683	identifier_c param_name("IN");
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	5684	/* Get the value from a foo(<param_name> = <param_value>) style call */
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	5685	symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
169 bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	5686	symbol_c *IN_type_symbol = NULL;
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	5687
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	5688	/* Get the value from a foo(<param_value>) style call */
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	5689	if (IN_param_value == NULL)
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	5690	IN_param_value = function_call_param_iterator.next();
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	5691	if (IN_param_value != NULL) {
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	5692	IN_type_symbol = search_expression_type->get_type(IN_param_value);
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	5693	last_type_symbol = last_type_symbol && IN_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	5694	}
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	5695
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	5696	if(IN_type_symbol == NULL \|\| search_expression_type->is_same_type(&search_constant_type_c::tod_type_name, last_type_symbol))
149 05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	5697	{
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	5698
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	5699	function_name = (symbol_c*)(new pragma_c("__time_to_int"));
169 bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	5700
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	5701	if (IN_type_symbol == NULL)
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	5702	IN_type_symbol = last_type_symbol;
149 05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	5703	ADD_PARAM_LIST(IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in)
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	5704	symbol_c * return_type_symbol = &search_constant_type_c::byte_type_name;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	5705	function_type_prefix = return_type_symbol;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	5706	break;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	5707
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	5708	}
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	5709
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	5710
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	5711	ERROR;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	5712	}
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	5713
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	5714	}/function_tod_to_byte/
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	5715	break;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	5716
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	5717	/****
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	5718	*TOD_TO_USINT
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	5719	*/
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	5720	case function_tod_to_usint :
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	5721	{
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	5722	symbol_c *last_type_symbol = NULL;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	5723
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	5724	{
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	5725	identifier_c param_name("IN");
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	5726	/* Get the value from a foo(<param_name> = <param_value>) style call */
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	5727	symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
169 bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	5728	symbol_c *IN_type_symbol = NULL;
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	5729
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	5730	/* Get the value from a foo(<param_value>) style call */
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	5731	if (IN_param_value == NULL)
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	5732	IN_param_value = function_call_param_iterator.next();
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	5733	if (IN_param_value != NULL) {
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	5734	IN_type_symbol = search_expression_type->get_type(IN_param_value);
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	5735	last_type_symbol = last_type_symbol && IN_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	5736	}
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	5737
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	5738	if(IN_type_symbol == NULL \|\| search_expression_type->is_same_type(&search_constant_type_c::tod_type_name, last_type_symbol))
149 05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	5739	{
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	5740
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	5741	function_name = (symbol_c*)(new pragma_c("__time_to_int"));
169 bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	5742
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	5743	if (IN_type_symbol == NULL)
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	5744	IN_type_symbol = last_type_symbol;
149 05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	5745	ADD_PARAM_LIST(IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in)
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	5746	symbol_c * return_type_symbol = &search_constant_type_c::usint_type_name;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	5747	function_type_prefix = return_type_symbol;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	5748	break;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	5749
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	5750	}
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	5751
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	5752
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	5753	ERROR;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	5754	}
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	5755
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	5756	}/function_tod_to_usint/
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	5757	break;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	5758
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	5759	/****
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	5760	*TOD_TO_ULINT
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	5761	*/
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	5762	case function_tod_to_ulint :
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	5763	{
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	5764	symbol_c *last_type_symbol = NULL;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	5765
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	5766	{
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	5767	identifier_c param_name("IN");
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	5768	/* Get the value from a foo(<param_name> = <param_value>) style call */
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	5769	symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
169 bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	5770	symbol_c *IN_type_symbol = NULL;
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	5771
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	5772	/* Get the value from a foo(<param_value>) style call */
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	5773	if (IN_param_value == NULL)
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	5774	IN_param_value = function_call_param_iterator.next();
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	5775	if (IN_param_value != NULL) {
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	5776	IN_type_symbol = search_expression_type->get_type(IN_param_value);
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	5777	last_type_symbol = last_type_symbol && IN_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	5778	}
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	5779
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	5780	if(IN_type_symbol == NULL \|\| search_expression_type->is_same_type(&search_constant_type_c::tod_type_name, last_type_symbol))
149 05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	5781	{
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	5782
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	5783	function_name = (symbol_c*)(new pragma_c("__time_to_int"));
169 bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	5784
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	5785	if (IN_type_symbol == NULL)
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	5786	IN_type_symbol = last_type_symbol;
149 05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	5787	ADD_PARAM_LIST(IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in)
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	5788	symbol_c * return_type_symbol = &search_constant_type_c::ulint_type_name;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	5789	function_type_prefix = return_type_symbol;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	5790	break;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	5791
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	5792	}
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	5793
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	5794
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	5795	ERROR;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	5796	}
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	5797
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	5798	}/function_tod_to_ulint/
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	5799	break;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	5800
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	5801	/****
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	5802	*TOD_TO_INT
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	5803	*/
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	5804	case function_tod_to_int :
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	5805	{
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	5806	symbol_c *last_type_symbol = NULL;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	5807
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	5808	{
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	5809	identifier_c param_name("IN");
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	5810	/* Get the value from a foo(<param_name> = <param_value>) style call */
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	5811	symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
169 bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	5812	symbol_c *IN_type_symbol = NULL;
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	5813
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	5814	/* Get the value from a foo(<param_value>) style call */
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	5815	if (IN_param_value == NULL)
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	5816	IN_param_value = function_call_param_iterator.next();
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	5817	if (IN_param_value != NULL) {
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	5818	IN_type_symbol = search_expression_type->get_type(IN_param_value);
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	5819	last_type_symbol = last_type_symbol && IN_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	5820	}
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	5821
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	5822	if(IN_type_symbol == NULL \|\| search_expression_type->is_same_type(&search_constant_type_c::tod_type_name, last_type_symbol))
149 05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	5823	{
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	5824
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	5825	function_name = (symbol_c*)(new pragma_c("__time_to_int"));
169 bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	5826
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	5827	if (IN_type_symbol == NULL)
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	5828	IN_type_symbol = last_type_symbol;
149 05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	5829	ADD_PARAM_LIST(IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in)
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	5830	symbol_c * return_type_symbol = &search_constant_type_c::int_type_name;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	5831	function_type_prefix = return_type_symbol;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	5832	break;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	5833
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	5834	}
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	5835
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	5836
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	5837	ERROR;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	5838	}
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	5839
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	5840	}/function_tod_to_int/
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	5841	break;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	5842
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	5843	/****
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	5844	*UDINT_TO_REAL
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	5845	*/
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	5846	case function_udint_to_real :
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	5847	{
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	5848	symbol_c *last_type_symbol = NULL;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	5849
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	5850	{
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	5851	identifier_c param_name("IN");
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	5852	/* Get the value from a foo(<param_name> = <param_value>) style call */
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	5853	symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
169 bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	5854	symbol_c *IN_type_symbol = NULL;
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	5855
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	5856	/* Get the value from a foo(<param_value>) style call */
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	5857	if (IN_param_value == NULL)
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	5858	IN_param_value = function_call_param_iterator.next();
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	5859	if (IN_param_value != NULL) {
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	5860	IN_type_symbol = search_expression_type->get_type(IN_param_value);
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	5861	last_type_symbol = last_type_symbol && IN_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	5862	}
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	5863
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	5864	if(IN_type_symbol == NULL \|\| search_expression_type->is_same_type(&search_constant_type_c::udint_type_name, last_type_symbol))
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	5865	{
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	5866
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	5867
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	5868	if (IN_type_symbol == NULL)
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	5869	IN_type_symbol = last_type_symbol;
149 05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	5870	ADD_PARAM_LIST(IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in)
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	5871	symbol_c * return_type_symbol = &search_constant_type_c::real_type_name;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	5872	function_type_prefix = return_type_symbol;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	5873	break;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	5874
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	5875	}
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	5876
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	5877
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	5878	ERROR;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	5879	}
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	5880
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	5881	}/function_udint_to_real/
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	5882	break;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	5883
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	5884	/****
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	5885	*UDINT_TO_SINT
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	5886	*/
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	5887	case function_udint_to_sint :
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	5888	{
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	5889	symbol_c *last_type_symbol = NULL;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	5890
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	5891	{
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	5892	identifier_c param_name("IN");
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	5893	/* Get the value from a foo(<param_name> = <param_value>) style call */
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	5894	symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
169 bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	5895	symbol_c *IN_type_symbol = NULL;
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	5896
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	5897	/* Get the value from a foo(<param_value>) style call */
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	5898	if (IN_param_value == NULL)
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	5899	IN_param_value = function_call_param_iterator.next();
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	5900	if (IN_param_value != NULL) {
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	5901	IN_type_symbol = search_expression_type->get_type(IN_param_value);
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	5902	last_type_symbol = last_type_symbol && IN_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	5903	}
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	5904
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	5905	if(IN_type_symbol == NULL \|\| search_expression_type->is_same_type(&search_constant_type_c::udint_type_name, last_type_symbol))
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	5906	{
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	5907
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	5908
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	5909	if (IN_type_symbol == NULL)
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	5910	IN_type_symbol = last_type_symbol;
149 05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	5911	ADD_PARAM_LIST(IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in)
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	5912	symbol_c * return_type_symbol = &search_constant_type_c::sint_type_name;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	5913	function_type_prefix = return_type_symbol;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	5914	break;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	5915
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	5916	}
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	5917
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	5918
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	5919	ERROR;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	5920	}
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	5921
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	5922	}/function_udint_to_sint/
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	5923	break;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	5924
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	5925	/****
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	5926	*UDINT_TO_LINT
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	5927	*/
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	5928	case function_udint_to_lint :
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	5929	{
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	5930	symbol_c *last_type_symbol = NULL;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	5931
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	5932	{
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	5933	identifier_c param_name("IN");
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	5934	/* Get the value from a foo(<param_name> = <param_value>) style call */
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	5935	symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
169 bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	5936	symbol_c *IN_type_symbol = NULL;
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	5937
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	5938	/* Get the value from a foo(<param_value>) style call */
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	5939	if (IN_param_value == NULL)
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	5940	IN_param_value = function_call_param_iterator.next();
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	5941	if (IN_param_value != NULL) {
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	5942	IN_type_symbol = search_expression_type->get_type(IN_param_value);
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	5943	last_type_symbol = last_type_symbol && IN_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	5944	}
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	5945
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	5946	if(IN_type_symbol == NULL \|\| search_expression_type->is_same_type(&search_constant_type_c::udint_type_name, last_type_symbol))
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	5947	{
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	5948
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	5949
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	5950	if (IN_type_symbol == NULL)
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	5951	IN_type_symbol = last_type_symbol;
149 05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	5952	ADD_PARAM_LIST(IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in)
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	5953	symbol_c * return_type_symbol = &search_constant_type_c::lint_type_name;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	5954	function_type_prefix = return_type_symbol;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	5955	break;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	5956
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	5957	}
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	5958
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	5959
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	5960	ERROR;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	5961	}
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	5962
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	5963	}/function_udint_to_lint/
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	5964	break;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	5965
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	5966	/****
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	5967	*UDINT_TO_DINT
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	5968	*/
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	5969	case function_udint_to_dint :
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	5970	{
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	5971	symbol_c *last_type_symbol = NULL;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	5972
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	5973	{
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	5974	identifier_c param_name("IN");
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	5975	/* Get the value from a foo(<param_name> = <param_value>) style call */
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	5976	symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
169 bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	5977	symbol_c *IN_type_symbol = NULL;
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	5978
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	5979	/* Get the value from a foo(<param_value>) style call */
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	5980	if (IN_param_value == NULL)
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	5981	IN_param_value = function_call_param_iterator.next();
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	5982	if (IN_param_value != NULL) {
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	5983	IN_type_symbol = search_expression_type->get_type(IN_param_value);
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	5984	last_type_symbol = last_type_symbol && IN_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	5985	}
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	5986
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	5987	if(IN_type_symbol == NULL \|\| search_expression_type->is_same_type(&search_constant_type_c::udint_type_name, last_type_symbol))
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	5988	{
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	5989
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	5990
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	5991	if (IN_type_symbol == NULL)
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	5992	IN_type_symbol = last_type_symbol;
149 05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	5993	ADD_PARAM_LIST(IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in)
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	5994	symbol_c * return_type_symbol = &search_constant_type_c::dint_type_name;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	5995	function_type_prefix = return_type_symbol;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	5996	break;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	5997
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	5998	}
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	5999
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	6000
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	6001	ERROR;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	6002	}
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	6003
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	6004	}/function_udint_to_dint/
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	6005	break;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	6006
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	6007	/****
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	6008	*UDINT_TO_DATE
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	6009	*/
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	6010	case function_udint_to_date :
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	6011	{
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	6012	symbol_c *last_type_symbol = NULL;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	6013
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	6014	{
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	6015	identifier_c param_name("IN");
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	6016	/* Get the value from a foo(<param_name> = <param_value>) style call */
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	6017	symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
169 bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	6018	symbol_c *IN_type_symbol = NULL;
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	6019
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	6020	/* Get the value from a foo(<param_value>) style call */
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	6021	if (IN_param_value == NULL)
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	6022	IN_param_value = function_call_param_iterator.next();
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	6023	if (IN_param_value != NULL) {
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	6024	IN_type_symbol = search_expression_type->get_type(IN_param_value);
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	6025	last_type_symbol = last_type_symbol && IN_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	6026	}
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	6027
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	6028	if(IN_type_symbol == NULL \|\| search_expression_type->is_same_type(&search_constant_type_c::udint_type_name, last_type_symbol))
149 05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	6029	{
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	6030
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	6031	function_name = (symbol_c*)(new pragma_c("__int_to_time"));
169 bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	6032
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	6033	if (IN_type_symbol == NULL)
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	6034	IN_type_symbol = last_type_symbol;
149 05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	6035	ADD_PARAM_LIST(IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in)
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	6036	symbol_c * return_type_symbol = &search_constant_type_c::date_type_name;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	6037	function_type_prefix = return_type_symbol;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	6038	break;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	6039
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	6040	}
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	6041
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	6042
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	6043	ERROR;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	6044	}
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	6045
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	6046	}/function_udint_to_date/
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	6047	break;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	6048
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	6049	/****
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	6050	*UDINT_TO_DWORD
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	6051	*/
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	6052	case function_udint_to_dword :
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	6053	{
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	6054	symbol_c *last_type_symbol = NULL;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	6055
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	6056	{
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	6057	identifier_c param_name("IN");
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	6058	/* Get the value from a foo(<param_name> = <param_value>) style call */
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	6059	symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
169 bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	6060	symbol_c *IN_type_symbol = NULL;
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	6061
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	6062	/* Get the value from a foo(<param_value>) style call */
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	6063	if (IN_param_value == NULL)
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	6064	IN_param_value = function_call_param_iterator.next();
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	6065	if (IN_param_value != NULL) {
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	6066	IN_type_symbol = search_expression_type->get_type(IN_param_value);
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	6067	last_type_symbol = last_type_symbol && IN_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	6068	}
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	6069
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	6070	if(IN_type_symbol == NULL \|\| search_expression_type->is_same_type(&search_constant_type_c::udint_type_name, last_type_symbol))
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	6071	{
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	6072
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	6073
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	6074	if (IN_type_symbol == NULL)
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	6075	IN_type_symbol = last_type_symbol;
149 05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	6076	ADD_PARAM_LIST(IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in)
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	6077	symbol_c * return_type_symbol = &search_constant_type_c::dword_type_name;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	6078	function_type_prefix = return_type_symbol;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	6079	break;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	6080
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	6081	}
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	6082
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	6083
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	6084	ERROR;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	6085	}
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	6086
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	6087	}/function_udint_to_dword/
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	6088	break;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	6089
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	6090	/****
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	6091	*UDINT_TO_DT
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	6092	*/
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	6093	case function_udint_to_dt :
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	6094	{
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	6095	symbol_c *last_type_symbol = NULL;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	6096
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	6097	{
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	6098	identifier_c param_name("IN");
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	6099	/* Get the value from a foo(<param_name> = <param_value>) style call */
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	6100	symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
169 bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	6101	symbol_c *IN_type_symbol = NULL;
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	6102
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	6103	/* Get the value from a foo(<param_value>) style call */
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	6104	if (IN_param_value == NULL)
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	6105	IN_param_value = function_call_param_iterator.next();
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	6106	if (IN_param_value != NULL) {
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	6107	IN_type_symbol = search_expression_type->get_type(IN_param_value);
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	6108	last_type_symbol = last_type_symbol && IN_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	6109	}
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	6110
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	6111	if(IN_type_symbol == NULL \|\| search_expression_type->is_same_type(&search_constant_type_c::udint_type_name, last_type_symbol))
149 05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	6112	{
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	6113
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	6114	function_name = (symbol_c*)(new pragma_c("__int_to_time"));
169 bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	6115
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	6116	if (IN_type_symbol == NULL)
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	6117	IN_type_symbol = last_type_symbol;
149 05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	6118	ADD_PARAM_LIST(IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in)
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	6119	symbol_c * return_type_symbol = &search_constant_type_c::dt_type_name;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	6120	function_type_prefix = return_type_symbol;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	6121	break;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	6122
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	6123	}
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	6124
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	6125
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	6126	ERROR;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	6127	}
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	6128
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	6129	}/function_udint_to_dt/
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	6130	break;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	6131
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	6132	/****
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	6133	*UDINT_TO_TOD
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	6134	*/
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	6135	case function_udint_to_tod :
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	6136	{
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	6137	symbol_c *last_type_symbol = NULL;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	6138
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	6139	{
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	6140	identifier_c param_name("IN");
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	6141	/* Get the value from a foo(<param_name> = <param_value>) style call */
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	6142	symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
169 bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	6143	symbol_c *IN_type_symbol = NULL;
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	6144
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	6145	/* Get the value from a foo(<param_value>) style call */
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	6146	if (IN_param_value == NULL)
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	6147	IN_param_value = function_call_param_iterator.next();
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	6148	if (IN_param_value != NULL) {
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	6149	IN_type_symbol = search_expression_type->get_type(IN_param_value);
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	6150	last_type_symbol = last_type_symbol && IN_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	6151	}
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	6152
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	6153	if(IN_type_symbol == NULL \|\| search_expression_type->is_same_type(&search_constant_type_c::udint_type_name, last_type_symbol))
149 05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	6154	{
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	6155
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	6156	function_name = (symbol_c*)(new pragma_c("__int_to_time"));
169 bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	6157
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	6158	if (IN_type_symbol == NULL)
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	6159	IN_type_symbol = last_type_symbol;
149 05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	6160	ADD_PARAM_LIST(IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in)
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	6161	symbol_c * return_type_symbol = &search_constant_type_c::tod_type_name;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	6162	function_type_prefix = return_type_symbol;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	6163	break;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	6164
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	6165	}
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	6166
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	6167
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	6168	ERROR;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	6169	}
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	6170
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	6171	}/function_udint_to_tod/
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	6172	break;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	6173
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	6174	/****
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	6175	*UDINT_TO_WORD
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	6176	*/
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	6177	case function_udint_to_word :
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	6178	{
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	6179	symbol_c *last_type_symbol = NULL;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	6180
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	6181	{
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	6182	identifier_c param_name("IN");
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	6183	/* Get the value from a foo(<param_name> = <param_value>) style call */
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	6184	symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
169 bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	6185	symbol_c *IN_type_symbol = NULL;
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	6186
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	6187	/* Get the value from a foo(<param_value>) style call */
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	6188	if (IN_param_value == NULL)
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	6189	IN_param_value = function_call_param_iterator.next();
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	6190	if (IN_param_value != NULL) {
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	6191	IN_type_symbol = search_expression_type->get_type(IN_param_value);
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	6192	last_type_symbol = last_type_symbol && IN_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	6193	}
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	6194
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	6195	if(IN_type_symbol == NULL \|\| search_expression_type->is_same_type(&search_constant_type_c::udint_type_name, last_type_symbol))
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	6196	{
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	6197
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	6198
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	6199	if (IN_type_symbol == NULL)
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	6200	IN_type_symbol = last_type_symbol;
149 05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	6201	ADD_PARAM_LIST(IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in)
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	6202	symbol_c * return_type_symbol = &search_constant_type_c::word_type_name;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	6203	function_type_prefix = return_type_symbol;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	6204	break;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	6205
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	6206	}
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	6207
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	6208
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	6209	ERROR;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	6210	}
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	6211
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	6212	}/function_udint_to_word/
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	6213	break;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	6214
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	6215	/****
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	6216	*UDINT_TO_STRING
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	6217	*/
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	6218	case function_udint_to_string :
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	6219	{
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	6220	symbol_c *last_type_symbol = NULL;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	6221
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	6222	{
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	6223	identifier_c param_name("IN");
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	6224	/* Get the value from a foo(<param_name> = <param_value>) style call */
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	6225	symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
169 bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	6226	symbol_c *IN_type_symbol = NULL;
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	6227
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	6228	/* Get the value from a foo(<param_value>) style call */
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	6229	if (IN_param_value == NULL)
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	6230	IN_param_value = function_call_param_iterator.next();
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	6231	if (IN_param_value != NULL) {
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	6232	IN_type_symbol = search_expression_type->get_type(IN_param_value);
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	6233	last_type_symbol = last_type_symbol && IN_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	6234	}
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	6235
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	6236	if(IN_type_symbol == NULL \|\| search_expression_type->is_same_type(&search_constant_type_c::udint_type_name, last_type_symbol))
149 05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	6237	{
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	6238
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	6239	function_name = (symbol_c*)(new pragma_c("__uint_to_string"));
169 bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	6240
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	6241	if (IN_type_symbol == NULL)
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	6242	IN_type_symbol = last_type_symbol;
149 05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	6243	ADD_PARAM_LIST(IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in)
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	6244	symbol_c * return_type_symbol = &search_constant_type_c::string_type_name;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	6245	function_type_prefix = return_type_symbol;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	6246	break;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	6247
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	6248	}
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	6249
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	6250
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	6251	ERROR;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	6252	}
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	6253
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	6254	}/function_udint_to_string/
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	6255	break;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	6256
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	6257	/****
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	6258	*UDINT_TO_LWORD
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	6259	*/
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	6260	case function_udint_to_lword :
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	6261	{
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	6262	symbol_c *last_type_symbol = NULL;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	6263
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	6264	{
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	6265	identifier_c param_name("IN");
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	6266	/* Get the value from a foo(<param_name> = <param_value>) style call */
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	6267	symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
169 bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	6268	symbol_c *IN_type_symbol = NULL;
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	6269
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	6270	/* Get the value from a foo(<param_value>) style call */
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	6271	if (IN_param_value == NULL)
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	6272	IN_param_value = function_call_param_iterator.next();
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	6273	if (IN_param_value != NULL) {
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	6274	IN_type_symbol = search_expression_type->get_type(IN_param_value);
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	6275	last_type_symbol = last_type_symbol && IN_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	6276	}
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	6277
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	6278	if(IN_type_symbol == NULL \|\| search_expression_type->is_same_type(&search_constant_type_c::udint_type_name, last_type_symbol))
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	6279	{
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	6280
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	6281
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	6282	if (IN_type_symbol == NULL)
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	6283	IN_type_symbol = last_type_symbol;
149 05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	6284	ADD_PARAM_LIST(IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in)
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	6285	symbol_c * return_type_symbol = &search_constant_type_c::lword_type_name;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	6286	function_type_prefix = return_type_symbol;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	6287	break;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	6288
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	6289	}
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	6290
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	6291
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	6292	ERROR;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	6293	}
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	6294
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	6295	}/function_udint_to_lword/
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	6296	break;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	6297
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	6298	/****
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	6299	*UDINT_TO_UINT
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	6300	*/
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	6301	case function_udint_to_uint :
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	6302	{
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	6303	symbol_c *last_type_symbol = NULL;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	6304
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	6305	{
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	6306	identifier_c param_name("IN");
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	6307	/* Get the value from a foo(<param_name> = <param_value>) style call */
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	6308	symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
169 bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	6309	symbol_c *IN_type_symbol = NULL;
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	6310
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	6311	/* Get the value from a foo(<param_value>) style call */
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	6312	if (IN_param_value == NULL)
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	6313	IN_param_value = function_call_param_iterator.next();
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	6314	if (IN_param_value != NULL) {
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	6315	IN_type_symbol = search_expression_type->get_type(IN_param_value);
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	6316	last_type_symbol = last_type_symbol && IN_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	6317	}
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	6318
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	6319	if(IN_type_symbol == NULL \|\| search_expression_type->is_same_type(&search_constant_type_c::udint_type_name, last_type_symbol))
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	6320	{
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	6321
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	6322
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	6323	if (IN_type_symbol == NULL)
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	6324	IN_type_symbol = last_type_symbol;
149 05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	6325	ADD_PARAM_LIST(IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in)
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	6326	symbol_c * return_type_symbol = &search_constant_type_c::uint_type_name;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	6327	function_type_prefix = return_type_symbol;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	6328	break;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	6329
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	6330	}
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	6331
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	6332
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	6333	ERROR;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	6334	}
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	6335
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	6336	}/function_udint_to_uint/
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	6337	break;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	6338
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	6339	/****
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	6340	*UDINT_TO_LREAL
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	6341	*/
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	6342	case function_udint_to_lreal :
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	6343	{
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	6344	symbol_c *last_type_symbol = NULL;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	6345
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	6346	{
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	6347	identifier_c param_name("IN");
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	6348	/* Get the value from a foo(<param_name> = <param_value>) style call */
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	6349	symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
169 bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	6350	symbol_c *IN_type_symbol = NULL;
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	6351
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	6352	/* Get the value from a foo(<param_value>) style call */
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	6353	if (IN_param_value == NULL)
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	6354	IN_param_value = function_call_param_iterator.next();
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	6355	if (IN_param_value != NULL) {
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	6356	IN_type_symbol = search_expression_type->get_type(IN_param_value);
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	6357	last_type_symbol = last_type_symbol && IN_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	6358	}
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	6359
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	6360	if(IN_type_symbol == NULL \|\| search_expression_type->is_same_type(&search_constant_type_c::udint_type_name, last_type_symbol))
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	6361	{
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	6362
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	6363
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	6364	if (IN_type_symbol == NULL)
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	6365	IN_type_symbol = last_type_symbol;
149 05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	6366	ADD_PARAM_LIST(IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in)
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	6367	symbol_c * return_type_symbol = &search_constant_type_c::lreal_type_name;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	6368	function_type_prefix = return_type_symbol;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	6369	break;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	6370
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	6371	}
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	6372
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	6373
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	6374	ERROR;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	6375	}
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	6376
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	6377	}/function_udint_to_lreal/
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	6378	break;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	6379
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	6380	/****
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	6381	*UDINT_TO_BYTE
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	6382	*/
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	6383	case function_udint_to_byte :
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	6384	{
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	6385	symbol_c *last_type_symbol = NULL;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	6386
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	6387	{
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	6388	identifier_c param_name("IN");
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	6389	/* Get the value from a foo(<param_name> = <param_value>) style call */
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	6390	symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
169 bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	6391	symbol_c *IN_type_symbol = NULL;
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	6392
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	6393	/* Get the value from a foo(<param_value>) style call */
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	6394	if (IN_param_value == NULL)
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	6395	IN_param_value = function_call_param_iterator.next();
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	6396	if (IN_param_value != NULL) {
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	6397	IN_type_symbol = search_expression_type->get_type(IN_param_value);
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	6398	last_type_symbol = last_type_symbol && IN_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	6399	}
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	6400
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	6401	if(IN_type_symbol == NULL \|\| search_expression_type->is_same_type(&search_constant_type_c::udint_type_name, last_type_symbol))
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	6402	{
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	6403
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	6404
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	6405	if (IN_type_symbol == NULL)
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	6406	IN_type_symbol = last_type_symbol;
149 05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	6407	ADD_PARAM_LIST(IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in)
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	6408	symbol_c * return_type_symbol = &search_constant_type_c::byte_type_name;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	6409	function_type_prefix = return_type_symbol;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	6410	break;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	6411
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	6412	}
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	6413
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	6414
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	6415	ERROR;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	6416	}
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	6417
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	6418	}/function_udint_to_byte/
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	6419	break;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	6420
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	6421	/****
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	6422	*UDINT_TO_USINT
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	6423	*/
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	6424	case function_udint_to_usint :
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	6425	{
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	6426	symbol_c *last_type_symbol = NULL;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	6427
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	6428	{
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	6429	identifier_c param_name("IN");
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	6430	/* Get the value from a foo(<param_name> = <param_value>) style call */
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	6431	symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
169 bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	6432	symbol_c *IN_type_symbol = NULL;
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	6433
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	6434	/* Get the value from a foo(<param_value>) style call */
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	6435	if (IN_param_value == NULL)
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	6436	IN_param_value = function_call_param_iterator.next();
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	6437	if (IN_param_value != NULL) {
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	6438	IN_type_symbol = search_expression_type->get_type(IN_param_value);
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	6439	last_type_symbol = last_type_symbol && IN_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	6440	}
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	6441
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	6442	if(IN_type_symbol == NULL \|\| search_expression_type->is_same_type(&search_constant_type_c::udint_type_name, last_type_symbol))
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	6443	{
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	6444
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	6445
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	6446	if (IN_type_symbol == NULL)
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	6447	IN_type_symbol = last_type_symbol;
149 05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	6448	ADD_PARAM_LIST(IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in)
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	6449	symbol_c * return_type_symbol = &search_constant_type_c::usint_type_name;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	6450	function_type_prefix = return_type_symbol;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	6451	break;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	6452
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	6453	}
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	6454
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	6455
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	6456	ERROR;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	6457	}
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	6458
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	6459	}/function_udint_to_usint/
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	6460	break;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	6461
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	6462	/****
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	6463	*UDINT_TO_ULINT
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	6464	*/
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	6465	case function_udint_to_ulint :
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	6466	{
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	6467	symbol_c *last_type_symbol = NULL;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	6468
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	6469	{
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	6470	identifier_c param_name("IN");
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	6471	/* Get the value from a foo(<param_name> = <param_value>) style call */
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	6472	symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
169 bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	6473	symbol_c *IN_type_symbol = NULL;
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	6474
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	6475	/* Get the value from a foo(<param_value>) style call */
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	6476	if (IN_param_value == NULL)
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	6477	IN_param_value = function_call_param_iterator.next();
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	6478	if (IN_param_value != NULL) {
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	6479	IN_type_symbol = search_expression_type->get_type(IN_param_value);
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	6480	last_type_symbol = last_type_symbol && IN_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	6481	}
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	6482
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	6483	if(IN_type_symbol == NULL \|\| search_expression_type->is_same_type(&search_constant_type_c::udint_type_name, last_type_symbol))
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	6484	{
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	6485
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	6486
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	6487	if (IN_type_symbol == NULL)
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	6488	IN_type_symbol = last_type_symbol;
149 05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	6489	ADD_PARAM_LIST(IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in)
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	6490	symbol_c * return_type_symbol = &search_constant_type_c::ulint_type_name;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	6491	function_type_prefix = return_type_symbol;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	6492	break;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	6493
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	6494	}
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	6495
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	6496
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	6497	ERROR;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	6498	}
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	6499
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	6500	}/function_udint_to_ulint/
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	6501	break;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	6502
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	6503	/****
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	6504	*UDINT_TO_BOOL
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	6505	*/
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	6506	case function_udint_to_bool :
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	6507	{
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	6508	symbol_c *last_type_symbol = NULL;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	6509
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	6510	{
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	6511	identifier_c param_name("IN");
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	6512	/* Get the value from a foo(<param_name> = <param_value>) style call */
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	6513	symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
169 bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	6514	symbol_c *IN_type_symbol = NULL;
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	6515
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	6516	/* Get the value from a foo(<param_value>) style call */
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	6517	if (IN_param_value == NULL)
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	6518	IN_param_value = function_call_param_iterator.next();
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	6519	if (IN_param_value != NULL) {
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	6520	IN_type_symbol = search_expression_type->get_type(IN_param_value);
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	6521	last_type_symbol = last_type_symbol && IN_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	6522	}
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	6523
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	6524	if(IN_type_symbol == NULL \|\| search_expression_type->is_same_type(&search_constant_type_c::udint_type_name, last_type_symbol))
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	6525	{
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	6526
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	6527
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	6528	if (IN_type_symbol == NULL)
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	6529	IN_type_symbol = last_type_symbol;
149 05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	6530	ADD_PARAM_LIST(IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in)
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	6531	symbol_c * return_type_symbol = &search_constant_type_c::bool_type_name;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	6532	function_type_prefix = return_type_symbol;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	6533	break;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	6534
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	6535	}
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	6536
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	6537
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	6538	ERROR;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	6539	}
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	6540
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	6541	}/function_udint_to_bool/
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	6542	break;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	6543
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	6544	/****
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	6545	*UDINT_TO_TIME
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	6546	*/
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	6547	case function_udint_to_time :
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	6548	{
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	6549	symbol_c *last_type_symbol = NULL;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	6550
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	6551	{
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	6552	identifier_c param_name("IN");
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	6553	/* Get the value from a foo(<param_name> = <param_value>) style call */
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	6554	symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
169 bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	6555	symbol_c *IN_type_symbol = NULL;
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	6556
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	6557	/* Get the value from a foo(<param_value>) style call */
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	6558	if (IN_param_value == NULL)
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	6559	IN_param_value = function_call_param_iterator.next();
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	6560	if (IN_param_value != NULL) {
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	6561	IN_type_symbol = search_expression_type->get_type(IN_param_value);
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	6562	last_type_symbol = last_type_symbol && IN_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	6563	}
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	6564
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	6565	if(IN_type_symbol == NULL \|\| search_expression_type->is_same_type(&search_constant_type_c::udint_type_name, last_type_symbol))
149 05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	6566	{
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	6567
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	6568	function_name = (symbol_c*)(new pragma_c("__int_to_time"));
169 bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	6569
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	6570	if (IN_type_symbol == NULL)
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	6571	IN_type_symbol = last_type_symbol;
149 05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	6572	ADD_PARAM_LIST(IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in)
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	6573	symbol_c * return_type_symbol = &search_constant_type_c::time_type_name;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	6574	function_type_prefix = return_type_symbol;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	6575	break;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	6576
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	6577	}
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	6578
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	6579
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	6580	ERROR;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	6581	}
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	6582
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	6583	}/function_udint_to_time/
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	6584	break;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	6585
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	6586	/****
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	6587	*UDINT_TO_INT
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	6588	*/
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	6589	case function_udint_to_int :
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	6590	{
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	6591	symbol_c *last_type_symbol = NULL;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	6592
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	6593	{
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	6594	identifier_c param_name("IN");
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	6595	/* Get the value from a foo(<param_name> = <param_value>) style call */
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	6596	symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
169 bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	6597	symbol_c *IN_type_symbol = NULL;
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	6598
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	6599	/* Get the value from a foo(<param_value>) style call */
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	6600	if (IN_param_value == NULL)
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	6601	IN_param_value = function_call_param_iterator.next();
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	6602	if (IN_param_value != NULL) {
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	6603	IN_type_symbol = search_expression_type->get_type(IN_param_value);
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	6604	last_type_symbol = last_type_symbol && IN_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	6605	}
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	6606
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	6607	if(IN_type_symbol == NULL \|\| search_expression_type->is_same_type(&search_constant_type_c::udint_type_name, last_type_symbol))
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	6608	{
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	6609
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	6610
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	6611	if (IN_type_symbol == NULL)
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	6612	IN_type_symbol = last_type_symbol;
149 05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	6613	ADD_PARAM_LIST(IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in)
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	6614	symbol_c * return_type_symbol = &search_constant_type_c::int_type_name;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	6615	function_type_prefix = return_type_symbol;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	6616	break;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	6617
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	6618	}
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	6619
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	6620
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	6621	ERROR;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	6622	}
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	6623
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	6624	}/function_udint_to_int/
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	6625	break;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	6626
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	6627	/****
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	6628	*WORD_TO_REAL
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	6629	*/
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	6630	case function_word_to_real :
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	6631	{
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	6632	symbol_c *last_type_symbol = NULL;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	6633
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	6634	{
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	6635	identifier_c param_name("IN");
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	6636	/* Get the value from a foo(<param_name> = <param_value>) style call */
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	6637	symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
169 bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	6638	symbol_c *IN_type_symbol = NULL;
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	6639
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	6640	/* Get the value from a foo(<param_value>) style call */
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	6641	if (IN_param_value == NULL)
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	6642	IN_param_value = function_call_param_iterator.next();
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	6643	if (IN_param_value != NULL) {
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	6644	IN_type_symbol = search_expression_type->get_type(IN_param_value);
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	6645	last_type_symbol = last_type_symbol && IN_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	6646	}
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	6647
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	6648	if(IN_type_symbol == NULL \|\| search_expression_type->is_same_type(&search_constant_type_c::word_type_name, last_type_symbol))
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	6649	{
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	6650
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	6651
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	6652	if (IN_type_symbol == NULL)
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	6653	IN_type_symbol = last_type_symbol;
149 05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	6654	ADD_PARAM_LIST(IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in)
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	6655	symbol_c * return_type_symbol = &search_constant_type_c::real_type_name;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	6656	function_type_prefix = return_type_symbol;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	6657	break;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	6658
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	6659	}
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	6660
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	6661
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	6662	ERROR;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	6663	}
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	6664
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	6665	}/function_word_to_real/
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	6666	break;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	6667
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	6668	/****
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	6669	*WORD_TO_SINT
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	6670	*/
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	6671	case function_word_to_sint :
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	6672	{
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	6673	symbol_c *last_type_symbol = NULL;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	6674
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	6675	{
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	6676	identifier_c param_name("IN");
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	6677	/* Get the value from a foo(<param_name> = <param_value>) style call */
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	6678	symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
169 bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	6679	symbol_c *IN_type_symbol = NULL;
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	6680
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	6681	/* Get the value from a foo(<param_value>) style call */
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	6682	if (IN_param_value == NULL)
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	6683	IN_param_value = function_call_param_iterator.next();
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	6684	if (IN_param_value != NULL) {
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	6685	IN_type_symbol = search_expression_type->get_type(IN_param_value);
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	6686	last_type_symbol = last_type_symbol && IN_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	6687	}
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	6688
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	6689	if(IN_type_symbol == NULL \|\| search_expression_type->is_same_type(&search_constant_type_c::word_type_name, last_type_symbol))
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	6690	{
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	6691
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	6692
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	6693	if (IN_type_symbol == NULL)
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	6694	IN_type_symbol = last_type_symbol;
149 05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	6695	ADD_PARAM_LIST(IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in)
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	6696	symbol_c * return_type_symbol = &search_constant_type_c::sint_type_name;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	6697	function_type_prefix = return_type_symbol;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	6698	break;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	6699
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	6700	}
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	6701
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	6702
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	6703	ERROR;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	6704	}
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	6705
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	6706	}/function_word_to_sint/
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	6707	break;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	6708
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	6709	/****
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	6710	*WORD_TO_LINT
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	6711	*/
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	6712	case function_word_to_lint :
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	6713	{
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	6714	symbol_c *last_type_symbol = NULL;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	6715
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	6716	{
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	6717	identifier_c param_name("IN");
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	6718	/* Get the value from a foo(<param_name> = <param_value>) style call */
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	6719	symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
169 bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	6720	symbol_c *IN_type_symbol = NULL;
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	6721
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	6722	/* Get the value from a foo(<param_value>) style call */
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	6723	if (IN_param_value == NULL)
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	6724	IN_param_value = function_call_param_iterator.next();
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	6725	if (IN_param_value != NULL) {
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	6726	IN_type_symbol = search_expression_type->get_type(IN_param_value);
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	6727	last_type_symbol = last_type_symbol && IN_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	6728	}
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	6729
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	6730	if(IN_type_symbol == NULL \|\| search_expression_type->is_same_type(&search_constant_type_c::word_type_name, last_type_symbol))
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	6731	{
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	6732
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	6733
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	6734	if (IN_type_symbol == NULL)
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	6735	IN_type_symbol = last_type_symbol;
149 05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	6736	ADD_PARAM_LIST(IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in)
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	6737	symbol_c * return_type_symbol = &search_constant_type_c::lint_type_name;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	6738	function_type_prefix = return_type_symbol;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	6739	break;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	6740
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	6741	}
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	6742
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	6743
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	6744	ERROR;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	6745	}
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	6746
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	6747	}/function_word_to_lint/
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	6748	break;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	6749
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	6750	/****
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	6751	*WORD_TO_DINT
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	6752	*/
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	6753	case function_word_to_dint :
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	6754	{
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	6755	symbol_c *last_type_symbol = NULL;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	6756
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	6757	{
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	6758	identifier_c param_name("IN");
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	6759	/* Get the value from a foo(<param_name> = <param_value>) style call */
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	6760	symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
169 bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	6761	symbol_c *IN_type_symbol = NULL;
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	6762
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	6763	/* Get the value from a foo(<param_value>) style call */
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	6764	if (IN_param_value == NULL)
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	6765	IN_param_value = function_call_param_iterator.next();
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	6766	if (IN_param_value != NULL) {
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	6767	IN_type_symbol = search_expression_type->get_type(IN_param_value);
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	6768	last_type_symbol = last_type_symbol && IN_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	6769	}
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	6770
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	6771	if(IN_type_symbol == NULL \|\| search_expression_type->is_same_type(&search_constant_type_c::word_type_name, last_type_symbol))
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	6772	{
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	6773
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	6774
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	6775	if (IN_type_symbol == NULL)
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	6776	IN_type_symbol = last_type_symbol;
149 05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	6777	ADD_PARAM_LIST(IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in)
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	6778	symbol_c * return_type_symbol = &search_constant_type_c::dint_type_name;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	6779	function_type_prefix = return_type_symbol;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	6780	break;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	6781
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	6782	}
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	6783
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	6784
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	6785	ERROR;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	6786	}
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	6787
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	6788	}/function_word_to_dint/
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	6789	break;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	6790
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	6791	/****
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	6792	*WORD_TO_DATE
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	6793	*/
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	6794	case function_word_to_date :
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	6795	{
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	6796	symbol_c *last_type_symbol = NULL;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	6797
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	6798	{
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	6799	identifier_c param_name("IN");
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	6800	/* Get the value from a foo(<param_name> = <param_value>) style call */
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	6801	symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
169 bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	6802	symbol_c *IN_type_symbol = NULL;
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	6803
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	6804	/* Get the value from a foo(<param_value>) style call */
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	6805	if (IN_param_value == NULL)
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	6806	IN_param_value = function_call_param_iterator.next();
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	6807	if (IN_param_value != NULL) {
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	6808	IN_type_symbol = search_expression_type->get_type(IN_param_value);
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	6809	last_type_symbol = last_type_symbol && IN_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	6810	}
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	6811
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	6812	if(IN_type_symbol == NULL \|\| search_expression_type->is_same_type(&search_constant_type_c::word_type_name, last_type_symbol))
149 05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	6813	{
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	6814
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	6815	function_name = (symbol_c*)(new pragma_c("__int_to_time"));
169 bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	6816
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	6817	if (IN_type_symbol == NULL)
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	6818	IN_type_symbol = last_type_symbol;
149 05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	6819	ADD_PARAM_LIST(IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in)
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	6820	symbol_c * return_type_symbol = &search_constant_type_c::date_type_name;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	6821	function_type_prefix = return_type_symbol;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	6822	break;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	6823
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	6824	}
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	6825
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	6826
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	6827	ERROR;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	6828	}
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	6829
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	6830	}/function_word_to_date/
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	6831	break;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	6832
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	6833	/****
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	6834	*WORD_TO_DWORD
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	6835	*/
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	6836	case function_word_to_dword :
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	6837	{
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	6838	symbol_c *last_type_symbol = NULL;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	6839
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	6840	{
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	6841	identifier_c param_name("IN");
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	6842	/* Get the value from a foo(<param_name> = <param_value>) style call */
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	6843	symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
169 bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	6844	symbol_c *IN_type_symbol = NULL;
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	6845
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	6846	/* Get the value from a foo(<param_value>) style call */
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	6847	if (IN_param_value == NULL)
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	6848	IN_param_value = function_call_param_iterator.next();
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	6849	if (IN_param_value != NULL) {
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	6850	IN_type_symbol = search_expression_type->get_type(IN_param_value);
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	6851	last_type_symbol = last_type_symbol && IN_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	6852	}
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	6853
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	6854	if(IN_type_symbol == NULL \|\| search_expression_type->is_same_type(&search_constant_type_c::word_type_name, last_type_symbol))
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	6855	{
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	6856
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	6857
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	6858	if (IN_type_symbol == NULL)
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	6859	IN_type_symbol = last_type_symbol;
149 05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	6860	ADD_PARAM_LIST(IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in)
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	6861	symbol_c * return_type_symbol = &search_constant_type_c::dword_type_name;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	6862	function_type_prefix = return_type_symbol;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	6863	break;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	6864
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	6865	}
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	6866
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	6867
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	6868	ERROR;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	6869	}
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	6870
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	6871	}/function_word_to_dword/
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	6872	break;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	6873
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	6874	/****
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	6875	*WORD_TO_DT
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	6876	*/
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	6877	case function_word_to_dt :
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	6878	{
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	6879	symbol_c *last_type_symbol = NULL;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	6880
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	6881	{
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	6882	identifier_c param_name("IN");
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	6883	/* Get the value from a foo(<param_name> = <param_value>) style call */
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	6884	symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
169 bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	6885	symbol_c *IN_type_symbol = NULL;
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	6886
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	6887	/* Get the value from a foo(<param_value>) style call */
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	6888	if (IN_param_value == NULL)
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	6889	IN_param_value = function_call_param_iterator.next();
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	6890	if (IN_param_value != NULL) {
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	6891	IN_type_symbol = search_expression_type->get_type(IN_param_value);
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	6892	last_type_symbol = last_type_symbol && IN_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	6893	}
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	6894
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	6895	if(IN_type_symbol == NULL \|\| search_expression_type->is_same_type(&search_constant_type_c::word_type_name, last_type_symbol))
149 05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	6896	{
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	6897
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	6898	function_name = (symbol_c*)(new pragma_c("__int_to_time"));
169 bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	6899
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	6900	if (IN_type_symbol == NULL)
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	6901	IN_type_symbol = last_type_symbol;
149 05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	6902	ADD_PARAM_LIST(IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in)
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	6903	symbol_c * return_type_symbol = &search_constant_type_c::dt_type_name;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	6904	function_type_prefix = return_type_symbol;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	6905	break;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	6906
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	6907	}
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	6908
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	6909
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	6910	ERROR;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	6911	}
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	6912
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	6913	}/function_word_to_dt/
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	6914	break;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	6915
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	6916	/****
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	6917	*WORD_TO_TOD
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	6918	*/
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	6919	case function_word_to_tod :
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	6920	{
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	6921	symbol_c *last_type_symbol = NULL;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	6922
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	6923	{
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	6924	identifier_c param_name("IN");
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	6925	/* Get the value from a foo(<param_name> = <param_value>) style call */
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	6926	symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
169 bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	6927	symbol_c *IN_type_symbol = NULL;
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	6928
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	6929	/* Get the value from a foo(<param_value>) style call */
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	6930	if (IN_param_value == NULL)
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	6931	IN_param_value = function_call_param_iterator.next();
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	6932	if (IN_param_value != NULL) {
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	6933	IN_type_symbol = search_expression_type->get_type(IN_param_value);
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	6934	last_type_symbol = last_type_symbol && IN_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	6935	}
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	6936
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	6937	if(IN_type_symbol == NULL \|\| search_expression_type->is_same_type(&search_constant_type_c::word_type_name, last_type_symbol))
149 05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	6938	{
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	6939
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	6940	function_name = (symbol_c*)(new pragma_c("__int_to_time"));
169 bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	6941
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	6942	if (IN_type_symbol == NULL)
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	6943	IN_type_symbol = last_type_symbol;
149 05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	6944	ADD_PARAM_LIST(IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in)
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	6945	symbol_c * return_type_symbol = &search_constant_type_c::tod_type_name;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	6946	function_type_prefix = return_type_symbol;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	6947	break;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	6948
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	6949	}
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	6950
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	6951
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	6952	ERROR;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	6953	}
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	6954
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	6955	}/function_word_to_tod/
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	6956	break;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	6957
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	6958	/****
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	6959	*WORD_TO_UDINT
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	6960	*/
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	6961	case function_word_to_udint :
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	6962	{
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	6963	symbol_c *last_type_symbol = NULL;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	6964
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	6965	{
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	6966	identifier_c param_name("IN");
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	6967	/* Get the value from a foo(<param_name> = <param_value>) style call */
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	6968	symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
169 bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	6969	symbol_c *IN_type_symbol = NULL;
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	6970
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	6971	/* Get the value from a foo(<param_value>) style call */
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	6972	if (IN_param_value == NULL)
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	6973	IN_param_value = function_call_param_iterator.next();
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	6974	if (IN_param_value != NULL) {
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	6975	IN_type_symbol = search_expression_type->get_type(IN_param_value);
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	6976	last_type_symbol = last_type_symbol && IN_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	6977	}
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	6978
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	6979	if(IN_type_symbol == NULL \|\| search_expression_type->is_same_type(&search_constant_type_c::word_type_name, last_type_symbol))
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	6980	{
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	6981
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	6982
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	6983	if (IN_type_symbol == NULL)
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	6984	IN_type_symbol = last_type_symbol;
149 05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	6985	ADD_PARAM_LIST(IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in)
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	6986	symbol_c * return_type_symbol = &search_constant_type_c::udint_type_name;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	6987	function_type_prefix = return_type_symbol;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	6988	break;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	6989
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	6990	}
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	6991
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	6992
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	6993	ERROR;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	6994	}
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	6995
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	6996	}/function_word_to_udint/
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	6997	break;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	6998
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	6999	/****
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	7000	*WORD_TO_STRING
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	7001	*/
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	7002	case function_word_to_string :
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	7003	{
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	7004	symbol_c *last_type_symbol = NULL;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	7005
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	7006	{
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	7007	identifier_c param_name("IN");
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	7008	/* Get the value from a foo(<param_name> = <param_value>) style call */
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	7009	symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
169 bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	7010	symbol_c *IN_type_symbol = NULL;
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	7011
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	7012	/* Get the value from a foo(<param_value>) style call */
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	7013	if (IN_param_value == NULL)
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	7014	IN_param_value = function_call_param_iterator.next();
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	7015	if (IN_param_value != NULL) {
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	7016	IN_type_symbol = search_expression_type->get_type(IN_param_value);
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	7017	last_type_symbol = last_type_symbol && IN_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	7018	}
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	7019
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	7020	if(IN_type_symbol == NULL \|\| search_expression_type->is_same_type(&search_constant_type_c::word_type_name, last_type_symbol))
149 05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	7021	{
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	7022
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	7023	function_name = (symbol_c*)(new pragma_c("__bit_to_string"));
169 bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	7024
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	7025	if (IN_type_symbol == NULL)
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	7026	IN_type_symbol = last_type_symbol;
149 05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	7027	ADD_PARAM_LIST(IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in)
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	7028	symbol_c * return_type_symbol = &search_constant_type_c::string_type_name;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	7029	function_type_prefix = return_type_symbol;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	7030	break;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	7031
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	7032	}
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	7033
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	7034
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	7035	ERROR;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	7036	}
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	7037
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	7038	}/function_word_to_string/
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	7039	break;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	7040
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	7041	/****
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	7042	*WORD_TO_LWORD
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	7043	*/
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	7044	case function_word_to_lword :
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	7045	{
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	7046	symbol_c *last_type_symbol = NULL;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	7047
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	7048	{
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	7049	identifier_c param_name("IN");
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	7050	/* Get the value from a foo(<param_name> = <param_value>) style call */
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	7051	symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
169 bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	7052	symbol_c *IN_type_symbol = NULL;
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	7053
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	7054	/* Get the value from a foo(<param_value>) style call */
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	7055	if (IN_param_value == NULL)
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	7056	IN_param_value = function_call_param_iterator.next();
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	7057	if (IN_param_value != NULL) {
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	7058	IN_type_symbol = search_expression_type->get_type(IN_param_value);
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	7059	last_type_symbol = last_type_symbol && IN_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	7060	}
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	7061
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	7062	if(IN_type_symbol == NULL \|\| search_expression_type->is_same_type(&search_constant_type_c::word_type_name, last_type_symbol))
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	7063	{
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	7064
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	7065
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	7066	if (IN_type_symbol == NULL)
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	7067	IN_type_symbol = last_type_symbol;
149 05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	7068	ADD_PARAM_LIST(IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in)
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	7069	symbol_c * return_type_symbol = &search_constant_type_c::lword_type_name;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	7070	function_type_prefix = return_type_symbol;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	7071	break;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	7072
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	7073	}
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	7074
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	7075
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	7076	ERROR;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	7077	}
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	7078
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	7079	}/function_word_to_lword/
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	7080	break;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	7081
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	7082	/****
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	7083	*WORD_TO_UINT
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	7084	*/
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	7085	case function_word_to_uint :
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	7086	{
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	7087	symbol_c *last_type_symbol = NULL;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	7088
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	7089	{
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	7090	identifier_c param_name("IN");
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	7091	/* Get the value from a foo(<param_name> = <param_value>) style call */
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	7092	symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
169 bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	7093	symbol_c *IN_type_symbol = NULL;
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	7094
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	7095	/* Get the value from a foo(<param_value>) style call */
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	7096	if (IN_param_value == NULL)
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	7097	IN_param_value = function_call_param_iterator.next();
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	7098	if (IN_param_value != NULL) {
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	7099	IN_type_symbol = search_expression_type->get_type(IN_param_value);
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	7100	last_type_symbol = last_type_symbol && IN_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	7101	}
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	7102
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	7103	if(IN_type_symbol == NULL \|\| search_expression_type->is_same_type(&search_constant_type_c::word_type_name, last_type_symbol))
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	7104	{
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	7105
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	7106
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	7107	if (IN_type_symbol == NULL)
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	7108	IN_type_symbol = last_type_symbol;
149 05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	7109	ADD_PARAM_LIST(IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in)
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	7110	symbol_c * return_type_symbol = &search_constant_type_c::uint_type_name;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	7111	function_type_prefix = return_type_symbol;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	7112	break;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	7113
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	7114	}
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	7115
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	7116
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	7117	ERROR;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	7118	}
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	7119
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	7120	}/function_word_to_uint/
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	7121	break;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	7122
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	7123	/****
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	7124	*WORD_TO_LREAL
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	7125	*/
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	7126	case function_word_to_lreal :
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	7127	{
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	7128	symbol_c *last_type_symbol = NULL;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	7129
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	7130	{
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	7131	identifier_c param_name("IN");
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	7132	/* Get the value from a foo(<param_name> = <param_value>) style call */
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	7133	symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
169 bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	7134	symbol_c *IN_type_symbol = NULL;
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	7135
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	7136	/* Get the value from a foo(<param_value>) style call */
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	7137	if (IN_param_value == NULL)
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	7138	IN_param_value = function_call_param_iterator.next();
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	7139	if (IN_param_value != NULL) {
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	7140	IN_type_symbol = search_expression_type->get_type(IN_param_value);
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	7141	last_type_symbol = last_type_symbol && IN_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	7142	}
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	7143
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	7144	if(IN_type_symbol == NULL \|\| search_expression_type->is_same_type(&search_constant_type_c::word_type_name, last_type_symbol))
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	7145	{
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	7146
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	7147
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	7148	if (IN_type_symbol == NULL)
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	7149	IN_type_symbol = last_type_symbol;
149 05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	7150	ADD_PARAM_LIST(IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in)
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	7151	symbol_c * return_type_symbol = &search_constant_type_c::lreal_type_name;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	7152	function_type_prefix = return_type_symbol;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	7153	break;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	7154
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	7155	}
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	7156
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	7157
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	7158	ERROR;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	7159	}
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	7160
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	7161	}/function_word_to_lreal/
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	7162	break;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	7163
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	7164	/****
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	7165	*WORD_TO_BYTE
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	7166	*/
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	7167	case function_word_to_byte :
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	7168	{
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	7169	symbol_c *last_type_symbol = NULL;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	7170
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	7171	{
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	7172	identifier_c param_name("IN");
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	7173	/* Get the value from a foo(<param_name> = <param_value>) style call */
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	7174	symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
169 bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	7175	symbol_c *IN_type_symbol = NULL;
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	7176
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	7177	/* Get the value from a foo(<param_value>) style call */
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	7178	if (IN_param_value == NULL)
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	7179	IN_param_value = function_call_param_iterator.next();
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	7180	if (IN_param_value != NULL) {
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	7181	IN_type_symbol = search_expression_type->get_type(IN_param_value);
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	7182	last_type_symbol = last_type_symbol && IN_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	7183	}
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	7184
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	7185	if(IN_type_symbol == NULL \|\| search_expression_type->is_same_type(&search_constant_type_c::word_type_name, last_type_symbol))
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	7186	{
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	7187
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	7188
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	7189	if (IN_type_symbol == NULL)
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	7190	IN_type_symbol = last_type_symbol;
149 05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	7191	ADD_PARAM_LIST(IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in)
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	7192	symbol_c * return_type_symbol = &search_constant_type_c::byte_type_name;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	7193	function_type_prefix = return_type_symbol;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	7194	break;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	7195
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	7196	}
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	7197
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	7198
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	7199	ERROR;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	7200	}
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	7201
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	7202	}/function_word_to_byte/
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	7203	break;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	7204
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	7205	/****
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	7206	*WORD_TO_USINT
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	7207	*/
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	7208	case function_word_to_usint :
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	7209	{
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	7210	symbol_c *last_type_symbol = NULL;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	7211
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	7212	{
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	7213	identifier_c param_name("IN");
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	7214	/* Get the value from a foo(<param_name> = <param_value>) style call */
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	7215	symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
169 bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	7216	symbol_c *IN_type_symbol = NULL;
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	7217
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	7218	/* Get the value from a foo(<param_value>) style call */
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	7219	if (IN_param_value == NULL)
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	7220	IN_param_value = function_call_param_iterator.next();
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	7221	if (IN_param_value != NULL) {
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	7222	IN_type_symbol = search_expression_type->get_type(IN_param_value);
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	7223	last_type_symbol = last_type_symbol && IN_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	7224	}
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	7225
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	7226	if(IN_type_symbol == NULL \|\| search_expression_type->is_same_type(&search_constant_type_c::word_type_name, last_type_symbol))
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	7227	{
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	7228
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	7229
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	7230	if (IN_type_symbol == NULL)
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	7231	IN_type_symbol = last_type_symbol;
149 05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	7232	ADD_PARAM_LIST(IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in)
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	7233	symbol_c * return_type_symbol = &search_constant_type_c::usint_type_name;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	7234	function_type_prefix = return_type_symbol;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	7235	break;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	7236
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	7237	}
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	7238
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	7239
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	7240	ERROR;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	7241	}
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	7242
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	7243	}/function_word_to_usint/
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	7244	break;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	7245
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	7246	/****
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	7247	*WORD_TO_ULINT
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	7248	*/
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	7249	case function_word_to_ulint :
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	7250	{
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	7251	symbol_c *last_type_symbol = NULL;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	7252
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	7253	{
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	7254	identifier_c param_name("IN");
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	7255	/* Get the value from a foo(<param_name> = <param_value>) style call */
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	7256	symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
169 bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	7257	symbol_c *IN_type_symbol = NULL;
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	7258
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	7259	/* Get the value from a foo(<param_value>) style call */
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	7260	if (IN_param_value == NULL)
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	7261	IN_param_value = function_call_param_iterator.next();
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	7262	if (IN_param_value != NULL) {
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	7263	IN_type_symbol = search_expression_type->get_type(IN_param_value);
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	7264	last_type_symbol = last_type_symbol && IN_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	7265	}
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	7266
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	7267	if(IN_type_symbol == NULL \|\| search_expression_type->is_same_type(&search_constant_type_c::word_type_name, last_type_symbol))
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	7268	{
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	7269
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	7270
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	7271	if (IN_type_symbol == NULL)
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	7272	IN_type_symbol = last_type_symbol;
149 05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	7273	ADD_PARAM_LIST(IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in)
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	7274	symbol_c * return_type_symbol = &search_constant_type_c::ulint_type_name;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	7275	function_type_prefix = return_type_symbol;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	7276	break;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	7277
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	7278	}
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	7279
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	7280
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	7281	ERROR;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	7282	}
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	7283
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	7284	}/function_word_to_ulint/
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	7285	break;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	7286
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	7287	/****
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	7288	*WORD_TO_BOOL
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	7289	*/
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	7290	case function_word_to_bool :
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	7291	{
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	7292	symbol_c *last_type_symbol = NULL;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	7293
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	7294	{
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	7295	identifier_c param_name("IN");
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	7296	/* Get the value from a foo(<param_name> = <param_value>) style call */
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	7297	symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
169 bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	7298	symbol_c *IN_type_symbol = NULL;
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	7299
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	7300	/* Get the value from a foo(<param_value>) style call */
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	7301	if (IN_param_value == NULL)
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	7302	IN_param_value = function_call_param_iterator.next();
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	7303	if (IN_param_value != NULL) {
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	7304	IN_type_symbol = search_expression_type->get_type(IN_param_value);
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	7305	last_type_symbol = last_type_symbol && IN_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	7306	}
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	7307
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	7308	if(IN_type_symbol == NULL \|\| search_expression_type->is_same_type(&search_constant_type_c::word_type_name, last_type_symbol))
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	7309	{
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	7310
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	7311
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	7312	if (IN_type_symbol == NULL)
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	7313	IN_type_symbol = last_type_symbol;
149 05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	7314	ADD_PARAM_LIST(IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in)
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	7315	symbol_c * return_type_symbol = &search_constant_type_c::bool_type_name;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	7316	function_type_prefix = return_type_symbol;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	7317	break;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	7318
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	7319	}
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	7320
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	7321
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	7322	ERROR;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	7323	}
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	7324
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	7325	}/function_word_to_bool/
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	7326	break;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	7327
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	7328	/****
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	7329	*WORD_TO_TIME
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	7330	*/
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	7331	case function_word_to_time :
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	7332	{
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	7333	symbol_c *last_type_symbol = NULL;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	7334
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	7335	{
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	7336	identifier_c param_name("IN");
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	7337	/* Get the value from a foo(<param_name> = <param_value>) style call */
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	7338	symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
169 bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	7339	symbol_c *IN_type_symbol = NULL;
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	7340
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	7341	/* Get the value from a foo(<param_value>) style call */
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	7342	if (IN_param_value == NULL)
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	7343	IN_param_value = function_call_param_iterator.next();
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	7344	if (IN_param_value != NULL) {
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	7345	IN_type_symbol = search_expression_type->get_type(IN_param_value);
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	7346	last_type_symbol = last_type_symbol && IN_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	7347	}
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	7348
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	7349	if(IN_type_symbol == NULL \|\| search_expression_type->is_same_type(&search_constant_type_c::word_type_name, last_type_symbol))
149 05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	7350	{
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	7351
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	7352	function_name = (symbol_c*)(new pragma_c("__int_to_time"));
169 bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	7353
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	7354	if (IN_type_symbol == NULL)
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	7355	IN_type_symbol = last_type_symbol;
149 05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	7356	ADD_PARAM_LIST(IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in)
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	7357	symbol_c * return_type_symbol = &search_constant_type_c::time_type_name;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	7358	function_type_prefix = return_type_symbol;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	7359	break;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	7360
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	7361	}
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	7362
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	7363
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	7364	ERROR;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	7365	}
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	7366
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	7367	}/function_word_to_time/
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	7368	break;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	7369
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	7370	/****
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	7371	*WORD_TO_INT
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	7372	*/
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	7373	case function_word_to_int :
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	7374	{
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	7375	symbol_c *last_type_symbol = NULL;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	7376
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	7377	{
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	7378	identifier_c param_name("IN");
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	7379	/* Get the value from a foo(<param_name> = <param_value>) style call */
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	7380	symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
169 bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	7381	symbol_c *IN_type_symbol = NULL;
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	7382
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	7383	/* Get the value from a foo(<param_value>) style call */
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	7384	if (IN_param_value == NULL)
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	7385	IN_param_value = function_call_param_iterator.next();
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	7386	if (IN_param_value != NULL) {
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	7387	IN_type_symbol = search_expression_type->get_type(IN_param_value);
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	7388	last_type_symbol = last_type_symbol && IN_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	7389	}
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	7390
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	7391	if(IN_type_symbol == NULL \|\| search_expression_type->is_same_type(&search_constant_type_c::word_type_name, last_type_symbol))
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	7392	{
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	7393
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	7394
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	7395	if (IN_type_symbol == NULL)
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	7396	IN_type_symbol = last_type_symbol;
149 05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	7397	ADD_PARAM_LIST(IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in)
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	7398	symbol_c * return_type_symbol = &search_constant_type_c::int_type_name;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	7399	function_type_prefix = return_type_symbol;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	7400	break;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	7401
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	7402	}
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	7403
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	7404
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	7405	ERROR;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	7406	}
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	7407
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	7408	}/function_word_to_int/
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	7409	break;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	7410
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	7411	/****
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	7412	*STRING_TO_REAL
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	7413	*/
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	7414	case function_string_to_real :
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	7415	{
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	7416	symbol_c *last_type_symbol = NULL;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	7417
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	7418	{
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	7419	identifier_c param_name("IN");
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	7420	/* Get the value from a foo(<param_name> = <param_value>) style call */
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	7421	symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
169 bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	7422	symbol_c *IN_type_symbol = NULL;
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	7423
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	7424	/* Get the value from a foo(<param_value>) style call */
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	7425	if (IN_param_value == NULL)
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	7426	IN_param_value = function_call_param_iterator.next();
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	7427	if (IN_param_value != NULL) {
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	7428	IN_type_symbol = search_expression_type->get_type(IN_param_value);
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	7429	last_type_symbol = last_type_symbol && IN_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	7430	}
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	7431
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	7432	if(IN_type_symbol == NULL \|\| search_expression_type->is_same_type(&search_constant_type_c::string_type_name, last_type_symbol))
149 05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	7433	{
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	7434
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	7435	function_name = (symbol_c*)(new pragma_c("__string_to_real"));
169 bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	7436
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	7437	if (IN_type_symbol == NULL)
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	7438	IN_type_symbol = last_type_symbol;
149 05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	7439	ADD_PARAM_LIST(IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in)
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	7440	symbol_c * return_type_symbol = &search_constant_type_c::real_type_name;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	7441	function_type_prefix = return_type_symbol;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	7442	break;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	7443
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	7444	}
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	7445
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	7446
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	7447	ERROR;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	7448	}
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	7449
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	7450	}/function_string_to_real/
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	7451	break;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	7452
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	7453	/****
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	7454	*STRING_TO_SINT
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	7455	*/
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	7456	case function_string_to_sint :
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	7457	{
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	7458	symbol_c *last_type_symbol = NULL;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	7459
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	7460	{
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	7461	identifier_c param_name("IN");
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	7462	/* Get the value from a foo(<param_name> = <param_value>) style call */
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	7463	symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
169 bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	7464	symbol_c *IN_type_symbol = NULL;
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	7465
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	7466	/* Get the value from a foo(<param_value>) style call */
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	7467	if (IN_param_value == NULL)
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	7468	IN_param_value = function_call_param_iterator.next();
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	7469	if (IN_param_value != NULL) {
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	7470	IN_type_symbol = search_expression_type->get_type(IN_param_value);
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	7471	last_type_symbol = last_type_symbol && IN_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	7472	}
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	7473
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	7474	if(IN_type_symbol == NULL \|\| search_expression_type->is_same_type(&search_constant_type_c::string_type_name, last_type_symbol))
149 05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	7475	{
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	7476
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	7477	function_name = (symbol_c*)(new pragma_c("__string_to_sint"));
169 bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	7478
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	7479	if (IN_type_symbol == NULL)
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	7480	IN_type_symbol = last_type_symbol;
149 05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	7481	ADD_PARAM_LIST(IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in)
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	7482	symbol_c * return_type_symbol = &search_constant_type_c::sint_type_name;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	7483	function_type_prefix = return_type_symbol;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	7484	break;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	7485
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	7486	}
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	7487
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	7488
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	7489	ERROR;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	7490	}
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	7491
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	7492	}/function_string_to_sint/
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	7493	break;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	7494
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	7495	/****
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	7496	*STRING_TO_LINT
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	7497	*/
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	7498	case function_string_to_lint :
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	7499	{
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	7500	symbol_c *last_type_symbol = NULL;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	7501
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	7502	{
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	7503	identifier_c param_name("IN");
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	7504	/* Get the value from a foo(<param_name> = <param_value>) style call */
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	7505	symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
169 bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	7506	symbol_c *IN_type_symbol = NULL;
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	7507
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	7508	/* Get the value from a foo(<param_value>) style call */
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	7509	if (IN_param_value == NULL)
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	7510	IN_param_value = function_call_param_iterator.next();
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	7511	if (IN_param_value != NULL) {
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	7512	IN_type_symbol = search_expression_type->get_type(IN_param_value);
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	7513	last_type_symbol = last_type_symbol && IN_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	7514	}
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	7515
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	7516	if(IN_type_symbol == NULL \|\| search_expression_type->is_same_type(&search_constant_type_c::string_type_name, last_type_symbol))
149 05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	7517	{
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	7518
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	7519	function_name = (symbol_c*)(new pragma_c("__string_to_sint"));
169 bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	7520
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	7521	if (IN_type_symbol == NULL)
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	7522	IN_type_symbol = last_type_symbol;
149 05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	7523	ADD_PARAM_LIST(IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in)
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	7524	symbol_c * return_type_symbol = &search_constant_type_c::lint_type_name;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	7525	function_type_prefix = return_type_symbol;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	7526	break;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	7527
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	7528	}
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	7529
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	7530
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	7531	ERROR;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	7532	}
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	7533
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	7534	}/function_string_to_lint/
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	7535	break;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	7536
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	7537	/****
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	7538	*STRING_TO_DINT
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	7539	*/
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	7540	case function_string_to_dint :
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	7541	{
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	7542	symbol_c *last_type_symbol = NULL;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	7543
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	7544	{
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	7545	identifier_c param_name("IN");
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	7546	/* Get the value from a foo(<param_name> = <param_value>) style call */
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	7547	symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
169 bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	7548	symbol_c *IN_type_symbol = NULL;
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	7549
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	7550	/* Get the value from a foo(<param_value>) style call */
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	7551	if (IN_param_value == NULL)
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	7552	IN_param_value = function_call_param_iterator.next();
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	7553	if (IN_param_value != NULL) {
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	7554	IN_type_symbol = search_expression_type->get_type(IN_param_value);
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	7555	last_type_symbol = last_type_symbol && IN_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	7556	}
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	7557
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	7558	if(IN_type_symbol == NULL \|\| search_expression_type->is_same_type(&search_constant_type_c::string_type_name, last_type_symbol))
149 05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	7559	{
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	7560
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	7561	function_name = (symbol_c*)(new pragma_c("__string_to_sint"));
169 bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	7562
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	7563	if (IN_type_symbol == NULL)
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	7564	IN_type_symbol = last_type_symbol;
149 05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	7565	ADD_PARAM_LIST(IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in)
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	7566	symbol_c * return_type_symbol = &search_constant_type_c::dint_type_name;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	7567	function_type_prefix = return_type_symbol;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	7568	break;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	7569
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	7570	}
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	7571
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	7572
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	7573	ERROR;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	7574	}
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	7575
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	7576	}/function_string_to_dint/
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	7577	break;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	7578
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	7579	/****
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	7580	*STRING_TO_DATE
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	7581	*/
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	7582	case function_string_to_date :
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	7583	{
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	7584	symbol_c *last_type_symbol = NULL;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	7585
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	7586	{
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	7587	identifier_c param_name("IN");
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	7588	/* Get the value from a foo(<param_name> = <param_value>) style call */
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	7589	symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
169 bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	7590	symbol_c *IN_type_symbol = NULL;
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	7591
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	7592	/* Get the value from a foo(<param_value>) style call */
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	7593	if (IN_param_value == NULL)
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	7594	IN_param_value = function_call_param_iterator.next();
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	7595	if (IN_param_value != NULL) {
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	7596	IN_type_symbol = search_expression_type->get_type(IN_param_value);
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	7597	last_type_symbol = last_type_symbol && IN_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	7598	}
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	7599
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	7600	if(IN_type_symbol == NULL \|\| search_expression_type->is_same_type(&search_constant_type_c::string_type_name, last_type_symbol))
149 05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	7601	{
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	7602
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	7603	function_name = (symbol_c*)(new pragma_c("__string_to_time"));
169 bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	7604
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	7605	if (IN_type_symbol == NULL)
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	7606	IN_type_symbol = last_type_symbol;
149 05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	7607	ADD_PARAM_LIST(IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in)
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	7608	symbol_c * return_type_symbol = &search_constant_type_c::date_type_name;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	7609	function_type_prefix = return_type_symbol;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	7610	break;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	7611
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	7612	}
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	7613
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	7614
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	7615	ERROR;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	7616	}
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	7617
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	7618	}/function_string_to_date/
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	7619	break;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	7620
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	7621	/****
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	7622	*STRING_TO_DWORD
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	7623	*/
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	7624	case function_string_to_dword :
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	7625	{
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	7626	symbol_c *last_type_symbol = NULL;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	7627
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	7628	{
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	7629	identifier_c param_name("IN");
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	7630	/* Get the value from a foo(<param_name> = <param_value>) style call */
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	7631	symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
169 bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	7632	symbol_c *IN_type_symbol = NULL;
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	7633
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	7634	/* Get the value from a foo(<param_value>) style call */
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	7635	if (IN_param_value == NULL)
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	7636	IN_param_value = function_call_param_iterator.next();
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	7637	if (IN_param_value != NULL) {
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	7638	IN_type_symbol = search_expression_type->get_type(IN_param_value);
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	7639	last_type_symbol = last_type_symbol && IN_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	7640	}
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	7641
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	7642	if(IN_type_symbol == NULL \|\| search_expression_type->is_same_type(&search_constant_type_c::string_type_name, last_type_symbol))
149 05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	7643	{
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	7644
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	7645	function_name = (symbol_c*)(new pragma_c("__string_to_bit"));
169 bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	7646
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	7647	if (IN_type_symbol == NULL)
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	7648	IN_type_symbol = last_type_symbol;
149 05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	7649	ADD_PARAM_LIST(IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in)
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	7650	symbol_c * return_type_symbol = &search_constant_type_c::dword_type_name;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	7651	function_type_prefix = return_type_symbol;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	7652	break;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	7653
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	7654	}
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	7655
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	7656
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	7657	ERROR;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	7658	}
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	7659
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	7660	}/function_string_to_dword/
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	7661	break;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	7662
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	7663	/****
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	7664	*STRING_TO_DT
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	7665	*/
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	7666	case function_string_to_dt :
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	7667	{
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	7668	symbol_c *last_type_symbol = NULL;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	7669
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	7670	{
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	7671	identifier_c param_name("IN");
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	7672	/* Get the value from a foo(<param_name> = <param_value>) style call */
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	7673	symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
169 bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	7674	symbol_c *IN_type_symbol = NULL;
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	7675
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	7676	/* Get the value from a foo(<param_value>) style call */
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	7677	if (IN_param_value == NULL)
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	7678	IN_param_value = function_call_param_iterator.next();
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	7679	if (IN_param_value != NULL) {
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	7680	IN_type_symbol = search_expression_type->get_type(IN_param_value);
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	7681	last_type_symbol = last_type_symbol && IN_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	7682	}
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	7683
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	7684	if(IN_type_symbol == NULL \|\| search_expression_type->is_same_type(&search_constant_type_c::string_type_name, last_type_symbol))
149 05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	7685	{
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	7686
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	7687	function_name = (symbol_c*)(new pragma_c("__string_to_time"));
169 bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	7688
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	7689	if (IN_type_symbol == NULL)
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	7690	IN_type_symbol = last_type_symbol;
149 05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	7691	ADD_PARAM_LIST(IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in)
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	7692	symbol_c * return_type_symbol = &search_constant_type_c::dt_type_name;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	7693	function_type_prefix = return_type_symbol;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	7694	break;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	7695
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	7696	}
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	7697
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	7698
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	7699	ERROR;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	7700	}
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	7701
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	7702	}/function_string_to_dt/
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	7703	break;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	7704
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	7705	/****
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	7706	*STRING_TO_TOD
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	7707	*/
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	7708	case function_string_to_tod :
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	7709	{
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	7710	symbol_c *last_type_symbol = NULL;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	7711
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	7712	{
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	7713	identifier_c param_name("IN");
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	7714	/* Get the value from a foo(<param_name> = <param_value>) style call */
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	7715	symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
169 bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	7716	symbol_c *IN_type_symbol = NULL;
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	7717
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	7718	/* Get the value from a foo(<param_value>) style call */
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	7719	if (IN_param_value == NULL)
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	7720	IN_param_value = function_call_param_iterator.next();
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	7721	if (IN_param_value != NULL) {
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	7722	IN_type_symbol = search_expression_type->get_type(IN_param_value);
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	7723	last_type_symbol = last_type_symbol && IN_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	7724	}
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	7725
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	7726	if(IN_type_symbol == NULL \|\| search_expression_type->is_same_type(&search_constant_type_c::string_type_name, last_type_symbol))
149 05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	7727	{
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	7728
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	7729	function_name = (symbol_c*)(new pragma_c("__string_to_time"));
169 bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	7730
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	7731	if (IN_type_symbol == NULL)
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	7732	IN_type_symbol = last_type_symbol;
149 05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	7733	ADD_PARAM_LIST(IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in)
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	7734	symbol_c * return_type_symbol = &search_constant_type_c::tod_type_name;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	7735	function_type_prefix = return_type_symbol;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	7736	break;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	7737
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	7738	}
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	7739
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	7740
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	7741	ERROR;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	7742	}
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	7743
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	7744	}/function_string_to_tod/
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	7745	break;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	7746
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	7747	/****
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	7748	*STRING_TO_UDINT
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	7749	*/
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	7750	case function_string_to_udint :
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	7751	{
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	7752	symbol_c *last_type_symbol = NULL;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	7753
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	7754	{
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	7755	identifier_c param_name("IN");
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	7756	/* Get the value from a foo(<param_name> = <param_value>) style call */
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	7757	symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
169 bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	7758	symbol_c *IN_type_symbol = NULL;
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	7759
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	7760	/* Get the value from a foo(<param_value>) style call */
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	7761	if (IN_param_value == NULL)
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	7762	IN_param_value = function_call_param_iterator.next();
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	7763	if (IN_param_value != NULL) {
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	7764	IN_type_symbol = search_expression_type->get_type(IN_param_value);
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	7765	last_type_symbol = last_type_symbol && IN_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	7766	}
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	7767
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	7768	if(IN_type_symbol == NULL \|\| search_expression_type->is_same_type(&search_constant_type_c::string_type_name, last_type_symbol))
149 05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	7769	{
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	7770
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	7771	function_name = (symbol_c*)(new pragma_c("__string_to_uint"));
169 bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	7772
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	7773	if (IN_type_symbol == NULL)
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	7774	IN_type_symbol = last_type_symbol;
149 05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	7775	ADD_PARAM_LIST(IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in)
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	7776	symbol_c * return_type_symbol = &search_constant_type_c::udint_type_name;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	7777	function_type_prefix = return_type_symbol;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	7778	break;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	7779
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	7780	}
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	7781
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	7782
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	7783	ERROR;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	7784	}
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	7785
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	7786	}/function_string_to_udint/
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	7787	break;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	7788
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	7789	/****
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	7790	*STRING_TO_WORD
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	7791	*/
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	7792	case function_string_to_word :
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	7793	{
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	7794	symbol_c *last_type_symbol = NULL;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	7795
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	7796	{
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	7797	identifier_c param_name("IN");
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	7798	/* Get the value from a foo(<param_name> = <param_value>) style call */
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	7799	symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
169 bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	7800	symbol_c *IN_type_symbol = NULL;
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	7801
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	7802	/* Get the value from a foo(<param_value>) style call */
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	7803	if (IN_param_value == NULL)
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	7804	IN_param_value = function_call_param_iterator.next();
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	7805	if (IN_param_value != NULL) {
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	7806	IN_type_symbol = search_expression_type->get_type(IN_param_value);
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	7807	last_type_symbol = last_type_symbol && IN_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	7808	}
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	7809
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	7810	if(IN_type_symbol == NULL \|\| search_expression_type->is_same_type(&search_constant_type_c::string_type_name, last_type_symbol))
149 05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	7811	{
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	7812
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	7813	function_name = (symbol_c*)(new pragma_c("__string_to_bit"));
169 bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	7814
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	7815	if (IN_type_symbol == NULL)
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	7816	IN_type_symbol = last_type_symbol;
149 05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	7817	ADD_PARAM_LIST(IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in)
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	7818	symbol_c * return_type_symbol = &search_constant_type_c::word_type_name;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	7819	function_type_prefix = return_type_symbol;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	7820	break;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	7821
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	7822	}
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	7823
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	7824
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	7825	ERROR;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	7826	}
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	7827
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	7828	}/function_string_to_word/
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	7829	break;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	7830
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	7831	/****
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	7832	*STRING_TO_LWORD
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	7833	*/
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	7834	case function_string_to_lword :
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	7835	{
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	7836	symbol_c *last_type_symbol = NULL;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	7837
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	7838	{
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	7839	identifier_c param_name("IN");
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	7840	/* Get the value from a foo(<param_name> = <param_value>) style call */
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	7841	symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
169 bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	7842	symbol_c *IN_type_symbol = NULL;
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	7843
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	7844	/* Get the value from a foo(<param_value>) style call */
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	7845	if (IN_param_value == NULL)
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	7846	IN_param_value = function_call_param_iterator.next();
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	7847	if (IN_param_value != NULL) {
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	7848	IN_type_symbol = search_expression_type->get_type(IN_param_value);
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	7849	last_type_symbol = last_type_symbol && IN_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	7850	}
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	7851
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	7852	if(IN_type_symbol == NULL \|\| search_expression_type->is_same_type(&search_constant_type_c::string_type_name, last_type_symbol))
149 05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	7853	{
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	7854
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	7855	function_name = (symbol_c*)(new pragma_c("__string_to_bit"));
169 bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	7856
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	7857	if (IN_type_symbol == NULL)
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	7858	IN_type_symbol = last_type_symbol;
149 05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	7859	ADD_PARAM_LIST(IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in)
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	7860	symbol_c * return_type_symbol = &search_constant_type_c::lword_type_name;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	7861	function_type_prefix = return_type_symbol;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	7862	break;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	7863
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	7864	}
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	7865
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	7866
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	7867	ERROR;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	7868	}
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	7869
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	7870	}/function_string_to_lword/
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	7871	break;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	7872
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	7873	/****
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	7874	*STRING_TO_UINT
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	7875	*/
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	7876	case function_string_to_uint :
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	7877	{
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	7878	symbol_c *last_type_symbol = NULL;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	7879
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	7880	{
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	7881	identifier_c param_name("IN");
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	7882	/* Get the value from a foo(<param_name> = <param_value>) style call */
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	7883	symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
169 bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	7884	symbol_c *IN_type_symbol = NULL;
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	7885
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	7886	/* Get the value from a foo(<param_value>) style call */
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	7887	if (IN_param_value == NULL)
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	7888	IN_param_value = function_call_param_iterator.next();
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	7889	if (IN_param_value != NULL) {
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	7890	IN_type_symbol = search_expression_type->get_type(IN_param_value);
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	7891	last_type_symbol = last_type_symbol && IN_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	7892	}
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	7893
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	7894	if(IN_type_symbol == NULL \|\| search_expression_type->is_same_type(&search_constant_type_c::string_type_name, last_type_symbol))
149 05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	7895	{
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	7896
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	7897	function_name = (symbol_c*)(new pragma_c("__string_to_uint"));
169 bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	7898
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	7899	if (IN_type_symbol == NULL)
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	7900	IN_type_symbol = last_type_symbol;
149 05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	7901	ADD_PARAM_LIST(IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in)
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	7902	symbol_c * return_type_symbol = &search_constant_type_c::uint_type_name;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	7903	function_type_prefix = return_type_symbol;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	7904	break;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	7905
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	7906	}
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	7907
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	7908
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	7909	ERROR;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	7910	}
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	7911
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	7912	}/function_string_to_uint/
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	7913	break;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	7914
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	7915	/****
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	7916	*STRING_TO_LREAL
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	7917	*/
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	7918	case function_string_to_lreal :
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	7919	{
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	7920	symbol_c *last_type_symbol = NULL;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	7921
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	7922	{
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	7923	identifier_c param_name("IN");
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	7924	/* Get the value from a foo(<param_name> = <param_value>) style call */
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	7925	symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
169 bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	7926	symbol_c *IN_type_symbol = NULL;
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	7927
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	7928	/* Get the value from a foo(<param_value>) style call */
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	7929	if (IN_param_value == NULL)
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	7930	IN_param_value = function_call_param_iterator.next();
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	7931	if (IN_param_value != NULL) {
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	7932	IN_type_symbol = search_expression_type->get_type(IN_param_value);
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	7933	last_type_symbol = last_type_symbol && IN_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	7934	}
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	7935
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	7936	if(IN_type_symbol == NULL \|\| search_expression_type->is_same_type(&search_constant_type_c::string_type_name, last_type_symbol))
149 05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	7937	{
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	7938
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	7939	function_name = (symbol_c*)(new pragma_c("__string_to_real"));
169 bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	7940
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	7941	if (IN_type_symbol == NULL)
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	7942	IN_type_symbol = last_type_symbol;
149 05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	7943	ADD_PARAM_LIST(IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in)
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	7944	symbol_c * return_type_symbol = &search_constant_type_c::lreal_type_name;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	7945	function_type_prefix = return_type_symbol;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	7946	break;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	7947
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	7948	}
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	7949
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	7950
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	7951	ERROR;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	7952	}
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	7953
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	7954	}/function_string_to_lreal/
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	7955	break;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	7956
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	7957	/****
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	7958	*STRING_TO_BYTE
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	7959	*/
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	7960	case function_string_to_byte :
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	7961	{
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	7962	symbol_c *last_type_symbol = NULL;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	7963
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	7964	{
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	7965	identifier_c param_name("IN");
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	7966	/* Get the value from a foo(<param_name> = <param_value>) style call */
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	7967	symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
169 bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	7968	symbol_c *IN_type_symbol = NULL;
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	7969
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	7970	/* Get the value from a foo(<param_value>) style call */
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	7971	if (IN_param_value == NULL)
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	7972	IN_param_value = function_call_param_iterator.next();
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	7973	if (IN_param_value != NULL) {
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	7974	IN_type_symbol = search_expression_type->get_type(IN_param_value);
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	7975	last_type_symbol = last_type_symbol && IN_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	7976	}
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	7977
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	7978	if(IN_type_symbol == NULL \|\| search_expression_type->is_same_type(&search_constant_type_c::string_type_name, last_type_symbol))
149 05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	7979	{
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	7980
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	7981	function_name = (symbol_c*)(new pragma_c("__string_to_bit"));
169 bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	7982
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	7983	if (IN_type_symbol == NULL)
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	7984	IN_type_symbol = last_type_symbol;
149 05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	7985	ADD_PARAM_LIST(IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in)
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	7986	symbol_c * return_type_symbol = &search_constant_type_c::byte_type_name;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	7987	function_type_prefix = return_type_symbol;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	7988	break;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	7989
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	7990	}
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	7991
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	7992
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	7993	ERROR;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	7994	}
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	7995
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	7996	}/function_string_to_byte/
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	7997	break;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	7998
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	7999	/****
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	8000	*STRING_TO_USINT
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	8001	*/
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	8002	case function_string_to_usint :
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	8003	{
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	8004	symbol_c *last_type_symbol = NULL;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	8005
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	8006	{
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	8007	identifier_c param_name("IN");
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	8008	/* Get the value from a foo(<param_name> = <param_value>) style call */
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	8009	symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
169 bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	8010	symbol_c *IN_type_symbol = NULL;
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	8011
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	8012	/* Get the value from a foo(<param_value>) style call */
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	8013	if (IN_param_value == NULL)
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	8014	IN_param_value = function_call_param_iterator.next();
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	8015	if (IN_param_value != NULL) {
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	8016	IN_type_symbol = search_expression_type->get_type(IN_param_value);
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	8017	last_type_symbol = last_type_symbol && IN_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	8018	}
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	8019
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	8020	if(IN_type_symbol == NULL \|\| search_expression_type->is_same_type(&search_constant_type_c::string_type_name, last_type_symbol))
149 05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	8021	{
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	8022
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	8023	function_name = (symbol_c*)(new pragma_c("__string_to_uint"));
169 bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	8024
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	8025	if (IN_type_symbol == NULL)
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	8026	IN_type_symbol = last_type_symbol;
149 05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	8027	ADD_PARAM_LIST(IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in)
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	8028	symbol_c * return_type_symbol = &search_constant_type_c::usint_type_name;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	8029	function_type_prefix = return_type_symbol;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	8030	break;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	8031
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	8032	}
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	8033
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	8034
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	8035	ERROR;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	8036	}
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	8037
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	8038	}/function_string_to_usint/
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	8039	break;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	8040
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	8041	/****
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	8042	*STRING_TO_ULINT
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	8043	*/
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	8044	case function_string_to_ulint :
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	8045	{
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	8046	symbol_c *last_type_symbol = NULL;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	8047
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	8048	{
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	8049	identifier_c param_name("IN");
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	8050	/* Get the value from a foo(<param_name> = <param_value>) style call */
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	8051	symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
169 bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	8052	symbol_c *IN_type_symbol = NULL;
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	8053
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	8054	/* Get the value from a foo(<param_value>) style call */
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	8055	if (IN_param_value == NULL)
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	8056	IN_param_value = function_call_param_iterator.next();
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	8057	if (IN_param_value != NULL) {
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	8058	IN_type_symbol = search_expression_type->get_type(IN_param_value);
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	8059	last_type_symbol = last_type_symbol && IN_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	8060	}
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	8061
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	8062	if(IN_type_symbol == NULL \|\| search_expression_type->is_same_type(&search_constant_type_c::string_type_name, last_type_symbol))
149 05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	8063	{
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	8064
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	8065	function_name = (symbol_c*)(new pragma_c("__string_to_uint"));
169 bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	8066
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	8067	if (IN_type_symbol == NULL)
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	8068	IN_type_symbol = last_type_symbol;
149 05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	8069	ADD_PARAM_LIST(IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in)
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	8070	symbol_c * return_type_symbol = &search_constant_type_c::ulint_type_name;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	8071	function_type_prefix = return_type_symbol;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	8072	break;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	8073
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	8074	}
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	8075
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	8076
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	8077	ERROR;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	8078	}
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	8079
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	8080	}/function_string_to_ulint/
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	8081	break;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	8082
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	8083	/****
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	8084	*STRING_TO_BOOL
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	8085	*/
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	8086	case function_string_to_bool :
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	8087	{
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	8088	symbol_c *last_type_symbol = NULL;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	8089
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	8090	{
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	8091	identifier_c param_name("IN");
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	8092	/* Get the value from a foo(<param_name> = <param_value>) style call */
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	8093	symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
169 bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	8094	symbol_c *IN_type_symbol = NULL;
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	8095
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	8096	/* Get the value from a foo(<param_value>) style call */
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	8097	if (IN_param_value == NULL)
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	8098	IN_param_value = function_call_param_iterator.next();
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	8099	if (IN_param_value != NULL) {
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	8100	IN_type_symbol = search_expression_type->get_type(IN_param_value);
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	8101	last_type_symbol = last_type_symbol && IN_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	8102	}
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	8103
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	8104	if(IN_type_symbol == NULL \|\| search_expression_type->is_same_type(&search_constant_type_c::string_type_name, last_type_symbol))
149 05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	8105	{
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	8106
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	8107	function_name = (symbol_c*)(new pragma_c("__string_to_bool"));
169 bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	8108
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	8109	if (IN_type_symbol == NULL)
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	8110	IN_type_symbol = last_type_symbol;
149 05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	8111	ADD_PARAM_LIST(IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in)
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	8112	symbol_c * return_type_symbol = &search_constant_type_c::bool_type_name;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	8113	function_type_prefix = return_type_symbol;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	8114	break;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	8115
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	8116	}
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	8117
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	8118
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	8119	ERROR;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	8120	}
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	8121
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	8122	}/function_string_to_bool/
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	8123	break;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	8124
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	8125	/****
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	8126	*STRING_TO_TIME
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	8127	*/
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	8128	case function_string_to_time :
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	8129	{
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	8130	symbol_c *last_type_symbol = NULL;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	8131
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	8132	{
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	8133	identifier_c param_name("IN");
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	8134	/* Get the value from a foo(<param_name> = <param_value>) style call */
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	8135	symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
169 bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	8136	symbol_c *IN_type_symbol = NULL;
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	8137
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	8138	/* Get the value from a foo(<param_value>) style call */
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	8139	if (IN_param_value == NULL)
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	8140	IN_param_value = function_call_param_iterator.next();
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	8141	if (IN_param_value != NULL) {
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	8142	IN_type_symbol = search_expression_type->get_type(IN_param_value);
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	8143	last_type_symbol = last_type_symbol && IN_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	8144	}
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	8145
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	8146	if(IN_type_symbol == NULL \|\| search_expression_type->is_same_type(&search_constant_type_c::string_type_name, last_type_symbol))
149 05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	8147	{
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	8148
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	8149	function_name = (symbol_c*)(new pragma_c("__string_to_time"));
169 bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	8150
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	8151	if (IN_type_symbol == NULL)
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	8152	IN_type_symbol = last_type_symbol;
149 05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	8153	ADD_PARAM_LIST(IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in)
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	8154	symbol_c * return_type_symbol = &search_constant_type_c::time_type_name;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	8155	function_type_prefix = return_type_symbol;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	8156	break;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	8157
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	8158	}
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	8159
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	8160
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	8161	ERROR;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	8162	}
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	8163
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	8164	}/function_string_to_time/
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	8165	break;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	8166
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	8167	/****
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	8168	*STRING_TO_INT
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	8169	*/
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	8170	case function_string_to_int :
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	8171	{
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	8172	symbol_c *last_type_symbol = NULL;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	8173
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	8174	{
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	8175	identifier_c param_name("IN");
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	8176	/* Get the value from a foo(<param_name> = <param_value>) style call */
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	8177	symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
169 bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	8178	symbol_c *IN_type_symbol = NULL;
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	8179
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	8180	/* Get the value from a foo(<param_value>) style call */
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	8181	if (IN_param_value == NULL)
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	8182	IN_param_value = function_call_param_iterator.next();
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	8183	if (IN_param_value != NULL) {
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	8184	IN_type_symbol = search_expression_type->get_type(IN_param_value);
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	8185	last_type_symbol = last_type_symbol && IN_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	8186	}
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	8187
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	8188	if(IN_type_symbol == NULL \|\| search_expression_type->is_same_type(&search_constant_type_c::string_type_name, last_type_symbol))
149 05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	8189	{
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	8190
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	8191	function_name = (symbol_c*)(new pragma_c("__string_to_sint"));
169 bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	8192
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	8193	if (IN_type_symbol == NULL)
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	8194	IN_type_symbol = last_type_symbol;
149 05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	8195	ADD_PARAM_LIST(IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in)
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	8196	symbol_c * return_type_symbol = &search_constant_type_c::int_type_name;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	8197	function_type_prefix = return_type_symbol;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	8198	break;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	8199
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	8200	}
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	8201
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	8202
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	8203	ERROR;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	8204	}
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	8205
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	8206	}/function_string_to_int/
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	8207	break;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	8208
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	8209	/****
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	8210	*LWORD_TO_REAL
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	8211	*/
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	8212	case function_lword_to_real :
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	8213	{
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	8214	symbol_c *last_type_symbol = NULL;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	8215
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	8216	{
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	8217	identifier_c param_name("IN");
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	8218	/* Get the value from a foo(<param_name> = <param_value>) style call */
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	8219	symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
169 bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	8220	symbol_c *IN_type_symbol = NULL;
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	8221
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	8222	/* Get the value from a foo(<param_value>) style call */
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	8223	if (IN_param_value == NULL)
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	8224	IN_param_value = function_call_param_iterator.next();
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	8225	if (IN_param_value != NULL) {
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	8226	IN_type_symbol = search_expression_type->get_type(IN_param_value);
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	8227	last_type_symbol = last_type_symbol && IN_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	8228	}
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	8229
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	8230	if(IN_type_symbol == NULL \|\| search_expression_type->is_same_type(&search_constant_type_c::lword_type_name, last_type_symbol))
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	8231	{
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	8232
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	8233
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	8234	if (IN_type_symbol == NULL)
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	8235	IN_type_symbol = last_type_symbol;
149 05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	8236	ADD_PARAM_LIST(IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in)
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	8237	symbol_c * return_type_symbol = &search_constant_type_c::real_type_name;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	8238	function_type_prefix = return_type_symbol;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	8239	break;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	8240
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	8241	}
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	8242
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	8243
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	8244	ERROR;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	8245	}
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	8246
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	8247	}/function_lword_to_real/
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	8248	break;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	8249
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	8250	/****
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	8251	*LWORD_TO_SINT
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	8252	*/
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	8253	case function_lword_to_sint :
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	8254	{
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	8255	symbol_c *last_type_symbol = NULL;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	8256
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	8257	{
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	8258	identifier_c param_name("IN");
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	8259	/* Get the value from a foo(<param_name> = <param_value>) style call */
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	8260	symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
169 bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	8261	symbol_c *IN_type_symbol = NULL;
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	8262
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	8263	/* Get the value from a foo(<param_value>) style call */
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	8264	if (IN_param_value == NULL)
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	8265	IN_param_value = function_call_param_iterator.next();
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	8266	if (IN_param_value != NULL) {
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	8267	IN_type_symbol = search_expression_type->get_type(IN_param_value);
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	8268	last_type_symbol = last_type_symbol && IN_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	8269	}
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	8270
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	8271	if(IN_type_symbol == NULL \|\| search_expression_type->is_same_type(&search_constant_type_c::lword_type_name, last_type_symbol))
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	8272	{
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	8273
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	8274
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	8275	if (IN_type_symbol == NULL)
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	8276	IN_type_symbol = last_type_symbol;
149 05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	8277	ADD_PARAM_LIST(IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in)
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	8278	symbol_c * return_type_symbol = &search_constant_type_c::sint_type_name;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	8279	function_type_prefix = return_type_symbol;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	8280	break;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	8281
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	8282	}
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	8283
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	8284
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	8285	ERROR;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	8286	}
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	8287
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	8288	}/function_lword_to_sint/
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	8289	break;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	8290
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	8291	/****
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	8292	*LWORD_TO_LINT
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	8293	*/
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	8294	case function_lword_to_lint :
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	8295	{
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	8296	symbol_c *last_type_symbol = NULL;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	8297
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	8298	{
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	8299	identifier_c param_name("IN");
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	8300	/* Get the value from a foo(<param_name> = <param_value>) style call */
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	8301	symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
169 bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	8302	symbol_c *IN_type_symbol = NULL;
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	8303
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	8304	/* Get the value from a foo(<param_value>) style call */
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	8305	if (IN_param_value == NULL)
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	8306	IN_param_value = function_call_param_iterator.next();
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	8307	if (IN_param_value != NULL) {
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	8308	IN_type_symbol = search_expression_type->get_type(IN_param_value);
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	8309	last_type_symbol = last_type_symbol && IN_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	8310	}
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	8311
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	8312	if(IN_type_symbol == NULL \|\| search_expression_type->is_same_type(&search_constant_type_c::lword_type_name, last_type_symbol))
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	8313	{
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	8314
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	8315
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	8316	if (IN_type_symbol == NULL)
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	8317	IN_type_symbol = last_type_symbol;
149 05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	8318	ADD_PARAM_LIST(IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in)
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	8319	symbol_c * return_type_symbol = &search_constant_type_c::lint_type_name;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	8320	function_type_prefix = return_type_symbol;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	8321	break;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	8322
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	8323	}
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	8324
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	8325
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	8326	ERROR;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	8327	}
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	8328
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	8329	}/function_lword_to_lint/
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	8330	break;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	8331
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	8332	/****
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	8333	*LWORD_TO_DINT
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	8334	*/
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	8335	case function_lword_to_dint :
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	8336	{
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	8337	symbol_c *last_type_symbol = NULL;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	8338
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	8339	{
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	8340	identifier_c param_name("IN");
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	8341	/* Get the value from a foo(<param_name> = <param_value>) style call */
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	8342	symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
169 bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	8343	symbol_c *IN_type_symbol = NULL;
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	8344
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	8345	/* Get the value from a foo(<param_value>) style call */
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	8346	if (IN_param_value == NULL)
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	8347	IN_param_value = function_call_param_iterator.next();
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	8348	if (IN_param_value != NULL) {
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	8349	IN_type_symbol = search_expression_type->get_type(IN_param_value);
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	8350	last_type_symbol = last_type_symbol && IN_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	8351	}
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	8352
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	8353	if(IN_type_symbol == NULL \|\| search_expression_type->is_same_type(&search_constant_type_c::lword_type_name, last_type_symbol))
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	8354	{
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	8355
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	8356
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	8357	if (IN_type_symbol == NULL)
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	8358	IN_type_symbol = last_type_symbol;
149 05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	8359	ADD_PARAM_LIST(IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in)
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	8360	symbol_c * return_type_symbol = &search_constant_type_c::dint_type_name;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	8361	function_type_prefix = return_type_symbol;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	8362	break;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	8363
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	8364	}
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	8365
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	8366
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	8367	ERROR;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	8368	}
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	8369
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	8370	}/function_lword_to_dint/
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	8371	break;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	8372
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	8373	/****
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	8374	*LWORD_TO_DATE
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	8375	*/
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	8376	case function_lword_to_date :
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	8377	{
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	8378	symbol_c *last_type_symbol = NULL;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	8379
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	8380	{
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	8381	identifier_c param_name("IN");
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	8382	/* Get the value from a foo(<param_name> = <param_value>) style call */
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	8383	symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
169 bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	8384	symbol_c *IN_type_symbol = NULL;
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	8385
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	8386	/* Get the value from a foo(<param_value>) style call */
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	8387	if (IN_param_value == NULL)
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	8388	IN_param_value = function_call_param_iterator.next();
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	8389	if (IN_param_value != NULL) {
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	8390	IN_type_symbol = search_expression_type->get_type(IN_param_value);
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	8391	last_type_symbol = last_type_symbol && IN_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	8392	}
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	8393
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	8394	if(IN_type_symbol == NULL \|\| search_expression_type->is_same_type(&search_constant_type_c::lword_type_name, last_type_symbol))
149 05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	8395	{
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	8396
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	8397	function_name = (symbol_c*)(new pragma_c("__int_to_time"));
169 bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	8398
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	8399	if (IN_type_symbol == NULL)
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	8400	IN_type_symbol = last_type_symbol;
149 05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	8401	ADD_PARAM_LIST(IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in)
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	8402	symbol_c * return_type_symbol = &search_constant_type_c::date_type_name;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	8403	function_type_prefix = return_type_symbol;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	8404	break;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	8405
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	8406	}
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	8407
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	8408
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	8409	ERROR;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	8410	}
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	8411
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	8412	}/function_lword_to_date/
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	8413	break;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	8414
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	8415	/****
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	8416	*LWORD_TO_DWORD
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	8417	*/
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	8418	case function_lword_to_dword :
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	8419	{
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	8420	symbol_c *last_type_symbol = NULL;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	8421
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	8422	{
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	8423	identifier_c param_name("IN");
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	8424	/* Get the value from a foo(<param_name> = <param_value>) style call */
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	8425	symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
169 bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	8426	symbol_c *IN_type_symbol = NULL;
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	8427
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	8428	/* Get the value from a foo(<param_value>) style call */
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	8429	if (IN_param_value == NULL)
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	8430	IN_param_value = function_call_param_iterator.next();
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	8431	if (IN_param_value != NULL) {
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	8432	IN_type_symbol = search_expression_type->get_type(IN_param_value);
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	8433	last_type_symbol = last_type_symbol && IN_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	8434	}
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	8435
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	8436	if(IN_type_symbol == NULL \|\| search_expression_type->is_same_type(&search_constant_type_c::lword_type_name, last_type_symbol))
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	8437	{
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	8438
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	8439
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	8440	if (IN_type_symbol == NULL)
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	8441	IN_type_symbol = last_type_symbol;
149 05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	8442	ADD_PARAM_LIST(IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in)
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	8443	symbol_c * return_type_symbol = &search_constant_type_c::dword_type_name;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	8444	function_type_prefix = return_type_symbol;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	8445	break;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	8446
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	8447	}
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	8448
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	8449
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	8450	ERROR;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	8451	}
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	8452
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	8453	}/function_lword_to_dword/
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	8454	break;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	8455
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	8456	/****
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	8457	*LWORD_TO_DT
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	8458	*/
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	8459	case function_lword_to_dt :
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	8460	{
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	8461	symbol_c *last_type_symbol = NULL;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	8462
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	8463	{
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	8464	identifier_c param_name("IN");
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	8465	/* Get the value from a foo(<param_name> = <param_value>) style call */
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	8466	symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
169 bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	8467	symbol_c *IN_type_symbol = NULL;
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	8468
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	8469	/* Get the value from a foo(<param_value>) style call */
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	8470	if (IN_param_value == NULL)
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	8471	IN_param_value = function_call_param_iterator.next();
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	8472	if (IN_param_value != NULL) {
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	8473	IN_type_symbol = search_expression_type->get_type(IN_param_value);
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	8474	last_type_symbol = last_type_symbol && IN_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	8475	}
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	8476
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	8477	if(IN_type_symbol == NULL \|\| search_expression_type->is_same_type(&search_constant_type_c::lword_type_name, last_type_symbol))
149 05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	8478	{
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	8479
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	8480	function_name = (symbol_c*)(new pragma_c("__int_to_time"));
169 bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	8481
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	8482	if (IN_type_symbol == NULL)
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	8483	IN_type_symbol = last_type_symbol;
149 05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	8484	ADD_PARAM_LIST(IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in)
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	8485	symbol_c * return_type_symbol = &search_constant_type_c::dt_type_name;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	8486	function_type_prefix = return_type_symbol;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	8487	break;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	8488
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	8489	}
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	8490
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	8491
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	8492	ERROR;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	8493	}
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	8494
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	8495	}/function_lword_to_dt/
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	8496	break;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	8497
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	8498	/****
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	8499	*LWORD_TO_TOD
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	8500	*/
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	8501	case function_lword_to_tod :
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	8502	{
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	8503	symbol_c *last_type_symbol = NULL;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	8504
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	8505	{
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	8506	identifier_c param_name("IN");
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	8507	/* Get the value from a foo(<param_name> = <param_value>) style call */
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	8508	symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
169 bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	8509	symbol_c *IN_type_symbol = NULL;
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	8510
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	8511	/* Get the value from a foo(<param_value>) style call */
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	8512	if (IN_param_value == NULL)
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	8513	IN_param_value = function_call_param_iterator.next();
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	8514	if (IN_param_value != NULL) {
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	8515	IN_type_symbol = search_expression_type->get_type(IN_param_value);
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	8516	last_type_symbol = last_type_symbol && IN_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	8517	}
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	8518
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	8519	if(IN_type_symbol == NULL \|\| search_expression_type->is_same_type(&search_constant_type_c::lword_type_name, last_type_symbol))
149 05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	8520	{
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	8521
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	8522	function_name = (symbol_c*)(new pragma_c("__int_to_time"));
169 bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	8523
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	8524	if (IN_type_symbol == NULL)
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	8525	IN_type_symbol = last_type_symbol;
149 05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	8526	ADD_PARAM_LIST(IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in)
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	8527	symbol_c * return_type_symbol = &search_constant_type_c::tod_type_name;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	8528	function_type_prefix = return_type_symbol;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	8529	break;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	8530
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	8531	}
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	8532
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	8533
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	8534	ERROR;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	8535	}
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	8536
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	8537	}/function_lword_to_tod/
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	8538	break;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	8539
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	8540	/****
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	8541	*LWORD_TO_UDINT
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	8542	*/
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	8543	case function_lword_to_udint :
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	8544	{
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	8545	symbol_c *last_type_symbol = NULL;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	8546
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	8547	{
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	8548	identifier_c param_name("IN");
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	8549	/* Get the value from a foo(<param_name> = <param_value>) style call */
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	8550	symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
169 bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	8551	symbol_c *IN_type_symbol = NULL;
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	8552
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	8553	/* Get the value from a foo(<param_value>) style call */
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	8554	if (IN_param_value == NULL)
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	8555	IN_param_value = function_call_param_iterator.next();
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	8556	if (IN_param_value != NULL) {
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	8557	IN_type_symbol = search_expression_type->get_type(IN_param_value);
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	8558	last_type_symbol = last_type_symbol && IN_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	8559	}
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	8560
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	8561	if(IN_type_symbol == NULL \|\| search_expression_type->is_same_type(&search_constant_type_c::lword_type_name, last_type_symbol))
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	8562	{
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	8563
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	8564
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	8565	if (IN_type_symbol == NULL)
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	8566	IN_type_symbol = last_type_symbol;
149 05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	8567	ADD_PARAM_LIST(IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in)
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	8568	symbol_c * return_type_symbol = &search_constant_type_c::udint_type_name;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	8569	function_type_prefix = return_type_symbol;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	8570	break;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	8571
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	8572	}
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	8573
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	8574
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	8575	ERROR;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	8576	}
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	8577
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	8578	}/function_lword_to_udint/
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	8579	break;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	8580
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	8581	/****
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	8582	*LWORD_TO_WORD
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	8583	*/
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	8584	case function_lword_to_word :
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	8585	{
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	8586	symbol_c *last_type_symbol = NULL;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	8587
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	8588	{
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	8589	identifier_c param_name("IN");
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	8590	/* Get the value from a foo(<param_name> = <param_value>) style call */
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	8591	symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
169 bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	8592	symbol_c *IN_type_symbol = NULL;
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	8593
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	8594	/* Get the value from a foo(<param_value>) style call */
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	8595	if (IN_param_value == NULL)
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	8596	IN_param_value = function_call_param_iterator.next();
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	8597	if (IN_param_value != NULL) {
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	8598	IN_type_symbol = search_expression_type->get_type(IN_param_value);
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	8599	last_type_symbol = last_type_symbol && IN_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	8600	}
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	8601
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	8602	if(IN_type_symbol == NULL \|\| search_expression_type->is_same_type(&search_constant_type_c::lword_type_name, last_type_symbol))
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	8603	{
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	8604
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	8605
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	8606	if (IN_type_symbol == NULL)
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	8607	IN_type_symbol = last_type_symbol;
149 05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	8608	ADD_PARAM_LIST(IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in)
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	8609	symbol_c * return_type_symbol = &search_constant_type_c::word_type_name;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	8610	function_type_prefix = return_type_symbol;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	8611	break;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	8612
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	8613	}
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	8614
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	8615
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	8616	ERROR;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	8617	}
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	8618
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	8619	}/function_lword_to_word/
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	8620	break;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	8621
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	8622	/****
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	8623	*LWORD_TO_STRING
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	8624	*/
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	8625	case function_lword_to_string :
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	8626	{
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	8627	symbol_c *last_type_symbol = NULL;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	8628
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	8629	{
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	8630	identifier_c param_name("IN");
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	8631	/* Get the value from a foo(<param_name> = <param_value>) style call */
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	8632	symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
169 bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	8633	symbol_c *IN_type_symbol = NULL;
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	8634
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	8635	/* Get the value from a foo(<param_value>) style call */
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	8636	if (IN_param_value == NULL)
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	8637	IN_param_value = function_call_param_iterator.next();
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	8638	if (IN_param_value != NULL) {
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	8639	IN_type_symbol = search_expression_type->get_type(IN_param_value);
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	8640	last_type_symbol = last_type_symbol && IN_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	8641	}
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	8642
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	8643	if(IN_type_symbol == NULL \|\| search_expression_type->is_same_type(&search_constant_type_c::lword_type_name, last_type_symbol))
149 05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	8644	{
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	8645
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	8646	function_name = (symbol_c*)(new pragma_c("__bit_to_string"));
169 bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	8647
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	8648	if (IN_type_symbol == NULL)
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	8649	IN_type_symbol = last_type_symbol;
149 05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	8650	ADD_PARAM_LIST(IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in)
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	8651	symbol_c * return_type_symbol = &search_constant_type_c::string_type_name;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	8652	function_type_prefix = return_type_symbol;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	8653	break;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	8654
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	8655	}
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	8656
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	8657
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	8658	ERROR;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	8659	}
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	8660
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	8661	}/function_lword_to_string/
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	8662	break;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	8663
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	8664	/****
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	8665	*LWORD_TO_UINT
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	8666	*/
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	8667	case function_lword_to_uint :
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	8668	{
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	8669	symbol_c *last_type_symbol = NULL;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	8670
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	8671	{
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	8672	identifier_c param_name("IN");
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	8673	/* Get the value from a foo(<param_name> = <param_value>) style call */
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	8674	symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
169 bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	8675	symbol_c *IN_type_symbol = NULL;
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	8676
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	8677	/* Get the value from a foo(<param_value>) style call */
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	8678	if (IN_param_value == NULL)
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	8679	IN_param_value = function_call_param_iterator.next();
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	8680	if (IN_param_value != NULL) {
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	8681	IN_type_symbol = search_expression_type->get_type(IN_param_value);
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	8682	last_type_symbol = last_type_symbol && IN_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	8683	}
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	8684
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	8685	if(IN_type_symbol == NULL \|\| search_expression_type->is_same_type(&search_constant_type_c::lword_type_name, last_type_symbol))
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	8686	{
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	8687
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	8688
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	8689	if (IN_type_symbol == NULL)
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	8690	IN_type_symbol = last_type_symbol;
149 05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	8691	ADD_PARAM_LIST(IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in)
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	8692	symbol_c * return_type_symbol = &search_constant_type_c::uint_type_name;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	8693	function_type_prefix = return_type_symbol;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	8694	break;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	8695
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	8696	}
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	8697
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	8698
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	8699	ERROR;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	8700	}
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	8701
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	8702	}/function_lword_to_uint/
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	8703	break;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	8704
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	8705	/****
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	8706	*LWORD_TO_LREAL
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	8707	*/
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	8708	case function_lword_to_lreal :
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	8709	{
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	8710	symbol_c *last_type_symbol = NULL;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	8711
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	8712	{
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	8713	identifier_c param_name("IN");
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	8714	/* Get the value from a foo(<param_name> = <param_value>) style call */
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	8715	symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
169 bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	8716	symbol_c *IN_type_symbol = NULL;
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	8717
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	8718	/* Get the value from a foo(<param_value>) style call */
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	8719	if (IN_param_value == NULL)
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	8720	IN_param_value = function_call_param_iterator.next();
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	8721	if (IN_param_value != NULL) {
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	8722	IN_type_symbol = search_expression_type->get_type(IN_param_value);
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	8723	last_type_symbol = last_type_symbol && IN_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	8724	}
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	8725
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	8726	if(IN_type_symbol == NULL \|\| search_expression_type->is_same_type(&search_constant_type_c::lword_type_name, last_type_symbol))
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	8727	{
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	8728
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	8729
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	8730	if (IN_type_symbol == NULL)
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	8731	IN_type_symbol = last_type_symbol;
149 05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	8732	ADD_PARAM_LIST(IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in)
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	8733	symbol_c * return_type_symbol = &search_constant_type_c::lreal_type_name;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	8734	function_type_prefix = return_type_symbol;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	8735	break;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	8736
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	8737	}
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	8738
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	8739
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	8740	ERROR;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	8741	}
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	8742
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	8743	}/function_lword_to_lreal/
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	8744	break;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	8745
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	8746	/****
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	8747	*LWORD_TO_BYTE
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	8748	*/
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	8749	case function_lword_to_byte :
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	8750	{
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	8751	symbol_c *last_type_symbol = NULL;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	8752
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	8753	{
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	8754	identifier_c param_name("IN");
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	8755	/* Get the value from a foo(<param_name> = <param_value>) style call */
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	8756	symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
169 bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	8757	symbol_c *IN_type_symbol = NULL;
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	8758
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	8759	/* Get the value from a foo(<param_value>) style call */
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	8760	if (IN_param_value == NULL)
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	8761	IN_param_value = function_call_param_iterator.next();
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	8762	if (IN_param_value != NULL) {
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	8763	IN_type_symbol = search_expression_type->get_type(IN_param_value);
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	8764	last_type_symbol = last_type_symbol && IN_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	8765	}
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	8766
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	8767	if(IN_type_symbol == NULL \|\| search_expression_type->is_same_type(&search_constant_type_c::lword_type_name, last_type_symbol))
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	8768	{
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	8769
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	8770
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	8771	if (IN_type_symbol == NULL)
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	8772	IN_type_symbol = last_type_symbol;
149 05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	8773	ADD_PARAM_LIST(IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in)
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	8774	symbol_c * return_type_symbol = &search_constant_type_c::byte_type_name;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	8775	function_type_prefix = return_type_symbol;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	8776	break;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	8777
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	8778	}
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	8779
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	8780
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	8781	ERROR;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	8782	}
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	8783
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	8784	}/function_lword_to_byte/
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	8785	break;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	8786
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	8787	/****
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	8788	*LWORD_TO_USINT
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	8789	*/
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	8790	case function_lword_to_usint :
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	8791	{
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	8792	symbol_c *last_type_symbol = NULL;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	8793
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	8794	{
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	8795	identifier_c param_name("IN");
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	8796	/* Get the value from a foo(<param_name> = <param_value>) style call */
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	8797	symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
169 bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	8798	symbol_c *IN_type_symbol = NULL;
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	8799
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	8800	/* Get the value from a foo(<param_value>) style call */
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	8801	if (IN_param_value == NULL)
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	8802	IN_param_value = function_call_param_iterator.next();
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	8803	if (IN_param_value != NULL) {
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	8804	IN_type_symbol = search_expression_type->get_type(IN_param_value);
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	8805	last_type_symbol = last_type_symbol && IN_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	8806	}
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	8807
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	8808	if(IN_type_symbol == NULL \|\| search_expression_type->is_same_type(&search_constant_type_c::lword_type_name, last_type_symbol))
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	8809	{
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	8810
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	8811
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	8812	if (IN_type_symbol == NULL)
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	8813	IN_type_symbol = last_type_symbol;
149 05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	8814	ADD_PARAM_LIST(IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in)
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	8815	symbol_c * return_type_symbol = &search_constant_type_c::usint_type_name;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	8816	function_type_prefix = return_type_symbol;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	8817	break;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	8818
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	8819	}
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	8820
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	8821
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	8822	ERROR;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	8823	}
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	8824
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	8825	}/function_lword_to_usint/
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	8826	break;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	8827
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	8828	/****
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	8829	*LWORD_TO_ULINT
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	8830	*/
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	8831	case function_lword_to_ulint :
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	8832	{
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	8833	symbol_c *last_type_symbol = NULL;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	8834
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	8835	{
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	8836	identifier_c param_name("IN");
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	8837	/* Get the value from a foo(<param_name> = <param_value>) style call */
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	8838	symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
169 bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	8839	symbol_c *IN_type_symbol = NULL;
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	8840
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	8841	/* Get the value from a foo(<param_value>) style call */
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	8842	if (IN_param_value == NULL)
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	8843	IN_param_value = function_call_param_iterator.next();
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	8844	if (IN_param_value != NULL) {
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	8845	IN_type_symbol = search_expression_type->get_type(IN_param_value);
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	8846	last_type_symbol = last_type_symbol && IN_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	8847	}
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	8848
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	8849	if(IN_type_symbol == NULL \|\| search_expression_type->is_same_type(&search_constant_type_c::lword_type_name, last_type_symbol))
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	8850	{
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	8851
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	8852
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	8853	if (IN_type_symbol == NULL)
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	8854	IN_type_symbol = last_type_symbol;
149 05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	8855	ADD_PARAM_LIST(IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in)
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	8856	symbol_c * return_type_symbol = &search_constant_type_c::ulint_type_name;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	8857	function_type_prefix = return_type_symbol;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	8858	break;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	8859
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	8860	}
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	8861
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	8862
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	8863	ERROR;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	8864	}
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	8865
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	8866	}/function_lword_to_ulint/
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	8867	break;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	8868
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	8869	/****
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	8870	*LWORD_TO_BOOL
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	8871	*/
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	8872	case function_lword_to_bool :
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	8873	{
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	8874	symbol_c *last_type_symbol = NULL;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	8875
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	8876	{
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	8877	identifier_c param_name("IN");
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	8878	/* Get the value from a foo(<param_name> = <param_value>) style call */
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	8879	symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
169 bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	8880	symbol_c *IN_type_symbol = NULL;
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	8881
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	8882	/* Get the value from a foo(<param_value>) style call */
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	8883	if (IN_param_value == NULL)
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	8884	IN_param_value = function_call_param_iterator.next();
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	8885	if (IN_param_value != NULL) {
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	8886	IN_type_symbol = search_expression_type->get_type(IN_param_value);
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	8887	last_type_symbol = last_type_symbol && IN_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	8888	}
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	8889
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	8890	if(IN_type_symbol == NULL \|\| search_expression_type->is_same_type(&search_constant_type_c::lword_type_name, last_type_symbol))
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	8891	{
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	8892
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	8893
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	8894	if (IN_type_symbol == NULL)
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	8895	IN_type_symbol = last_type_symbol;
149 05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	8896	ADD_PARAM_LIST(IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in)
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	8897	symbol_c * return_type_symbol = &search_constant_type_c::bool_type_name;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	8898	function_type_prefix = return_type_symbol;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	8899	break;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	8900
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	8901	}
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	8902
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	8903
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	8904	ERROR;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	8905	}
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	8906
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	8907	}/function_lword_to_bool/
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	8908	break;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	8909
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	8910	/****
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	8911	*LWORD_TO_TIME
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	8912	*/
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	8913	case function_lword_to_time :
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	8914	{
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	8915	symbol_c *last_type_symbol = NULL;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	8916
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	8917	{
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	8918	identifier_c param_name("IN");
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	8919	/* Get the value from a foo(<param_name> = <param_value>) style call */
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	8920	symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
169 bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	8921	symbol_c *IN_type_symbol = NULL;
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	8922
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	8923	/* Get the value from a foo(<param_value>) style call */
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	8924	if (IN_param_value == NULL)
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	8925	IN_param_value = function_call_param_iterator.next();
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	8926	if (IN_param_value != NULL) {
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	8927	IN_type_symbol = search_expression_type->get_type(IN_param_value);
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	8928	last_type_symbol = last_type_symbol && IN_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	8929	}
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	8930
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	8931	if(IN_type_symbol == NULL \|\| search_expression_type->is_same_type(&search_constant_type_c::lword_type_name, last_type_symbol))
149 05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	8932	{
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	8933
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	8934	function_name = (symbol_c*)(new pragma_c("__int_to_time"));
169 bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	8935
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	8936	if (IN_type_symbol == NULL)
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	8937	IN_type_symbol = last_type_symbol;
149 05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	8938	ADD_PARAM_LIST(IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in)
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	8939	symbol_c * return_type_symbol = &search_constant_type_c::time_type_name;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	8940	function_type_prefix = return_type_symbol;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	8941	break;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	8942
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	8943	}
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	8944
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	8945
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	8946	ERROR;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	8947	}
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	8948
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	8949	}/function_lword_to_time/
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	8950	break;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	8951
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	8952	/****
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	8953	*LWORD_TO_INT
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	8954	*/
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	8955	case function_lword_to_int :
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	8956	{
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	8957	symbol_c *last_type_symbol = NULL;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	8958
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	8959	{
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	8960	identifier_c param_name("IN");
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	8961	/* Get the value from a foo(<param_name> = <param_value>) style call */
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	8962	symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
169 bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	8963	symbol_c *IN_type_symbol = NULL;
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	8964
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	8965	/* Get the value from a foo(<param_value>) style call */
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	8966	if (IN_param_value == NULL)
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	8967	IN_param_value = function_call_param_iterator.next();
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	8968	if (IN_param_value != NULL) {
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	8969	IN_type_symbol = search_expression_type->get_type(IN_param_value);
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	8970	last_type_symbol = last_type_symbol && IN_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	8971	}
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	8972
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	8973	if(IN_type_symbol == NULL \|\| search_expression_type->is_same_type(&search_constant_type_c::lword_type_name, last_type_symbol))
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	8974	{
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	8975
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	8976
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	8977	if (IN_type_symbol == NULL)
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	8978	IN_type_symbol = last_type_symbol;
149 05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	8979	ADD_PARAM_LIST(IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in)
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	8980	symbol_c * return_type_symbol = &search_constant_type_c::int_type_name;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	8981	function_type_prefix = return_type_symbol;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	8982	break;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	8983
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	8984	}
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	8985
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	8986
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	8987	ERROR;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	8988	}
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	8989
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	8990	}/function_lword_to_int/
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	8991	break;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	8992
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	8993	/****
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	8994	*UINT_TO_REAL
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	8995	*/
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	8996	case function_uint_to_real :
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	8997	{
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	8998	symbol_c *last_type_symbol = NULL;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	8999
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	9000	{
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	9001	identifier_c param_name("IN");
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	9002	/* Get the value from a foo(<param_name> = <param_value>) style call */
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	9003	symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
169 bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	9004	symbol_c *IN_type_symbol = NULL;
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	9005
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	9006	/* Get the value from a foo(<param_value>) style call */
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	9007	if (IN_param_value == NULL)
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	9008	IN_param_value = function_call_param_iterator.next();
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	9009	if (IN_param_value != NULL) {
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	9010	IN_type_symbol = search_expression_type->get_type(IN_param_value);
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	9011	last_type_symbol = last_type_symbol && IN_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	9012	}
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	9013
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	9014	if(IN_type_symbol == NULL \|\| search_expression_type->is_same_type(&search_constant_type_c::uint_type_name, last_type_symbol))
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	9015	{
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	9016
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	9017
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	9018	if (IN_type_symbol == NULL)
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	9019	IN_type_symbol = last_type_symbol;
149 05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	9020	ADD_PARAM_LIST(IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in)
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	9021	symbol_c * return_type_symbol = &search_constant_type_c::real_type_name;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	9022	function_type_prefix = return_type_symbol;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	9023	break;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	9024
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	9025	}
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	9026
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	9027
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	9028	ERROR;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	9029	}
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	9030
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	9031	}/function_uint_to_real/
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	9032	break;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	9033
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	9034	/****
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	9035	*UINT_TO_SINT
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	9036	*/
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	9037	case function_uint_to_sint :
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	9038	{
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	9039	symbol_c *last_type_symbol = NULL;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	9040
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	9041	{
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	9042	identifier_c param_name("IN");
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	9043	/* Get the value from a foo(<param_name> = <param_value>) style call */
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	9044	symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
169 bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	9045	symbol_c *IN_type_symbol = NULL;
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	9046
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	9047	/* Get the value from a foo(<param_value>) style call */
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	9048	if (IN_param_value == NULL)
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	9049	IN_param_value = function_call_param_iterator.next();
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	9050	if (IN_param_value != NULL) {
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	9051	IN_type_symbol = search_expression_type->get_type(IN_param_value);
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	9052	last_type_symbol = last_type_symbol && IN_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	9053	}
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	9054
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	9055	if(IN_type_symbol == NULL \|\| search_expression_type->is_same_type(&search_constant_type_c::uint_type_name, last_type_symbol))
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	9056	{
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	9057
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	9058
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	9059	if (IN_type_symbol == NULL)
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	9060	IN_type_symbol = last_type_symbol;
149 05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	9061	ADD_PARAM_LIST(IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in)
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	9062	symbol_c * return_type_symbol = &search_constant_type_c::sint_type_name;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	9063	function_type_prefix = return_type_symbol;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	9064	break;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	9065
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	9066	}
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	9067
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	9068
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	9069	ERROR;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	9070	}
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	9071
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	9072	}/function_uint_to_sint/
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	9073	break;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	9074
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	9075	/****
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	9076	*UINT_TO_LINT
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	9077	*/
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	9078	case function_uint_to_lint :
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	9079	{
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	9080	symbol_c *last_type_symbol = NULL;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	9081
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	9082	{
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	9083	identifier_c param_name("IN");
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	9084	/* Get the value from a foo(<param_name> = <param_value>) style call */
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	9085	symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
169 bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	9086	symbol_c *IN_type_symbol = NULL;
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	9087
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	9088	/* Get the value from a foo(<param_value>) style call */
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	9089	if (IN_param_value == NULL)
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	9090	IN_param_value = function_call_param_iterator.next();
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	9091	if (IN_param_value != NULL) {
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	9092	IN_type_symbol = search_expression_type->get_type(IN_param_value);
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	9093	last_type_symbol = last_type_symbol && IN_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	9094	}
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	9095
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	9096	if(IN_type_symbol == NULL \|\| search_expression_type->is_same_type(&search_constant_type_c::uint_type_name, last_type_symbol))
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	9097	{
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	9098
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	9099
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	9100	if (IN_type_symbol == NULL)
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	9101	IN_type_symbol = last_type_symbol;
149 05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	9102	ADD_PARAM_LIST(IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in)
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	9103	symbol_c * return_type_symbol = &search_constant_type_c::lint_type_name;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	9104	function_type_prefix = return_type_symbol;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	9105	break;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	9106
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	9107	}
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	9108
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	9109
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	9110	ERROR;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	9111	}
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	9112
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	9113	}/function_uint_to_lint/
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	9114	break;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	9115
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	9116	/****
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	9117	*UINT_TO_DINT
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	9118	*/
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	9119	case function_uint_to_dint :
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	9120	{
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	9121	symbol_c *last_type_symbol = NULL;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	9122
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	9123	{
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	9124	identifier_c param_name("IN");
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	9125	/* Get the value from a foo(<param_name> = <param_value>) style call */
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	9126	symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
169 bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	9127	symbol_c *IN_type_symbol = NULL;
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	9128
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	9129	/* Get the value from a foo(<param_value>) style call */
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	9130	if (IN_param_value == NULL)
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	9131	IN_param_value = function_call_param_iterator.next();
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	9132	if (IN_param_value != NULL) {
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	9133	IN_type_symbol = search_expression_type->get_type(IN_param_value);
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	9134	last_type_symbol = last_type_symbol && IN_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	9135	}
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	9136
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	9137	if(IN_type_symbol == NULL \|\| search_expression_type->is_same_type(&search_constant_type_c::uint_type_name, last_type_symbol))
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	9138	{
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	9139
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	9140
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	9141	if (IN_type_symbol == NULL)
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	9142	IN_type_symbol = last_type_symbol;
149 05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	9143	ADD_PARAM_LIST(IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in)
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	9144	symbol_c * return_type_symbol = &search_constant_type_c::dint_type_name;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	9145	function_type_prefix = return_type_symbol;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	9146	break;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	9147
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	9148	}
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	9149
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	9150
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	9151	ERROR;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	9152	}
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	9153
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	9154	}/function_uint_to_dint/
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	9155	break;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	9156
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	9157	/****
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	9158	*UINT_TO_DATE
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	9159	*/
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	9160	case function_uint_to_date :
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	9161	{
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	9162	symbol_c *last_type_symbol = NULL;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	9163
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	9164	{
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	9165	identifier_c param_name("IN");
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	9166	/* Get the value from a foo(<param_name> = <param_value>) style call */
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	9167	symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
169 bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	9168	symbol_c *IN_type_symbol = NULL;
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	9169
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	9170	/* Get the value from a foo(<param_value>) style call */
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	9171	if (IN_param_value == NULL)
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	9172	IN_param_value = function_call_param_iterator.next();
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	9173	if (IN_param_value != NULL) {
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	9174	IN_type_symbol = search_expression_type->get_type(IN_param_value);
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	9175	last_type_symbol = last_type_symbol && IN_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	9176	}
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	9177
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	9178	if(IN_type_symbol == NULL \|\| search_expression_type->is_same_type(&search_constant_type_c::uint_type_name, last_type_symbol))
149 05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	9179	{
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	9180
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	9181	function_name = (symbol_c*)(new pragma_c("__int_to_time"));
169 bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	9182
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	9183	if (IN_type_symbol == NULL)
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	9184	IN_type_symbol = last_type_symbol;
149 05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	9185	ADD_PARAM_LIST(IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in)
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	9186	symbol_c * return_type_symbol = &search_constant_type_c::date_type_name;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	9187	function_type_prefix = return_type_symbol;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	9188	break;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	9189
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	9190	}
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	9191
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	9192
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	9193	ERROR;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	9194	}
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	9195
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	9196	}/function_uint_to_date/
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	9197	break;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	9198
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	9199	/****
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	9200	*UINT_TO_DWORD
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	9201	*/
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	9202	case function_uint_to_dword :
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	9203	{
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	9204	symbol_c *last_type_symbol = NULL;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	9205
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	9206	{
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	9207	identifier_c param_name("IN");
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	9208	/* Get the value from a foo(<param_name> = <param_value>) style call */
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	9209	symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
169 bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	9210	symbol_c *IN_type_symbol = NULL;
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	9211
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	9212	/* Get the value from a foo(<param_value>) style call */
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	9213	if (IN_param_value == NULL)
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	9214	IN_param_value = function_call_param_iterator.next();
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	9215	if (IN_param_value != NULL) {
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	9216	IN_type_symbol = search_expression_type->get_type(IN_param_value);
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	9217	last_type_symbol = last_type_symbol && IN_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	9218	}
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	9219
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	9220	if(IN_type_symbol == NULL \|\| search_expression_type->is_same_type(&search_constant_type_c::uint_type_name, last_type_symbol))
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	9221	{
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	9222
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	9223
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	9224	if (IN_type_symbol == NULL)
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	9225	IN_type_symbol = last_type_symbol;
149 05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	9226	ADD_PARAM_LIST(IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in)
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	9227	symbol_c * return_type_symbol = &search_constant_type_c::dword_type_name;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	9228	function_type_prefix = return_type_symbol;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	9229	break;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	9230
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	9231	}
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	9232
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	9233
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	9234	ERROR;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	9235	}
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	9236
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	9237	}/function_uint_to_dword/
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	9238	break;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	9239
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	9240	/****
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	9241	*UINT_TO_DT
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	9242	*/
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	9243	case function_uint_to_dt :
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	9244	{
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	9245	symbol_c *last_type_symbol = NULL;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	9246
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	9247	{
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	9248	identifier_c param_name("IN");
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	9249	/* Get the value from a foo(<param_name> = <param_value>) style call */
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	9250	symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
169 bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	9251	symbol_c *IN_type_symbol = NULL;
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	9252
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	9253	/* Get the value from a foo(<param_value>) style call */
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	9254	if (IN_param_value == NULL)
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	9255	IN_param_value = function_call_param_iterator.next();
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	9256	if (IN_param_value != NULL) {
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	9257	IN_type_symbol = search_expression_type->get_type(IN_param_value);
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	9258	last_type_symbol = last_type_symbol && IN_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	9259	}
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	9260
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	9261	if(IN_type_symbol == NULL \|\| search_expression_type->is_same_type(&search_constant_type_c::uint_type_name, last_type_symbol))
149 05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	9262	{
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	9263
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	9264	function_name = (symbol_c*)(new pragma_c("__int_to_time"));
169 bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	9265
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	9266	if (IN_type_symbol == NULL)
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	9267	IN_type_symbol = last_type_symbol;
149 05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	9268	ADD_PARAM_LIST(IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in)
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	9269	symbol_c * return_type_symbol = &search_constant_type_c::dt_type_name;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	9270	function_type_prefix = return_type_symbol;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	9271	break;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	9272
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	9273	}
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	9274
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	9275
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	9276	ERROR;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	9277	}
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	9278
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	9279	}/function_uint_to_dt/
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	9280	break;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	9281
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	9282	/****
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	9283	*UINT_TO_TOD
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	9284	*/
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	9285	case function_uint_to_tod :
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	9286	{
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	9287	symbol_c *last_type_symbol = NULL;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	9288
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	9289	{
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	9290	identifier_c param_name("IN");
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	9291	/* Get the value from a foo(<param_name> = <param_value>) style call */
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	9292	symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
169 bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	9293	symbol_c *IN_type_symbol = NULL;
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	9294
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	9295	/* Get the value from a foo(<param_value>) style call */
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	9296	if (IN_param_value == NULL)
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	9297	IN_param_value = function_call_param_iterator.next();
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	9298	if (IN_param_value != NULL) {
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	9299	IN_type_symbol = search_expression_type->get_type(IN_param_value);
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	9300	last_type_symbol = last_type_symbol && IN_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	9301	}
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	9302
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	9303	if(IN_type_symbol == NULL \|\| search_expression_type->is_same_type(&search_constant_type_c::uint_type_name, last_type_symbol))
149 05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	9304	{
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	9305
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	9306	function_name = (symbol_c*)(new pragma_c("__int_to_time"));
169 bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	9307
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	9308	if (IN_type_symbol == NULL)
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	9309	IN_type_symbol = last_type_symbol;
149 05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	9310	ADD_PARAM_LIST(IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in)
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	9311	symbol_c * return_type_symbol = &search_constant_type_c::tod_type_name;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	9312	function_type_prefix = return_type_symbol;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	9313	break;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	9314
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	9315	}
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	9316
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	9317
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	9318	ERROR;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	9319	}
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	9320
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	9321	}/function_uint_to_tod/
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	9322	break;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	9323
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	9324	/****
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	9325	*UINT_TO_UDINT
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	9326	*/
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	9327	case function_uint_to_udint :
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	9328	{
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	9329	symbol_c *last_type_symbol = NULL;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	9330
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	9331	{
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	9332	identifier_c param_name("IN");
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	9333	/* Get the value from a foo(<param_name> = <param_value>) style call */
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	9334	symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
169 bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	9335	symbol_c *IN_type_symbol = NULL;
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	9336
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	9337	/* Get the value from a foo(<param_value>) style call */
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	9338	if (IN_param_value == NULL)
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	9339	IN_param_value = function_call_param_iterator.next();
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	9340	if (IN_param_value != NULL) {
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	9341	IN_type_symbol = search_expression_type->get_type(IN_param_value);
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	9342	last_type_symbol = last_type_symbol && IN_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	9343	}
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	9344
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	9345	if(IN_type_symbol == NULL \|\| search_expression_type->is_same_type(&search_constant_type_c::uint_type_name, last_type_symbol))
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	9346	{
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	9347
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	9348
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	9349	if (IN_type_symbol == NULL)
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	9350	IN_type_symbol = last_type_symbol;
149 05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	9351	ADD_PARAM_LIST(IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in)
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	9352	symbol_c * return_type_symbol = &search_constant_type_c::udint_type_name;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	9353	function_type_prefix = return_type_symbol;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	9354	break;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	9355
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	9356	}
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	9357
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	9358
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	9359	ERROR;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	9360	}
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	9361
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	9362	}/function_uint_to_udint/
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	9363	break;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	9364
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	9365	/****
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	9366	*UINT_TO_WORD
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	9367	*/
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	9368	case function_uint_to_word :
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	9369	{
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	9370	symbol_c *last_type_symbol = NULL;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	9371
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	9372	{
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	9373	identifier_c param_name("IN");
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	9374	/* Get the value from a foo(<param_name> = <param_value>) style call */
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	9375	symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
169 bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	9376	symbol_c *IN_type_symbol = NULL;
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	9377
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	9378	/* Get the value from a foo(<param_value>) style call */
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	9379	if (IN_param_value == NULL)
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	9380	IN_param_value = function_call_param_iterator.next();
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	9381	if (IN_param_value != NULL) {
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	9382	IN_type_symbol = search_expression_type->get_type(IN_param_value);
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	9383	last_type_symbol = last_type_symbol && IN_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	9384	}
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	9385
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	9386	if(IN_type_symbol == NULL \|\| search_expression_type->is_same_type(&search_constant_type_c::uint_type_name, last_type_symbol))
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	9387	{
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	9388
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	9389
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	9390	if (IN_type_symbol == NULL)
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	9391	IN_type_symbol = last_type_symbol;
149 05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	9392	ADD_PARAM_LIST(IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in)
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	9393	symbol_c * return_type_symbol = &search_constant_type_c::word_type_name;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	9394	function_type_prefix = return_type_symbol;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	9395	break;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	9396
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	9397	}
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	9398
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	9399
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	9400	ERROR;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	9401	}
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	9402
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	9403	}/function_uint_to_word/
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	9404	break;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	9405
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	9406	/****
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	9407	*UINT_TO_STRING
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	9408	*/
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	9409	case function_uint_to_string :
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	9410	{
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	9411	symbol_c *last_type_symbol = NULL;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	9412
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	9413	{
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	9414	identifier_c param_name("IN");
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	9415	/* Get the value from a foo(<param_name> = <param_value>) style call */
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	9416	symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
169 bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	9417	symbol_c *IN_type_symbol = NULL;
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	9418
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	9419	/* Get the value from a foo(<param_value>) style call */
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	9420	if (IN_param_value == NULL)
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	9421	IN_param_value = function_call_param_iterator.next();
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	9422	if (IN_param_value != NULL) {
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	9423	IN_type_symbol = search_expression_type->get_type(IN_param_value);
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	9424	last_type_symbol = last_type_symbol && IN_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	9425	}
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	9426
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	9427	if(IN_type_symbol == NULL \|\| search_expression_type->is_same_type(&search_constant_type_c::uint_type_name, last_type_symbol))
149 05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	9428	{
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	9429
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	9430	function_name = (symbol_c*)(new pragma_c("__uint_to_string"));
169 bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	9431
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	9432	if (IN_type_symbol == NULL)
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	9433	IN_type_symbol = last_type_symbol;
149 05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	9434	ADD_PARAM_LIST(IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in)
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	9435	symbol_c * return_type_symbol = &search_constant_type_c::string_type_name;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	9436	function_type_prefix = return_type_symbol;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	9437	break;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	9438
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	9439	}
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	9440
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	9441
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	9442	ERROR;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	9443	}
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	9444
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	9445	}/function_uint_to_string/
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	9446	break;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	9447
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	9448	/****
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	9449	*UINT_TO_LWORD
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	9450	*/
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	9451	case function_uint_to_lword :
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	9452	{
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	9453	symbol_c *last_type_symbol = NULL;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	9454
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	9455	{
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	9456	identifier_c param_name("IN");
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	9457	/* Get the value from a foo(<param_name> = <param_value>) style call */
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	9458	symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
169 bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	9459	symbol_c *IN_type_symbol = NULL;
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	9460
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	9461	/* Get the value from a foo(<param_value>) style call */
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	9462	if (IN_param_value == NULL)
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	9463	IN_param_value = function_call_param_iterator.next();
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	9464	if (IN_param_value != NULL) {
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	9465	IN_type_symbol = search_expression_type->get_type(IN_param_value);
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	9466	last_type_symbol = last_type_symbol && IN_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	9467	}
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	9468
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	9469	if(IN_type_symbol == NULL \|\| search_expression_type->is_same_type(&search_constant_type_c::uint_type_name, last_type_symbol))
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	9470	{
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	9471
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	9472
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	9473	if (IN_type_symbol == NULL)
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	9474	IN_type_symbol = last_type_symbol;
149 05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	9475	ADD_PARAM_LIST(IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in)
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	9476	symbol_c * return_type_symbol = &search_constant_type_c::lword_type_name;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	9477	function_type_prefix = return_type_symbol;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	9478	break;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	9479
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	9480	}
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	9481
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	9482
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	9483	ERROR;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	9484	}
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	9485
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	9486	}/function_uint_to_lword/
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	9487	break;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	9488
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	9489	/****
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	9490	*UINT_TO_LREAL
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	9491	*/
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	9492	case function_uint_to_lreal :
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	9493	{
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	9494	symbol_c *last_type_symbol = NULL;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	9495
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	9496	{
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	9497	identifier_c param_name("IN");
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	9498	/* Get the value from a foo(<param_name> = <param_value>) style call */
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	9499	symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
169 bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	9500	symbol_c *IN_type_symbol = NULL;
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	9501
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	9502	/* Get the value from a foo(<param_value>) style call */
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	9503	if (IN_param_value == NULL)
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	9504	IN_param_value = function_call_param_iterator.next();
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	9505	if (IN_param_value != NULL) {
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	9506	IN_type_symbol = search_expression_type->get_type(IN_param_value);
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	9507	last_type_symbol = last_type_symbol && IN_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	9508	}
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	9509
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	9510	if(IN_type_symbol == NULL \|\| search_expression_type->is_same_type(&search_constant_type_c::uint_type_name, last_type_symbol))
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	9511	{
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	9512
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	9513
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	9514	if (IN_type_symbol == NULL)
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	9515	IN_type_symbol = last_type_symbol;
149 05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	9516	ADD_PARAM_LIST(IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in)
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	9517	symbol_c * return_type_symbol = &search_constant_type_c::lreal_type_name;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	9518	function_type_prefix = return_type_symbol;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	9519	break;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	9520
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	9521	}
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	9522
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	9523
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	9524	ERROR;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	9525	}
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	9526
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	9527	}/function_uint_to_lreal/
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	9528	break;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	9529
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	9530	/****
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	9531	*UINT_TO_BYTE
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	9532	*/
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	9533	case function_uint_to_byte :
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	9534	{
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	9535	symbol_c *last_type_symbol = NULL;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	9536
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	9537	{
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	9538	identifier_c param_name("IN");
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	9539	/* Get the value from a foo(<param_name> = <param_value>) style call */
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	9540	symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
169 bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	9541	symbol_c *IN_type_symbol = NULL;
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	9542
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	9543	/* Get the value from a foo(<param_value>) style call */
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	9544	if (IN_param_value == NULL)
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	9545	IN_param_value = function_call_param_iterator.next();
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	9546	if (IN_param_value != NULL) {
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	9547	IN_type_symbol = search_expression_type->get_type(IN_param_value);
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	9548	last_type_symbol = last_type_symbol && IN_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	9549	}
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	9550
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	9551	if(IN_type_symbol == NULL \|\| search_expression_type->is_same_type(&search_constant_type_c::uint_type_name, last_type_symbol))
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	9552	{
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	9553
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	9554
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	9555	if (IN_type_symbol == NULL)
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	9556	IN_type_symbol = last_type_symbol;
149 05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	9557	ADD_PARAM_LIST(IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in)
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	9558	symbol_c * return_type_symbol = &search_constant_type_c::byte_type_name;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	9559	function_type_prefix = return_type_symbol;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	9560	break;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	9561
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	9562	}
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	9563
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	9564
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	9565	ERROR;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	9566	}
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	9567
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	9568	}/function_uint_to_byte/
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	9569	break;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	9570
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	9571	/****
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	9572	*UINT_TO_USINT
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	9573	*/
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	9574	case function_uint_to_usint :
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	9575	{
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	9576	symbol_c *last_type_symbol = NULL;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	9577
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	9578	{
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	9579	identifier_c param_name("IN");
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	9580	/* Get the value from a foo(<param_name> = <param_value>) style call */
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	9581	symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
169 bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	9582	symbol_c *IN_type_symbol = NULL;
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	9583
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	9584	/* Get the value from a foo(<param_value>) style call */
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	9585	if (IN_param_value == NULL)
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	9586	IN_param_value = function_call_param_iterator.next();
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	9587	if (IN_param_value != NULL) {
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	9588	IN_type_symbol = search_expression_type->get_type(IN_param_value);
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	9589	last_type_symbol = last_type_symbol && IN_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	9590	}
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	9591
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	9592	if(IN_type_symbol == NULL \|\| search_expression_type->is_same_type(&search_constant_type_c::uint_type_name, last_type_symbol))
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	9593	{
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	9594
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	9595
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	9596	if (IN_type_symbol == NULL)
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	9597	IN_type_symbol = last_type_symbol;
149 05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	9598	ADD_PARAM_LIST(IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in)
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	9599	symbol_c * return_type_symbol = &search_constant_type_c::usint_type_name;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	9600	function_type_prefix = return_type_symbol;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	9601	break;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	9602
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	9603	}
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	9604
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	9605
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	9606	ERROR;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	9607	}
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	9608
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	9609	}/function_uint_to_usint/
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	9610	break;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	9611
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	9612	/****
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	9613	*UINT_TO_ULINT
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	9614	*/
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	9615	case function_uint_to_ulint :
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	9616	{
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	9617	symbol_c *last_type_symbol = NULL;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	9618
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	9619	{
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	9620	identifier_c param_name("IN");
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	9621	/* Get the value from a foo(<param_name> = <param_value>) style call */
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	9622	symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
169 bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	9623	symbol_c *IN_type_symbol = NULL;
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	9624
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	9625	/* Get the value from a foo(<param_value>) style call */
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	9626	if (IN_param_value == NULL)
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	9627	IN_param_value = function_call_param_iterator.next();
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	9628	if (IN_param_value != NULL) {
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	9629	IN_type_symbol = search_expression_type->get_type(IN_param_value);
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	9630	last_type_symbol = last_type_symbol && IN_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	9631	}
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	9632
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	9633	if(IN_type_symbol == NULL \|\| search_expression_type->is_same_type(&search_constant_type_c::uint_type_name, last_type_symbol))
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	9634	{
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	9635
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	9636
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	9637	if (IN_type_symbol == NULL)
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	9638	IN_type_symbol = last_type_symbol;
149 05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	9639	ADD_PARAM_LIST(IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in)
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	9640	symbol_c * return_type_symbol = &search_constant_type_c::ulint_type_name;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	9641	function_type_prefix = return_type_symbol;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	9642	break;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	9643
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	9644	}
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	9645
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	9646
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	9647	ERROR;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	9648	}
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	9649
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	9650	}/function_uint_to_ulint/
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	9651	break;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	9652
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	9653	/****
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	9654	*UINT_TO_BOOL
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	9655	*/
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	9656	case function_uint_to_bool :
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	9657	{
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	9658	symbol_c *last_type_symbol = NULL;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	9659
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	9660	{
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	9661	identifier_c param_name("IN");
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	9662	/* Get the value from a foo(<param_name> = <param_value>) style call */
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	9663	symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
169 bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	9664	symbol_c *IN_type_symbol = NULL;
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	9665
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	9666	/* Get the value from a foo(<param_value>) style call */
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	9667	if (IN_param_value == NULL)
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	9668	IN_param_value = function_call_param_iterator.next();
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	9669	if (IN_param_value != NULL) {
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	9670	IN_type_symbol = search_expression_type->get_type(IN_param_value);
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	9671	last_type_symbol = last_type_symbol && IN_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	9672	}
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	9673
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	9674	if(IN_type_symbol == NULL \|\| search_expression_type->is_same_type(&search_constant_type_c::uint_type_name, last_type_symbol))
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	9675	{
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	9676
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	9677
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	9678	if (IN_type_symbol == NULL)
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	9679	IN_type_symbol = last_type_symbol;
149 05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	9680	ADD_PARAM_LIST(IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in)
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	9681	symbol_c * return_type_symbol = &search_constant_type_c::bool_type_name;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	9682	function_type_prefix = return_type_symbol;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	9683	break;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	9684
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	9685	}
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	9686
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	9687
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	9688	ERROR;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	9689	}
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	9690
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	9691	}/function_uint_to_bool/
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	9692	break;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	9693
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	9694	/****
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	9695	*UINT_TO_TIME
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	9696	*/
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	9697	case function_uint_to_time :
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	9698	{
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	9699	symbol_c *last_type_symbol = NULL;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	9700
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	9701	{
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	9702	identifier_c param_name("IN");
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	9703	/* Get the value from a foo(<param_name> = <param_value>) style call */
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	9704	symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
169 bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	9705	symbol_c *IN_type_symbol = NULL;
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	9706
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	9707	/* Get the value from a foo(<param_value>) style call */
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	9708	if (IN_param_value == NULL)
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	9709	IN_param_value = function_call_param_iterator.next();
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	9710	if (IN_param_value != NULL) {
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	9711	IN_type_symbol = search_expression_type->get_type(IN_param_value);
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	9712	last_type_symbol = last_type_symbol && IN_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	9713	}
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	9714
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	9715	if(IN_type_symbol == NULL \|\| search_expression_type->is_same_type(&search_constant_type_c::uint_type_name, last_type_symbol))
149 05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	9716	{
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	9717
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	9718	function_name = (symbol_c*)(new pragma_c("__int_to_time"));
169 bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	9719
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	9720	if (IN_type_symbol == NULL)
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	9721	IN_type_symbol = last_type_symbol;
149 05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	9722	ADD_PARAM_LIST(IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in)
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	9723	symbol_c * return_type_symbol = &search_constant_type_c::time_type_name;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	9724	function_type_prefix = return_type_symbol;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	9725	break;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	9726
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	9727	}
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	9728
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	9729
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	9730	ERROR;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	9731	}
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	9732
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	9733	}/function_uint_to_time/
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	9734	break;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	9735
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	9736	/****
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	9737	*UINT_TO_INT
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	9738	*/
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	9739	case function_uint_to_int :
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	9740	{
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	9741	symbol_c *last_type_symbol = NULL;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	9742
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	9743	{
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	9744	identifier_c param_name("IN");
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	9745	/* Get the value from a foo(<param_name> = <param_value>) style call */
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	9746	symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
169 bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	9747	symbol_c *IN_type_symbol = NULL;
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	9748
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	9749	/* Get the value from a foo(<param_value>) style call */
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	9750	if (IN_param_value == NULL)
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	9751	IN_param_value = function_call_param_iterator.next();
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	9752	if (IN_param_value != NULL) {
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	9753	IN_type_symbol = search_expression_type->get_type(IN_param_value);
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	9754	last_type_symbol = last_type_symbol && IN_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	9755	}
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	9756
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	9757	if(IN_type_symbol == NULL \|\| search_expression_type->is_same_type(&search_constant_type_c::uint_type_name, last_type_symbol))
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	9758	{
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	9759
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	9760
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	9761	if (IN_type_symbol == NULL)
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	9762	IN_type_symbol = last_type_symbol;
149 05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	9763	ADD_PARAM_LIST(IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in)
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	9764	symbol_c * return_type_symbol = &search_constant_type_c::int_type_name;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	9765	function_type_prefix = return_type_symbol;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	9766	break;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	9767
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	9768	}
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	9769
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	9770
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	9771	ERROR;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	9772	}
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	9773
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	9774	}/function_uint_to_int/
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	9775	break;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	9776
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	9777	/****
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	9778	*LREAL_TO_REAL
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	9779	*/
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	9780	case function_lreal_to_real :
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	9781	{
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	9782	symbol_c *last_type_symbol = NULL;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	9783
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	9784	{
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	9785	identifier_c param_name("IN");
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	9786	/* Get the value from a foo(<param_name> = <param_value>) style call */
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	9787	symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
169 bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	9788	symbol_c *IN_type_symbol = NULL;
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	9789
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	9790	/* Get the value from a foo(<param_value>) style call */
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	9791	if (IN_param_value == NULL)
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	9792	IN_param_value = function_call_param_iterator.next();
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	9793	if (IN_param_value != NULL) {
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	9794	IN_type_symbol = search_expression_type->get_type(IN_param_value);
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	9795	last_type_symbol = last_type_symbol && IN_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	9796	}
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	9797
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	9798	if(IN_type_symbol == NULL \|\| search_expression_type->is_same_type(&search_constant_type_c::lreal_type_name, last_type_symbol))
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	9799	{
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	9800
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	9801
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	9802	if (IN_type_symbol == NULL)
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	9803	IN_type_symbol = last_type_symbol;
149 05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	9804	ADD_PARAM_LIST(IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in)
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	9805	symbol_c * return_type_symbol = &search_constant_type_c::real_type_name;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	9806	function_type_prefix = return_type_symbol;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	9807	break;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	9808
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	9809	}
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	9810
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	9811
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	9812	ERROR;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	9813	}
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	9814
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	9815	}/function_lreal_to_real/
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	9816	break;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	9817
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	9818	/****
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	9819	*LREAL_TO_SINT
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	9820	*/
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	9821	case function_lreal_to_sint :
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	9822	{
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	9823	symbol_c *last_type_symbol = NULL;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	9824
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	9825	{
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	9826	identifier_c param_name("IN");
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	9827	/* Get the value from a foo(<param_name> = <param_value>) style call */
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	9828	symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
169 bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	9829	symbol_c *IN_type_symbol = NULL;
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	9830
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	9831	/* Get the value from a foo(<param_value>) style call */
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	9832	if (IN_param_value == NULL)
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	9833	IN_param_value = function_call_param_iterator.next();
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	9834	if (IN_param_value != NULL) {
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	9835	IN_type_symbol = search_expression_type->get_type(IN_param_value);
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	9836	last_type_symbol = last_type_symbol && IN_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	9837	}
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	9838
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	9839	if(IN_type_symbol == NULL \|\| search_expression_type->is_same_type(&search_constant_type_c::lreal_type_name, last_type_symbol))
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	9840	{
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	9841
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	9842
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	9843	if (IN_type_symbol == NULL)
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	9844	IN_type_symbol = last_type_symbol;
149 05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	9845	ADD_PARAM_LIST(IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in)
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	9846	symbol_c * return_type_symbol = &search_constant_type_c::sint_type_name;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	9847	function_type_prefix = return_type_symbol;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	9848	break;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	9849
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	9850	}
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	9851
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	9852
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	9853	ERROR;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	9854	}
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	9855
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	9856	}/function_lreal_to_sint/
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	9857	break;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	9858
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	9859	/****
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	9860	*LREAL_TO_LINT
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	9861	*/
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	9862	case function_lreal_to_lint :
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	9863	{
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	9864	symbol_c *last_type_symbol = NULL;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	9865
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	9866	{
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	9867	identifier_c param_name("IN");
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	9868	/* Get the value from a foo(<param_name> = <param_value>) style call */
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	9869	symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
169 bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	9870	symbol_c *IN_type_symbol = NULL;
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	9871
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	9872	/* Get the value from a foo(<param_value>) style call */
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	9873	if (IN_param_value == NULL)
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	9874	IN_param_value = function_call_param_iterator.next();
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	9875	if (IN_param_value != NULL) {
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	9876	IN_type_symbol = search_expression_type->get_type(IN_param_value);
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	9877	last_type_symbol = last_type_symbol && IN_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	9878	}
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	9879
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	9880	if(IN_type_symbol == NULL \|\| search_expression_type->is_same_type(&search_constant_type_c::lreal_type_name, last_type_symbol))
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	9881	{
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	9882
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	9883
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	9884	if (IN_type_symbol == NULL)
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	9885	IN_type_symbol = last_type_symbol;
149 05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	9886	ADD_PARAM_LIST(IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in)
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	9887	symbol_c * return_type_symbol = &search_constant_type_c::lint_type_name;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	9888	function_type_prefix = return_type_symbol;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	9889	break;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	9890
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	9891	}
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	9892
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	9893
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	9894	ERROR;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	9895	}
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	9896
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	9897	}/function_lreal_to_lint/
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	9898	break;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	9899
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	9900	/****
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	9901	*LREAL_TO_DINT
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	9902	*/
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	9903	case function_lreal_to_dint :
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	9904	{
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	9905	symbol_c *last_type_symbol = NULL;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	9906
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	9907	{
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	9908	identifier_c param_name("IN");
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	9909	/* Get the value from a foo(<param_name> = <param_value>) style call */
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	9910	symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
169 bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	9911	symbol_c *IN_type_symbol = NULL;
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	9912
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	9913	/* Get the value from a foo(<param_value>) style call */
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	9914	if (IN_param_value == NULL)
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	9915	IN_param_value = function_call_param_iterator.next();
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	9916	if (IN_param_value != NULL) {
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	9917	IN_type_symbol = search_expression_type->get_type(IN_param_value);
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	9918	last_type_symbol = last_type_symbol && IN_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	9919	}
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	9920
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	9921	if(IN_type_symbol == NULL \|\| search_expression_type->is_same_type(&search_constant_type_c::lreal_type_name, last_type_symbol))
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	9922	{
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	9923
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	9924
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	9925	if (IN_type_symbol == NULL)
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	9926	IN_type_symbol = last_type_symbol;
149 05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	9927	ADD_PARAM_LIST(IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in)
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	9928	symbol_c * return_type_symbol = &search_constant_type_c::dint_type_name;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	9929	function_type_prefix = return_type_symbol;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	9930	break;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	9931
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	9932	}
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	9933
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	9934
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	9935	ERROR;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	9936	}
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	9937
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	9938	}/function_lreal_to_dint/
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	9939	break;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	9940
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	9941	/****
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	9942	*LREAL_TO_DATE
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	9943	*/
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	9944	case function_lreal_to_date :
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	9945	{
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	9946	symbol_c *last_type_symbol = NULL;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	9947
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	9948	{
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	9949	identifier_c param_name("IN");
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	9950	/* Get the value from a foo(<param_name> = <param_value>) style call */
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	9951	symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
169 bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	9952	symbol_c *IN_type_symbol = NULL;
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	9953
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	9954	/* Get the value from a foo(<param_value>) style call */
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	9955	if (IN_param_value == NULL)
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	9956	IN_param_value = function_call_param_iterator.next();
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	9957	if (IN_param_value != NULL) {
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	9958	IN_type_symbol = search_expression_type->get_type(IN_param_value);
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	9959	last_type_symbol = last_type_symbol && IN_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	9960	}
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	9961
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	9962	if(IN_type_symbol == NULL \|\| search_expression_type->is_same_type(&search_constant_type_c::lreal_type_name, last_type_symbol))
149 05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	9963	{
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	9964
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	9965	function_name = (symbol_c*)(new pragma_c("__real_to_time"));
169 bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	9966
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	9967	if (IN_type_symbol == NULL)
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	9968	IN_type_symbol = last_type_symbol;
149 05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	9969	ADD_PARAM_LIST(IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in)
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	9970	symbol_c * return_type_symbol = &search_constant_type_c::date_type_name;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	9971	function_type_prefix = return_type_symbol;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	9972	break;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	9973
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	9974	}
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	9975
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	9976
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	9977	ERROR;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	9978	}
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	9979
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	9980	}/function_lreal_to_date/
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	9981	break;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	9982
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	9983	/****
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	9984	*LREAL_TO_DWORD
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	9985	*/
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	9986	case function_lreal_to_dword :
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	9987	{
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	9988	symbol_c *last_type_symbol = NULL;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	9989
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	9990	{
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	9991	identifier_c param_name("IN");
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	9992	/* Get the value from a foo(<param_name> = <param_value>) style call */
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	9993	symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
169 bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	9994	symbol_c *IN_type_symbol = NULL;
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	9995
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	9996	/* Get the value from a foo(<param_value>) style call */
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	9997	if (IN_param_value == NULL)
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	9998	IN_param_value = function_call_param_iterator.next();
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	9999	if (IN_param_value != NULL) {
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	10000	IN_type_symbol = search_expression_type->get_type(IN_param_value);
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	10001	last_type_symbol = last_type_symbol && IN_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	10002	}
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	10003
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	10004	if(IN_type_symbol == NULL \|\| search_expression_type->is_same_type(&search_constant_type_c::lreal_type_name, last_type_symbol))
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	10005	{
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	10006
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	10007
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	10008	if (IN_type_symbol == NULL)
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	10009	IN_type_symbol = last_type_symbol;
149 05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	10010	ADD_PARAM_LIST(IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in)
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	10011	symbol_c * return_type_symbol = &search_constant_type_c::dword_type_name;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	10012	function_type_prefix = return_type_symbol;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	10013	break;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	10014
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	10015	}
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	10016
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	10017
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	10018	ERROR;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	10019	}
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	10020
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	10021	}/function_lreal_to_dword/
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	10022	break;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	10023
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	10024	/****
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	10025	*LREAL_TO_DT
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	10026	*/
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	10027	case function_lreal_to_dt :
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	10028	{
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	10029	symbol_c *last_type_symbol = NULL;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	10030
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	10031	{
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	10032	identifier_c param_name("IN");
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	10033	/* Get the value from a foo(<param_name> = <param_value>) style call */
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	10034	symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
169 bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	10035	symbol_c *IN_type_symbol = NULL;
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	10036
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	10037	/* Get the value from a foo(<param_value>) style call */
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	10038	if (IN_param_value == NULL)
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	10039	IN_param_value = function_call_param_iterator.next();
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	10040	if (IN_param_value != NULL) {
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	10041	IN_type_symbol = search_expression_type->get_type(IN_param_value);
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	10042	last_type_symbol = last_type_symbol && IN_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	10043	}
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	10044
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	10045	if(IN_type_symbol == NULL \|\| search_expression_type->is_same_type(&search_constant_type_c::lreal_type_name, last_type_symbol))
149 05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	10046	{
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	10047
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	10048	function_name = (symbol_c*)(new pragma_c("__real_to_time"));
169 bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	10049
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	10050	if (IN_type_symbol == NULL)
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	10051	IN_type_symbol = last_type_symbol;
149 05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	10052	ADD_PARAM_LIST(IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in)
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	10053	symbol_c * return_type_symbol = &search_constant_type_c::dt_type_name;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	10054	function_type_prefix = return_type_symbol;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	10055	break;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	10056
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	10057	}
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	10058
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	10059
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	10060	ERROR;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	10061	}
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	10062
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	10063	}/function_lreal_to_dt/
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	10064	break;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	10065
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	10066	/****
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	10067	*LREAL_TO_TOD
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	10068	*/
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	10069	case function_lreal_to_tod :
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	10070	{
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	10071	symbol_c *last_type_symbol = NULL;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	10072
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	10073	{
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	10074	identifier_c param_name("IN");
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	10075	/* Get the value from a foo(<param_name> = <param_value>) style call */
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	10076	symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
169 bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	10077	symbol_c *IN_type_symbol = NULL;
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	10078
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	10079	/* Get the value from a foo(<param_value>) style call */
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	10080	if (IN_param_value == NULL)
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	10081	IN_param_value = function_call_param_iterator.next();
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	10082	if (IN_param_value != NULL) {
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	10083	IN_type_symbol = search_expression_type->get_type(IN_param_value);
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	10084	last_type_symbol = last_type_symbol && IN_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	10085	}
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	10086
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	10087	if(IN_type_symbol == NULL \|\| search_expression_type->is_same_type(&search_constant_type_c::lreal_type_name, last_type_symbol))
149 05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	10088	{
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	10089
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	10090	function_name = (symbol_c*)(new pragma_c("__real_to_time"));
169 bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	10091
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	10092	if (IN_type_symbol == NULL)
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	10093	IN_type_symbol = last_type_symbol;
149 05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	10094	ADD_PARAM_LIST(IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in)
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	10095	symbol_c * return_type_symbol = &search_constant_type_c::tod_type_name;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	10096	function_type_prefix = return_type_symbol;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	10097	break;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	10098
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	10099	}
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	10100
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	10101
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	10102	ERROR;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	10103	}
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	10104
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	10105	}/function_lreal_to_tod/
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	10106	break;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	10107
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	10108	/****
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	10109	*LREAL_TO_UDINT
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	10110	*/
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	10111	case function_lreal_to_udint :
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	10112	{
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	10113	symbol_c *last_type_symbol = NULL;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	10114
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	10115	{
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	10116	identifier_c param_name("IN");
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	10117	/* Get the value from a foo(<param_name> = <param_value>) style call */
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	10118	symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
169 bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	10119	symbol_c *IN_type_symbol = NULL;
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	10120
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	10121	/* Get the value from a foo(<param_value>) style call */
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	10122	if (IN_param_value == NULL)
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	10123	IN_param_value = function_call_param_iterator.next();
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	10124	if (IN_param_value != NULL) {
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	10125	IN_type_symbol = search_expression_type->get_type(IN_param_value);
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	10126	last_type_symbol = last_type_symbol && IN_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	10127	}
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	10128
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	10129	if(IN_type_symbol == NULL \|\| search_expression_type->is_same_type(&search_constant_type_c::lreal_type_name, last_type_symbol))
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	10130	{
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	10131
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	10132
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	10133	if (IN_type_symbol == NULL)
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	10134	IN_type_symbol = last_type_symbol;
149 05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	10135	ADD_PARAM_LIST(IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in)
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	10136	symbol_c * return_type_symbol = &search_constant_type_c::udint_type_name;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	10137	function_type_prefix = return_type_symbol;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	10138	break;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	10139
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	10140	}
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	10141
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	10142
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	10143	ERROR;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	10144	}
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	10145
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	10146	}/function_lreal_to_udint/
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	10147	break;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	10148
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	10149	/****
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	10150	*LREAL_TO_WORD
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	10151	*/
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	10152	case function_lreal_to_word :
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	10153	{
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	10154	symbol_c *last_type_symbol = NULL;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	10155
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	10156	{
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	10157	identifier_c param_name("IN");
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	10158	/* Get the value from a foo(<param_name> = <param_value>) style call */
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	10159	symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
169 bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	10160	symbol_c *IN_type_symbol = NULL;
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	10161
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	10162	/* Get the value from a foo(<param_value>) style call */
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	10163	if (IN_param_value == NULL)
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	10164	IN_param_value = function_call_param_iterator.next();
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	10165	if (IN_param_value != NULL) {
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	10166	IN_type_symbol = search_expression_type->get_type(IN_param_value);
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	10167	last_type_symbol = last_type_symbol && IN_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	10168	}
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	10169
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	10170	if(IN_type_symbol == NULL \|\| search_expression_type->is_same_type(&search_constant_type_c::lreal_type_name, last_type_symbol))
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	10171	{
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	10172
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	10173
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	10174	if (IN_type_symbol == NULL)
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	10175	IN_type_symbol = last_type_symbol;
149 05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	10176	ADD_PARAM_LIST(IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in)
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	10177	symbol_c * return_type_symbol = &search_constant_type_c::word_type_name;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	10178	function_type_prefix = return_type_symbol;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	10179	break;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	10180
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	10181	}
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	10182
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	10183
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	10184	ERROR;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	10185	}
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	10186
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	10187	}/function_lreal_to_word/
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	10188	break;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	10189
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	10190	/****
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	10191	*LREAL_TO_STRING
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	10192	*/
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	10193	case function_lreal_to_string :
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	10194	{
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	10195	symbol_c *last_type_symbol = NULL;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	10196
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	10197	{
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	10198	identifier_c param_name("IN");
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	10199	/* Get the value from a foo(<param_name> = <param_value>) style call */
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	10200	symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
169 bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	10201	symbol_c *IN_type_symbol = NULL;
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	10202
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	10203	/* Get the value from a foo(<param_value>) style call */
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	10204	if (IN_param_value == NULL)
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	10205	IN_param_value = function_call_param_iterator.next();
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	10206	if (IN_param_value != NULL) {
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	10207	IN_type_symbol = search_expression_type->get_type(IN_param_value);
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	10208	last_type_symbol = last_type_symbol && IN_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	10209	}
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	10210
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	10211	if(IN_type_symbol == NULL \|\| search_expression_type->is_same_type(&search_constant_type_c::lreal_type_name, last_type_symbol))
149 05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	10212	{
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	10213
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	10214	function_name = (symbol_c*)(new pragma_c("__real_to_string"));
169 bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	10215
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	10216	if (IN_type_symbol == NULL)
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	10217	IN_type_symbol = last_type_symbol;
149 05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	10218	ADD_PARAM_LIST(IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in)
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	10219	symbol_c * return_type_symbol = &search_constant_type_c::string_type_name;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	10220	function_type_prefix = return_type_symbol;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	10221	break;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	10222
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	10223	}
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	10224
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	10225
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	10226	ERROR;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	10227	}
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	10228
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	10229	}/function_lreal_to_string/
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	10230	break;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	10231
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	10232	/****
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	10233	*LREAL_TO_LWORD
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	10234	*/
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	10235	case function_lreal_to_lword :
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	10236	{
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	10237	symbol_c *last_type_symbol = NULL;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	10238
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	10239	{
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	10240	identifier_c param_name("IN");
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	10241	/* Get the value from a foo(<param_name> = <param_value>) style call */
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	10242	symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
169 bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	10243	symbol_c *IN_type_symbol = NULL;
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	10244
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	10245	/* Get the value from a foo(<param_value>) style call */
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	10246	if (IN_param_value == NULL)
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	10247	IN_param_value = function_call_param_iterator.next();
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	10248	if (IN_param_value != NULL) {
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	10249	IN_type_symbol = search_expression_type->get_type(IN_param_value);
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	10250	last_type_symbol = last_type_symbol && IN_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	10251	}
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	10252
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	10253	if(IN_type_symbol == NULL \|\| search_expression_type->is_same_type(&search_constant_type_c::lreal_type_name, last_type_symbol))
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	10254	{
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	10255
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	10256
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	10257	if (IN_type_symbol == NULL)
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	10258	IN_type_symbol = last_type_symbol;
149 05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	10259	ADD_PARAM_LIST(IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in)
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	10260	symbol_c * return_type_symbol = &search_constant_type_c::lword_type_name;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	10261	function_type_prefix = return_type_symbol;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	10262	break;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	10263
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	10264	}
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	10265
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	10266
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	10267	ERROR;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	10268	}
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	10269
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	10270	}/function_lreal_to_lword/
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	10271	break;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	10272
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	10273	/****
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	10274	*LREAL_TO_UINT
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	10275	*/
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	10276	case function_lreal_to_uint :
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	10277	{
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	10278	symbol_c *last_type_symbol = NULL;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	10279
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	10280	{
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	10281	identifier_c param_name("IN");
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	10282	/* Get the value from a foo(<param_name> = <param_value>) style call */
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	10283	symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
169 bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	10284	symbol_c *IN_type_symbol = NULL;
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	10285
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	10286	/* Get the value from a foo(<param_value>) style call */
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	10287	if (IN_param_value == NULL)
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	10288	IN_param_value = function_call_param_iterator.next();
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	10289	if (IN_param_value != NULL) {
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	10290	IN_type_symbol = search_expression_type->get_type(IN_param_value);
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	10291	last_type_symbol = last_type_symbol && IN_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	10292	}
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	10293
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	10294	if(IN_type_symbol == NULL \|\| search_expression_type->is_same_type(&search_constant_type_c::lreal_type_name, last_type_symbol))
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	10295	{
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	10296
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	10297
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	10298	if (IN_type_symbol == NULL)
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	10299	IN_type_symbol = last_type_symbol;
149 05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	10300	ADD_PARAM_LIST(IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in)
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	10301	symbol_c * return_type_symbol = &search_constant_type_c::uint_type_name;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	10302	function_type_prefix = return_type_symbol;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	10303	break;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	10304
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	10305	}
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	10306
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	10307
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	10308	ERROR;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	10309	}
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	10310
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	10311	}/function_lreal_to_uint/
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	10312	break;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	10313
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	10314	/****
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	10315	*LREAL_TO_BYTE
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	10316	*/
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	10317	case function_lreal_to_byte :
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	10318	{
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	10319	symbol_c *last_type_symbol = NULL;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	10320
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	10321	{
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	10322	identifier_c param_name("IN");
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	10323	/* Get the value from a foo(<param_name> = <param_value>) style call */
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	10324	symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
169 bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	10325	symbol_c *IN_type_symbol = NULL;
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	10326
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	10327	/* Get the value from a foo(<param_value>) style call */
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	10328	if (IN_param_value == NULL)
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	10329	IN_param_value = function_call_param_iterator.next();
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	10330	if (IN_param_value != NULL) {
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	10331	IN_type_symbol = search_expression_type->get_type(IN_param_value);
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	10332	last_type_symbol = last_type_symbol && IN_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	10333	}
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	10334
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	10335	if(IN_type_symbol == NULL \|\| search_expression_type->is_same_type(&search_constant_type_c::lreal_type_name, last_type_symbol))
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	10336	{
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	10337
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	10338
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	10339	if (IN_type_symbol == NULL)
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	10340	IN_type_symbol = last_type_symbol;
149 05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	10341	ADD_PARAM_LIST(IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in)
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	10342	symbol_c * return_type_symbol = &search_constant_type_c::byte_type_name;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	10343	function_type_prefix = return_type_symbol;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	10344	break;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	10345
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	10346	}
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	10347
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	10348
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	10349	ERROR;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	10350	}
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	10351
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	10352	}/function_lreal_to_byte/
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	10353	break;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	10354
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	10355	/****
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	10356	*LREAL_TO_USINT
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	10357	*/
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	10358	case function_lreal_to_usint :
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	10359	{
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	10360	symbol_c *last_type_symbol = NULL;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	10361
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	10362	{
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	10363	identifier_c param_name("IN");
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	10364	/* Get the value from a foo(<param_name> = <param_value>) style call */
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	10365	symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
169 bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	10366	symbol_c *IN_type_symbol = NULL;
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	10367
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	10368	/* Get the value from a foo(<param_value>) style call */
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	10369	if (IN_param_value == NULL)
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	10370	IN_param_value = function_call_param_iterator.next();
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	10371	if (IN_param_value != NULL) {
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	10372	IN_type_symbol = search_expression_type->get_type(IN_param_value);
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	10373	last_type_symbol = last_type_symbol && IN_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	10374	}
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	10375
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	10376	if(IN_type_symbol == NULL \|\| search_expression_type->is_same_type(&search_constant_type_c::lreal_type_name, last_type_symbol))
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	10377	{
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	10378
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	10379
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	10380	if (IN_type_symbol == NULL)
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	10381	IN_type_symbol = last_type_symbol;
149 05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	10382	ADD_PARAM_LIST(IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in)
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	10383	symbol_c * return_type_symbol = &search_constant_type_c::usint_type_name;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	10384	function_type_prefix = return_type_symbol;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	10385	break;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	10386
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	10387	}
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	10388
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	10389
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	10390	ERROR;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	10391	}
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	10392
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	10393	}/function_lreal_to_usint/
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	10394	break;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	10395
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	10396	/****
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	10397	*LREAL_TO_ULINT
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	10398	*/
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	10399	case function_lreal_to_ulint :
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	10400	{
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	10401	symbol_c *last_type_symbol = NULL;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	10402
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	10403	{
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	10404	identifier_c param_name("IN");
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	10405	/* Get the value from a foo(<param_name> = <param_value>) style call */
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	10406	symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
169 bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	10407	symbol_c *IN_type_symbol = NULL;
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	10408
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	10409	/* Get the value from a foo(<param_value>) style call */
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	10410	if (IN_param_value == NULL)
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	10411	IN_param_value = function_call_param_iterator.next();
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	10412	if (IN_param_value != NULL) {
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	10413	IN_type_symbol = search_expression_type->get_type(IN_param_value);
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	10414	last_type_symbol = last_type_symbol && IN_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	10415	}
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	10416
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	10417	if(IN_type_symbol == NULL \|\| search_expression_type->is_same_type(&search_constant_type_c::lreal_type_name, last_type_symbol))
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	10418	{
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	10419
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	10420
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	10421	if (IN_type_symbol == NULL)
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	10422	IN_type_symbol = last_type_symbol;
149 05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	10423	ADD_PARAM_LIST(IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in)
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	10424	symbol_c * return_type_symbol = &search_constant_type_c::ulint_type_name;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	10425	function_type_prefix = return_type_symbol;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	10426	break;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	10427
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	10428	}
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	10429
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	10430
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	10431	ERROR;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	10432	}
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	10433
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	10434	}/function_lreal_to_ulint/
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	10435	break;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	10436
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	10437	/****
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	10438	*LREAL_TO_BOOL
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	10439	*/
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	10440	case function_lreal_to_bool :
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	10441	{
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	10442	symbol_c *last_type_symbol = NULL;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	10443
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	10444	{
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	10445	identifier_c param_name("IN");
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	10446	/* Get the value from a foo(<param_name> = <param_value>) style call */
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	10447	symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
169 bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	10448	symbol_c *IN_type_symbol = NULL;
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	10449
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	10450	/* Get the value from a foo(<param_value>) style call */
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	10451	if (IN_param_value == NULL)
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	10452	IN_param_value = function_call_param_iterator.next();
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	10453	if (IN_param_value != NULL) {
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	10454	IN_type_symbol = search_expression_type->get_type(IN_param_value);
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	10455	last_type_symbol = last_type_symbol && IN_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	10456	}
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	10457
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	10458	if(IN_type_symbol == NULL \|\| search_expression_type->is_same_type(&search_constant_type_c::lreal_type_name, last_type_symbol))
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	10459	{
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	10460
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	10461
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	10462	if (IN_type_symbol == NULL)
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	10463	IN_type_symbol = last_type_symbol;
149 05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	10464	ADD_PARAM_LIST(IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in)
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	10465	symbol_c * return_type_symbol = &search_constant_type_c::bool_type_name;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	10466	function_type_prefix = return_type_symbol;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	10467	break;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	10468
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	10469	}
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	10470
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	10471
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	10472	ERROR;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	10473	}
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	10474
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	10475	}/function_lreal_to_bool/
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	10476	break;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	10477
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	10478	/****
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	10479	*LREAL_TO_TIME
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	10480	*/
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	10481	case function_lreal_to_time :
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	10482	{
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	10483	symbol_c *last_type_symbol = NULL;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	10484
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	10485	{
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	10486	identifier_c param_name("IN");
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	10487	/* Get the value from a foo(<param_name> = <param_value>) style call */
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	10488	symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
169 bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	10489	symbol_c *IN_type_symbol = NULL;
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	10490
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	10491	/* Get the value from a foo(<param_value>) style call */
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	10492	if (IN_param_value == NULL)
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	10493	IN_param_value = function_call_param_iterator.next();
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	10494	if (IN_param_value != NULL) {
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	10495	IN_type_symbol = search_expression_type->get_type(IN_param_value);
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	10496	last_type_symbol = last_type_symbol && IN_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	10497	}
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	10498
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	10499	if(IN_type_symbol == NULL \|\| search_expression_type->is_same_type(&search_constant_type_c::lreal_type_name, last_type_symbol))
149 05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	10500	{
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	10501
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	10502	function_name = (symbol_c*)(new pragma_c("__real_to_time"));
169 bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	10503
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	10504	if (IN_type_symbol == NULL)
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	10505	IN_type_symbol = last_type_symbol;
149 05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	10506	ADD_PARAM_LIST(IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in)
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	10507	symbol_c * return_type_symbol = &search_constant_type_c::time_type_name;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	10508	function_type_prefix = return_type_symbol;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	10509	break;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	10510
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	10511	}
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	10512
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	10513
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	10514	ERROR;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	10515	}
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	10516
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	10517	}/function_lreal_to_time/
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	10518	break;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	10519
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	10520	/****
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	10521	*LREAL_TO_INT
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	10522	*/
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	10523	case function_lreal_to_int :
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	10524	{
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	10525	symbol_c *last_type_symbol = NULL;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	10526
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	10527	{
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	10528	identifier_c param_name("IN");
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	10529	/* Get the value from a foo(<param_name> = <param_value>) style call */
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	10530	symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
169 bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	10531	symbol_c *IN_type_symbol = NULL;
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	10532
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	10533	/* Get the value from a foo(<param_value>) style call */
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	10534	if (IN_param_value == NULL)
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	10535	IN_param_value = function_call_param_iterator.next();
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	10536	if (IN_param_value != NULL) {
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	10537	IN_type_symbol = search_expression_type->get_type(IN_param_value);
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	10538	last_type_symbol = last_type_symbol && IN_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	10539	}
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	10540
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	10541	if(IN_type_symbol == NULL \|\| search_expression_type->is_same_type(&search_constant_type_c::lreal_type_name, last_type_symbol))
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	10542	{
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	10543
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	10544
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	10545	if (IN_type_symbol == NULL)
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	10546	IN_type_symbol = last_type_symbol;
149 05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	10547	ADD_PARAM_LIST(IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in)
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	10548	symbol_c * return_type_symbol = &search_constant_type_c::int_type_name;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	10549	function_type_prefix = return_type_symbol;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	10550	break;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	10551
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	10552	}
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	10553
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	10554
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	10555	ERROR;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	10556	}
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	10557
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	10558	}/function_lreal_to_int/
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	10559	break;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	10560
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	10561	/****
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	10562	*BYTE_TO_REAL
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	10563	*/
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	10564	case function_byte_to_real :
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	10565	{
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	10566	symbol_c *last_type_symbol = NULL;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	10567
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	10568	{
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	10569	identifier_c param_name("IN");
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	10570	/* Get the value from a foo(<param_name> = <param_value>) style call */
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	10571	symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
169 bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	10572	symbol_c *IN_type_symbol = NULL;
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	10573
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	10574	/* Get the value from a foo(<param_value>) style call */
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	10575	if (IN_param_value == NULL)
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	10576	IN_param_value = function_call_param_iterator.next();
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	10577	if (IN_param_value != NULL) {
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	10578	IN_type_symbol = search_expression_type->get_type(IN_param_value);
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	10579	last_type_symbol = last_type_symbol && IN_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	10580	}
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	10581
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	10582	if(IN_type_symbol == NULL \|\| search_expression_type->is_same_type(&search_constant_type_c::byte_type_name, last_type_symbol))
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	10583	{
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	10584
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	10585
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	10586	if (IN_type_symbol == NULL)
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	10587	IN_type_symbol = last_type_symbol;
149 05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	10588	ADD_PARAM_LIST(IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in)
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	10589	symbol_c * return_type_symbol = &search_constant_type_c::real_type_name;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	10590	function_type_prefix = return_type_symbol;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	10591	break;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	10592
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	10593	}
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	10594
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	10595
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	10596	ERROR;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	10597	}
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	10598
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	10599	}/function_byte_to_real/
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	10600	break;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	10601
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	10602	/****
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	10603	*BYTE_TO_SINT
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	10604	*/
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	10605	case function_byte_to_sint :
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	10606	{
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	10607	symbol_c *last_type_symbol = NULL;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	10608
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	10609	{
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	10610	identifier_c param_name("IN");
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	10611	/* Get the value from a foo(<param_name> = <param_value>) style call */
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	10612	symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
169 bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	10613	symbol_c *IN_type_symbol = NULL;
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	10614
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	10615	/* Get the value from a foo(<param_value>) style call */
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	10616	if (IN_param_value == NULL)
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	10617	IN_param_value = function_call_param_iterator.next();
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	10618	if (IN_param_value != NULL) {
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	10619	IN_type_symbol = search_expression_type->get_type(IN_param_value);
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	10620	last_type_symbol = last_type_symbol && IN_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	10621	}
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	10622
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	10623	if(IN_type_symbol == NULL \|\| search_expression_type->is_same_type(&search_constant_type_c::byte_type_name, last_type_symbol))
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	10624	{
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	10625
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	10626
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	10627	if (IN_type_symbol == NULL)
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	10628	IN_type_symbol = last_type_symbol;
149 05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	10629	ADD_PARAM_LIST(IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in)
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	10630	symbol_c * return_type_symbol = &search_constant_type_c::sint_type_name;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	10631	function_type_prefix = return_type_symbol;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	10632	break;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	10633
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	10634	}
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	10635
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	10636
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	10637	ERROR;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	10638	}
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	10639
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	10640	}/function_byte_to_sint/
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	10641	break;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	10642
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	10643	/****
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	10644	*BYTE_TO_LINT
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	10645	*/
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	10646	case function_byte_to_lint :
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	10647	{
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	10648	symbol_c *last_type_symbol = NULL;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	10649
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	10650	{
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	10651	identifier_c param_name("IN");
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	10652	/* Get the value from a foo(<param_name> = <param_value>) style call */
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	10653	symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
169 bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	10654	symbol_c *IN_type_symbol = NULL;
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	10655
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	10656	/* Get the value from a foo(<param_value>) style call */
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	10657	if (IN_param_value == NULL)
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	10658	IN_param_value = function_call_param_iterator.next();
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	10659	if (IN_param_value != NULL) {
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	10660	IN_type_symbol = search_expression_type->get_type(IN_param_value);
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	10661	last_type_symbol = last_type_symbol && IN_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	10662	}
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	10663
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	10664	if(IN_type_symbol == NULL \|\| search_expression_type->is_same_type(&search_constant_type_c::byte_type_name, last_type_symbol))
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	10665	{
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	10666
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	10667
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	10668	if (IN_type_symbol == NULL)
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	10669	IN_type_symbol = last_type_symbol;
149 05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	10670	ADD_PARAM_LIST(IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in)
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	10671	symbol_c * return_type_symbol = &search_constant_type_c::lint_type_name;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	10672	function_type_prefix = return_type_symbol;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	10673	break;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	10674
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	10675	}
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	10676
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	10677
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	10678	ERROR;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	10679	}
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	10680
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	10681	}/function_byte_to_lint/
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	10682	break;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	10683
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	10684	/****
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	10685	*BYTE_TO_DINT
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	10686	*/
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	10687	case function_byte_to_dint :
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	10688	{
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	10689	symbol_c *last_type_symbol = NULL;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	10690
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	10691	{
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	10692	identifier_c param_name("IN");
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	10693	/* Get the value from a foo(<param_name> = <param_value>) style call */
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	10694	symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
169 bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	10695	symbol_c *IN_type_symbol = NULL;
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	10696
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	10697	/* Get the value from a foo(<param_value>) style call */
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	10698	if (IN_param_value == NULL)
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	10699	IN_param_value = function_call_param_iterator.next();
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	10700	if (IN_param_value != NULL) {
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	10701	IN_type_symbol = search_expression_type->get_type(IN_param_value);
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	10702	last_type_symbol = last_type_symbol && IN_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	10703	}
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	10704
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	10705	if(IN_type_symbol == NULL \|\| search_expression_type->is_same_type(&search_constant_type_c::byte_type_name, last_type_symbol))
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	10706	{
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	10707
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	10708
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	10709	if (IN_type_symbol == NULL)
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	10710	IN_type_symbol = last_type_symbol;
149 05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	10711	ADD_PARAM_LIST(IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in)
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	10712	symbol_c * return_type_symbol = &search_constant_type_c::dint_type_name;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	10713	function_type_prefix = return_type_symbol;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	10714	break;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	10715
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	10716	}
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	10717
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	10718
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	10719	ERROR;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	10720	}
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	10721
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	10722	}/function_byte_to_dint/
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	10723	break;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	10724
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	10725	/****
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	10726	*BYTE_TO_DATE
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	10727	*/
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	10728	case function_byte_to_date :
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	10729	{
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	10730	symbol_c *last_type_symbol = NULL;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	10731
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	10732	{
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	10733	identifier_c param_name("IN");
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	10734	/* Get the value from a foo(<param_name> = <param_value>) style call */
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	10735	symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
169 bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	10736	symbol_c *IN_type_symbol = NULL;
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	10737
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	10738	/* Get the value from a foo(<param_value>) style call */
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	10739	if (IN_param_value == NULL)
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	10740	IN_param_value = function_call_param_iterator.next();
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	10741	if (IN_param_value != NULL) {
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	10742	IN_type_symbol = search_expression_type->get_type(IN_param_value);
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	10743	last_type_symbol = last_type_symbol && IN_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	10744	}
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	10745
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	10746	if(IN_type_symbol == NULL \|\| search_expression_type->is_same_type(&search_constant_type_c::byte_type_name, last_type_symbol))
149 05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	10747	{
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	10748
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	10749	function_name = (symbol_c*)(new pragma_c("__int_to_time"));
169 bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	10750
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	10751	if (IN_type_symbol == NULL)
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	10752	IN_type_symbol = last_type_symbol;
149 05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	10753	ADD_PARAM_LIST(IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in)
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	10754	symbol_c * return_type_symbol = &search_constant_type_c::date_type_name;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	10755	function_type_prefix = return_type_symbol;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	10756	break;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	10757
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	10758	}
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	10759
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	10760
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	10761	ERROR;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	10762	}
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	10763
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	10764	}/function_byte_to_date/
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	10765	break;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	10766
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	10767	/****
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	10768	*BYTE_TO_DWORD
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	10769	*/
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	10770	case function_byte_to_dword :
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	10771	{
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	10772	symbol_c *last_type_symbol = NULL;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	10773
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	10774	{
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	10775	identifier_c param_name("IN");
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	10776	/* Get the value from a foo(<param_name> = <param_value>) style call */
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	10777	symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
169 bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	10778	symbol_c *IN_type_symbol = NULL;
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	10779
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	10780	/* Get the value from a foo(<param_value>) style call */
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	10781	if (IN_param_value == NULL)
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	10782	IN_param_value = function_call_param_iterator.next();
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	10783	if (IN_param_value != NULL) {
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	10784	IN_type_symbol = search_expression_type->get_type(IN_param_value);
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	10785	last_type_symbol = last_type_symbol && IN_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	10786	}
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	10787
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	10788	if(IN_type_symbol == NULL \|\| search_expression_type->is_same_type(&search_constant_type_c::byte_type_name, last_type_symbol))
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	10789	{
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	10790
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	10791
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	10792	if (IN_type_symbol == NULL)
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	10793	IN_type_symbol = last_type_symbol;
149 05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	10794	ADD_PARAM_LIST(IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in)
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	10795	symbol_c * return_type_symbol = &search_constant_type_c::dword_type_name;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	10796	function_type_prefix = return_type_symbol;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	10797	break;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	10798
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	10799	}
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	10800
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	10801
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	10802	ERROR;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	10803	}
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	10804
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	10805	}/function_byte_to_dword/
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	10806	break;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	10807
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	10808	/****
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	10809	*BYTE_TO_DT
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	10810	*/
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	10811	case function_byte_to_dt :
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	10812	{
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	10813	symbol_c *last_type_symbol = NULL;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	10814
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	10815	{
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	10816	identifier_c param_name("IN");
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	10817	/* Get the value from a foo(<param_name> = <param_value>) style call */
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	10818	symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
169 bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	10819	symbol_c *IN_type_symbol = NULL;
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	10820
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	10821	/* Get the value from a foo(<param_value>) style call */
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	10822	if (IN_param_value == NULL)
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	10823	IN_param_value = function_call_param_iterator.next();
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	10824	if (IN_param_value != NULL) {
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	10825	IN_type_symbol = search_expression_type->get_type(IN_param_value);
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	10826	last_type_symbol = last_type_symbol && IN_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	10827	}
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	10828
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	10829	if(IN_type_symbol == NULL \|\| search_expression_type->is_same_type(&search_constant_type_c::byte_type_name, last_type_symbol))
149 05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	10830	{
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	10831
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	10832	function_name = (symbol_c*)(new pragma_c("__int_to_time"));
169 bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	10833
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	10834	if (IN_type_symbol == NULL)
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	10835	IN_type_symbol = last_type_symbol;
149 05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	10836	ADD_PARAM_LIST(IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in)
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	10837	symbol_c * return_type_symbol = &search_constant_type_c::dt_type_name;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	10838	function_type_prefix = return_type_symbol;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	10839	break;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	10840
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	10841	}
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	10842
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	10843
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	10844	ERROR;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	10845	}
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	10846
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	10847	}/function_byte_to_dt/
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	10848	break;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	10849
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	10850	/****
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	10851	*BYTE_TO_TOD
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	10852	*/
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	10853	case function_byte_to_tod :
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	10854	{
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	10855	symbol_c *last_type_symbol = NULL;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	10856
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	10857	{
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	10858	identifier_c param_name("IN");
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	10859	/* Get the value from a foo(<param_name> = <param_value>) style call */
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	10860	symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
169 bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	10861	symbol_c *IN_type_symbol = NULL;
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	10862
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	10863	/* Get the value from a foo(<param_value>) style call */
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	10864	if (IN_param_value == NULL)
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	10865	IN_param_value = function_call_param_iterator.next();
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	10866	if (IN_param_value != NULL) {
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	10867	IN_type_symbol = search_expression_type->get_type(IN_param_value);
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	10868	last_type_symbol = last_type_symbol && IN_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	10869	}
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	10870
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	10871	if(IN_type_symbol == NULL \|\| search_expression_type->is_same_type(&search_constant_type_c::byte_type_name, last_type_symbol))
149 05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	10872	{
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	10873
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	10874	function_name = (symbol_c*)(new pragma_c("__int_to_time"));
169 bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	10875
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	10876	if (IN_type_symbol == NULL)
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	10877	IN_type_symbol = last_type_symbol;
149 05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	10878	ADD_PARAM_LIST(IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in)
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	10879	symbol_c * return_type_symbol = &search_constant_type_c::tod_type_name;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	10880	function_type_prefix = return_type_symbol;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	10881	break;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	10882
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	10883	}
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	10884
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	10885
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	10886	ERROR;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	10887	}
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	10888
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	10889	}/function_byte_to_tod/
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	10890	break;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	10891
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	10892	/****
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	10893	*BYTE_TO_UDINT
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	10894	*/
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	10895	case function_byte_to_udint :
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	10896	{
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	10897	symbol_c *last_type_symbol = NULL;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	10898
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	10899	{
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	10900	identifier_c param_name("IN");
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	10901	/* Get the value from a foo(<param_name> = <param_value>) style call */
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	10902	symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
169 bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	10903	symbol_c *IN_type_symbol = NULL;
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	10904
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	10905	/* Get the value from a foo(<param_value>) style call */
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	10906	if (IN_param_value == NULL)
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	10907	IN_param_value = function_call_param_iterator.next();
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	10908	if (IN_param_value != NULL) {
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	10909	IN_type_symbol = search_expression_type->get_type(IN_param_value);
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	10910	last_type_symbol = last_type_symbol && IN_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	10911	}
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	10912
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	10913	if(IN_type_symbol == NULL \|\| search_expression_type->is_same_type(&search_constant_type_c::byte_type_name, last_type_symbol))
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	10914	{
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	10915
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	10916
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	10917	if (IN_type_symbol == NULL)
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	10918	IN_type_symbol = last_type_symbol;
149 05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	10919	ADD_PARAM_LIST(IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in)
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	10920	symbol_c * return_type_symbol = &search_constant_type_c::udint_type_name;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	10921	function_type_prefix = return_type_symbol;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	10922	break;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	10923
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	10924	}
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	10925
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	10926
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	10927	ERROR;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	10928	}
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	10929
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	10930	}/function_byte_to_udint/
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	10931	break;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	10932
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	10933	/****
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	10934	*BYTE_TO_WORD
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	10935	*/
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	10936	case function_byte_to_word :
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	10937	{
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	10938	symbol_c *last_type_symbol = NULL;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	10939
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	10940	{
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	10941	identifier_c param_name("IN");
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	10942	/* Get the value from a foo(<param_name> = <param_value>) style call */
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	10943	symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
169 bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	10944	symbol_c *IN_type_symbol = NULL;
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	10945
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	10946	/* Get the value from a foo(<param_value>) style call */
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	10947	if (IN_param_value == NULL)
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	10948	IN_param_value = function_call_param_iterator.next();
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	10949	if (IN_param_value != NULL) {
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	10950	IN_type_symbol = search_expression_type->get_type(IN_param_value);
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	10951	last_type_symbol = last_type_symbol && IN_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	10952	}
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	10953
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	10954	if(IN_type_symbol == NULL \|\| search_expression_type->is_same_type(&search_constant_type_c::byte_type_name, last_type_symbol))
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	10955	{
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	10956
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	10957
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	10958	if (IN_type_symbol == NULL)
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	10959	IN_type_symbol = last_type_symbol;
149 05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	10960	ADD_PARAM_LIST(IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in)
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	10961	symbol_c * return_type_symbol = &search_constant_type_c::word_type_name;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	10962	function_type_prefix = return_type_symbol;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	10963	break;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	10964
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	10965	}
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	10966
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	10967
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	10968	ERROR;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	10969	}
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	10970
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	10971	}/function_byte_to_word/
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	10972	break;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	10973
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	10974	/****
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	10975	*BYTE_TO_STRING
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	10976	*/
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	10977	case function_byte_to_string :
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	10978	{
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	10979	symbol_c *last_type_symbol = NULL;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	10980
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	10981	{
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	10982	identifier_c param_name("IN");
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	10983	/* Get the value from a foo(<param_name> = <param_value>) style call */
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	10984	symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
169 bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	10985	symbol_c *IN_type_symbol = NULL;
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	10986
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	10987	/* Get the value from a foo(<param_value>) style call */
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	10988	if (IN_param_value == NULL)
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	10989	IN_param_value = function_call_param_iterator.next();
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	10990	if (IN_param_value != NULL) {
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	10991	IN_type_symbol = search_expression_type->get_type(IN_param_value);
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	10992	last_type_symbol = last_type_symbol && IN_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	10993	}
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	10994
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	10995	if(IN_type_symbol == NULL \|\| search_expression_type->is_same_type(&search_constant_type_c::byte_type_name, last_type_symbol))
149 05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	10996	{
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	10997
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	10998	function_name = (symbol_c*)(new pragma_c("__bit_to_string"));
169 bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	10999
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	11000	if (IN_type_symbol == NULL)
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	11001	IN_type_symbol = last_type_symbol;
149 05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	11002	ADD_PARAM_LIST(IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in)
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	11003	symbol_c * return_type_symbol = &search_constant_type_c::string_type_name;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	11004	function_type_prefix = return_type_symbol;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	11005	break;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	11006
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	11007	}
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	11008
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	11009
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	11010	ERROR;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	11011	}
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	11012
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	11013	}/function_byte_to_string/
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	11014	break;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	11015
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	11016	/****
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	11017	*BYTE_TO_LWORD
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	11018	*/
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	11019	case function_byte_to_lword :
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	11020	{
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	11021	symbol_c *last_type_symbol = NULL;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	11022
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	11023	{
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	11024	identifier_c param_name("IN");
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	11025	/* Get the value from a foo(<param_name> = <param_value>) style call */
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	11026	symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
169 bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	11027	symbol_c *IN_type_symbol = NULL;
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	11028
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	11029	/* Get the value from a foo(<param_value>) style call */
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	11030	if (IN_param_value == NULL)
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	11031	IN_param_value = function_call_param_iterator.next();
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	11032	if (IN_param_value != NULL) {
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	11033	IN_type_symbol = search_expression_type->get_type(IN_param_value);
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	11034	last_type_symbol = last_type_symbol && IN_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	11035	}
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	11036
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	11037	if(IN_type_symbol == NULL \|\| search_expression_type->is_same_type(&search_constant_type_c::byte_type_name, last_type_symbol))
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	11038	{
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	11039
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	11040
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	11041	if (IN_type_symbol == NULL)
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	11042	IN_type_symbol = last_type_symbol;
149 05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	11043	ADD_PARAM_LIST(IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in)
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	11044	symbol_c * return_type_symbol = &search_constant_type_c::lword_type_name;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	11045	function_type_prefix = return_type_symbol;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	11046	break;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	11047
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	11048	}
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	11049
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	11050
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	11051	ERROR;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	11052	}
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	11053
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	11054	}/function_byte_to_lword/
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	11055	break;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	11056
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	11057	/****
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	11058	*BYTE_TO_UINT
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	11059	*/
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	11060	case function_byte_to_uint :
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	11061	{
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	11062	symbol_c *last_type_symbol = NULL;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	11063
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	11064	{
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	11065	identifier_c param_name("IN");
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	11066	/* Get the value from a foo(<param_name> = <param_value>) style call */
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	11067	symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
169 bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	11068	symbol_c *IN_type_symbol = NULL;
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	11069
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	11070	/* Get the value from a foo(<param_value>) style call */
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	11071	if (IN_param_value == NULL)
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	11072	IN_param_value = function_call_param_iterator.next();
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	11073	if (IN_param_value != NULL) {
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	11074	IN_type_symbol = search_expression_type->get_type(IN_param_value);
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	11075	last_type_symbol = last_type_symbol && IN_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	11076	}
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	11077
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	11078	if(IN_type_symbol == NULL \|\| search_expression_type->is_same_type(&search_constant_type_c::byte_type_name, last_type_symbol))
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	11079	{
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	11080
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	11081
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	11082	if (IN_type_symbol == NULL)
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	11083	IN_type_symbol = last_type_symbol;
149 05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	11084	ADD_PARAM_LIST(IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in)
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	11085	symbol_c * return_type_symbol = &search_constant_type_c::uint_type_name;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	11086	function_type_prefix = return_type_symbol;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	11087	break;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	11088
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	11089	}
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	11090
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	11091
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	11092	ERROR;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	11093	}
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	11094
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	11095	}/function_byte_to_uint/
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	11096	break;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	11097
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	11098	/****
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	11099	*BYTE_TO_LREAL
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	11100	*/
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	11101	case function_byte_to_lreal :
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	11102	{
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	11103	symbol_c *last_type_symbol = NULL;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	11104
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	11105	{
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	11106	identifier_c param_name("IN");
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	11107	/* Get the value from a foo(<param_name> = <param_value>) style call */
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	11108	symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
169 bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	11109	symbol_c *IN_type_symbol = NULL;
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	11110
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	11111	/* Get the value from a foo(<param_value>) style call */
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	11112	if (IN_param_value == NULL)
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	11113	IN_param_value = function_call_param_iterator.next();
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	11114	if (IN_param_value != NULL) {
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	11115	IN_type_symbol = search_expression_type->get_type(IN_param_value);
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	11116	last_type_symbol = last_type_symbol && IN_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	11117	}
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	11118
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	11119	if(IN_type_symbol == NULL \|\| search_expression_type->is_same_type(&search_constant_type_c::byte_type_name, last_type_symbol))
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	11120	{
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	11121
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	11122
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	11123	if (IN_type_symbol == NULL)
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	11124	IN_type_symbol = last_type_symbol;
149 05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	11125	ADD_PARAM_LIST(IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in)
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	11126	symbol_c * return_type_symbol = &search_constant_type_c::lreal_type_name;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	11127	function_type_prefix = return_type_symbol;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	11128	break;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	11129
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	11130	}
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	11131
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	11132
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	11133	ERROR;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	11134	}
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	11135
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	11136	}/function_byte_to_lreal/
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	11137	break;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	11138
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	11139	/****
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	11140	*BYTE_TO_USINT
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	11141	*/
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	11142	case function_byte_to_usint :
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	11143	{
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	11144	symbol_c *last_type_symbol = NULL;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	11145
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	11146	{
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	11147	identifier_c param_name("IN");
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	11148	/* Get the value from a foo(<param_name> = <param_value>) style call */
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	11149	symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
169 bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	11150	symbol_c *IN_type_symbol = NULL;
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	11151
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	11152	/* Get the value from a foo(<param_value>) style call */
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	11153	if (IN_param_value == NULL)
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	11154	IN_param_value = function_call_param_iterator.next();
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	11155	if (IN_param_value != NULL) {
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	11156	IN_type_symbol = search_expression_type->get_type(IN_param_value);
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	11157	last_type_symbol = last_type_symbol && IN_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	11158	}
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	11159
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	11160	if(IN_type_symbol == NULL \|\| search_expression_type->is_same_type(&search_constant_type_c::byte_type_name, last_type_symbol))
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	11161	{
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	11162
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	11163
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	11164	if (IN_type_symbol == NULL)
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	11165	IN_type_symbol = last_type_symbol;
149 05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	11166	ADD_PARAM_LIST(IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in)
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	11167	symbol_c * return_type_symbol = &search_constant_type_c::usint_type_name;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	11168	function_type_prefix = return_type_symbol;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	11169	break;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	11170
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	11171	}
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	11172
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	11173
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	11174	ERROR;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	11175	}
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	11176
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	11177	}/function_byte_to_usint/
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	11178	break;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	11179
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	11180	/****
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	11181	*BYTE_TO_ULINT
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	11182	*/
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	11183	case function_byte_to_ulint :
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	11184	{
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	11185	symbol_c *last_type_symbol = NULL;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	11186
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	11187	{
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	11188	identifier_c param_name("IN");
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	11189	/* Get the value from a foo(<param_name> = <param_value>) style call */
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	11190	symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
169 bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	11191	symbol_c *IN_type_symbol = NULL;
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	11192
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	11193	/* Get the value from a foo(<param_value>) style call */
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	11194	if (IN_param_value == NULL)
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	11195	IN_param_value = function_call_param_iterator.next();
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	11196	if (IN_param_value != NULL) {
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	11197	IN_type_symbol = search_expression_type->get_type(IN_param_value);
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	11198	last_type_symbol = last_type_symbol && IN_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	11199	}
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	11200
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	11201	if(IN_type_symbol == NULL \|\| search_expression_type->is_same_type(&search_constant_type_c::byte_type_name, last_type_symbol))
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	11202	{
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	11203
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	11204
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	11205	if (IN_type_symbol == NULL)
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	11206	IN_type_symbol = last_type_symbol;
149 05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	11207	ADD_PARAM_LIST(IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in)
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	11208	symbol_c * return_type_symbol = &search_constant_type_c::ulint_type_name;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	11209	function_type_prefix = return_type_symbol;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	11210	break;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	11211
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	11212	}
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	11213
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	11214
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	11215	ERROR;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	11216	}
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	11217
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	11218	}/function_byte_to_ulint/
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	11219	break;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	11220
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	11221	/****
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	11222	*BYTE_TO_BOOL
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	11223	*/
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	11224	case function_byte_to_bool :
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	11225	{
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	11226	symbol_c *last_type_symbol = NULL;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	11227
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	11228	{
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	11229	identifier_c param_name("IN");
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	11230	/* Get the value from a foo(<param_name> = <param_value>) style call */
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	11231	symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
169 bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	11232	symbol_c *IN_type_symbol = NULL;
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	11233
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	11234	/* Get the value from a foo(<param_value>) style call */
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	11235	if (IN_param_value == NULL)
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	11236	IN_param_value = function_call_param_iterator.next();
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	11237	if (IN_param_value != NULL) {
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	11238	IN_type_symbol = search_expression_type->get_type(IN_param_value);
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	11239	last_type_symbol = last_type_symbol && IN_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	11240	}
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	11241
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	11242	if(IN_type_symbol == NULL \|\| search_expression_type->is_same_type(&search_constant_type_c::byte_type_name, last_type_symbol))
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	11243	{
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	11244
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	11245
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	11246	if (IN_type_symbol == NULL)
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	11247	IN_type_symbol = last_type_symbol;
149 05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	11248	ADD_PARAM_LIST(IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in)
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	11249	symbol_c * return_type_symbol = &search_constant_type_c::bool_type_name;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	11250	function_type_prefix = return_type_symbol;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	11251	break;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	11252
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	11253	}
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	11254
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	11255
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	11256	ERROR;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	11257	}
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	11258
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	11259	}/function_byte_to_bool/
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	11260	break;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	11261
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	11262	/****
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	11263	*BYTE_TO_TIME
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	11264	*/
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	11265	case function_byte_to_time :
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	11266	{
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	11267	symbol_c *last_type_symbol = NULL;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	11268
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	11269	{
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	11270	identifier_c param_name("IN");
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	11271	/* Get the value from a foo(<param_name> = <param_value>) style call */
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	11272	symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
169 bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	11273	symbol_c *IN_type_symbol = NULL;
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	11274
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	11275	/* Get the value from a foo(<param_value>) style call */
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	11276	if (IN_param_value == NULL)
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	11277	IN_param_value = function_call_param_iterator.next();
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	11278	if (IN_param_value != NULL) {
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	11279	IN_type_symbol = search_expression_type->get_type(IN_param_value);
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	11280	last_type_symbol = last_type_symbol && IN_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	11281	}
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	11282
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	11283	if(IN_type_symbol == NULL \|\| search_expression_type->is_same_type(&search_constant_type_c::byte_type_name, last_type_symbol))
149 05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	11284	{
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	11285
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	11286	function_name = (symbol_c*)(new pragma_c("__int_to_time"));
169 bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	11287
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	11288	if (IN_type_symbol == NULL)
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	11289	IN_type_symbol = last_type_symbol;
149 05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	11290	ADD_PARAM_LIST(IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in)
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	11291	symbol_c * return_type_symbol = &search_constant_type_c::time_type_name;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	11292	function_type_prefix = return_type_symbol;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	11293	break;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	11294
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	11295	}
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	11296
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	11297
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	11298	ERROR;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	11299	}
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	11300
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	11301	}/function_byte_to_time/
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	11302	break;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	11303
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	11304	/****
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	11305	*BYTE_TO_INT
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	11306	*/
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	11307	case function_byte_to_int :
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	11308	{
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	11309	symbol_c *last_type_symbol = NULL;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	11310
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	11311	{
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	11312	identifier_c param_name("IN");
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	11313	/* Get the value from a foo(<param_name> = <param_value>) style call */
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	11314	symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
169 bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	11315	symbol_c *IN_type_symbol = NULL;
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	11316
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	11317	/* Get the value from a foo(<param_value>) style call */
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	11318	if (IN_param_value == NULL)
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	11319	IN_param_value = function_call_param_iterator.next();
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	11320	if (IN_param_value != NULL) {
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	11321	IN_type_symbol = search_expression_type->get_type(IN_param_value);
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	11322	last_type_symbol = last_type_symbol && IN_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	11323	}
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	11324
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	11325	if(IN_type_symbol == NULL \|\| search_expression_type->is_same_type(&search_constant_type_c::byte_type_name, last_type_symbol))
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	11326	{
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	11327
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	11328
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	11329	if (IN_type_symbol == NULL)
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	11330	IN_type_symbol = last_type_symbol;
149 05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	11331	ADD_PARAM_LIST(IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in)
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	11332	symbol_c * return_type_symbol = &search_constant_type_c::int_type_name;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	11333	function_type_prefix = return_type_symbol;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	11334	break;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	11335
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	11336	}
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	11337
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	11338
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	11339	ERROR;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	11340	}
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	11341
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	11342	}/function_byte_to_int/
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	11343	break;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	11344
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	11345	/****
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	11346	*USINT_TO_REAL
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	11347	*/
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	11348	case function_usint_to_real :
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	11349	{
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	11350	symbol_c *last_type_symbol = NULL;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	11351
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	11352	{
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	11353	identifier_c param_name("IN");
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	11354	/* Get the value from a foo(<param_name> = <param_value>) style call */
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	11355	symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
169 bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	11356	symbol_c *IN_type_symbol = NULL;
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	11357
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	11358	/* Get the value from a foo(<param_value>) style call */
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	11359	if (IN_param_value == NULL)
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	11360	IN_param_value = function_call_param_iterator.next();
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	11361	if (IN_param_value != NULL) {
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	11362	IN_type_symbol = search_expression_type->get_type(IN_param_value);
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	11363	last_type_symbol = last_type_symbol && IN_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	11364	}
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	11365
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	11366	if(IN_type_symbol == NULL \|\| search_expression_type->is_same_type(&search_constant_type_c::usint_type_name, last_type_symbol))
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	11367	{
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	11368
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	11369
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	11370	if (IN_type_symbol == NULL)
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	11371	IN_type_symbol = last_type_symbol;
149 05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	11372	ADD_PARAM_LIST(IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in)
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	11373	symbol_c * return_type_symbol = &search_constant_type_c::real_type_name;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	11374	function_type_prefix = return_type_symbol;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	11375	break;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	11376
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	11377	}
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	11378
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	11379
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	11380	ERROR;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	11381	}
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	11382
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	11383	}/function_usint_to_real/
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	11384	break;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	11385
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	11386	/****
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	11387	*USINT_TO_SINT
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	11388	*/
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	11389	case function_usint_to_sint :
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	11390	{
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	11391	symbol_c *last_type_symbol = NULL;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	11392
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	11393	{
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	11394	identifier_c param_name("IN");
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	11395	/* Get the value from a foo(<param_name> = <param_value>) style call */
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	11396	symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
169 bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	11397	symbol_c *IN_type_symbol = NULL;
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	11398
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	11399	/* Get the value from a foo(<param_value>) style call */
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	11400	if (IN_param_value == NULL)
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	11401	IN_param_value = function_call_param_iterator.next();
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	11402	if (IN_param_value != NULL) {
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	11403	IN_type_symbol = search_expression_type->get_type(IN_param_value);
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	11404	last_type_symbol = last_type_symbol && IN_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	11405	}
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	11406
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	11407	if(IN_type_symbol == NULL \|\| search_expression_type->is_same_type(&search_constant_type_c::usint_type_name, last_type_symbol))
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	11408	{
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	11409
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	11410
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	11411	if (IN_type_symbol == NULL)
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	11412	IN_type_symbol = last_type_symbol;
149 05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	11413	ADD_PARAM_LIST(IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in)
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	11414	symbol_c * return_type_symbol = &search_constant_type_c::sint_type_name;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	11415	function_type_prefix = return_type_symbol;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	11416	break;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	11417
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	11418	}
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	11419
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	11420
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	11421	ERROR;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	11422	}
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	11423
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	11424	}/function_usint_to_sint/
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	11425	break;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	11426
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	11427	/****
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	11428	*USINT_TO_LINT
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	11429	*/
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	11430	case function_usint_to_lint :
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	11431	{
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	11432	symbol_c *last_type_symbol = NULL;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	11433
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	11434	{
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	11435	identifier_c param_name("IN");
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	11436	/* Get the value from a foo(<param_name> = <param_value>) style call */
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	11437	symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
169 bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	11438	symbol_c *IN_type_symbol = NULL;
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	11439
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	11440	/* Get the value from a foo(<param_value>) style call */
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	11441	if (IN_param_value == NULL)
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	11442	IN_param_value = function_call_param_iterator.next();
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	11443	if (IN_param_value != NULL) {
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	11444	IN_type_symbol = search_expression_type->get_type(IN_param_value);
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	11445	last_type_symbol = last_type_symbol && IN_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	11446	}
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	11447
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	11448	if(IN_type_symbol == NULL \|\| search_expression_type->is_same_type(&search_constant_type_c::usint_type_name, last_type_symbol))
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	11449	{
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	11450
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	11451
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	11452	if (IN_type_symbol == NULL)
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	11453	IN_type_symbol = last_type_symbol;
149 05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	11454	ADD_PARAM_LIST(IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in)
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	11455	symbol_c * return_type_symbol = &search_constant_type_c::lint_type_name;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	11456	function_type_prefix = return_type_symbol;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	11457	break;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	11458
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	11459	}
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	11460
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	11461
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	11462	ERROR;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	11463	}
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	11464
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	11465	}/function_usint_to_lint/
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	11466	break;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	11467
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	11468	/****
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	11469	*USINT_TO_DINT
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	11470	*/
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	11471	case function_usint_to_dint :
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	11472	{
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	11473	symbol_c *last_type_symbol = NULL;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	11474
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	11475	{
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	11476	identifier_c param_name("IN");
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	11477	/* Get the value from a foo(<param_name> = <param_value>) style call */
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	11478	symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
169 bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	11479	symbol_c *IN_type_symbol = NULL;
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	11480
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	11481	/* Get the value from a foo(<param_value>) style call */
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	11482	if (IN_param_value == NULL)
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	11483	IN_param_value = function_call_param_iterator.next();
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	11484	if (IN_param_value != NULL) {
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	11485	IN_type_symbol = search_expression_type->get_type(IN_param_value);
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	11486	last_type_symbol = last_type_symbol && IN_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	11487	}
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	11488
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	11489	if(IN_type_symbol == NULL \|\| search_expression_type->is_same_type(&search_constant_type_c::usint_type_name, last_type_symbol))
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	11490	{
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	11491
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	11492
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	11493	if (IN_type_symbol == NULL)
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	11494	IN_type_symbol = last_type_symbol;
149 05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	11495	ADD_PARAM_LIST(IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in)
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	11496	symbol_c * return_type_symbol = &search_constant_type_c::dint_type_name;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	11497	function_type_prefix = return_type_symbol;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	11498	break;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	11499
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	11500	}
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	11501
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	11502
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	11503	ERROR;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	11504	}
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	11505
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	11506	}/function_usint_to_dint/
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	11507	break;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	11508
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	11509	/****
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	11510	*USINT_TO_DATE
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	11511	*/
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	11512	case function_usint_to_date :
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	11513	{
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	11514	symbol_c *last_type_symbol = NULL;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	11515
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	11516	{
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	11517	identifier_c param_name("IN");
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	11518	/* Get the value from a foo(<param_name> = <param_value>) style call */
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	11519	symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
169 bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	11520	symbol_c *IN_type_symbol = NULL;
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	11521
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	11522	/* Get the value from a foo(<param_value>) style call */
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	11523	if (IN_param_value == NULL)
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	11524	IN_param_value = function_call_param_iterator.next();
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	11525	if (IN_param_value != NULL) {
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	11526	IN_type_symbol = search_expression_type->get_type(IN_param_value);
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	11527	last_type_symbol = last_type_symbol && IN_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	11528	}
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	11529
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	11530	if(IN_type_symbol == NULL \|\| search_expression_type->is_same_type(&search_constant_type_c::usint_type_name, last_type_symbol))
149 05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	11531	{
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	11532
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	11533	function_name = (symbol_c*)(new pragma_c("__int_to_time"));
169 bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	11534
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	11535	if (IN_type_symbol == NULL)
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	11536	IN_type_symbol = last_type_symbol;
149 05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	11537	ADD_PARAM_LIST(IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in)
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	11538	symbol_c * return_type_symbol = &search_constant_type_c::date_type_name;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	11539	function_type_prefix = return_type_symbol;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	11540	break;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	11541
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	11542	}
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	11543
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	11544
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	11545	ERROR;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	11546	}
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	11547
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	11548	}/function_usint_to_date/
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	11549	break;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	11550
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	11551	/****
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	11552	*USINT_TO_DWORD
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	11553	*/
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	11554	case function_usint_to_dword :
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	11555	{
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	11556	symbol_c *last_type_symbol = NULL;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	11557
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	11558	{
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	11559	identifier_c param_name("IN");
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	11560	/* Get the value from a foo(<param_name> = <param_value>) style call */
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	11561	symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
169 bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	11562	symbol_c *IN_type_symbol = NULL;
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	11563
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	11564	/* Get the value from a foo(<param_value>) style call */
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	11565	if (IN_param_value == NULL)
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	11566	IN_param_value = function_call_param_iterator.next();
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	11567	if (IN_param_value != NULL) {
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	11568	IN_type_symbol = search_expression_type->get_type(IN_param_value);
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	11569	last_type_symbol = last_type_symbol && IN_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	11570	}
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	11571
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	11572	if(IN_type_symbol == NULL \|\| search_expression_type->is_same_type(&search_constant_type_c::usint_type_name, last_type_symbol))
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	11573	{
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	11574
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	11575
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	11576	if (IN_type_symbol == NULL)
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	11577	IN_type_symbol = last_type_symbol;
149 05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	11578	ADD_PARAM_LIST(IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in)
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	11579	symbol_c * return_type_symbol = &search_constant_type_c::dword_type_name;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	11580	function_type_prefix = return_type_symbol;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	11581	break;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	11582
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	11583	}
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	11584
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	11585
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	11586	ERROR;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	11587	}
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	11588
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	11589	}/function_usint_to_dword/
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	11590	break;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	11591
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	11592	/****
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	11593	*USINT_TO_DT
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	11594	*/
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	11595	case function_usint_to_dt :
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	11596	{
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	11597	symbol_c *last_type_symbol = NULL;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	11598
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	11599	{
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	11600	identifier_c param_name("IN");
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	11601	/* Get the value from a foo(<param_name> = <param_value>) style call */
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	11602	symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
169 bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	11603	symbol_c *IN_type_symbol = NULL;
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	11604
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	11605	/* Get the value from a foo(<param_value>) style call */
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	11606	if (IN_param_value == NULL)
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	11607	IN_param_value = function_call_param_iterator.next();
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	11608	if (IN_param_value != NULL) {
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	11609	IN_type_symbol = search_expression_type->get_type(IN_param_value);
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	11610	last_type_symbol = last_type_symbol && IN_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	11611	}
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	11612
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	11613	if(IN_type_symbol == NULL \|\| search_expression_type->is_same_type(&search_constant_type_c::usint_type_name, last_type_symbol))
149 05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	11614	{
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	11615
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	11616	function_name = (symbol_c*)(new pragma_c("__int_to_time"));
169 bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	11617
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	11618	if (IN_type_symbol == NULL)
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	11619	IN_type_symbol = last_type_symbol;
149 05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	11620	ADD_PARAM_LIST(IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in)
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	11621	symbol_c * return_type_symbol = &search_constant_type_c::dt_type_name;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	11622	function_type_prefix = return_type_symbol;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	11623	break;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	11624
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	11625	}
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	11626
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	11627
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	11628	ERROR;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	11629	}
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	11630
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	11631	}/function_usint_to_dt/
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	11632	break;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	11633
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	11634	/****
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	11635	*USINT_TO_TOD
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	11636	*/
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	11637	case function_usint_to_tod :
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	11638	{
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	11639	symbol_c *last_type_symbol = NULL;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	11640
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	11641	{
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	11642	identifier_c param_name("IN");
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	11643	/* Get the value from a foo(<param_name> = <param_value>) style call */
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	11644	symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
169 bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	11645	symbol_c *IN_type_symbol = NULL;
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	11646
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	11647	/* Get the value from a foo(<param_value>) style call */
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	11648	if (IN_param_value == NULL)
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	11649	IN_param_value = function_call_param_iterator.next();
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	11650	if (IN_param_value != NULL) {
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	11651	IN_type_symbol = search_expression_type->get_type(IN_param_value);
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	11652	last_type_symbol = last_type_symbol && IN_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	11653	}
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	11654
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	11655	if(IN_type_symbol == NULL \|\| search_expression_type->is_same_type(&search_constant_type_c::usint_type_name, last_type_symbol))
149 05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	11656	{
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	11657
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	11658	function_name = (symbol_c*)(new pragma_c("__int_to_time"));
169 bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	11659
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	11660	if (IN_type_symbol == NULL)
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	11661	IN_type_symbol = last_type_symbol;
149 05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	11662	ADD_PARAM_LIST(IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in)
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	11663	symbol_c * return_type_symbol = &search_constant_type_c::tod_type_name;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	11664	function_type_prefix = return_type_symbol;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	11665	break;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	11666
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	11667	}
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	11668
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	11669
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	11670	ERROR;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	11671	}
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	11672
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	11673	}/function_usint_to_tod/
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	11674	break;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	11675
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	11676	/****
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	11677	*USINT_TO_UDINT
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	11678	*/
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	11679	case function_usint_to_udint :
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	11680	{
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	11681	symbol_c *last_type_symbol = NULL;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	11682
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	11683	{
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	11684	identifier_c param_name("IN");
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	11685	/* Get the value from a foo(<param_name> = <param_value>) style call */
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	11686	symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
169 bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	11687	symbol_c *IN_type_symbol = NULL;
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	11688
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	11689	/* Get the value from a foo(<param_value>) style call */
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	11690	if (IN_param_value == NULL)
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	11691	IN_param_value = function_call_param_iterator.next();
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	11692	if (IN_param_value != NULL) {
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	11693	IN_type_symbol = search_expression_type->get_type(IN_param_value);
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	11694	last_type_symbol = last_type_symbol && IN_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	11695	}
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	11696
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	11697	if(IN_type_symbol == NULL \|\| search_expression_type->is_same_type(&search_constant_type_c::usint_type_name, last_type_symbol))
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	11698	{
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	11699
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	11700
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	11701	if (IN_type_symbol == NULL)
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	11702	IN_type_symbol = last_type_symbol;
149 05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	11703	ADD_PARAM_LIST(IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in)
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	11704	symbol_c * return_type_symbol = &search_constant_type_c::udint_type_name;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	11705	function_type_prefix = return_type_symbol;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	11706	break;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	11707
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	11708	}
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	11709
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	11710
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	11711	ERROR;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	11712	}
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	11713
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	11714	}/function_usint_to_udint/
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	11715	break;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	11716
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	11717	/****
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	11718	*USINT_TO_WORD
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	11719	*/
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	11720	case function_usint_to_word :
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	11721	{
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	11722	symbol_c *last_type_symbol = NULL;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	11723
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	11724	{
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	11725	identifier_c param_name("IN");
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	11726	/* Get the value from a foo(<param_name> = <param_value>) style call */
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	11727	symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
169 bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	11728	symbol_c *IN_type_symbol = NULL;
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	11729
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	11730	/* Get the value from a foo(<param_value>) style call */
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	11731	if (IN_param_value == NULL)
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	11732	IN_param_value = function_call_param_iterator.next();
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	11733	if (IN_param_value != NULL) {
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	11734	IN_type_symbol = search_expression_type->get_type(IN_param_value);
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	11735	last_type_symbol = last_type_symbol && IN_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	11736	}
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	11737
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	11738	if(IN_type_symbol == NULL \|\| search_expression_type->is_same_type(&search_constant_type_c::usint_type_name, last_type_symbol))
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	11739	{
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	11740
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	11741
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	11742	if (IN_type_symbol == NULL)
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	11743	IN_type_symbol = last_type_symbol;
149 05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	11744	ADD_PARAM_LIST(IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in)
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	11745	symbol_c * return_type_symbol = &search_constant_type_c::word_type_name;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	11746	function_type_prefix = return_type_symbol;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	11747	break;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	11748
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	11749	}
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	11750
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	11751
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	11752	ERROR;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	11753	}
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	11754
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	11755	}/function_usint_to_word/
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	11756	break;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	11757
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	11758	/****
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	11759	*USINT_TO_STRING
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	11760	*/
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	11761	case function_usint_to_string :
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	11762	{
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	11763	symbol_c *last_type_symbol = NULL;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	11764
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	11765	{
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	11766	identifier_c param_name("IN");
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	11767	/* Get the value from a foo(<param_name> = <param_value>) style call */
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	11768	symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
169 bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	11769	symbol_c *IN_type_symbol = NULL;
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	11770
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	11771	/* Get the value from a foo(<param_value>) style call */
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	11772	if (IN_param_value == NULL)
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	11773	IN_param_value = function_call_param_iterator.next();
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	11774	if (IN_param_value != NULL) {
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	11775	IN_type_symbol = search_expression_type->get_type(IN_param_value);
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	11776	last_type_symbol = last_type_symbol && IN_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	11777	}
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	11778
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	11779	if(IN_type_symbol == NULL \|\| search_expression_type->is_same_type(&search_constant_type_c::usint_type_name, last_type_symbol))
149 05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	11780	{
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	11781
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	11782	function_name = (symbol_c*)(new pragma_c("__uint_to_string"));
169 bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	11783
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	11784	if (IN_type_symbol == NULL)
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	11785	IN_type_symbol = last_type_symbol;
149 05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	11786	ADD_PARAM_LIST(IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in)
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	11787	symbol_c * return_type_symbol = &search_constant_type_c::string_type_name;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	11788	function_type_prefix = return_type_symbol;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	11789	break;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	11790
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	11791	}
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	11792
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	11793
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	11794	ERROR;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	11795	}
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	11796
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	11797	}/function_usint_to_string/
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	11798	break;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	11799
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	11800	/****
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	11801	*USINT_TO_LWORD
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	11802	*/
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	11803	case function_usint_to_lword :
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	11804	{
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	11805	symbol_c *last_type_symbol = NULL;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	11806
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	11807	{
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	11808	identifier_c param_name("IN");
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	11809	/* Get the value from a foo(<param_name> = <param_value>) style call */
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	11810	symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
169 bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	11811	symbol_c *IN_type_symbol = NULL;
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	11812
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	11813	/* Get the value from a foo(<param_value>) style call */
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	11814	if (IN_param_value == NULL)
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	11815	IN_param_value = function_call_param_iterator.next();
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	11816	if (IN_param_value != NULL) {
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	11817	IN_type_symbol = search_expression_type->get_type(IN_param_value);
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	11818	last_type_symbol = last_type_symbol && IN_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	11819	}
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	11820
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	11821	if(IN_type_symbol == NULL \|\| search_expression_type->is_same_type(&search_constant_type_c::usint_type_name, last_type_symbol))
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	11822	{
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	11823
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	11824
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	11825	if (IN_type_symbol == NULL)
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	11826	IN_type_symbol = last_type_symbol;
149 05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	11827	ADD_PARAM_LIST(IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in)
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	11828	symbol_c * return_type_symbol = &search_constant_type_c::lword_type_name;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	11829	function_type_prefix = return_type_symbol;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	11830	break;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	11831
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	11832	}
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	11833
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	11834
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	11835	ERROR;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	11836	}
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	11837
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	11838	}/function_usint_to_lword/
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	11839	break;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	11840
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	11841	/****
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	11842	*USINT_TO_UINT
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	11843	*/
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	11844	case function_usint_to_uint :
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	11845	{
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	11846	symbol_c *last_type_symbol = NULL;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	11847
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	11848	{
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	11849	identifier_c param_name("IN");
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	11850	/* Get the value from a foo(<param_name> = <param_value>) style call */
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	11851	symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
169 bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	11852	symbol_c *IN_type_symbol = NULL;
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	11853
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	11854	/* Get the value from a foo(<param_value>) style call */
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	11855	if (IN_param_value == NULL)
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	11856	IN_param_value = function_call_param_iterator.next();
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	11857	if (IN_param_value != NULL) {
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	11858	IN_type_symbol = search_expression_type->get_type(IN_param_value);
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	11859	last_type_symbol = last_type_symbol && IN_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	11860	}
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	11861
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	11862	if(IN_type_symbol == NULL \|\| search_expression_type->is_same_type(&search_constant_type_c::usint_type_name, last_type_symbol))
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	11863	{
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	11864
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	11865
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	11866	if (IN_type_symbol == NULL)
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	11867	IN_type_symbol = last_type_symbol;
149 05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	11868	ADD_PARAM_LIST(IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in)
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	11869	symbol_c * return_type_symbol = &search_constant_type_c::uint_type_name;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	11870	function_type_prefix = return_type_symbol;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	11871	break;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	11872
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	11873	}
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	11874
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	11875
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	11876	ERROR;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	11877	}
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	11878
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	11879	}/function_usint_to_uint/
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	11880	break;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	11881
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	11882	/****
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	11883	*USINT_TO_LREAL
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	11884	*/
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	11885	case function_usint_to_lreal :
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	11886	{
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	11887	symbol_c *last_type_symbol = NULL;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	11888
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	11889	{
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	11890	identifier_c param_name("IN");
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	11891	/* Get the value from a foo(<param_name> = <param_value>) style call */
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	11892	symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
169 bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	11893	symbol_c *IN_type_symbol = NULL;
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	11894
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	11895	/* Get the value from a foo(<param_value>) style call */
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	11896	if (IN_param_value == NULL)
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	11897	IN_param_value = function_call_param_iterator.next();
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	11898	if (IN_param_value != NULL) {
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	11899	IN_type_symbol = search_expression_type->get_type(IN_param_value);
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	11900	last_type_symbol = last_type_symbol && IN_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	11901	}
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	11902
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	11903	if(IN_type_symbol == NULL \|\| search_expression_type->is_same_type(&search_constant_type_c::usint_type_name, last_type_symbol))
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	11904	{
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	11905
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	11906
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	11907	if (IN_type_symbol == NULL)
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	11908	IN_type_symbol = last_type_symbol;
149 05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	11909	ADD_PARAM_LIST(IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in)
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	11910	symbol_c * return_type_symbol = &search_constant_type_c::lreal_type_name;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	11911	function_type_prefix = return_type_symbol;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	11912	break;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	11913
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	11914	}
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	11915
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	11916
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	11917	ERROR;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	11918	}
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	11919
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	11920	}/function_usint_to_lreal/
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	11921	break;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	11922
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	11923	/****
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	11924	*USINT_TO_BYTE
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	11925	*/
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	11926	case function_usint_to_byte :
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	11927	{
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	11928	symbol_c *last_type_symbol = NULL;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	11929
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	11930	{
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	11931	identifier_c param_name("IN");
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	11932	/* Get the value from a foo(<param_name> = <param_value>) style call */
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	11933	symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
169 bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	11934	symbol_c *IN_type_symbol = NULL;
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	11935
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	11936	/* Get the value from a foo(<param_value>) style call */
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	11937	if (IN_param_value == NULL)
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	11938	IN_param_value = function_call_param_iterator.next();
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	11939	if (IN_param_value != NULL) {
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	11940	IN_type_symbol = search_expression_type->get_type(IN_param_value);
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	11941	last_type_symbol = last_type_symbol && IN_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	11942	}
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	11943
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	11944	if(IN_type_symbol == NULL \|\| search_expression_type->is_same_type(&search_constant_type_c::usint_type_name, last_type_symbol))
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	11945	{
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	11946
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	11947
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	11948	if (IN_type_symbol == NULL)
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	11949	IN_type_symbol = last_type_symbol;
149 05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	11950	ADD_PARAM_LIST(IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in)
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	11951	symbol_c * return_type_symbol = &search_constant_type_c::byte_type_name;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	11952	function_type_prefix = return_type_symbol;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	11953	break;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	11954
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	11955	}
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	11956
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	11957
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	11958	ERROR;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	11959	}
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	11960
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	11961	}/function_usint_to_byte/
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	11962	break;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	11963
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	11964	/****
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	11965	*USINT_TO_ULINT
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	11966	*/
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	11967	case function_usint_to_ulint :
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	11968	{
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	11969	symbol_c *last_type_symbol = NULL;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	11970
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	11971	{
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	11972	identifier_c param_name("IN");
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	11973	/* Get the value from a foo(<param_name> = <param_value>) style call */
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	11974	symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
169 bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	11975	symbol_c *IN_type_symbol = NULL;
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	11976
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	11977	/* Get the value from a foo(<param_value>) style call */
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	11978	if (IN_param_value == NULL)
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	11979	IN_param_value = function_call_param_iterator.next();
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	11980	if (IN_param_value != NULL) {
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	11981	IN_type_symbol = search_expression_type->get_type(IN_param_value);
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	11982	last_type_symbol = last_type_symbol && IN_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	11983	}
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	11984
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	11985	if(IN_type_symbol == NULL \|\| search_expression_type->is_same_type(&search_constant_type_c::usint_type_name, last_type_symbol))
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	11986	{
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	11987
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	11988
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	11989	if (IN_type_symbol == NULL)
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	11990	IN_type_symbol = last_type_symbol;
149 05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	11991	ADD_PARAM_LIST(IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in)
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	11992	symbol_c * return_type_symbol = &search_constant_type_c::ulint_type_name;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	11993	function_type_prefix = return_type_symbol;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	11994	break;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	11995
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	11996	}
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	11997
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	11998
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	11999	ERROR;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	12000	}
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	12001
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	12002	}/function_usint_to_ulint/
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	12003	break;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	12004
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	12005	/****
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	12006	*USINT_TO_BOOL
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	12007	*/
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	12008	case function_usint_to_bool :
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	12009	{
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	12010	symbol_c *last_type_symbol = NULL;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	12011
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	12012	{
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	12013	identifier_c param_name("IN");
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	12014	/* Get the value from a foo(<param_name> = <param_value>) style call */
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	12015	symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
169 bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	12016	symbol_c *IN_type_symbol = NULL;
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	12017
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	12018	/* Get the value from a foo(<param_value>) style call */
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	12019	if (IN_param_value == NULL)
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	12020	IN_param_value = function_call_param_iterator.next();
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	12021	if (IN_param_value != NULL) {
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	12022	IN_type_symbol = search_expression_type->get_type(IN_param_value);
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	12023	last_type_symbol = last_type_symbol && IN_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	12024	}
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	12025
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	12026	if(IN_type_symbol == NULL \|\| search_expression_type->is_same_type(&search_constant_type_c::usint_type_name, last_type_symbol))
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	12027	{
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	12028
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	12029
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	12030	if (IN_type_symbol == NULL)
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	12031	IN_type_symbol = last_type_symbol;
149 05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	12032	ADD_PARAM_LIST(IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in)
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	12033	symbol_c * return_type_symbol = &search_constant_type_c::bool_type_name;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	12034	function_type_prefix = return_type_symbol;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	12035	break;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	12036
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	12037	}
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	12038
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	12039
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	12040	ERROR;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	12041	}
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	12042
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	12043	}/function_usint_to_bool/
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	12044	break;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	12045
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	12046	/****
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	12047	*USINT_TO_TIME
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	12048	*/
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	12049	case function_usint_to_time :
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	12050	{
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	12051	symbol_c *last_type_symbol = NULL;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	12052
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	12053	{
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	12054	identifier_c param_name("IN");
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	12055	/* Get the value from a foo(<param_name> = <param_value>) style call */
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	12056	symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
169 bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	12057	symbol_c *IN_type_symbol = NULL;
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	12058
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	12059	/* Get the value from a foo(<param_value>) style call */
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	12060	if (IN_param_value == NULL)
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	12061	IN_param_value = function_call_param_iterator.next();
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	12062	if (IN_param_value != NULL) {
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	12063	IN_type_symbol = search_expression_type->get_type(IN_param_value);
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	12064	last_type_symbol = last_type_symbol && IN_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	12065	}
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	12066
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	12067	if(IN_type_symbol == NULL \|\| search_expression_type->is_same_type(&search_constant_type_c::usint_type_name, last_type_symbol))
149 05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	12068	{
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	12069
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	12070	function_name = (symbol_c*)(new pragma_c("__int_to_time"));
169 bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	12071
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	12072	if (IN_type_symbol == NULL)
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	12073	IN_type_symbol = last_type_symbol;
149 05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	12074	ADD_PARAM_LIST(IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in)
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	12075	symbol_c * return_type_symbol = &search_constant_type_c::time_type_name;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	12076	function_type_prefix = return_type_symbol;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	12077	break;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	12078
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	12079	}
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	12080
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	12081
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	12082	ERROR;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	12083	}
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	12084
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	12085	}/function_usint_to_time/
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	12086	break;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	12087
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	12088	/****
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	12089	*USINT_TO_INT
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	12090	*/
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	12091	case function_usint_to_int :
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	12092	{
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	12093	symbol_c *last_type_symbol = NULL;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	12094
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	12095	{
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	12096	identifier_c param_name("IN");
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	12097	/* Get the value from a foo(<param_name> = <param_value>) style call */
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	12098	symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
169 bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	12099	symbol_c *IN_type_symbol = NULL;
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	12100
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	12101	/* Get the value from a foo(<param_value>) style call */
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	12102	if (IN_param_value == NULL)
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	12103	IN_param_value = function_call_param_iterator.next();
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	12104	if (IN_param_value != NULL) {
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	12105	IN_type_symbol = search_expression_type->get_type(IN_param_value);
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	12106	last_type_symbol = last_type_symbol && IN_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	12107	}
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	12108
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	12109	if(IN_type_symbol == NULL \|\| search_expression_type->is_same_type(&search_constant_type_c::usint_type_name, last_type_symbol))
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	12110	{
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	12111
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	12112
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	12113	if (IN_type_symbol == NULL)
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	12114	IN_type_symbol = last_type_symbol;
149 05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	12115	ADD_PARAM_LIST(IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in)
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	12116	symbol_c * return_type_symbol = &search_constant_type_c::int_type_name;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	12117	function_type_prefix = return_type_symbol;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	12118	break;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	12119
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	12120	}
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	12121
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	12122
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	12123	ERROR;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	12124	}
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	12125
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	12126	}/function_usint_to_int/
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	12127	break;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	12128
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	12129	/****
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	12130	*ULINT_TO_REAL
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	12131	*/
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	12132	case function_ulint_to_real :
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	12133	{
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	12134	symbol_c *last_type_symbol = NULL;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	12135
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	12136	{
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	12137	identifier_c param_name("IN");
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	12138	/* Get the value from a foo(<param_name> = <param_value>) style call */
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	12139	symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
169 bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	12140	symbol_c *IN_type_symbol = NULL;
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	12141
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	12142	/* Get the value from a foo(<param_value>) style call */
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	12143	if (IN_param_value == NULL)
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	12144	IN_param_value = function_call_param_iterator.next();
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	12145	if (IN_param_value != NULL) {
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	12146	IN_type_symbol = search_expression_type->get_type(IN_param_value);
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	12147	last_type_symbol = last_type_symbol && IN_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	12148	}
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	12149
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	12150	if(IN_type_symbol == NULL \|\| search_expression_type->is_same_type(&search_constant_type_c::ulint_type_name, last_type_symbol))
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	12151	{
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	12152
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	12153
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	12154	if (IN_type_symbol == NULL)
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	12155	IN_type_symbol = last_type_symbol;
149 05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	12156	ADD_PARAM_LIST(IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in)
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	12157	symbol_c * return_type_symbol = &search_constant_type_c::real_type_name;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	12158	function_type_prefix = return_type_symbol;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	12159	break;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	12160
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	12161	}
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	12162
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	12163
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	12164	ERROR;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	12165	}
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	12166
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	12167	}/function_ulint_to_real/
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	12168	break;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	12169
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	12170	/****
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	12171	*ULINT_TO_SINT
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	12172	*/
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	12173	case function_ulint_to_sint :
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	12174	{
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	12175	symbol_c *last_type_symbol = NULL;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	12176
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	12177	{
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	12178	identifier_c param_name("IN");
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	12179	/* Get the value from a foo(<param_name> = <param_value>) style call */
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	12180	symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
169 bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	12181	symbol_c *IN_type_symbol = NULL;
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	12182
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	12183	/* Get the value from a foo(<param_value>) style call */
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	12184	if (IN_param_value == NULL)
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	12185	IN_param_value = function_call_param_iterator.next();
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	12186	if (IN_param_value != NULL) {
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	12187	IN_type_symbol = search_expression_type->get_type(IN_param_value);
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	12188	last_type_symbol = last_type_symbol && IN_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	12189	}
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	12190
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	12191	if(IN_type_symbol == NULL \|\| search_expression_type->is_same_type(&search_constant_type_c::ulint_type_name, last_type_symbol))
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	12192	{
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	12193
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	12194
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	12195	if (IN_type_symbol == NULL)
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	12196	IN_type_symbol = last_type_symbol;
149 05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	12197	ADD_PARAM_LIST(IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in)
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	12198	symbol_c * return_type_symbol = &search_constant_type_c::sint_type_name;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	12199	function_type_prefix = return_type_symbol;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	12200	break;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	12201
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	12202	}
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	12203
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	12204
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	12205	ERROR;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	12206	}
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	12207
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	12208	}/function_ulint_to_sint/
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	12209	break;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	12210
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	12211	/****
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	12212	*ULINT_TO_LINT
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	12213	*/
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	12214	case function_ulint_to_lint :
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	12215	{
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	12216	symbol_c *last_type_symbol = NULL;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	12217
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	12218	{
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	12219	identifier_c param_name("IN");
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	12220	/* Get the value from a foo(<param_name> = <param_value>) style call */
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	12221	symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
169 bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	12222	symbol_c *IN_type_symbol = NULL;
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	12223
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	12224	/* Get the value from a foo(<param_value>) style call */
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	12225	if (IN_param_value == NULL)
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	12226	IN_param_value = function_call_param_iterator.next();
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	12227	if (IN_param_value != NULL) {
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	12228	IN_type_symbol = search_expression_type->get_type(IN_param_value);
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	12229	last_type_symbol = last_type_symbol && IN_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	12230	}
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	12231
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	12232	if(IN_type_symbol == NULL \|\| search_expression_type->is_same_type(&search_constant_type_c::ulint_type_name, last_type_symbol))
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	12233	{
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	12234
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	12235
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	12236	if (IN_type_symbol == NULL)
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	12237	IN_type_symbol = last_type_symbol;
149 05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	12238	ADD_PARAM_LIST(IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in)
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	12239	symbol_c * return_type_symbol = &search_constant_type_c::lint_type_name;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	12240	function_type_prefix = return_type_symbol;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	12241	break;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	12242
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	12243	}
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	12244
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	12245
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	12246	ERROR;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	12247	}
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	12248
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	12249	}/function_ulint_to_lint/
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	12250	break;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	12251
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	12252	/****
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	12253	*ULINT_TO_DINT
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	12254	*/
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	12255	case function_ulint_to_dint :
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	12256	{
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	12257	symbol_c *last_type_symbol = NULL;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	12258
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	12259	{
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	12260	identifier_c param_name("IN");
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	12261	/* Get the value from a foo(<param_name> = <param_value>) style call */
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	12262	symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
169 bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	12263	symbol_c *IN_type_symbol = NULL;
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	12264
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	12265	/* Get the value from a foo(<param_value>) style call */
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	12266	if (IN_param_value == NULL)
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	12267	IN_param_value = function_call_param_iterator.next();
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	12268	if (IN_param_value != NULL) {
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	12269	IN_type_symbol = search_expression_type->get_type(IN_param_value);
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	12270	last_type_symbol = last_type_symbol && IN_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	12271	}
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	12272
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	12273	if(IN_type_symbol == NULL \|\| search_expression_type->is_same_type(&search_constant_type_c::ulint_type_name, last_type_symbol))
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	12274	{
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	12275
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	12276
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	12277	if (IN_type_symbol == NULL)
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	12278	IN_type_symbol = last_type_symbol;
149 05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	12279	ADD_PARAM_LIST(IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in)
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	12280	symbol_c * return_type_symbol = &search_constant_type_c::dint_type_name;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	12281	function_type_prefix = return_type_symbol;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	12282	break;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	12283
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	12284	}
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	12285
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	12286
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	12287	ERROR;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	12288	}
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	12289
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	12290	}/function_ulint_to_dint/
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	12291	break;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	12292
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	12293	/****
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	12294	*ULINT_TO_DATE
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	12295	*/
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	12296	case function_ulint_to_date :
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	12297	{
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	12298	symbol_c *last_type_symbol = NULL;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	12299
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	12300	{
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	12301	identifier_c param_name("IN");
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	12302	/* Get the value from a foo(<param_name> = <param_value>) style call */
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	12303	symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
169 bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	12304	symbol_c *IN_type_symbol = NULL;
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	12305
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	12306	/* Get the value from a foo(<param_value>) style call */
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	12307	if (IN_param_value == NULL)
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	12308	IN_param_value = function_call_param_iterator.next();
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	12309	if (IN_param_value != NULL) {
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	12310	IN_type_symbol = search_expression_type->get_type(IN_param_value);
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	12311	last_type_symbol = last_type_symbol && IN_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	12312	}
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	12313
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	12314	if(IN_type_symbol == NULL \|\| search_expression_type->is_same_type(&search_constant_type_c::ulint_type_name, last_type_symbol))
149 05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	12315	{
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	12316
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	12317	function_name = (symbol_c*)(new pragma_c("__int_to_time"));
169 bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	12318
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	12319	if (IN_type_symbol == NULL)
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	12320	IN_type_symbol = last_type_symbol;
149 05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	12321	ADD_PARAM_LIST(IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in)
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	12322	symbol_c * return_type_symbol = &search_constant_type_c::date_type_name;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	12323	function_type_prefix = return_type_symbol;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	12324	break;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	12325
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	12326	}
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	12327
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	12328
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	12329	ERROR;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	12330	}
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	12331
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	12332	}/function_ulint_to_date/
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	12333	break;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	12334
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	12335	/****
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	12336	*ULINT_TO_DWORD
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	12337	*/
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	12338	case function_ulint_to_dword :
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	12339	{
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	12340	symbol_c *last_type_symbol = NULL;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	12341
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	12342	{
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	12343	identifier_c param_name("IN");
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	12344	/* Get the value from a foo(<param_name> = <param_value>) style call */
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	12345	symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
169 bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	12346	symbol_c *IN_type_symbol = NULL;
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	12347
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	12348	/* Get the value from a foo(<param_value>) style call */
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	12349	if (IN_param_value == NULL)
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	12350	IN_param_value = function_call_param_iterator.next();
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	12351	if (IN_param_value != NULL) {
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	12352	IN_type_symbol = search_expression_type->get_type(IN_param_value);
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	12353	last_type_symbol = last_type_symbol && IN_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	12354	}
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	12355
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	12356	if(IN_type_symbol == NULL \|\| search_expression_type->is_same_type(&search_constant_type_c::ulint_type_name, last_type_symbol))
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	12357	{
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	12358
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	12359
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	12360	if (IN_type_symbol == NULL)
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	12361	IN_type_symbol = last_type_symbol;
149 05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	12362	ADD_PARAM_LIST(IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in)
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	12363	symbol_c * return_type_symbol = &search_constant_type_c::dword_type_name;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	12364	function_type_prefix = return_type_symbol;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	12365	break;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	12366
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	12367	}
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	12368
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	12369
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	12370	ERROR;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	12371	}
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	12372
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	12373	}/function_ulint_to_dword/
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	12374	break;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	12375
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	12376	/****
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	12377	*ULINT_TO_DT
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	12378	*/
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	12379	case function_ulint_to_dt :
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	12380	{
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	12381	symbol_c *last_type_symbol = NULL;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	12382
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	12383	{
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	12384	identifier_c param_name("IN");
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	12385	/* Get the value from a foo(<param_name> = <param_value>) style call */
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	12386	symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
169 bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	12387	symbol_c *IN_type_symbol = NULL;
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	12388
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	12389	/* Get the value from a foo(<param_value>) style call */
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	12390	if (IN_param_value == NULL)
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	12391	IN_param_value = function_call_param_iterator.next();
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	12392	if (IN_param_value != NULL) {
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	12393	IN_type_symbol = search_expression_type->get_type(IN_param_value);
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	12394	last_type_symbol = last_type_symbol && IN_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	12395	}
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	12396
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	12397	if(IN_type_symbol == NULL \|\| search_expression_type->is_same_type(&search_constant_type_c::ulint_type_name, last_type_symbol))
149 05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	12398	{
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	12399
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	12400	function_name = (symbol_c*)(new pragma_c("__int_to_time"));
169 bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	12401
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	12402	if (IN_type_symbol == NULL)
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	12403	IN_type_symbol = last_type_symbol;
149 05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	12404	ADD_PARAM_LIST(IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in)
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	12405	symbol_c * return_type_symbol = &search_constant_type_c::dt_type_name;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	12406	function_type_prefix = return_type_symbol;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	12407	break;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	12408
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	12409	}
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	12410
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	12411
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	12412	ERROR;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	12413	}
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	12414
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	12415	}/function_ulint_to_dt/
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	12416	break;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	12417
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	12418	/****
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	12419	*ULINT_TO_TOD
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	12420	*/
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	12421	case function_ulint_to_tod :
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	12422	{
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	12423	symbol_c *last_type_symbol = NULL;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	12424
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	12425	{
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	12426	identifier_c param_name("IN");
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	12427	/* Get the value from a foo(<param_name> = <param_value>) style call */
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	12428	symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
169 bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	12429	symbol_c *IN_type_symbol = NULL;
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	12430
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	12431	/* Get the value from a foo(<param_value>) style call */
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	12432	if (IN_param_value == NULL)
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	12433	IN_param_value = function_call_param_iterator.next();
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	12434	if (IN_param_value != NULL) {
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	12435	IN_type_symbol = search_expression_type->get_type(IN_param_value);
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	12436	last_type_symbol = last_type_symbol && IN_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	12437	}
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	12438
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	12439	if(IN_type_symbol == NULL \|\| search_expression_type->is_same_type(&search_constant_type_c::ulint_type_name, last_type_symbol))
149 05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	12440	{
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	12441
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	12442	function_name = (symbol_c*)(new pragma_c("__int_to_time"));
169 bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	12443
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	12444	if (IN_type_symbol == NULL)
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	12445	IN_type_symbol = last_type_symbol;
149 05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	12446	ADD_PARAM_LIST(IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in)
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	12447	symbol_c * return_type_symbol = &search_constant_type_c::tod_type_name;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	12448	function_type_prefix = return_type_symbol;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	12449	break;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	12450
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	12451	}
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	12452
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	12453
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	12454	ERROR;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	12455	}
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	12456
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	12457	}/function_ulint_to_tod/
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	12458	break;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	12459
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	12460	/****
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	12461	*ULINT_TO_UDINT
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	12462	*/
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	12463	case function_ulint_to_udint :
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	12464	{
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	12465	symbol_c *last_type_symbol = NULL;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	12466
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	12467	{
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	12468	identifier_c param_name("IN");
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	12469	/* Get the value from a foo(<param_name> = <param_value>) style call */
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	12470	symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
169 bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	12471	symbol_c *IN_type_symbol = NULL;
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	12472
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	12473	/* Get the value from a foo(<param_value>) style call */
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	12474	if (IN_param_value == NULL)
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	12475	IN_param_value = function_call_param_iterator.next();
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	12476	if (IN_param_value != NULL) {
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	12477	IN_type_symbol = search_expression_type->get_type(IN_param_value);
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	12478	last_type_symbol = last_type_symbol && IN_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	12479	}
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	12480
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	12481	if(IN_type_symbol == NULL \|\| search_expression_type->is_same_type(&search_constant_type_c::ulint_type_name, last_type_symbol))
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	12482	{
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	12483
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	12484
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	12485	if (IN_type_symbol == NULL)
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	12486	IN_type_symbol = last_type_symbol;
149 05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	12487	ADD_PARAM_LIST(IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in)
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	12488	symbol_c * return_type_symbol = &search_constant_type_c::udint_type_name;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	12489	function_type_prefix = return_type_symbol;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	12490	break;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	12491
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	12492	}
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	12493
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	12494
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	12495	ERROR;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	12496	}
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	12497
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	12498	}/function_ulint_to_udint/
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	12499	break;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	12500
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	12501	/****
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	12502	*ULINT_TO_WORD
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	12503	*/
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	12504	case function_ulint_to_word :
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	12505	{
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	12506	symbol_c *last_type_symbol = NULL;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	12507
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	12508	{
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	12509	identifier_c param_name("IN");
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	12510	/* Get the value from a foo(<param_name> = <param_value>) style call */
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	12511	symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
169 bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	12512	symbol_c *IN_type_symbol = NULL;
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	12513
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	12514	/* Get the value from a foo(<param_value>) style call */
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	12515	if (IN_param_value == NULL)
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	12516	IN_param_value = function_call_param_iterator.next();
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	12517	if (IN_param_value != NULL) {
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	12518	IN_type_symbol = search_expression_type->get_type(IN_param_value);
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	12519	last_type_symbol = last_type_symbol && IN_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	12520	}
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	12521
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	12522	if(IN_type_symbol == NULL \|\| search_expression_type->is_same_type(&search_constant_type_c::ulint_type_name, last_type_symbol))
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	12523	{
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	12524
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	12525
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	12526	if (IN_type_symbol == NULL)
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	12527	IN_type_symbol = last_type_symbol;
149 05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	12528	ADD_PARAM_LIST(IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in)
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	12529	symbol_c * return_type_symbol = &search_constant_type_c::word_type_name;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	12530	function_type_prefix = return_type_symbol;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	12531	break;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	12532
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	12533	}
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	12534
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	12535
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	12536	ERROR;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	12537	}
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	12538
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	12539	}/function_ulint_to_word/
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	12540	break;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	12541
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	12542	/****
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	12543	*ULINT_TO_STRING
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	12544	*/
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	12545	case function_ulint_to_string :
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	12546	{
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	12547	symbol_c *last_type_symbol = NULL;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	12548
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	12549	{
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	12550	identifier_c param_name("IN");
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	12551	/* Get the value from a foo(<param_name> = <param_value>) style call */
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	12552	symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
169 bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	12553	symbol_c *IN_type_symbol = NULL;
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	12554
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	12555	/* Get the value from a foo(<param_value>) style call */
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	12556	if (IN_param_value == NULL)
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	12557	IN_param_value = function_call_param_iterator.next();
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	12558	if (IN_param_value != NULL) {
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	12559	IN_type_symbol = search_expression_type->get_type(IN_param_value);
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	12560	last_type_symbol = last_type_symbol && IN_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	12561	}
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	12562
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	12563	if(IN_type_symbol == NULL \|\| search_expression_type->is_same_type(&search_constant_type_c::ulint_type_name, last_type_symbol))
149 05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	12564	{
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	12565
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	12566	function_name = (symbol_c*)(new pragma_c("__uint_to_string"));
169 bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	12567
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	12568	if (IN_type_symbol == NULL)
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	12569	IN_type_symbol = last_type_symbol;
149 05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	12570	ADD_PARAM_LIST(IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in)
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	12571	symbol_c * return_type_symbol = &search_constant_type_c::string_type_name;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	12572	function_type_prefix = return_type_symbol;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	12573	break;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	12574
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	12575	}
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	12576
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	12577
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	12578	ERROR;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	12579	}
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	12580
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	12581	}/function_ulint_to_string/
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	12582	break;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	12583
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	12584	/****
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	12585	*ULINT_TO_LWORD
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	12586	*/
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	12587	case function_ulint_to_lword :
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	12588	{
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	12589	symbol_c *last_type_symbol = NULL;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	12590
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	12591	{
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	12592	identifier_c param_name("IN");
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	12593	/* Get the value from a foo(<param_name> = <param_value>) style call */
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	12594	symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
169 bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	12595	symbol_c *IN_type_symbol = NULL;
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	12596
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	12597	/* Get the value from a foo(<param_value>) style call */
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	12598	if (IN_param_value == NULL)
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	12599	IN_param_value = function_call_param_iterator.next();
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	12600	if (IN_param_value != NULL) {
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	12601	IN_type_symbol = search_expression_type->get_type(IN_param_value);
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	12602	last_type_symbol = last_type_symbol && IN_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	12603	}
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	12604
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	12605	if(IN_type_symbol == NULL \|\| search_expression_type->is_same_type(&search_constant_type_c::ulint_type_name, last_type_symbol))
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	12606	{
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	12607
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	12608
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	12609	if (IN_type_symbol == NULL)
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	12610	IN_type_symbol = last_type_symbol;
149 05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	12611	ADD_PARAM_LIST(IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in)
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	12612	symbol_c * return_type_symbol = &search_constant_type_c::lword_type_name;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	12613	function_type_prefix = return_type_symbol;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	12614	break;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	12615
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	12616	}
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	12617
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	12618
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	12619	ERROR;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	12620	}
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	12621
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	12622	}/function_ulint_to_lword/
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	12623	break;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	12624
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	12625	/****
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	12626	*ULINT_TO_UINT
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	12627	*/
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	12628	case function_ulint_to_uint :
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	12629	{
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	12630	symbol_c *last_type_symbol = NULL;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	12631
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	12632	{
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	12633	identifier_c param_name("IN");
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	12634	/* Get the value from a foo(<param_name> = <param_value>) style call */
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	12635	symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
169 bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	12636	symbol_c *IN_type_symbol = NULL;
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	12637
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	12638	/* Get the value from a foo(<param_value>) style call */
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	12639	if (IN_param_value == NULL)
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	12640	IN_param_value = function_call_param_iterator.next();
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	12641	if (IN_param_value != NULL) {
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	12642	IN_type_symbol = search_expression_type->get_type(IN_param_value);
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	12643	last_type_symbol = last_type_symbol && IN_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	12644	}
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	12645
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	12646	if(IN_type_symbol == NULL \|\| search_expression_type->is_same_type(&search_constant_type_c::ulint_type_name, last_type_symbol))
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	12647	{
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	12648
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	12649
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	12650	if (IN_type_symbol == NULL)
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	12651	IN_type_symbol = last_type_symbol;
149 05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	12652	ADD_PARAM_LIST(IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in)
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	12653	symbol_c * return_type_symbol = &search_constant_type_c::uint_type_name;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	12654	function_type_prefix = return_type_symbol;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	12655	break;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	12656
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	12657	}
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	12658
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	12659
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	12660	ERROR;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	12661	}
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	12662
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	12663	}/function_ulint_to_uint/
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	12664	break;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	12665
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	12666	/****
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	12667	*ULINT_TO_LREAL
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	12668	*/
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	12669	case function_ulint_to_lreal :
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	12670	{
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	12671	symbol_c *last_type_symbol = NULL;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	12672
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	12673	{
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	12674	identifier_c param_name("IN");
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	12675	/* Get the value from a foo(<param_name> = <param_value>) style call */
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	12676	symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
169 bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	12677	symbol_c *IN_type_symbol = NULL;
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	12678
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	12679	/* Get the value from a foo(<param_value>) style call */
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	12680	if (IN_param_value == NULL)
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	12681	IN_param_value = function_call_param_iterator.next();
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	12682	if (IN_param_value != NULL) {
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	12683	IN_type_symbol = search_expression_type->get_type(IN_param_value);
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	12684	last_type_symbol = last_type_symbol && IN_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	12685	}
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	12686
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	12687	if(IN_type_symbol == NULL \|\| search_expression_type->is_same_type(&search_constant_type_c::ulint_type_name, last_type_symbol))
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	12688	{
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	12689
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	12690
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	12691	if (IN_type_symbol == NULL)
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	12692	IN_type_symbol = last_type_symbol;
149 05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	12693	ADD_PARAM_LIST(IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in)
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	12694	symbol_c * return_type_symbol = &search_constant_type_c::lreal_type_name;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	12695	function_type_prefix = return_type_symbol;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	12696	break;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	12697
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	12698	}
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	12699
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	12700
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	12701	ERROR;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	12702	}
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	12703
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	12704	}/function_ulint_to_lreal/
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	12705	break;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	12706
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	12707	/****
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	12708	*ULINT_TO_BYTE
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	12709	*/
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	12710	case function_ulint_to_byte :
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	12711	{
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	12712	symbol_c *last_type_symbol = NULL;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	12713
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	12714	{
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	12715	identifier_c param_name("IN");
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	12716	/* Get the value from a foo(<param_name> = <param_value>) style call */
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	12717	symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
169 bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	12718	symbol_c *IN_type_symbol = NULL;
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	12719
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	12720	/* Get the value from a foo(<param_value>) style call */
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	12721	if (IN_param_value == NULL)
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	12722	IN_param_value = function_call_param_iterator.next();
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	12723	if (IN_param_value != NULL) {
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	12724	IN_type_symbol = search_expression_type->get_type(IN_param_value);
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	12725	last_type_symbol = last_type_symbol && IN_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	12726	}
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	12727
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	12728	if(IN_type_symbol == NULL \|\| search_expression_type->is_same_type(&search_constant_type_c::ulint_type_name, last_type_symbol))
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	12729	{
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	12730
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	12731
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	12732	if (IN_type_symbol == NULL)
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	12733	IN_type_symbol = last_type_symbol;
149 05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	12734	ADD_PARAM_LIST(IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in)
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	12735	symbol_c * return_type_symbol = &search_constant_type_c::byte_type_name;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	12736	function_type_prefix = return_type_symbol;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	12737	break;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	12738
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	12739	}
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	12740
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	12741
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	12742	ERROR;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	12743	}
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	12744
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	12745	}/function_ulint_to_byte/
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	12746	break;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	12747
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	12748	/****
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	12749	*ULINT_TO_USINT
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	12750	*/
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	12751	case function_ulint_to_usint :
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	12752	{
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	12753	symbol_c *last_type_symbol = NULL;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	12754
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	12755	{
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	12756	identifier_c param_name("IN");
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	12757	/* Get the value from a foo(<param_name> = <param_value>) style call */
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	12758	symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
169 bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	12759	symbol_c *IN_type_symbol = NULL;
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	12760
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	12761	/* Get the value from a foo(<param_value>) style call */
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	12762	if (IN_param_value == NULL)
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	12763	IN_param_value = function_call_param_iterator.next();
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	12764	if (IN_param_value != NULL) {
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	12765	IN_type_symbol = search_expression_type->get_type(IN_param_value);
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	12766	last_type_symbol = last_type_symbol && IN_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	12767	}
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	12768
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	12769	if(IN_type_symbol == NULL \|\| search_expression_type->is_same_type(&search_constant_type_c::ulint_type_name, last_type_symbol))
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	12770	{
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	12771
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	12772
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	12773	if (IN_type_symbol == NULL)
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	12774	IN_type_symbol = last_type_symbol;
149 05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	12775	ADD_PARAM_LIST(IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in)
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	12776	symbol_c * return_type_symbol = &search_constant_type_c::usint_type_name;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	12777	function_type_prefix = return_type_symbol;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	12778	break;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	12779
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	12780	}
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	12781
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	12782
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	12783	ERROR;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	12784	}
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	12785
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	12786	}/function_ulint_to_usint/
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	12787	break;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	12788
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	12789	/****
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	12790	*ULINT_TO_BOOL
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	12791	*/
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	12792	case function_ulint_to_bool :
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	12793	{
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	12794	symbol_c *last_type_symbol = NULL;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	12795
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	12796	{
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	12797	identifier_c param_name("IN");
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	12798	/* Get the value from a foo(<param_name> = <param_value>) style call */
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	12799	symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
169 bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	12800	symbol_c *IN_type_symbol = NULL;
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	12801
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	12802	/* Get the value from a foo(<param_value>) style call */
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	12803	if (IN_param_value == NULL)
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	12804	IN_param_value = function_call_param_iterator.next();
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	12805	if (IN_param_value != NULL) {
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	12806	IN_type_symbol = search_expression_type->get_type(IN_param_value);
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	12807	last_type_symbol = last_type_symbol && IN_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	12808	}
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	12809
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	12810	if(IN_type_symbol == NULL \|\| search_expression_type->is_same_type(&search_constant_type_c::ulint_type_name, last_type_symbol))
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	12811	{
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	12812
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	12813
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	12814	if (IN_type_symbol == NULL)
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	12815	IN_type_symbol = last_type_symbol;
149 05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	12816	ADD_PARAM_LIST(IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in)
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	12817	symbol_c * return_type_symbol = &search_constant_type_c::bool_type_name;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	12818	function_type_prefix = return_type_symbol;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	12819	break;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	12820
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	12821	}
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	12822
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	12823
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	12824	ERROR;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	12825	}
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	12826
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	12827	}/function_ulint_to_bool/
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	12828	break;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	12829
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	12830	/****
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	12831	*ULINT_TO_TIME
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	12832	*/
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	12833	case function_ulint_to_time :
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	12834	{
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	12835	symbol_c *last_type_symbol = NULL;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	12836
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	12837	{
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	12838	identifier_c param_name("IN");
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	12839	/* Get the value from a foo(<param_name> = <param_value>) style call */
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	12840	symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
169 bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	12841	symbol_c *IN_type_symbol = NULL;
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	12842
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	12843	/* Get the value from a foo(<param_value>) style call */
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	12844	if (IN_param_value == NULL)
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	12845	IN_param_value = function_call_param_iterator.next();
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	12846	if (IN_param_value != NULL) {
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	12847	IN_type_symbol = search_expression_type->get_type(IN_param_value);
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	12848	last_type_symbol = last_type_symbol && IN_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	12849	}
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	12850
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	12851	if(IN_type_symbol == NULL \|\| search_expression_type->is_same_type(&search_constant_type_c::ulint_type_name, last_type_symbol))
149 05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	12852	{
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	12853
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	12854	function_name = (symbol_c*)(new pragma_c("__int_to_time"));
169 bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	12855
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	12856	if (IN_type_symbol == NULL)
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	12857	IN_type_symbol = last_type_symbol;
149 05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	12858	ADD_PARAM_LIST(IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in)
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	12859	symbol_c * return_type_symbol = &search_constant_type_c::time_type_name;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	12860	function_type_prefix = return_type_symbol;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	12861	break;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	12862
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	12863	}
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	12864
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	12865
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	12866	ERROR;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	12867	}
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	12868
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	12869	}/function_ulint_to_time/
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	12870	break;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	12871
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	12872	/****
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	12873	*ULINT_TO_INT
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	12874	*/
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	12875	case function_ulint_to_int :
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	12876	{
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	12877	symbol_c *last_type_symbol = NULL;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	12878
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	12879	{
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	12880	identifier_c param_name("IN");
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	12881	/* Get the value from a foo(<param_name> = <param_value>) style call */
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	12882	symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
169 bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	12883	symbol_c *IN_type_symbol = NULL;
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	12884
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	12885	/* Get the value from a foo(<param_value>) style call */
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	12886	if (IN_param_value == NULL)
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	12887	IN_param_value = function_call_param_iterator.next();
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	12888	if (IN_param_value != NULL) {
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	12889	IN_type_symbol = search_expression_type->get_type(IN_param_value);
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	12890	last_type_symbol = last_type_symbol && IN_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	12891	}
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	12892
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	12893	if(IN_type_symbol == NULL \|\| search_expression_type->is_same_type(&search_constant_type_c::ulint_type_name, last_type_symbol))
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	12894	{
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	12895
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	12896
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	12897	if (IN_type_symbol == NULL)
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	12898	IN_type_symbol = last_type_symbol;
149 05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	12899	ADD_PARAM_LIST(IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in)
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	12900	symbol_c * return_type_symbol = &search_constant_type_c::int_type_name;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	12901	function_type_prefix = return_type_symbol;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	12902	break;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	12903
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	12904	}
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	12905
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	12906
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	12907	ERROR;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	12908	}
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	12909
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	12910	}/function_ulint_to_int/
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	12911	break;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	12912
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	12913	/****
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	12914	*BOOL_TO_REAL
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	12915	*/
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	12916	case function_bool_to_real :
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	12917	{
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	12918	symbol_c *last_type_symbol = NULL;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	12919
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	12920	{
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	12921	identifier_c param_name("IN");
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	12922	/* Get the value from a foo(<param_name> = <param_value>) style call */
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	12923	symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
169 bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	12924	symbol_c *IN_type_symbol = NULL;
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	12925
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	12926	/* Get the value from a foo(<param_value>) style call */
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	12927	if (IN_param_value == NULL)
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	12928	IN_param_value = function_call_param_iterator.next();
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	12929	if (IN_param_value != NULL) {
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	12930	IN_type_symbol = search_expression_type->get_type(IN_param_value);
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	12931	last_type_symbol = last_type_symbol && IN_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	12932	}
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	12933
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	12934	if(IN_type_symbol == NULL \|\| search_expression_type->is_same_type(&search_constant_type_c::bool_type_name, last_type_symbol))
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	12935	{
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	12936
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	12937
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	12938	if (IN_type_symbol == NULL)
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	12939	IN_type_symbol = last_type_symbol;
149 05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	12940	ADD_PARAM_LIST(IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in)
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	12941	symbol_c * return_type_symbol = &search_constant_type_c::real_type_name;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	12942	function_type_prefix = return_type_symbol;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	12943	break;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	12944
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	12945	}
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	12946
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	12947
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	12948	ERROR;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	12949	}
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	12950
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	12951	}/function_bool_to_real/
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	12952	break;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	12953
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	12954	/****
70 e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	12955	*BOOL_TO_SINT
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	12956	*/
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	12957	case function_bool_to_sint :
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	12958	{
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	12959	symbol_c *last_type_symbol = NULL;
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	12960
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	12961	{
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	12962	identifier_c param_name("IN");
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	12963	/* Get the value from a foo(<param_name> = <param_value>) style call */
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	12964	symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
169 bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	12965	symbol_c *IN_type_symbol = NULL;
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	12966
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	12967	/* Get the value from a foo(<param_value>) style call */
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	12968	if (IN_param_value == NULL)
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	12969	IN_param_value = function_call_param_iterator.next();
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	12970	if (IN_param_value != NULL) {
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	12971	IN_type_symbol = search_expression_type->get_type(IN_param_value);
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	12972	last_type_symbol = last_type_symbol && IN_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	12973	}
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	12974
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	12975	if(IN_type_symbol == NULL \|\| search_expression_type->is_same_type(&search_constant_type_c::bool_type_name, last_type_symbol))
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	12976	{
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	12977
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	12978
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	12979	if (IN_type_symbol == NULL)
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	12980	IN_type_symbol = last_type_symbol;
149 05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	12981	ADD_PARAM_LIST(IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in)
70 e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	12982	symbol_c * return_type_symbol = &search_constant_type_c::sint_type_name;
149 05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	12983	function_type_prefix = return_type_symbol;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	12984	break;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	12985
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	12986	}
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	12987
70 e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	12988
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	12989	ERROR;
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	12990	}
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	12991
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	12992	}/function_bool_to_sint/
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	12993	break;
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	12994
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	12995	/****
149 05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	12996	*BOOL_TO_LINT
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	12997	*/
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	12998	case function_bool_to_lint :
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	12999	{
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	13000	symbol_c *last_type_symbol = NULL;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	13001
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	13002	{
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	13003	identifier_c param_name("IN");
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	13004	/* Get the value from a foo(<param_name> = <param_value>) style call */
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	13005	symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
169 bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	13006	symbol_c *IN_type_symbol = NULL;
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	13007
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	13008	/* Get the value from a foo(<param_value>) style call */
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	13009	if (IN_param_value == NULL)
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	13010	IN_param_value = function_call_param_iterator.next();
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	13011	if (IN_param_value != NULL) {
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	13012	IN_type_symbol = search_expression_type->get_type(IN_param_value);
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	13013	last_type_symbol = last_type_symbol && IN_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	13014	}
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	13015
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	13016	if(IN_type_symbol == NULL \|\| search_expression_type->is_same_type(&search_constant_type_c::bool_type_name, last_type_symbol))
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	13017	{
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	13018
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	13019
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	13020	if (IN_type_symbol == NULL)
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	13021	IN_type_symbol = last_type_symbol;
149 05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	13022	ADD_PARAM_LIST(IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in)
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	13023	symbol_c * return_type_symbol = &search_constant_type_c::lint_type_name;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	13024	function_type_prefix = return_type_symbol;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	13025	break;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	13026
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	13027	}
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	13028
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	13029
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	13030	ERROR;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	13031	}
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	13032
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	13033	}/function_bool_to_lint/
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	13034	break;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	13035
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	13036	/****
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	13037	*BOOL_TO_DINT
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	13038	*/
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	13039	case function_bool_to_dint :
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	13040	{
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	13041	symbol_c *last_type_symbol = NULL;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	13042
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	13043	{
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	13044	identifier_c param_name("IN");
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	13045	/* Get the value from a foo(<param_name> = <param_value>) style call */
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	13046	symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
169 bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	13047	symbol_c *IN_type_symbol = NULL;
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	13048
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	13049	/* Get the value from a foo(<param_value>) style call */
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	13050	if (IN_param_value == NULL)
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	13051	IN_param_value = function_call_param_iterator.next();
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	13052	if (IN_param_value != NULL) {
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	13053	IN_type_symbol = search_expression_type->get_type(IN_param_value);
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	13054	last_type_symbol = last_type_symbol && IN_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	13055	}
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	13056
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	13057	if(IN_type_symbol == NULL \|\| search_expression_type->is_same_type(&search_constant_type_c::bool_type_name, last_type_symbol))
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	13058	{
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	13059
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	13060
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	13061	if (IN_type_symbol == NULL)
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	13062	IN_type_symbol = last_type_symbol;
149 05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	13063	ADD_PARAM_LIST(IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in)
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	13064	symbol_c * return_type_symbol = &search_constant_type_c::dint_type_name;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	13065	function_type_prefix = return_type_symbol;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	13066	break;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	13067
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	13068	}
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	13069
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	13070
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	13071	ERROR;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	13072	}
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	13073
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	13074	}/function_bool_to_dint/
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	13075	break;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	13076
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	13077	/****
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	13078	*BOOL_TO_DATE
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	13079	*/
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	13080	case function_bool_to_date :
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	13081	{
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	13082	symbol_c *last_type_symbol = NULL;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	13083
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	13084	{
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	13085	identifier_c param_name("IN");
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	13086	/* Get the value from a foo(<param_name> = <param_value>) style call */
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	13087	symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
169 bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	13088	symbol_c *IN_type_symbol = NULL;
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	13089
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	13090	/* Get the value from a foo(<param_value>) style call */
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	13091	if (IN_param_value == NULL)
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	13092	IN_param_value = function_call_param_iterator.next();
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	13093	if (IN_param_value != NULL) {
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	13094	IN_type_symbol = search_expression_type->get_type(IN_param_value);
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	13095	last_type_symbol = last_type_symbol && IN_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	13096	}
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	13097
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	13098	if(IN_type_symbol == NULL \|\| search_expression_type->is_same_type(&search_constant_type_c::bool_type_name, last_type_symbol))
149 05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	13099	{
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	13100
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	13101	function_name = (symbol_c*)(new pragma_c("__int_to_time"));
169 bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	13102
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	13103	if (IN_type_symbol == NULL)
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	13104	IN_type_symbol = last_type_symbol;
149 05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	13105	ADD_PARAM_LIST(IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in)
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	13106	symbol_c * return_type_symbol = &search_constant_type_c::date_type_name;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	13107	function_type_prefix = return_type_symbol;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	13108	break;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	13109
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	13110	}
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	13111
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	13112
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	13113	ERROR;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	13114	}
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	13115
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	13116	}/function_bool_to_date/
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	13117	break;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	13118
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	13119	/****
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	13120	*BOOL_TO_DWORD
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	13121	*/
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	13122	case function_bool_to_dword :
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	13123	{
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	13124	symbol_c *last_type_symbol = NULL;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	13125
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	13126	{
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	13127	identifier_c param_name("IN");
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	13128	/* Get the value from a foo(<param_name> = <param_value>) style call */
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	13129	symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
169 bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	13130	symbol_c *IN_type_symbol = NULL;
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	13131
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	13132	/* Get the value from a foo(<param_value>) style call */
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	13133	if (IN_param_value == NULL)
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	13134	IN_param_value = function_call_param_iterator.next();
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	13135	if (IN_param_value != NULL) {
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	13136	IN_type_symbol = search_expression_type->get_type(IN_param_value);
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	13137	last_type_symbol = last_type_symbol && IN_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	13138	}
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	13139
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	13140	if(IN_type_symbol == NULL \|\| search_expression_type->is_same_type(&search_constant_type_c::bool_type_name, last_type_symbol))
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	13141	{
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	13142
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	13143
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	13144	if (IN_type_symbol == NULL)
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	13145	IN_type_symbol = last_type_symbol;
149 05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	13146	ADD_PARAM_LIST(IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in)
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	13147	symbol_c * return_type_symbol = &search_constant_type_c::dword_type_name;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	13148	function_type_prefix = return_type_symbol;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	13149	break;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	13150
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	13151	}
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	13152
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	13153
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	13154	ERROR;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	13155	}
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	13156
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	13157	}/function_bool_to_dword/
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	13158	break;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	13159
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	13160	/****
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	13161	*BOOL_TO_DT
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	13162	*/
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	13163	case function_bool_to_dt :
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	13164	{
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	13165	symbol_c *last_type_symbol = NULL;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	13166
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	13167	{
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	13168	identifier_c param_name("IN");
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	13169	/* Get the value from a foo(<param_name> = <param_value>) style call */
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	13170	symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
169 bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	13171	symbol_c *IN_type_symbol = NULL;
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	13172
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	13173	/* Get the value from a foo(<param_value>) style call */
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	13174	if (IN_param_value == NULL)
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	13175	IN_param_value = function_call_param_iterator.next();
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	13176	if (IN_param_value != NULL) {
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	13177	IN_type_symbol = search_expression_type->get_type(IN_param_value);
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	13178	last_type_symbol = last_type_symbol && IN_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	13179	}
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	13180
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	13181	if(IN_type_symbol == NULL \|\| search_expression_type->is_same_type(&search_constant_type_c::bool_type_name, last_type_symbol))
149 05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	13182	{
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	13183
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	13184	function_name = (symbol_c*)(new pragma_c("__int_to_time"));
169 bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	13185
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	13186	if (IN_type_symbol == NULL)
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	13187	IN_type_symbol = last_type_symbol;
149 05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	13188	ADD_PARAM_LIST(IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in)
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	13189	symbol_c * return_type_symbol = &search_constant_type_c::dt_type_name;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	13190	function_type_prefix = return_type_symbol;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	13191	break;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	13192
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	13193	}
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	13194
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	13195
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	13196	ERROR;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	13197	}
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	13198
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	13199	}/function_bool_to_dt/
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	13200	break;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	13201
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	13202	/****
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	13203	*BOOL_TO_TOD
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	13204	*/
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	13205	case function_bool_to_tod :
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	13206	{
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	13207	symbol_c *last_type_symbol = NULL;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	13208
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	13209	{
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	13210	identifier_c param_name("IN");
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	13211	/* Get the value from a foo(<param_name> = <param_value>) style call */
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	13212	symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
169 bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	13213	symbol_c *IN_type_symbol = NULL;
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	13214
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	13215	/* Get the value from a foo(<param_value>) style call */
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	13216	if (IN_param_value == NULL)
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	13217	IN_param_value = function_call_param_iterator.next();
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	13218	if (IN_param_value != NULL) {
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	13219	IN_type_symbol = search_expression_type->get_type(IN_param_value);
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	13220	last_type_symbol = last_type_symbol && IN_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	13221	}
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	13222
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	13223	if(IN_type_symbol == NULL \|\| search_expression_type->is_same_type(&search_constant_type_c::bool_type_name, last_type_symbol))
149 05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	13224	{
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	13225
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	13226	function_name = (symbol_c*)(new pragma_c("__int_to_time"));
169 bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	13227
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	13228	if (IN_type_symbol == NULL)
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	13229	IN_type_symbol = last_type_symbol;
149 05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	13230	ADD_PARAM_LIST(IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in)
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	13231	symbol_c * return_type_symbol = &search_constant_type_c::tod_type_name;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	13232	function_type_prefix = return_type_symbol;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	13233	break;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	13234
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	13235	}
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	13236
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	13237
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	13238	ERROR;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	13239	}
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	13240
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	13241	}/function_bool_to_tod/
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	13242	break;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	13243
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	13244	/****
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	13245	*BOOL_TO_UDINT
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	13246	*/
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	13247	case function_bool_to_udint :
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	13248	{
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	13249	symbol_c *last_type_symbol = NULL;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	13250
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	13251	{
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	13252	identifier_c param_name("IN");
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	13253	/* Get the value from a foo(<param_name> = <param_value>) style call */
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	13254	symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
169 bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	13255	symbol_c *IN_type_symbol = NULL;
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	13256
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	13257	/* Get the value from a foo(<param_value>) style call */
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	13258	if (IN_param_value == NULL)
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	13259	IN_param_value = function_call_param_iterator.next();
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	13260	if (IN_param_value != NULL) {
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	13261	IN_type_symbol = search_expression_type->get_type(IN_param_value);
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	13262	last_type_symbol = last_type_symbol && IN_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	13263	}
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	13264
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	13265	if(IN_type_symbol == NULL \|\| search_expression_type->is_same_type(&search_constant_type_c::bool_type_name, last_type_symbol))
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	13266	{
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	13267
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	13268
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	13269	if (IN_type_symbol == NULL)
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	13270	IN_type_symbol = last_type_symbol;
149 05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	13271	ADD_PARAM_LIST(IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in)
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	13272	symbol_c * return_type_symbol = &search_constant_type_c::udint_type_name;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	13273	function_type_prefix = return_type_symbol;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	13274	break;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	13275
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	13276	}
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	13277
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	13278
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	13279	ERROR;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	13280	}
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	13281
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	13282	}/function_bool_to_udint/
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	13283	break;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	13284
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	13285	/****
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	13286	*BOOL_TO_WORD
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	13287	*/
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	13288	case function_bool_to_word :
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	13289	{
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	13290	symbol_c *last_type_symbol = NULL;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	13291
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	13292	{
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	13293	identifier_c param_name("IN");
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	13294	/* Get the value from a foo(<param_name> = <param_value>) style call */
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	13295	symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
169 bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	13296	symbol_c *IN_type_symbol = NULL;
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	13297
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	13298	/* Get the value from a foo(<param_value>) style call */
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	13299	if (IN_param_value == NULL)
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	13300	IN_param_value = function_call_param_iterator.next();
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	13301	if (IN_param_value != NULL) {
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	13302	IN_type_symbol = search_expression_type->get_type(IN_param_value);
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	13303	last_type_symbol = last_type_symbol && IN_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	13304	}
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	13305
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	13306	if(IN_type_symbol == NULL \|\| search_expression_type->is_same_type(&search_constant_type_c::bool_type_name, last_type_symbol))
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	13307	{
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	13308
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	13309
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	13310	if (IN_type_symbol == NULL)
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	13311	IN_type_symbol = last_type_symbol;
149 05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	13312	ADD_PARAM_LIST(IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in)
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	13313	symbol_c * return_type_symbol = &search_constant_type_c::word_type_name;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	13314	function_type_prefix = return_type_symbol;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	13315	break;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	13316
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	13317	}
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	13318
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	13319
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	13320	ERROR;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	13321	}
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	13322
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	13323	}/function_bool_to_word/
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	13324	break;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	13325
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	13326	/****
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	13327	*BOOL_TO_STRING
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	13328	*/
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	13329	case function_bool_to_string :
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	13330	{
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	13331	symbol_c *last_type_symbol = NULL;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	13332
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	13333	{
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	13334	identifier_c param_name("IN");
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	13335	/* Get the value from a foo(<param_name> = <param_value>) style call */
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	13336	symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
169 bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	13337	symbol_c *IN_type_symbol = NULL;
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	13338
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	13339	/* Get the value from a foo(<param_value>) style call */
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	13340	if (IN_param_value == NULL)
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	13341	IN_param_value = function_call_param_iterator.next();
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	13342	if (IN_param_value != NULL) {
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	13343	IN_type_symbol = search_expression_type->get_type(IN_param_value);
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	13344	last_type_symbol = last_type_symbol && IN_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	13345	}
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	13346
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	13347	if(IN_type_symbol == NULL \|\| search_expression_type->is_same_type(&search_constant_type_c::bool_type_name, last_type_symbol))
149 05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	13348	{
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	13349
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	13350	function_name = (symbol_c*)(new pragma_c("__bool_to_string"));
169 bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	13351
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	13352	if (IN_type_symbol == NULL)
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	13353	IN_type_symbol = last_type_symbol;
149 05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	13354	ADD_PARAM_LIST(IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in)
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	13355	symbol_c * return_type_symbol = &search_constant_type_c::string_type_name;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	13356	function_type_prefix = return_type_symbol;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	13357	break;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	13358
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	13359	}
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	13360
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	13361
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	13362	ERROR;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	13363	}
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	13364
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	13365	}/function_bool_to_string/
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	13366	break;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	13367
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	13368	/****
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	13369	*BOOL_TO_LWORD
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	13370	*/
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	13371	case function_bool_to_lword :
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	13372	{
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	13373	symbol_c *last_type_symbol = NULL;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	13374
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	13375	{
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	13376	identifier_c param_name("IN");
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	13377	/* Get the value from a foo(<param_name> = <param_value>) style call */
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	13378	symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
169 bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	13379	symbol_c *IN_type_symbol = NULL;
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	13380
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	13381	/* Get the value from a foo(<param_value>) style call */
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	13382	if (IN_param_value == NULL)
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	13383	IN_param_value = function_call_param_iterator.next();
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	13384	if (IN_param_value != NULL) {
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	13385	IN_type_symbol = search_expression_type->get_type(IN_param_value);
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	13386	last_type_symbol = last_type_symbol && IN_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	13387	}
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	13388
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	13389	if(IN_type_symbol == NULL \|\| search_expression_type->is_same_type(&search_constant_type_c::bool_type_name, last_type_symbol))
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	13390	{
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	13391
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	13392
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	13393	if (IN_type_symbol == NULL)
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	13394	IN_type_symbol = last_type_symbol;
149 05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	13395	ADD_PARAM_LIST(IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in)
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	13396	symbol_c * return_type_symbol = &search_constant_type_c::lword_type_name;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	13397	function_type_prefix = return_type_symbol;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	13398	break;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	13399
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	13400	}
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	13401
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	13402
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	13403	ERROR;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	13404	}
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	13405
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	13406	}/function_bool_to_lword/
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	13407	break;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	13408
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	13409	/****
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	13410	*BOOL_TO_UINT
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	13411	*/
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	13412	case function_bool_to_uint :
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	13413	{
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	13414	symbol_c *last_type_symbol = NULL;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	13415
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	13416	{
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	13417	identifier_c param_name("IN");
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	13418	/* Get the value from a foo(<param_name> = <param_value>) style call */
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	13419	symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
169 bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	13420	symbol_c *IN_type_symbol = NULL;
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	13421
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	13422	/* Get the value from a foo(<param_value>) style call */
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	13423	if (IN_param_value == NULL)
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	13424	IN_param_value = function_call_param_iterator.next();
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	13425	if (IN_param_value != NULL) {
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	13426	IN_type_symbol = search_expression_type->get_type(IN_param_value);
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	13427	last_type_symbol = last_type_symbol && IN_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	13428	}
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	13429
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	13430	if(IN_type_symbol == NULL \|\| search_expression_type->is_same_type(&search_constant_type_c::bool_type_name, last_type_symbol))
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	13431	{
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	13432
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	13433
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	13434	if (IN_type_symbol == NULL)
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	13435	IN_type_symbol = last_type_symbol;
149 05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	13436	ADD_PARAM_LIST(IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in)
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	13437	symbol_c * return_type_symbol = &search_constant_type_c::uint_type_name;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	13438	function_type_prefix = return_type_symbol;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	13439	break;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	13440
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	13441	}
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	13442
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	13443
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	13444	ERROR;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	13445	}
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	13446
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	13447	}/function_bool_to_uint/
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	13448	break;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	13449
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	13450	/****
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	13451	*BOOL_TO_LREAL
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	13452	*/
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	13453	case function_bool_to_lreal :
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	13454	{
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	13455	symbol_c *last_type_symbol = NULL;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	13456
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	13457	{
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	13458	identifier_c param_name("IN");
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	13459	/* Get the value from a foo(<param_name> = <param_value>) style call */
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	13460	symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
169 bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	13461	symbol_c *IN_type_symbol = NULL;
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	13462
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	13463	/* Get the value from a foo(<param_value>) style call */
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	13464	if (IN_param_value == NULL)
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	13465	IN_param_value = function_call_param_iterator.next();
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	13466	if (IN_param_value != NULL) {
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	13467	IN_type_symbol = search_expression_type->get_type(IN_param_value);
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	13468	last_type_symbol = last_type_symbol && IN_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	13469	}
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	13470
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	13471	if(IN_type_symbol == NULL \|\| search_expression_type->is_same_type(&search_constant_type_c::bool_type_name, last_type_symbol))
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	13472	{
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	13473
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	13474
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	13475	if (IN_type_symbol == NULL)
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	13476	IN_type_symbol = last_type_symbol;
149 05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	13477	ADD_PARAM_LIST(IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in)
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	13478	symbol_c * return_type_symbol = &search_constant_type_c::lreal_type_name;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	13479	function_type_prefix = return_type_symbol;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	13480	break;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	13481
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	13482	}
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	13483
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	13484
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	13485	ERROR;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	13486	}
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	13487
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	13488	}/function_bool_to_lreal/
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	13489	break;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	13490
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	13491	/****
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	13492	*BOOL_TO_BYTE
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	13493	*/
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	13494	case function_bool_to_byte :
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	13495	{
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	13496	symbol_c *last_type_symbol = NULL;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	13497
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	13498	{
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	13499	identifier_c param_name("IN");
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	13500	/* Get the value from a foo(<param_name> = <param_value>) style call */
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	13501	symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
169 bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	13502	symbol_c *IN_type_symbol = NULL;
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	13503
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	13504	/* Get the value from a foo(<param_value>) style call */
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	13505	if (IN_param_value == NULL)
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	13506	IN_param_value = function_call_param_iterator.next();
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	13507	if (IN_param_value != NULL) {
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	13508	IN_type_symbol = search_expression_type->get_type(IN_param_value);
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	13509	last_type_symbol = last_type_symbol && IN_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	13510	}
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	13511
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	13512	if(IN_type_symbol == NULL \|\| search_expression_type->is_same_type(&search_constant_type_c::bool_type_name, last_type_symbol))
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	13513	{
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	13514
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	13515
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	13516	if (IN_type_symbol == NULL)
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	13517	IN_type_symbol = last_type_symbol;
149 05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	13518	ADD_PARAM_LIST(IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in)
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	13519	symbol_c * return_type_symbol = &search_constant_type_c::byte_type_name;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	13520	function_type_prefix = return_type_symbol;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	13521	break;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	13522
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	13523	}
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	13524
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	13525
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	13526	ERROR;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	13527	}
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	13528
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	13529	}/function_bool_to_byte/
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	13530	break;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	13531
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	13532	/****
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	13533	*BOOL_TO_USINT
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	13534	*/
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	13535	case function_bool_to_usint :
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	13536	{
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	13537	symbol_c *last_type_symbol = NULL;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	13538
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	13539	{
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	13540	identifier_c param_name("IN");
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	13541	/* Get the value from a foo(<param_name> = <param_value>) style call */
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	13542	symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
169 bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	13543	symbol_c *IN_type_symbol = NULL;
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	13544
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	13545	/* Get the value from a foo(<param_value>) style call */
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	13546	if (IN_param_value == NULL)
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	13547	IN_param_value = function_call_param_iterator.next();
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	13548	if (IN_param_value != NULL) {
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	13549	IN_type_symbol = search_expression_type->get_type(IN_param_value);
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	13550	last_type_symbol = last_type_symbol && IN_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	13551	}
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	13552
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	13553	if(IN_type_symbol == NULL \|\| search_expression_type->is_same_type(&search_constant_type_c::bool_type_name, last_type_symbol))
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	13554	{
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	13555
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	13556
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	13557	if (IN_type_symbol == NULL)
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	13558	IN_type_symbol = last_type_symbol;
149 05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	13559	ADD_PARAM_LIST(IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in)
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	13560	symbol_c * return_type_symbol = &search_constant_type_c::usint_type_name;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	13561	function_type_prefix = return_type_symbol;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	13562	break;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	13563
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	13564	}
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	13565
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	13566
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	13567	ERROR;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	13568	}
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	13569
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	13570	}/function_bool_to_usint/
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	13571	break;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	13572
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	13573	/****
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	13574	*BOOL_TO_ULINT
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	13575	*/
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	13576	case function_bool_to_ulint :
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	13577	{
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	13578	symbol_c *last_type_symbol = NULL;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	13579
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	13580	{
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	13581	identifier_c param_name("IN");
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	13582	/* Get the value from a foo(<param_name> = <param_value>) style call */
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	13583	symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
169 bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	13584	symbol_c *IN_type_symbol = NULL;
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	13585
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	13586	/* Get the value from a foo(<param_value>) style call */
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	13587	if (IN_param_value == NULL)
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	13588	IN_param_value = function_call_param_iterator.next();
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	13589	if (IN_param_value != NULL) {
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	13590	IN_type_symbol = search_expression_type->get_type(IN_param_value);
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	13591	last_type_symbol = last_type_symbol && IN_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	13592	}
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	13593
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	13594	if(IN_type_symbol == NULL \|\| search_expression_type->is_same_type(&search_constant_type_c::bool_type_name, last_type_symbol))
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	13595	{
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	13596
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	13597
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	13598	if (IN_type_symbol == NULL)
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	13599	IN_type_symbol = last_type_symbol;
149 05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	13600	ADD_PARAM_LIST(IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in)
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	13601	symbol_c * return_type_symbol = &search_constant_type_c::ulint_type_name;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	13602	function_type_prefix = return_type_symbol;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	13603	break;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	13604
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	13605	}
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	13606
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	13607
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	13608	ERROR;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	13609	}
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	13610
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	13611	}/function_bool_to_ulint/
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	13612	break;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	13613
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	13614	/****
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	13615	*BOOL_TO_TIME
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	13616	*/
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	13617	case function_bool_to_time :
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	13618	{
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	13619	symbol_c *last_type_symbol = NULL;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	13620
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	13621	{
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	13622	identifier_c param_name("IN");
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	13623	/* Get the value from a foo(<param_name> = <param_value>) style call */
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	13624	symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
169 bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	13625	symbol_c *IN_type_symbol = NULL;
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	13626
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	13627	/* Get the value from a foo(<param_value>) style call */
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	13628	if (IN_param_value == NULL)
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	13629	IN_param_value = function_call_param_iterator.next();
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	13630	if (IN_param_value != NULL) {
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	13631	IN_type_symbol = search_expression_type->get_type(IN_param_value);
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	13632	last_type_symbol = last_type_symbol && IN_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	13633	}
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	13634
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	13635	if(IN_type_symbol == NULL \|\| search_expression_type->is_same_type(&search_constant_type_c::bool_type_name, last_type_symbol))
149 05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	13636	{
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	13637
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	13638	function_name = (symbol_c*)(new pragma_c("__int_to_time"));
169 bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	13639
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	13640	if (IN_type_symbol == NULL)
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	13641	IN_type_symbol = last_type_symbol;
149 05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	13642	ADD_PARAM_LIST(IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in)
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	13643	symbol_c * return_type_symbol = &search_constant_type_c::time_type_name;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	13644	function_type_prefix = return_type_symbol;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	13645	break;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	13646
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	13647	}
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	13648
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	13649
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	13650	ERROR;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	13651	}
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	13652
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	13653	}/function_bool_to_time/
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	13654	break;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	13655
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	13656	/****
70 e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	13657	*BOOL_TO_INT
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	13658	*/
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	13659	case function_bool_to_int :
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	13660	{
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	13661	symbol_c *last_type_symbol = NULL;
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	13662
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	13663	{
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	13664	identifier_c param_name("IN");
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	13665	/* Get the value from a foo(<param_name> = <param_value>) style call */
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	13666	symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
169 bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	13667	symbol_c *IN_type_symbol = NULL;
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	13668
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	13669	/* Get the value from a foo(<param_value>) style call */
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	13670	if (IN_param_value == NULL)
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	13671	IN_param_value = function_call_param_iterator.next();
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	13672	if (IN_param_value != NULL) {
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	13673	IN_type_symbol = search_expression_type->get_type(IN_param_value);
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	13674	last_type_symbol = last_type_symbol && IN_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	13675	}
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	13676
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	13677	if(IN_type_symbol == NULL \|\| search_expression_type->is_same_type(&search_constant_type_c::bool_type_name, last_type_symbol))
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	13678	{
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	13679
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	13680
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	13681	if (IN_type_symbol == NULL)
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	13682	IN_type_symbol = last_type_symbol;
149 05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	13683	ADD_PARAM_LIST(IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in)
70 e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	13684	symbol_c * return_type_symbol = &search_constant_type_c::int_type_name;
149 05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	13685	function_type_prefix = return_type_symbol;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	13686	break;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	13687
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	13688	}
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	13689
70 e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	13690
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	13691	ERROR;
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	13692	}
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	13693
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	13694	}/function_bool_to_int/
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	13695	break;
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	13696
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	13697	/****
149 05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	13698	*TIME_TO_REAL
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	13699	*/
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	13700	case function_time_to_real :
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	13701	{
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	13702	symbol_c *last_type_symbol = NULL;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	13703
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	13704	{
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	13705	identifier_c param_name("IN");
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	13706	/* Get the value from a foo(<param_name> = <param_value>) style call */
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	13707	symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
169 bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	13708	symbol_c *IN_type_symbol = NULL;
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	13709
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	13710	/* Get the value from a foo(<param_value>) style call */
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	13711	if (IN_param_value == NULL)
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	13712	IN_param_value = function_call_param_iterator.next();
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	13713	if (IN_param_value != NULL) {
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	13714	IN_type_symbol = search_expression_type->get_type(IN_param_value);
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	13715	last_type_symbol = last_type_symbol && IN_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	13716	}
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	13717
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	13718	if(IN_type_symbol == NULL \|\| search_expression_type->is_same_type(&search_constant_type_c::time_type_name, last_type_symbol))
149 05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	13719	{
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	13720
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	13721	function_name = (symbol_c*)(new pragma_c("__time_to_real"));
169 bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	13722
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	13723	if (IN_type_symbol == NULL)
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	13724	IN_type_symbol = last_type_symbol;
149 05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	13725	ADD_PARAM_LIST(IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in)
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	13726	symbol_c * return_type_symbol = &search_constant_type_c::real_type_name;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	13727	function_type_prefix = return_type_symbol;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	13728	break;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	13729
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	13730	}
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	13731
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	13732
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	13733	ERROR;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	13734	}
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	13735
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	13736	}/function_time_to_real/
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	13737	break;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	13738
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	13739	/****
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	13740	*TIME_TO_SINT
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	13741	*/
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	13742	case function_time_to_sint :
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	13743	{
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	13744	symbol_c *last_type_symbol = NULL;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	13745
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	13746	{
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	13747	identifier_c param_name("IN");
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	13748	/* Get the value from a foo(<param_name> = <param_value>) style call */
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	13749	symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
169 bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	13750	symbol_c *IN_type_symbol = NULL;
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	13751
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	13752	/* Get the value from a foo(<param_value>) style call */
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	13753	if (IN_param_value == NULL)
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	13754	IN_param_value = function_call_param_iterator.next();
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	13755	if (IN_param_value != NULL) {
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	13756	IN_type_symbol = search_expression_type->get_type(IN_param_value);
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	13757	last_type_symbol = last_type_symbol && IN_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	13758	}
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	13759
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	13760	if(IN_type_symbol == NULL \|\| search_expression_type->is_same_type(&search_constant_type_c::time_type_name, last_type_symbol))
149 05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	13761	{
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	13762
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	13763	function_name = (symbol_c*)(new pragma_c("__time_to_int"));
169 bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	13764
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	13765	if (IN_type_symbol == NULL)
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	13766	IN_type_symbol = last_type_symbol;
149 05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	13767	ADD_PARAM_LIST(IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in)
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	13768	symbol_c * return_type_symbol = &search_constant_type_c::sint_type_name;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	13769	function_type_prefix = return_type_symbol;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	13770	break;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	13771
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	13772	}
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	13773
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	13774
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	13775	ERROR;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	13776	}
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	13777
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	13778	}/function_time_to_sint/
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	13779	break;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	13780
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	13781	/****
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	13782	*TIME_TO_LINT
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	13783	*/
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	13784	case function_time_to_lint :
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	13785	{
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	13786	symbol_c *last_type_symbol = NULL;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	13787
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	13788	{
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	13789	identifier_c param_name("IN");
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	13790	/* Get the value from a foo(<param_name> = <param_value>) style call */
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	13791	symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
169 bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	13792	symbol_c *IN_type_symbol = NULL;
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	13793
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	13794	/* Get the value from a foo(<param_value>) style call */
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	13795	if (IN_param_value == NULL)
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	13796	IN_param_value = function_call_param_iterator.next();
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	13797	if (IN_param_value != NULL) {
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	13798	IN_type_symbol = search_expression_type->get_type(IN_param_value);
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	13799	last_type_symbol = last_type_symbol && IN_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	13800	}
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	13801
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	13802	if(IN_type_symbol == NULL \|\| search_expression_type->is_same_type(&search_constant_type_c::time_type_name, last_type_symbol))
149 05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	13803	{
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	13804
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	13805	function_name = (symbol_c*)(new pragma_c("__time_to_int"));
169 bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	13806
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	13807	if (IN_type_symbol == NULL)
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	13808	IN_type_symbol = last_type_symbol;
149 05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	13809	ADD_PARAM_LIST(IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in)
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	13810	symbol_c * return_type_symbol = &search_constant_type_c::lint_type_name;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	13811	function_type_prefix = return_type_symbol;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	13812	break;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	13813
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	13814	}
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	13815
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	13816
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	13817	ERROR;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	13818	}
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	13819
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	13820	}/function_time_to_lint/
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	13821	break;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	13822
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	13823	/****
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	13824	*TIME_TO_DINT
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	13825	*/
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	13826	case function_time_to_dint :
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	13827	{
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	13828	symbol_c *last_type_symbol = NULL;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	13829
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	13830	{
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	13831	identifier_c param_name("IN");
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	13832	/* Get the value from a foo(<param_name> = <param_value>) style call */
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	13833	symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
169 bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	13834	symbol_c *IN_type_symbol = NULL;
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	13835
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	13836	/* Get the value from a foo(<param_value>) style call */
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	13837	if (IN_param_value == NULL)
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	13838	IN_param_value = function_call_param_iterator.next();
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	13839	if (IN_param_value != NULL) {
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	13840	IN_type_symbol = search_expression_type->get_type(IN_param_value);
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	13841	last_type_symbol = last_type_symbol && IN_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	13842	}
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	13843
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	13844	if(IN_type_symbol == NULL \|\| search_expression_type->is_same_type(&search_constant_type_c::time_type_name, last_type_symbol))
149 05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	13845	{
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	13846
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	13847	function_name = (symbol_c*)(new pragma_c("__time_to_int"));
169 bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	13848
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	13849	if (IN_type_symbol == NULL)
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	13850	IN_type_symbol = last_type_symbol;
149 05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	13851	ADD_PARAM_LIST(IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in)
70 e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	13852	symbol_c * return_type_symbol = &search_constant_type_c::dint_type_name;
149 05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	13853	function_type_prefix = return_type_symbol;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	13854	break;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	13855
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	13856	}
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	13857
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	13858
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	13859	ERROR;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	13860	}
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	13861
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	13862	}/function_time_to_dint/
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	13863	break;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	13864
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	13865	/****
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	13866	*TIME_TO_DWORD
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	13867	*/
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	13868	case function_time_to_dword :
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	13869	{
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	13870	symbol_c *last_type_symbol = NULL;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	13871
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	13872	{
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	13873	identifier_c param_name("IN");
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	13874	/* Get the value from a foo(<param_name> = <param_value>) style call */
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	13875	symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
169 bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	13876	symbol_c *IN_type_symbol = NULL;
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	13877
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	13878	/* Get the value from a foo(<param_value>) style call */
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	13879	if (IN_param_value == NULL)
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	13880	IN_param_value = function_call_param_iterator.next();
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	13881	if (IN_param_value != NULL) {
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	13882	IN_type_symbol = search_expression_type->get_type(IN_param_value);
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	13883	last_type_symbol = last_type_symbol && IN_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	13884	}
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	13885
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	13886	if(IN_type_symbol == NULL \|\| search_expression_type->is_same_type(&search_constant_type_c::time_type_name, last_type_symbol))
149 05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	13887	{
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	13888
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	13889	function_name = (symbol_c*)(new pragma_c("__time_to_int"));
169 bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	13890
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	13891	if (IN_type_symbol == NULL)
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	13892	IN_type_symbol = last_type_symbol;
149 05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	13893	ADD_PARAM_LIST(IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in)
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	13894	symbol_c * return_type_symbol = &search_constant_type_c::dword_type_name;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	13895	function_type_prefix = return_type_symbol;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	13896	break;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	13897
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	13898	}
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	13899
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	13900
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	13901	ERROR;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	13902	}
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	13903
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	13904	}/function_time_to_dword/
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	13905	break;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	13906
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	13907	/****
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	13908	*TIME_TO_UDINT
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	13909	*/
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	13910	case function_time_to_udint :
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	13911	{
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	13912	symbol_c *last_type_symbol = NULL;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	13913
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	13914	{
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	13915	identifier_c param_name("IN");
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	13916	/* Get the value from a foo(<param_name> = <param_value>) style call */
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	13917	symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
169 bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	13918	symbol_c *IN_type_symbol = NULL;
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	13919
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	13920	/* Get the value from a foo(<param_value>) style call */
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	13921	if (IN_param_value == NULL)
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	13922	IN_param_value = function_call_param_iterator.next();
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	13923	if (IN_param_value != NULL) {
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	13924	IN_type_symbol = search_expression_type->get_type(IN_param_value);
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	13925	last_type_symbol = last_type_symbol && IN_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	13926	}
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	13927
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	13928	if(IN_type_symbol == NULL \|\| search_expression_type->is_same_type(&search_constant_type_c::time_type_name, last_type_symbol))
149 05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	13929	{
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	13930
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	13931	function_name = (symbol_c*)(new pragma_c("__time_to_int"));
169 bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	13932
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	13933	if (IN_type_symbol == NULL)
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	13934	IN_type_symbol = last_type_symbol;
149 05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	13935	ADD_PARAM_LIST(IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in)
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	13936	symbol_c * return_type_symbol = &search_constant_type_c::udint_type_name;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	13937	function_type_prefix = return_type_symbol;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	13938	break;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	13939
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	13940	}
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	13941
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	13942
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	13943	ERROR;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	13944	}
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	13945
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	13946	}/function_time_to_udint/
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	13947	break;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	13948
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	13949	/****
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	13950	*TIME_TO_WORD
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	13951	*/
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	13952	case function_time_to_word :
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	13953	{
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	13954	symbol_c *last_type_symbol = NULL;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	13955
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	13956	{
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	13957	identifier_c param_name("IN");
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	13958	/* Get the value from a foo(<param_name> = <param_value>) style call */
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	13959	symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
169 bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	13960	symbol_c *IN_type_symbol = NULL;
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	13961
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	13962	/* Get the value from a foo(<param_value>) style call */
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	13963	if (IN_param_value == NULL)
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	13964	IN_param_value = function_call_param_iterator.next();
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	13965	if (IN_param_value != NULL) {
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	13966	IN_type_symbol = search_expression_type->get_type(IN_param_value);
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	13967	last_type_symbol = last_type_symbol && IN_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	13968	}
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	13969
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	13970	if(IN_type_symbol == NULL \|\| search_expression_type->is_same_type(&search_constant_type_c::time_type_name, last_type_symbol))
149 05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	13971	{
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	13972
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	13973	function_name = (symbol_c*)(new pragma_c("__time_to_int"));
169 bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	13974
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	13975	if (IN_type_symbol == NULL)
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	13976	IN_type_symbol = last_type_symbol;
149 05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	13977	ADD_PARAM_LIST(IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in)
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	13978	symbol_c * return_type_symbol = &search_constant_type_c::word_type_name;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	13979	function_type_prefix = return_type_symbol;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	13980	break;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	13981
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	13982	}
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	13983
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	13984
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	13985	ERROR;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	13986	}
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	13987
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	13988	}/function_time_to_word/
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	13989	break;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	13990
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	13991	/****
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	13992	*TIME_TO_STRING
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	13993	*/
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	13994	case function_time_to_string :
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	13995	{
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	13996	symbol_c *last_type_symbol = NULL;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	13997
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	13998	{
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	13999	identifier_c param_name("IN");
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	14000	/* Get the value from a foo(<param_name> = <param_value>) style call */
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	14001	symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
169 bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	14002	symbol_c *IN_type_symbol = NULL;
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	14003
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	14004	/* Get the value from a foo(<param_value>) style call */
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	14005	if (IN_param_value == NULL)
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	14006	IN_param_value = function_call_param_iterator.next();
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	14007	if (IN_param_value != NULL) {
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	14008	IN_type_symbol = search_expression_type->get_type(IN_param_value);
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	14009	last_type_symbol = last_type_symbol && IN_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	14010	}
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	14011
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	14012	if(IN_type_symbol == NULL \|\| search_expression_type->is_same_type(&search_constant_type_c::time_type_name, last_type_symbol))
149 05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	14013	{
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	14014
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	14015	function_name = (symbol_c*)(new pragma_c("__time_to_string"));
169 bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	14016
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	14017	if (IN_type_symbol == NULL)
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	14018	IN_type_symbol = last_type_symbol;
149 05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	14019	ADD_PARAM_LIST(IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in)
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	14020	symbol_c * return_type_symbol = &search_constant_type_c::string_type_name;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	14021	function_type_prefix = return_type_symbol;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	14022	break;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	14023
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	14024	}
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	14025
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	14026
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	14027	ERROR;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	14028	}
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	14029
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	14030	}/function_time_to_string/
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	14031	break;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	14032
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	14033	/****
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	14034	*TIME_TO_LWORD
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	14035	*/
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	14036	case function_time_to_lword :
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	14037	{
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	14038	symbol_c *last_type_symbol = NULL;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	14039
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	14040	{
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	14041	identifier_c param_name("IN");
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	14042	/* Get the value from a foo(<param_name> = <param_value>) style call */
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	14043	symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
169 bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	14044	symbol_c *IN_type_symbol = NULL;
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	14045
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	14046	/* Get the value from a foo(<param_value>) style call */
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	14047	if (IN_param_value == NULL)
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	14048	IN_param_value = function_call_param_iterator.next();
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	14049	if (IN_param_value != NULL) {
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	14050	IN_type_symbol = search_expression_type->get_type(IN_param_value);
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	14051	last_type_symbol = last_type_symbol && IN_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	14052	}
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	14053
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	14054	if(IN_type_symbol == NULL \|\| search_expression_type->is_same_type(&search_constant_type_c::time_type_name, last_type_symbol))
149 05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	14055	{
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	14056
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	14057	function_name = (symbol_c*)(new pragma_c("__time_to_int"));
169 bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	14058
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	14059	if (IN_type_symbol == NULL)
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	14060	IN_type_symbol = last_type_symbol;
149 05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	14061	ADD_PARAM_LIST(IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in)
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	14062	symbol_c * return_type_symbol = &search_constant_type_c::lword_type_name;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	14063	function_type_prefix = return_type_symbol;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	14064	break;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	14065
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	14066	}
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	14067
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	14068
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	14069	ERROR;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	14070	}
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	14071
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	14072	}/function_time_to_lword/
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	14073	break;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	14074
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	14075	/****
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	14076	*TIME_TO_UINT
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	14077	*/
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	14078	case function_time_to_uint :
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	14079	{
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	14080	symbol_c *last_type_symbol = NULL;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	14081
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	14082	{
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	14083	identifier_c param_name("IN");
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	14084	/* Get the value from a foo(<param_name> = <param_value>) style call */
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	14085	symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
169 bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	14086	symbol_c *IN_type_symbol = NULL;
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	14087
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	14088	/* Get the value from a foo(<param_value>) style call */
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	14089	if (IN_param_value == NULL)
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	14090	IN_param_value = function_call_param_iterator.next();
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	14091	if (IN_param_value != NULL) {
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	14092	IN_type_symbol = search_expression_type->get_type(IN_param_value);
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	14093	last_type_symbol = last_type_symbol && IN_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	14094	}
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	14095
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	14096	if(IN_type_symbol == NULL \|\| search_expression_type->is_same_type(&search_constant_type_c::time_type_name, last_type_symbol))
149 05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	14097	{
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	14098
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	14099	function_name = (symbol_c*)(new pragma_c("__time_to_int"));
169 bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	14100
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	14101	if (IN_type_symbol == NULL)
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	14102	IN_type_symbol = last_type_symbol;
149 05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	14103	ADD_PARAM_LIST(IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in)
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	14104	symbol_c * return_type_symbol = &search_constant_type_c::uint_type_name;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	14105	function_type_prefix = return_type_symbol;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	14106	break;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	14107
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	14108	}
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	14109
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	14110
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	14111	ERROR;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	14112	}
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	14113
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	14114	}/function_time_to_uint/
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	14115	break;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	14116
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	14117	/****
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	14118	*TIME_TO_LREAL
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	14119	*/
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	14120	case function_time_to_lreal :
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	14121	{
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	14122	symbol_c *last_type_symbol = NULL;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	14123
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	14124	{
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	14125	identifier_c param_name("IN");
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	14126	/* Get the value from a foo(<param_name> = <param_value>) style call */
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	14127	symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
169 bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	14128	symbol_c *IN_type_symbol = NULL;
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	14129
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	14130	/* Get the value from a foo(<param_value>) style call */
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	14131	if (IN_param_value == NULL)
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	14132	IN_param_value = function_call_param_iterator.next();
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	14133	if (IN_param_value != NULL) {
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	14134	IN_type_symbol = search_expression_type->get_type(IN_param_value);
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	14135	last_type_symbol = last_type_symbol && IN_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	14136	}
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	14137
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	14138	if(IN_type_symbol == NULL \|\| search_expression_type->is_same_type(&search_constant_type_c::time_type_name, last_type_symbol))
149 05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	14139	{
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	14140
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	14141	function_name = (symbol_c*)(new pragma_c("__time_to_real"));
169 bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	14142
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	14143	if (IN_type_symbol == NULL)
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	14144	IN_type_symbol = last_type_symbol;
149 05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	14145	ADD_PARAM_LIST(IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in)
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	14146	symbol_c * return_type_symbol = &search_constant_type_c::lreal_type_name;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	14147	function_type_prefix = return_type_symbol;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	14148	break;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	14149
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	14150	}
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	14151
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	14152
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	14153	ERROR;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	14154	}
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	14155
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	14156	}/function_time_to_lreal/
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	14157	break;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	14158
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	14159	/****
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	14160	*TIME_TO_BYTE
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	14161	*/
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	14162	case function_time_to_byte :
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	14163	{
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	14164	symbol_c *last_type_symbol = NULL;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	14165
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	14166	{
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	14167	identifier_c param_name("IN");
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	14168	/* Get the value from a foo(<param_name> = <param_value>) style call */
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	14169	symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
169 bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	14170	symbol_c *IN_type_symbol = NULL;
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	14171
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	14172	/* Get the value from a foo(<param_value>) style call */
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	14173	if (IN_param_value == NULL)
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	14174	IN_param_value = function_call_param_iterator.next();
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	14175	if (IN_param_value != NULL) {
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	14176	IN_type_symbol = search_expression_type->get_type(IN_param_value);
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	14177	last_type_symbol = last_type_symbol && IN_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	14178	}
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	14179
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	14180	if(IN_type_symbol == NULL \|\| search_expression_type->is_same_type(&search_constant_type_c::time_type_name, last_type_symbol))
149 05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	14181	{
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	14182
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	14183	function_name = (symbol_c*)(new pragma_c("__time_to_int"));
169 bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	14184
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	14185	if (IN_type_symbol == NULL)
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	14186	IN_type_symbol = last_type_symbol;
149 05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	14187	ADD_PARAM_LIST(IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in)
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	14188	symbol_c * return_type_symbol = &search_constant_type_c::byte_type_name;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	14189	function_type_prefix = return_type_symbol;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	14190	break;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	14191
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	14192	}
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	14193
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	14194
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	14195	ERROR;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	14196	}
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	14197
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	14198	}/function_time_to_byte/
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	14199	break;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	14200
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	14201	/****
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	14202	*TIME_TO_USINT
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	14203	*/
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	14204	case function_time_to_usint :
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	14205	{
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	14206	symbol_c *last_type_symbol = NULL;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	14207
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	14208	{
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	14209	identifier_c param_name("IN");
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	14210	/* Get the value from a foo(<param_name> = <param_value>) style call */
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	14211	symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
169 bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	14212	symbol_c *IN_type_symbol = NULL;
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	14213
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	14214	/* Get the value from a foo(<param_value>) style call */
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	14215	if (IN_param_value == NULL)
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	14216	IN_param_value = function_call_param_iterator.next();
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	14217	if (IN_param_value != NULL) {
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	14218	IN_type_symbol = search_expression_type->get_type(IN_param_value);
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	14219	last_type_symbol = last_type_symbol && IN_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	14220	}
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	14221
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	14222	if(IN_type_symbol == NULL \|\| search_expression_type->is_same_type(&search_constant_type_c::time_type_name, last_type_symbol))
149 05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	14223	{
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	14224
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	14225	function_name = (symbol_c*)(new pragma_c("__time_to_int"));
169 bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	14226
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	14227	if (IN_type_symbol == NULL)
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	14228	IN_type_symbol = last_type_symbol;
149 05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	14229	ADD_PARAM_LIST(IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in)
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	14230	symbol_c * return_type_symbol = &search_constant_type_c::usint_type_name;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	14231	function_type_prefix = return_type_symbol;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	14232	break;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	14233
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	14234	}
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	14235
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	14236
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	14237	ERROR;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	14238	}
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	14239
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	14240	}/function_time_to_usint/
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	14241	break;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	14242
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	14243	/****
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	14244	*TIME_TO_ULINT
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	14245	*/
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	14246	case function_time_to_ulint :
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	14247	{
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	14248	symbol_c *last_type_symbol = NULL;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	14249
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	14250	{
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	14251	identifier_c param_name("IN");
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	14252	/* Get the value from a foo(<param_name> = <param_value>) style call */
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	14253	symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
169 bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	14254	symbol_c *IN_type_symbol = NULL;
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	14255
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	14256	/* Get the value from a foo(<param_value>) style call */
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	14257	if (IN_param_value == NULL)
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	14258	IN_param_value = function_call_param_iterator.next();
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	14259	if (IN_param_value != NULL) {
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	14260	IN_type_symbol = search_expression_type->get_type(IN_param_value);
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	14261	last_type_symbol = last_type_symbol && IN_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	14262	}
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	14263
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	14264	if(IN_type_symbol == NULL \|\| search_expression_type->is_same_type(&search_constant_type_c::time_type_name, last_type_symbol))
149 05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	14265	{
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	14266
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	14267	function_name = (symbol_c*)(new pragma_c("__time_to_int"));
169 bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	14268
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	14269	if (IN_type_symbol == NULL)
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	14270	IN_type_symbol = last_type_symbol;
149 05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	14271	ADD_PARAM_LIST(IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in)
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	14272	symbol_c * return_type_symbol = &search_constant_type_c::ulint_type_name;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	14273	function_type_prefix = return_type_symbol;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	14274	break;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	14275
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	14276	}
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	14277
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	14278
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	14279	ERROR;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	14280	}
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	14281
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	14282	}/function_time_to_ulint/
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	14283	break;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	14284
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	14285	/****
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	14286	*TIME_TO_INT
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	14287	*/
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	14288	case function_time_to_int :
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	14289	{
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	14290	symbol_c *last_type_symbol = NULL;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	14291
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	14292	{
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	14293	identifier_c param_name("IN");
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	14294	/* Get the value from a foo(<param_name> = <param_value>) style call */
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	14295	symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
169 bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	14296	symbol_c *IN_type_symbol = NULL;
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	14297
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	14298	/* Get the value from a foo(<param_value>) style call */
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	14299	if (IN_param_value == NULL)
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	14300	IN_param_value = function_call_param_iterator.next();
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	14301	if (IN_param_value != NULL) {
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	14302	IN_type_symbol = search_expression_type->get_type(IN_param_value);
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	14303	last_type_symbol = last_type_symbol && IN_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	14304	}
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	14305
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	14306	if(IN_type_symbol == NULL \|\| search_expression_type->is_same_type(&search_constant_type_c::time_type_name, last_type_symbol))
149 05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	14307	{
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	14308
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	14309	function_name = (symbol_c*)(new pragma_c("__time_to_int"));
169 bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	14310
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	14311	if (IN_type_symbol == NULL)
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	14312	IN_type_symbol = last_type_symbol;
149 05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	14313	ADD_PARAM_LIST(IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in)
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	14314	symbol_c * return_type_symbol = &search_constant_type_c::int_type_name;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	14315	function_type_prefix = return_type_symbol;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	14316	break;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	14317
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	14318	}
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	14319
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	14320
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	14321	ERROR;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	14322	}
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	14323
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	14324	}/function_time_to_int/
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	14325	break;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	14326
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	14327	/****
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	14328	*INT_TO_REAL
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	14329	*/
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	14330	case function_int_to_real :
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	14331	{
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	14332	symbol_c *last_type_symbol = NULL;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	14333
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	14334	{
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	14335	identifier_c param_name("IN");
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	14336	/* Get the value from a foo(<param_name> = <param_value>) style call */
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	14337	symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
169 bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	14338	symbol_c *IN_type_symbol = NULL;
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	14339
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	14340	/* Get the value from a foo(<param_value>) style call */
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	14341	if (IN_param_value == NULL)
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	14342	IN_param_value = function_call_param_iterator.next();
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	14343	if (IN_param_value != NULL) {
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	14344	IN_type_symbol = search_expression_type->get_type(IN_param_value);
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	14345	last_type_symbol = last_type_symbol && IN_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	14346	}
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	14347
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	14348	if(IN_type_symbol == NULL \|\| search_expression_type->is_same_type(&search_constant_type_c::int_type_name, last_type_symbol))
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	14349	{
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	14350
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	14351
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	14352	if (IN_type_symbol == NULL)
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	14353	IN_type_symbol = last_type_symbol;
149 05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	14354	ADD_PARAM_LIST(IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in)
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	14355	symbol_c * return_type_symbol = &search_constant_type_c::real_type_name;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	14356	function_type_prefix = return_type_symbol;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	14357	break;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	14358
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	14359	}
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	14360
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	14361
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	14362	ERROR;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	14363	}
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	14364
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	14365	}/function_int_to_real/
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	14366	break;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	14367
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	14368	/****
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	14369	*INT_TO_SINT
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	14370	*/
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	14371	case function_int_to_sint :
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	14372	{
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	14373	symbol_c *last_type_symbol = NULL;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	14374
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	14375	{
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	14376	identifier_c param_name("IN");
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	14377	/* Get the value from a foo(<param_name> = <param_value>) style call */
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	14378	symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
169 bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	14379	symbol_c *IN_type_symbol = NULL;
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	14380
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	14381	/* Get the value from a foo(<param_value>) style call */
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	14382	if (IN_param_value == NULL)
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	14383	IN_param_value = function_call_param_iterator.next();
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	14384	if (IN_param_value != NULL) {
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	14385	IN_type_symbol = search_expression_type->get_type(IN_param_value);
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	14386	last_type_symbol = last_type_symbol && IN_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	14387	}
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	14388
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	14389	if(IN_type_symbol == NULL \|\| search_expression_type->is_same_type(&search_constant_type_c::int_type_name, last_type_symbol))
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	14390	{
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	14391
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	14392
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	14393	if (IN_type_symbol == NULL)
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	14394	IN_type_symbol = last_type_symbol;
149 05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	14395	ADD_PARAM_LIST(IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in)
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	14396	symbol_c * return_type_symbol = &search_constant_type_c::sint_type_name;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	14397	function_type_prefix = return_type_symbol;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	14398	break;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	14399
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	14400	}
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	14401
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	14402
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	14403	ERROR;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	14404	}
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	14405
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	14406	}/function_int_to_sint/
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	14407	break;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	14408
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	14409	/****
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	14410	*INT_TO_LINT
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	14411	*/
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	14412	case function_int_to_lint :
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	14413	{
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	14414	symbol_c *last_type_symbol = NULL;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	14415
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	14416	{
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	14417	identifier_c param_name("IN");
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	14418	/* Get the value from a foo(<param_name> = <param_value>) style call */
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	14419	symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
169 bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	14420	symbol_c *IN_type_symbol = NULL;
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	14421
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	14422	/* Get the value from a foo(<param_value>) style call */
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	14423	if (IN_param_value == NULL)
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	14424	IN_param_value = function_call_param_iterator.next();
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	14425	if (IN_param_value != NULL) {
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	14426	IN_type_symbol = search_expression_type->get_type(IN_param_value);
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	14427	last_type_symbol = last_type_symbol && IN_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	14428	}
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	14429
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	14430	if(IN_type_symbol == NULL \|\| search_expression_type->is_same_type(&search_constant_type_c::int_type_name, last_type_symbol))
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	14431	{
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	14432
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	14433
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	14434	if (IN_type_symbol == NULL)
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	14435	IN_type_symbol = last_type_symbol;
149 05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	14436	ADD_PARAM_LIST(IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in)
70 e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	14437	symbol_c * return_type_symbol = &search_constant_type_c::lint_type_name;
149 05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	14438	function_type_prefix = return_type_symbol;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	14439	break;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	14440
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	14441	}
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	14442
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	14443
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	14444	ERROR;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	14445	}
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	14446
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	14447	}/function_int_to_lint/
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	14448	break;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	14449
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	14450	/****
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	14451	*INT_TO_DINT
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	14452	*/
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	14453	case function_int_to_dint :
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	14454	{
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	14455	symbol_c *last_type_symbol = NULL;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	14456
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	14457	{
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	14458	identifier_c param_name("IN");
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	14459	/* Get the value from a foo(<param_name> = <param_value>) style call */
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	14460	symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
169 bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	14461	symbol_c *IN_type_symbol = NULL;
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	14462
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	14463	/* Get the value from a foo(<param_value>) style call */
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	14464	if (IN_param_value == NULL)
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	14465	IN_param_value = function_call_param_iterator.next();
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	14466	if (IN_param_value != NULL) {
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	14467	IN_type_symbol = search_expression_type->get_type(IN_param_value);
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	14468	last_type_symbol = last_type_symbol && IN_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	14469	}
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	14470
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	14471	if(IN_type_symbol == NULL \|\| search_expression_type->is_same_type(&search_constant_type_c::int_type_name, last_type_symbol))
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	14472	{
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	14473
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	14474
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	14475	if (IN_type_symbol == NULL)
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	14476	IN_type_symbol = last_type_symbol;
149 05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	14477	ADD_PARAM_LIST(IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in)
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	14478	symbol_c * return_type_symbol = &search_constant_type_c::dint_type_name;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	14479	function_type_prefix = return_type_symbol;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	14480	break;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	14481
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	14482	}
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	14483
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	14484
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	14485	ERROR;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	14486	}
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	14487
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	14488	}/function_int_to_dint/
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	14489	break;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	14490
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	14491	/****
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	14492	*INT_TO_DATE
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	14493	*/
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	14494	case function_int_to_date :
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	14495	{
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	14496	symbol_c *last_type_symbol = NULL;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	14497
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	14498	{
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	14499	identifier_c param_name("IN");
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	14500	/* Get the value from a foo(<param_name> = <param_value>) style call */
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	14501	symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
169 bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	14502	symbol_c *IN_type_symbol = NULL;
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	14503
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	14504	/* Get the value from a foo(<param_value>) style call */
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	14505	if (IN_param_value == NULL)
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	14506	IN_param_value = function_call_param_iterator.next();
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	14507	if (IN_param_value != NULL) {
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	14508	IN_type_symbol = search_expression_type->get_type(IN_param_value);
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	14509	last_type_symbol = last_type_symbol && IN_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	14510	}
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	14511
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	14512	if(IN_type_symbol == NULL \|\| search_expression_type->is_same_type(&search_constant_type_c::int_type_name, last_type_symbol))
149 05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	14513	{
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	14514
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	14515	function_name = (symbol_c*)(new pragma_c("__int_to_time"));
169 bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	14516
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	14517	if (IN_type_symbol == NULL)
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	14518	IN_type_symbol = last_type_symbol;
149 05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	14519	ADD_PARAM_LIST(IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in)
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	14520	symbol_c * return_type_symbol = &search_constant_type_c::date_type_name;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	14521	function_type_prefix = return_type_symbol;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	14522	break;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	14523
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	14524	}
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	14525
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	14526
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	14527	ERROR;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	14528	}
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	14529
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	14530	}/function_int_to_date/
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	14531	break;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	14532
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	14533	/****
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	14534	*INT_TO_DWORD
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	14535	*/
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	14536	case function_int_to_dword :
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	14537	{
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	14538	symbol_c *last_type_symbol = NULL;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	14539
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	14540	{
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	14541	identifier_c param_name("IN");
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	14542	/* Get the value from a foo(<param_name> = <param_value>) style call */
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	14543	symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
169 bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	14544	symbol_c *IN_type_symbol = NULL;
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	14545
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	14546	/* Get the value from a foo(<param_value>) style call */
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	14547	if (IN_param_value == NULL)
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	14548	IN_param_value = function_call_param_iterator.next();
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	14549	if (IN_param_value != NULL) {
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	14550	IN_type_symbol = search_expression_type->get_type(IN_param_value);
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	14551	last_type_symbol = last_type_symbol && IN_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	14552	}
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	14553
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	14554	if(IN_type_symbol == NULL \|\| search_expression_type->is_same_type(&search_constant_type_c::int_type_name, last_type_symbol))
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	14555	{
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	14556
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	14557
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	14558	if (IN_type_symbol == NULL)
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	14559	IN_type_symbol = last_type_symbol;
149 05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	14560	ADD_PARAM_LIST(IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in)
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	14561	symbol_c * return_type_symbol = &search_constant_type_c::dword_type_name;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	14562	function_type_prefix = return_type_symbol;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	14563	break;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	14564
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	14565	}
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	14566
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	14567
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	14568	ERROR;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	14569	}
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	14570
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	14571	}/function_int_to_dword/
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	14572	break;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	14573
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	14574	/****
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	14575	*INT_TO_DT
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	14576	*/
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	14577	case function_int_to_dt :
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	14578	{
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	14579	symbol_c *last_type_symbol = NULL;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	14580
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	14581	{
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	14582	identifier_c param_name("IN");
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	14583	/* Get the value from a foo(<param_name> = <param_value>) style call */
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	14584	symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
169 bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	14585	symbol_c *IN_type_symbol = NULL;
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	14586
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	14587	/* Get the value from a foo(<param_value>) style call */
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	14588	if (IN_param_value == NULL)
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	14589	IN_param_value = function_call_param_iterator.next();
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	14590	if (IN_param_value != NULL) {
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	14591	IN_type_symbol = search_expression_type->get_type(IN_param_value);
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	14592	last_type_symbol = last_type_symbol && IN_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	14593	}
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	14594
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	14595	if(IN_type_symbol == NULL \|\| search_expression_type->is_same_type(&search_constant_type_c::int_type_name, last_type_symbol))
149 05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	14596	{
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	14597
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	14598	function_name = (symbol_c*)(new pragma_c("__int_to_time"));
169 bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	14599
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	14600	if (IN_type_symbol == NULL)
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	14601	IN_type_symbol = last_type_symbol;
149 05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	14602	ADD_PARAM_LIST(IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in)
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	14603	symbol_c * return_type_symbol = &search_constant_type_c::dt_type_name;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	14604	function_type_prefix = return_type_symbol;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	14605	break;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	14606
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	14607	}
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	14608
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	14609
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	14610	ERROR;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	14611	}
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	14612
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	14613	}/function_int_to_dt/
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	14614	break;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	14615
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	14616	/****
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	14617	*INT_TO_TOD
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	14618	*/
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	14619	case function_int_to_tod :
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	14620	{
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	14621	symbol_c *last_type_symbol = NULL;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	14622
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	14623	{
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	14624	identifier_c param_name("IN");
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	14625	/* Get the value from a foo(<param_name> = <param_value>) style call */
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	14626	symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
169 bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	14627	symbol_c *IN_type_symbol = NULL;
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	14628
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	14629	/* Get the value from a foo(<param_value>) style call */
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	14630	if (IN_param_value == NULL)
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	14631	IN_param_value = function_call_param_iterator.next();
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	14632	if (IN_param_value != NULL) {
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	14633	IN_type_symbol = search_expression_type->get_type(IN_param_value);
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	14634	last_type_symbol = last_type_symbol && IN_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	14635	}
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	14636
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	14637	if(IN_type_symbol == NULL \|\| search_expression_type->is_same_type(&search_constant_type_c::int_type_name, last_type_symbol))
149 05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	14638	{
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	14639
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	14640	function_name = (symbol_c*)(new pragma_c("__int_to_time"));
169 bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	14641
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	14642	if (IN_type_symbol == NULL)
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	14643	IN_type_symbol = last_type_symbol;
149 05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	14644	ADD_PARAM_LIST(IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in)
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	14645	symbol_c * return_type_symbol = &search_constant_type_c::tod_type_name;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	14646	function_type_prefix = return_type_symbol;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	14647	break;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	14648
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	14649	}
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	14650
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	14651
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	14652	ERROR;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	14653	}
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	14654
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	14655	}/function_int_to_tod/
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	14656	break;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	14657
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	14658	/****
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	14659	*INT_TO_UDINT
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	14660	*/
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	14661	case function_int_to_udint :
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	14662	{
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	14663	symbol_c *last_type_symbol = NULL;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	14664
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	14665	{
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	14666	identifier_c param_name("IN");
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	14667	/* Get the value from a foo(<param_name> = <param_value>) style call */
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	14668	symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
169 bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	14669	symbol_c *IN_type_symbol = NULL;
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	14670
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	14671	/* Get the value from a foo(<param_value>) style call */
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	14672	if (IN_param_value == NULL)
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	14673	IN_param_value = function_call_param_iterator.next();
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	14674	if (IN_param_value != NULL) {
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	14675	IN_type_symbol = search_expression_type->get_type(IN_param_value);
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	14676	last_type_symbol = last_type_symbol && IN_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	14677	}
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	14678
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	14679	if(IN_type_symbol == NULL \|\| search_expression_type->is_same_type(&search_constant_type_c::int_type_name, last_type_symbol))
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	14680	{
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	14681
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	14682
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	14683	if (IN_type_symbol == NULL)
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	14684	IN_type_symbol = last_type_symbol;
149 05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	14685	ADD_PARAM_LIST(IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in)
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	14686	symbol_c * return_type_symbol = &search_constant_type_c::udint_type_name;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	14687	function_type_prefix = return_type_symbol;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	14688	break;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	14689
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	14690	}
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	14691
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	14692
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	14693	ERROR;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	14694	}
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	14695
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	14696	}/function_int_to_udint/
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	14697	break;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	14698
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	14699	/****
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	14700	*INT_TO_WORD
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	14701	*/
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	14702	case function_int_to_word :
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	14703	{
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	14704	symbol_c *last_type_symbol = NULL;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	14705
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	14706	{
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	14707	identifier_c param_name("IN");
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	14708	/* Get the value from a foo(<param_name> = <param_value>) style call */
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	14709	symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
169 bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	14710	symbol_c *IN_type_symbol = NULL;
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	14711
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	14712	/* Get the value from a foo(<param_value>) style call */
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	14713	if (IN_param_value == NULL)
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	14714	IN_param_value = function_call_param_iterator.next();
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	14715	if (IN_param_value != NULL) {
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	14716	IN_type_symbol = search_expression_type->get_type(IN_param_value);
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	14717	last_type_symbol = last_type_symbol && IN_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	14718	}
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	14719
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	14720	if(IN_type_symbol == NULL \|\| search_expression_type->is_same_type(&search_constant_type_c::int_type_name, last_type_symbol))
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	14721	{
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	14722
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	14723
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	14724	if (IN_type_symbol == NULL)
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	14725	IN_type_symbol = last_type_symbol;
149 05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	14726	ADD_PARAM_LIST(IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in)
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	14727	symbol_c * return_type_symbol = &search_constant_type_c::word_type_name;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	14728	function_type_prefix = return_type_symbol;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	14729	break;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	14730
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	14731	}
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	14732
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	14733
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	14734	ERROR;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	14735	}
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	14736
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	14737	}/function_int_to_word/
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	14738	break;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	14739
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	14740	/****
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	14741	*INT_TO_STRING
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	14742	*/
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	14743	case function_int_to_string :
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	14744	{
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	14745	symbol_c *last_type_symbol = NULL;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	14746
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	14747	{
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	14748	identifier_c param_name("IN");
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	14749	/* Get the value from a foo(<param_name> = <param_value>) style call */
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	14750	symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
169 bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	14751	symbol_c *IN_type_symbol = NULL;
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	14752
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	14753	/* Get the value from a foo(<param_value>) style call */
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	14754	if (IN_param_value == NULL)
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	14755	IN_param_value = function_call_param_iterator.next();
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	14756	if (IN_param_value != NULL) {
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	14757	IN_type_symbol = search_expression_type->get_type(IN_param_value);
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	14758	last_type_symbol = last_type_symbol && IN_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	14759	}
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	14760
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	14761	if(IN_type_symbol == NULL \|\| search_expression_type->is_same_type(&search_constant_type_c::int_type_name, last_type_symbol))
149 05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	14762	{
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	14763
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	14764	function_name = (symbol_c*)(new pragma_c("__sint_to_string"));
169 bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	14765
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	14766	if (IN_type_symbol == NULL)
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	14767	IN_type_symbol = last_type_symbol;
149 05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	14768	ADD_PARAM_LIST(IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in)
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	14769	symbol_c * return_type_symbol = &search_constant_type_c::string_type_name;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	14770	function_type_prefix = return_type_symbol;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	14771	break;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	14772
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	14773	}
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	14774
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	14775
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	14776	ERROR;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	14777	}
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	14778
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	14779	}/function_int_to_string/
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	14780	break;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	14781
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	14782	/****
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	14783	*INT_TO_LWORD
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	14784	*/
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	14785	case function_int_to_lword :
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	14786	{
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	14787	symbol_c *last_type_symbol = NULL;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	14788
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	14789	{
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	14790	identifier_c param_name("IN");
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	14791	/* Get the value from a foo(<param_name> = <param_value>) style call */
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	14792	symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
169 bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	14793	symbol_c *IN_type_symbol = NULL;
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	14794
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	14795	/* Get the value from a foo(<param_value>) style call */
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	14796	if (IN_param_value == NULL)
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	14797	IN_param_value = function_call_param_iterator.next();
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	14798	if (IN_param_value != NULL) {
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	14799	IN_type_symbol = search_expression_type->get_type(IN_param_value);
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	14800	last_type_symbol = last_type_symbol && IN_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	14801	}
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	14802
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	14803	if(IN_type_symbol == NULL \|\| search_expression_type->is_same_type(&search_constant_type_c::int_type_name, last_type_symbol))
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	14804	{
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	14805
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	14806
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	14807	if (IN_type_symbol == NULL)
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	14808	IN_type_symbol = last_type_symbol;
149 05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	14809	ADD_PARAM_LIST(IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in)
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	14810	symbol_c * return_type_symbol = &search_constant_type_c::lword_type_name;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	14811	function_type_prefix = return_type_symbol;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	14812	break;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	14813
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	14814	}
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	14815
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	14816
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	14817	ERROR;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	14818	}
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	14819
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	14820	}/function_int_to_lword/
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	14821	break;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	14822
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	14823	/****
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	14824	*INT_TO_UINT
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	14825	*/
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	14826	case function_int_to_uint :
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	14827	{
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	14828	symbol_c *last_type_symbol = NULL;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	14829
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	14830	{
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	14831	identifier_c param_name("IN");
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	14832	/* Get the value from a foo(<param_name> = <param_value>) style call */
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	14833	symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
169 bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	14834	symbol_c *IN_type_symbol = NULL;
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	14835
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	14836	/* Get the value from a foo(<param_value>) style call */
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	14837	if (IN_param_value == NULL)
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	14838	IN_param_value = function_call_param_iterator.next();
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	14839	if (IN_param_value != NULL) {
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	14840	IN_type_symbol = search_expression_type->get_type(IN_param_value);
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	14841	last_type_symbol = last_type_symbol && IN_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	14842	}
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	14843
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	14844	if(IN_type_symbol == NULL \|\| search_expression_type->is_same_type(&search_constant_type_c::int_type_name, last_type_symbol))
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	14845	{
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	14846
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	14847
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	14848	if (IN_type_symbol == NULL)
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	14849	IN_type_symbol = last_type_symbol;
149 05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	14850	ADD_PARAM_LIST(IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in)
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	14851	symbol_c * return_type_symbol = &search_constant_type_c::uint_type_name;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	14852	function_type_prefix = return_type_symbol;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	14853	break;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	14854
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	14855	}
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	14856
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	14857
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	14858	ERROR;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	14859	}
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	14860
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	14861	}/function_int_to_uint/
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	14862	break;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	14863
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	14864	/****
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	14865	*INT_TO_LREAL
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	14866	*/
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	14867	case function_int_to_lreal :
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	14868	{
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	14869	symbol_c *last_type_symbol = NULL;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	14870
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	14871	{
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	14872	identifier_c param_name("IN");
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	14873	/* Get the value from a foo(<param_name> = <param_value>) style call */
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	14874	symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
169 bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	14875	symbol_c *IN_type_symbol = NULL;
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	14876
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	14877	/* Get the value from a foo(<param_value>) style call */
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	14878	if (IN_param_value == NULL)
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	14879	IN_param_value = function_call_param_iterator.next();
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	14880	if (IN_param_value != NULL) {
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	14881	IN_type_symbol = search_expression_type->get_type(IN_param_value);
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	14882	last_type_symbol = last_type_symbol && IN_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	14883	}
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	14884
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	14885	if(IN_type_symbol == NULL \|\| search_expression_type->is_same_type(&search_constant_type_c::int_type_name, last_type_symbol))
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	14886	{
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	14887
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	14888
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	14889	if (IN_type_symbol == NULL)
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	14890	IN_type_symbol = last_type_symbol;
149 05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	14891	ADD_PARAM_LIST(IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in)
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	14892	symbol_c * return_type_symbol = &search_constant_type_c::lreal_type_name;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	14893	function_type_prefix = return_type_symbol;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	14894	break;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	14895
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	14896	}
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	14897
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	14898
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	14899	ERROR;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	14900	}
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	14901
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	14902	}/function_int_to_lreal/
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	14903	break;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	14904
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	14905	/****
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	14906	*INT_TO_BYTE
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	14907	*/
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	14908	case function_int_to_byte :
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	14909	{
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	14910	symbol_c *last_type_symbol = NULL;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	14911
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	14912	{
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	14913	identifier_c param_name("IN");
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	14914	/* Get the value from a foo(<param_name> = <param_value>) style call */
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	14915	symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
169 bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	14916	symbol_c *IN_type_symbol = NULL;
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	14917
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	14918	/* Get the value from a foo(<param_value>) style call */
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	14919	if (IN_param_value == NULL)
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	14920	IN_param_value = function_call_param_iterator.next();
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	14921	if (IN_param_value != NULL) {
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	14922	IN_type_symbol = search_expression_type->get_type(IN_param_value);
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	14923	last_type_symbol = last_type_symbol && IN_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	14924	}
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	14925
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	14926	if(IN_type_symbol == NULL \|\| search_expression_type->is_same_type(&search_constant_type_c::int_type_name, last_type_symbol))
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	14927	{
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	14928
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	14929
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	14930	if (IN_type_symbol == NULL)
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	14931	IN_type_symbol = last_type_symbol;
149 05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	14932	ADD_PARAM_LIST(IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in)
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	14933	symbol_c * return_type_symbol = &search_constant_type_c::byte_type_name;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	14934	function_type_prefix = return_type_symbol;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	14935	break;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	14936
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	14937	}
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	14938
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	14939
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	14940	ERROR;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	14941	}
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	14942
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	14943	}/function_int_to_byte/
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	14944	break;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	14945
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	14946	/****
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	14947	*INT_TO_USINT
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	14948	*/
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	14949	case function_int_to_usint :
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	14950	{
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	14951	symbol_c *last_type_symbol = NULL;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	14952
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	14953	{
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	14954	identifier_c param_name("IN");
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	14955	/* Get the value from a foo(<param_name> = <param_value>) style call */
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	14956	symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
169 bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	14957	symbol_c *IN_type_symbol = NULL;
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	14958
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	14959	/* Get the value from a foo(<param_value>) style call */
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	14960	if (IN_param_value == NULL)
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	14961	IN_param_value = function_call_param_iterator.next();
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	14962	if (IN_param_value != NULL) {
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	14963	IN_type_symbol = search_expression_type->get_type(IN_param_value);
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	14964	last_type_symbol = last_type_symbol && IN_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	14965	}
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	14966
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	14967	if(IN_type_symbol == NULL \|\| search_expression_type->is_same_type(&search_constant_type_c::int_type_name, last_type_symbol))
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	14968	{
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	14969
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	14970
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	14971	if (IN_type_symbol == NULL)
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	14972	IN_type_symbol = last_type_symbol;
149 05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	14973	ADD_PARAM_LIST(IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in)
70 e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	14974	symbol_c * return_type_symbol = &search_constant_type_c::usint_type_name;
149 05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	14975	function_type_prefix = return_type_symbol;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	14976	break;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	14977
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	14978	}
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	14979
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	14980
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	14981	ERROR;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	14982	}
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	14983
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	14984	}/function_int_to_usint/
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	14985	break;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	14986
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	14987	/****
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	14988	*INT_TO_ULINT
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	14989	*/
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	14990	case function_int_to_ulint :
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	14991	{
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	14992	symbol_c *last_type_symbol = NULL;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	14993
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	14994	{
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	14995	identifier_c param_name("IN");
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	14996	/* Get the value from a foo(<param_name> = <param_value>) style call */
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	14997	symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
169 bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	14998	symbol_c *IN_type_symbol = NULL;
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	14999
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	15000	/* Get the value from a foo(<param_value>) style call */
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	15001	if (IN_param_value == NULL)
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	15002	IN_param_value = function_call_param_iterator.next();
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	15003	if (IN_param_value != NULL) {
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	15004	IN_type_symbol = search_expression_type->get_type(IN_param_value);
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	15005	last_type_symbol = last_type_symbol && IN_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	15006	}
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	15007
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	15008	if(IN_type_symbol == NULL \|\| search_expression_type->is_same_type(&search_constant_type_c::int_type_name, last_type_symbol))
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	15009	{
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	15010
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	15011
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	15012	if (IN_type_symbol == NULL)
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	15013	IN_type_symbol = last_type_symbol;
149 05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	15014	ADD_PARAM_LIST(IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in)
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	15015	symbol_c * return_type_symbol = &search_constant_type_c::ulint_type_name;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	15016	function_type_prefix = return_type_symbol;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	15017	break;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	15018
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	15019	}
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	15020
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	15021
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	15022	ERROR;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	15023	}
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	15024
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	15025	}/function_int_to_ulint/
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	15026	break;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	15027
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	15028	/****
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	15029	*INT_TO_BOOL
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	15030	*/
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	15031	case function_int_to_bool :
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	15032	{
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	15033	symbol_c *last_type_symbol = NULL;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	15034
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	15035	{
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	15036	identifier_c param_name("IN");
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	15037	/* Get the value from a foo(<param_name> = <param_value>) style call */
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	15038	symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
169 bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	15039	symbol_c *IN_type_symbol = NULL;
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	15040
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	15041	/* Get the value from a foo(<param_value>) style call */
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	15042	if (IN_param_value == NULL)
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	15043	IN_param_value = function_call_param_iterator.next();
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	15044	if (IN_param_value != NULL) {
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	15045	IN_type_symbol = search_expression_type->get_type(IN_param_value);
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	15046	last_type_symbol = last_type_symbol && IN_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	15047	}
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	15048
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	15049	if(IN_type_symbol == NULL \|\| search_expression_type->is_same_type(&search_constant_type_c::int_type_name, last_type_symbol))
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	15050	{
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	15051
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	15052
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	15053	if (IN_type_symbol == NULL)
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	15054	IN_type_symbol = last_type_symbol;
149 05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	15055	ADD_PARAM_LIST(IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in)
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	15056	symbol_c * return_type_symbol = &search_constant_type_c::bool_type_name;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	15057	function_type_prefix = return_type_symbol;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	15058	break;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	15059
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	15060	}
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	15061
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	15062
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	15063	ERROR;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	15064	}
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	15065
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	15066	}/function_int_to_bool/
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	15067	break;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	15068
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	15069	/****
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	15070	*INT_TO_TIME
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	15071	*/
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	15072	case function_int_to_time :
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	15073	{
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	15074	symbol_c *last_type_symbol = NULL;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	15075
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	15076	{
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	15077	identifier_c param_name("IN");
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	15078	/* Get the value from a foo(<param_name> = <param_value>) style call */
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	15079	symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
169 bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	15080	symbol_c *IN_type_symbol = NULL;
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	15081
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	15082	/* Get the value from a foo(<param_value>) style call */
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	15083	if (IN_param_value == NULL)
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	15084	IN_param_value = function_call_param_iterator.next();
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	15085	if (IN_param_value != NULL) {
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	15086	IN_type_symbol = search_expression_type->get_type(IN_param_value);
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	15087	last_type_symbol = last_type_symbol && IN_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	15088	}
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	15089
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	15090	if(IN_type_symbol == NULL \|\| search_expression_type->is_same_type(&search_constant_type_c::int_type_name, last_type_symbol))
149 05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	15091	{
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	15092
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	15093	function_name = (symbol_c*)(new pragma_c("__int_to_time"));
169 bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	15094
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	15095	if (IN_type_symbol == NULL)
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	15096	IN_type_symbol = last_type_symbol;
149 05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	15097	ADD_PARAM_LIST(IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in)
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	15098	symbol_c * return_type_symbol = &search_constant_type_c::time_type_name;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	15099	function_type_prefix = return_type_symbol;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	15100	break;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	15101
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	15102	}
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	15103
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	15104
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	15105	ERROR;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	15106	}
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	15107
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	15108	}/function_int_to_time/
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	15109	break;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	15110
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	15111	/****
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	15112	*TRUNC
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	15113	*/
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	15114	case function_trunc :
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	15115	{
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	15116	symbol_c *last_type_symbol = NULL;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	15117
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	15118	{
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	15119	identifier_c param_name("IN");
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	15120	/* Get the value from a foo(<param_name> = <param_value>) style call */
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	15121	symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
169 bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	15122	symbol_c *IN_type_symbol = NULL;
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	15123
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	15124	/* Get the value from a foo(<param_value>) style call */
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	15125	if (IN_param_value == NULL)
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	15126	IN_param_value = function_call_param_iterator.next();
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	15127	if (IN_param_value != NULL) {
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	15128	IN_type_symbol = search_expression_type->get_type(IN_param_value);
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	15129	last_type_symbol = last_type_symbol && IN_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	15130	}
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	15131
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	15132	if(IN_type_symbol == NULL \|\| search_expression_type->is_real_type(IN_type_symbol))
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	15133	{
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	15134
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	15135
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	15136	if (IN_type_symbol == NULL)
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	15137	IN_type_symbol = last_type_symbol;
149 05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	15138	ADD_PARAM_LIST(IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in)
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	15139	symbol_c * return_type_symbol = &search_constant_type_c::constant_int_type_name;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	15140	function_type_prefix = (symbol_c*)(new pragma_c("int"));
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	15141	break;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	15142
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	15143	}
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	15144
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	15145
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	15146	ERROR;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	15147	}
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	15148
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	15149	}/function_trunc/
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	15150	break;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	15151
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	15152	/****
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	15153	*BCD_TO_UDINT
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	15154	*/
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	15155	case function_bcd_to_udint :
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	15156	{
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	15157	symbol_c *last_type_symbol = NULL;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	15158
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	15159	{
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	15160	identifier_c param_name("IN");
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	15161	/* Get the value from a foo(<param_name> = <param_value>) style call */
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	15162	symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
169 bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	15163	symbol_c *IN_type_symbol = NULL;
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	15164
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	15165	/* Get the value from a foo(<param_value>) style call */
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	15166	if (IN_param_value == NULL)
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	15167	IN_param_value = function_call_param_iterator.next();
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	15168	if (IN_param_value != NULL) {
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	15169	IN_type_symbol = search_expression_type->get_type(IN_param_value);
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	15170	last_type_symbol = last_type_symbol && IN_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	15171	}
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	15172
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	15173	if(IN_type_symbol == NULL \|\| search_expression_type->is_same_type(&search_constant_type_c::dword_type_name, last_type_symbol))
149 05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	15174	{
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	15175
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	15176	function_name = (symbol_c*)(new pragma_c("__bcd_to_uint"));
169 bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	15177
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	15178	if (IN_type_symbol == NULL)
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	15179	IN_type_symbol = last_type_symbol;
149 05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	15180	ADD_PARAM_LIST(IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in)
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	15181	symbol_c * return_type_symbol = &search_constant_type_c::udint_type_name;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	15182	function_type_prefix = return_type_symbol;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	15183	break;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	15184
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	15185	}
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	15186
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	15187
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	15188	ERROR;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	15189	}
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	15190
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	15191	}/function_bcd_to_udint/
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	15192	break;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	15193
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	15194	/****
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	15195	*BCD_TO_UINT
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	15196	*/
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	15197	case function_bcd_to_uint :
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	15198	{
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	15199	symbol_c *last_type_symbol = NULL;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	15200
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	15201	{
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	15202	identifier_c param_name("IN");
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	15203	/* Get the value from a foo(<param_name> = <param_value>) style call */
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	15204	symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
169 bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	15205	symbol_c *IN_type_symbol = NULL;
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	15206
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	15207	/* Get the value from a foo(<param_value>) style call */
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	15208	if (IN_param_value == NULL)
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	15209	IN_param_value = function_call_param_iterator.next();
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	15210	if (IN_param_value != NULL) {
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	15211	IN_type_symbol = search_expression_type->get_type(IN_param_value);
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	15212	last_type_symbol = last_type_symbol && IN_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	15213	}
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	15214
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	15215	if(IN_type_symbol == NULL \|\| search_expression_type->is_same_type(&search_constant_type_c::word_type_name, last_type_symbol))
149 05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	15216	{
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	15217
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	15218	function_name = (symbol_c*)(new pragma_c("__bcd_to_uint"));
169 bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	15219
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	15220	if (IN_type_symbol == NULL)
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	15221	IN_type_symbol = last_type_symbol;
149 05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	15222	ADD_PARAM_LIST(IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in)
70 e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	15223	symbol_c * return_type_symbol = &search_constant_type_c::uint_type_name;
149 05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	15224	function_type_prefix = return_type_symbol;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	15225	break;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	15226
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	15227	}
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	15228
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	15229
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	15230	ERROR;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	15231	}
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	15232
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	15233	}/function_bcd_to_uint/
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	15234	break;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	15235
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	15236	/****
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	15237	*BCD_TO_ULINT
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	15238	*/
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	15239	case function_bcd_to_ulint :
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	15240	{
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	15241	symbol_c *last_type_symbol = NULL;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	15242
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	15243	{
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	15244	identifier_c param_name("IN");
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	15245	/* Get the value from a foo(<param_name> = <param_value>) style call */
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	15246	symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
169 bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	15247	symbol_c *IN_type_symbol = NULL;
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	15248
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	15249	/* Get the value from a foo(<param_value>) style call */
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	15250	if (IN_param_value == NULL)
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	15251	IN_param_value = function_call_param_iterator.next();
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	15252	if (IN_param_value != NULL) {
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	15253	IN_type_symbol = search_expression_type->get_type(IN_param_value);
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	15254	last_type_symbol = last_type_symbol && IN_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	15255	}
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	15256
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	15257	if(IN_type_symbol == NULL \|\| search_expression_type->is_same_type(&search_constant_type_c::lword_type_name, last_type_symbol))
149 05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	15258	{
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	15259
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	15260	function_name = (symbol_c*)(new pragma_c("__bcd_to_uint"));
169 bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	15261
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	15262	if (IN_type_symbol == NULL)
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	15263	IN_type_symbol = last_type_symbol;
149 05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	15264	ADD_PARAM_LIST(IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in)
70 e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	15265	symbol_c * return_type_symbol = &search_constant_type_c::ulint_type_name;
149 05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	15266	function_type_prefix = return_type_symbol;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	15267	break;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	15268
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	15269	}
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	15270
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	15271
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	15272	ERROR;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	15273	}
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	15274
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	15275	}/function_bcd_to_ulint/
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	15276	break;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	15277
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	15278	/****
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	15279	*BCD_TO_USINT
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	15280	*/
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	15281	case function_bcd_to_usint :
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	15282	{
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	15283	symbol_c *last_type_symbol = NULL;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	15284
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	15285	{
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	15286	identifier_c param_name("IN");
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	15287	/* Get the value from a foo(<param_name> = <param_value>) style call */
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	15288	symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
169 bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	15289	symbol_c *IN_type_symbol = NULL;
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	15290
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	15291	/* Get the value from a foo(<param_value>) style call */
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	15292	if (IN_param_value == NULL)
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	15293	IN_param_value = function_call_param_iterator.next();
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	15294	if (IN_param_value != NULL) {
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	15295	IN_type_symbol = search_expression_type->get_type(IN_param_value);
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	15296	last_type_symbol = last_type_symbol && IN_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	15297	}
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	15298
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	15299	if(IN_type_symbol == NULL \|\| search_expression_type->is_same_type(&search_constant_type_c::byte_type_name, last_type_symbol))
149 05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	15300	{
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	15301
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	15302	function_name = (symbol_c*)(new pragma_c("__bcd_to_uint"));
169 bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	15303
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	15304	if (IN_type_symbol == NULL)
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	15305	IN_type_symbol = last_type_symbol;
149 05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	15306	ADD_PARAM_LIST(IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in)
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	15307	symbol_c * return_type_symbol = &search_constant_type_c::usint_type_name;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	15308	function_type_prefix = return_type_symbol;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	15309	break;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	15310
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	15311	}
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	15312
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	15313
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	15314	ERROR;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	15315	}
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	15316
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	15317	}/function_bcd_to_usint/
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	15318	break;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	15319
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	15320	/****
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	15321	*UDINT_TO_BCD
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	15322	*/
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	15323	case function_udint_to_bcd :
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	15324	{
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	15325	symbol_c *last_type_symbol = NULL;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	15326
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	15327	{
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	15328	identifier_c param_name("IN");
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	15329	/* Get the value from a foo(<param_name> = <param_value>) style call */
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	15330	symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
169 bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	15331	symbol_c *IN_type_symbol = NULL;
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	15332
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	15333	/* Get the value from a foo(<param_value>) style call */
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	15334	if (IN_param_value == NULL)
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	15335	IN_param_value = function_call_param_iterator.next();
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	15336	if (IN_param_value != NULL) {
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	15337	IN_type_symbol = search_expression_type->get_type(IN_param_value);
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	15338	last_type_symbol = last_type_symbol && IN_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	15339	}
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	15340
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	15341	if(IN_type_symbol == NULL \|\| search_expression_type->is_same_type(&search_constant_type_c::udint_type_name, last_type_symbol))
149 05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	15342	{
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	15343
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	15344	function_name = (symbol_c*)(new pragma_c("__uint_to_bcd"));
169 bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	15345
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	15346	if (IN_type_symbol == NULL)
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	15347	IN_type_symbol = last_type_symbol;
149 05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	15348	ADD_PARAM_LIST(IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in)
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	15349	symbol_c * return_type_symbol = &search_constant_type_c::constant_int_type_name;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	15350	function_type_prefix = return_type_symbol;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	15351	break;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	15352
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	15353	}
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	15354
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	15355
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	15356	ERROR;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	15357	}
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	15358
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	15359	}/function_udint_to_bcd/
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	15360	break;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	15361
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	15362	/****
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	15363	*UINT_TO_BCD
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	15364	*/
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	15365	case function_uint_to_bcd :
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	15366	{
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	15367	symbol_c *last_type_symbol = NULL;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	15368
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	15369	{
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	15370	identifier_c param_name("IN");
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	15371	/* Get the value from a foo(<param_name> = <param_value>) style call */
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	15372	symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
169 bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	15373	symbol_c *IN_type_symbol = NULL;
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	15374
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	15375	/* Get the value from a foo(<param_value>) style call */
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	15376	if (IN_param_value == NULL)
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	15377	IN_param_value = function_call_param_iterator.next();
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	15378	if (IN_param_value != NULL) {
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	15379	IN_type_symbol = search_expression_type->get_type(IN_param_value);
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	15380	last_type_symbol = last_type_symbol && IN_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	15381	}
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	15382
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	15383	if(IN_type_symbol == NULL \|\| search_expression_type->is_same_type(&search_constant_type_c::uint_type_name, last_type_symbol))
149 05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	15384	{
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	15385
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	15386	function_name = (symbol_c*)(new pragma_c("__uint_to_bcd"));
169 bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	15387
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	15388	if (IN_type_symbol == NULL)
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	15389	IN_type_symbol = last_type_symbol;
149 05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	15390	ADD_PARAM_LIST(IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in)
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	15391	symbol_c * return_type_symbol = &search_constant_type_c::constant_int_type_name;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	15392	function_type_prefix = return_type_symbol;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	15393	break;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	15394
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	15395	}
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	15396
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	15397
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	15398	ERROR;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	15399	}
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	15400
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	15401	}/function_uint_to_bcd/
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	15402	break;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	15403
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	15404	/****
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	15405	*USINT_TO_BCD
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	15406	*/
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	15407	case function_usint_to_bcd :
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	15408	{
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	15409	symbol_c *last_type_symbol = NULL;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	15410
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	15411	{
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	15412	identifier_c param_name("IN");
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	15413	/* Get the value from a foo(<param_name> = <param_value>) style call */
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	15414	symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
169 bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	15415	symbol_c *IN_type_symbol = NULL;
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	15416
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	15417	/* Get the value from a foo(<param_value>) style call */
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	15418	if (IN_param_value == NULL)
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	15419	IN_param_value = function_call_param_iterator.next();
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	15420	if (IN_param_value != NULL) {
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	15421	IN_type_symbol = search_expression_type->get_type(IN_param_value);
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	15422	last_type_symbol = last_type_symbol && IN_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	15423	}
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	15424
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	15425	if(IN_type_symbol == NULL \|\| search_expression_type->is_same_type(&search_constant_type_c::usint_type_name, last_type_symbol))
149 05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	15426	{
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	15427
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	15428	function_name = (symbol_c*)(new pragma_c("__uint_to_bcd"));
169 bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	15429
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	15430	if (IN_type_symbol == NULL)
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	15431	IN_type_symbol = last_type_symbol;
149 05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	15432	ADD_PARAM_LIST(IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in)
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	15433	symbol_c * return_type_symbol = &search_constant_type_c::constant_int_type_name;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	15434	function_type_prefix = return_type_symbol;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	15435	break;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	15436
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	15437	}
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	15438
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	15439
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	15440	ERROR;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	15441	}
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	15442
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	15443	}/function_usint_to_bcd/
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	15444	break;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	15445
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	15446	/****
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	15447	*ULINT_TO_BCD
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	15448	*/
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	15449	case function_ulint_to_bcd :
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	15450	{
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	15451	symbol_c *last_type_symbol = NULL;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	15452
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	15453	{
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	15454	identifier_c param_name("IN");
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	15455	/* Get the value from a foo(<param_name> = <param_value>) style call */
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	15456	symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
169 bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	15457	symbol_c *IN_type_symbol = NULL;
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	15458
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	15459	/* Get the value from a foo(<param_value>) style call */
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	15460	if (IN_param_value == NULL)
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	15461	IN_param_value = function_call_param_iterator.next();
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	15462	if (IN_param_value != NULL) {
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	15463	IN_type_symbol = search_expression_type->get_type(IN_param_value);
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	15464	last_type_symbol = last_type_symbol && IN_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	15465	}
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	15466
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	15467	if(IN_type_symbol == NULL \|\| search_expression_type->is_same_type(&search_constant_type_c::ulint_type_name, last_type_symbol))
149 05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	15468	{
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	15469
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	15470	function_name = (symbol_c*)(new pragma_c("__uint_to_bcd"));
169 bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	15471
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	15472	if (IN_type_symbol == NULL)
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	15473	IN_type_symbol = last_type_symbol;
149 05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	15474	ADD_PARAM_LIST(IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in)
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	15475	symbol_c * return_type_symbol = &search_constant_type_c::constant_int_type_name;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	15476	function_type_prefix = return_type_symbol;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	15477	break;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	15478
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	15479	}
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	15480
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	15481
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	15482	ERROR;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	15483	}
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	15484
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	15485	}/function_ulint_to_bcd/
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	15486	break;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	15487
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	15488	/****
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	15489	*DATE_AND_TIME_TO_TIME_OF_DAY
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	15490	*/
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	15491	case function_date_and_time_to_time_of_day :
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	15492	{
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	15493	symbol_c *last_type_symbol = NULL;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	15494
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	15495	{
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	15496	identifier_c param_name("IN");
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	15497	/* Get the value from a foo(<param_name> = <param_value>) style call */
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	15498	symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
169 bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	15499	symbol_c *IN_type_symbol = NULL;
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	15500
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	15501	/* Get the value from a foo(<param_value>) style call */
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	15502	if (IN_param_value == NULL)
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	15503	IN_param_value = function_call_param_iterator.next();
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	15504	if (IN_param_value != NULL) {
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	15505	IN_type_symbol = search_expression_type->get_type(IN_param_value);
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	15506	last_type_symbol = last_type_symbol && IN_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	15507	}
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	15508
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	15509	if(IN_type_symbol == NULL \|\| search_expression_type->is_same_type(&search_constant_type_c::dt_type_name, last_type_symbol))
149 05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	15510	{
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	15511
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	15512	function_name = (symbol_c*)(new pragma_c("__date_and_time_to_time_of_day"));
169 bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	15513
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	15514	if (IN_type_symbol == NULL)
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	15515	IN_type_symbol = last_type_symbol;
149 05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	15516	ADD_PARAM_LIST(IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in)
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	15517	symbol_c * return_type_symbol = &search_constant_type_c::tod_type_name;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	15518	break;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	15519
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	15520	}
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	15521
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	15522
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	15523	ERROR;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	15524	}
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	15525
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	15526	}/function_date_and_time_to_time_of_day/
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	15527	break;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	15528
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	15529	/****
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	15530	*DATE_AND_TIME_TO_DATE
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	15531	*/
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	15532	case function_date_and_time_to_date :
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	15533	{
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	15534	symbol_c *last_type_symbol = NULL;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	15535
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	15536	{
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	15537	identifier_c param_name("IN");
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	15538	/* Get the value from a foo(<param_name> = <param_value>) style call */
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	15539	symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
169 bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	15540	symbol_c *IN_type_symbol = NULL;
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	15541
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	15542	/* Get the value from a foo(<param_value>) style call */
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	15543	if (IN_param_value == NULL)
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	15544	IN_param_value = function_call_param_iterator.next();
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	15545	if (IN_param_value != NULL) {
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	15546	IN_type_symbol = search_expression_type->get_type(IN_param_value);
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	15547	last_type_symbol = last_type_symbol && IN_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	15548	}
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	15549
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	15550	if(IN_type_symbol == NULL \|\| search_expression_type->is_same_type(&search_constant_type_c::dt_type_name, last_type_symbol))
149 05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	15551	{
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	15552
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	15553	function_name = (symbol_c*)(new pragma_c("__date_and_time_to_date"));
169 bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	15554
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	15555	if (IN_type_symbol == NULL)
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	15556	IN_type_symbol = last_type_symbol;
149 05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	15557	ADD_PARAM_LIST(IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in)
70 e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	15558	symbol_c * return_type_symbol = &search_constant_type_c::date_type_name;
149 05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	15559	break;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	15560
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	15561	}
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	15562
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	15563
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	15564	ERROR;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	15565	}
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	15566
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	15567	}/function_date_and_time_to_date/
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	15568	break;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	15569
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	15570	/****
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	15571	*ABS
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	15572	*/
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	15573	case function_abs :
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	15574	{
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	15575	symbol_c *last_type_symbol = NULL;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	15576
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	15577	{
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	15578	identifier_c param_name("IN");
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	15579	/* Get the value from a foo(<param_name> = <param_value>) style call */
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	15580	symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
169 bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	15581	symbol_c *IN_type_symbol = NULL;
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	15582
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	15583	/* Get the value from a foo(<param_value>) style call */
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	15584	if (IN_param_value == NULL)
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	15585	IN_param_value = function_call_param_iterator.next();
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	15586	if (IN_param_value != NULL) {
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	15587	IN_type_symbol = search_expression_type->get_type(IN_param_value);
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	15588	last_type_symbol = last_type_symbol && IN_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	15589	}
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	15590
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	15591	if(IN_type_symbol == NULL \|\| search_expression_type->is_num_type(IN_type_symbol))
149 05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	15592	{
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	15593
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	15594	function_name = (symbol_c*)(new pragma_c("__abs_"));
169 bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	15595
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	15596	if (IN_type_symbol == NULL)
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	15597	IN_type_symbol = last_type_symbol;
149 05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	15598	ADD_PARAM_LIST(IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in)
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	15599	symbol_c * return_type_symbol = IN_type_symbol;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	15600	function_type_suffix = IN_type_symbol;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	15601	break;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	15602
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	15603	}
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	15604
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	15605
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	15606	ERROR;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	15607	}
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	15608
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	15609	}/function_abs/
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	15610	break;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	15611
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	15612	/****
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	15613	*SQRT
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	15614	*/
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	15615	case function_sqrt :
70 e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	15616	{
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	15617	symbol_c *last_type_symbol = NULL;
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	15618
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	15619	{
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	15620	identifier_c param_name("IN");
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	15621	/* Get the value from a foo(<param_name> = <param_value>) style call */
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	15622	symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
169 bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	15623	symbol_c *IN_type_symbol = NULL;
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	15624
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	15625	/* Get the value from a foo(<param_value>) style call */
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	15626	if (IN_param_value == NULL)
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	15627	IN_param_value = function_call_param_iterator.next();
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	15628	if (IN_param_value != NULL) {
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	15629	IN_type_symbol = search_expression_type->get_type(IN_param_value);
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	15630	last_type_symbol = last_type_symbol && IN_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	15631	}
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	15632
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	15633	if(IN_type_symbol == NULL \|\| search_expression_type->is_real_type(IN_type_symbol))
70 e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	15634	{
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	15635
165 83963465b773 Bug on standard function not defined with EN/ENO fixed lbessard parents: 154 diff changeset	15636	function_name = (symbol_c*)(new pragma_c("__sqrt_"));
169 bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	15637
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	15638	if (IN_type_symbol == NULL)
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	15639	IN_type_symbol = last_type_symbol;
149 05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	15640	ADD_PARAM_LIST(IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in)
70 e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	15641	symbol_c * return_type_symbol = IN_type_symbol;
165 83963465b773 Bug on standard function not defined with EN/ENO fixed lbessard parents: 154 diff changeset	15642	function_type_suffix = IN_type_symbol;
149 05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	15643	break;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	15644
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	15645	}
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	15646
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	15647
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	15648	ERROR;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	15649	}
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	15650
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	15651	}/function_sqrt/
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	15652	break;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	15653
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	15654	/****
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	15655	*LN
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	15656	*/
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	15657	case function_ln :
70 e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	15658	{
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	15659	symbol_c *last_type_symbol = NULL;
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	15660
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	15661	{
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	15662	identifier_c param_name("IN");
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	15663	/* Get the value from a foo(<param_name> = <param_value>) style call */
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	15664	symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
169 bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	15665	symbol_c *IN_type_symbol = NULL;
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	15666
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	15667	/* Get the value from a foo(<param_value>) style call */
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	15668	if (IN_param_value == NULL)
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	15669	IN_param_value = function_call_param_iterator.next();
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	15670	if (IN_param_value != NULL) {
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	15671	IN_type_symbol = search_expression_type->get_type(IN_param_value);
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	15672	last_type_symbol = last_type_symbol && IN_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	15673	}
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	15674
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	15675	if(IN_type_symbol == NULL \|\| search_expression_type->is_real_type(IN_type_symbol))
70 e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	15676	{
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	15677
165 83963465b773 Bug on standard function not defined with EN/ENO fixed lbessard parents: 154 diff changeset	15678	function_name = (symbol_c*)(new pragma_c("__ln_"));
169 bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	15679
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	15680	if (IN_type_symbol == NULL)
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	15681	IN_type_symbol = last_type_symbol;
149 05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	15682	ADD_PARAM_LIST(IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in)
70 e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	15683	symbol_c * return_type_symbol = IN_type_symbol;
165 83963465b773 Bug on standard function not defined with EN/ENO fixed lbessard parents: 154 diff changeset	15684	function_type_suffix = IN_type_symbol;
149 05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	15685	break;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	15686
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	15687	}
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	15688
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	15689
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	15690	ERROR;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	15691	}
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	15692
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	15693	}/function_ln/
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	15694	break;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	15695
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	15696	/****
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	15697	*LOG
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	15698	*/
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	15699	case function_log :
70 e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	15700	{
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	15701	symbol_c *last_type_symbol = NULL;
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	15702
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	15703	{
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	15704	identifier_c param_name("IN");
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	15705	/* Get the value from a foo(<param_name> = <param_value>) style call */
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	15706	symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
169 bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	15707	symbol_c *IN_type_symbol = NULL;
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	15708
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	15709	/* Get the value from a foo(<param_value>) style call */
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	15710	if (IN_param_value == NULL)
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	15711	IN_param_value = function_call_param_iterator.next();
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	15712	if (IN_param_value != NULL) {
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	15713	IN_type_symbol = search_expression_type->get_type(IN_param_value);
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	15714	last_type_symbol = last_type_symbol && IN_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	15715	}
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	15716
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	15717	if(IN_type_symbol == NULL \|\| search_expression_type->is_real_type(IN_type_symbol))
70 e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	15718	{
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	15719
165 83963465b773 Bug on standard function not defined with EN/ENO fixed lbessard parents: 154 diff changeset	15720	function_name = (symbol_c*)(new pragma_c("__log_"));
169 bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	15721
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	15722	if (IN_type_symbol == NULL)
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	15723	IN_type_symbol = last_type_symbol;
149 05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	15724	ADD_PARAM_LIST(IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in)
70 e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	15725	symbol_c * return_type_symbol = IN_type_symbol;
165 83963465b773 Bug on standard function not defined with EN/ENO fixed lbessard parents: 154 diff changeset	15726	function_type_suffix = IN_type_symbol;
149 05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	15727	break;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	15728
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	15729	}
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	15730
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	15731
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	15732	ERROR;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	15733	}
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	15734
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	15735	}/function_log/
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	15736	break;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	15737
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	15738	/****
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	15739	*EXP
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	15740	*/
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	15741	case function_exp :
70 e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	15742	{
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	15743	symbol_c *last_type_symbol = NULL;
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	15744
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	15745	{
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	15746	identifier_c param_name("IN");
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	15747	/* Get the value from a foo(<param_name> = <param_value>) style call */
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	15748	symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
169 bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	15749	symbol_c *IN_type_symbol = NULL;
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	15750
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	15751	/* Get the value from a foo(<param_value>) style call */
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	15752	if (IN_param_value == NULL)
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	15753	IN_param_value = function_call_param_iterator.next();
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	15754	if (IN_param_value != NULL) {
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	15755	IN_type_symbol = search_expression_type->get_type(IN_param_value);
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	15756	last_type_symbol = last_type_symbol && IN_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	15757	}
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	15758
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	15759	if(IN_type_symbol == NULL \|\| search_expression_type->is_real_type(IN_type_symbol))
70 e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	15760	{
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	15761
165 83963465b773 Bug on standard function not defined with EN/ENO fixed lbessard parents: 154 diff changeset	15762	function_name = (symbol_c*)(new pragma_c("__exp_"));
169 bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	15763
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	15764	if (IN_type_symbol == NULL)
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	15765	IN_type_symbol = last_type_symbol;
149 05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	15766	ADD_PARAM_LIST(IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in)
70 e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	15767	symbol_c * return_type_symbol = IN_type_symbol;
165 83963465b773 Bug on standard function not defined with EN/ENO fixed lbessard parents: 154 diff changeset	15768	function_type_suffix = IN_type_symbol;
149 05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	15769	break;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	15770
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	15771	}
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	15772
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	15773
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	15774	ERROR;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	15775	}
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	15776
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	15777	}/function_exp/
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	15778	break;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	15779
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	15780	/****
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	15781	*SIN
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	15782	*/
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	15783	case function_sin :
70 e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	15784	{
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	15785	symbol_c *last_type_symbol = NULL;
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	15786
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	15787	{
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	15788	identifier_c param_name("IN");
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	15789	/* Get the value from a foo(<param_name> = <param_value>) style call */
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	15790	symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
169 bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	15791	symbol_c *IN_type_symbol = NULL;
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	15792
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	15793	/* Get the value from a foo(<param_value>) style call */
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	15794	if (IN_param_value == NULL)
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	15795	IN_param_value = function_call_param_iterator.next();
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	15796	if (IN_param_value != NULL) {
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	15797	IN_type_symbol = search_expression_type->get_type(IN_param_value);
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	15798	last_type_symbol = last_type_symbol && IN_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	15799	}
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	15800
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	15801	if(IN_type_symbol == NULL \|\| search_expression_type->is_real_type(IN_type_symbol))
70 e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	15802	{
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	15803
165 83963465b773 Bug on standard function not defined with EN/ENO fixed lbessard parents: 154 diff changeset	15804	function_name = (symbol_c*)(new pragma_c("__sin_"));
169 bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	15805
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	15806	if (IN_type_symbol == NULL)
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	15807	IN_type_symbol = last_type_symbol;
149 05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	15808	ADD_PARAM_LIST(IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in)
70 e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	15809	symbol_c * return_type_symbol = IN_type_symbol;
165 83963465b773 Bug on standard function not defined with EN/ENO fixed lbessard parents: 154 diff changeset	15810	function_type_suffix = IN_type_symbol;
149 05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	15811	break;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	15812
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	15813	}
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	15814
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	15815
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	15816	ERROR;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	15817	}
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	15818
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	15819	}/function_sin/
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	15820	break;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	15821
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	15822	/****
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	15823	*COS
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	15824	*/
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	15825	case function_cos :
70 e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	15826	{
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	15827	symbol_c *last_type_symbol = NULL;
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	15828
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	15829	{
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	15830	identifier_c param_name("IN");
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	15831	/* Get the value from a foo(<param_name> = <param_value>) style call */
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	15832	symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
169 bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	15833	symbol_c *IN_type_symbol = NULL;
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	15834
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	15835	/* Get the value from a foo(<param_value>) style call */
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	15836	if (IN_param_value == NULL)
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	15837	IN_param_value = function_call_param_iterator.next();
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	15838	if (IN_param_value != NULL) {
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	15839	IN_type_symbol = search_expression_type->get_type(IN_param_value);
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	15840	last_type_symbol = last_type_symbol && IN_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	15841	}
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	15842
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	15843	if(IN_type_symbol == NULL \|\| search_expression_type->is_real_type(IN_type_symbol))
70 e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	15844	{
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	15845
165 83963465b773 Bug on standard function not defined with EN/ENO fixed lbessard parents: 154 diff changeset	15846	function_name = (symbol_c*)(new pragma_c("__cos_"));
169 bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	15847
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	15848	if (IN_type_symbol == NULL)
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	15849	IN_type_symbol = last_type_symbol;
149 05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	15850	ADD_PARAM_LIST(IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in)
70 e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	15851	symbol_c * return_type_symbol = IN_type_symbol;
165 83963465b773 Bug on standard function not defined with EN/ENO fixed lbessard parents: 154 diff changeset	15852	function_type_suffix = IN_type_symbol;
149 05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	15853	break;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	15854
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	15855	}
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	15856
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	15857
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	15858	ERROR;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	15859	}
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	15860
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	15861	}/function_cos/
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	15862	break;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	15863
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	15864	/****
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	15865	*TAN
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	15866	*/
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	15867	case function_tan :
70 e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	15868	{
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	15869	symbol_c *last_type_symbol = NULL;
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	15870
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	15871	{
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	15872	identifier_c param_name("IN");
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	15873	/* Get the value from a foo(<param_name> = <param_value>) style call */
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	15874	symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
169 bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	15875	symbol_c *IN_type_symbol = NULL;
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	15876
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	15877	/* Get the value from a foo(<param_value>) style call */
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	15878	if (IN_param_value == NULL)
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	15879	IN_param_value = function_call_param_iterator.next();
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	15880	if (IN_param_value != NULL) {
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	15881	IN_type_symbol = search_expression_type->get_type(IN_param_value);
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	15882	last_type_symbol = last_type_symbol && IN_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	15883	}
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	15884
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	15885	if(IN_type_symbol == NULL \|\| search_expression_type->is_real_type(IN_type_symbol))
70 e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	15886	{
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	15887
165 83963465b773 Bug on standard function not defined with EN/ENO fixed lbessard parents: 154 diff changeset	15888	function_name = (symbol_c*)(new pragma_c("__tan_"));
169 bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	15889
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	15890	if (IN_type_symbol == NULL)
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	15891	IN_type_symbol = last_type_symbol;
149 05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	15892	ADD_PARAM_LIST(IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in)
70 e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	15893	symbol_c * return_type_symbol = IN_type_symbol;
165 83963465b773 Bug on standard function not defined with EN/ENO fixed lbessard parents: 154 diff changeset	15894	function_type_suffix = IN_type_symbol;
149 05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	15895	break;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	15896
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	15897	}
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	15898
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	15899
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	15900	ERROR;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	15901	}
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	15902
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	15903	}/function_tan/
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	15904	break;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	15905
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	15906	/****
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	15907	*ASIN
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	15908	*/
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	15909	case function_asin :
70 e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	15910	{
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	15911	symbol_c *last_type_symbol = NULL;
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	15912
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	15913	{
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	15914	identifier_c param_name("IN");
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	15915	/* Get the value from a foo(<param_name> = <param_value>) style call */
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	15916	symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
169 bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	15917	symbol_c *IN_type_symbol = NULL;
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	15918
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	15919	/* Get the value from a foo(<param_value>) style call */
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	15920	if (IN_param_value == NULL)
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	15921	IN_param_value = function_call_param_iterator.next();
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	15922	if (IN_param_value != NULL) {
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	15923	IN_type_symbol = search_expression_type->get_type(IN_param_value);
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	15924	last_type_symbol = last_type_symbol && IN_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	15925	}
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	15926
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	15927	if(IN_type_symbol == NULL \|\| search_expression_type->is_real_type(IN_type_symbol))
70 e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	15928	{
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	15929
165 83963465b773 Bug on standard function not defined with EN/ENO fixed lbessard parents: 154 diff changeset	15930	function_name = (symbol_c*)(new pragma_c("__asin_"));
169 bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	15931
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	15932	if (IN_type_symbol == NULL)
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	15933	IN_type_symbol = last_type_symbol;
149 05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	15934	ADD_PARAM_LIST(IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in)
70 e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	15935	symbol_c * return_type_symbol = IN_type_symbol;
165 83963465b773 Bug on standard function not defined with EN/ENO fixed lbessard parents: 154 diff changeset	15936	function_type_suffix = IN_type_symbol;
149 05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	15937	break;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	15938
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	15939	}
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	15940
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	15941
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	15942	ERROR;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	15943	}
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	15944
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	15945	}/function_asin/
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	15946	break;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	15947
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	15948	/****
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	15949	*ACOS
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	15950	*/
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	15951	case function_acos :
70 e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	15952	{
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	15953	symbol_c *last_type_symbol = NULL;
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	15954
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	15955	{
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	15956	identifier_c param_name("IN");
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	15957	/* Get the value from a foo(<param_name> = <param_value>) style call */
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	15958	symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
169 bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	15959	symbol_c *IN_type_symbol = NULL;
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	15960
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	15961	/* Get the value from a foo(<param_value>) style call */
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	15962	if (IN_param_value == NULL)
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	15963	IN_param_value = function_call_param_iterator.next();
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	15964	if (IN_param_value != NULL) {
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	15965	IN_type_symbol = search_expression_type->get_type(IN_param_value);
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	15966	last_type_symbol = last_type_symbol && IN_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	15967	}
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	15968
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	15969	if(IN_type_symbol == NULL \|\| search_expression_type->is_real_type(IN_type_symbol))
70 e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	15970	{
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	15971
165 83963465b773 Bug on standard function not defined with EN/ENO fixed lbessard parents: 154 diff changeset	15972	function_name = (symbol_c*)(new pragma_c("__acos_"));
169 bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	15973
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	15974	if (IN_type_symbol == NULL)
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	15975	IN_type_symbol = last_type_symbol;
149 05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	15976	ADD_PARAM_LIST(IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in)
70 e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	15977	symbol_c * return_type_symbol = IN_type_symbol;
165 83963465b773 Bug on standard function not defined with EN/ENO fixed lbessard parents: 154 diff changeset	15978	function_type_suffix = IN_type_symbol;
149 05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	15979	break;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	15980
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	15981	}
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	15982
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	15983
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	15984	ERROR;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	15985	}
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	15986
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	15987	}/function_acos/
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	15988	break;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	15989
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	15990	/****
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	15991	*ATAN
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	15992	*/
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	15993	case function_atan :
70 e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	15994	{
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	15995	symbol_c *last_type_symbol = NULL;
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	15996
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	15997	{
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	15998	identifier_c param_name("IN");
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	15999	/* Get the value from a foo(<param_name> = <param_value>) style call */
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	16000	symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
169 bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	16001	symbol_c *IN_type_symbol = NULL;
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	16002
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	16003	/* Get the value from a foo(<param_value>) style call */
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	16004	if (IN_param_value == NULL)
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	16005	IN_param_value = function_call_param_iterator.next();
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	16006	if (IN_param_value != NULL) {
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	16007	IN_type_symbol = search_expression_type->get_type(IN_param_value);
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	16008	last_type_symbol = last_type_symbol && IN_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	16009	}
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	16010
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	16011	if(IN_type_symbol == NULL \|\| search_expression_type->is_real_type(IN_type_symbol))
70 e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	16012	{
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	16013
165 83963465b773 Bug on standard function not defined with EN/ENO fixed lbessard parents: 154 diff changeset	16014	function_name = (symbol_c*)(new pragma_c("__atan_"));
169 bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	16015
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	16016	if (IN_type_symbol == NULL)
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	16017	IN_type_symbol = last_type_symbol;
149 05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	16018	ADD_PARAM_LIST(IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in)
70 e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	16019	symbol_c * return_type_symbol = IN_type_symbol;
165 83963465b773 Bug on standard function not defined with EN/ENO fixed lbessard parents: 154 diff changeset	16020	function_type_suffix = IN_type_symbol;
149 05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	16021	break;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	16022
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	16023	}
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	16024
70 e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	16025
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	16026	ERROR;
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	16027	}
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	16028
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	16029	}/function_atan/
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	16030	break;
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	16031
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	16032	/****
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	16033	*ADD
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	16034	*/
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	16035	case function_add :
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	16036	{
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	16037	symbol_c *last_type_symbol = NULL;
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	16038
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	16039	{
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	16040	identifier_c param_name("IN1");
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	16041	/* Get the value from a foo(<param_name> = <param_value>) style call */
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	16042	symbol_c *IN1_param_value = function_call_param_iterator.search(&param_name);
169 bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	16043	symbol_c *IN1_type_symbol = NULL;
70 e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	16044
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	16045	/* Get the value from a foo(<param_value>) style call */
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	16046	if (IN1_param_value == NULL)
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	16047	IN1_param_value = function_call_param_iterator.next();
169 bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	16048	if (IN1_param_value != NULL) {
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	16049	IN1_type_symbol = search_expression_type->get_type(IN1_param_value);
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	16050	last_type_symbol = last_type_symbol && IN1_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 ;
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	16051	}
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	16052
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	16053	if(IN1_type_symbol == NULL \|\| search_expression_type->is_num_type(IN1_type_symbol))
70 e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	16054	{
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	16055
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	16056	{
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	16057	identifier_c param_name("IN2");
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	16058	/* Get the value from a foo(<param_name> = <param_value>) style call */
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	16059	symbol_c *IN2_param_value = function_call_param_iterator.search(&param_name);
169 bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	16060	symbol_c *IN2_type_symbol = NULL;
70 e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	16061
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	16062	/* Get the value from a foo(<param_value>) style call */
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	16063	if (IN2_param_value == NULL)
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	16064	IN2_param_value = function_call_param_iterator.next();
169 bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	16065	if (IN2_param_value != NULL) {
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	16066	IN2_type_symbol = search_expression_type->get_type(IN2_param_value);
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	16067	last_type_symbol = last_type_symbol && IN2_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 ;
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	16068	}
70 e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	16069
169 bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	16070	if(IN2_type_symbol == NULL \|\| search_expression_type->is_num_type(IN2_type_symbol))
70 e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	16071	{
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	16072
149 05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	16073	function_name = (symbol_c*)(new pragma_c("__add_"));
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	16074
169 bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	16075	if (nb_param < 2)
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	16076	nb_param = 2;
154 9114afe1f64b Bug with standard functions nb_params count on Windows fixed lbessard parents: 153 diff changeset	16077	char* nb_param_str = new char[10];
149 05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	16078	sprintf(nb_param_str, "%d", nb_param);
154 9114afe1f64b Bug with standard functions nb_params count on Windows fixed lbessard parents: 153 diff changeset	16079	ADD_PARAM_LIST((symbol_c)(new integer_c((const char )nb_param_str)), (symbol_c*)(new int_type_name_c()), function_param_iterator_c::direction_in)
169 bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	16080
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	16081	if (IN1_type_symbol == NULL)
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	16082	IN1_type_symbol = last_type_symbol;
149 05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	16083	ADD_PARAM_LIST(IN1_param_value, IN1_type_symbol, function_param_iterator_c::direction_in)
169 bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	16084
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	16085	if (IN2_type_symbol == NULL)
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	16086	IN2_type_symbol = last_type_symbol;
149 05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	16087	ADD_PARAM_LIST(IN2_param_value, IN2_type_symbol, function_param_iterator_c::direction_in)
70 e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	16088
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	16089	int base_num = 3;
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	16090	symbol_c *param_value = NULL;
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	16091	do{
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	16092	char my_name[10];
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	16093	sprintf(my_name, "IN%d", base_num++);
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	16094	identifier_c param_name(my_name);
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	16095
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	16096	/* Get the value from a foo(<param_name> = <param_value>) style call */
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	16097	param_value = function_call_param_iterator.search(&param_name);
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	16098
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	16099	/* Get the value from a foo(<param_value>) style call */
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	16100	if (param_value == NULL)
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	16101	param_value = function_call_param_iterator.next();
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	16102	if (param_value != NULL){
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	16103	symbol_c *current_type_symbol = search_expression_type->get_type(param_value);
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	16104	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 ;
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	16105
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	16106	/Function specific CODE /
149 05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	16107	ADD_PARAM_LIST(param_value, current_type_symbol, function_param_iterator_c::direction_in)
70 e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	16108	}
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	16109
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	16110	}while(param_value != NULL);
149 05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	16111	symbol_c * return_type_symbol = last_type_symbol;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	16112	function_type_suffix = return_type_symbol;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	16113	break;
70 e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	16114
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	16115	}
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	16116
149 05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	16117
70 e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	16118	ERROR;
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	16119	}
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	16120
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	16121	}
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	16122
169 bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	16123	if(IN1_type_symbol == NULL \|\| search_expression_type->is_same_type(&search_constant_type_c::dt_type_name, last_type_symbol))
70 e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	16124	{
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	16125
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	16126	{
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	16127	identifier_c param_name("IN2");
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	16128	/* Get the value from a foo(<param_name> = <param_value>) style call */
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	16129	symbol_c *IN2_param_value = function_call_param_iterator.search(&param_name);
169 bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	16130	symbol_c *IN2_type_symbol = NULL;
70 e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	16131
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	16132	/* Get the value from a foo(<param_value>) style call */
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	16133	if (IN2_param_value == NULL)
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	16134	IN2_param_value = function_call_param_iterator.next();
169 bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	16135	if (IN2_param_value != NULL) {
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	16136	IN2_type_symbol = search_expression_type->get_type(IN2_param_value);
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	16137	last_type_symbol = last_type_symbol && IN2_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 ;
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	16138	}
70 e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	16139
169 bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	16140	if(IN2_type_symbol == NULL \|\| search_expression_type->is_same_type(&search_constant_type_c::time_type_name, last_type_symbol))
70 e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	16141	{
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	16142
149 05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	16143	function_name = (symbol_c*)(new pragma_c("__time_add"));
169 bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	16144
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	16145	if (IN1_type_symbol == NULL)
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	16146	IN1_type_symbol = last_type_symbol;
149 05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	16147	ADD_PARAM_LIST(IN1_param_value, IN1_type_symbol, function_param_iterator_c::direction_in)
169 bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	16148
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	16149	if (IN2_type_symbol == NULL)
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	16150	IN2_type_symbol = last_type_symbol;
149 05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	16151	ADD_PARAM_LIST(IN2_param_value, IN2_type_symbol, function_param_iterator_c::direction_in)
70 e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	16152	symbol_c * return_type_symbol = &search_constant_type_c::dt_type_name;
149 05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	16153	break;
70 e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	16154
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	16155	}
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	16156
149 05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	16157
70 e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	16158	ERROR;
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	16159	}
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	16160
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	16161	}
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	16162
169 bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	16163	if(IN1_type_symbol == NULL \|\| search_expression_type->is_same_type(&search_constant_type_c::tod_type_name, last_type_symbol))
70 e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	16164	{
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	16165
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	16166	{
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	16167	identifier_c param_name("IN2");
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	16168	/* Get the value from a foo(<param_name> = <param_value>) style call */
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	16169	symbol_c *IN2_param_value = function_call_param_iterator.search(&param_name);
169 bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	16170	symbol_c *IN2_type_symbol = NULL;
70 e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	16171
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	16172	/* Get the value from a foo(<param_value>) style call */
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	16173	if (IN2_param_value == NULL)
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	16174	IN2_param_value = function_call_param_iterator.next();
169 bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	16175	if (IN2_param_value != NULL) {
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	16176	IN2_type_symbol = search_expression_type->get_type(IN2_param_value);
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	16177	last_type_symbol = last_type_symbol && IN2_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 ;
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	16178	}
70 e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	16179
169 bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	16180	if(IN2_type_symbol == NULL \|\| search_expression_type->is_same_type(&search_constant_type_c::time_type_name, last_type_symbol))
70 e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	16181	{
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	16182
149 05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	16183	function_name = (symbol_c*)(new pragma_c("__time_add"));
169 bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	16184
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	16185	if (IN1_type_symbol == NULL)
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	16186	IN1_type_symbol = last_type_symbol;
149 05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	16187	ADD_PARAM_LIST(IN1_param_value, IN1_type_symbol, function_param_iterator_c::direction_in)
169 bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	16188
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	16189	if (IN2_type_symbol == NULL)
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	16190	IN2_type_symbol = last_type_symbol;
149 05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	16191	ADD_PARAM_LIST(IN2_param_value, IN2_type_symbol, function_param_iterator_c::direction_in)
70 e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	16192	symbol_c * return_type_symbol = &search_constant_type_c::tod_type_name;
149 05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	16193	break;
70 e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	16194
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	16195	}
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	16196
149 05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	16197
70 e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	16198	ERROR;
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	16199	}
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	16200
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	16201	}
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	16202
169 bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	16203	if(IN1_type_symbol == NULL \|\| search_expression_type->is_same_type(&search_constant_type_c::time_type_name, last_type_symbol))
70 e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	16204	{
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	16205
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	16206	{
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	16207	identifier_c param_name("IN2");
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	16208	/* Get the value from a foo(<param_name> = <param_value>) style call */
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	16209	symbol_c *IN2_param_value = function_call_param_iterator.search(&param_name);
169 bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	16210	symbol_c *IN2_type_symbol = NULL;
70 e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	16211
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	16212	/* Get the value from a foo(<param_value>) style call */
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	16213	if (IN2_param_value == NULL)
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	16214	IN2_param_value = function_call_param_iterator.next();
169 bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	16215	if (IN2_param_value != NULL) {
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	16216	IN2_type_symbol = search_expression_type->get_type(IN2_param_value);
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	16217	last_type_symbol = last_type_symbol && IN2_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 ;
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	16218	}
70 e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	16219
169 bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	16220	if(IN2_type_symbol == NULL \|\| search_expression_type->is_same_type(&search_constant_type_c::time_type_name, last_type_symbol))
70 e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	16221	{
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	16222
149 05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	16223	function_name = (symbol_c*)(new pragma_c("__time_add"));
169 bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	16224
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	16225	if (IN1_type_symbol == NULL)
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	16226	IN1_type_symbol = last_type_symbol;
149 05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	16227	ADD_PARAM_LIST(IN1_param_value, IN1_type_symbol, function_param_iterator_c::direction_in)
169 bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	16228
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	16229	if (IN2_type_symbol == NULL)
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	16230	IN2_type_symbol = last_type_symbol;
149 05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	16231	ADD_PARAM_LIST(IN2_param_value, IN2_type_symbol, function_param_iterator_c::direction_in)
70 e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	16232	symbol_c * return_type_symbol = &search_constant_type_c::time_type_name;
149 05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	16233	break;
70 e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	16234
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	16235	}
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	16236
149 05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	16237
70 e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	16238	ERROR;
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	16239	}
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	16240
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	16241	}
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	16242
149 05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	16243
70 e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	16244	ERROR;
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	16245	}
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	16246
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	16247	}/function_add/
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	16248	break;
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	16249
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	16250	/****
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	16251	*MUL
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	16252	*/
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	16253	case function_mul :
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	16254	{
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	16255	symbol_c *last_type_symbol = NULL;
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	16256
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	16257	{
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	16258	identifier_c param_name("IN1");
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	16259	/* Get the value from a foo(<param_name> = <param_value>) style call */
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	16260	symbol_c *IN1_param_value = function_call_param_iterator.search(&param_name);
169 bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	16261	symbol_c *IN1_type_symbol = NULL;
70 e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	16262
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	16263	/* Get the value from a foo(<param_value>) style call */
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	16264	if (IN1_param_value == NULL)
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	16265	IN1_param_value = function_call_param_iterator.next();
169 bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	16266	if (IN1_param_value != NULL) {
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	16267	IN1_type_symbol = search_expression_type->get_type(IN1_param_value);
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	16268	last_type_symbol = last_type_symbol && IN1_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 ;
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	16269	}
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	16270
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	16271	if(IN1_type_symbol == NULL \|\| search_expression_type->is_num_type(IN1_type_symbol))
70 e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	16272	{
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	16273
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	16274	{
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	16275	identifier_c param_name("IN2");
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	16276	/* Get the value from a foo(<param_name> = <param_value>) style call */
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	16277	symbol_c *IN2_param_value = function_call_param_iterator.search(&param_name);
169 bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	16278	symbol_c *IN2_type_symbol = NULL;
70 e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	16279
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	16280	/* Get the value from a foo(<param_value>) style call */
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	16281	if (IN2_param_value == NULL)
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	16282	IN2_param_value = function_call_param_iterator.next();
169 bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	16283	if (IN2_param_value != NULL) {
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	16284	IN2_type_symbol = search_expression_type->get_type(IN2_param_value);
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	16285	last_type_symbol = last_type_symbol && IN2_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 ;
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	16286	}
70 e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	16287
169 bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	16288	if(IN2_type_symbol == NULL \|\| search_expression_type->is_num_type(IN2_type_symbol))
70 e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	16289	{
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	16290
149 05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	16291	function_name = (symbol_c*)(new pragma_c("__mul_"));
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	16292
169 bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	16293	if (nb_param < 2)
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	16294	nb_param = 2;
154 9114afe1f64b Bug with standard functions nb_params count on Windows fixed lbessard parents: 153 diff changeset	16295	char* nb_param_str = new char[10];
149 05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	16296	sprintf(nb_param_str, "%d", nb_param);
154 9114afe1f64b Bug with standard functions nb_params count on Windows fixed lbessard parents: 153 diff changeset	16297	ADD_PARAM_LIST((symbol_c)(new integer_c((const char )nb_param_str)), (symbol_c*)(new int_type_name_c()), function_param_iterator_c::direction_in)
169 bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	16298
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	16299	if (IN1_type_symbol == NULL)
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	16300	IN1_type_symbol = last_type_symbol;
149 05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	16301	ADD_PARAM_LIST(IN1_param_value, IN1_type_symbol, function_param_iterator_c::direction_in)
169 bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	16302
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	16303	if (IN2_type_symbol == NULL)
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	16304	IN2_type_symbol = last_type_symbol;
149 05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	16305	ADD_PARAM_LIST(IN2_param_value, IN2_type_symbol, function_param_iterator_c::direction_in)
70 e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	16306
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	16307	int base_num = 3;
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	16308	symbol_c *param_value = NULL;
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	16309	do{
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	16310	char my_name[10];
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	16311	sprintf(my_name, "IN%d", base_num++);
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	16312	identifier_c param_name(my_name);
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	16313
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	16314	/* Get the value from a foo(<param_name> = <param_value>) style call */
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	16315	param_value = function_call_param_iterator.search(&param_name);
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	16316
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	16317	/* Get the value from a foo(<param_value>) style call */
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	16318	if (param_value == NULL)
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	16319	param_value = function_call_param_iterator.next();
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	16320	if (param_value != NULL){
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	16321	symbol_c *current_type_symbol = search_expression_type->get_type(param_value);
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	16322	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 ;
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	16323
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	16324	/Function specific CODE /
149 05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	16325	ADD_PARAM_LIST(param_value, current_type_symbol, function_param_iterator_c::direction_in)
70 e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	16326	}
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	16327
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	16328	}while(param_value != NULL);
149 05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	16329	symbol_c * return_type_symbol = last_type_symbol;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	16330	function_type_suffix = return_type_symbol;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	16331	break;
70 e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	16332
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	16333	}
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	16334
149 05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	16335
70 e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	16336	ERROR;
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	16337	}
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	16338
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	16339	}
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	16340
169 bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	16341	if(IN1_type_symbol == NULL \|\| search_expression_type->is_same_type(&search_constant_type_c::time_type_name, last_type_symbol))
70 e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	16342	{
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	16343
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	16344	{
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	16345	identifier_c param_name("IN2");
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	16346	/* Get the value from a foo(<param_name> = <param_value>) style call */
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	16347	symbol_c *IN2_param_value = function_call_param_iterator.search(&param_name);
169 bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	16348	symbol_c *IN2_type_symbol = NULL;
70 e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	16349
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	16350	/* Get the value from a foo(<param_value>) style call */
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	16351	if (IN2_param_value == NULL)
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	16352	IN2_param_value = function_call_param_iterator.next();
169 bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	16353	if (IN2_param_value != NULL) {
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	16354	IN2_type_symbol = search_expression_type->get_type(IN2_param_value);
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	16355	last_type_symbol = last_type_symbol && IN2_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 ;
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	16356	}
70 e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	16357
169 bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	16358	if(IN2_type_symbol == NULL \|\| search_expression_type->is_num_type(IN2_type_symbol))
70 e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	16359	{
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	16360
149 05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	16361	function_name = (symbol_c*)(new pragma_c("__time_mul"));
169 bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	16362
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	16363	if (IN1_type_symbol == NULL)
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	16364	IN1_type_symbol = last_type_symbol;
149 05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	16365	ADD_PARAM_LIST(IN1_param_value, IN1_type_symbol, function_param_iterator_c::direction_in)
169 bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	16366
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	16367	if (IN2_type_symbol == NULL)
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	16368	IN2_type_symbol = last_type_symbol;
149 05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	16369	ADD_PARAM_LIST(IN2_param_value, IN2_type_symbol, function_param_iterator_c::direction_in)
70 e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	16370	symbol_c * return_type_symbol = &search_constant_type_c::time_type_name;
149 05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	16371	break;
70 e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	16372
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	16373	}
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	16374
149 05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	16375
70 e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	16376	ERROR;
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	16377	}
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	16378
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	16379	}
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	16380
149 05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	16381
70 e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	16382	ERROR;
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	16383	}
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	16384
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	16385	}/function_mul/
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	16386	break;
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	16387
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	16388	/****
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	16389	*SUB
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	16390	*/
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	16391	case function_sub :
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	16392	{
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	16393	symbol_c *last_type_symbol = NULL;
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	16394
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	16395	{
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	16396	identifier_c param_name("IN1");
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	16397	/* Get the value from a foo(<param_name> = <param_value>) style call */
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	16398	symbol_c *IN1_param_value = function_call_param_iterator.search(&param_name);
169 bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	16399	symbol_c *IN1_type_symbol = NULL;
70 e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	16400
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	16401	/* Get the value from a foo(<param_value>) style call */
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	16402	if (IN1_param_value == NULL)
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	16403	IN1_param_value = function_call_param_iterator.next();
169 bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	16404	if (IN1_param_value != NULL) {
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	16405	IN1_type_symbol = search_expression_type->get_type(IN1_param_value);
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	16406	last_type_symbol = last_type_symbol && IN1_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 ;
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	16407	}
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	16408
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	16409	if(IN1_type_symbol == NULL \|\| search_expression_type->is_num_type(IN1_type_symbol))
70 e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	16410	{
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	16411
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	16412	{
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	16413	identifier_c param_name("IN2");
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	16414	/* Get the value from a foo(<param_name> = <param_value>) style call */
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	16415	symbol_c *IN2_param_value = function_call_param_iterator.search(&param_name);
169 bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	16416	symbol_c *IN2_type_symbol = NULL;
70 e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	16417
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	16418	/* Get the value from a foo(<param_value>) style call */
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	16419	if (IN2_param_value == NULL)
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	16420	IN2_param_value = function_call_param_iterator.next();
169 bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	16421	if (IN2_param_value != NULL) {
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	16422	IN2_type_symbol = search_expression_type->get_type(IN2_param_value);
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	16423	last_type_symbol = last_type_symbol && IN2_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 ;
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	16424	}
70 e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	16425
169 bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	16426	if(IN2_type_symbol == NULL \|\| search_expression_type->is_num_type(IN2_type_symbol))
70 e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	16427	{
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	16428
149 05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	16429	function_name = (symbol_c*)(new pragma_c("__sub_"));
169 bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	16430
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	16431	if (IN1_type_symbol == NULL)
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	16432	IN1_type_symbol = last_type_symbol;
149 05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	16433	ADD_PARAM_LIST(IN1_param_value, IN1_type_symbol, function_param_iterator_c::direction_in)
169 bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	16434
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	16435	if (IN2_type_symbol == NULL)
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	16436	IN2_type_symbol = last_type_symbol;
149 05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	16437	ADD_PARAM_LIST(IN2_param_value, IN2_type_symbol, function_param_iterator_c::direction_in)
70 e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	16438	symbol_c * return_type_symbol = last_type_symbol;
149 05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	16439	function_type_suffix = return_type_symbol;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	16440	break;
70 e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	16441
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	16442	}
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	16443
149 05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	16444
70 e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	16445	ERROR;
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	16446	}
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	16447
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	16448	}
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	16449
169 bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	16450	if(IN1_type_symbol == NULL \|\| search_expression_type->is_same_type(&search_constant_type_c::date_type_name, last_type_symbol))
70 e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	16451	{
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	16452
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	16453	{
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	16454	identifier_c param_name("IN2");
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	16455	/* Get the value from a foo(<param_name> = <param_value>) style call */
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	16456	symbol_c *IN2_param_value = function_call_param_iterator.search(&param_name);
169 bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	16457	symbol_c *IN2_type_symbol = NULL;
70 e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	16458
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	16459	/* Get the value from a foo(<param_value>) style call */
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	16460	if (IN2_param_value == NULL)
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	16461	IN2_param_value = function_call_param_iterator.next();
169 bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	16462	if (IN2_param_value != NULL) {
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	16463	IN2_type_symbol = search_expression_type->get_type(IN2_param_value);
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	16464	last_type_symbol = last_type_symbol && IN2_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 ;
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	16465	}
70 e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	16466
169 bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	16467	if(IN2_type_symbol == NULL \|\| search_expression_type->is_same_type(&search_constant_type_c::date_type_name, last_type_symbol))
70 e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	16468	{
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	16469
149 05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	16470	function_name = (symbol_c*)(new pragma_c("__time_sub"));
169 bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	16471
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	16472	if (IN1_type_symbol == NULL)
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	16473	IN1_type_symbol = last_type_symbol;
149 05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	16474	ADD_PARAM_LIST(IN1_param_value, IN1_type_symbol, function_param_iterator_c::direction_in)
169 bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	16475
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	16476	if (IN2_type_symbol == NULL)
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	16477	IN2_type_symbol = last_type_symbol;
149 05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	16478	ADD_PARAM_LIST(IN2_param_value, IN2_type_symbol, function_param_iterator_c::direction_in)
70 e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	16479	symbol_c * return_type_symbol = &search_constant_type_c::time_type_name;
149 05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	16480	break;
70 e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	16481
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	16482	}
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	16483
149 05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	16484
70 e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	16485	ERROR;
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	16486	}
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	16487
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	16488	}
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	16489
169 bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	16490	if(IN1_type_symbol == NULL \|\| search_expression_type->is_same_type(&search_constant_type_c::dt_type_name, last_type_symbol))
70 e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	16491	{
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	16492
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	16493	{
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	16494	identifier_c param_name("IN2");
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	16495	/* Get the value from a foo(<param_name> = <param_value>) style call */
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	16496	symbol_c *IN2_param_value = function_call_param_iterator.search(&param_name);
169 bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	16497	symbol_c *IN2_type_symbol = NULL;
70 e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	16498
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	16499	/* Get the value from a foo(<param_value>) style call */
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	16500	if (IN2_param_value == NULL)
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	16501	IN2_param_value = function_call_param_iterator.next();
169 bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	16502	if (IN2_param_value != NULL) {
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	16503	IN2_type_symbol = search_expression_type->get_type(IN2_param_value);
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	16504	last_type_symbol = last_type_symbol && IN2_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 ;
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	16505	}
70 e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	16506
169 bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	16507	if(IN2_type_symbol == NULL \|\| search_expression_type->is_same_type(&search_constant_type_c::dt_type_name, last_type_symbol))
70 e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	16508	{
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	16509
149 05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	16510	function_name = (symbol_c*)(new pragma_c("__time_sub"));
169 bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	16511
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	16512	if (IN1_type_symbol == NULL)
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	16513	IN1_type_symbol = last_type_symbol;
149 05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	16514	ADD_PARAM_LIST(IN1_param_value, IN1_type_symbol, function_param_iterator_c::direction_in)
169 bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	16515
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	16516	if (IN2_type_symbol == NULL)
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	16517	IN2_type_symbol = last_type_symbol;
149 05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	16518	ADD_PARAM_LIST(IN2_param_value, IN2_type_symbol, function_param_iterator_c::direction_in)
70 e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	16519	symbol_c * return_type_symbol = &search_constant_type_c::time_type_name;
149 05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	16520	break;
70 e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	16521
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	16522	}
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	16523
169 bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	16524	if(IN2_type_symbol == NULL \|\| search_expression_type->is_same_type(&search_constant_type_c::time_type_name, last_type_symbol))
70 e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	16525	{
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	16526
149 05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	16527	function_name = (symbol_c*)(new pragma_c("__time_sub"));
169 bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	16528
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	16529	if (IN1_type_symbol == NULL)
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	16530	IN1_type_symbol = last_type_symbol;
149 05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	16531	ADD_PARAM_LIST(IN1_param_value, IN1_type_symbol, function_param_iterator_c::direction_in)
169 bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	16532
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	16533	if (IN2_type_symbol == NULL)
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	16534	IN2_type_symbol = last_type_symbol;
149 05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	16535	ADD_PARAM_LIST(IN2_param_value, IN2_type_symbol, function_param_iterator_c::direction_in)
70 e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	16536	symbol_c * return_type_symbol = &search_constant_type_c::dt_type_name;
149 05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	16537	break;
70 e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	16538
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	16539	}
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	16540
149 05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	16541
70 e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	16542	ERROR;
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	16543	}
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	16544
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	16545	}
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	16546
169 bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	16547	if(IN1_type_symbol == NULL \|\| search_expression_type->is_same_type(&search_constant_type_c::tod_type_name, last_type_symbol))
70 e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	16548	{
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	16549
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	16550	{
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	16551	identifier_c param_name("IN2");
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	16552	/* Get the value from a foo(<param_name> = <param_value>) style call */
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	16553	symbol_c *IN2_param_value = function_call_param_iterator.search(&param_name);
169 bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	16554	symbol_c *IN2_type_symbol = NULL;
70 e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	16555
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	16556	/* Get the value from a foo(<param_value>) style call */
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	16557	if (IN2_param_value == NULL)
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	16558	IN2_param_value = function_call_param_iterator.next();
169 bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	16559	if (IN2_param_value != NULL) {
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	16560	IN2_type_symbol = search_expression_type->get_type(IN2_param_value);
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	16561	last_type_symbol = last_type_symbol && IN2_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 ;
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	16562	}
70 e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	16563
169 bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	16564	if(IN2_type_symbol == NULL \|\| search_expression_type->is_same_type(&search_constant_type_c::tod_type_name, last_type_symbol))
70 e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	16565	{
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	16566
149 05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	16567	function_name = (symbol_c*)(new pragma_c("__time_sub"));
169 bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	16568
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	16569	if (IN1_type_symbol == NULL)
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	16570	IN1_type_symbol = last_type_symbol;
149 05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	16571	ADD_PARAM_LIST(IN1_param_value, IN1_type_symbol, function_param_iterator_c::direction_in)
169 bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	16572
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	16573	if (IN2_type_symbol == NULL)
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	16574	IN2_type_symbol = last_type_symbol;
149 05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	16575	ADD_PARAM_LIST(IN2_param_value, IN2_type_symbol, function_param_iterator_c::direction_in)
70 e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	16576	symbol_c * return_type_symbol = &search_constant_type_c::time_type_name;
149 05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	16577	break;
70 e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	16578
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	16579	}
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	16580
169 bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	16581	if(IN2_type_symbol == NULL \|\| search_expression_type->is_same_type(&search_constant_type_c::time_type_name, last_type_symbol))
70 e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	16582	{
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	16583
149 05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	16584	function_name = (symbol_c*)(new pragma_c("__time_sub"));
169 bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	16585
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	16586	if (IN1_type_symbol == NULL)
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	16587	IN1_type_symbol = last_type_symbol;
149 05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	16588	ADD_PARAM_LIST(IN1_param_value, IN1_type_symbol, function_param_iterator_c::direction_in)
169 bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	16589
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	16590	if (IN2_type_symbol == NULL)
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	16591	IN2_type_symbol = last_type_symbol;
149 05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	16592	ADD_PARAM_LIST(IN2_param_value, IN2_type_symbol, function_param_iterator_c::direction_in)
70 e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	16593	symbol_c * return_type_symbol = &search_constant_type_c::tod_type_name;
149 05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	16594	break;
70 e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	16595
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	16596	}
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	16597
149 05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	16598
70 e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	16599	ERROR;
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	16600	}
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	16601
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	16602	}
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	16603
169 bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	16604	if(IN1_type_symbol == NULL \|\| search_expression_type->is_same_type(&search_constant_type_c::time_type_name, last_type_symbol))
70 e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	16605	{
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	16606
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	16607	{
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	16608	identifier_c param_name("IN2");
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	16609	/* Get the value from a foo(<param_name> = <param_value>) style call */
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	16610	symbol_c *IN2_param_value = function_call_param_iterator.search(&param_name);
169 bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	16611	symbol_c *IN2_type_symbol = NULL;
70 e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	16612
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	16613	/* Get the value from a foo(<param_value>) style call */
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	16614	if (IN2_param_value == NULL)
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	16615	IN2_param_value = function_call_param_iterator.next();
169 bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	16616	if (IN2_param_value != NULL) {
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	16617	IN2_type_symbol = search_expression_type->get_type(IN2_param_value);
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	16618	last_type_symbol = last_type_symbol && IN2_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 ;
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	16619	}
70 e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	16620
169 bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	16621	if(IN2_type_symbol == NULL \|\| search_expression_type->is_same_type(&search_constant_type_c::time_type_name, last_type_symbol))
70 e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	16622	{
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	16623
149 05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	16624	function_name = (symbol_c*)(new pragma_c("__time_sub"));
169 bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	16625
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	16626	if (IN1_type_symbol == NULL)
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	16627	IN1_type_symbol = last_type_symbol;
149 05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	16628	ADD_PARAM_LIST(IN1_param_value, IN1_type_symbol, function_param_iterator_c::direction_in)
169 bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	16629
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	16630	if (IN2_type_symbol == NULL)
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	16631	IN2_type_symbol = last_type_symbol;
149 05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	16632	ADD_PARAM_LIST(IN2_param_value, IN2_type_symbol, function_param_iterator_c::direction_in)
70 e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	16633	symbol_c * return_type_symbol = &search_constant_type_c::time_type_name;
149 05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	16634	break;
70 e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	16635
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	16636	}
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	16637
149 05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	16638
70 e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	16639	ERROR;
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	16640	}
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	16641
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	16642	}
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	16643
149 05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	16644
70 e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	16645	ERROR;
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	16646	}
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	16647
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	16648	}/function_sub/
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	16649	break;
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	16650
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	16651	/****
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	16652	*DIV
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	16653	*/
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	16654	case function_div :
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	16655	{
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	16656	symbol_c *last_type_symbol = NULL;
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	16657
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	16658	{
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	16659	identifier_c param_name("IN1");
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	16660	/* Get the value from a foo(<param_name> = <param_value>) style call */
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	16661	symbol_c *IN1_param_value = function_call_param_iterator.search(&param_name);
169 bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	16662	symbol_c *IN1_type_symbol = NULL;
70 e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	16663
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	16664	/* Get the value from a foo(<param_value>) style call */
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	16665	if (IN1_param_value == NULL)
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	16666	IN1_param_value = function_call_param_iterator.next();
169 bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	16667	if (IN1_param_value != NULL) {
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	16668	IN1_type_symbol = search_expression_type->get_type(IN1_param_value);
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	16669	last_type_symbol = last_type_symbol && IN1_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 ;
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	16670	}
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	16671
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	16672	if(IN1_type_symbol == NULL \|\| search_expression_type->is_num_type(IN1_type_symbol))
70 e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	16673	{
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	16674
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	16675	{
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	16676	identifier_c param_name("IN2");
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	16677	/* Get the value from a foo(<param_name> = <param_value>) style call */
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	16678	symbol_c *IN2_param_value = function_call_param_iterator.search(&param_name);
169 bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	16679	symbol_c *IN2_type_symbol = NULL;
70 e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	16680
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	16681	/* Get the value from a foo(<param_value>) style call */
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	16682	if (IN2_param_value == NULL)
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	16683	IN2_param_value = function_call_param_iterator.next();
169 bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	16684	if (IN2_param_value != NULL) {
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	16685	IN2_type_symbol = search_expression_type->get_type(IN2_param_value);
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	16686	last_type_symbol = last_type_symbol && IN2_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 ;
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	16687	}
70 e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	16688
169 bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	16689	if(IN2_type_symbol == NULL \|\| search_expression_type->is_num_type(IN2_type_symbol))
70 e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	16690	{
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	16691
149 05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	16692	function_name = (symbol_c*)(new pragma_c("__div_"));
169 bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	16693
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	16694	if (IN1_type_symbol == NULL)
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	16695	IN1_type_symbol = last_type_symbol;
149 05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	16696	ADD_PARAM_LIST(IN1_param_value, IN1_type_symbol, function_param_iterator_c::direction_in)
169 bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	16697
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	16698	if (IN2_type_symbol == NULL)
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	16699	IN2_type_symbol = last_type_symbol;
149 05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	16700	ADD_PARAM_LIST(IN2_param_value, IN2_type_symbol, function_param_iterator_c::direction_in)
70 e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	16701	symbol_c * return_type_symbol = last_type_symbol;
149 05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	16702	function_type_suffix = return_type_symbol;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	16703	break;
70 e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	16704
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	16705	}
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	16706
149 05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	16707
70 e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	16708	ERROR;
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	16709	}
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	16710
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	16711	}
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	16712
169 bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	16713	if(IN1_type_symbol == NULL \|\| search_expression_type->is_same_type(&search_constant_type_c::time_type_name, last_type_symbol))
70 e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	16714	{
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	16715
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	16716	{
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	16717	identifier_c param_name("IN2");
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	16718	/* Get the value from a foo(<param_name> = <param_value>) style call */
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	16719	symbol_c *IN2_param_value = function_call_param_iterator.search(&param_name);
169 bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	16720	symbol_c *IN2_type_symbol = NULL;
70 e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	16721
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	16722	/* Get the value from a foo(<param_value>) style call */
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	16723	if (IN2_param_value == NULL)
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	16724	IN2_param_value = function_call_param_iterator.next();
169 bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	16725	if (IN2_param_value != NULL) {
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	16726	IN2_type_symbol = search_expression_type->get_type(IN2_param_value);
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	16727	last_type_symbol = last_type_symbol && IN2_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 ;
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	16728	}
70 e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	16729
169 bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	16730	if(IN2_type_symbol == NULL \|\| search_expression_type->is_num_type(IN2_type_symbol))
70 e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	16731	{
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	16732
149 05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	16733	function_name = (symbol_c*)(new pragma_c("__time_div"));
169 bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	16734
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	16735	if (IN1_type_symbol == NULL)
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	16736	IN1_type_symbol = last_type_symbol;
149 05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	16737	ADD_PARAM_LIST(IN1_param_value, IN1_type_symbol, function_param_iterator_c::direction_in)
169 bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	16738
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	16739	if (IN2_type_symbol == NULL)
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	16740	IN2_type_symbol = last_type_symbol;
149 05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	16741	ADD_PARAM_LIST(IN2_param_value, IN2_type_symbol, function_param_iterator_c::direction_in)
70 e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	16742	symbol_c * return_type_symbol = &search_constant_type_c::time_type_name;
149 05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	16743	break;
70 e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	16744
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	16745	}
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	16746
149 05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	16747
70 e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	16748	ERROR;
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	16749	}
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	16750
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	16751	}
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	16752
149 05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	16753
70 e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	16754	ERROR;
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	16755	}
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	16756
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	16757	}/function_div/
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	16758	break;
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	16759
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	16760	/****
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	16761	*MOD
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	16762	*/
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	16763	case function_mod :
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	16764	{
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	16765	symbol_c *last_type_symbol = NULL;
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	16766
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	16767	{
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	16768	identifier_c param_name("IN1");
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	16769	/* Get the value from a foo(<param_name> = <param_value>) style call */
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	16770	symbol_c *IN1_param_value = function_call_param_iterator.search(&param_name);
169 bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	16771	symbol_c *IN1_type_symbol = NULL;
70 e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	16772
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	16773	/* Get the value from a foo(<param_value>) style call */
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	16774	if (IN1_param_value == NULL)
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	16775	IN1_param_value = function_call_param_iterator.next();
169 bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	16776	if (IN1_param_value != NULL) {
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	16777	IN1_type_symbol = search_expression_type->get_type(IN1_param_value);
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	16778	last_type_symbol = last_type_symbol && IN1_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 ;
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	16779	}
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	16780
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	16781	if(IN1_type_symbol == NULL \|\| search_expression_type->is_num_type(IN1_type_symbol))
70 e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	16782	{
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	16783
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	16784	{
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	16785	identifier_c param_name("IN2");
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	16786	/* Get the value from a foo(<param_name> = <param_value>) style call */
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	16787	symbol_c *IN2_param_value = function_call_param_iterator.search(&param_name);
169 bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	16788	symbol_c *IN2_type_symbol = NULL;
70 e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	16789
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	16790	/* Get the value from a foo(<param_value>) style call */
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	16791	if (IN2_param_value == NULL)
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	16792	IN2_param_value = function_call_param_iterator.next();
169 bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	16793	if (IN2_param_value != NULL) {
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	16794	IN2_type_symbol = search_expression_type->get_type(IN2_param_value);
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	16795	last_type_symbol = last_type_symbol && IN2_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 ;
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	16796	}
70 e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	16797
169 bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	16798	if(IN2_type_symbol == NULL \|\| search_expression_type->is_num_type(IN2_type_symbol))
70 e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	16799	{
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	16800
149 05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	16801	function_name = (symbol_c*)(new pragma_c("__mod_"));
169 bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	16802
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	16803	if (IN1_type_symbol == NULL)
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	16804	IN1_type_symbol = last_type_symbol;
149 05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	16805	ADD_PARAM_LIST(IN1_param_value, IN1_type_symbol, function_param_iterator_c::direction_in)
169 bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	16806
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	16807	if (IN2_type_symbol == NULL)
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	16808	IN2_type_symbol = last_type_symbol;
149 05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	16809	ADD_PARAM_LIST(IN2_param_value, IN2_type_symbol, function_param_iterator_c::direction_in)
70 e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	16810	symbol_c * return_type_symbol = last_type_symbol;
149 05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	16811	function_type_suffix = return_type_symbol;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	16812	break;
70 e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	16813
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	16814	}
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	16815
149 05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	16816
70 e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	16817	ERROR;
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	16818	}
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	16819
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	16820	}
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	16821
149 05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	16822
70 e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	16823	ERROR;
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	16824	}
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	16825
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	16826	}/function_mod/
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	16827	break;
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	16828
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	16829	/****
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	16830	*EXPT
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	16831	*/
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	16832	case function_expt :
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	16833	{
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	16834	symbol_c *last_type_symbol = NULL;
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	16835
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	16836	{
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	16837	identifier_c param_name("IN1");
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	16838	/* Get the value from a foo(<param_name> = <param_value>) style call */
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	16839	symbol_c *IN1_param_value = function_call_param_iterator.search(&param_name);
169 bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	16840	symbol_c *IN1_type_symbol = NULL;
70 e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	16841
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	16842	/* Get the value from a foo(<param_value>) style call */
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	16843	if (IN1_param_value == NULL)
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	16844	IN1_param_value = function_call_param_iterator.next();
169 bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	16845	if (IN1_param_value != NULL) {
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	16846	IN1_type_symbol = search_expression_type->get_type(IN1_param_value);
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	16847	last_type_symbol = last_type_symbol && IN1_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 ;
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	16848	}
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	16849
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	16850	if(IN1_type_symbol == NULL \|\| search_expression_type->is_real_type(IN1_type_symbol))
70 e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	16851	{
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	16852
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	16853	{
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	16854	identifier_c param_name("IN2");
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	16855	/* Get the value from a foo(<param_name> = <param_value>) style call */
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	16856	symbol_c *IN2_param_value = function_call_param_iterator.search(&param_name);
169 bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	16857	symbol_c *IN2_type_symbol = NULL;
70 e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	16858
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	16859	/* Get the value from a foo(<param_value>) style call */
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	16860	if (IN2_param_value == NULL)
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	16861	IN2_param_value = function_call_param_iterator.next();
169 bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	16862	if (IN2_param_value != NULL) {
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	16863	IN2_type_symbol = search_expression_type->get_type(IN2_param_value);
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	16864	last_type_symbol = last_type_symbol && IN2_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 ;
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	16865	}
70 e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	16866
169 bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	16867	if(IN2_type_symbol == NULL \|\| search_expression_type->is_num_type(IN2_type_symbol))
70 e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	16868	{
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	16869
165 83963465b773 Bug on standard function not defined with EN/ENO fixed lbessard parents: 154 diff changeset	16870	function_name = (symbol_c*)(new pragma_c("__expt_"));
169 bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	16871
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	16872	if (IN1_type_symbol == NULL)
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	16873	IN1_type_symbol = last_type_symbol;
149 05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	16874	ADD_PARAM_LIST(IN1_param_value, IN1_type_symbol, function_param_iterator_c::direction_in)
169 bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	16875
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	16876	if (IN2_type_symbol == NULL)
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	16877	IN2_type_symbol = last_type_symbol;
149 05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	16878	ADD_PARAM_LIST(IN2_param_value, IN2_type_symbol, function_param_iterator_c::direction_in)
70 e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	16879	symbol_c * return_type_symbol = last_type_symbol;
165 83963465b773 Bug on standard function not defined with EN/ENO fixed lbessard parents: 154 diff changeset	16880	function_type_suffix = IN1_type_symbol;
149 05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	16881	break;
70 e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	16882
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	16883	}
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	16884
149 05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	16885
70 e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	16886	ERROR;
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	16887	}
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	16888
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	16889	}
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	16890
149 05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	16891
70 e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	16892	ERROR;
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	16893	}
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	16894
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	16895	}/function_expt/
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	16896	break;
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	16897
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	16898	/****
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	16899	*MOVE
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	16900	*/
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	16901	case function_move :
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	16902	{
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	16903	symbol_c *last_type_symbol = NULL;
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	16904
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	16905	{
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	16906	identifier_c param_name("IN");
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	16907	/* Get the value from a foo(<param_name> = <param_value>) style call */
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	16908	symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
169 bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	16909	symbol_c *IN_type_symbol = NULL;
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	16910
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	16911	/* Get the value from a foo(<param_value>) style call */
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	16912	if (IN_param_value == NULL)
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	16913	IN_param_value = function_call_param_iterator.next();
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	16914	if (IN_param_value != NULL) {
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	16915	IN_type_symbol = search_expression_type->get_type(IN_param_value);
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	16916	last_type_symbol = last_type_symbol && IN_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	16917	}
70 e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	16918
153 6aed920024f9 Modifying MOVE interface greg parents: 149 diff changeset	16919
70 e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	16920	{
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	16921
149 05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	16922	function_name = (symbol_c*)(new pragma_c("__move_"));
169 bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	16923
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	16924	if (IN_type_symbol == NULL)
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	16925	IN_type_symbol = last_type_symbol;
149 05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	16926	ADD_PARAM_LIST(IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in)
70 e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	16927	symbol_c * return_type_symbol = last_type_symbol;
149 05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	16928	function_type_suffix = return_type_symbol;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	16929	break;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	16930
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	16931	}
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	16932
70 e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	16933
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	16934	ERROR;
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	16935	}
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	16936
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	16937	}/function_move/
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	16938	break;
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	16939
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	16940	/****
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	16941	*SHL
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	16942	*/
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	16943	case function_shl :
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	16944	{
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	16945	symbol_c *last_type_symbol = NULL;
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	16946
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	16947	{
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	16948	identifier_c param_name("IN");
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	16949	/* Get the value from a foo(<param_name> = <param_value>) style call */
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	16950	symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
169 bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	16951	symbol_c *IN_type_symbol = NULL;
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	16952
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	16953	/* Get the value from a foo(<param_value>) style call */
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	16954	if (IN_param_value == NULL)
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	16955	IN_param_value = function_call_param_iterator.next();
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	16956	if (IN_param_value != NULL) {
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	16957	IN_type_symbol = search_expression_type->get_type(IN_param_value);
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	16958	last_type_symbol = last_type_symbol && IN_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	16959	}
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	16960
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	16961	if(IN_type_symbol == NULL \|\| search_expression_type->is_binary_type(IN_type_symbol))
70 e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	16962	{
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	16963
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	16964	{
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	16965	identifier_c param_name("N");
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	16966	/* Get the value from a foo(<param_name> = <param_value>) style call */
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	16967	symbol_c *N_param_value = function_call_param_iterator.search(&param_name);
169 bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	16968	symbol_c *N_type_symbol = NULL;
70 e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	16969
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	16970	/* Get the value from a foo(<param_value>) style call */
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	16971	if (N_param_value == NULL)
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	16972	N_param_value = function_call_param_iterator.next();
169 bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	16973	if (N_param_value != NULL) {
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	16974	N_type_symbol = search_expression_type->get_type(N_param_value);
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	16975	last_type_symbol = last_type_symbol && N_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 ;
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	16976	}
70 e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	16977
169 bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	16978	if(N_type_symbol == NULL \|\| search_expression_type->is_integer_type(N_type_symbol))
70 e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	16979	{
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	16980
149 05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	16981	function_name = (symbol_c*)(new pragma_c("__shl_"));
169 bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	16982
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	16983	if (IN_type_symbol == NULL)
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	16984	IN_type_symbol = last_type_symbol;
149 05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	16985	ADD_PARAM_LIST(IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in)
169 bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	16986
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	16987	if (N_type_symbol == NULL)
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	16988	N_type_symbol = last_type_symbol;
149 05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	16989	ADD_PARAM_LIST(N_param_value, N_type_symbol, function_param_iterator_c::direction_in)
70 e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	16990	symbol_c * return_type_symbol = IN_type_symbol;
149 05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	16991	function_type_suffix = IN_type_symbol;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	16992	break;
70 e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	16993
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	16994	}
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	16995
149 05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	16996
70 e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	16997	ERROR;
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	16998	}
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	16999
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	17000	}
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	17001
149 05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	17002
70 e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	17003	ERROR;
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	17004	}
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	17005
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	17006	}/function_shl/
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	17007	break;
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	17008
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	17009	/****
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	17010	*SHR
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	17011	*/
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	17012	case function_shr :
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	17013	{
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	17014	symbol_c *last_type_symbol = NULL;
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	17015
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	17016	{
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	17017	identifier_c param_name("IN");
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	17018	/* Get the value from a foo(<param_name> = <param_value>) style call */
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	17019	symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
169 bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	17020	symbol_c *IN_type_symbol = NULL;
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	17021
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	17022	/* Get the value from a foo(<param_value>) style call */
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	17023	if (IN_param_value == NULL)
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	17024	IN_param_value = function_call_param_iterator.next();
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	17025	if (IN_param_value != NULL) {
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	17026	IN_type_symbol = search_expression_type->get_type(IN_param_value);
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	17027	last_type_symbol = last_type_symbol && IN_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	17028	}
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	17029
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	17030	if(IN_type_symbol == NULL \|\| search_expression_type->is_binary_type(IN_type_symbol))
70 e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	17031	{
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	17032
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	17033	{
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	17034	identifier_c param_name("N");
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	17035	/* Get the value from a foo(<param_name> = <param_value>) style call */
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	17036	symbol_c *N_param_value = function_call_param_iterator.search(&param_name);
169 bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	17037	symbol_c *N_type_symbol = NULL;
70 e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	17038
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	17039	/* Get the value from a foo(<param_value>) style call */
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	17040	if (N_param_value == NULL)
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	17041	N_param_value = function_call_param_iterator.next();
169 bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	17042	if (N_param_value != NULL) {
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	17043	N_type_symbol = search_expression_type->get_type(N_param_value);
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	17044	last_type_symbol = last_type_symbol && N_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 ;
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	17045	}
70 e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	17046
169 bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	17047	if(N_type_symbol == NULL \|\| search_expression_type->is_integer_type(N_type_symbol))
70 e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	17048	{
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	17049
149 05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	17050	function_name = (symbol_c*)(new pragma_c("__shr_"));
169 bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	17051
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	17052	if (IN_type_symbol == NULL)
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	17053	IN_type_symbol = last_type_symbol;
149 05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	17054	ADD_PARAM_LIST(IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in)
169 bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	17055
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	17056	if (N_type_symbol == NULL)
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	17057	N_type_symbol = last_type_symbol;
149 05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	17058	ADD_PARAM_LIST(N_param_value, N_type_symbol, function_param_iterator_c::direction_in)
70 e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	17059	symbol_c * return_type_symbol = IN_type_symbol;
149 05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	17060	function_type_suffix = IN_type_symbol;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	17061	break;
70 e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	17062
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	17063	}
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	17064
149 05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	17065
70 e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	17066	ERROR;
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	17067	}
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	17068
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	17069	}
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	17070
149 05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	17071
70 e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	17072	ERROR;
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	17073	}
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	17074
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	17075	}/function_shr/
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	17076	break;
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	17077
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	17078	/****
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	17079	*ROR
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	17080	*/
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	17081	case function_ror :
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	17082	{
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	17083	symbol_c *last_type_symbol = NULL;
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	17084
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	17085	{
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	17086	identifier_c param_name("IN");
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	17087	/* Get the value from a foo(<param_name> = <param_value>) style call */
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	17088	symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
169 bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	17089	symbol_c *IN_type_symbol = NULL;
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	17090
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	17091	/* Get the value from a foo(<param_value>) style call */
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	17092	if (IN_param_value == NULL)
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	17093	IN_param_value = function_call_param_iterator.next();
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	17094	if (IN_param_value != NULL) {
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	17095	IN_type_symbol = search_expression_type->get_type(IN_param_value);
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	17096	last_type_symbol = last_type_symbol && IN_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	17097	}
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	17098
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	17099	if(IN_type_symbol == NULL \|\| search_expression_type->is_nbinary_type(IN_type_symbol))
70 e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	17100	{
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	17101
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	17102	{
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	17103	identifier_c param_name("N");
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	17104	/* Get the value from a foo(<param_name> = <param_value>) style call */
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	17105	symbol_c *N_param_value = function_call_param_iterator.search(&param_name);
169 bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	17106	symbol_c *N_type_symbol = NULL;
70 e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	17107
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	17108	/* Get the value from a foo(<param_value>) style call */
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	17109	if (N_param_value == NULL)
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	17110	N_param_value = function_call_param_iterator.next();
169 bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	17111	if (N_param_value != NULL) {
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	17112	N_type_symbol = search_expression_type->get_type(N_param_value);
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	17113	last_type_symbol = last_type_symbol && N_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 ;
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	17114	}
70 e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	17115
169 bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	17116	if(N_type_symbol == NULL \|\| search_expression_type->is_integer_type(N_type_symbol))
70 e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	17117	{
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	17118
149 05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	17119	function_name = (symbol_c*)(new pragma_c("__ror_"));
169 bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	17120
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	17121	if (IN_type_symbol == NULL)
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	17122	IN_type_symbol = last_type_symbol;
149 05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	17123	ADD_PARAM_LIST(IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in)
169 bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	17124
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	17125	if (N_type_symbol == NULL)
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	17126	N_type_symbol = last_type_symbol;
149 05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	17127	ADD_PARAM_LIST(N_param_value, N_type_symbol, function_param_iterator_c::direction_in)
70 e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	17128	symbol_c * return_type_symbol = IN_type_symbol;
149 05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	17129	function_type_suffix = IN_type_symbol;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	17130	break;
70 e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	17131
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	17132	}
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	17133
149 05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	17134
70 e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	17135	ERROR;
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	17136	}
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	17137
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	17138	}
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	17139
149 05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	17140
70 e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	17141	ERROR;
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	17142	}
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	17143
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	17144	}/function_ror/
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	17145	break;
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	17146
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	17147	/****
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	17148	*ROL
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	17149	*/
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	17150	case function_rol :
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	17151	{
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	17152	symbol_c *last_type_symbol = NULL;
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	17153
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	17154	{
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	17155	identifier_c param_name("IN");
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	17156	/* Get the value from a foo(<param_name> = <param_value>) style call */
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	17157	symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
169 bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	17158	symbol_c *IN_type_symbol = NULL;
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	17159
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	17160	/* Get the value from a foo(<param_value>) style call */
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	17161	if (IN_param_value == NULL)
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	17162	IN_param_value = function_call_param_iterator.next();
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	17163	if (IN_param_value != NULL) {
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	17164	IN_type_symbol = search_expression_type->get_type(IN_param_value);
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	17165	last_type_symbol = last_type_symbol && IN_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	17166	}
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	17167
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	17168	if(IN_type_symbol == NULL \|\| search_expression_type->is_nbinary_type(IN_type_symbol))
70 e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	17169	{
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	17170
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	17171	{
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	17172	identifier_c param_name("N");
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	17173	/* Get the value from a foo(<param_name> = <param_value>) style call */
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	17174	symbol_c *N_param_value = function_call_param_iterator.search(&param_name);
169 bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	17175	symbol_c *N_type_symbol = NULL;
70 e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	17176
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	17177	/* Get the value from a foo(<param_value>) style call */
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	17178	if (N_param_value == NULL)
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	17179	N_param_value = function_call_param_iterator.next();
169 bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	17180	if (N_param_value != NULL) {
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	17181	N_type_symbol = search_expression_type->get_type(N_param_value);
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	17182	last_type_symbol = last_type_symbol && N_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 ;
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	17183	}
70 e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	17184
169 bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	17185	if(N_type_symbol == NULL \|\| search_expression_type->is_integer_type(N_type_symbol))
70 e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	17186	{
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	17187
149 05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	17188	function_name = (symbol_c*)(new pragma_c("__rol_"));
169 bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	17189
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	17190	if (IN_type_symbol == NULL)
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	17191	IN_type_symbol = last_type_symbol;
149 05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	17192	ADD_PARAM_LIST(IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in)
169 bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	17193
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	17194	if (N_type_symbol == NULL)
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	17195	N_type_symbol = last_type_symbol;
149 05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	17196	ADD_PARAM_LIST(N_param_value, N_type_symbol, function_param_iterator_c::direction_in)
70 e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	17197	symbol_c * return_type_symbol = IN_type_symbol;
149 05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	17198	function_type_suffix = IN_type_symbol;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	17199	break;
70 e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	17200
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	17201	}
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	17202
149 05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	17203
70 e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	17204	ERROR;
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	17205	}
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	17206
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	17207	}
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	17208
149 05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	17209
70 e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	17210	ERROR;
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	17211	}
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	17212
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	17213	}/function_rol/
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	17214	break;
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	17215
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	17216	/****
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	17217	*AND
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	17218	*/
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	17219	case function_and :
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	17220	{
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	17221	symbol_c *last_type_symbol = NULL;
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	17222
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	17223	{
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	17224	identifier_c param_name("IN1");
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	17225	/* Get the value from a foo(<param_name> = <param_value>) style call */
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	17226	symbol_c *IN1_param_value = function_call_param_iterator.search(&param_name);
169 bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	17227	symbol_c *IN1_type_symbol = NULL;
70 e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	17228
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	17229	/* Get the value from a foo(<param_value>) style call */
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	17230	if (IN1_param_value == NULL)
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	17231	IN1_param_value = function_call_param_iterator.next();
169 bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	17232	if (IN1_param_value != NULL) {
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	17233	IN1_type_symbol = search_expression_type->get_type(IN1_param_value);
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	17234	last_type_symbol = last_type_symbol && IN1_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 ;
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	17235	}
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	17236
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	17237	if(IN1_type_symbol == NULL \|\| search_expression_type->is_binary_type(IN1_type_symbol))
70 e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	17238	{
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	17239
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	17240	{
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	17241	identifier_c param_name("IN2");
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	17242	/* Get the value from a foo(<param_name> = <param_value>) style call */
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	17243	symbol_c *IN2_param_value = function_call_param_iterator.search(&param_name);
169 bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	17244	symbol_c *IN2_type_symbol = NULL;
70 e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	17245
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	17246	/* Get the value from a foo(<param_value>) style call */
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	17247	if (IN2_param_value == NULL)
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	17248	IN2_param_value = function_call_param_iterator.next();
169 bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	17249	if (IN2_param_value != NULL) {
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	17250	IN2_type_symbol = search_expression_type->get_type(IN2_param_value);
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	17251	last_type_symbol = last_type_symbol && IN2_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 ;
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	17252	}
70 e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	17253
169 bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	17254	if(IN2_type_symbol == NULL \|\| search_expression_type->is_binary_type(IN2_type_symbol))
70 e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	17255	{
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	17256
149 05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	17257	function_name = (symbol_c*)(new pragma_c("__and_"));
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	17258
169 bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	17259	if (nb_param < 2)
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	17260	nb_param = 2;
154 9114afe1f64b Bug with standard functions nb_params count on Windows fixed lbessard parents: 153 diff changeset	17261	char* nb_param_str = new char[10];
149 05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	17262	sprintf(nb_param_str, "%d", nb_param);
154 9114afe1f64b Bug with standard functions nb_params count on Windows fixed lbessard parents: 153 diff changeset	17263	ADD_PARAM_LIST((symbol_c)(new integer_c((const char )nb_param_str)), (symbol_c*)(new int_type_name_c()), function_param_iterator_c::direction_in)
169 bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	17264
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	17265	if (IN1_type_symbol == NULL)
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	17266	IN1_type_symbol = last_type_symbol;
149 05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	17267	ADD_PARAM_LIST(IN1_param_value, IN1_type_symbol, function_param_iterator_c::direction_in)
169 bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	17268
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	17269	if (IN2_type_symbol == NULL)
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	17270	IN2_type_symbol = last_type_symbol;
149 05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	17271	ADD_PARAM_LIST(IN2_param_value, IN2_type_symbol, function_param_iterator_c::direction_in)
70 e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	17272
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	17273	int base_num = 3;
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	17274	symbol_c *param_value = NULL;
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	17275	do{
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	17276	char my_name[10];
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	17277	sprintf(my_name, "IN%d", base_num++);
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	17278	identifier_c param_name(my_name);
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	17279
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	17280	/* Get the value from a foo(<param_name> = <param_value>) style call */
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	17281	param_value = function_call_param_iterator.search(&param_name);
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	17282
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	17283	/* Get the value from a foo(<param_value>) style call */
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	17284	if (param_value == NULL)
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	17285	param_value = function_call_param_iterator.next();
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	17286	if (param_value != NULL){
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	17287	symbol_c *current_type_symbol = search_expression_type->get_type(param_value);
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	17288	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 ;
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	17289
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	17290	/Function specific CODE /
149 05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	17291	ADD_PARAM_LIST(param_value, current_type_symbol, function_param_iterator_c::direction_in)
70 e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	17292	}
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	17293
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	17294	}while(param_value != NULL);
149 05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	17295	symbol_c * return_type_symbol = last_type_symbol;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	17296	function_type_suffix = return_type_symbol;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	17297	break;
70 e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	17298
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	17299	}
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	17300
149 05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	17301
70 e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	17302	ERROR;
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	17303	}
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	17304
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	17305	}
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	17306
149 05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	17307
70 e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	17308	ERROR;
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	17309	}
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	17310
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	17311	}/function_and/
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	17312	break;
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	17313
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	17314	/****
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	17315	*OR
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	17316	*/
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	17317	case function_or :
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	17318	{
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	17319	symbol_c *last_type_symbol = NULL;
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	17320
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	17321	{
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	17322	identifier_c param_name("IN1");
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	17323	/* Get the value from a foo(<param_name> = <param_value>) style call */
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	17324	symbol_c *IN1_param_value = function_call_param_iterator.search(&param_name);
169 bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	17325	symbol_c *IN1_type_symbol = NULL;
70 e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	17326
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	17327	/* Get the value from a foo(<param_value>) style call */
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	17328	if (IN1_param_value == NULL)
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	17329	IN1_param_value = function_call_param_iterator.next();
169 bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	17330	if (IN1_param_value != NULL) {
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	17331	IN1_type_symbol = search_expression_type->get_type(IN1_param_value);
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	17332	last_type_symbol = last_type_symbol && IN1_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 ;
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	17333	}
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	17334
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	17335	if(IN1_type_symbol == NULL \|\| search_expression_type->is_binary_type(IN1_type_symbol))
70 e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	17336	{
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	17337
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	17338	{
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	17339	identifier_c param_name("IN2");
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	17340	/* Get the value from a foo(<param_name> = <param_value>) style call */
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	17341	symbol_c *IN2_param_value = function_call_param_iterator.search(&param_name);
169 bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	17342	symbol_c *IN2_type_symbol = NULL;
70 e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	17343
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	17344	/* Get the value from a foo(<param_value>) style call */
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	17345	if (IN2_param_value == NULL)
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	17346	IN2_param_value = function_call_param_iterator.next();
169 bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	17347	if (IN2_param_value != NULL) {
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	17348	IN2_type_symbol = search_expression_type->get_type(IN2_param_value);
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	17349	last_type_symbol = last_type_symbol && IN2_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 ;
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	17350	}
70 e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	17351
169 bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	17352	if(IN2_type_symbol == NULL \|\| search_expression_type->is_binary_type(IN2_type_symbol))
70 e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	17353	{
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	17354
149 05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	17355	function_name = (symbol_c*)(new pragma_c("__or_"));
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	17356
169 bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	17357	if (nb_param < 2)
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	17358	nb_param = 2;
154 9114afe1f64b Bug with standard functions nb_params count on Windows fixed lbessard parents: 153 diff changeset	17359	char* nb_param_str = new char[10];
149 05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	17360	sprintf(nb_param_str, "%d", nb_param);
154 9114afe1f64b Bug with standard functions nb_params count on Windows fixed lbessard parents: 153 diff changeset	17361	ADD_PARAM_LIST((symbol_c)(new integer_c((const char )nb_param_str)), (symbol_c*)(new int_type_name_c()), function_param_iterator_c::direction_in)
169 bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	17362
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	17363	if (IN1_type_symbol == NULL)
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	17364	IN1_type_symbol = last_type_symbol;
149 05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	17365	ADD_PARAM_LIST(IN1_param_value, IN1_type_symbol, function_param_iterator_c::direction_in)
169 bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	17366
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	17367	if (IN2_type_symbol == NULL)
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	17368	IN2_type_symbol = last_type_symbol;
149 05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	17369	ADD_PARAM_LIST(IN2_param_value, IN2_type_symbol, function_param_iterator_c::direction_in)
70 e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	17370
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	17371	int base_num = 3;
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	17372	symbol_c *param_value = NULL;
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	17373	do{
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	17374	char my_name[10];
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	17375	sprintf(my_name, "IN%d", base_num++);
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	17376	identifier_c param_name(my_name);
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	17377
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	17378	/* Get the value from a foo(<param_name> = <param_value>) style call */
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	17379	param_value = function_call_param_iterator.search(&param_name);
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	17380
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	17381	/* Get the value from a foo(<param_value>) style call */
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	17382	if (param_value == NULL)
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	17383	param_value = function_call_param_iterator.next();
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	17384	if (param_value != NULL){
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	17385	symbol_c *current_type_symbol = search_expression_type->get_type(param_value);
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	17386	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 ;
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	17387
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	17388	/Function specific CODE /
149 05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	17389	ADD_PARAM_LIST(param_value, current_type_symbol, function_param_iterator_c::direction_in)
70 e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	17390	}
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	17391
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	17392	}while(param_value != NULL);
149 05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	17393	symbol_c * return_type_symbol = last_type_symbol;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	17394	function_type_suffix = return_type_symbol;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	17395	break;
70 e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	17396
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	17397	}
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	17398
149 05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	17399
70 e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	17400	ERROR;
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	17401	}
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	17402
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	17403	}
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	17404
149 05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	17405
70 e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	17406	ERROR;
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	17407	}
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	17408
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	17409	}/function_or/
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	17410	break;
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	17411
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	17412	/****
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	17413	*XOR
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	17414	*/
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	17415	case function_xor :
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	17416	{
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	17417	symbol_c *last_type_symbol = NULL;
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	17418
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	17419	{
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	17420	identifier_c param_name("IN1");
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	17421	/* Get the value from a foo(<param_name> = <param_value>) style call */
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	17422	symbol_c *IN1_param_value = function_call_param_iterator.search(&param_name);
169 bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	17423	symbol_c *IN1_type_symbol = NULL;
70 e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	17424
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	17425	/* Get the value from a foo(<param_value>) style call */
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	17426	if (IN1_param_value == NULL)
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	17427	IN1_param_value = function_call_param_iterator.next();
169 bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	17428	if (IN1_param_value != NULL) {
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	17429	IN1_type_symbol = search_expression_type->get_type(IN1_param_value);
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	17430	last_type_symbol = last_type_symbol && IN1_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 ;
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	17431	}
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	17432
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	17433	if(IN1_type_symbol == NULL \|\| search_expression_type->is_binary_type(IN1_type_symbol))
70 e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	17434	{
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	17435
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	17436	{
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	17437	identifier_c param_name("IN2");
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	17438	/* Get the value from a foo(<param_name> = <param_value>) style call */
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	17439	symbol_c *IN2_param_value = function_call_param_iterator.search(&param_name);
169 bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	17440	symbol_c *IN2_type_symbol = NULL;
70 e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	17441
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	17442	/* Get the value from a foo(<param_value>) style call */
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	17443	if (IN2_param_value == NULL)
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	17444	IN2_param_value = function_call_param_iterator.next();
169 bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	17445	if (IN2_param_value != NULL) {
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	17446	IN2_type_symbol = search_expression_type->get_type(IN2_param_value);
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	17447	last_type_symbol = last_type_symbol && IN2_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 ;
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	17448	}
70 e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	17449
169 bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	17450	if(IN2_type_symbol == NULL \|\| search_expression_type->is_binary_type(IN2_type_symbol))
70 e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	17451	{
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	17452
149 05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	17453	function_name = (symbol_c*)(new pragma_c("__xor_"));
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	17454
169 bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	17455	if (nb_param < 2)
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	17456	nb_param = 2;
154 9114afe1f64b Bug with standard functions nb_params count on Windows fixed lbessard parents: 153 diff changeset	17457	char* nb_param_str = new char[10];
149 05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	17458	sprintf(nb_param_str, "%d", nb_param);
154 9114afe1f64b Bug with standard functions nb_params count on Windows fixed lbessard parents: 153 diff changeset	17459	ADD_PARAM_LIST((symbol_c)(new integer_c((const char )nb_param_str)), (symbol_c*)(new int_type_name_c()), function_param_iterator_c::direction_in)
169 bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	17460
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	17461	if (IN1_type_symbol == NULL)
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	17462	IN1_type_symbol = last_type_symbol;
149 05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	17463	ADD_PARAM_LIST(IN1_param_value, IN1_type_symbol, function_param_iterator_c::direction_in)
169 bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	17464
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	17465	if (IN2_type_symbol == NULL)
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	17466	IN2_type_symbol = last_type_symbol;
149 05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	17467	ADD_PARAM_LIST(IN2_param_value, IN2_type_symbol, function_param_iterator_c::direction_in)
70 e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	17468
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	17469	int base_num = 3;
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	17470	symbol_c *param_value = NULL;
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	17471	do{
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	17472	char my_name[10];
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	17473	sprintf(my_name, "IN%d", base_num++);
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	17474	identifier_c param_name(my_name);
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	17475
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	17476	/* Get the value from a foo(<param_name> = <param_value>) style call */
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	17477	param_value = function_call_param_iterator.search(&param_name);
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	17478
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	17479	/* Get the value from a foo(<param_value>) style call */
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	17480	if (param_value == NULL)
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	17481	param_value = function_call_param_iterator.next();
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	17482	if (param_value != NULL){
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	17483	symbol_c *current_type_symbol = search_expression_type->get_type(param_value);
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	17484	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 ;
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	17485
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	17486	/Function specific CODE /
149 05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	17487	ADD_PARAM_LIST(param_value, current_type_symbol, function_param_iterator_c::direction_in)
70 e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	17488	}
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	17489
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	17490	}while(param_value != NULL);
149 05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	17491	symbol_c * return_type_symbol = last_type_symbol;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	17492	function_type_suffix = return_type_symbol;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	17493	break;
70 e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	17494
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	17495	}
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	17496
149 05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	17497
70 e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	17498	ERROR;
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	17499	}
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	17500
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	17501	}
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	17502
149 05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	17503
70 e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	17504	ERROR;
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	17505	}
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	17506
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	17507	}/function_xor/
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	17508	break;
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	17509
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	17510	/****
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	17511	*NOT
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	17512	*/
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	17513	case function_not :
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	17514	{
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	17515	symbol_c *last_type_symbol = NULL;
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	17516
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	17517	{
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	17518	identifier_c param_name("IN");
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	17519	/* Get the value from a foo(<param_name> = <param_value>) style call */
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	17520	symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
169 bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	17521	symbol_c *IN_type_symbol = NULL;
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	17522
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	17523	/* Get the value from a foo(<param_value>) style call */
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	17524	if (IN_param_value == NULL)
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	17525	IN_param_value = function_call_param_iterator.next();
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	17526	if (IN_param_value != NULL) {
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	17527	IN_type_symbol = search_expression_type->get_type(IN_param_value);
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	17528	last_type_symbol = last_type_symbol && IN_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	17529	}
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	17530
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	17531	if(IN_type_symbol == NULL \|\| search_expression_type->is_binary_type(IN_type_symbol))
70 e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	17532	{
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	17533
149 05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	17534	function_name = (symbol_c*)(new pragma_c("__not_"));
169 bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	17535
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	17536	if (IN_type_symbol == NULL)
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	17537	IN_type_symbol = last_type_symbol;
149 05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	17538	ADD_PARAM_LIST(IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in)
70 e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	17539	symbol_c * return_type_symbol = IN_type_symbol;
149 05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	17540	function_type_suffix = return_type_symbol;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	17541	break;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	17542
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	17543	}
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	17544
70 e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	17545
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	17546	ERROR;
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	17547	}
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	17548
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	17549	}/function_not/
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	17550	break;
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	17551
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	17552	/****
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	17553	*SEL
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	17554	*/
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	17555	case function_sel :
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	17556	{
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	17557	symbol_c *last_type_symbol = NULL;
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	17558
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	17559	{
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	17560	identifier_c param_name("G");
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	17561	/* Get the value from a foo(<param_name> = <param_value>) style call */
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	17562	symbol_c *G_param_value = function_call_param_iterator.search(&param_name);
169 bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	17563	symbol_c *G_type_symbol = NULL;
70 e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	17564
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	17565	/* Get the value from a foo(<param_value>) style call */
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	17566	if (G_param_value == NULL)
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	17567	G_param_value = function_call_param_iterator.next();
169 bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	17568	if (G_param_value != NULL) {
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	17569	G_type_symbol = search_expression_type->get_type(G_param_value);
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	17570	last_type_symbol = last_type_symbol && G_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 ;
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	17571	}
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	17572
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	17573	if(G_type_symbol == NULL \|\| search_expression_type->is_same_type(&search_constant_type_c::bool_type_name, last_type_symbol))
70 e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	17574	{
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	17575
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	17576	{
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	17577	identifier_c param_name("IN0");
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	17578	/* Get the value from a foo(<param_name> = <param_value>) style call */
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	17579	symbol_c *IN0_param_value = function_call_param_iterator.search(&param_name);
169 bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	17580	symbol_c *IN0_type_symbol = NULL;
70 e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	17581
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	17582	/* Get the value from a foo(<param_value>) style call */
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	17583	if (IN0_param_value == NULL)
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	17584	IN0_param_value = function_call_param_iterator.next();
169 bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	17585	if (IN0_param_value != NULL) {
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	17586	IN0_type_symbol = search_expression_type->get_type(IN0_param_value);
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	17587	last_type_symbol = last_type_symbol && IN0_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 ;
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	17588	}
70 e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	17589
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	17590
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	17591	{
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	17592
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	17593	{
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	17594	identifier_c param_name("IN1");
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	17595	/* Get the value from a foo(<param_name> = <param_value>) style call */
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	17596	symbol_c *IN1_param_value = function_call_param_iterator.search(&param_name);
169 bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	17597	symbol_c *IN1_type_symbol = NULL;
70 e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	17598
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	17599	/* Get the value from a foo(<param_value>) style call */
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	17600	if (IN1_param_value == NULL)
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	17601	IN1_param_value = function_call_param_iterator.next();
169 bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	17602	if (IN1_param_value != NULL) {
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	17603	IN1_type_symbol = search_expression_type->get_type(IN1_param_value);
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	17604	last_type_symbol = last_type_symbol && IN1_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 ;
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	17605	}
70 e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	17606
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	17607
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	17608	{
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	17609
149 05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	17610	function_name = (symbol_c*)(new pragma_c("__sel_"));
169 bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	17611
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	17612	if (G_type_symbol == NULL)
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	17613	G_type_symbol = last_type_symbol;
149 05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	17614	ADD_PARAM_LIST(G_param_value, G_type_symbol, function_param_iterator_c::direction_in)
169 bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	17615
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	17616	if (IN0_type_symbol == NULL)
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	17617	IN0_type_symbol = last_type_symbol;
149 05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	17618	ADD_PARAM_LIST(IN0_param_value, IN0_type_symbol, function_param_iterator_c::direction_in)
169 bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	17619
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	17620	if (IN1_type_symbol == NULL)
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	17621	IN1_type_symbol = last_type_symbol;
149 05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	17622	ADD_PARAM_LIST(IN1_param_value, IN1_type_symbol, function_param_iterator_c::direction_in)
70 e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	17623	symbol_c * return_type_symbol = last_type_symbol;
149 05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	17624	function_type_suffix = IN0_type_symbol;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	17625	break;
70 e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	17626
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	17627	}
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	17628
149 05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	17629
70 e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	17630	ERROR;
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	17631	}
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	17632
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	17633	}
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	17634
149 05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	17635
70 e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	17636	ERROR;
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	17637	}
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	17638
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	17639	}
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	17640
149 05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	17641
70 e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	17642	ERROR;
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	17643	}
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	17644
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	17645	}/function_sel/
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	17646	break;
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	17647
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	17648	/****
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	17649	*MAX
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	17650	*/
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	17651	case function_max :
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	17652	{
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	17653	symbol_c *last_type_symbol = NULL;
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	17654
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	17655	{
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	17656	identifier_c param_name("IN1");
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	17657	/* Get the value from a foo(<param_name> = <param_value>) style call */
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	17658	symbol_c *IN1_param_value = function_call_param_iterator.search(&param_name);
169 bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	17659	symbol_c *IN1_type_symbol = NULL;
70 e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	17660
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	17661	/* Get the value from a foo(<param_value>) style call */
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	17662	if (IN1_param_value == NULL)
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	17663	IN1_param_value = function_call_param_iterator.next();
169 bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	17664	if (IN1_param_value != NULL) {
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	17665	IN1_type_symbol = search_expression_type->get_type(IN1_param_value);
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	17666	last_type_symbol = last_type_symbol && IN1_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 ;
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	17667	}
70 e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	17668
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	17669
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	17670	{
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	17671
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	17672	{
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	17673	identifier_c param_name("IN2");
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	17674	/* Get the value from a foo(<param_name> = <param_value>) style call */
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	17675	symbol_c *IN2_param_value = function_call_param_iterator.search(&param_name);
169 bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	17676	symbol_c *IN2_type_symbol = NULL;
70 e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	17677
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	17678	/* Get the value from a foo(<param_value>) style call */
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	17679	if (IN2_param_value == NULL)
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	17680	IN2_param_value = function_call_param_iterator.next();
169 bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	17681	if (IN2_param_value != NULL) {
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	17682	IN2_type_symbol = search_expression_type->get_type(IN2_param_value);
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	17683	last_type_symbol = last_type_symbol && IN2_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 ;
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	17684	}
70 e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	17685
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	17686
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	17687	{
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	17688
149 05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	17689	function_name = (symbol_c*)(new pragma_c("__max_"));
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	17690
169 bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	17691	if (nb_param < 2)
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	17692	nb_param = 2;
154 9114afe1f64b Bug with standard functions nb_params count on Windows fixed lbessard parents: 153 diff changeset	17693	char* nb_param_str = new char[10];
149 05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	17694	sprintf(nb_param_str, "%d", nb_param);
154 9114afe1f64b Bug with standard functions nb_params count on Windows fixed lbessard parents: 153 diff changeset	17695	ADD_PARAM_LIST((symbol_c)(new integer_c((const char )nb_param_str)), (symbol_c*)(new int_type_name_c()), function_param_iterator_c::direction_in)
169 bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	17696
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	17697	if (IN1_type_symbol == NULL)
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	17698	IN1_type_symbol = last_type_symbol;
149 05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	17699	ADD_PARAM_LIST(IN1_param_value, IN1_type_symbol, function_param_iterator_c::direction_in)
169 bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	17700
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	17701	if (IN2_type_symbol == NULL)
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	17702	IN2_type_symbol = last_type_symbol;
149 05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	17703	ADD_PARAM_LIST(IN2_param_value, IN2_type_symbol, function_param_iterator_c::direction_in)
70 e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	17704
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	17705	int base_num = 3;
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	17706	symbol_c *param_value = NULL;
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	17707	do{
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	17708	char my_name[10];
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	17709	sprintf(my_name, "IN%d", base_num++);
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	17710	identifier_c param_name(my_name);
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	17711
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	17712	/* Get the value from a foo(<param_name> = <param_value>) style call */
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	17713	param_value = function_call_param_iterator.search(&param_name);
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	17714
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	17715	/* Get the value from a foo(<param_value>) style call */
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	17716	if (param_value == NULL)
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	17717	param_value = function_call_param_iterator.next();
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	17718	if (param_value != NULL){
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	17719	symbol_c *current_type_symbol = search_expression_type->get_type(param_value);
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	17720	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 ;
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	17721
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	17722	/Function specific CODE /
149 05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	17723	ADD_PARAM_LIST(param_value, current_type_symbol, function_param_iterator_c::direction_in)
70 e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	17724	}
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	17725
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	17726	}while(param_value != NULL);
149 05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	17727	symbol_c * return_type_symbol = last_type_symbol;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	17728	function_type_suffix = return_type_symbol;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	17729	break;
70 e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	17730
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	17731	}
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	17732
149 05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	17733
70 e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	17734	ERROR;
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	17735	}
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	17736
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	17737	}
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	17738
149 05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	17739
70 e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	17740	ERROR;
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	17741	}
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	17742
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	17743	}/function_max/
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	17744	break;
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	17745
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	17746	/****
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	17747	*MIN
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	17748	*/
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	17749	case function_min :
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	17750	{
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	17751	symbol_c *last_type_symbol = NULL;
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	17752
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	17753	{
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	17754	identifier_c param_name("IN1");
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	17755	/* Get the value from a foo(<param_name> = <param_value>) style call */
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	17756	symbol_c *IN1_param_value = function_call_param_iterator.search(&param_name);
169 bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	17757	symbol_c *IN1_type_symbol = NULL;
70 e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	17758
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	17759	/* Get the value from a foo(<param_value>) style call */
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	17760	if (IN1_param_value == NULL)
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	17761	IN1_param_value = function_call_param_iterator.next();
169 bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	17762	if (IN1_param_value != NULL) {
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	17763	IN1_type_symbol = search_expression_type->get_type(IN1_param_value);
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	17764	last_type_symbol = last_type_symbol && IN1_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 ;
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	17765	}
70 e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	17766
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	17767
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	17768	{
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	17769
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	17770	{
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	17771	identifier_c param_name("IN2");
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	17772	/* Get the value from a foo(<param_name> = <param_value>) style call */
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	17773	symbol_c *IN2_param_value = function_call_param_iterator.search(&param_name);
169 bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	17774	symbol_c *IN2_type_symbol = NULL;
70 e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	17775
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	17776	/* Get the value from a foo(<param_value>) style call */
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	17777	if (IN2_param_value == NULL)
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	17778	IN2_param_value = function_call_param_iterator.next();
169 bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	17779	if (IN2_param_value != NULL) {
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	17780	IN2_type_symbol = search_expression_type->get_type(IN2_param_value);
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	17781	last_type_symbol = last_type_symbol && IN2_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 ;
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	17782	}
70 e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	17783
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	17784
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	17785	{
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	17786
149 05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	17787	function_name = (symbol_c*)(new pragma_c("__min_"));
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	17788
169 bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	17789	if (nb_param < 2)
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	17790	nb_param = 2;
154 9114afe1f64b Bug with standard functions nb_params count on Windows fixed lbessard parents: 153 diff changeset	17791	char* nb_param_str = new char[10];
149 05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	17792	sprintf(nb_param_str, "%d", nb_param);
154 9114afe1f64b Bug with standard functions nb_params count on Windows fixed lbessard parents: 153 diff changeset	17793	ADD_PARAM_LIST((symbol_c)(new integer_c((const char )nb_param_str)), (symbol_c*)(new int_type_name_c()), function_param_iterator_c::direction_in)
169 bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	17794
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	17795	if (IN1_type_symbol == NULL)
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	17796	IN1_type_symbol = last_type_symbol;
149 05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	17797	ADD_PARAM_LIST(IN1_param_value, IN1_type_symbol, function_param_iterator_c::direction_in)
169 bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	17798
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	17799	if (IN2_type_symbol == NULL)
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	17800	IN2_type_symbol = last_type_symbol;
149 05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	17801	ADD_PARAM_LIST(IN2_param_value, IN2_type_symbol, function_param_iterator_c::direction_in)
70 e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	17802
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	17803	int base_num = 3;
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	17804	symbol_c *param_value = NULL;
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	17805	do{
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	17806	char my_name[10];
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	17807	sprintf(my_name, "IN%d", base_num++);
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	17808	identifier_c param_name(my_name);
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	17809
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	17810	/* Get the value from a foo(<param_name> = <param_value>) style call */
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	17811	param_value = function_call_param_iterator.search(&param_name);
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	17812
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	17813	/* Get the value from a foo(<param_value>) style call */
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	17814	if (param_value == NULL)
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	17815	param_value = function_call_param_iterator.next();
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	17816	if (param_value != NULL){
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	17817	symbol_c *current_type_symbol = search_expression_type->get_type(param_value);
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	17818	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 ;
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	17819
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	17820	/Function specific CODE /
149 05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	17821	ADD_PARAM_LIST(param_value, current_type_symbol, function_param_iterator_c::direction_in)
70 e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	17822	}
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	17823
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	17824	}while(param_value != NULL);
149 05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	17825	symbol_c * return_type_symbol = last_type_symbol;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	17826	function_type_suffix = return_type_symbol;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	17827	break;
70 e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	17828
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	17829	}
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	17830
149 05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	17831
70 e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	17832	ERROR;
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	17833	}
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	17834
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	17835	}
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	17836
149 05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	17837
70 e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	17838	ERROR;
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	17839	}
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	17840
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	17841	}/function_min/
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	17842	break;
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	17843
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	17844	/****
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	17845	*LIMIT
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	17846	*/
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	17847	case function_limit :
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	17848	{
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	17849	symbol_c *last_type_symbol = NULL;
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	17850
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	17851	{
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	17852	identifier_c param_name("MN");
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	17853	/* Get the value from a foo(<param_name> = <param_value>) style call */
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	17854	symbol_c *MN_param_value = function_call_param_iterator.search(&param_name);
169 bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	17855	symbol_c *MN_type_symbol = NULL;
70 e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	17856
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	17857	/* Get the value from a foo(<param_value>) style call */
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	17858	if (MN_param_value == NULL)
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	17859	MN_param_value = function_call_param_iterator.next();
169 bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	17860	if (MN_param_value != NULL) {
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	17861	MN_type_symbol = search_expression_type->get_type(MN_param_value);
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	17862	last_type_symbol = last_type_symbol && MN_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 ;
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	17863	}
70 e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	17864
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	17865
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	17866	{
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	17867
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	17868	{
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	17869	identifier_c param_name("IN");
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	17870	/* Get the value from a foo(<param_name> = <param_value>) style call */
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	17871	symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
169 bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	17872	symbol_c *IN_type_symbol = NULL;
70 e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	17873
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	17874	/* Get the value from a foo(<param_value>) style call */
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	17875	if (IN_param_value == NULL)
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	17876	IN_param_value = function_call_param_iterator.next();
169 bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	17877	if (IN_param_value != NULL) {
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	17878	IN_type_symbol = search_expression_type->get_type(IN_param_value);
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	17879	last_type_symbol = last_type_symbol && IN_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	17880	}
70 e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	17881
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	17882
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	17883	{
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	17884
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	17885	{
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	17886	identifier_c param_name("MX");
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	17887	/* Get the value from a foo(<param_name> = <param_value>) style call */
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	17888	symbol_c *MX_param_value = function_call_param_iterator.search(&param_name);
169 bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	17889	symbol_c *MX_type_symbol = NULL;
70 e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	17890
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	17891	/* Get the value from a foo(<param_value>) style call */
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	17892	if (MX_param_value == NULL)
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	17893	MX_param_value = function_call_param_iterator.next();
169 bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	17894	if (MX_param_value != NULL) {
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	17895	MX_type_symbol = search_expression_type->get_type(MX_param_value);
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	17896	last_type_symbol = last_type_symbol && MX_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 ;
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	17897	}
70 e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	17898
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	17899
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	17900	{
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	17901
149 05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	17902	function_name = (symbol_c*)(new pragma_c("__limit_"));
169 bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	17903
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	17904	if (MN_type_symbol == NULL)
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	17905	MN_type_symbol = last_type_symbol;
149 05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	17906	ADD_PARAM_LIST(MN_param_value, MN_type_symbol, function_param_iterator_c::direction_in)
169 bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	17907
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	17908	if (IN_type_symbol == NULL)
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	17909	IN_type_symbol = last_type_symbol;
149 05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	17910	ADD_PARAM_LIST(IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in)
169 bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	17911
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	17912	if (MX_type_symbol == NULL)
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	17913	MX_type_symbol = last_type_symbol;
149 05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	17914	ADD_PARAM_LIST(MX_param_value, MX_type_symbol, function_param_iterator_c::direction_in)
70 e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	17915	symbol_c * return_type_symbol = IN_type_symbol;
149 05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	17916	function_type_suffix = IN_type_symbol;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	17917	break;
70 e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	17918
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	17919	}
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	17920
149 05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	17921
70 e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	17922	ERROR;
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	17923	}
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	17924
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	17925	}
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	17926
149 05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	17927
70 e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	17928	ERROR;
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	17929	}
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	17930
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	17931	}
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	17932
149 05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	17933
70 e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	17934	ERROR;
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	17935	}
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	17936
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	17937	}/function_limit/
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	17938	break;
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	17939
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	17940	/****
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	17941	*MUX
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	17942	*/
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	17943	case function_mux :
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	17944	{
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	17945	symbol_c *last_type_symbol = NULL;
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	17946
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	17947	{
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	17948	identifier_c param_name("K");
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	17949	/* Get the value from a foo(<param_name> = <param_value>) style call */
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	17950	symbol_c *K_param_value = function_call_param_iterator.search(&param_name);
169 bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	17951	symbol_c *K_type_symbol = NULL;
70 e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	17952
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	17953	/* Get the value from a foo(<param_value>) style call */
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	17954	if (K_param_value == NULL)
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	17955	K_param_value = function_call_param_iterator.next();
169 bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	17956	if (K_param_value != NULL) {
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	17957	K_type_symbol = search_expression_type->get_type(K_param_value);
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	17958	last_type_symbol = last_type_symbol && K_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 ;
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	17959	}
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	17960
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	17961	if(K_type_symbol == NULL \|\| search_expression_type->is_integer_type(K_type_symbol))
70 e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	17962	{
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	17963
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	17964	{
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	17965	identifier_c param_name("IN0");
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	17966	/* Get the value from a foo(<param_name> = <param_value>) style call */
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	17967	symbol_c *IN0_param_value = function_call_param_iterator.search(&param_name);
169 bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	17968	symbol_c *IN0_type_symbol = NULL;
70 e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	17969
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	17970	/* Get the value from a foo(<param_value>) style call */
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	17971	if (IN0_param_value == NULL)
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	17972	IN0_param_value = function_call_param_iterator.next();
169 bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	17973	if (IN0_param_value != NULL) {
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	17974	IN0_type_symbol = search_expression_type->get_type(IN0_param_value);
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	17975	last_type_symbol = last_type_symbol && IN0_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 ;
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	17976	}
70 e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	17977
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	17978
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	17979	{
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	17980
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	17981	{
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	17982	identifier_c param_name("IN1");
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	17983	/* Get the value from a foo(<param_name> = <param_value>) style call */
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	17984	symbol_c *IN1_param_value = function_call_param_iterator.search(&param_name);
169 bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	17985	symbol_c *IN1_type_symbol = NULL;
70 e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	17986
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	17987	/* Get the value from a foo(<param_value>) style call */
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	17988	if (IN1_param_value == NULL)
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	17989	IN1_param_value = function_call_param_iterator.next();
169 bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	17990	if (IN1_param_value != NULL) {
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	17991	IN1_type_symbol = search_expression_type->get_type(IN1_param_value);
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	17992	last_type_symbol = last_type_symbol && IN1_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 ;
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	17993	}
70 e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	17994
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	17995
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	17996	{
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	17997
149 05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	17998	function_name = (symbol_c*)(new pragma_c("__mux_"));
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	17999
169 bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	18000	if (nb_param < 3)
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	18001	nb_param = 3;
154 9114afe1f64b Bug with standard functions nb_params count on Windows fixed lbessard parents: 153 diff changeset	18002	char* nb_param_str = new char[10];
149 05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	18003	sprintf(nb_param_str, "%d", nb_param);
154 9114afe1f64b Bug with standard functions nb_params count on Windows fixed lbessard parents: 153 diff changeset	18004	ADD_PARAM_LIST((symbol_c)(new integer_c((const char )nb_param_str)), (symbol_c*)(new int_type_name_c()), function_param_iterator_c::direction_in)
169 bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	18005
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	18006	if (K_type_symbol == NULL)
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	18007	K_type_symbol = last_type_symbol;
149 05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	18008	ADD_PARAM_LIST(K_param_value, K_type_symbol, function_param_iterator_c::direction_in)
169 bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	18009
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	18010	if (IN0_type_symbol == NULL)
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	18011	IN0_type_symbol = last_type_symbol;
149 05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	18012	ADD_PARAM_LIST(IN0_param_value, IN0_type_symbol, function_param_iterator_c::direction_in)
169 bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	18013
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	18014	if (IN1_type_symbol == NULL)
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	18015	IN1_type_symbol = last_type_symbol;
149 05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	18016	ADD_PARAM_LIST(IN1_param_value, IN1_type_symbol, function_param_iterator_c::direction_in)
70 e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	18017
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	18018	int base_num = 2;
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	18019	symbol_c *param_value = NULL;
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	18020	do{
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	18021	char my_name[10];
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	18022	sprintf(my_name, "IN%d", base_num++);
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	18023	identifier_c param_name(my_name);
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	18024
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	18025	/* Get the value from a foo(<param_name> = <param_value>) style call */
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	18026	param_value = function_call_param_iterator.search(&param_name);
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	18027
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	18028	/* Get the value from a foo(<param_value>) style call */
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	18029	if (param_value == NULL)
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	18030	param_value = function_call_param_iterator.next();
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	18031	if (param_value != NULL){
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	18032	symbol_c *current_type_symbol = search_expression_type->get_type(param_value);
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	18033	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 ;
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	18034
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	18035	/Function specific CODE /
149 05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	18036	ADD_PARAM_LIST(param_value, current_type_symbol, function_param_iterator_c::direction_in)
70 e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	18037	}
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	18038
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	18039	}while(param_value != NULL);
149 05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	18040	symbol_c * return_type_symbol = last_type_symbol;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	18041	function_type_suffix = return_type_symbol;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	18042	break;
70 e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	18043
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	18044	}
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	18045
149 05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	18046
70 e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	18047	ERROR;
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	18048	}
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	18049
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	18050	}
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	18051
149 05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	18052
70 e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	18053	ERROR;
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	18054	}
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	18055
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	18056	}
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	18057
149 05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	18058
70 e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	18059	ERROR;
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	18060	}
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	18061
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	18062	}/function_mux/
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	18063	break;
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	18064
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	18065	/****
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	18066	*GT
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	18067	*/
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	18068	case function_gt :
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	18069	{
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	18070	symbol_c *last_type_symbol = NULL;
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	18071
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	18072	{
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	18073	identifier_c param_name("IN1");
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	18074	/* Get the value from a foo(<param_name> = <param_value>) style call */
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	18075	symbol_c *IN1_param_value = function_call_param_iterator.search(&param_name);
169 bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	18076	symbol_c *IN1_type_symbol = NULL;
70 e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	18077
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	18078	/* Get the value from a foo(<param_value>) style call */
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	18079	if (IN1_param_value == NULL)
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	18080	IN1_param_value = function_call_param_iterator.next();
169 bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	18081	if (IN1_param_value != NULL) {
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	18082	IN1_type_symbol = search_expression_type->get_type(IN1_param_value);
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	18083	last_type_symbol = last_type_symbol && IN1_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 ;
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	18084	}
70 e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	18085
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	18086
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	18087	{
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	18088
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	18089	{
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	18090	identifier_c param_name("IN2");
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	18091	/* Get the value from a foo(<param_name> = <param_value>) style call */
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	18092	symbol_c *IN2_param_value = function_call_param_iterator.search(&param_name);
169 bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	18093	symbol_c *IN2_type_symbol = NULL;
70 e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	18094
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	18095	/* Get the value from a foo(<param_value>) style call */
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	18096	if (IN2_param_value == NULL)
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	18097	IN2_param_value = function_call_param_iterator.next();
169 bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	18098	if (IN2_param_value != NULL) {
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	18099	IN2_type_symbol = search_expression_type->get_type(IN2_param_value);
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	18100	last_type_symbol = last_type_symbol && IN2_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 ;
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	18101	}
70 e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	18102
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	18103
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	18104	{
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	18105
149 05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	18106	function_name = (symbol_c*)(new pragma_c("__gt_"));
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	18107
169 bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	18108	if (nb_param < 2)
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	18109	nb_param = 2;
154 9114afe1f64b Bug with standard functions nb_params count on Windows fixed lbessard parents: 153 diff changeset	18110	char* nb_param_str = new char[10];
149 05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	18111	sprintf(nb_param_str, "%d", nb_param);
154 9114afe1f64b Bug with standard functions nb_params count on Windows fixed lbessard parents: 153 diff changeset	18112	ADD_PARAM_LIST((symbol_c)(new integer_c((const char )nb_param_str)), (symbol_c*)(new int_type_name_c()), function_param_iterator_c::direction_in)
169 bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	18113
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	18114	if (IN1_type_symbol == NULL)
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	18115	IN1_type_symbol = last_type_symbol;
149 05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	18116	ADD_PARAM_LIST(IN1_param_value, IN1_type_symbol, function_param_iterator_c::direction_in)
169 bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	18117
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	18118	if (IN2_type_symbol == NULL)
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	18119	IN2_type_symbol = last_type_symbol;
149 05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	18120	ADD_PARAM_LIST(IN2_param_value, IN2_type_symbol, function_param_iterator_c::direction_in)
70 e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	18121
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	18122	int base_num = 3;
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	18123	symbol_c *param_value = NULL;
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	18124	do{
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	18125	char my_name[10];
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	18126	sprintf(my_name, "IN%d", base_num++);
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	18127	identifier_c param_name(my_name);
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	18128
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	18129	/* Get the value from a foo(<param_name> = <param_value>) style call */
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	18130	param_value = function_call_param_iterator.search(&param_name);
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	18131
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	18132	/* Get the value from a foo(<param_value>) style call */
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	18133	if (param_value == NULL)
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	18134	param_value = function_call_param_iterator.next();
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	18135	if (param_value != NULL){
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	18136	symbol_c *current_type_symbol = search_expression_type->get_type(param_value);
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	18137	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 ;
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	18138
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	18139	/Function specific CODE /
149 05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	18140	ADD_PARAM_LIST(param_value, current_type_symbol, function_param_iterator_c::direction_in)
70 e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	18141	}
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	18142
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	18143	}while(param_value != NULL);
149 05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	18144	symbol_c * return_type_symbol = &search_constant_type_c::bool_type_name;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	18145	function_type_suffix = last_type_symbol;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	18146	break;
70 e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	18147
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	18148	}
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	18149
149 05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	18150
70 e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	18151	ERROR;
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	18152	}
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	18153
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	18154	}
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	18155
149 05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	18156
70 e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	18157	ERROR;
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	18158	}
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	18159
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	18160	}/function_gt/
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	18161	break;
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	18162
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	18163	/****
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	18164	*GE
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	18165	*/
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	18166	case function_ge :
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	18167	{
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	18168	symbol_c *last_type_symbol = NULL;
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	18169
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	18170	{
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	18171	identifier_c param_name("IN1");
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	18172	/* Get the value from a foo(<param_name> = <param_value>) style call */
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	18173	symbol_c *IN1_param_value = function_call_param_iterator.search(&param_name);
169 bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	18174	symbol_c *IN1_type_symbol = NULL;
70 e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	18175
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	18176	/* Get the value from a foo(<param_value>) style call */
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	18177	if (IN1_param_value == NULL)
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	18178	IN1_param_value = function_call_param_iterator.next();
169 bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	18179	if (IN1_param_value != NULL) {
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	18180	IN1_type_symbol = search_expression_type->get_type(IN1_param_value);
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	18181	last_type_symbol = last_type_symbol && IN1_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 ;
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	18182	}
70 e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	18183
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	18184
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	18185	{
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	18186
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	18187	{
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	18188	identifier_c param_name("IN2");
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	18189	/* Get the value from a foo(<param_name> = <param_value>) style call */
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	18190	symbol_c *IN2_param_value = function_call_param_iterator.search(&param_name);
169 bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	18191	symbol_c *IN2_type_symbol = NULL;
70 e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	18192
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	18193	/* Get the value from a foo(<param_value>) style call */
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	18194	if (IN2_param_value == NULL)
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	18195	IN2_param_value = function_call_param_iterator.next();
169 bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	18196	if (IN2_param_value != NULL) {
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	18197	IN2_type_symbol = search_expression_type->get_type(IN2_param_value);
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	18198	last_type_symbol = last_type_symbol && IN2_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 ;
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	18199	}
70 e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	18200
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	18201
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	18202	{
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	18203
149 05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	18204	function_name = (symbol_c*)(new pragma_c("__ge_"));
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	18205
169 bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	18206	if (nb_param < 2)
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	18207	nb_param = 2;
154 9114afe1f64b Bug with standard functions nb_params count on Windows fixed lbessard parents: 153 diff changeset	18208	char* nb_param_str = new char[10];
149 05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	18209	sprintf(nb_param_str, "%d", nb_param);
154 9114afe1f64b Bug with standard functions nb_params count on Windows fixed lbessard parents: 153 diff changeset	18210	ADD_PARAM_LIST((symbol_c)(new integer_c((const char )nb_param_str)), (symbol_c*)(new int_type_name_c()), function_param_iterator_c::direction_in)
169 bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	18211
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	18212	if (IN1_type_symbol == NULL)
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	18213	IN1_type_symbol = last_type_symbol;
149 05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	18214	ADD_PARAM_LIST(IN1_param_value, IN1_type_symbol, function_param_iterator_c::direction_in)
169 bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	18215
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	18216	if (IN2_type_symbol == NULL)
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	18217	IN2_type_symbol = last_type_symbol;
149 05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	18218	ADD_PARAM_LIST(IN2_param_value, IN2_type_symbol, function_param_iterator_c::direction_in)
70 e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	18219
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	18220	int base_num = 3;
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	18221	symbol_c *param_value = NULL;
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	18222	do{
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	18223	char my_name[10];
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	18224	sprintf(my_name, "IN%d", base_num++);
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	18225	identifier_c param_name(my_name);
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	18226
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	18227	/* Get the value from a foo(<param_name> = <param_value>) style call */
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	18228	param_value = function_call_param_iterator.search(&param_name);
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	18229
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	18230	/* Get the value from a foo(<param_value>) style call */
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	18231	if (param_value == NULL)
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	18232	param_value = function_call_param_iterator.next();
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	18233	if (param_value != NULL){
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	18234	symbol_c *current_type_symbol = search_expression_type->get_type(param_value);
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	18235	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 ;
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	18236
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	18237	/Function specific CODE /
149 05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	18238	ADD_PARAM_LIST(param_value, current_type_symbol, function_param_iterator_c::direction_in)
70 e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	18239	}
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	18240
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	18241	}while(param_value != NULL);
149 05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	18242	symbol_c * return_type_symbol = &search_constant_type_c::bool_type_name;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	18243	function_type_suffix = last_type_symbol;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	18244	break;
70 e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	18245
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	18246	}
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	18247
149 05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	18248
70 e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	18249	ERROR;
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	18250	}
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	18251
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	18252	}
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	18253
149 05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	18254
70 e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	18255	ERROR;
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	18256	}
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	18257
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	18258	}/function_ge/
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	18259	break;
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	18260
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	18261	/****
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	18262	*EQ
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	18263	*/
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	18264	case function_eq :
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	18265	{
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	18266	symbol_c *last_type_symbol = NULL;
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	18267
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	18268	{
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	18269	identifier_c param_name("IN1");
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	18270	/* Get the value from a foo(<param_name> = <param_value>) style call */
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	18271	symbol_c *IN1_param_value = function_call_param_iterator.search(&param_name);
169 bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	18272	symbol_c *IN1_type_symbol = NULL;
70 e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	18273
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	18274	/* Get the value from a foo(<param_value>) style call */
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	18275	if (IN1_param_value == NULL)
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	18276	IN1_param_value = function_call_param_iterator.next();
169 bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	18277	if (IN1_param_value != NULL) {
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	18278	IN1_type_symbol = search_expression_type->get_type(IN1_param_value);
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	18279	last_type_symbol = last_type_symbol && IN1_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 ;
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	18280	}
70 e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	18281
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	18282
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	18283	{
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	18284
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	18285	{
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	18286	identifier_c param_name("IN2");
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	18287	/* Get the value from a foo(<param_name> = <param_value>) style call */
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	18288	symbol_c *IN2_param_value = function_call_param_iterator.search(&param_name);
169 bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	18289	symbol_c *IN2_type_symbol = NULL;
70 e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	18290
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	18291	/* Get the value from a foo(<param_value>) style call */
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	18292	if (IN2_param_value == NULL)
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	18293	IN2_param_value = function_call_param_iterator.next();
169 bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	18294	if (IN2_param_value != NULL) {
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	18295	IN2_type_symbol = search_expression_type->get_type(IN2_param_value);
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	18296	last_type_symbol = last_type_symbol && IN2_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 ;
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	18297	}
70 e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	18298
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	18299
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	18300	{
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	18301
149 05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	18302	function_name = (symbol_c*)(new pragma_c("__eq_"));
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	18303
169 bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	18304	if (nb_param < 2)
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	18305	nb_param = 2;
154 9114afe1f64b Bug with standard functions nb_params count on Windows fixed lbessard parents: 153 diff changeset	18306	char* nb_param_str = new char[10];
149 05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	18307	sprintf(nb_param_str, "%d", nb_param);
154 9114afe1f64b Bug with standard functions nb_params count on Windows fixed lbessard parents: 153 diff changeset	18308	ADD_PARAM_LIST((symbol_c)(new integer_c((const char )nb_param_str)), (symbol_c*)(new int_type_name_c()), function_param_iterator_c::direction_in)
169 bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	18309
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	18310	if (IN1_type_symbol == NULL)
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	18311	IN1_type_symbol = last_type_symbol;
149 05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	18312	ADD_PARAM_LIST(IN1_param_value, IN1_type_symbol, function_param_iterator_c::direction_in)
169 bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	18313
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	18314	if (IN2_type_symbol == NULL)
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	18315	IN2_type_symbol = last_type_symbol;
149 05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	18316	ADD_PARAM_LIST(IN2_param_value, IN2_type_symbol, function_param_iterator_c::direction_in)
70 e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	18317
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	18318	int base_num = 3;
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	18319	symbol_c *param_value = NULL;
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	18320	do{
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	18321	char my_name[10];
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	18322	sprintf(my_name, "IN%d", base_num++);
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	18323	identifier_c param_name(my_name);
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	18324
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	18325	/* Get the value from a foo(<param_name> = <param_value>) style call */
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	18326	param_value = function_call_param_iterator.search(&param_name);
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	18327
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	18328	/* Get the value from a foo(<param_value>) style call */
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	18329	if (param_value == NULL)
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	18330	param_value = function_call_param_iterator.next();
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	18331	if (param_value != NULL){
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	18332	symbol_c *current_type_symbol = search_expression_type->get_type(param_value);
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	18333	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 ;
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	18334
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	18335	/Function specific CODE /
149 05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	18336	ADD_PARAM_LIST(param_value, current_type_symbol, function_param_iterator_c::direction_in)
70 e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	18337	}
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	18338
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	18339	}while(param_value != NULL);
149 05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	18340	symbol_c * return_type_symbol = &search_constant_type_c::bool_type_name;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	18341	function_type_suffix = last_type_symbol;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	18342	break;
70 e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	18343
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	18344	}
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	18345
149 05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	18346
70 e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	18347	ERROR;
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	18348	}
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	18349
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	18350	}
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	18351
149 05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	18352
70 e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	18353	ERROR;
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	18354	}
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	18355
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	18356	}/function_eq/
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	18357	break;
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	18358
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	18359	/****
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	18360	*LT
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	18361	*/
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	18362	case function_lt :
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	18363	{
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	18364	symbol_c *last_type_symbol = NULL;
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	18365
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	18366	{
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	18367	identifier_c param_name("IN1");
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	18368	/* Get the value from a foo(<param_name> = <param_value>) style call */
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	18369	symbol_c *IN1_param_value = function_call_param_iterator.search(&param_name);
169 bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	18370	symbol_c *IN1_type_symbol = NULL;
70 e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	18371
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	18372	/* Get the value from a foo(<param_value>) style call */
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	18373	if (IN1_param_value == NULL)
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	18374	IN1_param_value = function_call_param_iterator.next();
169 bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	18375	if (IN1_param_value != NULL) {
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	18376	IN1_type_symbol = search_expression_type->get_type(IN1_param_value);
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	18377	last_type_symbol = last_type_symbol && IN1_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 ;
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	18378	}
70 e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	18379
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	18380
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	18381	{
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	18382
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	18383	{
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	18384	identifier_c param_name("IN2");
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	18385	/* Get the value from a foo(<param_name> = <param_value>) style call */
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	18386	symbol_c *IN2_param_value = function_call_param_iterator.search(&param_name);
169 bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	18387	symbol_c *IN2_type_symbol = NULL;
70 e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	18388
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	18389	/* Get the value from a foo(<param_value>) style call */
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	18390	if (IN2_param_value == NULL)
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	18391	IN2_param_value = function_call_param_iterator.next();
169 bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	18392	if (IN2_param_value != NULL) {
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	18393	IN2_type_symbol = search_expression_type->get_type(IN2_param_value);
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	18394	last_type_symbol = last_type_symbol && IN2_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 ;
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	18395	}
70 e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	18396
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	18397
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	18398	{
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	18399
149 05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	18400	function_name = (symbol_c*)(new pragma_c("__lt_"));
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	18401
169 bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	18402	if (nb_param < 2)
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	18403	nb_param = 2;
154 9114afe1f64b Bug with standard functions nb_params count on Windows fixed lbessard parents: 153 diff changeset	18404	char* nb_param_str = new char[10];
149 05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	18405	sprintf(nb_param_str, "%d", nb_param);
154 9114afe1f64b Bug with standard functions nb_params count on Windows fixed lbessard parents: 153 diff changeset	18406	ADD_PARAM_LIST((symbol_c)(new integer_c((const char )nb_param_str)), (symbol_c*)(new int_type_name_c()), function_param_iterator_c::direction_in)
169 bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	18407
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	18408	if (IN1_type_symbol == NULL)
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	18409	IN1_type_symbol = last_type_symbol;
149 05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	18410	ADD_PARAM_LIST(IN1_param_value, IN1_type_symbol, function_param_iterator_c::direction_in)
169 bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	18411
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	18412	if (IN2_type_symbol == NULL)
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	18413	IN2_type_symbol = last_type_symbol;
149 05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	18414	ADD_PARAM_LIST(IN2_param_value, IN2_type_symbol, function_param_iterator_c::direction_in)
70 e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	18415
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	18416	int base_num = 3;
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	18417	symbol_c *param_value = NULL;
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	18418	do{
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	18419	char my_name[10];
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	18420	sprintf(my_name, "IN%d", base_num++);
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	18421	identifier_c param_name(my_name);
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	18422
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	18423	/* Get the value from a foo(<param_name> = <param_value>) style call */
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	18424	param_value = function_call_param_iterator.search(&param_name);
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	18425
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	18426	/* Get the value from a foo(<param_value>) style call */
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	18427	if (param_value == NULL)
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	18428	param_value = function_call_param_iterator.next();
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	18429	if (param_value != NULL){
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	18430	symbol_c *current_type_symbol = search_expression_type->get_type(param_value);
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	18431	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 ;
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	18432
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	18433	/Function specific CODE /
149 05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	18434	ADD_PARAM_LIST(param_value, current_type_symbol, function_param_iterator_c::direction_in)
70 e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	18435	}
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	18436
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	18437	}while(param_value != NULL);
149 05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	18438	symbol_c * return_type_symbol = &search_constant_type_c::bool_type_name;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	18439	function_type_suffix = last_type_symbol;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	18440	break;
70 e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	18441
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	18442	}
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	18443
149 05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	18444
70 e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	18445	ERROR;
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	18446	}
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	18447
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	18448	}
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	18449
149 05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	18450
70 e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	18451	ERROR;
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	18452	}
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	18453
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	18454	}/function_lt/
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	18455	break;
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	18456
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	18457	/****
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	18458	*LE
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	18459	*/
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	18460	case function_le :
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	18461	{
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	18462	symbol_c *last_type_symbol = NULL;
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	18463
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	18464	{
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	18465	identifier_c param_name("IN1");
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	18466	/* Get the value from a foo(<param_name> = <param_value>) style call */
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	18467	symbol_c *IN1_param_value = function_call_param_iterator.search(&param_name);
169 bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	18468	symbol_c *IN1_type_symbol = NULL;
70 e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	18469
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	18470	/* Get the value from a foo(<param_value>) style call */
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	18471	if (IN1_param_value == NULL)
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	18472	IN1_param_value = function_call_param_iterator.next();
169 bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	18473	if (IN1_param_value != NULL) {
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	18474	IN1_type_symbol = search_expression_type->get_type(IN1_param_value);
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	18475	last_type_symbol = last_type_symbol && IN1_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 ;
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	18476	}
70 e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	18477
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	18478
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	18479	{
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	18480
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	18481	{
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	18482	identifier_c param_name("IN2");
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	18483	/* Get the value from a foo(<param_name> = <param_value>) style call */
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	18484	symbol_c *IN2_param_value = function_call_param_iterator.search(&param_name);
169 bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	18485	symbol_c *IN2_type_symbol = NULL;
70 e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	18486
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	18487	/* Get the value from a foo(<param_value>) style call */
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	18488	if (IN2_param_value == NULL)
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	18489	IN2_param_value = function_call_param_iterator.next();
169 bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	18490	if (IN2_param_value != NULL) {
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	18491	IN2_type_symbol = search_expression_type->get_type(IN2_param_value);
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	18492	last_type_symbol = last_type_symbol && IN2_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 ;
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	18493	}
70 e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	18494
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	18495
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	18496	{
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	18497
149 05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	18498	function_name = (symbol_c*)(new pragma_c("__le_"));
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	18499
169 bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	18500	if (nb_param < 2)
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	18501	nb_param = 2;
154 9114afe1f64b Bug with standard functions nb_params count on Windows fixed lbessard parents: 153 diff changeset	18502	char* nb_param_str = new char[10];
149 05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	18503	sprintf(nb_param_str, "%d", nb_param);
154 9114afe1f64b Bug with standard functions nb_params count on Windows fixed lbessard parents: 153 diff changeset	18504	ADD_PARAM_LIST((symbol_c)(new integer_c((const char )nb_param_str)), (symbol_c*)(new int_type_name_c()), function_param_iterator_c::direction_in)
169 bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	18505
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	18506	if (IN1_type_symbol == NULL)
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	18507	IN1_type_symbol = last_type_symbol;
149 05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	18508	ADD_PARAM_LIST(IN1_param_value, IN1_type_symbol, function_param_iterator_c::direction_in)
169 bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	18509
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	18510	if (IN2_type_symbol == NULL)
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	18511	IN2_type_symbol = last_type_symbol;
149 05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	18512	ADD_PARAM_LIST(IN2_param_value, IN2_type_symbol, function_param_iterator_c::direction_in)
70 e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	18513
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	18514	int base_num = 3;
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	18515	symbol_c *param_value = NULL;
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	18516	do{
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	18517	char my_name[10];
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	18518	sprintf(my_name, "IN%d", base_num++);
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	18519	identifier_c param_name(my_name);
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	18520
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	18521	/* Get the value from a foo(<param_name> = <param_value>) style call */
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	18522	param_value = function_call_param_iterator.search(&param_name);
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	18523
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	18524	/* Get the value from a foo(<param_value>) style call */
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	18525	if (param_value == NULL)
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	18526	param_value = function_call_param_iterator.next();
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	18527	if (param_value != NULL){
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	18528	symbol_c *current_type_symbol = search_expression_type->get_type(param_value);
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	18529	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 ;
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	18530
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	18531	/Function specific CODE /
149 05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	18532	ADD_PARAM_LIST(param_value, current_type_symbol, function_param_iterator_c::direction_in)
70 e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	18533	}
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	18534
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	18535	}while(param_value != NULL);
149 05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	18536	symbol_c * return_type_symbol = &search_constant_type_c::bool_type_name;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	18537	function_type_suffix = last_type_symbol;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	18538	break;
70 e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	18539
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	18540	}
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	18541
149 05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	18542
70 e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	18543	ERROR;
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	18544	}
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	18545
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	18546	}
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	18547
149 05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	18548
70 e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	18549	ERROR;
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	18550	}
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	18551
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	18552	}/function_le/
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	18553	break;
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	18554
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	18555	/****
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	18556	*NE
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	18557	*/
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	18558	case function_ne :
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	18559	{
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	18560	symbol_c *last_type_symbol = NULL;
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	18561
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	18562	{
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	18563	identifier_c param_name("IN1");
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	18564	/* Get the value from a foo(<param_name> = <param_value>) style call */
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	18565	symbol_c *IN1_param_value = function_call_param_iterator.search(&param_name);
169 bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	18566	symbol_c *IN1_type_symbol = NULL;
70 e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	18567
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	18568	/* Get the value from a foo(<param_value>) style call */
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	18569	if (IN1_param_value == NULL)
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	18570	IN1_param_value = function_call_param_iterator.next();
169 bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	18571	if (IN1_param_value != NULL) {
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	18572	IN1_type_symbol = search_expression_type->get_type(IN1_param_value);
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	18573	last_type_symbol = last_type_symbol && IN1_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 ;
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	18574	}
70 e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	18575
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	18576
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	18577	{
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	18578
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	18579	{
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	18580	identifier_c param_name("IN2");
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	18581	/* Get the value from a foo(<param_name> = <param_value>) style call */
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	18582	symbol_c *IN2_param_value = function_call_param_iterator.search(&param_name);
169 bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	18583	symbol_c *IN2_type_symbol = NULL;
70 e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	18584
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	18585	/* Get the value from a foo(<param_value>) style call */
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	18586	if (IN2_param_value == NULL)
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	18587	IN2_param_value = function_call_param_iterator.next();
169 bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	18588	if (IN2_param_value != NULL) {
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	18589	IN2_type_symbol = search_expression_type->get_type(IN2_param_value);
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	18590	last_type_symbol = last_type_symbol && IN2_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 ;
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	18591	}
70 e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	18592
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	18593
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	18594	{
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	18595
149 05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	18596	function_name = (symbol_c*)(new pragma_c("__ne_"));
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	18597
169 bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	18598	if (nb_param < 2)
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	18599	nb_param = 2;
154 9114afe1f64b Bug with standard functions nb_params count on Windows fixed lbessard parents: 153 diff changeset	18600	char* nb_param_str = new char[10];
149 05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	18601	sprintf(nb_param_str, "%d", nb_param);
154 9114afe1f64b Bug with standard functions nb_params count on Windows fixed lbessard parents: 153 diff changeset	18602	ADD_PARAM_LIST((symbol_c)(new integer_c((const char )nb_param_str)), (symbol_c*)(new int_type_name_c()), function_param_iterator_c::direction_in)
169 bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	18603
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	18604	if (IN1_type_symbol == NULL)
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	18605	IN1_type_symbol = last_type_symbol;
149 05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	18606	ADD_PARAM_LIST(IN1_param_value, IN1_type_symbol, function_param_iterator_c::direction_in)
169 bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	18607
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	18608	if (IN2_type_symbol == NULL)
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	18609	IN2_type_symbol = last_type_symbol;
149 05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	18610	ADD_PARAM_LIST(IN2_param_value, IN2_type_symbol, function_param_iterator_c::direction_in)
70 e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	18611
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	18612	int base_num = 3;
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	18613	symbol_c *param_value = NULL;
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	18614	do{
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	18615	char my_name[10];
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	18616	sprintf(my_name, "IN%d", base_num++);
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	18617	identifier_c param_name(my_name);
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	18618
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	18619	/* Get the value from a foo(<param_name> = <param_value>) style call */
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	18620	param_value = function_call_param_iterator.search(&param_name);
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	18621
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	18622	/* Get the value from a foo(<param_value>) style call */
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	18623	if (param_value == NULL)
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	18624	param_value = function_call_param_iterator.next();
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	18625	if (param_value != NULL){
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	18626	symbol_c *current_type_symbol = search_expression_type->get_type(param_value);
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	18627	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 ;
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	18628
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	18629	/Function specific CODE /
149 05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	18630	ADD_PARAM_LIST(param_value, current_type_symbol, function_param_iterator_c::direction_in)
70 e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	18631	}
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	18632
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	18633	}while(param_value != NULL);
149 05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	18634	symbol_c * return_type_symbol = &search_constant_type_c::bool_type_name;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	18635	function_type_suffix = last_type_symbol;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	18636	break;
70 e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	18637
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	18638	}
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	18639
149 05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	18640
70 e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	18641	ERROR;
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	18642	}
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	18643
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	18644	}
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	18645
149 05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	18646
70 e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	18647	ERROR;
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	18648	}
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	18649
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	18650	}/function_ne/
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	18651	break;
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	18652
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	18653	/****
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	18654	*LEN
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	18655	*/
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	18656	case function_len :
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	18657	{
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	18658	symbol_c *last_type_symbol = NULL;
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	18659
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	18660	{
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	18661	identifier_c param_name("IN");
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	18662	/* Get the value from a foo(<param_name> = <param_value>) style call */
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	18663	symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
169 bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	18664	symbol_c *IN_type_symbol = NULL;
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	18665
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	18666	/* Get the value from a foo(<param_value>) style call */
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	18667	if (IN_param_value == NULL)
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	18668	IN_param_value = function_call_param_iterator.next();
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	18669	if (IN_param_value != NULL) {
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	18670	IN_type_symbol = search_expression_type->get_type(IN_param_value);
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	18671	last_type_symbol = last_type_symbol && IN_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	18672	}
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	18673
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	18674	if(IN_type_symbol == NULL \|\| search_expression_type->is_same_type(&search_constant_type_c::string_type_name, last_type_symbol))
70 e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	18675	{
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	18676
149 05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	18677	function_name = (symbol_c*)(new pragma_c("__len"));
169 bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	18678
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	18679	if (IN_type_symbol == NULL)
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	18680	IN_type_symbol = last_type_symbol;
149 05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	18681	ADD_PARAM_LIST(IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in)
70 e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	18682	symbol_c * return_type_symbol = &search_constant_type_c::int_type_name;
149 05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	18683	break;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	18684
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	18685	}
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	18686
70 e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	18687
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	18688	ERROR;
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	18689	}
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	18690
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	18691	}/function_len/
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	18692	break;
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	18693
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	18694	/****
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	18695	*LEFT
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	18696	*/
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	18697	case function_left :
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	18698	{
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	18699	symbol_c *last_type_symbol = NULL;
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	18700
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	18701	{
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	18702	identifier_c param_name("IN");
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	18703	/* Get the value from a foo(<param_name> = <param_value>) style call */
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	18704	symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
169 bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	18705	symbol_c *IN_type_symbol = NULL;
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	18706
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	18707	/* Get the value from a foo(<param_value>) style call */
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	18708	if (IN_param_value == NULL)
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	18709	IN_param_value = function_call_param_iterator.next();
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	18710	if (IN_param_value != NULL) {
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	18711	IN_type_symbol = search_expression_type->get_type(IN_param_value);
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	18712	last_type_symbol = last_type_symbol && IN_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	18713	}
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	18714
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	18715	if(IN_type_symbol == NULL \|\| search_expression_type->is_same_type(&search_constant_type_c::string_type_name, last_type_symbol))
70 e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	18716	{
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	18717
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	18718	{
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	18719	identifier_c param_name("L");
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	18720	/* Get the value from a foo(<param_name> = <param_value>) style call */
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	18721	symbol_c *L_param_value = function_call_param_iterator.search(&param_name);
169 bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	18722	symbol_c *L_type_symbol = NULL;
70 e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	18723
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	18724	/* Get the value from a foo(<param_value>) style call */
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	18725	if (L_param_value == NULL)
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	18726	L_param_value = function_call_param_iterator.next();
169 bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	18727	if (L_param_value != NULL) {
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	18728	L_type_symbol = search_expression_type->get_type(L_param_value);
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	18729	last_type_symbol = last_type_symbol && L_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 ;
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	18730	}
70 e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	18731
169 bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	18732	if(L_type_symbol == NULL \|\| search_expression_type->is_integer_type(L_type_symbol))
70 e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	18733	{
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	18734
149 05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	18735	function_name = (symbol_c*)(new pragma_c("__left"));
169 bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	18736
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	18737	if (IN_type_symbol == NULL)
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	18738	IN_type_symbol = last_type_symbol;
149 05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	18739	ADD_PARAM_LIST(IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in)
169 bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	18740
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	18741	if (L_type_symbol == NULL)
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	18742	L_type_symbol = last_type_symbol;
149 05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	18743	ADD_PARAM_LIST(L_param_value, L_type_symbol, function_param_iterator_c::direction_in)
70 e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	18744	symbol_c * return_type_symbol = &search_constant_type_c::string_type_name;
149 05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	18745	break;
70 e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	18746
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	18747	}
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	18748
149 05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	18749
70 e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	18750	ERROR;
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	18751	}
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	18752
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	18753	}
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	18754
149 05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	18755
70 e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	18756	ERROR;
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	18757	}
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	18758
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	18759	}/function_left/
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	18760	break;
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	18761
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	18762	/****
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	18763	*RIGHT
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	18764	*/
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	18765	case function_right :
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	18766	{
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	18767	symbol_c *last_type_symbol = NULL;
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	18768
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	18769	{
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	18770	identifier_c param_name("IN");
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	18771	/* Get the value from a foo(<param_name> = <param_value>) style call */
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	18772	symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
169 bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	18773	symbol_c *IN_type_symbol = NULL;
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	18774
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	18775	/* Get the value from a foo(<param_value>) style call */
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	18776	if (IN_param_value == NULL)
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	18777	IN_param_value = function_call_param_iterator.next();
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	18778	if (IN_param_value != NULL) {
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	18779	IN_type_symbol = search_expression_type->get_type(IN_param_value);
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	18780	last_type_symbol = last_type_symbol && IN_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	18781	}
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	18782
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	18783	if(IN_type_symbol == NULL \|\| search_expression_type->is_same_type(&search_constant_type_c::string_type_name, last_type_symbol))
70 e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	18784	{
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	18785
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	18786	{
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	18787	identifier_c param_name("L");
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	18788	/* Get the value from a foo(<param_name> = <param_value>) style call */
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	18789	symbol_c *L_param_value = function_call_param_iterator.search(&param_name);
169 bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	18790	symbol_c *L_type_symbol = NULL;
70 e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	18791
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	18792	/* Get the value from a foo(<param_value>) style call */
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	18793	if (L_param_value == NULL)
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	18794	L_param_value = function_call_param_iterator.next();
169 bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	18795	if (L_param_value != NULL) {
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	18796	L_type_symbol = search_expression_type->get_type(L_param_value);
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	18797	last_type_symbol = last_type_symbol && L_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 ;
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	18798	}
70 e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	18799
169 bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	18800	if(L_type_symbol == NULL \|\| search_expression_type->is_integer_type(L_type_symbol))
70 e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	18801	{
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	18802
149 05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	18803	function_name = (symbol_c*)(new pragma_c("__right"));
169 bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	18804
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	18805	if (IN_type_symbol == NULL)
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	18806	IN_type_symbol = last_type_symbol;
149 05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	18807	ADD_PARAM_LIST(IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in)
169 bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	18808
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	18809	if (L_type_symbol == NULL)
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	18810	L_type_symbol = last_type_symbol;
149 05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	18811	ADD_PARAM_LIST(L_param_value, L_type_symbol, function_param_iterator_c::direction_in)
70 e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	18812	symbol_c * return_type_symbol = &search_constant_type_c::string_type_name;
149 05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	18813	break;
70 e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	18814
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	18815	}
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	18816
149 05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	18817
70 e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	18818	ERROR;
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	18819	}
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	18820
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	18821	}
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	18822
149 05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	18823
70 e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	18824	ERROR;
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	18825	}
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	18826
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	18827	}/function_right/
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	18828	break;
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	18829
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	18830	/****
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	18831	*MID
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	18832	*/
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	18833	case function_mid :
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	18834	{
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	18835	symbol_c *last_type_symbol = NULL;
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	18836
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	18837	{
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	18838	identifier_c param_name("IN");
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	18839	/* Get the value from a foo(<param_name> = <param_value>) style call */
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	18840	symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
169 bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	18841	symbol_c *IN_type_symbol = NULL;
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	18842
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	18843	/* Get the value from a foo(<param_value>) style call */
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	18844	if (IN_param_value == NULL)
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	18845	IN_param_value = function_call_param_iterator.next();
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	18846	if (IN_param_value != NULL) {
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	18847	IN_type_symbol = search_expression_type->get_type(IN_param_value);
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	18848	last_type_symbol = last_type_symbol && IN_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	18849	}
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	18850
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	18851	if(IN_type_symbol == NULL \|\| search_expression_type->is_same_type(&search_constant_type_c::string_type_name, last_type_symbol))
70 e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	18852	{
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	18853
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	18854	{
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	18855	identifier_c param_name("L");
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	18856	/* Get the value from a foo(<param_name> = <param_value>) style call */
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	18857	symbol_c *L_param_value = function_call_param_iterator.search(&param_name);
169 bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	18858	symbol_c *L_type_symbol = NULL;
70 e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	18859
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	18860	/* Get the value from a foo(<param_value>) style call */
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	18861	if (L_param_value == NULL)
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	18862	L_param_value = function_call_param_iterator.next();
169 bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	18863	if (L_param_value != NULL) {
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	18864	L_type_symbol = search_expression_type->get_type(L_param_value);
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	18865	last_type_symbol = last_type_symbol && L_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 ;
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	18866	}
70 e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	18867
169 bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	18868	if(L_type_symbol == NULL \|\| search_expression_type->is_integer_type(L_type_symbol))
70 e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	18869	{
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	18870
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	18871	{
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	18872	identifier_c param_name("P");
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	18873	/* Get the value from a foo(<param_name> = <param_value>) style call */
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	18874	symbol_c *P_param_value = function_call_param_iterator.search(&param_name);
169 bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	18875	symbol_c *P_type_symbol = NULL;
70 e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	18876
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	18877	/* Get the value from a foo(<param_value>) style call */
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	18878	if (P_param_value == NULL)
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	18879	P_param_value = function_call_param_iterator.next();
169 bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	18880	if (P_param_value != NULL) {
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	18881	P_type_symbol = search_expression_type->get_type(P_param_value);
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	18882	last_type_symbol = last_type_symbol && P_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 ;
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	18883	}
70 e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	18884
169 bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	18885	if(P_type_symbol == NULL \|\| search_expression_type->is_integer_type(P_type_symbol))
70 e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	18886	{
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	18887
149 05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	18888	function_name = (symbol_c*)(new pragma_c("__mid"));
169 bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	18889
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	18890	if (IN_type_symbol == NULL)
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	18891	IN_type_symbol = last_type_symbol;
149 05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	18892	ADD_PARAM_LIST(IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in)
169 bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	18893
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	18894	if (L_type_symbol == NULL)
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	18895	L_type_symbol = last_type_symbol;
149 05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	18896	ADD_PARAM_LIST(L_param_value, L_type_symbol, function_param_iterator_c::direction_in)
169 bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	18897
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	18898	if (P_type_symbol == NULL)
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	18899	P_type_symbol = last_type_symbol;
149 05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	18900	ADD_PARAM_LIST(P_param_value, P_type_symbol, function_param_iterator_c::direction_in)
70 e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	18901	symbol_c * return_type_symbol = &search_constant_type_c::string_type_name;
149 05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	18902	break;
70 e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	18903
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	18904	}
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	18905
149 05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	18906
70 e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	18907	ERROR;
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	18908	}
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	18909
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	18910	}
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	18911
149 05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	18912
70 e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	18913	ERROR;
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	18914	}
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	18915
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	18916	}
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	18917
149 05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	18918
70 e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	18919	ERROR;
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	18920	}
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	18921
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	18922	}/function_mid/
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	18923	break;
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	18924
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	18925	/****
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	18926	*CONCAT
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	18927	*/
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	18928	case function_concat :
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	18929	{
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	18930	symbol_c *last_type_symbol = NULL;
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	18931
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	18932	{
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	18933	identifier_c param_name("IN1");
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	18934	/* Get the value from a foo(<param_name> = <param_value>) style call */
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	18935	symbol_c *IN1_param_value = function_call_param_iterator.search(&param_name);
169 bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	18936	symbol_c *IN1_type_symbol = NULL;
70 e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	18937
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	18938	/* Get the value from a foo(<param_value>) style call */
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	18939	if (IN1_param_value == NULL)
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	18940	IN1_param_value = function_call_param_iterator.next();
169 bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	18941	if (IN1_param_value != NULL) {
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	18942	IN1_type_symbol = search_expression_type->get_type(IN1_param_value);
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	18943	last_type_symbol = last_type_symbol && IN1_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 ;
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	18944	}
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	18945
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	18946	if(IN1_type_symbol == NULL \|\| search_expression_type->is_same_type(&search_constant_type_c::date_type_name, last_type_symbol))
70 e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	18947	{
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	18948
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	18949	{
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	18950	identifier_c param_name("IN2");
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	18951	/* Get the value from a foo(<param_name> = <param_value>) style call */
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	18952	symbol_c *IN2_param_value = function_call_param_iterator.search(&param_name);
169 bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	18953	symbol_c *IN2_type_symbol = NULL;
70 e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	18954
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	18955	/* Get the value from a foo(<param_value>) style call */
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	18956	if (IN2_param_value == NULL)
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	18957	IN2_param_value = function_call_param_iterator.next();
169 bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	18958	if (IN2_param_value != NULL) {
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	18959	IN2_type_symbol = search_expression_type->get_type(IN2_param_value);
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	18960	last_type_symbol = last_type_symbol && IN2_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 ;
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	18961	}
70 e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	18962
169 bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	18963	if(IN2_type_symbol == NULL \|\| search_expression_type->is_same_type(&search_constant_type_c::tod_type_name, last_type_symbol))
70 e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	18964	{
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	18965
149 05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	18966	function_name = (symbol_c*)(new pragma_c("__time_add"));
169 bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	18967
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	18968	if (IN1_type_symbol == NULL)
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	18969	IN1_type_symbol = last_type_symbol;
149 05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	18970	ADD_PARAM_LIST(IN1_param_value, IN1_type_symbol, function_param_iterator_c::direction_in)
169 bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	18971
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	18972	if (IN2_type_symbol == NULL)
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	18973	IN2_type_symbol = last_type_symbol;
149 05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	18974	ADD_PARAM_LIST(IN2_param_value, IN2_type_symbol, function_param_iterator_c::direction_in)
70 e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	18975	symbol_c * return_type_symbol = &search_constant_type_c::dt_type_name;
149 05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	18976	break;
70 e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	18977
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	18978	}
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	18979
149 05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	18980
70 e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	18981	ERROR;
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	18982	}
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	18983
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	18984	}
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	18985
169 bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	18986	if(IN1_type_symbol == NULL \|\| search_expression_type->is_same_type(&search_constant_type_c::string_type_name, last_type_symbol))
70 e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	18987	{
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	18988
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	18989	{
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	18990	identifier_c param_name("IN2");
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	18991	/* Get the value from a foo(<param_name> = <param_value>) style call */
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	18992	symbol_c *IN2_param_value = function_call_param_iterator.search(&param_name);
169 bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	18993	symbol_c *IN2_type_symbol = NULL;
70 e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	18994
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	18995	/* Get the value from a foo(<param_value>) style call */
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	18996	if (IN2_param_value == NULL)
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	18997	IN2_param_value = function_call_param_iterator.next();
169 bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	18998	if (IN2_param_value != NULL) {
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	18999	IN2_type_symbol = search_expression_type->get_type(IN2_param_value);
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	19000	last_type_symbol = last_type_symbol && IN2_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 ;
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	19001	}
70 e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	19002
169 bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	19003	if(IN2_type_symbol == NULL \|\| search_expression_type->is_same_type(&search_constant_type_c::string_type_name, last_type_symbol))
70 e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	19004	{
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	19005
149 05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	19006	function_name = (symbol_c*)(new pragma_c("__concat"));
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	19007
169 bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	19008	if (nb_param < 2)
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	19009	nb_param = 2;
154 9114afe1f64b Bug with standard functions nb_params count on Windows fixed lbessard parents: 153 diff changeset	19010	char* nb_param_str = new char[10];
149 05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	19011	sprintf(nb_param_str, "%d", nb_param);
154 9114afe1f64b Bug with standard functions nb_params count on Windows fixed lbessard parents: 153 diff changeset	19012	ADD_PARAM_LIST((symbol_c)(new integer_c((const char )nb_param_str)), (symbol_c*)(new int_type_name_c()), function_param_iterator_c::direction_in)
169 bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	19013
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	19014	if (IN1_type_symbol == NULL)
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	19015	IN1_type_symbol = last_type_symbol;
149 05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	19016	ADD_PARAM_LIST(IN1_param_value, IN1_type_symbol, function_param_iterator_c::direction_in)
169 bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	19017
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	19018	if (IN2_type_symbol == NULL)
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	19019	IN2_type_symbol = last_type_symbol;
149 05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	19020	ADD_PARAM_LIST(IN2_param_value, IN2_type_symbol, function_param_iterator_c::direction_in)
70 e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	19021
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	19022	int base_num = 3;
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	19023	symbol_c *param_value = NULL;
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	19024	do{
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	19025	char my_name[10];
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	19026	sprintf(my_name, "IN%d", base_num++);
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	19027	identifier_c param_name(my_name);
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	19028
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	19029	/* Get the value from a foo(<param_name> = <param_value>) style call */
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	19030	param_value = function_call_param_iterator.search(&param_name);
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	19031
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	19032	/* Get the value from a foo(<param_value>) style call */
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	19033	if (param_value == NULL)
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	19034	param_value = function_call_param_iterator.next();
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	19035	if (param_value != NULL){
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	19036	symbol_c *current_type_symbol = search_expression_type->get_type(param_value);
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	19037	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 ;
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	19038
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	19039	/Function specific CODE /
149 05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	19040	ADD_PARAM_LIST(param_value, current_type_symbol, function_param_iterator_c::direction_in)
70 e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	19041	}
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	19042
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	19043	}while(param_value != NULL);
149 05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	19044	symbol_c * return_type_symbol = &search_constant_type_c::string_type_name;
05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	19045	break;
70 e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	19046
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	19047	}
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	19048
149 05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	19049
70 e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	19050	ERROR;
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	19051	}
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	19052
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	19053	}
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	19054
149 05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	19055
70 e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	19056	ERROR;
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	19057	}
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	19058
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	19059	}/function_concat/
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	19060	break;
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	19061
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	19062	/****
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	19063	*INSERT
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	19064	*/
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	19065	case function_insert :
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	19066	{
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	19067	symbol_c *last_type_symbol = NULL;
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	19068
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	19069	{
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	19070	identifier_c param_name("IN1");
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	19071	/* Get the value from a foo(<param_name> = <param_value>) style call */
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	19072	symbol_c *IN1_param_value = function_call_param_iterator.search(&param_name);
169 bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	19073	symbol_c *IN1_type_symbol = NULL;
70 e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	19074
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	19075	/* Get the value from a foo(<param_value>) style call */
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	19076	if (IN1_param_value == NULL)
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	19077	IN1_param_value = function_call_param_iterator.next();
169 bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	19078	if (IN1_param_value != NULL) {
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	19079	IN1_type_symbol = search_expression_type->get_type(IN1_param_value);
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	19080	last_type_symbol = last_type_symbol && IN1_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 ;
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	19081	}
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	19082
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	19083	if(IN1_type_symbol == NULL \|\| search_expression_type->is_same_type(&search_constant_type_c::string_type_name, last_type_symbol))
70 e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	19084	{
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	19085
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	19086	{
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	19087	identifier_c param_name("IN2");
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	19088	/* Get the value from a foo(<param_name> = <param_value>) style call */
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	19089	symbol_c *IN2_param_value = function_call_param_iterator.search(&param_name);
169 bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	19090	symbol_c *IN2_type_symbol = NULL;
70 e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	19091
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	19092	/* Get the value from a foo(<param_value>) style call */
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	19093	if (IN2_param_value == NULL)
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	19094	IN2_param_value = function_call_param_iterator.next();
169 bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	19095	if (IN2_param_value != NULL) {
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	19096	IN2_type_symbol = search_expression_type->get_type(IN2_param_value);
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	19097	last_type_symbol = last_type_symbol && IN2_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 ;
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	19098	}
70 e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	19099
169 bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	19100	if(IN2_type_symbol == NULL \|\| search_expression_type->is_same_type(&search_constant_type_c::string_type_name, last_type_symbol))
70 e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	19101	{
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	19102
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	19103	{
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	19104	identifier_c param_name("P");
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	19105	/* Get the value from a foo(<param_name> = <param_value>) style call */
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	19106	symbol_c *P_param_value = function_call_param_iterator.search(&param_name);
169 bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	19107	symbol_c *P_type_symbol = NULL;
70 e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	19108
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	19109	/* Get the value from a foo(<param_value>) style call */
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	19110	if (P_param_value == NULL)
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	19111	P_param_value = function_call_param_iterator.next();
169 bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	19112	if (P_param_value != NULL) {
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	19113	P_type_symbol = search_expression_type->get_type(P_param_value);
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	19114	last_type_symbol = last_type_symbol && P_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 ;
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	19115	}
70 e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	19116
169 bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	19117	if(P_type_symbol == NULL \|\| search_expression_type->is_integer_type(P_type_symbol))
70 e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	19118	{
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	19119
149 05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	19120	function_name = (symbol_c*)(new pragma_c("__insert"));
169 bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	19121
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	19122	if (IN1_type_symbol == NULL)
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	19123	IN1_type_symbol = last_type_symbol;
149 05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	19124	ADD_PARAM_LIST(IN1_param_value, IN1_type_symbol, function_param_iterator_c::direction_in)
169 bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	19125
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	19126	if (IN2_type_symbol == NULL)
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	19127	IN2_type_symbol = last_type_symbol;
149 05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	19128	ADD_PARAM_LIST(IN2_param_value, IN2_type_symbol, function_param_iterator_c::direction_in)
169 bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	19129
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	19130	if (P_type_symbol == NULL)
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	19131	P_type_symbol = last_type_symbol;
149 05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	19132	ADD_PARAM_LIST(P_param_value, P_type_symbol, function_param_iterator_c::direction_in)
70 e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	19133	symbol_c * return_type_symbol = &search_constant_type_c::string_type_name;
149 05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	19134	break;
70 e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	19135
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	19136	}
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	19137
149 05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	19138
70 e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	19139	ERROR;
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	19140	}
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	19141
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	19142	}
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	19143
149 05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	19144
70 e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	19145	ERROR;
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	19146	}
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	19147
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	19148	}
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	19149
149 05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	19150
70 e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	19151	ERROR;
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	19152	}
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	19153
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	19154	}/function_insert/
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	19155	break;
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	19156
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	19157	/****
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	19158	*DELETE
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	19159	*/
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	19160	case function_delete :
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	19161	{
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	19162	symbol_c *last_type_symbol = NULL;
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	19163
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	19164	{
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	19165	identifier_c param_name("IN");
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	19166	/* Get the value from a foo(<param_name> = <param_value>) style call */
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	19167	symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
169 bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	19168	symbol_c *IN_type_symbol = NULL;
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	19169
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	19170	/* Get the value from a foo(<param_value>) style call */
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	19171	if (IN_param_value == NULL)
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	19172	IN_param_value = function_call_param_iterator.next();
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	19173	if (IN_param_value != NULL) {
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	19174	IN_type_symbol = search_expression_type->get_type(IN_param_value);
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	19175	last_type_symbol = last_type_symbol && IN_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	19176	}
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	19177
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	19178	if(IN_type_symbol == NULL \|\| search_expression_type->is_same_type(&search_constant_type_c::string_type_name, last_type_symbol))
70 e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	19179	{
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	19180
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	19181	{
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	19182	identifier_c param_name("L");
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	19183	/* Get the value from a foo(<param_name> = <param_value>) style call */
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	19184	symbol_c *L_param_value = function_call_param_iterator.search(&param_name);
169 bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	19185	symbol_c *L_type_symbol = NULL;
70 e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	19186
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	19187	/* Get the value from a foo(<param_value>) style call */
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	19188	if (L_param_value == NULL)
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	19189	L_param_value = function_call_param_iterator.next();
169 bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	19190	if (L_param_value != NULL) {
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	19191	L_type_symbol = search_expression_type->get_type(L_param_value);
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	19192	last_type_symbol = last_type_symbol && L_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 ;
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	19193	}
70 e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	19194
169 bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	19195	if(L_type_symbol == NULL \|\| search_expression_type->is_integer_type(L_type_symbol))
70 e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	19196	{
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	19197
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	19198	{
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	19199	identifier_c param_name("P");
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	19200	/* Get the value from a foo(<param_name> = <param_value>) style call */
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	19201	symbol_c *P_param_value = function_call_param_iterator.search(&param_name);
169 bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	19202	symbol_c *P_type_symbol = NULL;
70 e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	19203
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	19204	/* Get the value from a foo(<param_value>) style call */
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	19205	if (P_param_value == NULL)
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	19206	P_param_value = function_call_param_iterator.next();
169 bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	19207	if (P_param_value != NULL) {
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	19208	P_type_symbol = search_expression_type->get_type(P_param_value);
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	19209	last_type_symbol = last_type_symbol && P_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 ;
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	19210	}
70 e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	19211
169 bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	19212	if(P_type_symbol == NULL \|\| search_expression_type->is_integer_type(P_type_symbol))
70 e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	19213	{
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	19214
149 05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	19215	function_name = (symbol_c*)(new pragma_c("__delete"));
169 bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	19216
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	19217	if (IN_type_symbol == NULL)
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	19218	IN_type_symbol = last_type_symbol;
149 05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	19219	ADD_PARAM_LIST(IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in)
169 bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	19220
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	19221	if (L_type_symbol == NULL)
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	19222	L_type_symbol = last_type_symbol;
149 05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	19223	ADD_PARAM_LIST(L_param_value, L_type_symbol, function_param_iterator_c::direction_in)
169 bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	19224
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	19225	if (P_type_symbol == NULL)
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	19226	P_type_symbol = last_type_symbol;
149 05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	19227	ADD_PARAM_LIST(P_param_value, P_type_symbol, function_param_iterator_c::direction_in)
70 e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	19228	symbol_c * return_type_symbol = &search_constant_type_c::string_type_name;
149 05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	19229	break;
70 e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	19230
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	19231	}
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	19232
149 05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	19233
70 e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	19234	ERROR;
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	19235	}
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	19236
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	19237	}
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	19238
149 05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	19239
70 e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	19240	ERROR;
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	19241	}
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	19242
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	19243	}
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	19244
149 05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	19245
70 e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	19246	ERROR;
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	19247	}
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	19248
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	19249	}/function_delete/
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	19250	break;
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	19251
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	19252	/****
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	19253	*REPLACE
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	19254	*/
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	19255	case function_replace :
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	19256	{
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	19257	symbol_c *last_type_symbol = NULL;
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	19258
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	19259	{
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	19260	identifier_c param_name("IN1");
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	19261	/* Get the value from a foo(<param_name> = <param_value>) style call */
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	19262	symbol_c *IN1_param_value = function_call_param_iterator.search(&param_name);
169 bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	19263	symbol_c *IN1_type_symbol = NULL;
70 e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	19264
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	19265	/* Get the value from a foo(<param_value>) style call */
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	19266	if (IN1_param_value == NULL)
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	19267	IN1_param_value = function_call_param_iterator.next();
169 bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	19268	if (IN1_param_value != NULL) {
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	19269	IN1_type_symbol = search_expression_type->get_type(IN1_param_value);
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	19270	last_type_symbol = last_type_symbol && IN1_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 ;
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	19271	}
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	19272
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	19273	if(IN1_type_symbol == NULL \|\| search_expression_type->is_same_type(&search_constant_type_c::string_type_name, last_type_symbol))
70 e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	19274	{
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	19275
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	19276	{
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	19277	identifier_c param_name("IN2");
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	19278	/* Get the value from a foo(<param_name> = <param_value>) style call */
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	19279	symbol_c *IN2_param_value = function_call_param_iterator.search(&param_name);
169 bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	19280	symbol_c *IN2_type_symbol = NULL;
70 e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	19281
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	19282	/* Get the value from a foo(<param_value>) style call */
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	19283	if (IN2_param_value == NULL)
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	19284	IN2_param_value = function_call_param_iterator.next();
169 bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	19285	if (IN2_param_value != NULL) {
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	19286	IN2_type_symbol = search_expression_type->get_type(IN2_param_value);
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	19287	last_type_symbol = last_type_symbol && IN2_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 ;
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	19288	}
70 e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	19289
169 bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	19290	if(IN2_type_symbol == NULL \|\| search_expression_type->is_same_type(&search_constant_type_c::string_type_name, last_type_symbol))
70 e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	19291	{
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	19292
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	19293	{
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	19294	identifier_c param_name("L");
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	19295	/* Get the value from a foo(<param_name> = <param_value>) style call */
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	19296	symbol_c *L_param_value = function_call_param_iterator.search(&param_name);
169 bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	19297	symbol_c *L_type_symbol = NULL;
70 e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	19298
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	19299	/* Get the value from a foo(<param_value>) style call */
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	19300	if (L_param_value == NULL)
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	19301	L_param_value = function_call_param_iterator.next();
169 bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	19302	if (L_param_value != NULL) {
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	19303	L_type_symbol = search_expression_type->get_type(L_param_value);
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	19304	last_type_symbol = last_type_symbol && L_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 ;
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	19305	}
70 e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	19306
169 bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	19307	if(L_type_symbol == NULL \|\| search_expression_type->is_integer_type(L_type_symbol))
70 e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	19308	{
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	19309
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	19310	{
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	19311	identifier_c param_name("P");
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	19312	/* Get the value from a foo(<param_name> = <param_value>) style call */
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	19313	symbol_c *P_param_value = function_call_param_iterator.search(&param_name);
169 bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	19314	symbol_c *P_type_symbol = NULL;
70 e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	19315
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	19316	/* Get the value from a foo(<param_value>) style call */
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	19317	if (P_param_value == NULL)
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	19318	P_param_value = function_call_param_iterator.next();
169 bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	19319	if (P_param_value != NULL) {
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	19320	P_type_symbol = search_expression_type->get_type(P_param_value);
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	19321	last_type_symbol = last_type_symbol && P_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 ;
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	19322	}
70 e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	19323
169 bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	19324	if(P_type_symbol == NULL \|\| search_expression_type->is_integer_type(P_type_symbol))
70 e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	19325	{
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	19326
149 05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	19327	function_name = (symbol_c*)(new pragma_c("__replace"));
169 bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	19328
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	19329	if (IN1_type_symbol == NULL)
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	19330	IN1_type_symbol = last_type_symbol;
149 05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	19331	ADD_PARAM_LIST(IN1_param_value, IN1_type_symbol, function_param_iterator_c::direction_in)
169 bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	19332
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	19333	if (IN2_type_symbol == NULL)
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	19334	IN2_type_symbol = last_type_symbol;
149 05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	19335	ADD_PARAM_LIST(IN2_param_value, IN2_type_symbol, function_param_iterator_c::direction_in)
169 bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	19336
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	19337	if (L_type_symbol == NULL)
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	19338	L_type_symbol = last_type_symbol;
149 05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	19339	ADD_PARAM_LIST(L_param_value, L_type_symbol, function_param_iterator_c::direction_in)
169 bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	19340
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	19341	if (P_type_symbol == NULL)
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	19342	P_type_symbol = last_type_symbol;
149 05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	19343	ADD_PARAM_LIST(P_param_value, P_type_symbol, function_param_iterator_c::direction_in)
70 e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	19344	symbol_c * return_type_symbol = &search_constant_type_c::string_type_name;
149 05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	19345	break;
70 e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	19346
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	19347	}
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	19348
149 05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	19349
70 e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	19350	ERROR;
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	19351	}
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	19352
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	19353	}
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	19354
149 05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	19355
70 e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	19356	ERROR;
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	19357	}
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	19358
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	19359	}
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	19360
149 05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	19361
70 e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	19362	ERROR;
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	19363	}
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	19364
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	19365	}
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	19366
149 05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	19367
70 e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	19368	ERROR;
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	19369	}
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	19370
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	19371	}/function_replace/
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	19372	break;
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	19373
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	19374	/****
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	19375	*FIND
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	19376	*/
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	19377	case function_find :
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	19378	{
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	19379	symbol_c *last_type_symbol = NULL;
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	19380
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	19381	{
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	19382	identifier_c param_name("IN1");
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	19383	/* Get the value from a foo(<param_name> = <param_value>) style call */
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	19384	symbol_c *IN1_param_value = function_call_param_iterator.search(&param_name);
169 bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	19385	symbol_c *IN1_type_symbol = NULL;
70 e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	19386
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	19387	/* Get the value from a foo(<param_value>) style call */
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	19388	if (IN1_param_value == NULL)
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	19389	IN1_param_value = function_call_param_iterator.next();
169 bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	19390	if (IN1_param_value != NULL) {
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	19391	IN1_type_symbol = search_expression_type->get_type(IN1_param_value);
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	19392	last_type_symbol = last_type_symbol && IN1_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 ;
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	19393	}
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	19394
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	19395	if(IN1_type_symbol == NULL \|\| search_expression_type->is_same_type(&search_constant_type_c::string_type_name, last_type_symbol))
70 e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	19396	{
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	19397
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	19398	{
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	19399	identifier_c param_name("IN2");
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	19400	/* Get the value from a foo(<param_name> = <param_value>) style call */
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	19401	symbol_c *IN2_param_value = function_call_param_iterator.search(&param_name);
169 bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	19402	symbol_c *IN2_type_symbol = NULL;
70 e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	19403
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	19404	/* Get the value from a foo(<param_value>) style call */
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	19405	if (IN2_param_value == NULL)
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	19406	IN2_param_value = function_call_param_iterator.next();
169 bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	19407	if (IN2_param_value != NULL) {
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	19408	IN2_type_symbol = search_expression_type->get_type(IN2_param_value);
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	19409	last_type_symbol = last_type_symbol && IN2_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 ;
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	19410	}
70 e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	19411
169 bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	19412	if(IN2_type_symbol == NULL \|\| search_expression_type->is_same_type(&search_constant_type_c::string_type_name, last_type_symbol))
70 e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	19413	{
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	19414
149 05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	19415	function_name = (symbol_c*)(new pragma_c("__find"));
169 bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	19416
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	19417	if (IN1_type_symbol == NULL)
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	19418	IN1_type_symbol = last_type_symbol;
149 05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	19419	ADD_PARAM_LIST(IN1_param_value, IN1_type_symbol, function_param_iterator_c::direction_in)
169 bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	19420
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	19421	if (IN2_type_symbol == NULL)
bea932bc60b0 Bug when function with unconnected input fixed lbessard parents: 165 diff changeset	19422	IN2_type_symbol = last_type_symbol;
149 05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	19423	ADD_PARAM_LIST(IN2_param_value, IN2_type_symbol, function_param_iterator_c::direction_in)
70 e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	19424	symbol_c * return_type_symbol = &search_constant_type_c::int_type_name;
149 05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	19425	break;
70 e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	19426
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	19427	}
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	19428
149 05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	19429
70 e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	19430	ERROR;
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	19431	}
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	19432
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	19433	}
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	19434
149 05ca171a3d57 Adding support for EN/ENO in standard functions lbessard parents: 70 diff changeset	19435
70 e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	19436	ERROR;
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	19437	}
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	19438
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	19439	}/function_find/
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	19440	break;
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	19441
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	19442	case function_none :
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	19443	ERROR;
e1f0ebd2d9ec Change generate_cc to generate_c lbessard parents: diff changeset	19444	}

author	lbessard
	Mon, 19 Jan 2009 17:06:22 +0100
changeset 169	bea932bc60b0
parent 165	83963465b773
child 199	b075f28ec081
permissions	-rw-r--r--