--- a/stage4/generate_cc/st_code_gen.c	Tue Jun 19 08:42:10 2007 +0200
+++ b/stage4/generate_cc/st_code_gen.c	Thu Jun 21 10:22:32 2007 +0200
@@ -6,19958 +6,18758 @@
 switch(current_function_type){
 
 /****
- *REAL_TO_REAL
- */
-	case function_real_to_real :
-	{
-		symbol_c *last_type_symbol = NULL;
-
-		{
-			identifier_c param_name("IN");
-			/* Get the value from a foo(<param_name> = <param_value>) style call */
-			symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
-			
-			/* Get the value from a foo(<param_value>) style call */
-			if (IN_param_value == NULL)
-			  IN_param_value = function_call_param_iterator.next();
-			symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
-			last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
-			
-			if (typeid(*last_type_symbol) == typeid(real_type_name_c))
-			{
-		
-				symbol_c * return_type_symbol = &search_constant_type_c::real_type_name;
-				s4o.print("(");
-				return_type_symbol->accept(*this);
-				s4o.print(")");
-				IN_param_value->accept(*this);
-				return NULL;
-				
-			}
-			
-			ERROR;
-		}
-		
-	}/*function_real_to_real*/
-	break;
+ *REAL_TO_LREAL
+ */
+    case function_real_to_lreal :
+    {
+        symbol_c *last_type_symbol = NULL;
+
+        {
+            identifier_c param_name("IN");
+            /* Get the value from a foo(<param_name> = <param_value>) style call */
+            symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
+            
+            /* Get the value from a foo(<param_value>) style call */
+            if (IN_param_value == NULL)
+              IN_param_value = function_call_param_iterator.next();
+            symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
+            last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
+            
+            if (typeid(*last_type_symbol) == typeid(real_type_name_c))
+            {
+        
+                symbol_c * return_type_symbol = &search_constant_type_c::lreal_type_name;
+                s4o.print("(");
+                return_type_symbol->accept(*this);
+                s4o.print(")");
+                IN_param_value->accept(*this);
+                return NULL;
+                
+            }
+            
+            ERROR;
+        }
+        
+    }/*function_real_to_lreal*/
+    break;
 
 /****
  *REAL_TO_SINT
  */
-	case function_real_to_sint :
-	{
-		symbol_c *last_type_symbol = NULL;
-
-		{
-			identifier_c param_name("IN");
-			/* Get the value from a foo(<param_name> = <param_value>) style call */
-			symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
-			
-			/* Get the value from a foo(<param_value>) style call */
-			if (IN_param_value == NULL)
-			  IN_param_value = function_call_param_iterator.next();
-			symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
-			last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
-			
-			if (typeid(*last_type_symbol) == typeid(real_type_name_c))
-			{
-		
-				symbol_c * return_type_symbol = &search_constant_type_c::sint_type_name;
-				s4o.print("(");
-				return_type_symbol->accept(*this);
-				s4o.print(")");
-				IN_param_value->accept(*this);
-				return NULL;
-				
-			}
-			
-			ERROR;
-		}
-		
-	}/*function_real_to_sint*/
-	break;
+    case function_real_to_sint :
+    {
+        symbol_c *last_type_symbol = NULL;
+
+        {
+            identifier_c param_name("IN");
+            /* Get the value from a foo(<param_name> = <param_value>) style call */
+            symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
+            
+            /* Get the value from a foo(<param_value>) style call */
+            if (IN_param_value == NULL)
+              IN_param_value = function_call_param_iterator.next();
+            symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
+            last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
+            
+            if (typeid(*last_type_symbol) == typeid(real_type_name_c))
+            {
+        
+                symbol_c * return_type_symbol = &search_constant_type_c::sint_type_name;
+                s4o.print("(");
+                return_type_symbol->accept(*this);
+                s4o.print(")");
+                IN_param_value->accept(*this);
+                return NULL;
+                
+            }
+            
+            ERROR;
+        }
+        
+    }/*function_real_to_sint*/
+    break;
+
+/****
+ *REAL_TO_INT
+ */
+    case function_real_to_int :
+    {
+        symbol_c *last_type_symbol = NULL;
+
+        {
+            identifier_c param_name("IN");
+            /* Get the value from a foo(<param_name> = <param_value>) style call */
+            symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
+            
+            /* Get the value from a foo(<param_value>) style call */
+            if (IN_param_value == NULL)
+              IN_param_value = function_call_param_iterator.next();
+            symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
+            last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
+            
+            if (typeid(*last_type_symbol) == typeid(real_type_name_c))
+            {
+        
+                symbol_c * return_type_symbol = &search_constant_type_c::int_type_name;
+                s4o.print("(");
+                return_type_symbol->accept(*this);
+                s4o.print(")");
+                IN_param_value->accept(*this);
+                return NULL;
+                
+            }
+            
+            ERROR;
+        }
+        
+    }/*function_real_to_int*/
+    break;
+
+/****
+ *REAL_TO_DINT
+ */
+    case function_real_to_dint :
+    {
+        symbol_c *last_type_symbol = NULL;
+
+        {
+            identifier_c param_name("IN");
+            /* Get the value from a foo(<param_name> = <param_value>) style call */
+            symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
+            
+            /* Get the value from a foo(<param_value>) style call */
+            if (IN_param_value == NULL)
+              IN_param_value = function_call_param_iterator.next();
+            symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
+            last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
+            
+            if (typeid(*last_type_symbol) == typeid(real_type_name_c))
+            {
+        
+                symbol_c * return_type_symbol = &search_constant_type_c::dint_type_name;
+                s4o.print("(");
+                return_type_symbol->accept(*this);
+                s4o.print(")");
+                IN_param_value->accept(*this);
+                return NULL;
+                
+            }
+            
+            ERROR;
+        }
+        
+    }/*function_real_to_dint*/
+    break;
 
 /****
  *REAL_TO_LINT
  */
-	case function_real_to_lint :
-	{
-		symbol_c *last_type_symbol = NULL;
-
-		{
-			identifier_c param_name("IN");
-			/* Get the value from a foo(<param_name> = <param_value>) style call */
-			symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
-			
-			/* Get the value from a foo(<param_value>) style call */
-			if (IN_param_value == NULL)
-			  IN_param_value = function_call_param_iterator.next();
-			symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
-			last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
-			
-			if (typeid(*last_type_symbol) == typeid(real_type_name_c))
-			{
-		
-				symbol_c * return_type_symbol = &search_constant_type_c::lint_type_name;
-				s4o.print("(");
-				return_type_symbol->accept(*this);
-				s4o.print(")");
-				IN_param_value->accept(*this);
-				return NULL;
-				
-			}
-			
-			ERROR;
-		}
-		
-	}/*function_real_to_lint*/
-	break;
-
-/****
- *REAL_TO_DINT
- */
-	case function_real_to_dint :
-	{
-		symbol_c *last_type_symbol = NULL;
-
-		{
-			identifier_c param_name("IN");
-			/* Get the value from a foo(<param_name> = <param_value>) style call */
-			symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
-			
-			/* Get the value from a foo(<param_value>) style call */
-			if (IN_param_value == NULL)
-			  IN_param_value = function_call_param_iterator.next();
-			symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
-			last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
-			
-			if (typeid(*last_type_symbol) == typeid(real_type_name_c))
-			{
-		
-				symbol_c * return_type_symbol = &search_constant_type_c::dint_type_name;
-				s4o.print("(");
-				return_type_symbol->accept(*this);
-				s4o.print(")");
-				IN_param_value->accept(*this);
-				return NULL;
-				
-			}
-			
-			ERROR;
-		}
-		
-	}/*function_real_to_dint*/
-	break;
+    case function_real_to_lint :
+    {
+        symbol_c *last_type_symbol = NULL;
+
+        {
+            identifier_c param_name("IN");
+            /* Get the value from a foo(<param_name> = <param_value>) style call */
+            symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
+            
+            /* Get the value from a foo(<param_value>) style call */
+            if (IN_param_value == NULL)
+              IN_param_value = function_call_param_iterator.next();
+            symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
+            last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
+            
+            if (typeid(*last_type_symbol) == typeid(real_type_name_c))
+            {
+        
+                symbol_c * return_type_symbol = &search_constant_type_c::lint_type_name;
+                s4o.print("(");
+                return_type_symbol->accept(*this);
+                s4o.print(")");
+                IN_param_value->accept(*this);
+                return NULL;
+                
+            }
+            
+            ERROR;
+        }
+        
+    }/*function_real_to_lint*/
+    break;
+
+/****
+ *REAL_TO_USINT
+ */
+    case function_real_to_usint :
+    {
+        symbol_c *last_type_symbol = NULL;
+
+        {
+            identifier_c param_name("IN");
+            /* Get the value from a foo(<param_name> = <param_value>) style call */
+            symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
+            
+            /* Get the value from a foo(<param_value>) style call */
+            if (IN_param_value == NULL)
+              IN_param_value = function_call_param_iterator.next();
+            symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
+            last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
+            
+            if (typeid(*last_type_symbol) == typeid(real_type_name_c))
+            {
+        
+                symbol_c * return_type_symbol = &search_constant_type_c::usint_type_name;
+                s4o.print("(");
+                return_type_symbol->accept(*this);
+                s4o.print(")");
+                IN_param_value->accept(*this);
+                return NULL;
+                
+            }
+            
+            ERROR;
+        }
+        
+    }/*function_real_to_usint*/
+    break;
+
+/****
+ *REAL_TO_UINT
+ */
+    case function_real_to_uint :
+    {
+        symbol_c *last_type_symbol = NULL;
+
+        {
+            identifier_c param_name("IN");
+            /* Get the value from a foo(<param_name> = <param_value>) style call */
+            symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
+            
+            /* Get the value from a foo(<param_value>) style call */
+            if (IN_param_value == NULL)
+              IN_param_value = function_call_param_iterator.next();
+            symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
+            last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
+            
+            if (typeid(*last_type_symbol) == typeid(real_type_name_c))
+            {
+        
+                symbol_c * return_type_symbol = &search_constant_type_c::uint_type_name;
+                s4o.print("(");
+                return_type_symbol->accept(*this);
+                s4o.print(")");
+                IN_param_value->accept(*this);
+                return NULL;
+                
+            }
+            
+            ERROR;
+        }
+        
+    }/*function_real_to_uint*/
+    break;
+
+/****
+ *REAL_TO_UDINT
+ */
+    case function_real_to_udint :
+    {
+        symbol_c *last_type_symbol = NULL;
+
+        {
+            identifier_c param_name("IN");
+            /* Get the value from a foo(<param_name> = <param_value>) style call */
+            symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
+            
+            /* Get the value from a foo(<param_value>) style call */
+            if (IN_param_value == NULL)
+              IN_param_value = function_call_param_iterator.next();
+            symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
+            last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
+            
+            if (typeid(*last_type_symbol) == typeid(real_type_name_c))
+            {
+        
+                symbol_c * return_type_symbol = &search_constant_type_c::udint_type_name;
+                s4o.print("(");
+                return_type_symbol->accept(*this);
+                s4o.print(")");
+                IN_param_value->accept(*this);
+                return NULL;
+                
+            }
+            
+            ERROR;
+        }
+        
+    }/*function_real_to_udint*/
+    break;
+
+/****
+ *REAL_TO_ULINT
+ */
+    case function_real_to_ulint :
+    {
+        symbol_c *last_type_symbol = NULL;
+
+        {
+            identifier_c param_name("IN");
+            /* Get the value from a foo(<param_name> = <param_value>) style call */
+            symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
+            
+            /* Get the value from a foo(<param_value>) style call */
+            if (IN_param_value == NULL)
+              IN_param_value = function_call_param_iterator.next();
+            symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
+            last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
+            
+            if (typeid(*last_type_symbol) == typeid(real_type_name_c))
+            {
+        
+                symbol_c * return_type_symbol = &search_constant_type_c::ulint_type_name;
+                s4o.print("(");
+                return_type_symbol->accept(*this);
+                s4o.print(")");
+                IN_param_value->accept(*this);
+                return NULL;
+                
+            }
+            
+            ERROR;
+        }
+        
+    }/*function_real_to_ulint*/
+    break;
+
+/****
+ *REAL_TO_TIME
+ */
+    case function_real_to_time :
+    {
+        symbol_c *last_type_symbol = NULL;
+
+        {
+            identifier_c param_name("IN");
+            /* Get the value from a foo(<param_name> = <param_value>) style call */
+            symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
+            
+            /* Get the value from a foo(<param_value>) style call */
+            if (IN_param_value == NULL)
+              IN_param_value = function_call_param_iterator.next();
+            symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
+            last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
+            
+            if (typeid(*last_type_symbol) == typeid(real_type_name_c))
+            {
+        
+                symbol_c * return_type_symbol = &search_constant_type_c::time_type_name;
+                s4o.print("(");
+                return_type_symbol->accept(*this);
+                s4o.print(")real_to_time(");
+                IN_param_value->accept(*this);
+                s4o.print(")");
+                return NULL;
+                
+            }
+            
+            ERROR;
+        }
+        
+    }/*function_real_to_time*/
+    break;
+
+/****
+ *REAL_TO_BOOL
+ */
+    case function_real_to_bool :
+    {
+        symbol_c *last_type_symbol = NULL;
+
+        {
+            identifier_c param_name("IN");
+            /* Get the value from a foo(<param_name> = <param_value>) style call */
+            symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
+            
+            /* Get the value from a foo(<param_value>) style call */
+            if (IN_param_value == NULL)
+              IN_param_value = function_call_param_iterator.next();
+            symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
+            last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
+            
+            if (typeid(*last_type_symbol) == typeid(real_type_name_c))
+            {
+        
+                symbol_c * return_type_symbol = &search_constant_type_c::bool_type_name;
+                s4o.print("(");
+                return_type_symbol->accept(*this);
+                s4o.print(")");
+                IN_param_value->accept(*this);
+                return NULL;
+                
+            }
+            
+            ERROR;
+        }
+        
+    }/*function_real_to_bool*/
+    break;
+
+/****
+ *REAL_TO_BYTE
+ */
+    case function_real_to_byte :
+    {
+        symbol_c *last_type_symbol = NULL;
+
+        {
+            identifier_c param_name("IN");
+            /* Get the value from a foo(<param_name> = <param_value>) style call */
+            symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
+            
+            /* Get the value from a foo(<param_value>) style call */
+            if (IN_param_value == NULL)
+              IN_param_value = function_call_param_iterator.next();
+            symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
+            last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
+            
+            if (typeid(*last_type_symbol) == typeid(real_type_name_c))
+            {
+        
+                symbol_c * return_type_symbol = &search_constant_type_c::byte_type_name;
+                s4o.print("(");
+                return_type_symbol->accept(*this);
+                s4o.print(")");
+                IN_param_value->accept(*this);
+                return NULL;
+                
+            }
+            
+            ERROR;
+        }
+        
+    }/*function_real_to_byte*/
+    break;
+
+/****
+ *REAL_TO_WORD
+ */
+    case function_real_to_word :
+    {
+        symbol_c *last_type_symbol = NULL;
+
+        {
+            identifier_c param_name("IN");
+            /* Get the value from a foo(<param_name> = <param_value>) style call */
+            symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
+            
+            /* Get the value from a foo(<param_value>) style call */
+            if (IN_param_value == NULL)
+              IN_param_value = function_call_param_iterator.next();
+            symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
+            last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
+            
+            if (typeid(*last_type_symbol) == typeid(real_type_name_c))
+            {
+        
+                symbol_c * return_type_symbol = &search_constant_type_c::word_type_name;
+                s4o.print("(");
+                return_type_symbol->accept(*this);
+                s4o.print(")");
+                IN_param_value->accept(*this);
+                return NULL;
+                
+            }
+            
+            ERROR;
+        }
+        
+    }/*function_real_to_word*/
+    break;
+
+/****
+ *REAL_TO_DWORD
+ */
+    case function_real_to_dword :
+    {
+        symbol_c *last_type_symbol = NULL;
+
+        {
+            identifier_c param_name("IN");
+            /* Get the value from a foo(<param_name> = <param_value>) style call */
+            symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
+            
+            /* Get the value from a foo(<param_value>) style call */
+            if (IN_param_value == NULL)
+              IN_param_value = function_call_param_iterator.next();
+            symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
+            last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
+            
+            if (typeid(*last_type_symbol) == typeid(real_type_name_c))
+            {
+        
+                symbol_c * return_type_symbol = &search_constant_type_c::dword_type_name;
+                s4o.print("(");
+                return_type_symbol->accept(*this);
+                s4o.print(")");
+                IN_param_value->accept(*this);
+                return NULL;
+                
+            }
+            
+            ERROR;
+        }
+        
+    }/*function_real_to_dword*/
+    break;
+
+/****
+ *REAL_TO_LWORD
+ */
+    case function_real_to_lword :
+    {
+        symbol_c *last_type_symbol = NULL;
+
+        {
+            identifier_c param_name("IN");
+            /* Get the value from a foo(<param_name> = <param_value>) style call */
+            symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
+            
+            /* Get the value from a foo(<param_value>) style call */
+            if (IN_param_value == NULL)
+              IN_param_value = function_call_param_iterator.next();
+            symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
+            last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
+            
+            if (typeid(*last_type_symbol) == typeid(real_type_name_c))
+            {
+        
+                symbol_c * return_type_symbol = &search_constant_type_c::lword_type_name;
+                s4o.print("(");
+                return_type_symbol->accept(*this);
+                s4o.print(")");
+                IN_param_value->accept(*this);
+                return NULL;
+                
+            }
+            
+            ERROR;
+        }
+        
+    }/*function_real_to_lword*/
+    break;
+
+/****
+ *REAL_TO_STRING
+ */
+    case function_real_to_string :
+    {
+        symbol_c *last_type_symbol = NULL;
+
+        {
+            identifier_c param_name("IN");
+            /* Get the value from a foo(<param_name> = <param_value>) style call */
+            symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
+            
+            /* Get the value from a foo(<param_value>) style call */
+            if (IN_param_value == NULL)
+              IN_param_value = function_call_param_iterator.next();
+            symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
+            last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
+            
+            if (typeid(*last_type_symbol) == typeid(real_type_name_c))
+            {
+        
+                symbol_c * return_type_symbol = &search_constant_type_c::string_type_name;
+                s4o.print("(");
+                return_type_symbol->accept(*this);
+                s4o.print(")int_to_string(");
+                IN_param_value->accept(*this);
+                s4o.print(", 10)");
+                return NULL;
+                
+            }
+            
+            ERROR;
+        }
+        
+    }/*function_real_to_string*/
+    break;
+
+/****
+ *REAL_TO_WSTRING
+ */
+    case function_real_to_wstring :
+    {
+        symbol_c *last_type_symbol = NULL;
+
+        {
+            identifier_c param_name("IN");
+            /* Get the value from a foo(<param_name> = <param_value>) style call */
+            symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
+            
+            /* Get the value from a foo(<param_value>) style call */
+            if (IN_param_value == NULL)
+              IN_param_value = function_call_param_iterator.next();
+            symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
+            last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
+            
+            if (typeid(*last_type_symbol) == typeid(real_type_name_c))
+            {
+        
+                symbol_c * return_type_symbol = &search_constant_type_c::wstring_type_name;
+                s4o.print("(");
+                return_type_symbol->accept(*this);
+                s4o.print(")int_to_string(");
+                IN_param_value->accept(*this);
+                s4o.print(", 10)");
+                return NULL;
+                
+            }
+            
+            ERROR;
+        }
+        
+    }/*function_real_to_wstring*/
+    break;
 
 /****
  *REAL_TO_DATE
  */
-	case function_real_to_date :
-	{
-		symbol_c *last_type_symbol = NULL;
-
-		{
-			identifier_c param_name("IN");
-			/* Get the value from a foo(<param_name> = <param_value>) style call */
-			symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
-			
-			/* Get the value from a foo(<param_value>) style call */
-			if (IN_param_value == NULL)
-			  IN_param_value = function_call_param_iterator.next();
-			symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
-			last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
-			
-			if (typeid(*last_type_symbol) == typeid(real_type_name_c))
-			{
-		
-				symbol_c * return_type_symbol = &search_constant_type_c::date_type_name;
-				s4o.print("(");
-				return_type_symbol->accept(*this);
-				s4o.print(")time_to_real(");
-				IN_param_value->accept(*this);
-				s4o.print(")");
-				return NULL;
-				
-			}
-			
-			ERROR;
-		}
-		
-	}/*function_real_to_date*/
-	break;
-
-/****
- *REAL_TO_DWORD
- */
-	case function_real_to_dword :
-	{
-		symbol_c *last_type_symbol = NULL;
-
-		{
-			identifier_c param_name("IN");
-			/* Get the value from a foo(<param_name> = <param_value>) style call */
-			symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
-			
-			/* Get the value from a foo(<param_value>) style call */
-			if (IN_param_value == NULL)
-			  IN_param_value = function_call_param_iterator.next();
-			symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
-			last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
-			
-			if (typeid(*last_type_symbol) == typeid(real_type_name_c))
-			{
-		
-				symbol_c * return_type_symbol = &search_constant_type_c::dword_type_name;
-				s4o.print("(");
-				return_type_symbol->accept(*this);
-				s4o.print(")");
-				IN_param_value->accept(*this);
-				return NULL;
-				
-			}
-			
-			ERROR;
-		}
-		
-	}/*function_real_to_dword*/
-	break;
+    case function_real_to_date :
+    {
+        symbol_c *last_type_symbol = NULL;
+
+        {
+            identifier_c param_name("IN");
+            /* Get the value from a foo(<param_name> = <param_value>) style call */
+            symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
+            
+            /* Get the value from a foo(<param_value>) style call */
+            if (IN_param_value == NULL)
+              IN_param_value = function_call_param_iterator.next();
+            symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
+            last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
+            
+            if (typeid(*last_type_symbol) == typeid(real_type_name_c))
+            {
+        
+                symbol_c * return_type_symbol = &search_constant_type_c::date_type_name;
+                s4o.print("(");
+                return_type_symbol->accept(*this);
+                s4o.print(")real_to_time(");
+                IN_param_value->accept(*this);
+                s4o.print(")");
+                return NULL;
+                
+            }
+            
+            ERROR;
+        }
+        
+    }/*function_real_to_date*/
+    break;
+
+/****
+ *REAL_TO_TOD
+ */
+    case function_real_to_tod :
+    {
+        symbol_c *last_type_symbol = NULL;
+
+        {
+            identifier_c param_name("IN");
+            /* Get the value from a foo(<param_name> = <param_value>) style call */
+            symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
+            
+            /* Get the value from a foo(<param_value>) style call */
+            if (IN_param_value == NULL)
+              IN_param_value = function_call_param_iterator.next();
+            symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
+            last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
+            
+            if (typeid(*last_type_symbol) == typeid(real_type_name_c))
+            {
+        
+                symbol_c * return_type_symbol = &search_constant_type_c::tod_type_name;
+                s4o.print("(");
+                return_type_symbol->accept(*this);
+                s4o.print(")real_to_time(");
+                IN_param_value->accept(*this);
+                s4o.print(")");
+                return NULL;
+                
+            }
+            
+            ERROR;
+        }
+        
+    }/*function_real_to_tod*/
+    break;
 
 /****
  *REAL_TO_DT
  */
-	case function_real_to_dt :
-	{
-		symbol_c *last_type_symbol = NULL;
-
-		{
-			identifier_c param_name("IN");
-			/* Get the value from a foo(<param_name> = <param_value>) style call */
-			symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
-			
-			/* Get the value from a foo(<param_value>) style call */
-			if (IN_param_value == NULL)
-			  IN_param_value = function_call_param_iterator.next();
-			symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
-			last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
-			
-			if (typeid(*last_type_symbol) == typeid(real_type_name_c))
-			{
-		
-				symbol_c * return_type_symbol = &search_constant_type_c::dt_type_name;
-				s4o.print("(");
-				return_type_symbol->accept(*this);
-				s4o.print(")time_to_real(");
-				IN_param_value->accept(*this);
-				s4o.print(")");
-				return NULL;
-				
-			}
-			
-			ERROR;
-		}
-		
-	}/*function_real_to_dt*/
-	break;
-
-/****
- *REAL_TO_TOD
- */
-	case function_real_to_tod :
-	{
-		symbol_c *last_type_symbol = NULL;
-
-		{
-			identifier_c param_name("IN");
-			/* Get the value from a foo(<param_name> = <param_value>) style call */
-			symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
-			
-			/* Get the value from a foo(<param_value>) style call */
-			if (IN_param_value == NULL)
-			  IN_param_value = function_call_param_iterator.next();
-			symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
-			last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
-			
-			if (typeid(*last_type_symbol) == typeid(real_type_name_c))
-			{
-		
-				symbol_c * return_type_symbol = &search_constant_type_c::tod_type_name;
-				s4o.print("(");
-				return_type_symbol->accept(*this);
-				s4o.print(")time_to_real(");
-				IN_param_value->accept(*this);
-				s4o.print(")");
-				return NULL;
-				
-			}
-			
-			ERROR;
-		}
-		
-	}/*function_real_to_tod*/
-	break;
-
-/****
- *REAL_TO_UDINT
- */
-	case function_real_to_udint :
-	{
-		symbol_c *last_type_symbol = NULL;
-
-		{
-			identifier_c param_name("IN");
-			/* Get the value from a foo(<param_name> = <param_value>) style call */
-			symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
-			
-			/* Get the value from a foo(<param_value>) style call */
-			if (IN_param_value == NULL)
-			  IN_param_value = function_call_param_iterator.next();
-			symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
-			last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
-			
-			if (typeid(*last_type_symbol) == typeid(real_type_name_c))
-			{
-		
-				symbol_c * return_type_symbol = &search_constant_type_c::udint_type_name;
-				s4o.print("(");
-				return_type_symbol->accept(*this);
-				s4o.print(")");
-				IN_param_value->accept(*this);
-				return NULL;
-				
-			}
-			
-			ERROR;
-		}
-		
-	}/*function_real_to_udint*/
-	break;
-
-/****
- *REAL_TO_WORD
- */
-	case function_real_to_word :
-	{
-		symbol_c *last_type_symbol = NULL;
-
-		{
-			identifier_c param_name("IN");
-			/* Get the value from a foo(<param_name> = <param_value>) style call */
-			symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
-			
-			/* Get the value from a foo(<param_value>) style call */
-			if (IN_param_value == NULL)
-			  IN_param_value = function_call_param_iterator.next();
-			symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
-			last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
-			
-			if (typeid(*last_type_symbol) == typeid(real_type_name_c))
-			{
-		
-				symbol_c * return_type_symbol = &search_constant_type_c::word_type_name;
-				s4o.print("(");
-				return_type_symbol->accept(*this);
-				s4o.print(")");
-				IN_param_value->accept(*this);
-				return NULL;
-				
-			}
-			
-			ERROR;
-		}
-		
-	}/*function_real_to_word*/
-	break;
-
-/****
- *REAL_TO_WSTRING
- */
-	case function_real_to_wstring :
-	{
-		symbol_c *last_type_symbol = NULL;
-
-		{
-			identifier_c param_name("IN");
-			/* Get the value from a foo(<param_name> = <param_value>) style call */
-			symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
-			
-			/* Get the value from a foo(<param_value>) style call */
-			if (IN_param_value == NULL)
-			  IN_param_value = function_call_param_iterator.next();
-			symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
-			last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
-			
-			if (typeid(*last_type_symbol) == typeid(real_type_name_c))
-			{
-		
-				symbol_c * return_type_symbol = &search_constant_type_c::wstring_type_name;
-				s4o.print("(");
-				return_type_symbol->accept(*this);
-				s4o.print(")string_to_int(");
-				IN_param_value->accept(*this);
-				s4o.print(", 10)");
-				return NULL;
-				
-			}
-			
-			ERROR;
-		}
-		
-	}/*function_real_to_wstring*/
-	break;
-
-/****
- *REAL_TO_STRING
- */
-	case function_real_to_string :
-	{
-		symbol_c *last_type_symbol = NULL;
-
-		{
-			identifier_c param_name("IN");
-			/* Get the value from a foo(<param_name> = <param_value>) style call */
-			symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
-			
-			/* Get the value from a foo(<param_value>) style call */
-			if (IN_param_value == NULL)
-			  IN_param_value = function_call_param_iterator.next();
-			symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
-			last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
-			
-			if (typeid(*last_type_symbol) == typeid(real_type_name_c))
-			{
-		
-				symbol_c * return_type_symbol = &search_constant_type_c::string_type_name;
-				s4o.print("(");
-				return_type_symbol->accept(*this);
-				s4o.print(")string_to_int(");
-				IN_param_value->accept(*this);
-				s4o.print(", 10)");
-				return NULL;
-				
-			}
-			
-			ERROR;
-		}
-		
-	}/*function_real_to_string*/
-	break;
-
-/****
- *REAL_TO_LWORD
- */
-	case function_real_to_lword :
-	{
-		symbol_c *last_type_symbol = NULL;
-
-		{
-			identifier_c param_name("IN");
-			/* Get the value from a foo(<param_name> = <param_value>) style call */
-			symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
-			
-			/* Get the value from a foo(<param_value>) style call */
-			if (IN_param_value == NULL)
-			  IN_param_value = function_call_param_iterator.next();
-			symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
-			last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
-			
-			if (typeid(*last_type_symbol) == typeid(real_type_name_c))
-			{
-		
-				symbol_c * return_type_symbol = &search_constant_type_c::lword_type_name;
-				s4o.print("(");
-				return_type_symbol->accept(*this);
-				s4o.print(")");
-				IN_param_value->accept(*this);
-				return NULL;
-				
-			}
-			
-			ERROR;
-		}
-		
-	}/*function_real_to_lword*/
-	break;
-
-/****
- *REAL_TO_UINT
- */
-	case function_real_to_uint :
-	{
-		symbol_c *last_type_symbol = NULL;
-
-		{
-			identifier_c param_name("IN");
-			/* Get the value from a foo(<param_name> = <param_value>) style call */
-			symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
-			
-			/* Get the value from a foo(<param_value>) style call */
-			if (IN_param_value == NULL)
-			  IN_param_value = function_call_param_iterator.next();
-			symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
-			last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
-			
-			if (typeid(*last_type_symbol) == typeid(real_type_name_c))
-			{
-		
-				symbol_c * return_type_symbol = &search_constant_type_c::uint_type_name;
-				s4o.print("(");
-				return_type_symbol->accept(*this);
-				s4o.print(")");
-				IN_param_value->accept(*this);
-				return NULL;
-				
-			}
-			
-			ERROR;
-		}
-		
-	}/*function_real_to_uint*/
-	break;
-
-/****
- *REAL_TO_LREAL
- */
-	case function_real_to_lreal :
-	{
-		symbol_c *last_type_symbol = NULL;
-
-		{
-			identifier_c param_name("IN");
-			/* Get the value from a foo(<param_name> = <param_value>) style call */
-			symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
-			
-			/* Get the value from a foo(<param_value>) style call */
-			if (IN_param_value == NULL)
-			  IN_param_value = function_call_param_iterator.next();
-			symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
-			last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
-			
-			if (typeid(*last_type_symbol) == typeid(real_type_name_c))
-			{
-		
-				symbol_c * return_type_symbol = &search_constant_type_c::lreal_type_name;
-				s4o.print("(");
-				return_type_symbol->accept(*this);
-				s4o.print(")");
-				IN_param_value->accept(*this);
-				return NULL;
-				
-			}
-			
-			ERROR;
-		}
-		
-	}/*function_real_to_lreal*/
-	break;
-
-/****
- *REAL_TO_BYTE
- */
-	case function_real_to_byte :
-	{
-		symbol_c *last_type_symbol = NULL;
-
-		{
-			identifier_c param_name("IN");
-			/* Get the value from a foo(<param_name> = <param_value>) style call */
-			symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
-			
-			/* Get the value from a foo(<param_value>) style call */
-			if (IN_param_value == NULL)
-			  IN_param_value = function_call_param_iterator.next();
-			symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
-			last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
-			
-			if (typeid(*last_type_symbol) == typeid(real_type_name_c))
-			{
-		
-				symbol_c * return_type_symbol = &search_constant_type_c::byte_type_name;
-				s4o.print("(");
-				return_type_symbol->accept(*this);
-				s4o.print(")");
-				IN_param_value->accept(*this);
-				return NULL;
-				
-			}
-			
-			ERROR;
-		}
-		
-	}/*function_real_to_byte*/
-	break;
-
-/****
- *REAL_TO_USINT
- */
-	case function_real_to_usint :
-	{
-		symbol_c *last_type_symbol = NULL;
-
-		{
-			identifier_c param_name("IN");
-			/* Get the value from a foo(<param_name> = <param_value>) style call */
-			symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
-			
-			/* Get the value from a foo(<param_value>) style call */
-			if (IN_param_value == NULL)
-			  IN_param_value = function_call_param_iterator.next();
-			symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
-			last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
-			
-			if (typeid(*last_type_symbol) == typeid(real_type_name_c))
-			{
-		
-				symbol_c * return_type_symbol = &search_constant_type_c::usint_type_name;
-				s4o.print("(");
-				return_type_symbol->accept(*this);
-				s4o.print(")");
-				IN_param_value->accept(*this);
-				return NULL;
-				
-			}
-			
-			ERROR;
-		}
-		
-	}/*function_real_to_usint*/
-	break;
-
-/****
- *REAL_TO_ULINT
- */
-	case function_real_to_ulint :
-	{
-		symbol_c *last_type_symbol = NULL;
-
-		{
-			identifier_c param_name("IN");
-			/* Get the value from a foo(<param_name> = <param_value>) style call */
-			symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
-			
-			/* Get the value from a foo(<param_value>) style call */
-			if (IN_param_value == NULL)
-			  IN_param_value = function_call_param_iterator.next();
-			symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
-			last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
-			
-			if (typeid(*last_type_symbol) == typeid(real_type_name_c))
-			{
-		
-				symbol_c * return_type_symbol = &search_constant_type_c::ulint_type_name;
-				s4o.print("(");
-				return_type_symbol->accept(*this);
-				s4o.print(")");
-				IN_param_value->accept(*this);
-				return NULL;
-				
-			}
-			
-			ERROR;
-		}
-		
-	}/*function_real_to_ulint*/
-	break;
-
-/****
- *REAL_TO_BOOL
- */
-	case function_real_to_bool :
-	{
-		symbol_c *last_type_symbol = NULL;
-
-		{
-			identifier_c param_name("IN");
-			/* Get the value from a foo(<param_name> = <param_value>) style call */
-			symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
-			
-			/* Get the value from a foo(<param_value>) style call */
-			if (IN_param_value == NULL)
-			  IN_param_value = function_call_param_iterator.next();
-			symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
-			last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
-			
-			if (typeid(*last_type_symbol) == typeid(real_type_name_c))
-			{
-		
-				symbol_c * return_type_symbol = &search_constant_type_c::bool_type_name;
-				s4o.print("(");
-				return_type_symbol->accept(*this);
-				s4o.print(")");
-				IN_param_value->accept(*this);
-				return NULL;
-				
-			}
-			
-			ERROR;
-		}
-		
-	}/*function_real_to_bool*/
-	break;
-
-/****
- *REAL_TO_TIME
- */
-	case function_real_to_time :
-	{
-		symbol_c *last_type_symbol = NULL;
-
-		{
-			identifier_c param_name("IN");
-			/* Get the value from a foo(<param_name> = <param_value>) style call */
-			symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
-			
-			/* Get the value from a foo(<param_value>) style call */
-			if (IN_param_value == NULL)
-			  IN_param_value = function_call_param_iterator.next();
-			symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
-			last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
-			
-			if (typeid(*last_type_symbol) == typeid(real_type_name_c))
-			{
-		
-				symbol_c * return_type_symbol = &search_constant_type_c::time_type_name;
-				s4o.print("(");
-				return_type_symbol->accept(*this);
-				s4o.print(")time_to_real(");
-				IN_param_value->accept(*this);
-				s4o.print(")");
-				return NULL;
-				
-			}
-			
-			ERROR;
-		}
-		
-	}/*function_real_to_time*/
-	break;
-
-/****
- *REAL_TO_INT
- */
-	case function_real_to_int :
-	{
-		symbol_c *last_type_symbol = NULL;
-
-		{
-			identifier_c param_name("IN");
-			/* Get the value from a foo(<param_name> = <param_value>) style call */
-			symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
-			
-			/* Get the value from a foo(<param_value>) style call */
-			if (IN_param_value == NULL)
-			  IN_param_value = function_call_param_iterator.next();
-			symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
-			last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
-			
-			if (typeid(*last_type_symbol) == typeid(real_type_name_c))
-			{
-		
-				symbol_c * return_type_symbol = &search_constant_type_c::int_type_name;
-				s4o.print("(");
-				return_type_symbol->accept(*this);
-				s4o.print(")");
-				IN_param_value->accept(*this);
-				return NULL;
-				
-			}
-			
-			ERROR;
-		}
-		
-	}/*function_real_to_int*/
-	break;
+    case function_real_to_dt :
+    {
+        symbol_c *last_type_symbol = NULL;
+
+        {
+            identifier_c param_name("IN");
+            /* Get the value from a foo(<param_name> = <param_value>) style call */
+            symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
+            
+            /* Get the value from a foo(<param_value>) style call */
+            if (IN_param_value == NULL)
+              IN_param_value = function_call_param_iterator.next();
+            symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
+            last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
+            
+            if (typeid(*last_type_symbol) == typeid(real_type_name_c))
+            {
+        
+                symbol_c * return_type_symbol = &search_constant_type_c::dt_type_name;
+                s4o.print("(");
+                return_type_symbol->accept(*this);
+                s4o.print(")real_to_time(");
+                IN_param_value->accept(*this);
+                s4o.print(")");
+                return NULL;
+                
+            }
+            
+            ERROR;
+        }
+        
+    }/*function_real_to_dt*/
+    break;
+
+/****
+ *LREAL_TO_REAL
+ */
+    case function_lreal_to_real :
+    {
+        symbol_c *last_type_symbol = NULL;
+
+        {
+            identifier_c param_name("IN");
+            /* Get the value from a foo(<param_name> = <param_value>) style call */
+            symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
+            
+            /* Get the value from a foo(<param_value>) style call */
+            if (IN_param_value == NULL)
+              IN_param_value = function_call_param_iterator.next();
+            symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
+            last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
+            
+            if (typeid(*last_type_symbol) == typeid(lreal_type_name_c))
+            {
+        
+                symbol_c * return_type_symbol = &search_constant_type_c::real_type_name;
+                s4o.print("(");
+                return_type_symbol->accept(*this);
+                s4o.print(")");
+                IN_param_value->accept(*this);
+                return NULL;
+                
+            }
+            
+            ERROR;
+        }
+        
+    }/*function_lreal_to_real*/
+    break;
+
+/****
+ *LREAL_TO_SINT
+ */
+    case function_lreal_to_sint :
+    {
+        symbol_c *last_type_symbol = NULL;
+
+        {
+            identifier_c param_name("IN");
+            /* Get the value from a foo(<param_name> = <param_value>) style call */
+            symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
+            
+            /* Get the value from a foo(<param_value>) style call */
+            if (IN_param_value == NULL)
+              IN_param_value = function_call_param_iterator.next();
+            symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
+            last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
+            
+            if (typeid(*last_type_symbol) == typeid(lreal_type_name_c))
+            {
+        
+                symbol_c * return_type_symbol = &search_constant_type_c::sint_type_name;
+                s4o.print("(");
+                return_type_symbol->accept(*this);
+                s4o.print(")");
+                IN_param_value->accept(*this);
+                return NULL;
+                
+            }
+            
+            ERROR;
+        }
+        
+    }/*function_lreal_to_sint*/
+    break;
+
+/****
+ *LREAL_TO_INT
+ */
+    case function_lreal_to_int :
+    {
+        symbol_c *last_type_symbol = NULL;
+
+        {
+            identifier_c param_name("IN");
+            /* Get the value from a foo(<param_name> = <param_value>) style call */
+            symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
+            
+            /* Get the value from a foo(<param_value>) style call */
+            if (IN_param_value == NULL)
+              IN_param_value = function_call_param_iterator.next();
+            symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
+            last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
+            
+            if (typeid(*last_type_symbol) == typeid(lreal_type_name_c))
+            {
+        
+                symbol_c * return_type_symbol = &search_constant_type_c::int_type_name;
+                s4o.print("(");
+                return_type_symbol->accept(*this);
+                s4o.print(")");
+                IN_param_value->accept(*this);
+                return NULL;
+                
+            }
+            
+            ERROR;
+        }
+        
+    }/*function_lreal_to_int*/
+    break;
+
+/****
+ *LREAL_TO_DINT
+ */
+    case function_lreal_to_dint :
+    {
+        symbol_c *last_type_symbol = NULL;
+
+        {
+            identifier_c param_name("IN");
+            /* Get the value from a foo(<param_name> = <param_value>) style call */
+            symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
+            
+            /* Get the value from a foo(<param_value>) style call */
+            if (IN_param_value == NULL)
+              IN_param_value = function_call_param_iterator.next();
+            symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
+            last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
+            
+            if (typeid(*last_type_symbol) == typeid(lreal_type_name_c))
+            {
+        
+                symbol_c * return_type_symbol = &search_constant_type_c::dint_type_name;
+                s4o.print("(");
+                return_type_symbol->accept(*this);
+                s4o.print(")");
+                IN_param_value->accept(*this);
+                return NULL;
+                
+            }
+            
+            ERROR;
+        }
+        
+    }/*function_lreal_to_dint*/
+    break;
+
+/****
+ *LREAL_TO_LINT
+ */
+    case function_lreal_to_lint :
+    {
+        symbol_c *last_type_symbol = NULL;
+
+        {
+            identifier_c param_name("IN");
+            /* Get the value from a foo(<param_name> = <param_value>) style call */
+            symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
+            
+            /* Get the value from a foo(<param_value>) style call */
+            if (IN_param_value == NULL)
+              IN_param_value = function_call_param_iterator.next();
+            symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
+            last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
+            
+            if (typeid(*last_type_symbol) == typeid(lreal_type_name_c))
+            {
+        
+                symbol_c * return_type_symbol = &search_constant_type_c::lint_type_name;
+                s4o.print("(");
+                return_type_symbol->accept(*this);
+                s4o.print(")");
+                IN_param_value->accept(*this);
+                return NULL;
+                
+            }
+            
+            ERROR;
+        }
+        
+    }/*function_lreal_to_lint*/
+    break;
+
+/****
+ *LREAL_TO_USINT
+ */
+    case function_lreal_to_usint :
+    {
+        symbol_c *last_type_symbol = NULL;
+
+        {
+            identifier_c param_name("IN");
+            /* Get the value from a foo(<param_name> = <param_value>) style call */
+            symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
+            
+            /* Get the value from a foo(<param_value>) style call */
+            if (IN_param_value == NULL)
+              IN_param_value = function_call_param_iterator.next();
+            symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
+            last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
+            
+            if (typeid(*last_type_symbol) == typeid(lreal_type_name_c))
+            {
+        
+                symbol_c * return_type_symbol = &search_constant_type_c::usint_type_name;
+                s4o.print("(");
+                return_type_symbol->accept(*this);
+                s4o.print(")");
+                IN_param_value->accept(*this);
+                return NULL;
+                
+            }
+            
+            ERROR;
+        }
+        
+    }/*function_lreal_to_usint*/
+    break;
+
+/****
+ *LREAL_TO_UINT
+ */
+    case function_lreal_to_uint :
+    {
+        symbol_c *last_type_symbol = NULL;
+
+        {
+            identifier_c param_name("IN");
+            /* Get the value from a foo(<param_name> = <param_value>) style call */
+            symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
+            
+            /* Get the value from a foo(<param_value>) style call */
+            if (IN_param_value == NULL)
+              IN_param_value = function_call_param_iterator.next();
+            symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
+            last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
+            
+            if (typeid(*last_type_symbol) == typeid(lreal_type_name_c))
+            {
+        
+                symbol_c * return_type_symbol = &search_constant_type_c::uint_type_name;
+                s4o.print("(");
+                return_type_symbol->accept(*this);
+                s4o.print(")");
+                IN_param_value->accept(*this);
+                return NULL;
+                
+            }
+            
+            ERROR;
+        }
+        
+    }/*function_lreal_to_uint*/
+    break;
+
+/****
+ *LREAL_TO_UDINT
+ */
+    case function_lreal_to_udint :
+    {
+        symbol_c *last_type_symbol = NULL;
+
+        {
+            identifier_c param_name("IN");
+            /* Get the value from a foo(<param_name> = <param_value>) style call */
+            symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
+            
+            /* Get the value from a foo(<param_value>) style call */
+            if (IN_param_value == NULL)
+              IN_param_value = function_call_param_iterator.next();
+            symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
+            last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
+            
+            if (typeid(*last_type_symbol) == typeid(lreal_type_name_c))
+            {
+        
+                symbol_c * return_type_symbol = &search_constant_type_c::udint_type_name;
+                s4o.print("(");
+                return_type_symbol->accept(*this);
+                s4o.print(")");
+                IN_param_value->accept(*this);
+                return NULL;
+                
+            }
+            
+            ERROR;
+        }
+        
+    }/*function_lreal_to_udint*/
+    break;
+
+/****
+ *LREAL_TO_ULINT
+ */
+    case function_lreal_to_ulint :
+    {
+        symbol_c *last_type_symbol = NULL;
+
+        {
+            identifier_c param_name("IN");
+            /* Get the value from a foo(<param_name> = <param_value>) style call */
+            symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
+            
+            /* Get the value from a foo(<param_value>) style call */
+            if (IN_param_value == NULL)
+              IN_param_value = function_call_param_iterator.next();
+            symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
+            last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
+            
+            if (typeid(*last_type_symbol) == typeid(lreal_type_name_c))
+            {
+        
+                symbol_c * return_type_symbol = &search_constant_type_c::ulint_type_name;
+                s4o.print("(");
+                return_type_symbol->accept(*this);
+                s4o.print(")");
+                IN_param_value->accept(*this);
+                return NULL;
+                
+            }
+            
+            ERROR;
+        }
+        
+    }/*function_lreal_to_ulint*/
+    break;
+
+/****
+ *LREAL_TO_TIME
+ */
+    case function_lreal_to_time :
+    {
+        symbol_c *last_type_symbol = NULL;
+
+        {
+            identifier_c param_name("IN");
+            /* Get the value from a foo(<param_name> = <param_value>) style call */
+            symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
+            
+            /* Get the value from a foo(<param_value>) style call */
+            if (IN_param_value == NULL)
+              IN_param_value = function_call_param_iterator.next();
+            symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
+            last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
+            
+            if (typeid(*last_type_symbol) == typeid(lreal_type_name_c))
+            {
+        
+                symbol_c * return_type_symbol = &search_constant_type_c::time_type_name;
+                s4o.print("(");
+                return_type_symbol->accept(*this);
+                s4o.print(")real_to_time(");
+                IN_param_value->accept(*this);
+                s4o.print(")");
+                return NULL;
+                
+            }
+            
+            ERROR;
+        }
+        
+    }/*function_lreal_to_time*/
+    break;
+
+/****
+ *LREAL_TO_BOOL
+ */
+    case function_lreal_to_bool :
+    {
+        symbol_c *last_type_symbol = NULL;
+
+        {
+            identifier_c param_name("IN");
+            /* Get the value from a foo(<param_name> = <param_value>) style call */
+            symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
+            
+            /* Get the value from a foo(<param_value>) style call */
+            if (IN_param_value == NULL)
+              IN_param_value = function_call_param_iterator.next();
+            symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
+            last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
+            
+            if (typeid(*last_type_symbol) == typeid(lreal_type_name_c))
+            {
+        
+                symbol_c * return_type_symbol = &search_constant_type_c::bool_type_name;
+                s4o.print("(");
+                return_type_symbol->accept(*this);
+                s4o.print(")");
+                IN_param_value->accept(*this);
+                return NULL;
+                
+            }
+            
+            ERROR;
+        }
+        
+    }/*function_lreal_to_bool*/
+    break;
+
+/****
+ *LREAL_TO_BYTE
+ */
+    case function_lreal_to_byte :
+    {
+        symbol_c *last_type_symbol = NULL;
+
+        {
+            identifier_c param_name("IN");
+            /* Get the value from a foo(<param_name> = <param_value>) style call */
+            symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
+            
+            /* Get the value from a foo(<param_value>) style call */
+            if (IN_param_value == NULL)
+              IN_param_value = function_call_param_iterator.next();
+            symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
+            last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
+            
+            if (typeid(*last_type_symbol) == typeid(lreal_type_name_c))
+            {
+        
+                symbol_c * return_type_symbol = &search_constant_type_c::byte_type_name;
+                s4o.print("(");
+                return_type_symbol->accept(*this);
+                s4o.print(")");
+                IN_param_value->accept(*this);
+                return NULL;
+                
+            }
+            
+            ERROR;
+        }
+        
+    }/*function_lreal_to_byte*/
+    break;
+
+/****
+ *LREAL_TO_WORD
+ */
+    case function_lreal_to_word :
+    {
+        symbol_c *last_type_symbol = NULL;
+
+        {
+            identifier_c param_name("IN");
+            /* Get the value from a foo(<param_name> = <param_value>) style call */
+            symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
+            
+            /* Get the value from a foo(<param_value>) style call */
+            if (IN_param_value == NULL)
+              IN_param_value = function_call_param_iterator.next();
+            symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
+            last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
+            
+            if (typeid(*last_type_symbol) == typeid(lreal_type_name_c))
+            {
+        
+                symbol_c * return_type_symbol = &search_constant_type_c::word_type_name;
+                s4o.print("(");
+                return_type_symbol->accept(*this);
+                s4o.print(")");
+                IN_param_value->accept(*this);
+                return NULL;
+                
+            }
+            
+            ERROR;
+        }
+        
+    }/*function_lreal_to_word*/
+    break;
+
+/****
+ *LREAL_TO_DWORD
+ */
+    case function_lreal_to_dword :
+    {
+        symbol_c *last_type_symbol = NULL;
+
+        {
+            identifier_c param_name("IN");
+            /* Get the value from a foo(<param_name> = <param_value>) style call */
+            symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
+            
+            /* Get the value from a foo(<param_value>) style call */
+            if (IN_param_value == NULL)
+              IN_param_value = function_call_param_iterator.next();
+            symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
+            last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
+            
+            if (typeid(*last_type_symbol) == typeid(lreal_type_name_c))
+            {
+        
+                symbol_c * return_type_symbol = &search_constant_type_c::dword_type_name;
+                s4o.print("(");
+                return_type_symbol->accept(*this);
+                s4o.print(")");
+                IN_param_value->accept(*this);
+                return NULL;
+                
+            }
+            
+            ERROR;
+        }
+        
+    }/*function_lreal_to_dword*/
+    break;
+
+/****
+ *LREAL_TO_LWORD
+ */
+    case function_lreal_to_lword :
+    {
+        symbol_c *last_type_symbol = NULL;
+
+        {
+            identifier_c param_name("IN");
+            /* Get the value from a foo(<param_name> = <param_value>) style call */
+            symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
+            
+            /* Get the value from a foo(<param_value>) style call */
+            if (IN_param_value == NULL)
+              IN_param_value = function_call_param_iterator.next();
+            symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
+            last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
+            
+            if (typeid(*last_type_symbol) == typeid(lreal_type_name_c))
+            {
+        
+                symbol_c * return_type_symbol = &search_constant_type_c::lword_type_name;
+                s4o.print("(");
+                return_type_symbol->accept(*this);
+                s4o.print(")");
+                IN_param_value->accept(*this);
+                return NULL;
+                
+            }
+            
+            ERROR;
+        }
+        
+    }/*function_lreal_to_lword*/
+    break;
+
+/****
+ *LREAL_TO_STRING
+ */
+    case function_lreal_to_string :
+    {
+        symbol_c *last_type_symbol = NULL;
+
+        {
+            identifier_c param_name("IN");
+            /* Get the value from a foo(<param_name> = <param_value>) style call */
+            symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
+            
+            /* Get the value from a foo(<param_value>) style call */
+            if (IN_param_value == NULL)
+              IN_param_value = function_call_param_iterator.next();
+            symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
+            last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
+            
+            if (typeid(*last_type_symbol) == typeid(lreal_type_name_c))
+            {
+        
+                symbol_c * return_type_symbol = &search_constant_type_c::string_type_name;
+                s4o.print("(");
+                return_type_symbol->accept(*this);
+                s4o.print(")int_to_string(");
+                IN_param_value->accept(*this);
+                s4o.print(", 10)");
+                return NULL;
+                
+            }
+            
+            ERROR;
+        }
+        
+    }/*function_lreal_to_string*/
+    break;
+
+/****
+ *LREAL_TO_WSTRING
+ */
+    case function_lreal_to_wstring :
+    {
+        symbol_c *last_type_symbol = NULL;
+
+        {
+            identifier_c param_name("IN");
+            /* Get the value from a foo(<param_name> = <param_value>) style call */
+            symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
+            
+            /* Get the value from a foo(<param_value>) style call */
+            if (IN_param_value == NULL)
+              IN_param_value = function_call_param_iterator.next();
+            symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
+            last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
+            
+            if (typeid(*last_type_symbol) == typeid(lreal_type_name_c))
+            {
+        
+                symbol_c * return_type_symbol = &search_constant_type_c::wstring_type_name;
+                s4o.print("(");
+                return_type_symbol->accept(*this);
+                s4o.print(")int_to_string(");
+                IN_param_value->accept(*this);
+                s4o.print(", 10)");
+                return NULL;
+                
+            }
+            
+            ERROR;
+        }
+        
+    }/*function_lreal_to_wstring*/
+    break;
+
+/****
+ *LREAL_TO_DATE
+ */
+    case function_lreal_to_date :
+    {
+        symbol_c *last_type_symbol = NULL;
+
+        {
+            identifier_c param_name("IN");
+            /* Get the value from a foo(<param_name> = <param_value>) style call */
+            symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
+            
+            /* Get the value from a foo(<param_value>) style call */
+            if (IN_param_value == NULL)
+              IN_param_value = function_call_param_iterator.next();
+            symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
+            last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
+            
+            if (typeid(*last_type_symbol) == typeid(lreal_type_name_c))
+            {
+        
+                symbol_c * return_type_symbol = &search_constant_type_c::date_type_name;
+                s4o.print("(");
+                return_type_symbol->accept(*this);
+                s4o.print(")real_to_time(");
+                IN_param_value->accept(*this);
+                s4o.print(")");
+                return NULL;
+                
+            }
+            
+            ERROR;
+        }
+        
+    }/*function_lreal_to_date*/
+    break;
+
+/****
+ *LREAL_TO_TOD
+ */
+    case function_lreal_to_tod :
+    {
+        symbol_c *last_type_symbol = NULL;
+
+        {
+            identifier_c param_name("IN");
+            /* Get the value from a foo(<param_name> = <param_value>) style call */
+            symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
+            
+            /* Get the value from a foo(<param_value>) style call */
+            if (IN_param_value == NULL)
+              IN_param_value = function_call_param_iterator.next();
+            symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
+            last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
+            
+            if (typeid(*last_type_symbol) == typeid(lreal_type_name_c))
+            {
+        
+                symbol_c * return_type_symbol = &search_constant_type_c::tod_type_name;
+                s4o.print("(");
+                return_type_symbol->accept(*this);
+                s4o.print(")real_to_time(");
+                IN_param_value->accept(*this);
+                s4o.print(")");
+                return NULL;
+                
+            }
+            
+            ERROR;
+        }
+        
+    }/*function_lreal_to_tod*/
+    break;
+
+/****
+ *LREAL_TO_DT
+ */
+    case function_lreal_to_dt :
+    {
+        symbol_c *last_type_symbol = NULL;
+
+        {
+            identifier_c param_name("IN");
+            /* Get the value from a foo(<param_name> = <param_value>) style call */
+            symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
+            
+            /* Get the value from a foo(<param_value>) style call */
+            if (IN_param_value == NULL)
+              IN_param_value = function_call_param_iterator.next();
+            symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
+            last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
+            
+            if (typeid(*last_type_symbol) == typeid(lreal_type_name_c))
+            {
+        
+                symbol_c * return_type_symbol = &search_constant_type_c::dt_type_name;
+                s4o.print("(");
+                return_type_symbol->accept(*this);
+                s4o.print(")real_to_time(");
+                IN_param_value->accept(*this);
+                s4o.print(")");
+                return NULL;
+                
+            }
+            
+            ERROR;
+        }
+        
+    }/*function_lreal_to_dt*/
+    break;
 
 /****
  *SINT_TO_REAL
  */
-	case function_sint_to_real :
-	{
-		symbol_c *last_type_symbol = NULL;
-
-		{
-			identifier_c param_name("IN");
-			/* Get the value from a foo(<param_name> = <param_value>) style call */
-			symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
-			
-			/* Get the value from a foo(<param_value>) style call */
-			if (IN_param_value == NULL)
-			  IN_param_value = function_call_param_iterator.next();
-			symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
-			last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
-			
-			if (typeid(*last_type_symbol) == typeid(sint_type_name_c))
-			{
-		
-				symbol_c * return_type_symbol = &search_constant_type_c::real_type_name;
-				s4o.print("(");
-				return_type_symbol->accept(*this);
-				s4o.print(")");
-				IN_param_value->accept(*this);
-				return NULL;
-				
-			}
-			
-			ERROR;
-		}
-		
-	}/*function_sint_to_real*/
-	break;
-
-/****
- *SINT_TO_SINT
- */
-	case function_sint_to_sint :
-	{
-		symbol_c *last_type_symbol = NULL;
-
-		{
-			identifier_c param_name("IN");
-			/* Get the value from a foo(<param_name> = <param_value>) style call */
-			symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
-			
-			/* Get the value from a foo(<param_value>) style call */
-			if (IN_param_value == NULL)
-			  IN_param_value = function_call_param_iterator.next();
-			symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
-			last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
-			
-			if (typeid(*last_type_symbol) == typeid(sint_type_name_c))
-			{
-		
-				symbol_c * return_type_symbol = &search_constant_type_c::sint_type_name;
-				s4o.print("(");
-				return_type_symbol->accept(*this);
-				s4o.print(")");
-				IN_param_value->accept(*this);
-				return NULL;
-				
-			}
-			
-			ERROR;
-		}
-		
-	}/*function_sint_to_sint*/
-	break;
+    case function_sint_to_real :
+    {
+        symbol_c *last_type_symbol = NULL;
+
+        {
+            identifier_c param_name("IN");
+            /* Get the value from a foo(<param_name> = <param_value>) style call */
+            symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
+            
+            /* Get the value from a foo(<param_value>) style call */
+            if (IN_param_value == NULL)
+              IN_param_value = function_call_param_iterator.next();
+            symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
+            last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
+            
+            if (typeid(*last_type_symbol) == typeid(sint_type_name_c))
+            {
+        
+                symbol_c * return_type_symbol = &search_constant_type_c::real_type_name;
+                s4o.print("(");
+                return_type_symbol->accept(*this);
+                s4o.print(")");
+                IN_param_value->accept(*this);
+                return NULL;
+                
+            }
+            
+            ERROR;
+        }
+        
+    }/*function_sint_to_real*/
+    break;
+
+/****
+ *SINT_TO_LREAL
+ */
+    case function_sint_to_lreal :
+    {
+        symbol_c *last_type_symbol = NULL;
+
+        {
+            identifier_c param_name("IN");
+            /* Get the value from a foo(<param_name> = <param_value>) style call */
+            symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
+            
+            /* Get the value from a foo(<param_value>) style call */
+            if (IN_param_value == NULL)
+              IN_param_value = function_call_param_iterator.next();
+            symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
+            last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
+            
+            if (typeid(*last_type_symbol) == typeid(sint_type_name_c))
+            {
+        
+                symbol_c * return_type_symbol = &search_constant_type_c::lreal_type_name;
+                s4o.print("(");
+                return_type_symbol->accept(*this);
+                s4o.print(")");
+                IN_param_value->accept(*this);
+                return NULL;
+                
+            }
+            
+            ERROR;
+        }
+        
+    }/*function_sint_to_lreal*/
+    break;
+
+/****
+ *SINT_TO_INT
+ */
+    case function_sint_to_int :
+    {
+        symbol_c *last_type_symbol = NULL;
+
+        {
+            identifier_c param_name("IN");
+            /* Get the value from a foo(<param_name> = <param_value>) style call */
+            symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
+            
+            /* Get the value from a foo(<param_value>) style call */
+            if (IN_param_value == NULL)
+              IN_param_value = function_call_param_iterator.next();
+            symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
+            last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
+            
+            if (typeid(*last_type_symbol) == typeid(sint_type_name_c))
+            {
+        
+                symbol_c * return_type_symbol = &search_constant_type_c::int_type_name;
+                s4o.print("(");
+                return_type_symbol->accept(*this);
+                s4o.print(")");
+                IN_param_value->accept(*this);
+                return NULL;
+                
+            }
+            
+            ERROR;
+        }
+        
+    }/*function_sint_to_int*/
+    break;
+
+/****
+ *SINT_TO_DINT
+ */
+    case function_sint_to_dint :
+    {
+        symbol_c *last_type_symbol = NULL;
+
+        {
+            identifier_c param_name("IN");
+            /* Get the value from a foo(<param_name> = <param_value>) style call */
+            symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
+            
+            /* Get the value from a foo(<param_value>) style call */
+            if (IN_param_value == NULL)
+              IN_param_value = function_call_param_iterator.next();
+            symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
+            last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
+            
+            if (typeid(*last_type_symbol) == typeid(sint_type_name_c))
+            {
+        
+                symbol_c * return_type_symbol = &search_constant_type_c::dint_type_name;
+                s4o.print("(");
+                return_type_symbol->accept(*this);
+                s4o.print(")");
+                IN_param_value->accept(*this);
+                return NULL;
+                
+            }
+            
+            ERROR;
+        }
+        
+    }/*function_sint_to_dint*/
+    break;
 
 /****
  *SINT_TO_LINT
  */
-	case function_sint_to_lint :
-	{
-		symbol_c *last_type_symbol = NULL;
-
-		{
-			identifier_c param_name("IN");
-			/* Get the value from a foo(<param_name> = <param_value>) style call */
-			symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
-			
-			/* Get the value from a foo(<param_value>) style call */
-			if (IN_param_value == NULL)
-			  IN_param_value = function_call_param_iterator.next();
-			symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
-			last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
-			
-			if (typeid(*last_type_symbol) == typeid(sint_type_name_c))
-			{
-		
-				symbol_c * return_type_symbol = &search_constant_type_c::lint_type_name;
-				s4o.print("(");
-				return_type_symbol->accept(*this);
-				s4o.print(")");
-				IN_param_value->accept(*this);
-				return NULL;
-				
-			}
-			
-			ERROR;
-		}
-		
-	}/*function_sint_to_lint*/
-	break;
-
-/****
- *SINT_TO_DINT
- */
-	case function_sint_to_dint :
-	{
-		symbol_c *last_type_symbol = NULL;
-
-		{
-			identifier_c param_name("IN");
-			/* Get the value from a foo(<param_name> = <param_value>) style call */
-			symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
-			
-			/* Get the value from a foo(<param_value>) style call */
-			if (IN_param_value == NULL)
-			  IN_param_value = function_call_param_iterator.next();
-			symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
-			last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
-			
-			if (typeid(*last_type_symbol) == typeid(sint_type_name_c))
-			{
-		
-				symbol_c * return_type_symbol = &search_constant_type_c::dint_type_name;
-				s4o.print("(");
-				return_type_symbol->accept(*this);
-				s4o.print(")");
-				IN_param_value->accept(*this);
-				return NULL;
-				
-			}
-			
-			ERROR;
-		}
-		
-	}/*function_sint_to_dint*/
-	break;
+    case function_sint_to_lint :
+    {
+        symbol_c *last_type_symbol = NULL;
+
+        {
+            identifier_c param_name("IN");
+            /* Get the value from a foo(<param_name> = <param_value>) style call */
+            symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
+            
+            /* Get the value from a foo(<param_value>) style call */
+            if (IN_param_value == NULL)
+              IN_param_value = function_call_param_iterator.next();
+            symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
+            last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
+            
+            if (typeid(*last_type_symbol) == typeid(sint_type_name_c))
+            {
+        
+                symbol_c * return_type_symbol = &search_constant_type_c::lint_type_name;
+                s4o.print("(");
+                return_type_symbol->accept(*this);
+                s4o.print(")");
+                IN_param_value->accept(*this);
+                return NULL;
+                
+            }
+            
+            ERROR;
+        }
+        
+    }/*function_sint_to_lint*/
+    break;
+
+/****
+ *SINT_TO_USINT
+ */
+    case function_sint_to_usint :
+    {
+        symbol_c *last_type_symbol = NULL;
+
+        {
+            identifier_c param_name("IN");
+            /* Get the value from a foo(<param_name> = <param_value>) style call */
+            symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
+            
+            /* Get the value from a foo(<param_value>) style call */
+            if (IN_param_value == NULL)
+              IN_param_value = function_call_param_iterator.next();
+            symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
+            last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
+            
+            if (typeid(*last_type_symbol) == typeid(sint_type_name_c))
+            {
+        
+                symbol_c * return_type_symbol = &search_constant_type_c::usint_type_name;
+                s4o.print("(");
+                return_type_symbol->accept(*this);
+                s4o.print(")");
+                IN_param_value->accept(*this);
+                return NULL;
+                
+            }
+            
+            ERROR;
+        }
+        
+    }/*function_sint_to_usint*/
+    break;
+
+/****
+ *SINT_TO_UINT
+ */
+    case function_sint_to_uint :
+    {
+        symbol_c *last_type_symbol = NULL;
+
+        {
+            identifier_c param_name("IN");
+            /* Get the value from a foo(<param_name> = <param_value>) style call */
+            symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
+            
+            /* Get the value from a foo(<param_value>) style call */
+            if (IN_param_value == NULL)
+              IN_param_value = function_call_param_iterator.next();
+            symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
+            last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
+            
+            if (typeid(*last_type_symbol) == typeid(sint_type_name_c))
+            {
+        
+                symbol_c * return_type_symbol = &search_constant_type_c::uint_type_name;
+                s4o.print("(");
+                return_type_symbol->accept(*this);
+                s4o.print(")");
+                IN_param_value->accept(*this);
+                return NULL;
+                
+            }
+            
+            ERROR;
+        }
+        
+    }/*function_sint_to_uint*/
+    break;
+
+/****
+ *SINT_TO_UDINT
+ */
+    case function_sint_to_udint :
+    {
+        symbol_c *last_type_symbol = NULL;
+
+        {
+            identifier_c param_name("IN");
+            /* Get the value from a foo(<param_name> = <param_value>) style call */
+            symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
+            
+            /* Get the value from a foo(<param_value>) style call */
+            if (IN_param_value == NULL)
+              IN_param_value = function_call_param_iterator.next();
+            symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
+            last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
+            
+            if (typeid(*last_type_symbol) == typeid(sint_type_name_c))
+            {
+        
+                symbol_c * return_type_symbol = &search_constant_type_c::udint_type_name;
+                s4o.print("(");
+                return_type_symbol->accept(*this);
+                s4o.print(")");
+                IN_param_value->accept(*this);
+                return NULL;
+                
+            }
+            
+            ERROR;
+        }
+        
+    }/*function_sint_to_udint*/
+    break;
+
+/****
+ *SINT_TO_ULINT
+ */
+    case function_sint_to_ulint :
+    {
+        symbol_c *last_type_symbol = NULL;
+
+        {
+            identifier_c param_name("IN");
+            /* Get the value from a foo(<param_name> = <param_value>) style call */
+            symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
+            
+            /* Get the value from a foo(<param_value>) style call */
+            if (IN_param_value == NULL)
+              IN_param_value = function_call_param_iterator.next();
+            symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
+            last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
+            
+            if (typeid(*last_type_symbol) == typeid(sint_type_name_c))
+            {
+        
+                symbol_c * return_type_symbol = &search_constant_type_c::ulint_type_name;
+                s4o.print("(");
+                return_type_symbol->accept(*this);
+                s4o.print(")");
+                IN_param_value->accept(*this);
+                return NULL;
+                
+            }
+            
+            ERROR;
+        }
+        
+    }/*function_sint_to_ulint*/
+    break;
+
+/****
+ *SINT_TO_TIME
+ */
+    case function_sint_to_time :
+    {
+        symbol_c *last_type_symbol = NULL;
+
+        {
+            identifier_c param_name("IN");
+            /* Get the value from a foo(<param_name> = <param_value>) style call */
+            symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
+            
+            /* Get the value from a foo(<param_value>) style call */
+            if (IN_param_value == NULL)
+              IN_param_value = function_call_param_iterator.next();
+            symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
+            last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
+            
+            if (typeid(*last_type_symbol) == typeid(sint_type_name_c))
+            {
+        
+                symbol_c * return_type_symbol = &search_constant_type_c::time_type_name;
+                s4o.print("(");
+                return_type_symbol->accept(*this);
+                s4o.print(")real_to_time(");
+                IN_param_value->accept(*this);
+                s4o.print(")");
+                return NULL;
+                
+            }
+            
+            ERROR;
+        }
+        
+    }/*function_sint_to_time*/
+    break;
+
+/****
+ *SINT_TO_BOOL
+ */
+    case function_sint_to_bool :
+    {
+        symbol_c *last_type_symbol = NULL;
+
+        {
+            identifier_c param_name("IN");
+            /* Get the value from a foo(<param_name> = <param_value>) style call */
+            symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
+            
+            /* Get the value from a foo(<param_value>) style call */
+            if (IN_param_value == NULL)
+              IN_param_value = function_call_param_iterator.next();
+            symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
+            last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
+            
+            if (typeid(*last_type_symbol) == typeid(sint_type_name_c))
+            {
+        
+                symbol_c * return_type_symbol = &search_constant_type_c::bool_type_name;
+                s4o.print("(");
+                return_type_symbol->accept(*this);
+                s4o.print(")");
+                IN_param_value->accept(*this);
+                return NULL;
+                
+            }
+            
+            ERROR;
+        }
+        
+    }/*function_sint_to_bool*/
+    break;
+
+/****
+ *SINT_TO_BYTE
+ */
+    case function_sint_to_byte :
+    {
+        symbol_c *last_type_symbol = NULL;
+
+        {
+            identifier_c param_name("IN");
+            /* Get the value from a foo(<param_name> = <param_value>) style call */
+            symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
+            
+            /* Get the value from a foo(<param_value>) style call */
+            if (IN_param_value == NULL)
+              IN_param_value = function_call_param_iterator.next();
+            symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
+            last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
+            
+            if (typeid(*last_type_symbol) == typeid(sint_type_name_c))
+            {
+        
+                symbol_c * return_type_symbol = &search_constant_type_c::byte_type_name;
+                s4o.print("(");
+                return_type_symbol->accept(*this);
+                s4o.print(")");
+                IN_param_value->accept(*this);
+                return NULL;
+                
+            }
+            
+            ERROR;
+        }
+        
+    }/*function_sint_to_byte*/
+    break;
+
+/****
+ *SINT_TO_WORD
+ */
+    case function_sint_to_word :
+    {
+        symbol_c *last_type_symbol = NULL;
+
+        {
+            identifier_c param_name("IN");
+            /* Get the value from a foo(<param_name> = <param_value>) style call */
+            symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
+            
+            /* Get the value from a foo(<param_value>) style call */
+            if (IN_param_value == NULL)
+              IN_param_value = function_call_param_iterator.next();
+            symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
+            last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
+            
+            if (typeid(*last_type_symbol) == typeid(sint_type_name_c))
+            {
+        
+                symbol_c * return_type_symbol = &search_constant_type_c::word_type_name;
+                s4o.print("(");
+                return_type_symbol->accept(*this);
+                s4o.print(")");
+                IN_param_value->accept(*this);
+                return NULL;
+                
+            }
+            
+            ERROR;
+        }
+        
+    }/*function_sint_to_word*/
+    break;
+
+/****
+ *SINT_TO_DWORD
+ */
+    case function_sint_to_dword :
+    {
+        symbol_c *last_type_symbol = NULL;
+
+        {
+            identifier_c param_name("IN");
+            /* Get the value from a foo(<param_name> = <param_value>) style call */
+            symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
+            
+            /* Get the value from a foo(<param_value>) style call */
+            if (IN_param_value == NULL)
+              IN_param_value = function_call_param_iterator.next();
+            symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
+            last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
+            
+            if (typeid(*last_type_symbol) == typeid(sint_type_name_c))
+            {
+        
+                symbol_c * return_type_symbol = &search_constant_type_c::dword_type_name;
+                s4o.print("(");
+                return_type_symbol->accept(*this);
+                s4o.print(")");
+                IN_param_value->accept(*this);
+                return NULL;
+                
+            }
+            
+            ERROR;
+        }
+        
+    }/*function_sint_to_dword*/
+    break;
+
+/****
+ *SINT_TO_LWORD
+ */
+    case function_sint_to_lword :
+    {
+        symbol_c *last_type_symbol = NULL;
+
+        {
+            identifier_c param_name("IN");
+            /* Get the value from a foo(<param_name> = <param_value>) style call */
+            symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
+            
+            /* Get the value from a foo(<param_value>) style call */
+            if (IN_param_value == NULL)
+              IN_param_value = function_call_param_iterator.next();
+            symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
+            last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
+            
+            if (typeid(*last_type_symbol) == typeid(sint_type_name_c))
+            {
+        
+                symbol_c * return_type_symbol = &search_constant_type_c::lword_type_name;
+                s4o.print("(");
+                return_type_symbol->accept(*this);
+                s4o.print(")");
+                IN_param_value->accept(*this);
+                return NULL;
+                
+            }
+            
+            ERROR;
+        }
+        
+    }/*function_sint_to_lword*/
+    break;
+
+/****
+ *SINT_TO_STRING
+ */
+    case function_sint_to_string :
+    {
+        symbol_c *last_type_symbol = NULL;
+
+        {
+            identifier_c param_name("IN");
+            /* Get the value from a foo(<param_name> = <param_value>) style call */
+            symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
+            
+            /* Get the value from a foo(<param_value>) style call */
+            if (IN_param_value == NULL)
+              IN_param_value = function_call_param_iterator.next();
+            symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
+            last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
+            
+            if (typeid(*last_type_symbol) == typeid(sint_type_name_c))
+            {
+        
+                symbol_c * return_type_symbol = &search_constant_type_c::string_type_name;
+                s4o.print("(");
+                return_type_symbol->accept(*this);
+                s4o.print(")int_to_string(");
+                IN_param_value->accept(*this);
+                s4o.print(", 10)");
+                return NULL;
+                
+            }
+            
+            ERROR;
+        }
+        
+    }/*function_sint_to_string*/
+    break;
+
+/****
+ *SINT_TO_WSTRING
+ */
+    case function_sint_to_wstring :
+    {
+        symbol_c *last_type_symbol = NULL;
+
+        {
+            identifier_c param_name("IN");
+            /* Get the value from a foo(<param_name> = <param_value>) style call */
+            symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
+            
+            /* Get the value from a foo(<param_value>) style call */
+            if (IN_param_value == NULL)
+              IN_param_value = function_call_param_iterator.next();
+            symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
+            last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
+            
+            if (typeid(*last_type_symbol) == typeid(sint_type_name_c))
+            {
+        
+                symbol_c * return_type_symbol = &search_constant_type_c::wstring_type_name;
+                s4o.print("(");
+                return_type_symbol->accept(*this);
+                s4o.print(")int_to_string(");
+                IN_param_value->accept(*this);
+                s4o.print(", 10)");
+                return NULL;
+                
+            }
+            
+            ERROR;
+        }
+        
+    }/*function_sint_to_wstring*/
+    break;
 
 /****
  *SINT_TO_DATE
  */
-	case function_sint_to_date :
-	{
-		symbol_c *last_type_symbol = NULL;
-
-		{
-			identifier_c param_name("IN");
-			/* Get the value from a foo(<param_name> = <param_value>) style call */
-			symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
-			
-			/* Get the value from a foo(<param_value>) style call */
-			if (IN_param_value == NULL)
-			  IN_param_value = function_call_param_iterator.next();
-			symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
-			last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
-			
-			if (typeid(*last_type_symbol) == typeid(sint_type_name_c))
-			{
-		
-				symbol_c * return_type_symbol = &search_constant_type_c::date_type_name;
-				s4o.print("(");
-				return_type_symbol->accept(*this);
-				s4o.print(")time_to_real(");
-				IN_param_value->accept(*this);
-				s4o.print(")");
-				return NULL;
-				
-			}
-			
-			ERROR;
-		}
-		
-	}/*function_sint_to_date*/
-	break;
-
-/****
- *SINT_TO_DWORD
- */
-	case function_sint_to_dword :
-	{
-		symbol_c *last_type_symbol = NULL;
-
-		{
-			identifier_c param_name("IN");
-			/* Get the value from a foo(<param_name> = <param_value>) style call */
-			symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
-			
-			/* Get the value from a foo(<param_value>) style call */
-			if (IN_param_value == NULL)
-			  IN_param_value = function_call_param_iterator.next();
-			symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
-			last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
-			
-			if (typeid(*last_type_symbol) == typeid(sint_type_name_c))
-			{
-		
-				symbol_c * return_type_symbol = &search_constant_type_c::dword_type_name;
-				s4o.print("(");
-				return_type_symbol->accept(*this);
-				s4o.print(")");
-				IN_param_value->accept(*this);
-				return NULL;
-				
-			}
-			
-			ERROR;
-		}
-		
-	}/*function_sint_to_dword*/
-	break;
+    case function_sint_to_date :
+    {
+        symbol_c *last_type_symbol = NULL;
+
+        {
+            identifier_c param_name("IN");
+            /* Get the value from a foo(<param_name> = <param_value>) style call */
+            symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
+            
+            /* Get the value from a foo(<param_value>) style call */
+            if (IN_param_value == NULL)
+              IN_param_value = function_call_param_iterator.next();
+            symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
+            last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
+            
+            if (typeid(*last_type_symbol) == typeid(sint_type_name_c))
+            {
+        
+                symbol_c * return_type_symbol = &search_constant_type_c::date_type_name;
+                s4o.print("(");
+                return_type_symbol->accept(*this);
+                s4o.print(")real_to_time(");
+                IN_param_value->accept(*this);
+                s4o.print(")");
+                return NULL;
+                
+            }
+            
+            ERROR;
+        }
+        
+    }/*function_sint_to_date*/
+    break;
+
+/****
+ *SINT_TO_TOD
+ */
+    case function_sint_to_tod :
+    {
+        symbol_c *last_type_symbol = NULL;
+
+        {
+            identifier_c param_name("IN");
+            /* Get the value from a foo(<param_name> = <param_value>) style call */
+            symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
+            
+            /* Get the value from a foo(<param_value>) style call */
+            if (IN_param_value == NULL)
+              IN_param_value = function_call_param_iterator.next();
+            symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
+            last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
+            
+            if (typeid(*last_type_symbol) == typeid(sint_type_name_c))
+            {
+        
+                symbol_c * return_type_symbol = &search_constant_type_c::tod_type_name;
+                s4o.print("(");
+                return_type_symbol->accept(*this);
+                s4o.print(")real_to_time(");
+                IN_param_value->accept(*this);
+                s4o.print(")");
+                return NULL;
+                
+            }
+            
+            ERROR;
+        }
+        
+    }/*function_sint_to_tod*/
+    break;
 
 /****
  *SINT_TO_DT
  */
-	case function_sint_to_dt :
-	{
-		symbol_c *last_type_symbol = NULL;
-
-		{
-			identifier_c param_name("IN");
-			/* Get the value from a foo(<param_name> = <param_value>) style call */
-			symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
-			
-			/* Get the value from a foo(<param_value>) style call */
-			if (IN_param_value == NULL)
-			  IN_param_value = function_call_param_iterator.next();
-			symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
-			last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
-			
-			if (typeid(*last_type_symbol) == typeid(sint_type_name_c))
-			{
-		
-				symbol_c * return_type_symbol = &search_constant_type_c::dt_type_name;
-				s4o.print("(");
-				return_type_symbol->accept(*this);
-				s4o.print(")time_to_real(");
-				IN_param_value->accept(*this);
-				s4o.print(")");
-				return NULL;
-				
-			}
-			
-			ERROR;
-		}
-		
-	}/*function_sint_to_dt*/
-	break;
-
-/****
- *SINT_TO_TOD
- */
-	case function_sint_to_tod :
-	{
-		symbol_c *last_type_symbol = NULL;
-
-		{
-			identifier_c param_name("IN");
-			/* Get the value from a foo(<param_name> = <param_value>) style call */
-			symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
-			
-			/* Get the value from a foo(<param_value>) style call */
-			if (IN_param_value == NULL)
-			  IN_param_value = function_call_param_iterator.next();
-			symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
-			last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
-			
-			if (typeid(*last_type_symbol) == typeid(sint_type_name_c))
-			{
-		
-				symbol_c * return_type_symbol = &search_constant_type_c::tod_type_name;
-				s4o.print("(");
-				return_type_symbol->accept(*this);
-				s4o.print(")time_to_real(");
-				IN_param_value->accept(*this);
-				s4o.print(")");
-				return NULL;
-				
-			}
-			
-			ERROR;
-		}
-		
-	}/*function_sint_to_tod*/
-	break;
-
-/****
- *SINT_TO_UDINT
- */
-	case function_sint_to_udint :
-	{
-		symbol_c *last_type_symbol = NULL;
-
-		{
-			identifier_c param_name("IN");
-			/* Get the value from a foo(<param_name> = <param_value>) style call */
-			symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
-			
-			/* Get the value from a foo(<param_value>) style call */
-			if (IN_param_value == NULL)
-			  IN_param_value = function_call_param_iterator.next();
-			symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
-			last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
-			
-			if (typeid(*last_type_symbol) == typeid(sint_type_name_c))
-			{
-		
-				symbol_c * return_type_symbol = &search_constant_type_c::udint_type_name;
-				s4o.print("(");
-				return_type_symbol->accept(*this);
-				s4o.print(")");
-				IN_param_value->accept(*this);
-				return NULL;
-				
-			}
-			
-			ERROR;
-		}
-		
-	}/*function_sint_to_udint*/
-	break;
-
-/****
- *SINT_TO_WORD
- */
-	case function_sint_to_word :
-	{
-		symbol_c *last_type_symbol = NULL;
-
-		{
-			identifier_c param_name("IN");
-			/* Get the value from a foo(<param_name> = <param_value>) style call */
-			symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
-			
-			/* Get the value from a foo(<param_value>) style call */
-			if (IN_param_value == NULL)
-			  IN_param_value = function_call_param_iterator.next();
-			symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
-			last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
-			
-			if (typeid(*last_type_symbol) == typeid(sint_type_name_c))
-			{
-		
-				symbol_c * return_type_symbol = &search_constant_type_c::word_type_name;
-				s4o.print("(");
-				return_type_symbol->accept(*this);
-				s4o.print(")");
-				IN_param_value->accept(*this);
-				return NULL;
-				
-			}
-			
-			ERROR;
-		}
-		
-	}/*function_sint_to_word*/
-	break;
-
-/****
- *SINT_TO_WSTRING
- */
-	case function_sint_to_wstring :
-	{
-		symbol_c *last_type_symbol = NULL;
-
-		{
-			identifier_c param_name("IN");
-			/* Get the value from a foo(<param_name> = <param_value>) style call */
-			symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
-			
-			/* Get the value from a foo(<param_value>) style call */
-			if (IN_param_value == NULL)
-			  IN_param_value = function_call_param_iterator.next();
-			symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
-			last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
-			
-			if (typeid(*last_type_symbol) == typeid(sint_type_name_c))
-			{
-		
-				symbol_c * return_type_symbol = &search_constant_type_c::wstring_type_name;
-				s4o.print("(");
-				return_type_symbol->accept(*this);
-				s4o.print(")string_to_int(");
-				IN_param_value->accept(*this);
-				s4o.print(", 10)");
-				return NULL;
-				
-			}
-			
-			ERROR;
-		}
-		
-	}/*function_sint_to_wstring*/
-	break;
-
-/****
- *SINT_TO_STRING
- */
-	case function_sint_to_string :
-	{
-		symbol_c *last_type_symbol = NULL;
-
-		{
-			identifier_c param_name("IN");
-			/* Get the value from a foo(<param_name> = <param_value>) style call */
-			symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
-			
-			/* Get the value from a foo(<param_value>) style call */
-			if (IN_param_value == NULL)
-			  IN_param_value = function_call_param_iterator.next();
-			symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
-			last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
-			
-			if (typeid(*last_type_symbol) == typeid(sint_type_name_c))
-			{
-		
-				symbol_c * return_type_symbol = &search_constant_type_c::string_type_name;
-				s4o.print("(");
-				return_type_symbol->accept(*this);
-				s4o.print(")string_to_int(");
-				IN_param_value->accept(*this);
-				s4o.print(", 10)");
-				return NULL;
-				
-			}
-			
-			ERROR;
-		}
-		
-	}/*function_sint_to_string*/
-	break;
-
-/****
- *SINT_TO_LWORD
- */
-	case function_sint_to_lword :
-	{
-		symbol_c *last_type_symbol = NULL;
-
-		{
-			identifier_c param_name("IN");
-			/* Get the value from a foo(<param_name> = <param_value>) style call */
-			symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
-			
-			/* Get the value from a foo(<param_value>) style call */
-			if (IN_param_value == NULL)
-			  IN_param_value = function_call_param_iterator.next();
-			symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
-			last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
-			
-			if (typeid(*last_type_symbol) == typeid(sint_type_name_c))
-			{
-		
-				symbol_c * return_type_symbol = &search_constant_type_c::lword_type_name;
-				s4o.print("(");
-				return_type_symbol->accept(*this);
-				s4o.print(")");
-				IN_param_value->accept(*this);
-				return NULL;
-				
-			}
-			
-			ERROR;
-		}
-		
-	}/*function_sint_to_lword*/
-	break;
-
-/****
- *SINT_TO_UINT
- */
-	case function_sint_to_uint :
-	{
-		symbol_c *last_type_symbol = NULL;
-
-		{
-			identifier_c param_name("IN");
-			/* Get the value from a foo(<param_name> = <param_value>) style call */
-			symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
-			
-			/* Get the value from a foo(<param_value>) style call */
-			if (IN_param_value == NULL)
-			  IN_param_value = function_call_param_iterator.next();
-			symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
-			last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
-			
-			if (typeid(*last_type_symbol) == typeid(sint_type_name_c))
-			{
-		
-				symbol_c * return_type_symbol = &search_constant_type_c::uint_type_name;
-				s4o.print("(");
-				return_type_symbol->accept(*this);
-				s4o.print(")");
-				IN_param_value->accept(*this);
-				return NULL;
-				
-			}
-			
-			ERROR;
-		}
-		
-	}/*function_sint_to_uint*/
-	break;
-
-/****
- *SINT_TO_LREAL
- */
-	case function_sint_to_lreal :
-	{
-		symbol_c *last_type_symbol = NULL;
-
-		{
-			identifier_c param_name("IN");
-			/* Get the value from a foo(<param_name> = <param_value>) style call */
-			symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
-			
-			/* Get the value from a foo(<param_value>) style call */
-			if (IN_param_value == NULL)
-			  IN_param_value = function_call_param_iterator.next();
-			symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
-			last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
-			
-			if (typeid(*last_type_symbol) == typeid(sint_type_name_c))
-			{
-		
-				symbol_c * return_type_symbol = &search_constant_type_c::lreal_type_name;
-				s4o.print("(");
-				return_type_symbol->accept(*this);
-				s4o.print(")");
-				IN_param_value->accept(*this);
-				return NULL;
-				
-			}
-			
-			ERROR;
-		}
-		
-	}/*function_sint_to_lreal*/
-	break;
-
-/****
- *SINT_TO_BYTE
- */
-	case function_sint_to_byte :
-	{
-		symbol_c *last_type_symbol = NULL;
-
-		{
-			identifier_c param_name("IN");
-			/* Get the value from a foo(<param_name> = <param_value>) style call */
-			symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
-			
-			/* Get the value from a foo(<param_value>) style call */
-			if (IN_param_value == NULL)
-			  IN_param_value = function_call_param_iterator.next();
-			symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
-			last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
-			
-			if (typeid(*last_type_symbol) == typeid(sint_type_name_c))
-			{
-		
-				symbol_c * return_type_symbol = &search_constant_type_c::byte_type_name;
-				s4o.print("(");
-				return_type_symbol->accept(*this);
-				s4o.print(")");
-				IN_param_value->accept(*this);
-				return NULL;
-				
-			}
-			
-			ERROR;
-		}
-		
-	}/*function_sint_to_byte*/
-	break;
-
-/****
- *SINT_TO_USINT
- */
-	case function_sint_to_usint :
-	{
-		symbol_c *last_type_symbol = NULL;
-
-		{
-			identifier_c param_name("IN");
-			/* Get the value from a foo(<param_name> = <param_value>) style call */
-			symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
-			
-			/* Get the value from a foo(<param_value>) style call */
-			if (IN_param_value == NULL)
-			  IN_param_value = function_call_param_iterator.next();
-			symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
-			last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
-			
-			if (typeid(*last_type_symbol) == typeid(sint_type_name_c))
-			{
-		
-				symbol_c * return_type_symbol = &search_constant_type_c::usint_type_name;
-				s4o.print("(");
-				return_type_symbol->accept(*this);
-				s4o.print(")");
-				IN_param_value->accept(*this);
-				return NULL;
-				
-			}
-			
-			ERROR;
-		}
-		
-	}/*function_sint_to_usint*/
-	break;
-
-/****
- *SINT_TO_ULINT
- */
-	case function_sint_to_ulint :
-	{
-		symbol_c *last_type_symbol = NULL;
-
-		{
-			identifier_c param_name("IN");
-			/* Get the value from a foo(<param_name> = <param_value>) style call */
-			symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
-			
-			/* Get the value from a foo(<param_value>) style call */
-			if (IN_param_value == NULL)
-			  IN_param_value = function_call_param_iterator.next();
-			symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
-			last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
-			
-			if (typeid(*last_type_symbol) == typeid(sint_type_name_c))
-			{
-		
-				symbol_c * return_type_symbol = &search_constant_type_c::ulint_type_name;
-				s4o.print("(");
-				return_type_symbol->accept(*this);
-				s4o.print(")");
-				IN_param_value->accept(*this);
-				return NULL;
-				
-			}
-			
-			ERROR;
-		}
-		
-	}/*function_sint_to_ulint*/
-	break;
-
-/****
- *SINT_TO_BOOL
- */
-	case function_sint_to_bool :
-	{
-		symbol_c *last_type_symbol = NULL;
-
-		{
-			identifier_c param_name("IN");
-			/* Get the value from a foo(<param_name> = <param_value>) style call */
-			symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
-			
-			/* Get the value from a foo(<param_value>) style call */
-			if (IN_param_value == NULL)
-			  IN_param_value = function_call_param_iterator.next();
-			symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
-			last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
-			
-			if (typeid(*last_type_symbol) == typeid(sint_type_name_c))
-			{
-		
-				symbol_c * return_type_symbol = &search_constant_type_c::bool_type_name;
-				s4o.print("(");
-				return_type_symbol->accept(*this);
-				s4o.print(")");
-				IN_param_value->accept(*this);
-				return NULL;
-				
-			}
-			
-			ERROR;
-		}
-		
-	}/*function_sint_to_bool*/
-	break;
-
-/****
- *SINT_TO_TIME
- */
-	case function_sint_to_time :
-	{
-		symbol_c *last_type_symbol = NULL;
-
-		{
-			identifier_c param_name("IN");
-			/* Get the value from a foo(<param_name> = <param_value>) style call */
-			symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
-			
-			/* Get the value from a foo(<param_value>) style call */
-			if (IN_param_value == NULL)
-			  IN_param_value = function_call_param_iterator.next();
-			symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
-			last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
-			
-			if (typeid(*last_type_symbol) == typeid(sint_type_name_c))
-			{
-		
-				symbol_c * return_type_symbol = &search_constant_type_c::time_type_name;
-				s4o.print("(");
-				return_type_symbol->accept(*this);
-				s4o.print(")time_to_real(");
-				IN_param_value->accept(*this);
-				s4o.print(")");
-				return NULL;
-				
-			}
-			
-			ERROR;
-		}
-		
-	}/*function_sint_to_time*/
-	break;
-
-/****
- *SINT_TO_INT
- */
-	case function_sint_to_int :
-	{
-		symbol_c *last_type_symbol = NULL;
-
-		{
-			identifier_c param_name("IN");
-			/* Get the value from a foo(<param_name> = <param_value>) style call */
-			symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
-			
-			/* Get the value from a foo(<param_value>) style call */
-			if (IN_param_value == NULL)
-			  IN_param_value = function_call_param_iterator.next();
-			symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
-			last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
-			
-			if (typeid(*last_type_symbol) == typeid(sint_type_name_c))
-			{
-		
-				symbol_c * return_type_symbol = &search_constant_type_c::int_type_name;
-				s4o.print("(");
-				return_type_symbol->accept(*this);
-				s4o.print(")");
-				IN_param_value->accept(*this);
-				return NULL;
-				
-			}
-			
-			ERROR;
-		}
-		
-	}/*function_sint_to_int*/
-	break;
+    case function_sint_to_dt :
+    {
+        symbol_c *last_type_symbol = NULL;
+
+        {
+            identifier_c param_name("IN");
+            /* Get the value from a foo(<param_name> = <param_value>) style call */
+            symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
+            
+            /* Get the value from a foo(<param_value>) style call */
+            if (IN_param_value == NULL)
+              IN_param_value = function_call_param_iterator.next();
+            symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
+            last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
+            
+            if (typeid(*last_type_symbol) == typeid(sint_type_name_c))
+            {
+        
+                symbol_c * return_type_symbol = &search_constant_type_c::dt_type_name;
+                s4o.print("(");
+                return_type_symbol->accept(*this);
+                s4o.print(")real_to_time(");
+                IN_param_value->accept(*this);
+                s4o.print(")");
+                return NULL;
+                
+            }
+            
+            ERROR;
+        }
+        
+    }/*function_sint_to_dt*/
+    break;
+
+/****
+ *INT_TO_REAL
+ */
+    case function_int_to_real :
+    {
+        symbol_c *last_type_symbol = NULL;
+
+        {
+            identifier_c param_name("IN");
+            /* Get the value from a foo(<param_name> = <param_value>) style call */
+            symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
+            
+            /* Get the value from a foo(<param_value>) style call */
+            if (IN_param_value == NULL)
+              IN_param_value = function_call_param_iterator.next();
+            symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
+            last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
+            
+            if (typeid(*last_type_symbol) == typeid(int_type_name_c))
+            {
+        
+                symbol_c * return_type_symbol = &search_constant_type_c::real_type_name;
+                s4o.print("(");
+                return_type_symbol->accept(*this);
+                s4o.print(")");
+                IN_param_value->accept(*this);
+                return NULL;
+                
+            }
+            
+            ERROR;
+        }
+        
+    }/*function_int_to_real*/
+    break;
+
+/****
+ *INT_TO_LREAL
+ */
+    case function_int_to_lreal :
+    {
+        symbol_c *last_type_symbol = NULL;
+
+        {
+            identifier_c param_name("IN");
+            /* Get the value from a foo(<param_name> = <param_value>) style call */
+            symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
+            
+            /* Get the value from a foo(<param_value>) style call */
+            if (IN_param_value == NULL)
+              IN_param_value = function_call_param_iterator.next();
+            symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
+            last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
+            
+            if (typeid(*last_type_symbol) == typeid(int_type_name_c))
+            {
+        
+                symbol_c * return_type_symbol = &search_constant_type_c::lreal_type_name;
+                s4o.print("(");
+                return_type_symbol->accept(*this);
+                s4o.print(")");
+                IN_param_value->accept(*this);
+                return NULL;
+                
+            }
+            
+            ERROR;
+        }
+        
+    }/*function_int_to_lreal*/
+    break;
+
+/****
+ *INT_TO_SINT
+ */
+    case function_int_to_sint :
+    {
+        symbol_c *last_type_symbol = NULL;
+
+        {
+            identifier_c param_name("IN");
+            /* Get the value from a foo(<param_name> = <param_value>) style call */
+            symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
+            
+            /* Get the value from a foo(<param_value>) style call */
+            if (IN_param_value == NULL)
+              IN_param_value = function_call_param_iterator.next();
+            symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
+            last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
+            
+            if (typeid(*last_type_symbol) == typeid(int_type_name_c))
+            {
+        
+                symbol_c * return_type_symbol = &search_constant_type_c::sint_type_name;
+                s4o.print("(");
+                return_type_symbol->accept(*this);
+                s4o.print(")");
+                IN_param_value->accept(*this);
+                return NULL;
+                
+            }
+            
+            ERROR;
+        }
+        
+    }/*function_int_to_sint*/
+    break;
+
+/****
+ *INT_TO_DINT
+ */
+    case function_int_to_dint :
+    {
+        symbol_c *last_type_symbol = NULL;
+
+        {
+            identifier_c param_name("IN");
+            /* Get the value from a foo(<param_name> = <param_value>) style call */
+            symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
+            
+            /* Get the value from a foo(<param_value>) style call */
+            if (IN_param_value == NULL)
+              IN_param_value = function_call_param_iterator.next();
+            symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
+            last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
+            
+            if (typeid(*last_type_symbol) == typeid(int_type_name_c))
+            {
+        
+                symbol_c * return_type_symbol = &search_constant_type_c::dint_type_name;
+                s4o.print("(");
+                return_type_symbol->accept(*this);
+                s4o.print(")");
+                IN_param_value->accept(*this);
+                return NULL;
+                
+            }
+            
+            ERROR;
+        }
+        
+    }/*function_int_to_dint*/
+    break;
+
+/****
+ *INT_TO_LINT
+ */
+    case function_int_to_lint :
+    {
+        symbol_c *last_type_symbol = NULL;
+
+        {
+            identifier_c param_name("IN");
+            /* Get the value from a foo(<param_name> = <param_value>) style call */
+            symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
+            
+            /* Get the value from a foo(<param_value>) style call */
+            if (IN_param_value == NULL)
+              IN_param_value = function_call_param_iterator.next();
+            symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
+            last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
+            
+            if (typeid(*last_type_symbol) == typeid(int_type_name_c))
+            {
+        
+                symbol_c * return_type_symbol = &search_constant_type_c::lint_type_name;
+                s4o.print("(");
+                return_type_symbol->accept(*this);
+                s4o.print(")");
+                IN_param_value->accept(*this);
+                return NULL;
+                
+            }
+            
+            ERROR;
+        }
+        
+    }/*function_int_to_lint*/
+    break;
+
+/****
+ *INT_TO_USINT
+ */
+    case function_int_to_usint :
+    {
+        symbol_c *last_type_symbol = NULL;
+
+        {
+            identifier_c param_name("IN");
+            /* Get the value from a foo(<param_name> = <param_value>) style call */
+            symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
+            
+            /* Get the value from a foo(<param_value>) style call */
+            if (IN_param_value == NULL)
+              IN_param_value = function_call_param_iterator.next();
+            symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
+            last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
+            
+            if (typeid(*last_type_symbol) == typeid(int_type_name_c))
+            {
+        
+                symbol_c * return_type_symbol = &search_constant_type_c::usint_type_name;
+                s4o.print("(");
+                return_type_symbol->accept(*this);
+                s4o.print(")");
+                IN_param_value->accept(*this);
+                return NULL;
+                
+            }
+            
+            ERROR;
+        }
+        
+    }/*function_int_to_usint*/
+    break;
+
+/****
+ *INT_TO_UINT
+ */
+    case function_int_to_uint :
+    {
+        symbol_c *last_type_symbol = NULL;
+
+        {
+            identifier_c param_name("IN");
+            /* Get the value from a foo(<param_name> = <param_value>) style call */
+            symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
+            
+            /* Get the value from a foo(<param_value>) style call */
+            if (IN_param_value == NULL)
+              IN_param_value = function_call_param_iterator.next();
+            symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
+            last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
+            
+            if (typeid(*last_type_symbol) == typeid(int_type_name_c))
+            {
+        
+                symbol_c * return_type_symbol = &search_constant_type_c::uint_type_name;
+                s4o.print("(");
+                return_type_symbol->accept(*this);
+                s4o.print(")");
+                IN_param_value->accept(*this);
+                return NULL;
+                
+            }
+            
+            ERROR;
+        }
+        
+    }/*function_int_to_uint*/
+    break;
+
+/****
+ *INT_TO_UDINT
+ */
+    case function_int_to_udint :
+    {
+        symbol_c *last_type_symbol = NULL;
+
+        {
+            identifier_c param_name("IN");
+            /* Get the value from a foo(<param_name> = <param_value>) style call */
+            symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
+            
+            /* Get the value from a foo(<param_value>) style call */
+            if (IN_param_value == NULL)
+              IN_param_value = function_call_param_iterator.next();
+            symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
+            last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
+            
+            if (typeid(*last_type_symbol) == typeid(int_type_name_c))
+            {
+        
+                symbol_c * return_type_symbol = &search_constant_type_c::udint_type_name;
+                s4o.print("(");
+                return_type_symbol->accept(*this);
+                s4o.print(")");
+                IN_param_value->accept(*this);
+                return NULL;
+                
+            }
+            
+            ERROR;
+        }
+        
+    }/*function_int_to_udint*/
+    break;
+
+/****
+ *INT_TO_ULINT
+ */
+    case function_int_to_ulint :
+    {
+        symbol_c *last_type_symbol = NULL;
+
+        {
+            identifier_c param_name("IN");
+            /* Get the value from a foo(<param_name> = <param_value>) style call */
+            symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
+            
+            /* Get the value from a foo(<param_value>) style call */
+            if (IN_param_value == NULL)
+              IN_param_value = function_call_param_iterator.next();
+            symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
+            last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
+            
+            if (typeid(*last_type_symbol) == typeid(int_type_name_c))
+            {
+        
+                symbol_c * return_type_symbol = &search_constant_type_c::ulint_type_name;
+                s4o.print("(");
+                return_type_symbol->accept(*this);
+                s4o.print(")");
+                IN_param_value->accept(*this);
+                return NULL;
+                
+            }
+            
+            ERROR;
+        }
+        
+    }/*function_int_to_ulint*/
+    break;
+
+/****
+ *INT_TO_TIME
+ */
+    case function_int_to_time :
+    {
+        symbol_c *last_type_symbol = NULL;
+
+        {
+            identifier_c param_name("IN");
+            /* Get the value from a foo(<param_name> = <param_value>) style call */
+            symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
+            
+            /* Get the value from a foo(<param_value>) style call */
+            if (IN_param_value == NULL)
+              IN_param_value = function_call_param_iterator.next();
+            symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
+            last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
+            
+            if (typeid(*last_type_symbol) == typeid(int_type_name_c))
+            {
+        
+                symbol_c * return_type_symbol = &search_constant_type_c::time_type_name;
+                s4o.print("(");
+                return_type_symbol->accept(*this);
+                s4o.print(")real_to_time(");
+                IN_param_value->accept(*this);
+                s4o.print(")");
+                return NULL;
+                
+            }
+            
+            ERROR;
+        }
+        
+    }/*function_int_to_time*/
+    break;
+
+/****
+ *INT_TO_BOOL
+ */
+    case function_int_to_bool :
+    {
+        symbol_c *last_type_symbol = NULL;
+
+        {
+            identifier_c param_name("IN");
+            /* Get the value from a foo(<param_name> = <param_value>) style call */
+            symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
+            
+            /* Get the value from a foo(<param_value>) style call */
+            if (IN_param_value == NULL)
+              IN_param_value = function_call_param_iterator.next();
+            symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
+            last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
+            
+            if (typeid(*last_type_symbol) == typeid(int_type_name_c))
+            {
+        
+                symbol_c * return_type_symbol = &search_constant_type_c::bool_type_name;
+                s4o.print("(");
+                return_type_symbol->accept(*this);
+                s4o.print(")");
+                IN_param_value->accept(*this);
+                return NULL;
+                
+            }
+            
+            ERROR;
+        }
+        
+    }/*function_int_to_bool*/
+    break;
+
+/****
+ *INT_TO_BYTE
+ */
+    case function_int_to_byte :
+    {
+        symbol_c *last_type_symbol = NULL;
+
+        {
+            identifier_c param_name("IN");
+            /* Get the value from a foo(<param_name> = <param_value>) style call */
+            symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
+            
+            /* Get the value from a foo(<param_value>) style call */
+            if (IN_param_value == NULL)
+              IN_param_value = function_call_param_iterator.next();
+            symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
+            last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
+            
+            if (typeid(*last_type_symbol) == typeid(int_type_name_c))
+            {
+        
+                symbol_c * return_type_symbol = &search_constant_type_c::byte_type_name;
+                s4o.print("(");
+                return_type_symbol->accept(*this);
+                s4o.print(")");
+                IN_param_value->accept(*this);
+                return NULL;
+                
+            }
+            
+            ERROR;
+        }
+        
+    }/*function_int_to_byte*/
+    break;
+
+/****
+ *INT_TO_WORD
+ */
+    case function_int_to_word :
+    {
+        symbol_c *last_type_symbol = NULL;
+
+        {
+            identifier_c param_name("IN");
+            /* Get the value from a foo(<param_name> = <param_value>) style call */
+            symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
+            
+            /* Get the value from a foo(<param_value>) style call */
+            if (IN_param_value == NULL)
+              IN_param_value = function_call_param_iterator.next();
+            symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
+            last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
+            
+            if (typeid(*last_type_symbol) == typeid(int_type_name_c))
+            {
+        
+                symbol_c * return_type_symbol = &search_constant_type_c::word_type_name;
+                s4o.print("(");
+                return_type_symbol->accept(*this);
+                s4o.print(")");
+                IN_param_value->accept(*this);
+                return NULL;
+                
+            }
+            
+            ERROR;
+        }
+        
+    }/*function_int_to_word*/
+    break;
+
+/****
+ *INT_TO_DWORD
+ */
+    case function_int_to_dword :
+    {
+        symbol_c *last_type_symbol = NULL;
+
+        {
+            identifier_c param_name("IN");
+            /* Get the value from a foo(<param_name> = <param_value>) style call */
+            symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
+            
+            /* Get the value from a foo(<param_value>) style call */
+            if (IN_param_value == NULL)
+              IN_param_value = function_call_param_iterator.next();
+            symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
+            last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
+            
+            if (typeid(*last_type_symbol) == typeid(int_type_name_c))
+            {
+        
+                symbol_c * return_type_symbol = &search_constant_type_c::dword_type_name;
+                s4o.print("(");
+                return_type_symbol->accept(*this);
+                s4o.print(")");
+                IN_param_value->accept(*this);
+                return NULL;
+                
+            }
+            
+            ERROR;
+        }
+        
+    }/*function_int_to_dword*/
+    break;
+
+/****
+ *INT_TO_LWORD
+ */
+    case function_int_to_lword :
+    {
+        symbol_c *last_type_symbol = NULL;
+
+        {
+            identifier_c param_name("IN");
+            /* Get the value from a foo(<param_name> = <param_value>) style call */
+            symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
+            
+            /* Get the value from a foo(<param_value>) style call */
+            if (IN_param_value == NULL)
+              IN_param_value = function_call_param_iterator.next();
+            symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
+            last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
+            
+            if (typeid(*last_type_symbol) == typeid(int_type_name_c))
+            {
+        
+                symbol_c * return_type_symbol = &search_constant_type_c::lword_type_name;
+                s4o.print("(");
+                return_type_symbol->accept(*this);
+                s4o.print(")");
+                IN_param_value->accept(*this);
+                return NULL;
+                
+            }
+            
+            ERROR;
+        }
+        
+    }/*function_int_to_lword*/
+    break;
+
+/****
+ *INT_TO_STRING
+ */
+    case function_int_to_string :
+    {
+        symbol_c *last_type_symbol = NULL;
+
+        {
+            identifier_c param_name("IN");
+            /* Get the value from a foo(<param_name> = <param_value>) style call */
+            symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
+            
+            /* Get the value from a foo(<param_value>) style call */
+            if (IN_param_value == NULL)
+              IN_param_value = function_call_param_iterator.next();
+            symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
+            last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
+            
+            if (typeid(*last_type_symbol) == typeid(int_type_name_c))
+            {
+        
+                symbol_c * return_type_symbol = &search_constant_type_c::string_type_name;
+                s4o.print("(");
+                return_type_symbol->accept(*this);
+                s4o.print(")int_to_string(");
+                IN_param_value->accept(*this);
+                s4o.print(", 10)");
+                return NULL;
+                
+            }
+            
+            ERROR;
+        }
+        
+    }/*function_int_to_string*/
+    break;
+
+/****
+ *INT_TO_WSTRING
+ */
+    case function_int_to_wstring :
+    {
+        symbol_c *last_type_symbol = NULL;
+
+        {
+            identifier_c param_name("IN");
+            /* Get the value from a foo(<param_name> = <param_value>) style call */
+            symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
+            
+            /* Get the value from a foo(<param_value>) style call */
+            if (IN_param_value == NULL)
+              IN_param_value = function_call_param_iterator.next();
+            symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
+            last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
+            
+            if (typeid(*last_type_symbol) == typeid(int_type_name_c))
+            {
+        
+                symbol_c * return_type_symbol = &search_constant_type_c::wstring_type_name;
+                s4o.print("(");
+                return_type_symbol->accept(*this);
+                s4o.print(")int_to_string(");
+                IN_param_value->accept(*this);
+                s4o.print(", 10)");
+                return NULL;
+                
+            }
+            
+            ERROR;
+        }
+        
+    }/*function_int_to_wstring*/
+    break;
+
+/****
+ *INT_TO_DATE
+ */
+    case function_int_to_date :
+    {
+        symbol_c *last_type_symbol = NULL;
+
+        {
+            identifier_c param_name("IN");
+            /* Get the value from a foo(<param_name> = <param_value>) style call */
+            symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
+            
+            /* Get the value from a foo(<param_value>) style call */
+            if (IN_param_value == NULL)
+              IN_param_value = function_call_param_iterator.next();
+            symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
+            last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
+            
+            if (typeid(*last_type_symbol) == typeid(int_type_name_c))
+            {
+        
+                symbol_c * return_type_symbol = &search_constant_type_c::date_type_name;
+                s4o.print("(");
+                return_type_symbol->accept(*this);
+                s4o.print(")real_to_time(");
+                IN_param_value->accept(*this);
+                s4o.print(")");
+                return NULL;
+                
+            }
+            
+            ERROR;
+        }
+        
+    }/*function_int_to_date*/
+    break;
+
+/****
+ *INT_TO_TOD
+ */
+    case function_int_to_tod :
+    {
+        symbol_c *last_type_symbol = NULL;
+
+        {
+            identifier_c param_name("IN");
+            /* Get the value from a foo(<param_name> = <param_value>) style call */
+            symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
+            
+            /* Get the value from a foo(<param_value>) style call */
+            if (IN_param_value == NULL)
+              IN_param_value = function_call_param_iterator.next();
+            symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
+            last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
+            
+            if (typeid(*last_type_symbol) == typeid(int_type_name_c))
+            {
+        
+                symbol_c * return_type_symbol = &search_constant_type_c::tod_type_name;
+                s4o.print("(");
+                return_type_symbol->accept(*this);
+                s4o.print(")real_to_time(");
+                IN_param_value->accept(*this);
+                s4o.print(")");
+                return NULL;
+                
+            }
+            
+            ERROR;
+        }
+        
+    }/*function_int_to_tod*/
+    break;
+
+/****
+ *INT_TO_DT
+ */
+    case function_int_to_dt :
+    {
+        symbol_c *last_type_symbol = NULL;
+
+        {
+            identifier_c param_name("IN");
+            /* Get the value from a foo(<param_name> = <param_value>) style call */
+            symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
+            
+            /* Get the value from a foo(<param_value>) style call */
+            if (IN_param_value == NULL)
+              IN_param_value = function_call_param_iterator.next();
+            symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
+            last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
+            
+            if (typeid(*last_type_symbol) == typeid(int_type_name_c))
+            {
+        
+                symbol_c * return_type_symbol = &search_constant_type_c::dt_type_name;
+                s4o.print("(");
+                return_type_symbol->accept(*this);
+                s4o.print(")real_to_time(");
+                IN_param_value->accept(*this);
+                s4o.print(")");
+                return NULL;
+                
+            }
+            
+            ERROR;
+        }
+        
+    }/*function_int_to_dt*/
+    break;
+
+/****
+ *DINT_TO_REAL
+ */
+    case function_dint_to_real :
+    {
+        symbol_c *last_type_symbol = NULL;
+
+        {
+            identifier_c param_name("IN");
+            /* Get the value from a foo(<param_name> = <param_value>) style call */
+            symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
+            
+            /* Get the value from a foo(<param_value>) style call */
+            if (IN_param_value == NULL)
+              IN_param_value = function_call_param_iterator.next();
+            symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
+            last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
+            
+            if (typeid(*last_type_symbol) == typeid(dint_type_name_c))
+            {
+        
+                symbol_c * return_type_symbol = &search_constant_type_c::real_type_name;
+                s4o.print("(");
+                return_type_symbol->accept(*this);
+                s4o.print(")");
+                IN_param_value->accept(*this);
+                return NULL;
+                
+            }
+            
+            ERROR;
+        }
+        
+    }/*function_dint_to_real*/
+    break;
+
+/****
+ *DINT_TO_LREAL
+ */
+    case function_dint_to_lreal :
+    {
+        symbol_c *last_type_symbol = NULL;
+
+        {
+            identifier_c param_name("IN");
+            /* Get the value from a foo(<param_name> = <param_value>) style call */
+            symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
+            
+            /* Get the value from a foo(<param_value>) style call */
+            if (IN_param_value == NULL)
+              IN_param_value = function_call_param_iterator.next();
+            symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
+            last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
+            
+            if (typeid(*last_type_symbol) == typeid(dint_type_name_c))
+            {
+        
+                symbol_c * return_type_symbol = &search_constant_type_c::lreal_type_name;
+                s4o.print("(");
+                return_type_symbol->accept(*this);
+                s4o.print(")");
+                IN_param_value->accept(*this);
+                return NULL;
+                
+            }
+            
+            ERROR;
+        }
+        
+    }/*function_dint_to_lreal*/
+    break;
+
+/****
+ *DINT_TO_SINT
+ */
+    case function_dint_to_sint :
+    {
+        symbol_c *last_type_symbol = NULL;
+
+        {
+            identifier_c param_name("IN");
+            /* Get the value from a foo(<param_name> = <param_value>) style call */
+            symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
+            
+            /* Get the value from a foo(<param_value>) style call */
+            if (IN_param_value == NULL)
+              IN_param_value = function_call_param_iterator.next();
+            symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
+            last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
+            
+            if (typeid(*last_type_symbol) == typeid(dint_type_name_c))
+            {
+        
+                symbol_c * return_type_symbol = &search_constant_type_c::sint_type_name;
+                s4o.print("(");
+                return_type_symbol->accept(*this);
+                s4o.print(")");
+                IN_param_value->accept(*this);
+                return NULL;
+                
+            }
+            
+            ERROR;
+        }
+        
+    }/*function_dint_to_sint*/
+    break;
+
+/****
+ *DINT_TO_INT
+ */
+    case function_dint_to_int :
+    {
+        symbol_c *last_type_symbol = NULL;
+
+        {
+            identifier_c param_name("IN");
+            /* Get the value from a foo(<param_name> = <param_value>) style call */
+            symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
+            
+            /* Get the value from a foo(<param_value>) style call */
+            if (IN_param_value == NULL)
+              IN_param_value = function_call_param_iterator.next();
+            symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
+            last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
+            
+            if (typeid(*last_type_symbol) == typeid(dint_type_name_c))
+            {
+        
+                symbol_c * return_type_symbol = &search_constant_type_c::int_type_name;
+                s4o.print("(");
+                return_type_symbol->accept(*this);
+                s4o.print(")");
+                IN_param_value->accept(*this);
+                return NULL;
+                
+            }
+            
+            ERROR;
+        }
+        
+    }/*function_dint_to_int*/
+    break;
+
+/****
+ *DINT_TO_LINT
+ */
+    case function_dint_to_lint :
+    {
+        symbol_c *last_type_symbol = NULL;
+
+        {
+            identifier_c param_name("IN");
+            /* Get the value from a foo(<param_name> = <param_value>) style call */
+            symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
+            
+            /* Get the value from a foo(<param_value>) style call */
+            if (IN_param_value == NULL)
+              IN_param_value = function_call_param_iterator.next();
+            symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
+            last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
+            
+            if (typeid(*last_type_symbol) == typeid(dint_type_name_c))
+            {
+        
+                symbol_c * return_type_symbol = &search_constant_type_c::lint_type_name;
+                s4o.print("(");
+                return_type_symbol->accept(*this);
+                s4o.print(")");
+                IN_param_value->accept(*this);
+                return NULL;
+                
+            }
+            
+            ERROR;
+        }
+        
+    }/*function_dint_to_lint*/
+    break;
+
+/****
+ *DINT_TO_USINT
+ */
+    case function_dint_to_usint :
+    {
+        symbol_c *last_type_symbol = NULL;
+
+        {
+            identifier_c param_name("IN");
+            /* Get the value from a foo(<param_name> = <param_value>) style call */
+            symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
+            
+            /* Get the value from a foo(<param_value>) style call */
+            if (IN_param_value == NULL)
+              IN_param_value = function_call_param_iterator.next();
+            symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
+            last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
+            
+            if (typeid(*last_type_symbol) == typeid(dint_type_name_c))
+            {
+        
+                symbol_c * return_type_symbol = &search_constant_type_c::usint_type_name;
+                s4o.print("(");
+                return_type_symbol->accept(*this);
+                s4o.print(")");
+                IN_param_value->accept(*this);
+                return NULL;
+                
+            }
+            
+            ERROR;
+        }
+        
+    }/*function_dint_to_usint*/
+    break;
+
+/****
+ *DINT_TO_UINT
+ */
+    case function_dint_to_uint :
+    {
+        symbol_c *last_type_symbol = NULL;
+
+        {
+            identifier_c param_name("IN");
+            /* Get the value from a foo(<param_name> = <param_value>) style call */
+            symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
+            
+            /* Get the value from a foo(<param_value>) style call */
+            if (IN_param_value == NULL)
+              IN_param_value = function_call_param_iterator.next();
+            symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
+            last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
+            
+            if (typeid(*last_type_symbol) == typeid(dint_type_name_c))
+            {
+        
+                symbol_c * return_type_symbol = &search_constant_type_c::uint_type_name;
+                s4o.print("(");
+                return_type_symbol->accept(*this);
+                s4o.print(")");
+                IN_param_value->accept(*this);
+                return NULL;
+                
+            }
+            
+            ERROR;
+        }
+        
+    }/*function_dint_to_uint*/
+    break;
+
+/****
+ *DINT_TO_UDINT
+ */
+    case function_dint_to_udint :
+    {
+        symbol_c *last_type_symbol = NULL;
+
+        {
+            identifier_c param_name("IN");
+            /* Get the value from a foo(<param_name> = <param_value>) style call */
+            symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
+            
+            /* Get the value from a foo(<param_value>) style call */
+            if (IN_param_value == NULL)
+              IN_param_value = function_call_param_iterator.next();
+            symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
+            last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
+            
+            if (typeid(*last_type_symbol) == typeid(dint_type_name_c))
+            {
+        
+                symbol_c * return_type_symbol = &search_constant_type_c::udint_type_name;
+                s4o.print("(");
+                return_type_symbol->accept(*this);
+                s4o.print(")");
+                IN_param_value->accept(*this);
+                return NULL;
+                
+            }
+            
+            ERROR;
+        }
+        
+    }/*function_dint_to_udint*/
+    break;
+
+/****
+ *DINT_TO_ULINT
+ */
+    case function_dint_to_ulint :
+    {
+        symbol_c *last_type_symbol = NULL;
+
+        {
+            identifier_c param_name("IN");
+            /* Get the value from a foo(<param_name> = <param_value>) style call */
+            symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
+            
+            /* Get the value from a foo(<param_value>) style call */
+            if (IN_param_value == NULL)
+              IN_param_value = function_call_param_iterator.next();
+            symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
+            last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
+            
+            if (typeid(*last_type_symbol) == typeid(dint_type_name_c))
+            {
+        
+                symbol_c * return_type_symbol = &search_constant_type_c::ulint_type_name;
+                s4o.print("(");
+                return_type_symbol->accept(*this);
+                s4o.print(")");
+                IN_param_value->accept(*this);
+                return NULL;
+                
+            }
+            
+            ERROR;
+        }
+        
+    }/*function_dint_to_ulint*/
+    break;
+
+/****
+ *DINT_TO_TIME
+ */
+    case function_dint_to_time :
+    {
+        symbol_c *last_type_symbol = NULL;
+
+        {
+            identifier_c param_name("IN");
+            /* Get the value from a foo(<param_name> = <param_value>) style call */
+            symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
+            
+            /* Get the value from a foo(<param_value>) style call */
+            if (IN_param_value == NULL)
+              IN_param_value = function_call_param_iterator.next();
+            symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
+            last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
+            
+            if (typeid(*last_type_symbol) == typeid(dint_type_name_c))
+            {
+        
+                symbol_c * return_type_symbol = &search_constant_type_c::time_type_name;
+                s4o.print("(");
+                return_type_symbol->accept(*this);
+                s4o.print(")real_to_time(");
+                IN_param_value->accept(*this);
+                s4o.print(")");
+                return NULL;
+                
+            }
+            
+            ERROR;
+        }
+        
+    }/*function_dint_to_time*/
+    break;
+
+/****
+ *DINT_TO_BOOL
+ */
+    case function_dint_to_bool :
+    {
+        symbol_c *last_type_symbol = NULL;
+
+        {
+            identifier_c param_name("IN");
+            /* Get the value from a foo(<param_name> = <param_value>) style call */
+            symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
+            
+            /* Get the value from a foo(<param_value>) style call */
+            if (IN_param_value == NULL)
+              IN_param_value = function_call_param_iterator.next();
+            symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
+            last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
+            
+            if (typeid(*last_type_symbol) == typeid(dint_type_name_c))
+            {
+        
+                symbol_c * return_type_symbol = &search_constant_type_c::bool_type_name;
+                s4o.print("(");
+                return_type_symbol->accept(*this);
+                s4o.print(")");
+                IN_param_value->accept(*this);
+                return NULL;
+                
+            }
+            
+            ERROR;
+        }
+        
+    }/*function_dint_to_bool*/
+    break;
+
+/****
+ *DINT_TO_BYTE
+ */
+    case function_dint_to_byte :
+    {
+        symbol_c *last_type_symbol = NULL;
+
+        {
+            identifier_c param_name("IN");
+            /* Get the value from a foo(<param_name> = <param_value>) style call */
+            symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
+            
+            /* Get the value from a foo(<param_value>) style call */
+            if (IN_param_value == NULL)
+              IN_param_value = function_call_param_iterator.next();
+            symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
+            last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
+            
+            if (typeid(*last_type_symbol) == typeid(dint_type_name_c))
+            {
+        
+                symbol_c * return_type_symbol = &search_constant_type_c::byte_type_name;
+                s4o.print("(");
+                return_type_symbol->accept(*this);
+                s4o.print(")");
+                IN_param_value->accept(*this);
+                return NULL;
+                
+            }
+            
+            ERROR;
+        }
+        
+    }/*function_dint_to_byte*/
+    break;
+
+/****
+ *DINT_TO_WORD
+ */
+    case function_dint_to_word :
+    {
+        symbol_c *last_type_symbol = NULL;
+
+        {
+            identifier_c param_name("IN");
+            /* Get the value from a foo(<param_name> = <param_value>) style call */
+            symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
+            
+            /* Get the value from a foo(<param_value>) style call */
+            if (IN_param_value == NULL)
+              IN_param_value = function_call_param_iterator.next();
+            symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
+            last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
+            
+            if (typeid(*last_type_symbol) == typeid(dint_type_name_c))
+            {
+        
+                symbol_c * return_type_symbol = &search_constant_type_c::word_type_name;
+                s4o.print("(");
+                return_type_symbol->accept(*this);
+                s4o.print(")");
+                IN_param_value->accept(*this);
+                return NULL;
+                
+            }
+            
+            ERROR;
+        }
+        
+    }/*function_dint_to_word*/
+    break;
+
+/****
+ *DINT_TO_DWORD
+ */
+    case function_dint_to_dword :
+    {
+        symbol_c *last_type_symbol = NULL;
+
+        {
+            identifier_c param_name("IN");
+            /* Get the value from a foo(<param_name> = <param_value>) style call */
+            symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
+            
+            /* Get the value from a foo(<param_value>) style call */
+            if (IN_param_value == NULL)
+              IN_param_value = function_call_param_iterator.next();
+            symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
+            last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
+            
+            if (typeid(*last_type_symbol) == typeid(dint_type_name_c))
+            {
+        
+                symbol_c * return_type_symbol = &search_constant_type_c::dword_type_name;
+                s4o.print("(");
+                return_type_symbol->accept(*this);
+                s4o.print(")");
+                IN_param_value->accept(*this);
+                return NULL;
+                
+            }
+            
+            ERROR;
+        }
+        
+    }/*function_dint_to_dword*/
+    break;
+
+/****
+ *DINT_TO_LWORD
+ */
+    case function_dint_to_lword :
+    {
+        symbol_c *last_type_symbol = NULL;
+
+        {
+            identifier_c param_name("IN");
+            /* Get the value from a foo(<param_name> = <param_value>) style call */
+            symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
+            
+            /* Get the value from a foo(<param_value>) style call */
+            if (IN_param_value == NULL)
+              IN_param_value = function_call_param_iterator.next();
+            symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
+            last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
+            
+            if (typeid(*last_type_symbol) == typeid(dint_type_name_c))
+            {
+        
+                symbol_c * return_type_symbol = &search_constant_type_c::lword_type_name;
+                s4o.print("(");
+                return_type_symbol->accept(*this);
+                s4o.print(")");
+                IN_param_value->accept(*this);
+                return NULL;
+                
+            }
+            
+            ERROR;
+        }
+        
+    }/*function_dint_to_lword*/
+    break;
+
+/****
+ *DINT_TO_STRING
+ */
+    case function_dint_to_string :
+    {
+        symbol_c *last_type_symbol = NULL;
+
+        {
+            identifier_c param_name("IN");
+            /* Get the value from a foo(<param_name> = <param_value>) style call */
+            symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
+            
+            /* Get the value from a foo(<param_value>) style call */
+            if (IN_param_value == NULL)
+              IN_param_value = function_call_param_iterator.next();
+            symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
+            last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
+            
+            if (typeid(*last_type_symbol) == typeid(dint_type_name_c))
+            {
+        
+                symbol_c * return_type_symbol = &search_constant_type_c::string_type_name;
+                s4o.print("(");
+                return_type_symbol->accept(*this);
+                s4o.print(")int_to_string(");
+                IN_param_value->accept(*this);
+                s4o.print(", 10)");
+                return NULL;
+                
+            }
+            
+            ERROR;
+        }
+        
+    }/*function_dint_to_string*/
+    break;
+
+/****
+ *DINT_TO_WSTRING
+ */
+    case function_dint_to_wstring :
+    {
+        symbol_c *last_type_symbol = NULL;
+
+        {
+            identifier_c param_name("IN");
+            /* Get the value from a foo(<param_name> = <param_value>) style call */
+            symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
+            
+            /* Get the value from a foo(<param_value>) style call */
+            if (IN_param_value == NULL)
+              IN_param_value = function_call_param_iterator.next();
+            symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
+            last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
+            
+            if (typeid(*last_type_symbol) == typeid(dint_type_name_c))
+            {
+        
+                symbol_c * return_type_symbol = &search_constant_type_c::wstring_type_name;
+                s4o.print("(");
+                return_type_symbol->accept(*this);
+                s4o.print(")int_to_string(");
+                IN_param_value->accept(*this);
+                s4o.print(", 10)");
+                return NULL;
+                
+            }
+            
+            ERROR;
+        }
+        
+    }/*function_dint_to_wstring*/
+    break;
+
+/****
+ *DINT_TO_DATE
+ */
+    case function_dint_to_date :
+    {
+        symbol_c *last_type_symbol = NULL;
+
+        {
+            identifier_c param_name("IN");
+            /* Get the value from a foo(<param_name> = <param_value>) style call */
+            symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
+            
+            /* Get the value from a foo(<param_value>) style call */
+            if (IN_param_value == NULL)
+              IN_param_value = function_call_param_iterator.next();
+            symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
+            last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
+            
+            if (typeid(*last_type_symbol) == typeid(dint_type_name_c))
+            {
+        
+                symbol_c * return_type_symbol = &search_constant_type_c::date_type_name;
+                s4o.print("(");
+                return_type_symbol->accept(*this);
+                s4o.print(")real_to_time(");
+                IN_param_value->accept(*this);
+                s4o.print(")");
+                return NULL;
+                
+            }
+            
+            ERROR;
+        }
+        
+    }/*function_dint_to_date*/
+    break;
+
+/****
+ *DINT_TO_TOD
+ */
+    case function_dint_to_tod :
+    {
+        symbol_c *last_type_symbol = NULL;
+
+        {
+            identifier_c param_name("IN");
+            /* Get the value from a foo(<param_name> = <param_value>) style call */
+            symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
+            
+            /* Get the value from a foo(<param_value>) style call */
+            if (IN_param_value == NULL)
+              IN_param_value = function_call_param_iterator.next();
+            symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
+            last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
+            
+            if (typeid(*last_type_symbol) == typeid(dint_type_name_c))
+            {
+        
+                symbol_c * return_type_symbol = &search_constant_type_c::tod_type_name;
+                s4o.print("(");
+                return_type_symbol->accept(*this);
+                s4o.print(")real_to_time(");
+                IN_param_value->accept(*this);
+                s4o.print(")");
+                return NULL;
+                
+            }
+            
+            ERROR;
+        }
+        
+    }/*function_dint_to_tod*/
+    break;
+
+/****
+ *DINT_TO_DT
+ */
+    case function_dint_to_dt :
+    {
+        symbol_c *last_type_symbol = NULL;
+
+        {
+            identifier_c param_name("IN");
+            /* Get the value from a foo(<param_name> = <param_value>) style call */
+            symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
+            
+            /* Get the value from a foo(<param_value>) style call */
+            if (IN_param_value == NULL)
+              IN_param_value = function_call_param_iterator.next();
+            symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
+            last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
+            
+            if (typeid(*last_type_symbol) == typeid(dint_type_name_c))
+            {
+        
+                symbol_c * return_type_symbol = &search_constant_type_c::dt_type_name;
+                s4o.print("(");
+                return_type_symbol->accept(*this);
+                s4o.print(")real_to_time(");
+                IN_param_value->accept(*this);
+                s4o.print(")");
+                return NULL;
+                
+            }
+            
+            ERROR;
+        }
+        
+    }/*function_dint_to_dt*/
+    break;
 
 /****
  *LINT_TO_REAL
  */
-	case function_lint_to_real :
-	{
-		symbol_c *last_type_symbol = NULL;
-
-		{
-			identifier_c param_name("IN");
-			/* Get the value from a foo(<param_name> = <param_value>) style call */
-			symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
-			
-			/* Get the value from a foo(<param_value>) style call */
-			if (IN_param_value == NULL)
-			  IN_param_value = function_call_param_iterator.next();
-			symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
-			last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
-			
-			if (typeid(*last_type_symbol) == typeid(lint_type_name_c))
-			{
-		
-				symbol_c * return_type_symbol = &search_constant_type_c::real_type_name;
-				s4o.print("(");
-				return_type_symbol->accept(*this);
-				s4o.print(")");
-				IN_param_value->accept(*this);
-				return NULL;
-				
-			}
-			
-			ERROR;
-		}
-		
-	}/*function_lint_to_real*/
-	break;
+    case function_lint_to_real :
+    {
+        symbol_c *last_type_symbol = NULL;
+
+        {
+            identifier_c param_name("IN");
+            /* Get the value from a foo(<param_name> = <param_value>) style call */
+            symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
+            
+            /* Get the value from a foo(<param_value>) style call */
+            if (IN_param_value == NULL)
+              IN_param_value = function_call_param_iterator.next();
+            symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
+            last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
+            
+            if (typeid(*last_type_symbol) == typeid(lint_type_name_c))
+            {
+        
+                symbol_c * return_type_symbol = &search_constant_type_c::real_type_name;
+                s4o.print("(");
+                return_type_symbol->accept(*this);
+                s4o.print(")");
+                IN_param_value->accept(*this);
+                return NULL;
+                
+            }
+            
+            ERROR;
+        }
+        
+    }/*function_lint_to_real*/
+    break;
+
+/****
+ *LINT_TO_LREAL
+ */
+    case function_lint_to_lreal :
+    {
+        symbol_c *last_type_symbol = NULL;
+
+        {
+            identifier_c param_name("IN");
+            /* Get the value from a foo(<param_name> = <param_value>) style call */
+            symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
+            
+            /* Get the value from a foo(<param_value>) style call */
+            if (IN_param_value == NULL)
+              IN_param_value = function_call_param_iterator.next();
+            symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
+            last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
+            
+            if (typeid(*last_type_symbol) == typeid(lint_type_name_c))
+            {
+        
+                symbol_c * return_type_symbol = &search_constant_type_c::lreal_type_name;
+                s4o.print("(");
+                return_type_symbol->accept(*this);
+                s4o.print(")");
+                IN_param_value->accept(*this);
+                return NULL;
+                
+            }
+            
+            ERROR;
+        }
+        
+    }/*function_lint_to_lreal*/
+    break;
 
 /****
  *LINT_TO_SINT
  */
-	case function_lint_to_sint :
-	{
-		symbol_c *last_type_symbol = NULL;
-
-		{
-			identifier_c param_name("IN");
-			/* Get the value from a foo(<param_name> = <param_value>) style call */
-			symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
-			
-			/* Get the value from a foo(<param_value>) style call */
-			if (IN_param_value == NULL)
-			  IN_param_value = function_call_param_iterator.next();
-			symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
-			last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
-			
-			if (typeid(*last_type_symbol) == typeid(lint_type_name_c))
-			{
-		
-				symbol_c * return_type_symbol = &search_constant_type_c::sint_type_name;
-				s4o.print("(");
-				return_type_symbol->accept(*this);
-				s4o.print(")");
-				IN_param_value->accept(*this);
-				return NULL;
-				
-			}
-			
-			ERROR;
-		}
-		
-	}/*function_lint_to_sint*/
-	break;
-
-/****
- *LINT_TO_LINT
- */
-	case function_lint_to_lint :
-	{
-		symbol_c *last_type_symbol = NULL;
-
-		{
-			identifier_c param_name("IN");
-			/* Get the value from a foo(<param_name> = <param_value>) style call */
-			symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
-			
-			/* Get the value from a foo(<param_value>) style call */
-			if (IN_param_value == NULL)
-			  IN_param_value = function_call_param_iterator.next();
-			symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
-			last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
-			
-			if (typeid(*last_type_symbol) == typeid(lint_type_name_c))
-			{
-		
-				symbol_c * return_type_symbol = &search_constant_type_c::lint_type_name;
-				s4o.print("(");
-				return_type_symbol->accept(*this);
-				s4o.print(")");
-				IN_param_value->accept(*this);
-				return NULL;
-				
-			}
-			
-			ERROR;
-		}
-		
-	}/*function_lint_to_lint*/
-	break;
+    case function_lint_to_sint :
+    {
+        symbol_c *last_type_symbol = NULL;
+
+        {
+            identifier_c param_name("IN");
+            /* Get the value from a foo(<param_name> = <param_value>) style call */
+            symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
+            
+            /* Get the value from a foo(<param_value>) style call */
+            if (IN_param_value == NULL)
+              IN_param_value = function_call_param_iterator.next();
+            symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
+            last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
+            
+            if (typeid(*last_type_symbol) == typeid(lint_type_name_c))
+            {
+        
+                symbol_c * return_type_symbol = &search_constant_type_c::sint_type_name;
+                s4o.print("(");
+                return_type_symbol->accept(*this);
+                s4o.print(")");
+                IN_param_value->accept(*this);
+                return NULL;
+                
+            }
+            
+            ERROR;
+        }
+        
+    }/*function_lint_to_sint*/
+    break;
+
+/****
+ *LINT_TO_INT
+ */
+    case function_lint_to_int :
+    {
+        symbol_c *last_type_symbol = NULL;
+
+        {
+            identifier_c param_name("IN");
+            /* Get the value from a foo(<param_name> = <param_value>) style call */
+            symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
+            
+            /* Get the value from a foo(<param_value>) style call */
+            if (IN_param_value == NULL)
+              IN_param_value = function_call_param_iterator.next();
+            symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
+            last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
+            
+            if (typeid(*last_type_symbol) == typeid(lint_type_name_c))
+            {
+        
+                symbol_c * return_type_symbol = &search_constant_type_c::int_type_name;
+                s4o.print("(");
+                return_type_symbol->accept(*this);
+                s4o.print(")");
+                IN_param_value->accept(*this);
+                return NULL;
+                
+            }
+            
+            ERROR;
+        }
+        
+    }/*function_lint_to_int*/
+    break;
 
 /****
  *LINT_TO_DINT
  */
-	case function_lint_to_dint :
-	{
-		symbol_c *last_type_symbol = NULL;
-
-		{
-			identifier_c param_name("IN");
-			/* Get the value from a foo(<param_name> = <param_value>) style call */
-			symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
-			
-			/* Get the value from a foo(<param_value>) style call */
-			if (IN_param_value == NULL)
-			  IN_param_value = function_call_param_iterator.next();
-			symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
-			last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
-			
-			if (typeid(*last_type_symbol) == typeid(lint_type_name_c))
-			{
-		
-				symbol_c * return_type_symbol = &search_constant_type_c::dint_type_name;
-				s4o.print("(");
-				return_type_symbol->accept(*this);
-				s4o.print(")");
-				IN_param_value->accept(*this);
-				return NULL;
-				
-			}
-			
-			ERROR;
-		}
-		
-	}/*function_lint_to_dint*/
-	break;
+    case function_lint_to_dint :
+    {
+        symbol_c *last_type_symbol = NULL;
+
+        {
+            identifier_c param_name("IN");
+            /* Get the value from a foo(<param_name> = <param_value>) style call */
+            symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
+            
+            /* Get the value from a foo(<param_value>) style call */
+            if (IN_param_value == NULL)
+              IN_param_value = function_call_param_iterator.next();
+            symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
+            last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
+            
+            if (typeid(*last_type_symbol) == typeid(lint_type_name_c))
+            {
+        
+                symbol_c * return_type_symbol = &search_constant_type_c::dint_type_name;
+                s4o.print("(");
+                return_type_symbol->accept(*this);
+                s4o.print(")");
+                IN_param_value->accept(*this);
+                return NULL;
+                
+            }
+            
+            ERROR;
+        }
+        
+    }/*function_lint_to_dint*/
+    break;
+
+/****
+ *LINT_TO_USINT
+ */
+    case function_lint_to_usint :
+    {
+        symbol_c *last_type_symbol = NULL;
+
+        {
+            identifier_c param_name("IN");
+            /* Get the value from a foo(<param_name> = <param_value>) style call */
+            symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
+            
+            /* Get the value from a foo(<param_value>) style call */
+            if (IN_param_value == NULL)
+              IN_param_value = function_call_param_iterator.next();
+            symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
+            last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
+            
+            if (typeid(*last_type_symbol) == typeid(lint_type_name_c))
+            {
+        
+                symbol_c * return_type_symbol = &search_constant_type_c::usint_type_name;
+                s4o.print("(");
+                return_type_symbol->accept(*this);
+                s4o.print(")");
+                IN_param_value->accept(*this);
+                return NULL;
+                
+            }
+            
+            ERROR;
+        }
+        
+    }/*function_lint_to_usint*/
+    break;
+
+/****
+ *LINT_TO_UINT
+ */
+    case function_lint_to_uint :
+    {
+        symbol_c *last_type_symbol = NULL;
+
+        {
+            identifier_c param_name("IN");
+            /* Get the value from a foo(<param_name> = <param_value>) style call */
+            symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
+            
+            /* Get the value from a foo(<param_value>) style call */
+            if (IN_param_value == NULL)
+              IN_param_value = function_call_param_iterator.next();
+            symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
+            last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
+            
+            if (typeid(*last_type_symbol) == typeid(lint_type_name_c))
+            {
+        
+                symbol_c * return_type_symbol = &search_constant_type_c::uint_type_name;
+                s4o.print("(");
+                return_type_symbol->accept(*this);
+                s4o.print(")");
+                IN_param_value->accept(*this);
+                return NULL;
+                
+            }
+            
+            ERROR;
+        }
+        
+    }/*function_lint_to_uint*/
+    break;
+
+/****
+ *LINT_TO_UDINT
+ */
+    case function_lint_to_udint :
+    {
+        symbol_c *last_type_symbol = NULL;
+
+        {
+            identifier_c param_name("IN");
+            /* Get the value from a foo(<param_name> = <param_value>) style call */
+            symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
+            
+            /* Get the value from a foo(<param_value>) style call */
+            if (IN_param_value == NULL)
+              IN_param_value = function_call_param_iterator.next();
+            symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
+            last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
+            
+            if (typeid(*last_type_symbol) == typeid(lint_type_name_c))
+            {
+        
+                symbol_c * return_type_symbol = &search_constant_type_c::udint_type_name;
+                s4o.print("(");
+                return_type_symbol->accept(*this);
+                s4o.print(")");
+                IN_param_value->accept(*this);
+                return NULL;
+                
+            }
+            
+            ERROR;
+        }
+        
+    }/*function_lint_to_udint*/
+    break;
+
+/****
+ *LINT_TO_ULINT
+ */
+    case function_lint_to_ulint :
+    {
+        symbol_c *last_type_symbol = NULL;
+
+        {
+            identifier_c param_name("IN");
+            /* Get the value from a foo(<param_name> = <param_value>) style call */
+            symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
+            
+            /* Get the value from a foo(<param_value>) style call */
+            if (IN_param_value == NULL)
+              IN_param_value = function_call_param_iterator.next();
+            symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
+            last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
+            
+            if (typeid(*last_type_symbol) == typeid(lint_type_name_c))
+            {
+        
+                symbol_c * return_type_symbol = &search_constant_type_c::ulint_type_name;
+                s4o.print("(");
+                return_type_symbol->accept(*this);
+                s4o.print(")");
+                IN_param_value->accept(*this);
+                return NULL;
+                
+            }
+            
+            ERROR;
+        }
+        
+    }/*function_lint_to_ulint*/
+    break;
+
+/****
+ *LINT_TO_TIME
+ */
+    case function_lint_to_time :
+    {
+        symbol_c *last_type_symbol = NULL;
+
+        {
+            identifier_c param_name("IN");
+            /* Get the value from a foo(<param_name> = <param_value>) style call */
+            symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
+            
+            /* Get the value from a foo(<param_value>) style call */
+            if (IN_param_value == NULL)
+              IN_param_value = function_call_param_iterator.next();
+            symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
+            last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
+            
+            if (typeid(*last_type_symbol) == typeid(lint_type_name_c))
+            {
+        
+                symbol_c * return_type_symbol = &search_constant_type_c::time_type_name;
+                s4o.print("(");
+                return_type_symbol->accept(*this);
+                s4o.print(")real_to_time(");
+                IN_param_value->accept(*this);
+                s4o.print(")");
+                return NULL;
+                
+            }
+            
+            ERROR;
+        }
+        
+    }/*function_lint_to_time*/
+    break;
+
+/****
+ *LINT_TO_BOOL
+ */
+    case function_lint_to_bool :
+    {
+        symbol_c *last_type_symbol = NULL;
+
+        {
+            identifier_c param_name("IN");
+            /* Get the value from a foo(<param_name> = <param_value>) style call */
+            symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
+            
+            /* Get the value from a foo(<param_value>) style call */
+            if (IN_param_value == NULL)
+              IN_param_value = function_call_param_iterator.next();
+            symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
+            last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
+            
+            if (typeid(*last_type_symbol) == typeid(lint_type_name_c))
+            {
+        
+                symbol_c * return_type_symbol = &search_constant_type_c::bool_type_name;
+                s4o.print("(");
+                return_type_symbol->accept(*this);
+                s4o.print(")");
+                IN_param_value->accept(*this);
+                return NULL;
+                
+            }
+            
+            ERROR;
+        }
+        
+    }/*function_lint_to_bool*/
+    break;
+
+/****
+ *LINT_TO_BYTE
+ */
+    case function_lint_to_byte :
+    {
+        symbol_c *last_type_symbol = NULL;
+
+        {
+            identifier_c param_name("IN");
+            /* Get the value from a foo(<param_name> = <param_value>) style call */
+            symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
+            
+            /* Get the value from a foo(<param_value>) style call */
+            if (IN_param_value == NULL)
+              IN_param_value = function_call_param_iterator.next();
+            symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
+            last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
+            
+            if (typeid(*last_type_symbol) == typeid(lint_type_name_c))
+            {
+        
+                symbol_c * return_type_symbol = &search_constant_type_c::byte_type_name;
+                s4o.print("(");
+                return_type_symbol->accept(*this);
+                s4o.print(")");
+                IN_param_value->accept(*this);
+                return NULL;
+                
+            }
+            
+            ERROR;
+        }
+        
+    }/*function_lint_to_byte*/
+    break;
+
+/****
+ *LINT_TO_WORD
+ */
+    case function_lint_to_word :
+    {
+        symbol_c *last_type_symbol = NULL;
+
+        {
+            identifier_c param_name("IN");
+            /* Get the value from a foo(<param_name> = <param_value>) style call */
+            symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
+            
+            /* Get the value from a foo(<param_value>) style call */
+            if (IN_param_value == NULL)
+              IN_param_value = function_call_param_iterator.next();
+            symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
+            last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
+            
+            if (typeid(*last_type_symbol) == typeid(lint_type_name_c))
+            {
+        
+                symbol_c * return_type_symbol = &search_constant_type_c::word_type_name;
+                s4o.print("(");
+                return_type_symbol->accept(*this);
+                s4o.print(")");
+                IN_param_value->accept(*this);
+                return NULL;
+                
+            }
+            
+            ERROR;
+        }
+        
+    }/*function_lint_to_word*/
+    break;
+
+/****
+ *LINT_TO_DWORD
+ */
+    case function_lint_to_dword :
+    {
+        symbol_c *last_type_symbol = NULL;
+
+        {
+            identifier_c param_name("IN");
+            /* Get the value from a foo(<param_name> = <param_value>) style call */
+            symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
+            
+            /* Get the value from a foo(<param_value>) style call */
+            if (IN_param_value == NULL)
+              IN_param_value = function_call_param_iterator.next();
+            symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
+            last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
+            
+            if (typeid(*last_type_symbol) == typeid(lint_type_name_c))
+            {
+        
+                symbol_c * return_type_symbol = &search_constant_type_c::dword_type_name;
+                s4o.print("(");
+                return_type_symbol->accept(*this);
+                s4o.print(")");
+                IN_param_value->accept(*this);
+                return NULL;
+                
+            }
+            
+            ERROR;
+        }
+        
+    }/*function_lint_to_dword*/
+    break;
+
+/****
+ *LINT_TO_LWORD
+ */
+    case function_lint_to_lword :
+    {
+        symbol_c *last_type_symbol = NULL;
+
+        {
+            identifier_c param_name("IN");
+            /* Get the value from a foo(<param_name> = <param_value>) style call */
+            symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
+            
+            /* Get the value from a foo(<param_value>) style call */
+            if (IN_param_value == NULL)
+              IN_param_value = function_call_param_iterator.next();
+            symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
+            last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
+            
+            if (typeid(*last_type_symbol) == typeid(lint_type_name_c))
+            {
+        
+                symbol_c * return_type_symbol = &search_constant_type_c::lword_type_name;
+                s4o.print("(");
+                return_type_symbol->accept(*this);
+                s4o.print(")");
+                IN_param_value->accept(*this);
+                return NULL;
+                
+            }
+            
+            ERROR;
+        }
+        
+    }/*function_lint_to_lword*/
+    break;
+
+/****
+ *LINT_TO_STRING
+ */
+    case function_lint_to_string :
+    {
+        symbol_c *last_type_symbol = NULL;
+
+        {
+            identifier_c param_name("IN");
+            /* Get the value from a foo(<param_name> = <param_value>) style call */
+            symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
+            
+            /* Get the value from a foo(<param_value>) style call */
+            if (IN_param_value == NULL)
+              IN_param_value = function_call_param_iterator.next();
+            symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
+            last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
+            
+            if (typeid(*last_type_symbol) == typeid(lint_type_name_c))
+            {
+        
+                symbol_c * return_type_symbol = &search_constant_type_c::string_type_name;
+                s4o.print("(");
+                return_type_symbol->accept(*this);
+                s4o.print(")int_to_string(");
+                IN_param_value->accept(*this);
+                s4o.print(", 10)");
+                return NULL;
+                
+            }
+            
+            ERROR;
+        }
+        
+    }/*function_lint_to_string*/
+    break;
+
+/****
+ *LINT_TO_WSTRING
+ */
+    case function_lint_to_wstring :
+    {
+        symbol_c *last_type_symbol = NULL;
+
+        {
+            identifier_c param_name("IN");
+            /* Get the value from a foo(<param_name> = <param_value>) style call */
+            symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
+            
+            /* Get the value from a foo(<param_value>) style call */
+            if (IN_param_value == NULL)
+              IN_param_value = function_call_param_iterator.next();
+            symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
+            last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
+            
+            if (typeid(*last_type_symbol) == typeid(lint_type_name_c))
+            {
+        
+                symbol_c * return_type_symbol = &search_constant_type_c::wstring_type_name;
+                s4o.print("(");
+                return_type_symbol->accept(*this);
+                s4o.print(")int_to_string(");
+                IN_param_value->accept(*this);
+                s4o.print(", 10)");
+                return NULL;
+                
+            }
+            
+            ERROR;
+        }
+        
+    }/*function_lint_to_wstring*/
+    break;
 
 /****
  *LINT_TO_DATE
  */
-	case function_lint_to_date :
-	{
-		symbol_c *last_type_symbol = NULL;
-
-		{
-			identifier_c param_name("IN");
-			/* Get the value from a foo(<param_name> = <param_value>) style call */
-			symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
-			
-			/* Get the value from a foo(<param_value>) style call */
-			if (IN_param_value == NULL)
-			  IN_param_value = function_call_param_iterator.next();
-			symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
-			last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
-			
-			if (typeid(*last_type_symbol) == typeid(lint_type_name_c))
-			{
-		
-				symbol_c * return_type_symbol = &search_constant_type_c::date_type_name;
-				s4o.print("(");
-				return_type_symbol->accept(*this);
-				s4o.print(")time_to_real(");
-				IN_param_value->accept(*this);
-				s4o.print(")");
-				return NULL;
-				
-			}
-			
-			ERROR;
-		}
-		
-	}/*function_lint_to_date*/
-	break;
-
-/****
- *LINT_TO_DWORD
- */
-	case function_lint_to_dword :
-	{
-		symbol_c *last_type_symbol = NULL;
-
-		{
-			identifier_c param_name("IN");
-			/* Get the value from a foo(<param_name> = <param_value>) style call */
-			symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
-			
-			/* Get the value from a foo(<param_value>) style call */
-			if (IN_param_value == NULL)
-			  IN_param_value = function_call_param_iterator.next();
-			symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
-			last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
-			
-			if (typeid(*last_type_symbol) == typeid(lint_type_name_c))
-			{
-		
-				symbol_c * return_type_symbol = &search_constant_type_c::dword_type_name;
-				s4o.print("(");
-				return_type_symbol->accept(*this);
-				s4o.print(")");
-				IN_param_value->accept(*this);
-				return NULL;
-				
-			}
-			
-			ERROR;
-		}
-		
-	}/*function_lint_to_dword*/
-	break;
+    case function_lint_to_date :
+    {
+        symbol_c *last_type_symbol = NULL;
+
+        {
+            identifier_c param_name("IN");
+            /* Get the value from a foo(<param_name> = <param_value>) style call */
+            symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
+            
+            /* Get the value from a foo(<param_value>) style call */
+            if (IN_param_value == NULL)
+              IN_param_value = function_call_param_iterator.next();
+            symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
+            last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
+            
+            if (typeid(*last_type_symbol) == typeid(lint_type_name_c))
+            {
+        
+                symbol_c * return_type_symbol = &search_constant_type_c::date_type_name;
+                s4o.print("(");
+                return_type_symbol->accept(*this);
+                s4o.print(")real_to_time(");
+                IN_param_value->accept(*this);
+                s4o.print(")");
+                return NULL;
+                
+            }
+            
+            ERROR;
+        }
+        
+    }/*function_lint_to_date*/
+    break;
+
+/****
+ *LINT_TO_TOD
+ */
+    case function_lint_to_tod :
+    {
+        symbol_c *last_type_symbol = NULL;
+
+        {
+            identifier_c param_name("IN");
+            /* Get the value from a foo(<param_name> = <param_value>) style call */
+            symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
+            
+            /* Get the value from a foo(<param_value>) style call */
+            if (IN_param_value == NULL)
+              IN_param_value = function_call_param_iterator.next();
+            symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
+            last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
+            
+            if (typeid(*last_type_symbol) == typeid(lint_type_name_c))
+            {
+        
+                symbol_c * return_type_symbol = &search_constant_type_c::tod_type_name;
+                s4o.print("(");
+                return_type_symbol->accept(*this);
+                s4o.print(")real_to_time(");
+                IN_param_value->accept(*this);
+                s4o.print(")");
+                return NULL;
+                
+            }
+            
+            ERROR;
+        }
+        
+    }/*function_lint_to_tod*/
+    break;
 
 /****
  *LINT_TO_DT
  */
-	case function_lint_to_dt :
-	{
-		symbol_c *last_type_symbol = NULL;
-
-		{
-			identifier_c param_name("IN");
-			/* Get the value from a foo(<param_name> = <param_value>) style call */
-			symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
-			
-			/* Get the value from a foo(<param_value>) style call */
-			if (IN_param_value == NULL)
-			  IN_param_value = function_call_param_iterator.next();
-			symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
-			last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
-			
-			if (typeid(*last_type_symbol) == typeid(lint_type_name_c))
-			{
-		
-				symbol_c * return_type_symbol = &search_constant_type_c::dt_type_name;
-				s4o.print("(");
-				return_type_symbol->accept(*this);
-				s4o.print(")time_to_real(");
-				IN_param_value->accept(*this);
-				s4o.print(")");
-				return NULL;
-				
-			}
-			
-			ERROR;
-		}
-		
-	}/*function_lint_to_dt*/
-	break;
-
-/****
- *LINT_TO_TOD
- */
-	case function_lint_to_tod :
-	{
-		symbol_c *last_type_symbol = NULL;
-
-		{
-			identifier_c param_name("IN");
-			/* Get the value from a foo(<param_name> = <param_value>) style call */
-			symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
-			
-			/* Get the value from a foo(<param_value>) style call */
-			if (IN_param_value == NULL)
-			  IN_param_value = function_call_param_iterator.next();
-			symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
-			last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
-			
-			if (typeid(*last_type_symbol) == typeid(lint_type_name_c))
-			{
-		
-				symbol_c * return_type_symbol = &search_constant_type_c::tod_type_name;
-				s4o.print("(");
-				return_type_symbol->accept(*this);
-				s4o.print(")time_to_real(");
-				IN_param_value->accept(*this);
-				s4o.print(")");
-				return NULL;
-				
-			}
-			
-			ERROR;
-		}
-		
-	}/*function_lint_to_tod*/
-	break;
-
-/****
- *LINT_TO_UDINT
- */
-	case function_lint_to_udint :
-	{
-		symbol_c *last_type_symbol = NULL;
-
-		{
-			identifier_c param_name("IN");
-			/* Get the value from a foo(<param_name> = <param_value>) style call */
-			symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
-			
-			/* Get the value from a foo(<param_value>) style call */
-			if (IN_param_value == NULL)
-			  IN_param_value = function_call_param_iterator.next();
-			symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
-			last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
-			
-			if (typeid(*last_type_symbol) == typeid(lint_type_name_c))
-			{
-		
-				symbol_c * return_type_symbol = &search_constant_type_c::udint_type_name;
-				s4o.print("(");
-				return_type_symbol->accept(*this);
-				s4o.print(")");
-				IN_param_value->accept(*this);
-				return NULL;
-				
-			}
-			
-			ERROR;
-		}
-		
-	}/*function_lint_to_udint*/
-	break;
-
-/****
- *LINT_TO_WORD
- */
-	case function_lint_to_word :
-	{
-		symbol_c *last_type_symbol = NULL;
-
-		{
-			identifier_c param_name("IN");
-			/* Get the value from a foo(<param_name> = <param_value>) style call */
-			symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
-			
-			/* Get the value from a foo(<param_value>) style call */
-			if (IN_param_value == NULL)
-			  IN_param_value = function_call_param_iterator.next();
-			symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
-			last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
-			
-			if (typeid(*last_type_symbol) == typeid(lint_type_name_c))
-			{
-		
-				symbol_c * return_type_symbol = &search_constant_type_c::word_type_name;
-				s4o.print("(");
-				return_type_symbol->accept(*this);
-				s4o.print(")");
-				IN_param_value->accept(*this);
-				return NULL;
-				
-			}
-			
-			ERROR;
-		}
-		
-	}/*function_lint_to_word*/
-	break;
-
-/****
- *LINT_TO_WSTRING
- */
-	case function_lint_to_wstring :
-	{
-		symbol_c *last_type_symbol = NULL;
-
-		{
-			identifier_c param_name("IN");
-			/* Get the value from a foo(<param_name> = <param_value>) style call */
-			symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
-			
-			/* Get the value from a foo(<param_value>) style call */
-			if (IN_param_value == NULL)
-			  IN_param_value = function_call_param_iterator.next();
-			symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
-			last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
-			
-			if (typeid(*last_type_symbol) == typeid(lint_type_name_c))
-			{
-		
-				symbol_c * return_type_symbol = &search_constant_type_c::wstring_type_name;
-				s4o.print("(");
-				return_type_symbol->accept(*this);
-				s4o.print(")string_to_int(");
-				IN_param_value->accept(*this);
-				s4o.print(", 10)");
-				return NULL;
-				
-			}
-			
-			ERROR;
-		}
-		
-	}/*function_lint_to_wstring*/
-	break;
-
-/****
- *LINT_TO_STRING
- */
-	case function_lint_to_string :
-	{
-		symbol_c *last_type_symbol = NULL;
-
-		{
-			identifier_c param_name("IN");
-			/* Get the value from a foo(<param_name> = <param_value>) style call */
-			symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
-			
-			/* Get the value from a foo(<param_value>) style call */
-			if (IN_param_value == NULL)
-			  IN_param_value = function_call_param_iterator.next();
-			symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
-			last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
-			
-			if (typeid(*last_type_symbol) == typeid(lint_type_name_c))
-			{
-		
-				symbol_c * return_type_symbol = &search_constant_type_c::string_type_name;
-				s4o.print("(");
-				return_type_symbol->accept(*this);
-				s4o.print(")string_to_int(");
-				IN_param_value->accept(*this);
-				s4o.print(", 10)");
-				return NULL;
-				
-			}
-			
-			ERROR;
-		}
-		
-	}/*function_lint_to_string*/
-	break;
-
-/****
- *LINT_TO_LWORD
- */
-	case function_lint_to_lword :
-	{
-		symbol_c *last_type_symbol = NULL;
-
-		{
-			identifier_c param_name("IN");
-			/* Get the value from a foo(<param_name> = <param_value>) style call */
-			symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
-			
-			/* Get the value from a foo(<param_value>) style call */
-			if (IN_param_value == NULL)
-			  IN_param_value = function_call_param_iterator.next();
-			symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
-			last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
-			
-			if (typeid(*last_type_symbol) == typeid(lint_type_name_c))
-			{
-		
-				symbol_c * return_type_symbol = &search_constant_type_c::lword_type_name;
-				s4o.print("(");
-				return_type_symbol->accept(*this);
-				s4o.print(")");
-				IN_param_value->accept(*this);
-				return NULL;
-				
-			}
-			
-			ERROR;
-		}
-		
-	}/*function_lint_to_lword*/
-	break;
-
-/****
- *LINT_TO_UINT
- */
-	case function_lint_to_uint :
-	{
-		symbol_c *last_type_symbol = NULL;
-
-		{
-			identifier_c param_name("IN");
-			/* Get the value from a foo(<param_name> = <param_value>) style call */
-			symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
-			
-			/* Get the value from a foo(<param_value>) style call */
-			if (IN_param_value == NULL)
-			  IN_param_value = function_call_param_iterator.next();
-			symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
-			last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
-			
-			if (typeid(*last_type_symbol) == typeid(lint_type_name_c))
-			{
-		
-				symbol_c * return_type_symbol = &search_constant_type_c::uint_type_name;
-				s4o.print("(");
-				return_type_symbol->accept(*this);
-				s4o.print(")");
-				IN_param_value->accept(*this);
-				return NULL;
-				
-			}
-			
-			ERROR;
-		}
-		
-	}/*function_lint_to_uint*/
-	break;
-
-/****
- *LINT_TO_LREAL
- */
-	case function_lint_to_lreal :
-	{
-		symbol_c *last_type_symbol = NULL;
-
-		{
-			identifier_c param_name("IN");
-			/* Get the value from a foo(<param_name> = <param_value>) style call */
-			symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
-			
-			/* Get the value from a foo(<param_value>) style call */
-			if (IN_param_value == NULL)
-			  IN_param_value = function_call_param_iterator.next();
-			symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
-			last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
-			
-			if (typeid(*last_type_symbol) == typeid(lint_type_name_c))
-			{
-		
-				symbol_c * return_type_symbol = &search_constant_type_c::lreal_type_name;
-				s4o.print("(");
-				return_type_symbol->accept(*this);
-				s4o.print(")");
-				IN_param_value->accept(*this);
-				return NULL;
-				
-			}
-			
-			ERROR;
-		}
-		
-	}/*function_lint_to_lreal*/
-	break;
-
-/****
- *LINT_TO_BYTE
- */
-	case function_lint_to_byte :
-	{
-		symbol_c *last_type_symbol = NULL;
-
-		{
-			identifier_c param_name("IN");
-			/* Get the value from a foo(<param_name> = <param_value>) style call */
-			symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
-			
-			/* Get the value from a foo(<param_value>) style call */
-			if (IN_param_value == NULL)
-			  IN_param_value = function_call_param_iterator.next();
-			symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
-			last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
-			
-			if (typeid(*last_type_symbol) == typeid(lint_type_name_c))
-			{
-		
-				symbol_c * return_type_symbol = &search_constant_type_c::byte_type_name;
-				s4o.print("(");
-				return_type_symbol->accept(*this);
-				s4o.print(")");
-				IN_param_value->accept(*this);
-				return NULL;
-				
-			}
-			
-			ERROR;
-		}
-		
-	}/*function_lint_to_byte*/
-	break;
-
-/****
- *LINT_TO_USINT
- */
-	case function_lint_to_usint :
-	{
-		symbol_c *last_type_symbol = NULL;
-
-		{
-			identifier_c param_name("IN");
-			/* Get the value from a foo(<param_name> = <param_value>) style call */
-			symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
-			
-			/* Get the value from a foo(<param_value>) style call */
-			if (IN_param_value == NULL)
-			  IN_param_value = function_call_param_iterator.next();
-			symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
-			last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
-			
-			if (typeid(*last_type_symbol) == typeid(lint_type_name_c))
-			{
-		
-				symbol_c * return_type_symbol = &search_constant_type_c::usint_type_name;
-				s4o.print("(");
-				return_type_symbol->accept(*this);
-				s4o.print(")");
-				IN_param_value->accept(*this);
-				return NULL;
-				
-			}
-			
-			ERROR;
-		}
-		
-	}/*function_lint_to_usint*/
-	break;
-
-/****
- *LINT_TO_ULINT
- */
-	case function_lint_to_ulint :
-	{
-		symbol_c *last_type_symbol = NULL;
-
-		{
-			identifier_c param_name("IN");
-			/* Get the value from a foo(<param_name> = <param_value>) style call */
-			symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
-			
-			/* Get the value from a foo(<param_value>) style call */
-			if (IN_param_value == NULL)
-			  IN_param_value = function_call_param_iterator.next();
-			symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
-			last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
-			
-			if (typeid(*last_type_symbol) == typeid(lint_type_name_c))
-			{
-		
-				symbol_c * return_type_symbol = &search_constant_type_c::ulint_type_name;
-				s4o.print("(");
-				return_type_symbol->accept(*this);
-				s4o.print(")");
-				IN_param_value->accept(*this);
-				return NULL;
-				
-			}
-			
-			ERROR;
-		}
-		
-	}/*function_lint_to_ulint*/
-	break;
-
-/****
- *LINT_TO_BOOL
- */
-	case function_lint_to_bool :
-	{
-		symbol_c *last_type_symbol = NULL;
-
-		{
-			identifier_c param_name("IN");
-			/* Get the value from a foo(<param_name> = <param_value>) style call */
-			symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
-			
-			/* Get the value from a foo(<param_value>) style call */
-			if (IN_param_value == NULL)
-			  IN_param_value = function_call_param_iterator.next();
-			symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
-			last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
-			
-			if (typeid(*last_type_symbol) == typeid(lint_type_name_c))
-			{
-		
-				symbol_c * return_type_symbol = &search_constant_type_c::bool_type_name;
-				s4o.print("(");
-				return_type_symbol->accept(*this);
-				s4o.print(")");
-				IN_param_value->accept(*this);
-				return NULL;
-				
-			}
-			
-			ERROR;
-		}
-		
-	}/*function_lint_to_bool*/
-	break;
-
-/****
- *LINT_TO_TIME
- */
-	case function_lint_to_time :
-	{
-		symbol_c *last_type_symbol = NULL;
-
-		{
-			identifier_c param_name("IN");
-			/* Get the value from a foo(<param_name> = <param_value>) style call */
-			symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
-			
-			/* Get the value from a foo(<param_value>) style call */
-			if (IN_param_value == NULL)
-			  IN_param_value = function_call_param_iterator.next();
-			symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
-			last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
-			
-			if (typeid(*last_type_symbol) == typeid(lint_type_name_c))
-			{
-		
-				symbol_c * return_type_symbol = &search_constant_type_c::time_type_name;
-				s4o.print("(");
-				return_type_symbol->accept(*this);
-				s4o.print(")time_to_real(");
-				IN_param_value->accept(*this);
-				s4o.print(")");
-				return NULL;
-				
-			}
-			
-			ERROR;
-		}
-		
-	}/*function_lint_to_time*/
-	break;
-
-/****
- *LINT_TO_INT
- */
-	case function_lint_to_int :
-	{
-		symbol_c *last_type_symbol = NULL;
-
-		{
-			identifier_c param_name("IN");
-			/* Get the value from a foo(<param_name> = <param_value>) style call */
-			symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
-			
-			/* Get the value from a foo(<param_value>) style call */
-			if (IN_param_value == NULL)
-			  IN_param_value = function_call_param_iterator.next();
-			symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
-			last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
-			
-			if (typeid(*last_type_symbol) == typeid(lint_type_name_c))
-			{
-		
-				symbol_c * return_type_symbol = &search_constant_type_c::int_type_name;
-				s4o.print("(");
-				return_type_symbol->accept(*this);
-				s4o.print(")");
-				IN_param_value->accept(*this);
-				return NULL;
-				
-			}
-			
-			ERROR;
-		}
-		
-	}/*function_lint_to_int*/
-	break;
-
-/****
- *DINT_TO_REAL
- */
-	case function_dint_to_real :
-	{
-		symbol_c *last_type_symbol = NULL;
-
-		{
-			identifier_c param_name("IN");
-			/* Get the value from a foo(<param_name> = <param_value>) style call */
-			symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
-			
-			/* Get the value from a foo(<param_value>) style call */
-			if (IN_param_value == NULL)
-			  IN_param_value = function_call_param_iterator.next();
-			symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
-			last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
-			
-			if (typeid(*last_type_symbol) == typeid(dint_type_name_c))
-			{
-		
-				symbol_c * return_type_symbol = &search_constant_type_c::real_type_name;
-				s4o.print("(");
-				return_type_symbol->accept(*this);
-				s4o.print(")");
-				IN_param_value->accept(*this);
-				return NULL;
-				
-			}
-			
-			ERROR;
-		}
-		
-	}/*function_dint_to_real*/
-	break;
-
-/****
- *DINT_TO_SINT
- */
-	case function_dint_to_sint :
-	{
-		symbol_c *last_type_symbol = NULL;
-
-		{
-			identifier_c param_name("IN");
-			/* Get the value from a foo(<param_name> = <param_value>) style call */
-			symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
-			
-			/* Get the value from a foo(<param_value>) style call */
-			if (IN_param_value == NULL)
-			  IN_param_value = function_call_param_iterator.next();
-			symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
-			last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
-			
-			if (typeid(*last_type_symbol) == typeid(dint_type_name_c))
-			{
-		
-				symbol_c * return_type_symbol = &search_constant_type_c::sint_type_name;
-				s4o.print("(");
-				return_type_symbol->accept(*this);
-				s4o.print(")");
-				IN_param_value->accept(*this);
-				return NULL;
-				
-			}
-			
-			ERROR;
-		}
-		
-	}/*function_dint_to_sint*/
-	break;
-
-/****
- *DINT_TO_LINT
- */
-	case function_dint_to_lint :
-	{
-		symbol_c *last_type_symbol = NULL;
-
-		{
-			identifier_c param_name("IN");
-			/* Get the value from a foo(<param_name> = <param_value>) style call */
-			symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
-			
-			/* Get the value from a foo(<param_value>) style call */
-			if (IN_param_value == NULL)
-			  IN_param_value = function_call_param_iterator.next();
-			symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
-			last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
-			
-			if (typeid(*last_type_symbol) == typeid(dint_type_name_c))
-			{
-		
-				symbol_c * return_type_symbol = &search_constant_type_c::lint_type_name;
-				s4o.print("(");
-				return_type_symbol->accept(*this);
-				s4o.print(")");
-				IN_param_value->accept(*this);
-				return NULL;
-				
-			}
-			
-			ERROR;
-		}
-		
-	}/*function_dint_to_lint*/
-	break;
-
-/****
- *DINT_TO_DINT
- */
-	case function_dint_to_dint :
-	{
-		symbol_c *last_type_symbol = NULL;
-
-		{
-			identifier_c param_name("IN");
-			/* Get the value from a foo(<param_name> = <param_value>) style call */
-			symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
-			
-			/* Get the value from a foo(<param_value>) style call */
-			if (IN_param_value == NULL)
-			  IN_param_value = function_call_param_iterator.next();
-			symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
-			last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
-			
-			if (typeid(*last_type_symbol) == typeid(dint_type_name_c))
-			{
-		
-				symbol_c * return_type_symbol = &search_constant_type_c::dint_type_name;
-				s4o.print("(");
-				return_type_symbol->accept(*this);
-				s4o.print(")");
-				IN_param_value->accept(*this);
-				return NULL;
-				
-			}
-			
-			ERROR;
-		}
-		
-	}/*function_dint_to_dint*/
-	break;
-
-/****
- *DINT_TO_DATE
- */
-	case function_dint_to_date :
-	{
-		symbol_c *last_type_symbol = NULL;
-
-		{
-			identifier_c param_name("IN");
-			/* Get the value from a foo(<param_name> = <param_value>) style call */
-			symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
-			
-			/* Get the value from a foo(<param_value>) style call */
-			if (IN_param_value == NULL)
-			  IN_param_value = function_call_param_iterator.next();
-			symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
-			last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
-			
-			if (typeid(*last_type_symbol) == typeid(dint_type_name_c))
-			{
-		
-				symbol_c * return_type_symbol = &search_constant_type_c::date_type_name;
-				s4o.print("(");
-				return_type_symbol->accept(*this);
-				s4o.print(")time_to_real(");
-				IN_param_value->accept(*this);
-				s4o.print(")");
-				return NULL;
-				
-			}
-			
-			ERROR;
-		}
-		
-	}/*function_dint_to_date*/
-	break;
-
-/****
- *DINT_TO_DWORD
- */
-	case function_dint_to_dword :
-	{
-		symbol_c *last_type_symbol = NULL;
-
-		{
-			identifier_c param_name("IN");
-			/* Get the value from a foo(<param_name> = <param_value>) style call */
-			symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
-			
-			/* Get the value from a foo(<param_value>) style call */
-			if (IN_param_value == NULL)
-			  IN_param_value = function_call_param_iterator.next();
-			symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
-			last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
-			
-			if (typeid(*last_type_symbol) == typeid(dint_type_name_c))
-			{
-		
-				symbol_c * return_type_symbol = &search_constant_type_c::dword_type_name;
-				s4o.print("(");
-				return_type_symbol->accept(*this);
-				s4o.print(")");
-				IN_param_value->accept(*this);
-				return NULL;
-				
-			}
-			
-			ERROR;
-		}
-		
-	}/*function_dint_to_dword*/
-	break;
-
-/****
- *DINT_TO_DT
- */
-	case function_dint_to_dt :
-	{
-		symbol_c *last_type_symbol = NULL;
-
-		{
-			identifier_c param_name("IN");
-			/* Get the value from a foo(<param_name> = <param_value>) style call */
-			symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
-			
-			/* Get the value from a foo(<param_value>) style call */
-			if (IN_param_value == NULL)
-			  IN_param_value = function_call_param_iterator.next();
-			symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
-			last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
-			
-			if (typeid(*last_type_symbol) == typeid(dint_type_name_c))
-			{
-		
-				symbol_c * return_type_symbol = &search_constant_type_c::dt_type_name;
-				s4o.print("(");
-				return_type_symbol->accept(*this);
-				s4o.print(")time_to_real(");
-				IN_param_value->accept(*this);
-				s4o.print(")");
-				return NULL;
-				
-			}
-			
-			ERROR;
-		}
-		
-	}/*function_dint_to_dt*/
-	break;
-
-/****
- *DINT_TO_TOD
- */
-	case function_dint_to_tod :
-	{
-		symbol_c *last_type_symbol = NULL;
-
-		{
-			identifier_c param_name("IN");
-			/* Get the value from a foo(<param_name> = <param_value>) style call */
-			symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
-			
-			/* Get the value from a foo(<param_value>) style call */
-			if (IN_param_value == NULL)
-			  IN_param_value = function_call_param_iterator.next();
-			symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
-			last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
-			
-			if (typeid(*last_type_symbol) == typeid(dint_type_name_c))
-			{
-		
-				symbol_c * return_type_symbol = &search_constant_type_c::tod_type_name;
-				s4o.print("(");
-				return_type_symbol->accept(*this);
-				s4o.print(")time_to_real(");
-				IN_param_value->accept(*this);
-				s4o.print(")");
-				return NULL;
-				
-			}
-			
-			ERROR;
-		}
-		
-	}/*function_dint_to_tod*/
-	break;
-
-/****
- *DINT_TO_UDINT
- */
-	case function_dint_to_udint :
-	{
-		symbol_c *last_type_symbol = NULL;
-
-		{
-			identifier_c param_name("IN");
-			/* Get the value from a foo(<param_name> = <param_value>) style call */
-			symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
-			
-			/* Get the value from a foo(<param_value>) style call */
-			if (IN_param_value == NULL)
-			  IN_param_value = function_call_param_iterator.next();
-			symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
-			last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
-			
-			if (typeid(*last_type_symbol) == typeid(dint_type_name_c))
-			{
-		
-				symbol_c * return_type_symbol = &search_constant_type_c::udint_type_name;
-				s4o.print("(");
-				return_type_symbol->accept(*this);
-				s4o.print(")");
-				IN_param_value->accept(*this);
-				return NULL;
-				
-			}
-			
-			ERROR;
-		}
-		
-	}/*function_dint_to_udint*/
-	break;
-
-/****
- *DINT_TO_WORD
- */
-	case function_dint_to_word :
-	{
-		symbol_c *last_type_symbol = NULL;
-
-		{
-			identifier_c param_name("IN");
-			/* Get the value from a foo(<param_name> = <param_value>) style call */
-			symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
-			
-			/* Get the value from a foo(<param_value>) style call */
-			if (IN_param_value == NULL)
-			  IN_param_value = function_call_param_iterator.next();
-			symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
-			last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
-			
-			if (typeid(*last_type_symbol) == typeid(dint_type_name_c))
-			{
-		
-				symbol_c * return_type_symbol = &search_constant_type_c::word_type_name;
-				s4o.print("(");
-				return_type_symbol->accept(*this);
-				s4o.print(")");
-				IN_param_value->accept(*this);
-				return NULL;
-				
-			}
-			
-			ERROR;
-		}
-		
-	}/*function_dint_to_word*/
-	break;
-
-/****
- *DINT_TO_WSTRING
- */
-	case function_dint_to_wstring :
-	{
-		symbol_c *last_type_symbol = NULL;
-
-		{
-			identifier_c param_name("IN");
-			/* Get the value from a foo(<param_name> = <param_value>) style call */
-			symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
-			
-			/* Get the value from a foo(<param_value>) style call */
-			if (IN_param_value == NULL)
-			  IN_param_value = function_call_param_iterator.next();
-			symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
-			last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
-			
-			if (typeid(*last_type_symbol) == typeid(dint_type_name_c))
-			{
-		
-				symbol_c * return_type_symbol = &search_constant_type_c::wstring_type_name;
-				s4o.print("(");
-				return_type_symbol->accept(*this);
-				s4o.print(")string_to_int(");
-				IN_param_value->accept(*this);
-				s4o.print(", 10)");
-				return NULL;
-				
-			}
-			
-			ERROR;
-		}
-		
-	}/*function_dint_to_wstring*/
-	break;
-
-/****
- *DINT_TO_STRING
- */
-	case function_dint_to_string :
-	{
-		symbol_c *last_type_symbol = NULL;
-
-		{
-			identifier_c param_name("IN");
-			/* Get the value from a foo(<param_name> = <param_value>) style call */
-			symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
-			
-			/* Get the value from a foo(<param_value>) style call */
-			if (IN_param_value == NULL)
-			  IN_param_value = function_call_param_iterator.next();
-			symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
-			last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
-			
-			if (typeid(*last_type_symbol) == typeid(dint_type_name_c))
-			{
-		
-				symbol_c * return_type_symbol = &search_constant_type_c::string_type_name;
-				s4o.print("(");
-				return_type_symbol->accept(*this);
-				s4o.print(")string_to_int(");
-				IN_param_value->accept(*this);
-				s4o.print(", 10)");
-				return NULL;
-				
-			}
-			
-			ERROR;
-		}
-		
-	}/*function_dint_to_string*/
-	break;
-
-/****
- *DINT_TO_LWORD
- */
-	case function_dint_to_lword :
-	{
-		symbol_c *last_type_symbol = NULL;
-
-		{
-			identifier_c param_name("IN");
-			/* Get the value from a foo(<param_name> = <param_value>) style call */
-			symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
-			
-			/* Get the value from a foo(<param_value>) style call */
-			if (IN_param_value == NULL)
-			  IN_param_value = function_call_param_iterator.next();
-			symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
-			last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
-			
-			if (typeid(*last_type_symbol) == typeid(dint_type_name_c))
-			{
-		
-				symbol_c * return_type_symbol = &search_constant_type_c::lword_type_name;
-				s4o.print("(");
-				return_type_symbol->accept(*this);
-				s4o.print(")");
-				IN_param_value->accept(*this);
-				return NULL;
-				
-			}
-			
-			ERROR;
-		}
-		
-	}/*function_dint_to_lword*/
-	break;
-
-/****
- *DINT_TO_UINT
- */
-	case function_dint_to_uint :
-	{
-		symbol_c *last_type_symbol = NULL;
-
-		{
-			identifier_c param_name("IN");
-			/* Get the value from a foo(<param_name> = <param_value>) style call */
-			symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
-			
-			/* Get the value from a foo(<param_value>) style call */
-			if (IN_param_value == NULL)
-			  IN_param_value = function_call_param_iterator.next();
-			symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
-			last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
-			
-			if (typeid(*last_type_symbol) == typeid(dint_type_name_c))
-			{
-		
-				symbol_c * return_type_symbol = &search_constant_type_c::uint_type_name;
-				s4o.print("(");
-				return_type_symbol->accept(*this);
-				s4o.print(")");
-				IN_param_value->accept(*this);
-				return NULL;
-				
-			}
-			
-			ERROR;
-		}
-		
-	}/*function_dint_to_uint*/
-	break;
-
-/****
- *DINT_TO_LREAL
- */
-	case function_dint_to_lreal :
-	{
-		symbol_c *last_type_symbol = NULL;
-
-		{
-			identifier_c param_name("IN");
-			/* Get the value from a foo(<param_name> = <param_value>) style call */
-			symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
-			
-			/* Get the value from a foo(<param_value>) style call */
-			if (IN_param_value == NULL)
-			  IN_param_value = function_call_param_iterator.next();
-			symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
-			last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
-			
-			if (typeid(*last_type_symbol) == typeid(dint_type_name_c))
-			{
-		
-				symbol_c * return_type_symbol = &search_constant_type_c::lreal_type_name;
-				s4o.print("(");
-				return_type_symbol->accept(*this);
-				s4o.print(")");
-				IN_param_value->accept(*this);
-				return NULL;
-				
-			}
-			
-			ERROR;
-		}
-		
-	}/*function_dint_to_lreal*/
-	break;
-
-/****
- *DINT_TO_BYTE
- */
-	case function_dint_to_byte :
-	{
-		symbol_c *last_type_symbol = NULL;
-
-		{
-			identifier_c param_name("IN");
-			/* Get the value from a foo(<param_name> = <param_value>) style call */
-			symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
-			
-			/* Get the value from a foo(<param_value>) style call */
-			if (IN_param_value == NULL)
-			  IN_param_value = function_call_param_iterator.next();
-			symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
-			last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
-			
-			if (typeid(*last_type_symbol) == typeid(dint_type_name_c))
-			{
-		
-				symbol_c * return_type_symbol = &search_constant_type_c::byte_type_name;
-				s4o.print("(");
-				return_type_symbol->accept(*this);
-				s4o.print(")");
-				IN_param_value->accept(*this);
-				return NULL;
-				
-			}
-			
-			ERROR;
-		}
-		
-	}/*function_dint_to_byte*/
-	break;
-
-/****
- *DINT_TO_USINT
- */
-	case function_dint_to_usint :
-	{
-		symbol_c *last_type_symbol = NULL;
-
-		{
-			identifier_c param_name("IN");
-			/* Get the value from a foo(<param_name> = <param_value>) style call */
-			symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
-			
-			/* Get the value from a foo(<param_value>) style call */
-			if (IN_param_value == NULL)
-			  IN_param_value = function_call_param_iterator.next();
-			symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
-			last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
-			
-			if (typeid(*last_type_symbol) == typeid(dint_type_name_c))
-			{
-		
-				symbol_c * return_type_symbol = &search_constant_type_c::usint_type_name;
-				s4o.print("(");
-				return_type_symbol->accept(*this);
-				s4o.print(")");
-				IN_param_value->accept(*this);
-				return NULL;
-				
-			}
-			
-			ERROR;
-		}
-		
-	}/*function_dint_to_usint*/
-	break;
-
-/****
- *DINT_TO_ULINT
- */
-	case function_dint_to_ulint :
-	{
-		symbol_c *last_type_symbol = NULL;
-
-		{
-			identifier_c param_name("IN");
-			/* Get the value from a foo(<param_name> = <param_value>) style call */
-			symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
-			
-			/* Get the value from a foo(<param_value>) style call */
-			if (IN_param_value == NULL)
-			  IN_param_value = function_call_param_iterator.next();
-			symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
-			last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
-			
-			if (typeid(*last_type_symbol) == typeid(dint_type_name_c))
-			{
-		
-				symbol_c * return_type_symbol = &search_constant_type_c::ulint_type_name;
-				s4o.print("(");
-				return_type_symbol->accept(*this);
-				s4o.print(")");
-				IN_param_value->accept(*this);
-				return NULL;
-				
-			}
-			
-			ERROR;
-		}
-		
-	}/*function_dint_to_ulint*/
-	break;
-
-/****
- *DINT_TO_BOOL
- */
-	case function_dint_to_bool :
-	{
-		symbol_c *last_type_symbol = NULL;
-
-		{
-			identifier_c param_name("IN");
-			/* Get the value from a foo(<param_name> = <param_value>) style call */
-			symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
-			
-			/* Get the value from a foo(<param_value>) style call */
-			if (IN_param_value == NULL)
-			  IN_param_value = function_call_param_iterator.next();
-			symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
-			last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
-			
-			if (typeid(*last_type_symbol) == typeid(dint_type_name_c))
-			{
-		
-				symbol_c * return_type_symbol = &search_constant_type_c::bool_type_name;
-				s4o.print("(");
-				return_type_symbol->accept(*this);
-				s4o.print(")");
-				IN_param_value->accept(*this);
-				return NULL;
-				
-			}
-			
-			ERROR;
-		}
-		
-	}/*function_dint_to_bool*/
-	break;
-
-/****
- *DINT_TO_TIME
- */
-	case function_dint_to_time :
-	{
-		symbol_c *last_type_symbol = NULL;
-
-		{
-			identifier_c param_name("IN");
-			/* Get the value from a foo(<param_name> = <param_value>) style call */
-			symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
-			
-			/* Get the value from a foo(<param_value>) style call */
-			if (IN_param_value == NULL)
-			  IN_param_value = function_call_param_iterator.next();
-			symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
-			last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
-			
-			if (typeid(*last_type_symbol) == typeid(dint_type_name_c))
-			{
-		
-				symbol_c * return_type_symbol = &search_constant_type_c::time_type_name;
-				s4o.print("(");
-				return_type_symbol->accept(*this);
-				s4o.print(")time_to_real(");
-				IN_param_value->accept(*this);
-				s4o.print(")");
-				return NULL;
-				
-			}
-			
-			ERROR;
-		}
-		
-	}/*function_dint_to_time*/
-	break;
-
-/****
- *DINT_TO_INT
- */
-	case function_dint_to_int :
-	{
-		symbol_c *last_type_symbol = NULL;
-
-		{
-			identifier_c param_name("IN");
-			/* Get the value from a foo(<param_name> = <param_value>) style call */
-			symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
-			
-			/* Get the value from a foo(<param_value>) style call */
-			if (IN_param_value == NULL)
-			  IN_param_value = function_call_param_iterator.next();
-			symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
-			last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
-			
-			if (typeid(*last_type_symbol) == typeid(dint_type_name_c))
-			{
-		
-				symbol_c * return_type_symbol = &search_constant_type_c::int_type_name;
-				s4o.print("(");
-				return_type_symbol->accept(*this);
-				s4o.print(")");
-				IN_param_value->accept(*this);
-				return NULL;
-				
-			}
-			
-			ERROR;
-		}
-		
-	}/*function_dint_to_int*/
-	break;
+    case function_lint_to_dt :
+    {
+        symbol_c *last_type_symbol = NULL;
+
+        {
+            identifier_c param_name("IN");
+            /* Get the value from a foo(<param_name> = <param_value>) style call */
+            symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
+            
+            /* Get the value from a foo(<param_value>) style call */
+            if (IN_param_value == NULL)
+              IN_param_value = function_call_param_iterator.next();
+            symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
+            last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
+            
+            if (typeid(*last_type_symbol) == typeid(lint_type_name_c))
+            {
+        
+                symbol_c * return_type_symbol = &search_constant_type_c::dt_type_name;
+                s4o.print("(");
+                return_type_symbol->accept(*this);
+                s4o.print(")real_to_time(");
+                IN_param_value->accept(*this);
+                s4o.print(")");
+                return NULL;
+                
+            }
+            
+            ERROR;
+        }
+        
+    }/*function_lint_to_dt*/
+    break;
+
+/****
+ *USINT_TO_REAL
+ */
+    case function_usint_to_real :
+    {
+        symbol_c *last_type_symbol = NULL;
+
+        {
+            identifier_c param_name("IN");
+            /* Get the value from a foo(<param_name> = <param_value>) style call */
+            symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
+            
+            /* Get the value from a foo(<param_value>) style call */
+            if (IN_param_value == NULL)
+              IN_param_value = function_call_param_iterator.next();
+            symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
+            last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
+            
+            if (typeid(*last_type_symbol) == typeid(usint_type_name_c))
+            {
+        
+                symbol_c * return_type_symbol = &search_constant_type_c::real_type_name;
+                s4o.print("(");
+                return_type_symbol->accept(*this);
+                s4o.print(")");
+                IN_param_value->accept(*this);
+                return NULL;
+                
+            }
+            
+            ERROR;
+        }
+        
+    }/*function_usint_to_real*/
+    break;
+
+/****
+ *USINT_TO_LREAL
+ */
+    case function_usint_to_lreal :
+    {
+        symbol_c *last_type_symbol = NULL;
+
+        {
+            identifier_c param_name("IN");
+            /* Get the value from a foo(<param_name> = <param_value>) style call */
+            symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
+            
+            /* Get the value from a foo(<param_value>) style call */
+            if (IN_param_value == NULL)
+              IN_param_value = function_call_param_iterator.next();
+            symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
+            last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
+            
+            if (typeid(*last_type_symbol) == typeid(usint_type_name_c))
+            {
+        
+                symbol_c * return_type_symbol = &search_constant_type_c::lreal_type_name;
+                s4o.print("(");
+                return_type_symbol->accept(*this);
+                s4o.print(")");
+                IN_param_value->accept(*this);
+                return NULL;
+                
+            }
+            
+            ERROR;
+        }
+        
+    }/*function_usint_to_lreal*/
+    break;
+
+/****
+ *USINT_TO_SINT
+ */
+    case function_usint_to_sint :
+    {
+        symbol_c *last_type_symbol = NULL;
+
+        {
+            identifier_c param_name("IN");
+            /* Get the value from a foo(<param_name> = <param_value>) style call */
+            symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
+            
+            /* Get the value from a foo(<param_value>) style call */
+            if (IN_param_value == NULL)
+              IN_param_value = function_call_param_iterator.next();
+            symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
+            last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
+            
+            if (typeid(*last_type_symbol) == typeid(usint_type_name_c))
+            {
+        
+                symbol_c * return_type_symbol = &search_constant_type_c::sint_type_name;
+                s4o.print("(");
+                return_type_symbol->accept(*this);
+                s4o.print(")");
+                IN_param_value->accept(*this);
+                return NULL;
+                
+            }
+            
+            ERROR;
+        }
+        
+    }/*function_usint_to_sint*/
+    break;
+
+/****
+ *USINT_TO_INT
+ */
+    case function_usint_to_int :
+    {
+        symbol_c *last_type_symbol = NULL;
+
+        {
+            identifier_c param_name("IN");
+            /* Get the value from a foo(<param_name> = <param_value>) style call */
+            symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
+            
+            /* Get the value from a foo(<param_value>) style call */
+            if (IN_param_value == NULL)
+              IN_param_value = function_call_param_iterator.next();
+            symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
+            last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
+            
+            if (typeid(*last_type_symbol) == typeid(usint_type_name_c))
+            {
+        
+                symbol_c * return_type_symbol = &search_constant_type_c::int_type_name;
+                s4o.print("(");
+                return_type_symbol->accept(*this);
+                s4o.print(")");
+                IN_param_value->accept(*this);
+                return NULL;
+                
+            }
+            
+            ERROR;
+        }
+        
+    }/*function_usint_to_int*/
+    break;
+
+/****
+ *USINT_TO_DINT
+ */
+    case function_usint_to_dint :
+    {
+        symbol_c *last_type_symbol = NULL;
+
+        {
+            identifier_c param_name("IN");
+            /* Get the value from a foo(<param_name> = <param_value>) style call */
+            symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
+            
+            /* Get the value from a foo(<param_value>) style call */
+            if (IN_param_value == NULL)
+              IN_param_value = function_call_param_iterator.next();
+            symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
+            last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
+            
+            if (typeid(*last_type_symbol) == typeid(usint_type_name_c))
+            {
+        
+                symbol_c * return_type_symbol = &search_constant_type_c::dint_type_name;
+                s4o.print("(");
+                return_type_symbol->accept(*this);
+                s4o.print(")");
+                IN_param_value->accept(*this);
+                return NULL;
+                
+            }
+            
+            ERROR;
+        }
+        
+    }/*function_usint_to_dint*/
+    break;
+
+/****
+ *USINT_TO_LINT
+ */
+    case function_usint_to_lint :
+    {
+        symbol_c *last_type_symbol = NULL;
+
+        {
+            identifier_c param_name("IN");
+            /* Get the value from a foo(<param_name> = <param_value>) style call */
+            symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
+            
+            /* Get the value from a foo(<param_value>) style call */
+            if (IN_param_value == NULL)
+              IN_param_value = function_call_param_iterator.next();
+            symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
+            last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
+            
+            if (typeid(*last_type_symbol) == typeid(usint_type_name_c))
+            {
+        
+                symbol_c * return_type_symbol = &search_constant_type_c::lint_type_name;
+                s4o.print("(");
+                return_type_symbol->accept(*this);
+                s4o.print(")");
+                IN_param_value->accept(*this);
+                return NULL;
+                
+            }
+            
+            ERROR;
+        }
+        
+    }/*function_usint_to_lint*/
+    break;
+
+/****
+ *USINT_TO_UINT
+ */
+    case function_usint_to_uint :
+    {
+        symbol_c *last_type_symbol = NULL;
+
+        {
+            identifier_c param_name("IN");
+            /* Get the value from a foo(<param_name> = <param_value>) style call */
+            symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
+            
+            /* Get the value from a foo(<param_value>) style call */
+            if (IN_param_value == NULL)
+              IN_param_value = function_call_param_iterator.next();
+            symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
+            last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
+            
+            if (typeid(*last_type_symbol) == typeid(usint_type_name_c))
+            {
+        
+                symbol_c * return_type_symbol = &search_constant_type_c::uint_type_name;
+                s4o.print("(");
+                return_type_symbol->accept(*this);
+                s4o.print(")");
+                IN_param_value->accept(*this);
+                return NULL;
+                
+            }
+            
+            ERROR;
+        }
+        
+    }/*function_usint_to_uint*/
+    break;
+
+/****
+ *USINT_TO_UDINT
+ */
+    case function_usint_to_udint :
+    {
+        symbol_c *last_type_symbol = NULL;
+
+        {
+            identifier_c param_name("IN");
+            /* Get the value from a foo(<param_name> = <param_value>) style call */
+            symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
+            
+            /* Get the value from a foo(<param_value>) style call */
+            if (IN_param_value == NULL)
+              IN_param_value = function_call_param_iterator.next();
+            symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
+            last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
+            
+            if (typeid(*last_type_symbol) == typeid(usint_type_name_c))
+            {
+        
+                symbol_c * return_type_symbol = &search_constant_type_c::udint_type_name;
+                s4o.print("(");
+                return_type_symbol->accept(*this);
+                s4o.print(")");
+                IN_param_value->accept(*this);
+                return NULL;
+                
+            }
+            
+            ERROR;
+        }
+        
+    }/*function_usint_to_udint*/
+    break;
+
+/****
+ *USINT_TO_ULINT
+ */
+    case function_usint_to_ulint :
+    {
+        symbol_c *last_type_symbol = NULL;
+
+        {
+            identifier_c param_name("IN");
+            /* Get the value from a foo(<param_name> = <param_value>) style call */
+            symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
+            
+            /* Get the value from a foo(<param_value>) style call */
+            if (IN_param_value == NULL)
+              IN_param_value = function_call_param_iterator.next();
+            symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
+            last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
+            
+            if (typeid(*last_type_symbol) == typeid(usint_type_name_c))
+            {
+        
+                symbol_c * return_type_symbol = &search_constant_type_c::ulint_type_name;
+                s4o.print("(");
+                return_type_symbol->accept(*this);
+                s4o.print(")");
+                IN_param_value->accept(*this);
+                return NULL;
+                
+            }
+            
+            ERROR;
+        }
+        
+    }/*function_usint_to_ulint*/
+    break;
+
+/****
+ *USINT_TO_TIME
+ */
+    case function_usint_to_time :
+    {
+        symbol_c *last_type_symbol = NULL;
+
+        {
+            identifier_c param_name("IN");
+            /* Get the value from a foo(<param_name> = <param_value>) style call */
+            symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
+            
+            /* Get the value from a foo(<param_value>) style call */
+            if (IN_param_value == NULL)
+              IN_param_value = function_call_param_iterator.next();
+            symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
+            last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
+            
+            if (typeid(*last_type_symbol) == typeid(usint_type_name_c))
+            {
+        
+                symbol_c * return_type_symbol = &search_constant_type_c::time_type_name;
+                s4o.print("(");
+                return_type_symbol->accept(*this);
+                s4o.print(")real_to_time(");
+                IN_param_value->accept(*this);
+                s4o.print(")");
+                return NULL;
+                
+            }
+            
+            ERROR;
+        }
+        
+    }/*function_usint_to_time*/
+    break;
+
+/****
+ *USINT_TO_BOOL
+ */
+    case function_usint_to_bool :
+    {
+        symbol_c *last_type_symbol = NULL;
+
+        {
+            identifier_c param_name("IN");
+            /* Get the value from a foo(<param_name> = <param_value>) style call */
+            symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
+            
+            /* Get the value from a foo(<param_value>) style call */
+            if (IN_param_value == NULL)
+              IN_param_value = function_call_param_iterator.next();
+            symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
+            last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
+            
+            if (typeid(*last_type_symbol) == typeid(usint_type_name_c))
+            {
+        
+                symbol_c * return_type_symbol = &search_constant_type_c::bool_type_name;
+                s4o.print("(");
+                return_type_symbol->accept(*this);
+                s4o.print(")");
+                IN_param_value->accept(*this);
+                return NULL;
+                
+            }
+            
+            ERROR;
+        }
+        
+    }/*function_usint_to_bool*/
+    break;
+
+/****
+ *USINT_TO_BYTE
+ */
+    case function_usint_to_byte :
+    {
+        symbol_c *last_type_symbol = NULL;
+
+        {
+            identifier_c param_name("IN");
+            /* Get the value from a foo(<param_name> = <param_value>) style call */
+            symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
+            
+            /* Get the value from a foo(<param_value>) style call */
+            if (IN_param_value == NULL)
+              IN_param_value = function_call_param_iterator.next();
+            symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
+            last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
+            
+            if (typeid(*last_type_symbol) == typeid(usint_type_name_c))
+            {
+        
+                symbol_c * return_type_symbol = &search_constant_type_c::byte_type_name;
+                s4o.print("(");
+                return_type_symbol->accept(*this);
+                s4o.print(")");
+                IN_param_value->accept(*this);
+                return NULL;
+                
+            }
+            
+            ERROR;
+        }
+        
+    }/*function_usint_to_byte*/
+    break;
+
+/****
+ *USINT_TO_WORD
+ */
+    case function_usint_to_word :
+    {
+        symbol_c *last_type_symbol = NULL;
+
+        {
+            identifier_c param_name("IN");
+            /* Get the value from a foo(<param_name> = <param_value>) style call */
+            symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
+            
+            /* Get the value from a foo(<param_value>) style call */
+            if (IN_param_value == NULL)
+              IN_param_value = function_call_param_iterator.next();
+            symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
+            last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
+            
+            if (typeid(*last_type_symbol) == typeid(usint_type_name_c))
+            {
+        
+                symbol_c * return_type_symbol = &search_constant_type_c::word_type_name;
+                s4o.print("(");
+                return_type_symbol->accept(*this);
+                s4o.print(")");
+                IN_param_value->accept(*this);
+                return NULL;
+                
+            }
+            
+            ERROR;
+        }
+        
+    }/*function_usint_to_word*/
+    break;
+
+/****
+ *USINT_TO_DWORD
+ */
+    case function_usint_to_dword :
+    {
+        symbol_c *last_type_symbol = NULL;
+
+        {
+            identifier_c param_name("IN");
+            /* Get the value from a foo(<param_name> = <param_value>) style call */
+            symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
+            
+            /* Get the value from a foo(<param_value>) style call */
+            if (IN_param_value == NULL)
+              IN_param_value = function_call_param_iterator.next();
+            symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
+            last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
+            
+            if (typeid(*last_type_symbol) == typeid(usint_type_name_c))
+            {
+        
+                symbol_c * return_type_symbol = &search_constant_type_c::dword_type_name;
+                s4o.print("(");
+                return_type_symbol->accept(*this);
+                s4o.print(")");
+                IN_param_value->accept(*this);
+                return NULL;
+                
+            }
+            
+            ERROR;
+        }
+        
+    }/*function_usint_to_dword*/
+    break;
+
+/****
+ *USINT_TO_LWORD
+ */
+    case function_usint_to_lword :
+    {
+        symbol_c *last_type_symbol = NULL;
+
+        {
+            identifier_c param_name("IN");
+            /* Get the value from a foo(<param_name> = <param_value>) style call */
+            symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
+            
+            /* Get the value from a foo(<param_value>) style call */
+            if (IN_param_value == NULL)
+              IN_param_value = function_call_param_iterator.next();
+            symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
+            last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
+            
+            if (typeid(*last_type_symbol) == typeid(usint_type_name_c))
+            {
+        
+                symbol_c * return_type_symbol = &search_constant_type_c::lword_type_name;
+                s4o.print("(");
+                return_type_symbol->accept(*this);
+                s4o.print(")");
+                IN_param_value->accept(*this);
+                return NULL;
+                
+            }
+            
+            ERROR;
+        }
+        
+    }/*function_usint_to_lword*/
+    break;
+
+/****
+ *USINT_TO_STRING
+ */
+    case function_usint_to_string :
+    {
+        symbol_c *last_type_symbol = NULL;
+
+        {
+            identifier_c param_name("IN");
+            /* Get the value from a foo(<param_name> = <param_value>) style call */
+            symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
+            
+            /* Get the value from a foo(<param_value>) style call */
+            if (IN_param_value == NULL)
+              IN_param_value = function_call_param_iterator.next();
+            symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
+            last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
+            
+            if (typeid(*last_type_symbol) == typeid(usint_type_name_c))
+            {
+        
+                symbol_c * return_type_symbol = &search_constant_type_c::string_type_name;
+                s4o.print("(");
+                return_type_symbol->accept(*this);
+                s4o.print(")int_to_string(");
+                IN_param_value->accept(*this);
+                s4o.print(", 10)");
+                return NULL;
+                
+            }
+            
+            ERROR;
+        }
+        
+    }/*function_usint_to_string*/
+    break;
+
+/****
+ *USINT_TO_WSTRING
+ */
+    case function_usint_to_wstring :
+    {
+        symbol_c *last_type_symbol = NULL;
+
+        {
+            identifier_c param_name("IN");
+            /* Get the value from a foo(<param_name> = <param_value>) style call */
+            symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
+            
+            /* Get the value from a foo(<param_value>) style call */
+            if (IN_param_value == NULL)
+              IN_param_value = function_call_param_iterator.next();
+            symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
+            last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
+            
+            if (typeid(*last_type_symbol) == typeid(usint_type_name_c))
+            {
+        
+                symbol_c * return_type_symbol = &search_constant_type_c::wstring_type_name;
+                s4o.print("(");
+                return_type_symbol->accept(*this);
+                s4o.print(")int_to_string(");
+                IN_param_value->accept(*this);
+                s4o.print(", 10)");
+                return NULL;
+                
+            }
+            
+            ERROR;
+        }
+        
+    }/*function_usint_to_wstring*/
+    break;
+
+/****
+ *USINT_TO_DATE
+ */
+    case function_usint_to_date :
+    {
+        symbol_c *last_type_symbol = NULL;
+
+        {
+            identifier_c param_name("IN");
+            /* Get the value from a foo(<param_name> = <param_value>) style call */
+            symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
+            
+            /* Get the value from a foo(<param_value>) style call */
+            if (IN_param_value == NULL)
+              IN_param_value = function_call_param_iterator.next();
+            symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
+            last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
+            
+            if (typeid(*last_type_symbol) == typeid(usint_type_name_c))
+            {
+        
+                symbol_c * return_type_symbol = &search_constant_type_c::date_type_name;
+                s4o.print("(");
+                return_type_symbol->accept(*this);
+                s4o.print(")real_to_time(");
+                IN_param_value->accept(*this);
+                s4o.print(")");
+                return NULL;
+                
+            }
+            
+            ERROR;
+        }
+        
+    }/*function_usint_to_date*/
+    break;
+
+/****
+ *USINT_TO_TOD
+ */
+    case function_usint_to_tod :
+    {
+        symbol_c *last_type_symbol = NULL;
+
+        {
+            identifier_c param_name("IN");
+            /* Get the value from a foo(<param_name> = <param_value>) style call */
+            symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
+            
+            /* Get the value from a foo(<param_value>) style call */
+            if (IN_param_value == NULL)
+              IN_param_value = function_call_param_iterator.next();
+            symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
+            last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
+            
+            if (typeid(*last_type_symbol) == typeid(usint_type_name_c))
+            {
+        
+                symbol_c * return_type_symbol = &search_constant_type_c::tod_type_name;
+                s4o.print("(");
+                return_type_symbol->accept(*this);
+                s4o.print(")real_to_time(");
+                IN_param_value->accept(*this);
+                s4o.print(")");
+                return NULL;
+                
+            }
+            
+            ERROR;
+        }
+        
+    }/*function_usint_to_tod*/
+    break;
+
+/****
+ *USINT_TO_DT
+ */
+    case function_usint_to_dt :
+    {
+        symbol_c *last_type_symbol = NULL;
+
+        {
+            identifier_c param_name("IN");
+            /* Get the value from a foo(<param_name> = <param_value>) style call */
+            symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
+            
+            /* Get the value from a foo(<param_value>) style call */
+            if (IN_param_value == NULL)
+              IN_param_value = function_call_param_iterator.next();
+            symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
+            last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
+            
+            if (typeid(*last_type_symbol) == typeid(usint_type_name_c))
+            {
+        
+                symbol_c * return_type_symbol = &search_constant_type_c::dt_type_name;
+                s4o.print("(");
+                return_type_symbol->accept(*this);
+                s4o.print(")real_to_time(");
+                IN_param_value->accept(*this);
+                s4o.print(")");
+                return NULL;
+                
+            }
+            
+            ERROR;
+        }
+        
+    }/*function_usint_to_dt*/
+    break;
+
+/****
+ *UINT_TO_REAL
+ */
+    case function_uint_to_real :
+    {
+        symbol_c *last_type_symbol = NULL;
+
+        {
+            identifier_c param_name("IN");
+            /* Get the value from a foo(<param_name> = <param_value>) style call */
+            symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
+            
+            /* Get the value from a foo(<param_value>) style call */
+            if (IN_param_value == NULL)
+              IN_param_value = function_call_param_iterator.next();
+            symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
+            last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
+            
+            if (typeid(*last_type_symbol) == typeid(uint_type_name_c))
+            {
+        
+                symbol_c * return_type_symbol = &search_constant_type_c::real_type_name;
+                s4o.print("(");
+                return_type_symbol->accept(*this);
+                s4o.print(")");
+                IN_param_value->accept(*this);
+                return NULL;
+                
+            }
+            
+            ERROR;
+        }
+        
+    }/*function_uint_to_real*/
+    break;
+
+/****
+ *UINT_TO_LREAL
+ */
+    case function_uint_to_lreal :
+    {
+        symbol_c *last_type_symbol = NULL;
+
+        {
+            identifier_c param_name("IN");
+            /* Get the value from a foo(<param_name> = <param_value>) style call */
+            symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
+            
+            /* Get the value from a foo(<param_value>) style call */
+            if (IN_param_value == NULL)
+              IN_param_value = function_call_param_iterator.next();
+            symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
+            last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
+            
+            if (typeid(*last_type_symbol) == typeid(uint_type_name_c))
+            {
+        
+                symbol_c * return_type_symbol = &search_constant_type_c::lreal_type_name;
+                s4o.print("(");
+                return_type_symbol->accept(*this);
+                s4o.print(")");
+                IN_param_value->accept(*this);
+                return NULL;
+                
+            }
+            
+            ERROR;
+        }
+        
+    }/*function_uint_to_lreal*/
+    break;
+
+/****
+ *UINT_TO_SINT
+ */
+    case function_uint_to_sint :
+    {
+        symbol_c *last_type_symbol = NULL;
+
+        {
+            identifier_c param_name("IN");
+            /* Get the value from a foo(<param_name> = <param_value>) style call */
+            symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
+            
+            /* Get the value from a foo(<param_value>) style call */
+            if (IN_param_value == NULL)
+              IN_param_value = function_call_param_iterator.next();
+            symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
+            last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
+            
+            if (typeid(*last_type_symbol) == typeid(uint_type_name_c))
+            {
+        
+                symbol_c * return_type_symbol = &search_constant_type_c::sint_type_name;
+                s4o.print("(");
+                return_type_symbol->accept(*this);
+                s4o.print(")");
+                IN_param_value->accept(*this);
+                return NULL;
+                
+            }
+            
+            ERROR;
+        }
+        
+    }/*function_uint_to_sint*/
+    break;
+
+/****
+ *UINT_TO_INT
+ */
+    case function_uint_to_int :
+    {
+        symbol_c *last_type_symbol = NULL;
+
+        {
+            identifier_c param_name("IN");
+            /* Get the value from a foo(<param_name> = <param_value>) style call */
+            symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
+            
+            /* Get the value from a foo(<param_value>) style call */
+            if (IN_param_value == NULL)
+              IN_param_value = function_call_param_iterator.next();
+            symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
+            last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
+            
+            if (typeid(*last_type_symbol) == typeid(uint_type_name_c))
+            {
+        
+                symbol_c * return_type_symbol = &search_constant_type_c::int_type_name;
+                s4o.print("(");
+                return_type_symbol->accept(*this);
+                s4o.print(")");
+                IN_param_value->accept(*this);
+                return NULL;
+                
+            }
+            
+            ERROR;
+        }
+        
+    }/*function_uint_to_int*/
+    break;
+
+/****
+ *UINT_TO_DINT
+ */
+    case function_uint_to_dint :
+    {
+        symbol_c *last_type_symbol = NULL;
+
+        {
+            identifier_c param_name("IN");
+            /* Get the value from a foo(<param_name> = <param_value>) style call */
+            symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
+            
+            /* Get the value from a foo(<param_value>) style call */
+            if (IN_param_value == NULL)
+              IN_param_value = function_call_param_iterator.next();
+            symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
+            last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
+            
+            if (typeid(*last_type_symbol) == typeid(uint_type_name_c))
+            {
+        
+                symbol_c * return_type_symbol = &search_constant_type_c::dint_type_name;
+                s4o.print("(");
+                return_type_symbol->accept(*this);
+                s4o.print(")");
+                IN_param_value->accept(*this);
+                return NULL;
+                
+            }
+            
+            ERROR;
+        }
+        
+    }/*function_uint_to_dint*/
+    break;
+
+/****
+ *UINT_TO_LINT
+ */
+    case function_uint_to_lint :
+    {
+        symbol_c *last_type_symbol = NULL;
+
+        {
+            identifier_c param_name("IN");
+            /* Get the value from a foo(<param_name> = <param_value>) style call */
+            symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
+            
+            /* Get the value from a foo(<param_value>) style call */
+            if (IN_param_value == NULL)
+              IN_param_value = function_call_param_iterator.next();
+            symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
+            last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
+            
+            if (typeid(*last_type_symbol) == typeid(uint_type_name_c))
+            {
+        
+                symbol_c * return_type_symbol = &search_constant_type_c::lint_type_name;
+                s4o.print("(");
+                return_type_symbol->accept(*this);
+                s4o.print(")");
+                IN_param_value->accept(*this);
+                return NULL;
+                
+            }
+            
+            ERROR;
+        }
+        
+    }/*function_uint_to_lint*/
+    break;
+
+/****
+ *UINT_TO_USINT
+ */
+    case function_uint_to_usint :
+    {
+        symbol_c *last_type_symbol = NULL;
+
+        {
+            identifier_c param_name("IN");
+            /* Get the value from a foo(<param_name> = <param_value>) style call */
+            symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
+            
+            /* Get the value from a foo(<param_value>) style call */
+            if (IN_param_value == NULL)
+              IN_param_value = function_call_param_iterator.next();
+            symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
+            last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
+            
+            if (typeid(*last_type_symbol) == typeid(uint_type_name_c))
+            {
+        
+                symbol_c * return_type_symbol = &search_constant_type_c::usint_type_name;
+                s4o.print("(");
+                return_type_symbol->accept(*this);
+                s4o.print(")");
+                IN_param_value->accept(*this);
+                return NULL;
+                
+            }
+            
+            ERROR;
+        }
+        
+    }/*function_uint_to_usint*/
+    break;
+
+/****
+ *UINT_TO_UDINT
+ */
+    case function_uint_to_udint :
+    {
+        symbol_c *last_type_symbol = NULL;
+
+        {
+            identifier_c param_name("IN");
+            /* Get the value from a foo(<param_name> = <param_value>) style call */
+            symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
+            
+            /* Get the value from a foo(<param_value>) style call */
+            if (IN_param_value == NULL)
+              IN_param_value = function_call_param_iterator.next();
+            symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
+            last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
+            
+            if (typeid(*last_type_symbol) == typeid(uint_type_name_c))
+            {
+        
+                symbol_c * return_type_symbol = &search_constant_type_c::udint_type_name;
+                s4o.print("(");
+                return_type_symbol->accept(*this);
+                s4o.print(")");
+                IN_param_value->accept(*this);
+                return NULL;
+                
+            }
+            
+            ERROR;
+        }
+        
+    }/*function_uint_to_udint*/
+    break;
+
+/****
+ *UINT_TO_ULINT
+ */
+    case function_uint_to_ulint :
+    {
+        symbol_c *last_type_symbol = NULL;
+
+        {
+            identifier_c param_name("IN");
+            /* Get the value from a foo(<param_name> = <param_value>) style call */
+            symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
+            
+            /* Get the value from a foo(<param_value>) style call */
+            if (IN_param_value == NULL)
+              IN_param_value = function_call_param_iterator.next();
+            symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
+            last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
+            
+            if (typeid(*last_type_symbol) == typeid(uint_type_name_c))
+            {
+        
+                symbol_c * return_type_symbol = &search_constant_type_c::ulint_type_name;
+                s4o.print("(");
+                return_type_symbol->accept(*this);
+                s4o.print(")");
+                IN_param_value->accept(*this);
+                return NULL;
+                
+            }
+            
+            ERROR;
+        }
+        
+    }/*function_uint_to_ulint*/
+    break;
+
+/****
+ *UINT_TO_TIME
+ */
+    case function_uint_to_time :
+    {
+        symbol_c *last_type_symbol = NULL;
+
+        {
+            identifier_c param_name("IN");
+            /* Get the value from a foo(<param_name> = <param_value>) style call */
+            symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
+            
+            /* Get the value from a foo(<param_value>) style call */
+            if (IN_param_value == NULL)
+              IN_param_value = function_call_param_iterator.next();
+            symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
+            last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
+            
+            if (typeid(*last_type_symbol) == typeid(uint_type_name_c))
+            {
+        
+                symbol_c * return_type_symbol = &search_constant_type_c::time_type_name;
+                s4o.print("(");
+                return_type_symbol->accept(*this);
+                s4o.print(")real_to_time(");
+                IN_param_value->accept(*this);
+                s4o.print(")");
+                return NULL;
+                
+            }
+            
+            ERROR;
+        }
+        
+    }/*function_uint_to_time*/
+    break;
+
+/****
+ *UINT_TO_BOOL
+ */
+    case function_uint_to_bool :
+    {
+        symbol_c *last_type_symbol = NULL;
+
+        {
+            identifier_c param_name("IN");
+            /* Get the value from a foo(<param_name> = <param_value>) style call */
+            symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
+            
+            /* Get the value from a foo(<param_value>) style call */
+            if (IN_param_value == NULL)
+              IN_param_value = function_call_param_iterator.next();
+            symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
+            last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
+            
+            if (typeid(*last_type_symbol) == typeid(uint_type_name_c))
+            {
+        
+                symbol_c * return_type_symbol = &search_constant_type_c::bool_type_name;
+                s4o.print("(");
+                return_type_symbol->accept(*this);
+                s4o.print(")");
+                IN_param_value->accept(*this);
+                return NULL;
+                
+            }
+            
+            ERROR;
+        }
+        
+    }/*function_uint_to_bool*/
+    break;
+
+/****
+ *UINT_TO_BYTE
+ */
+    case function_uint_to_byte :
+    {
+        symbol_c *last_type_symbol = NULL;
+
+        {
+            identifier_c param_name("IN");
+            /* Get the value from a foo(<param_name> = <param_value>) style call */
+            symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
+            
+            /* Get the value from a foo(<param_value>) style call */
+            if (IN_param_value == NULL)
+              IN_param_value = function_call_param_iterator.next();
+            symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
+            last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
+            
+            if (typeid(*last_type_symbol) == typeid(uint_type_name_c))
+            {
+        
+                symbol_c * return_type_symbol = &search_constant_type_c::byte_type_name;
+                s4o.print("(");
+                return_type_symbol->accept(*this);
+                s4o.print(")");
+                IN_param_value->accept(*this);
+                return NULL;
+                
+            }
+            
+            ERROR;
+        }
+        
+    }/*function_uint_to_byte*/
+    break;
+
+/****
+ *UINT_TO_WORD
+ */
+    case function_uint_to_word :
+    {
+        symbol_c *last_type_symbol = NULL;
+
+        {
+            identifier_c param_name("IN");
+            /* Get the value from a foo(<param_name> = <param_value>) style call */
+            symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
+            
+            /* Get the value from a foo(<param_value>) style call */
+            if (IN_param_value == NULL)
+              IN_param_value = function_call_param_iterator.next();
+            symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
+            last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
+            
+            if (typeid(*last_type_symbol) == typeid(uint_type_name_c))
+            {
+        
+                symbol_c * return_type_symbol = &search_constant_type_c::word_type_name;
+                s4o.print("(");
+                return_type_symbol->accept(*this);
+                s4o.print(")");
+                IN_param_value->accept(*this);
+                return NULL;
+                
+            }
+            
+            ERROR;
+        }
+        
+    }/*function_uint_to_word*/
+    break;
+
+/****
+ *UINT_TO_DWORD
+ */
+    case function_uint_to_dword :
+    {
+        symbol_c *last_type_symbol = NULL;
+
+        {
+            identifier_c param_name("IN");
+            /* Get the value from a foo(<param_name> = <param_value>) style call */
+            symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
+            
+            /* Get the value from a foo(<param_value>) style call */
+            if (IN_param_value == NULL)
+              IN_param_value = function_call_param_iterator.next();
+            symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
+            last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
+            
+            if (typeid(*last_type_symbol) == typeid(uint_type_name_c))
+            {
+        
+                symbol_c * return_type_symbol = &search_constant_type_c::dword_type_name;
+                s4o.print("(");
+                return_type_symbol->accept(*this);
+                s4o.print(")");
+                IN_param_value->accept(*this);
+                return NULL;
+                
+            }
+            
+            ERROR;
+        }
+        
+    }/*function_uint_to_dword*/
+    break;
+
+/****
+ *UINT_TO_LWORD
+ */
+    case function_uint_to_lword :
+    {
+        symbol_c *last_type_symbol = NULL;
+
+        {
+            identifier_c param_name("IN");
+            /* Get the value from a foo(<param_name> = <param_value>) style call */
+            symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
+            
+            /* Get the value from a foo(<param_value>) style call */
+            if (IN_param_value == NULL)
+              IN_param_value = function_call_param_iterator.next();
+            symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
+            last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
+            
+            if (typeid(*last_type_symbol) == typeid(uint_type_name_c))
+            {
+        
+                symbol_c * return_type_symbol = &search_constant_type_c::lword_type_name;
+                s4o.print("(");
+                return_type_symbol->accept(*this);
+                s4o.print(")");
+                IN_param_value->accept(*this);
+                return NULL;
+                
+            }
+            
+            ERROR;
+        }
+        
+    }/*function_uint_to_lword*/
+    break;
+
+/****
+ *UINT_TO_STRING
+ */
+    case function_uint_to_string :
+    {
+        symbol_c *last_type_symbol = NULL;
+
+        {
+            identifier_c param_name("IN");
+            /* Get the value from a foo(<param_name> = <param_value>) style call */
+            symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
+            
+            /* Get the value from a foo(<param_value>) style call */
+            if (IN_param_value == NULL)
+              IN_param_value = function_call_param_iterator.next();
+            symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
+            last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
+            
+            if (typeid(*last_type_symbol) == typeid(uint_type_name_c))
+            {
+        
+                symbol_c * return_type_symbol = &search_constant_type_c::string_type_name;
+                s4o.print("(");
+                return_type_symbol->accept(*this);
+                s4o.print(")int_to_string(");
+                IN_param_value->accept(*this);
+                s4o.print(", 10)");
+                return NULL;
+                
+            }
+            
+            ERROR;
+        }
+        
+    }/*function_uint_to_string*/
+    break;
+
+/****
+ *UINT_TO_WSTRING
+ */
+    case function_uint_to_wstring :
+    {
+        symbol_c *last_type_symbol = NULL;
+
+        {
+            identifier_c param_name("IN");
+            /* Get the value from a foo(<param_name> = <param_value>) style call */
+            symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
+            
+            /* Get the value from a foo(<param_value>) style call */
+            if (IN_param_value == NULL)
+              IN_param_value = function_call_param_iterator.next();
+            symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
+            last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
+            
+            if (typeid(*last_type_symbol) == typeid(uint_type_name_c))
+            {
+        
+                symbol_c * return_type_symbol = &search_constant_type_c::wstring_type_name;
+                s4o.print("(");
+                return_type_symbol->accept(*this);
+                s4o.print(")int_to_string(");
+                IN_param_value->accept(*this);
+                s4o.print(", 10)");
+                return NULL;
+                
+            }
+            
+            ERROR;
+        }
+        
+    }/*function_uint_to_wstring*/
+    break;
+
+/****
+ *UINT_TO_DATE
+ */
+    case function_uint_to_date :
+    {
+        symbol_c *last_type_symbol = NULL;
+
+        {
+            identifier_c param_name("IN");
+            /* Get the value from a foo(<param_name> = <param_value>) style call */
+            symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
+            
+            /* Get the value from a foo(<param_value>) style call */
+            if (IN_param_value == NULL)
+              IN_param_value = function_call_param_iterator.next();
+            symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
+            last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
+            
+            if (typeid(*last_type_symbol) == typeid(uint_type_name_c))
+            {
+        
+                symbol_c * return_type_symbol = &search_constant_type_c::date_type_name;
+                s4o.print("(");
+                return_type_symbol->accept(*this);
+                s4o.print(")real_to_time(");
+                IN_param_value->accept(*this);
+                s4o.print(")");
+                return NULL;
+                
+            }
+            
+            ERROR;
+        }
+        
+    }/*function_uint_to_date*/
+    break;
+
+/****
+ *UINT_TO_TOD
+ */
+    case function_uint_to_tod :
+    {
+        symbol_c *last_type_symbol = NULL;
+
+        {
+            identifier_c param_name("IN");
+            /* Get the value from a foo(<param_name> = <param_value>) style call */
+            symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
+            
+            /* Get the value from a foo(<param_value>) style call */
+            if (IN_param_value == NULL)
+              IN_param_value = function_call_param_iterator.next();
+            symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
+            last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
+            
+            if (typeid(*last_type_symbol) == typeid(uint_type_name_c))
+            {
+        
+                symbol_c * return_type_symbol = &search_constant_type_c::tod_type_name;
+                s4o.print("(");
+                return_type_symbol->accept(*this);
+                s4o.print(")real_to_time(");
+                IN_param_value->accept(*this);
+                s4o.print(")");
+                return NULL;
+                
+            }
+            
+            ERROR;
+        }
+        
+    }/*function_uint_to_tod*/
+    break;
+
+/****
+ *UINT_TO_DT
+ */
+    case function_uint_to_dt :
+    {
+        symbol_c *last_type_symbol = NULL;
+
+        {
+            identifier_c param_name("IN");
+            /* Get the value from a foo(<param_name> = <param_value>) style call */
+            symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
+            
+            /* Get the value from a foo(<param_value>) style call */
+            if (IN_param_value == NULL)
+              IN_param_value = function_call_param_iterator.next();
+            symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
+            last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
+            
+            if (typeid(*last_type_symbol) == typeid(uint_type_name_c))
+            {
+        
+                symbol_c * return_type_symbol = &search_constant_type_c::dt_type_name;
+                s4o.print("(");
+                return_type_symbol->accept(*this);
+                s4o.print(")real_to_time(");
+                IN_param_value->accept(*this);
+                s4o.print(")");
+                return NULL;
+                
+            }
+            
+            ERROR;
+        }
+        
+    }/*function_uint_to_dt*/
+    break;
+
+/****
+ *UDINT_TO_REAL
+ */
+    case function_udint_to_real :
+    {
+        symbol_c *last_type_symbol = NULL;
+
+        {
+            identifier_c param_name("IN");
+            /* Get the value from a foo(<param_name> = <param_value>) style call */
+            symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
+            
+            /* Get the value from a foo(<param_value>) style call */
+            if (IN_param_value == NULL)
+              IN_param_value = function_call_param_iterator.next();
+            symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
+            last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
+            
+            if (typeid(*last_type_symbol) == typeid(udint_type_name_c))
+            {
+        
+                symbol_c * return_type_symbol = &search_constant_type_c::real_type_name;
+                s4o.print("(");
+                return_type_symbol->accept(*this);
+                s4o.print(")");
+                IN_param_value->accept(*this);
+                return NULL;
+                
+            }
+            
+            ERROR;
+        }
+        
+    }/*function_udint_to_real*/
+    break;
+
+/****
+ *UDINT_TO_LREAL
+ */
+    case function_udint_to_lreal :
+    {
+        symbol_c *last_type_symbol = NULL;
+
+        {
+            identifier_c param_name("IN");
+            /* Get the value from a foo(<param_name> = <param_value>) style call */
+            symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
+            
+            /* Get the value from a foo(<param_value>) style call */
+            if (IN_param_value == NULL)
+              IN_param_value = function_call_param_iterator.next();
+            symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
+            last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
+            
+            if (typeid(*last_type_symbol) == typeid(udint_type_name_c))
+            {
+        
+                symbol_c * return_type_symbol = &search_constant_type_c::lreal_type_name;
+                s4o.print("(");
+                return_type_symbol->accept(*this);
+                s4o.print(")");
+                IN_param_value->accept(*this);
+                return NULL;
+                
+            }
+            
+            ERROR;
+        }
+        
+    }/*function_udint_to_lreal*/
+    break;
+
+/****
+ *UDINT_TO_SINT
+ */
+    case function_udint_to_sint :
+    {
+        symbol_c *last_type_symbol = NULL;
+
+        {
+            identifier_c param_name("IN");
+            /* Get the value from a foo(<param_name> = <param_value>) style call */
+            symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
+            
+            /* Get the value from a foo(<param_value>) style call */
+            if (IN_param_value == NULL)
+              IN_param_value = function_call_param_iterator.next();
+            symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
+            last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
+            
+            if (typeid(*last_type_symbol) == typeid(udint_type_name_c))
+            {
+        
+                symbol_c * return_type_symbol = &search_constant_type_c::sint_type_name;
+                s4o.print("(");
+                return_type_symbol->accept(*this);
+                s4o.print(")");
+                IN_param_value->accept(*this);
+                return NULL;
+                
+            }
+            
+            ERROR;
+        }
+        
+    }/*function_udint_to_sint*/
+    break;
+
+/****
+ *UDINT_TO_INT
+ */
+    case function_udint_to_int :
+    {
+        symbol_c *last_type_symbol = NULL;
+
+        {
+            identifier_c param_name("IN");
+            /* Get the value from a foo(<param_name> = <param_value>) style call */
+            symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
+            
+            /* Get the value from a foo(<param_value>) style call */
+            if (IN_param_value == NULL)
+              IN_param_value = function_call_param_iterator.next();
+            symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
+            last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
+            
+            if (typeid(*last_type_symbol) == typeid(udint_type_name_c))
+            {
+        
+                symbol_c * return_type_symbol = &search_constant_type_c::int_type_name;
+                s4o.print("(");
+                return_type_symbol->accept(*this);
+                s4o.print(")");
+                IN_param_value->accept(*this);
+                return NULL;
+                
+            }
+            
+            ERROR;
+        }
+        
+    }/*function_udint_to_int*/
+    break;
+
+/****
+ *UDINT_TO_DINT
+ */
+    case function_udint_to_dint :
+    {
+        symbol_c *last_type_symbol = NULL;
+
+        {
+            identifier_c param_name("IN");
+            /* Get the value from a foo(<param_name> = <param_value>) style call */
+            symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
+            
+            /* Get the value from a foo(<param_value>) style call */
+            if (IN_param_value == NULL)
+              IN_param_value = function_call_param_iterator.next();
+            symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
+            last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
+            
+            if (typeid(*last_type_symbol) == typeid(udint_type_name_c))
+            {
+        
+                symbol_c * return_type_symbol = &search_constant_type_c::dint_type_name;
+                s4o.print("(");
+                return_type_symbol->accept(*this);
+                s4o.print(")");
+                IN_param_value->accept(*this);
+                return NULL;
+                
+            }
+            
+            ERROR;
+        }
+        
+    }/*function_udint_to_dint*/
+    break;
+
+/****
+ *UDINT_TO_LINT
+ */
+    case function_udint_to_lint :
+    {
+        symbol_c *last_type_symbol = NULL;
+
+        {
+            identifier_c param_name("IN");
+            /* Get the value from a foo(<param_name> = <param_value>) style call */
+            symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
+            
+            /* Get the value from a foo(<param_value>) style call */
+            if (IN_param_value == NULL)
+              IN_param_value = function_call_param_iterator.next();
+            symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
+            last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
+            
+            if (typeid(*last_type_symbol) == typeid(udint_type_name_c))
+            {
+        
+                symbol_c * return_type_symbol = &search_constant_type_c::lint_type_name;
+                s4o.print("(");
+                return_type_symbol->accept(*this);
+                s4o.print(")");
+                IN_param_value->accept(*this);
+                return NULL;
+                
+            }
+            
+            ERROR;
+        }
+        
+    }/*function_udint_to_lint*/
+    break;
+
+/****
+ *UDINT_TO_USINT
+ */
+    case function_udint_to_usint :
+    {
+        symbol_c *last_type_symbol = NULL;
+
+        {
+            identifier_c param_name("IN");
+            /* Get the value from a foo(<param_name> = <param_value>) style call */
+            symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
+            
+            /* Get the value from a foo(<param_value>) style call */
+            if (IN_param_value == NULL)
+              IN_param_value = function_call_param_iterator.next();
+            symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
+            last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
+            
+            if (typeid(*last_type_symbol) == typeid(udint_type_name_c))
+            {
+        
+                symbol_c * return_type_symbol = &search_constant_type_c::usint_type_name;
+                s4o.print("(");
+                return_type_symbol->accept(*this);
+                s4o.print(")");
+                IN_param_value->accept(*this);
+                return NULL;
+                
+            }
+            
+            ERROR;
+        }
+        
+    }/*function_udint_to_usint*/
+    break;
+
+/****
+ *UDINT_TO_UINT
+ */
+    case function_udint_to_uint :
+    {
+        symbol_c *last_type_symbol = NULL;
+
+        {
+            identifier_c param_name("IN");
+            /* Get the value from a foo(<param_name> = <param_value>) style call */
+            symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
+            
+            /* Get the value from a foo(<param_value>) style call */
+            if (IN_param_value == NULL)
+              IN_param_value = function_call_param_iterator.next();
+            symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
+            last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
+            
+            if (typeid(*last_type_symbol) == typeid(udint_type_name_c))
+            {
+        
+                symbol_c * return_type_symbol = &search_constant_type_c::uint_type_name;
+                s4o.print("(");
+                return_type_symbol->accept(*this);
+                s4o.print(")");
+                IN_param_value->accept(*this);
+                return NULL;
+                
+            }
+            
+            ERROR;
+        }
+        
+    }/*function_udint_to_uint*/
+    break;
+
+/****
+ *UDINT_TO_ULINT
+ */
+    case function_udint_to_ulint :
+    {
+        symbol_c *last_type_symbol = NULL;
+
+        {
+            identifier_c param_name("IN");
+            /* Get the value from a foo(<param_name> = <param_value>) style call */
+            symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
+            
+            /* Get the value from a foo(<param_value>) style call */
+            if (IN_param_value == NULL)
+              IN_param_value = function_call_param_iterator.next();
+            symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
+            last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
+            
+            if (typeid(*last_type_symbol) == typeid(udint_type_name_c))
+            {
+        
+                symbol_c * return_type_symbol = &search_constant_type_c::ulint_type_name;
+                s4o.print("(");
+                return_type_symbol->accept(*this);
+                s4o.print(")");
+                IN_param_value->accept(*this);
+                return NULL;
+                
+            }
+            
+            ERROR;
+        }
+        
+    }/*function_udint_to_ulint*/
+    break;
+
+/****
+ *UDINT_TO_TIME
+ */
+    case function_udint_to_time :
+    {
+        symbol_c *last_type_symbol = NULL;
+
+        {
+            identifier_c param_name("IN");
+            /* Get the value from a foo(<param_name> = <param_value>) style call */
+            symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
+            
+            /* Get the value from a foo(<param_value>) style call */
+            if (IN_param_value == NULL)
+              IN_param_value = function_call_param_iterator.next();
+            symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
+            last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
+            
+            if (typeid(*last_type_symbol) == typeid(udint_type_name_c))
+            {
+        
+                symbol_c * return_type_symbol = &search_constant_type_c::time_type_name;
+                s4o.print("(");
+                return_type_symbol->accept(*this);
+                s4o.print(")real_to_time(");
+                IN_param_value->accept(*this);
+                s4o.print(")");
+                return NULL;
+                
+            }
+            
+            ERROR;
+        }
+        
+    }/*function_udint_to_time*/
+    break;
+
+/****
+ *UDINT_TO_BOOL
+ */
+    case function_udint_to_bool :
+    {
+        symbol_c *last_type_symbol = NULL;
+
+        {
+            identifier_c param_name("IN");
+            /* Get the value from a foo(<param_name> = <param_value>) style call */
+            symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
+            
+            /* Get the value from a foo(<param_value>) style call */
+            if (IN_param_value == NULL)
+              IN_param_value = function_call_param_iterator.next();
+            symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
+            last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
+            
+            if (typeid(*last_type_symbol) == typeid(udint_type_name_c))
+            {
+        
+                symbol_c * return_type_symbol = &search_constant_type_c::bool_type_name;
+                s4o.print("(");
+                return_type_symbol->accept(*this);
+                s4o.print(")");
+                IN_param_value->accept(*this);
+                return NULL;
+                
+            }
+            
+            ERROR;
+        }
+        
+    }/*function_udint_to_bool*/
+    break;
+
+/****
+ *UDINT_TO_BYTE
+ */
+    case function_udint_to_byte :
+    {
+        symbol_c *last_type_symbol = NULL;
+
+        {
+            identifier_c param_name("IN");
+            /* Get the value from a foo(<param_name> = <param_value>) style call */
+            symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
+            
+            /* Get the value from a foo(<param_value>) style call */
+            if (IN_param_value == NULL)
+              IN_param_value = function_call_param_iterator.next();
+            symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
+            last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
+            
+            if (typeid(*last_type_symbol) == typeid(udint_type_name_c))
+            {
+        
+                symbol_c * return_type_symbol = &search_constant_type_c::byte_type_name;
+                s4o.print("(");
+                return_type_symbol->accept(*this);
+                s4o.print(")");
+                IN_param_value->accept(*this);
+                return NULL;
+                
+            }
+            
+            ERROR;
+        }
+        
+    }/*function_udint_to_byte*/
+    break;
+
+/****
+ *UDINT_TO_WORD
+ */
+    case function_udint_to_word :
+    {
+        symbol_c *last_type_symbol = NULL;
+
+        {
+            identifier_c param_name("IN");
+            /* Get the value from a foo(<param_name> = <param_value>) style call */
+            symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
+            
+            /* Get the value from a foo(<param_value>) style call */
+            if (IN_param_value == NULL)
+              IN_param_value = function_call_param_iterator.next();
+            symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
+            last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
+            
+            if (typeid(*last_type_symbol) == typeid(udint_type_name_c))
+            {
+        
+                symbol_c * return_type_symbol = &search_constant_type_c::word_type_name;
+                s4o.print("(");
+                return_type_symbol->accept(*this);
+                s4o.print(")");
+                IN_param_value->accept(*this);
+                return NULL;
+                
+            }
+            
+            ERROR;
+        }
+        
+    }/*function_udint_to_word*/
+    break;
+
+/****
+ *UDINT_TO_DWORD
+ */
+    case function_udint_to_dword :
+    {
+        symbol_c *last_type_symbol = NULL;
+
+        {
+            identifier_c param_name("IN");
+            /* Get the value from a foo(<param_name> = <param_value>) style call */
+            symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
+            
+            /* Get the value from a foo(<param_value>) style call */
+            if (IN_param_value == NULL)
+              IN_param_value = function_call_param_iterator.next();
+            symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
+            last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
+            
+            if (typeid(*last_type_symbol) == typeid(udint_type_name_c))
+            {
+        
+                symbol_c * return_type_symbol = &search_constant_type_c::dword_type_name;
+                s4o.print("(");
+                return_type_symbol->accept(*this);
+                s4o.print(")");
+                IN_param_value->accept(*this);
+                return NULL;
+                
+            }
+            
+            ERROR;
+        }
+        
+    }/*function_udint_to_dword*/
+    break;
+
+/****
+ *UDINT_TO_LWORD
+ */
+    case function_udint_to_lword :
+    {
+        symbol_c *last_type_symbol = NULL;
+
+        {
+            identifier_c param_name("IN");
+            /* Get the value from a foo(<param_name> = <param_value>) style call */
+            symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
+            
+            /* Get the value from a foo(<param_value>) style call */
+            if (IN_param_value == NULL)
+              IN_param_value = function_call_param_iterator.next();
+            symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
+            last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
+            
+            if (typeid(*last_type_symbol) == typeid(udint_type_name_c))
+            {
+        
+                symbol_c * return_type_symbol = &search_constant_type_c::lword_type_name;
+                s4o.print("(");
+                return_type_symbol->accept(*this);
+                s4o.print(")");
+                IN_param_value->accept(*this);
+                return NULL;
+                
+            }
+            
+            ERROR;
+        }
+        
+    }/*function_udint_to_lword*/
+    break;
+
+/****
+ *UDINT_TO_STRING
+ */
+    case function_udint_to_string :
+    {
+        symbol_c *last_type_symbol = NULL;
+
+        {
+            identifier_c param_name("IN");
+            /* Get the value from a foo(<param_name> = <param_value>) style call */
+            symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
+            
+            /* Get the value from a foo(<param_value>) style call */
+            if (IN_param_value == NULL)
+              IN_param_value = function_call_param_iterator.next();
+            symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
+            last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
+            
+            if (typeid(*last_type_symbol) == typeid(udint_type_name_c))
+            {
+        
+                symbol_c * return_type_symbol = &search_constant_type_c::string_type_name;
+                s4o.print("(");
+                return_type_symbol->accept(*this);
+                s4o.print(")int_to_string(");
+                IN_param_value->accept(*this);
+                s4o.print(", 10)");
+                return NULL;
+                
+            }
+            
+            ERROR;
+        }
+        
+    }/*function_udint_to_string*/
+    break;
+
+/****
+ *UDINT_TO_WSTRING
+ */
+    case function_udint_to_wstring :
+    {
+        symbol_c *last_type_symbol = NULL;
+
+        {
+            identifier_c param_name("IN");
+            /* Get the value from a foo(<param_name> = <param_value>) style call */
+            symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
+            
+            /* Get the value from a foo(<param_value>) style call */
+            if (IN_param_value == NULL)
+              IN_param_value = function_call_param_iterator.next();
+            symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
+            last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
+            
+            if (typeid(*last_type_symbol) == typeid(udint_type_name_c))
+            {
+        
+                symbol_c * return_type_symbol = &search_constant_type_c::wstring_type_name;
+                s4o.print("(");
+                return_type_symbol->accept(*this);
+                s4o.print(")int_to_string(");
+                IN_param_value->accept(*this);
+                s4o.print(", 10)");
+                return NULL;
+                
+            }
+            
+            ERROR;
+        }
+        
+    }/*function_udint_to_wstring*/
+    break;
+
+/****
+ *UDINT_TO_DATE
+ */
+    case function_udint_to_date :
+    {
+        symbol_c *last_type_symbol = NULL;
+
+        {
+            identifier_c param_name("IN");
+            /* Get the value from a foo(<param_name> = <param_value>) style call */
+            symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
+            
+            /* Get the value from a foo(<param_value>) style call */
+            if (IN_param_value == NULL)
+              IN_param_value = function_call_param_iterator.next();
+            symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
+            last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
+            
+            if (typeid(*last_type_symbol) == typeid(udint_type_name_c))
+            {
+        
+                symbol_c * return_type_symbol = &search_constant_type_c::date_type_name;
+                s4o.print("(");
+                return_type_symbol->accept(*this);
+                s4o.print(")real_to_time(");
+                IN_param_value->accept(*this);
+                s4o.print(")");
+                return NULL;
+                
+            }
+            
+            ERROR;
+        }
+        
+    }/*function_udint_to_date*/
+    break;
+
+/****
+ *UDINT_TO_TOD
+ */
+    case function_udint_to_tod :
+    {
+        symbol_c *last_type_symbol = NULL;
+
+        {
+            identifier_c param_name("IN");
+            /* Get the value from a foo(<param_name> = <param_value>) style call */
+            symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
+            
+            /* Get the value from a foo(<param_value>) style call */
+            if (IN_param_value == NULL)
+              IN_param_value = function_call_param_iterator.next();
+            symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
+            last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
+            
+            if (typeid(*last_type_symbol) == typeid(udint_type_name_c))
+            {
+        
+                symbol_c * return_type_symbol = &search_constant_type_c::tod_type_name;
+                s4o.print("(");
+                return_type_symbol->accept(*this);
+                s4o.print(")real_to_time(");
+                IN_param_value->accept(*this);
+                s4o.print(")");
+                return NULL;
+                
+            }
+            
+            ERROR;
+        }
+        
+    }/*function_udint_to_tod*/
+    break;
+
+/****
+ *UDINT_TO_DT
+ */
+    case function_udint_to_dt :
+    {
+        symbol_c *last_type_symbol = NULL;
+
+        {
+            identifier_c param_name("IN");
+            /* Get the value from a foo(<param_name> = <param_value>) style call */
+            symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
+            
+            /* Get the value from a foo(<param_value>) style call */
+            if (IN_param_value == NULL)
+              IN_param_value = function_call_param_iterator.next();
+            symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
+            last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
+            
+            if (typeid(*last_type_symbol) == typeid(udint_type_name_c))
+            {
+        
+                symbol_c * return_type_symbol = &search_constant_type_c::dt_type_name;
+                s4o.print("(");
+                return_type_symbol->accept(*this);
+                s4o.print(")real_to_time(");
+                IN_param_value->accept(*this);
+                s4o.print(")");
+                return NULL;
+                
+            }
+            
+            ERROR;
+        }
+        
+    }/*function_udint_to_dt*/
+    break;
+
+/****
+ *ULINT_TO_REAL
+ */
+    case function_ulint_to_real :
+    {
+        symbol_c *last_type_symbol = NULL;
+
+        {
+            identifier_c param_name("IN");
+            /* Get the value from a foo(<param_name> = <param_value>) style call */
+            symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
+            
+            /* Get the value from a foo(<param_value>) style call */
+            if (IN_param_value == NULL)
+              IN_param_value = function_call_param_iterator.next();
+            symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
+            last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
+            
+            if (typeid(*last_type_symbol) == typeid(ulint_type_name_c))
+            {
+        
+                symbol_c * return_type_symbol = &search_constant_type_c::real_type_name;
+                s4o.print("(");
+                return_type_symbol->accept(*this);
+                s4o.print(")");
+                IN_param_value->accept(*this);
+                return NULL;
+                
+            }
+            
+            ERROR;
+        }
+        
+    }/*function_ulint_to_real*/
+    break;
+
+/****
+ *ULINT_TO_LREAL
+ */
+    case function_ulint_to_lreal :
+    {
+        symbol_c *last_type_symbol = NULL;
+
+        {
+            identifier_c param_name("IN");
+            /* Get the value from a foo(<param_name> = <param_value>) style call */
+            symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
+            
+            /* Get the value from a foo(<param_value>) style call */
+            if (IN_param_value == NULL)
+              IN_param_value = function_call_param_iterator.next();
+            symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
+            last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
+            
+            if (typeid(*last_type_symbol) == typeid(ulint_type_name_c))
+            {
+        
+                symbol_c * return_type_symbol = &search_constant_type_c::lreal_type_name;
+                s4o.print("(");
+                return_type_symbol->accept(*this);
+                s4o.print(")");
+                IN_param_value->accept(*this);
+                return NULL;
+                
+            }
+            
+            ERROR;
+        }
+        
+    }/*function_ulint_to_lreal*/
+    break;
+
+/****
+ *ULINT_TO_SINT
+ */
+    case function_ulint_to_sint :
+    {
+        symbol_c *last_type_symbol = NULL;
+
+        {
+            identifier_c param_name("IN");
+            /* Get the value from a foo(<param_name> = <param_value>) style call */
+            symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
+            
+            /* Get the value from a foo(<param_value>) style call */
+            if (IN_param_value == NULL)
+              IN_param_value = function_call_param_iterator.next();
+            symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
+            last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
+            
+            if (typeid(*last_type_symbol) == typeid(ulint_type_name_c))
+            {
+        
+                symbol_c * return_type_symbol = &search_constant_type_c::sint_type_name;
+                s4o.print("(");
+                return_type_symbol->accept(*this);
+                s4o.print(")");
+                IN_param_value->accept(*this);
+                return NULL;
+                
+            }
+            
+            ERROR;
+        }
+        
+    }/*function_ulint_to_sint*/
+    break;
+
+/****
+ *ULINT_TO_INT
+ */
+    case function_ulint_to_int :
+    {
+        symbol_c *last_type_symbol = NULL;
+
+        {
+            identifier_c param_name("IN");
+            /* Get the value from a foo(<param_name> = <param_value>) style call */
+            symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
+            
+            /* Get the value from a foo(<param_value>) style call */
+            if (IN_param_value == NULL)
+              IN_param_value = function_call_param_iterator.next();
+            symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
+            last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
+            
+            if (typeid(*last_type_symbol) == typeid(ulint_type_name_c))
+            {
+        
+                symbol_c * return_type_symbol = &search_constant_type_c::int_type_name;
+                s4o.print("(");
+                return_type_symbol->accept(*this);
+                s4o.print(")");
+                IN_param_value->accept(*this);
+                return NULL;
+                
+            }
+            
+            ERROR;
+        }
+        
+    }/*function_ulint_to_int*/
+    break;
+
+/****
+ *ULINT_TO_DINT
+ */
+    case function_ulint_to_dint :
+    {
+        symbol_c *last_type_symbol = NULL;
+
+        {
+            identifier_c param_name("IN");
+            /* Get the value from a foo(<param_name> = <param_value>) style call */
+            symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
+            
+            /* Get the value from a foo(<param_value>) style call */
+            if (IN_param_value == NULL)
+              IN_param_value = function_call_param_iterator.next();
+            symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
+            last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
+            
+            if (typeid(*last_type_symbol) == typeid(ulint_type_name_c))
+            {
+        
+                symbol_c * return_type_symbol = &search_constant_type_c::dint_type_name;
+                s4o.print("(");
+                return_type_symbol->accept(*this);
+                s4o.print(")");
+                IN_param_value->accept(*this);
+                return NULL;
+                
+            }
+            
+            ERROR;
+        }
+        
+    }/*function_ulint_to_dint*/
+    break;
+
+/****
+ *ULINT_TO_LINT
+ */
+    case function_ulint_to_lint :
+    {
+        symbol_c *last_type_symbol = NULL;
+
+        {
+            identifier_c param_name("IN");
+            /* Get the value from a foo(<param_name> = <param_value>) style call */
+            symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
+            
+            /* Get the value from a foo(<param_value>) style call */
+            if (IN_param_value == NULL)
+              IN_param_value = function_call_param_iterator.next();
+            symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
+            last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
+            
+            if (typeid(*last_type_symbol) == typeid(ulint_type_name_c))
+            {
+        
+                symbol_c * return_type_symbol = &search_constant_type_c::lint_type_name;
+                s4o.print("(");
+                return_type_symbol->accept(*this);
+                s4o.print(")");
+                IN_param_value->accept(*this);
+                return NULL;
+                
+            }
+            
+            ERROR;
+        }
+        
+    }/*function_ulint_to_lint*/
+    break;
+
+/****
+ *ULINT_TO_USINT
+ */
+    case function_ulint_to_usint :
+    {
+        symbol_c *last_type_symbol = NULL;
+
+        {
+            identifier_c param_name("IN");
+            /* Get the value from a foo(<param_name> = <param_value>) style call */
+            symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
+            
+            /* Get the value from a foo(<param_value>) style call */
+            if (IN_param_value == NULL)
+              IN_param_value = function_call_param_iterator.next();
+            symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
+            last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
+            
+            if (typeid(*last_type_symbol) == typeid(ulint_type_name_c))
+            {
+        
+                symbol_c * return_type_symbol = &search_constant_type_c::usint_type_name;
+                s4o.print("(");
+                return_type_symbol->accept(*this);
+                s4o.print(")");
+                IN_param_value->accept(*this);
+                return NULL;
+                
+            }
+            
+            ERROR;
+        }
+        
+    }/*function_ulint_to_usint*/
+    break;
+
+/****
+ *ULINT_TO_UINT
+ */
+    case function_ulint_to_uint :
+    {
+        symbol_c *last_type_symbol = NULL;
+
+        {
+            identifier_c param_name("IN");
+            /* Get the value from a foo(<param_name> = <param_value>) style call */
+            symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
+            
+            /* Get the value from a foo(<param_value>) style call */
+            if (IN_param_value == NULL)
+              IN_param_value = function_call_param_iterator.next();
+            symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
+            last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
+            
+            if (typeid(*last_type_symbol) == typeid(ulint_type_name_c))
+            {
+        
+                symbol_c * return_type_symbol = &search_constant_type_c::uint_type_name;
+                s4o.print("(");
+                return_type_symbol->accept(*this);
+                s4o.print(")");
+                IN_param_value->accept(*this);
+                return NULL;
+                
+            }
+            
+            ERROR;
+        }
+        
+    }/*function_ulint_to_uint*/
+    break;
+
+/****
+ *ULINT_TO_UDINT
+ */
+    case function_ulint_to_udint :
+    {
+        symbol_c *last_type_symbol = NULL;
+
+        {
+            identifier_c param_name("IN");
+            /* Get the value from a foo(<param_name> = <param_value>) style call */
+            symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
+            
+            /* Get the value from a foo(<param_value>) style call */
+            if (IN_param_value == NULL)
+              IN_param_value = function_call_param_iterator.next();
+            symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
+            last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
+            
+            if (typeid(*last_type_symbol) == typeid(ulint_type_name_c))
+            {
+        
+                symbol_c * return_type_symbol = &search_constant_type_c::udint_type_name;
+                s4o.print("(");
+                return_type_symbol->accept(*this);
+                s4o.print(")");
+                IN_param_value->accept(*this);
+                return NULL;
+                
+            }
+            
+            ERROR;
+        }
+        
+    }/*function_ulint_to_udint*/
+    break;
+
+/****
+ *ULINT_TO_TIME
+ */
+    case function_ulint_to_time :
+    {
+        symbol_c *last_type_symbol = NULL;
+
+        {
+            identifier_c param_name("IN");
+            /* Get the value from a foo(<param_name> = <param_value>) style call */
+            symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
+            
+            /* Get the value from a foo(<param_value>) style call */
+            if (IN_param_value == NULL)
+              IN_param_value = function_call_param_iterator.next();
+            symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
+            last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
+            
+            if (typeid(*last_type_symbol) == typeid(ulint_type_name_c))
+            {
+        
+                symbol_c * return_type_symbol = &search_constant_type_c::time_type_name;
+                s4o.print("(");
+                return_type_symbol->accept(*this);
+                s4o.print(")real_to_time(");
+                IN_param_value->accept(*this);
+                s4o.print(")");
+                return NULL;
+                
+            }
+            
+            ERROR;
+        }
+        
+    }/*function_ulint_to_time*/
+    break;
+
+/****
+ *ULINT_TO_BOOL
+ */
+    case function_ulint_to_bool :
+    {
+        symbol_c *last_type_symbol = NULL;
+
+        {
+            identifier_c param_name("IN");
+            /* Get the value from a foo(<param_name> = <param_value>) style call */
+            symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
+            
+            /* Get the value from a foo(<param_value>) style call */
+            if (IN_param_value == NULL)
+              IN_param_value = function_call_param_iterator.next();
+            symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
+            last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
+            
+            if (typeid(*last_type_symbol) == typeid(ulint_type_name_c))
+            {
+        
+                symbol_c * return_type_symbol = &search_constant_type_c::bool_type_name;
+                s4o.print("(");
+                return_type_symbol->accept(*this);
+                s4o.print(")");
+                IN_param_value->accept(*this);
+                return NULL;
+                
+            }
+            
+            ERROR;
+        }
+        
+    }/*function_ulint_to_bool*/
+    break;
+
+/****
+ *ULINT_TO_BYTE
+ */
+    case function_ulint_to_byte :
+    {
+        symbol_c *last_type_symbol = NULL;
+
+        {
+            identifier_c param_name("IN");
+            /* Get the value from a foo(<param_name> = <param_value>) style call */
+            symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
+            
+            /* Get the value from a foo(<param_value>) style call */
+            if (IN_param_value == NULL)
+              IN_param_value = function_call_param_iterator.next();
+            symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
+            last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
+            
+            if (typeid(*last_type_symbol) == typeid(ulint_type_name_c))
+            {
+        
+                symbol_c * return_type_symbol = &search_constant_type_c::byte_type_name;
+                s4o.print("(");
+                return_type_symbol->accept(*this);
+                s4o.print(")");
+                IN_param_value->accept(*this);
+                return NULL;
+                
+            }
+            
+            ERROR;
+        }
+        
+    }/*function_ulint_to_byte*/
+    break;
+
+/****
+ *ULINT_TO_WORD
+ */
+    case function_ulint_to_word :
+    {
+        symbol_c *last_type_symbol = NULL;
+
+        {
+            identifier_c param_name("IN");
+            /* Get the value from a foo(<param_name> = <param_value>) style call */
+            symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
+            
+            /* Get the value from a foo(<param_value>) style call */
+            if (IN_param_value == NULL)
+              IN_param_value = function_call_param_iterator.next();
+            symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
+            last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
+            
+            if (typeid(*last_type_symbol) == typeid(ulint_type_name_c))
+            {
+        
+                symbol_c * return_type_symbol = &search_constant_type_c::word_type_name;
+                s4o.print("(");
+                return_type_symbol->accept(*this);
+                s4o.print(")");
+                IN_param_value->accept(*this);
+                return NULL;
+                
+            }
+            
+            ERROR;
+        }
+        
+    }/*function_ulint_to_word*/
+    break;
+
+/****
+ *ULINT_TO_DWORD
+ */
+    case function_ulint_to_dword :
+    {
+        symbol_c *last_type_symbol = NULL;
+
+        {
+            identifier_c param_name("IN");
+            /* Get the value from a foo(<param_name> = <param_value>) style call */
+            symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
+            
+            /* Get the value from a foo(<param_value>) style call */
+            if (IN_param_value == NULL)
+              IN_param_value = function_call_param_iterator.next();
+            symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
+            last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
+            
+            if (typeid(*last_type_symbol) == typeid(ulint_type_name_c))
+            {
+        
+                symbol_c * return_type_symbol = &search_constant_type_c::dword_type_name;
+                s4o.print("(");
+                return_type_symbol->accept(*this);
+                s4o.print(")");
+                IN_param_value->accept(*this);
+                return NULL;
+                
+            }
+            
+            ERROR;
+        }
+        
+    }/*function_ulint_to_dword*/
+    break;
+
+/****
+ *ULINT_TO_LWORD
+ */
+    case function_ulint_to_lword :
+    {
+        symbol_c *last_type_symbol = NULL;
+
+        {
+            identifier_c param_name("IN");
+            /* Get the value from a foo(<param_name> = <param_value>) style call */
+            symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
+            
+            /* Get the value from a foo(<param_value>) style call */
+            if (IN_param_value == NULL)
+              IN_param_value = function_call_param_iterator.next();
+            symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
+            last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
+            
+            if (typeid(*last_type_symbol) == typeid(ulint_type_name_c))
+            {
+        
+                symbol_c * return_type_symbol = &search_constant_type_c::lword_type_name;
+                s4o.print("(");
+                return_type_symbol->accept(*this);
+                s4o.print(")");
+                IN_param_value->accept(*this);
+                return NULL;
+                
+            }
+            
+            ERROR;
+        }
+        
+    }/*function_ulint_to_lword*/
+    break;
+
+/****
+ *ULINT_TO_STRING
+ */
+    case function_ulint_to_string :
+    {
+        symbol_c *last_type_symbol = NULL;
+
+        {
+            identifier_c param_name("IN");
+            /* Get the value from a foo(<param_name> = <param_value>) style call */
+            symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
+            
+            /* Get the value from a foo(<param_value>) style call */
+            if (IN_param_value == NULL)
+              IN_param_value = function_call_param_iterator.next();
+            symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
+            last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
+            
+            if (typeid(*last_type_symbol) == typeid(ulint_type_name_c))
+            {
+        
+                symbol_c * return_type_symbol = &search_constant_type_c::string_type_name;
+                s4o.print("(");
+                return_type_symbol->accept(*this);
+                s4o.print(")int_to_string(");
+                IN_param_value->accept(*this);
+                s4o.print(", 10)");
+                return NULL;
+                
+            }
+            
+            ERROR;
+        }
+        
+    }/*function_ulint_to_string*/
+    break;
+
+/****
+ *ULINT_TO_WSTRING
+ */
+    case function_ulint_to_wstring :
+    {
+        symbol_c *last_type_symbol = NULL;
+
+        {
+            identifier_c param_name("IN");
+            /* Get the value from a foo(<param_name> = <param_value>) style call */
+            symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
+            
+            /* Get the value from a foo(<param_value>) style call */
+            if (IN_param_value == NULL)
+              IN_param_value = function_call_param_iterator.next();
+            symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
+            last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
+            
+            if (typeid(*last_type_symbol) == typeid(ulint_type_name_c))
+            {
+        
+                symbol_c * return_type_symbol = &search_constant_type_c::wstring_type_name;
+                s4o.print("(");
+                return_type_symbol->accept(*this);
+                s4o.print(")int_to_string(");
+                IN_param_value->accept(*this);
+                s4o.print(", 10)");
+                return NULL;
+                
+            }
+            
+            ERROR;
+        }
+        
+    }/*function_ulint_to_wstring*/
+    break;
+
+/****
+ *ULINT_TO_DATE
+ */
+    case function_ulint_to_date :
+    {
+        symbol_c *last_type_symbol = NULL;
+
+        {
+            identifier_c param_name("IN");
+            /* Get the value from a foo(<param_name> = <param_value>) style call */
+            symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
+            
+            /* Get the value from a foo(<param_value>) style call */
+            if (IN_param_value == NULL)
+              IN_param_value = function_call_param_iterator.next();
+            symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
+            last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
+            
+            if (typeid(*last_type_symbol) == typeid(ulint_type_name_c))
+            {
+        
+                symbol_c * return_type_symbol = &search_constant_type_c::date_type_name;
+                s4o.print("(");
+                return_type_symbol->accept(*this);
+                s4o.print(")real_to_time(");
+                IN_param_value->accept(*this);
+                s4o.print(")");
+                return NULL;
+                
+            }
+            
+            ERROR;
+        }
+        
+    }/*function_ulint_to_date*/
+    break;
+
+/****
+ *ULINT_TO_TOD
+ */
+    case function_ulint_to_tod :
+    {
+        symbol_c *last_type_symbol = NULL;
+
+        {
+            identifier_c param_name("IN");
+            /* Get the value from a foo(<param_name> = <param_value>) style call */
+            symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
+            
+            /* Get the value from a foo(<param_value>) style call */
+            if (IN_param_value == NULL)
+              IN_param_value = function_call_param_iterator.next();
+            symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
+            last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
+            
+            if (typeid(*last_type_symbol) == typeid(ulint_type_name_c))
+            {
+        
+                symbol_c * return_type_symbol = &search_constant_type_c::tod_type_name;
+                s4o.print("(");
+                return_type_symbol->accept(*this);
+                s4o.print(")real_to_time(");
+                IN_param_value->accept(*this);
+                s4o.print(")");
+                return NULL;
+                
+            }
+            
+            ERROR;
+        }
+        
+    }/*function_ulint_to_tod*/
+    break;
+
+/****
+ *ULINT_TO_DT
+ */
+    case function_ulint_to_dt :
+    {
+        symbol_c *last_type_symbol = NULL;
+
+        {
+            identifier_c param_name("IN");
+            /* Get the value from a foo(<param_name> = <param_value>) style call */
+            symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
+            
+            /* Get the value from a foo(<param_value>) style call */
+            if (IN_param_value == NULL)
+              IN_param_value = function_call_param_iterator.next();
+            symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
+            last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
+            
+            if (typeid(*last_type_symbol) == typeid(ulint_type_name_c))
+            {
+        
+                symbol_c * return_type_symbol = &search_constant_type_c::dt_type_name;
+                s4o.print("(");
+                return_type_symbol->accept(*this);
+                s4o.print(")real_to_time(");
+                IN_param_value->accept(*this);
+                s4o.print(")");
+                return NULL;
+                
+            }
+            
+            ERROR;
+        }
+        
+    }/*function_ulint_to_dt*/
+    break;
+
+/****
+ *TIME_TO_REAL
+ */
+    case function_time_to_real :
+    {
+        symbol_c *last_type_symbol = NULL;
+
+        {
+            identifier_c param_name("IN");
+            /* Get the value from a foo(<param_name> = <param_value>) style call */
+            symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
+            
+            /* Get the value from a foo(<param_value>) style call */
+            if (IN_param_value == NULL)
+              IN_param_value = function_call_param_iterator.next();
+            symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
+            last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
+            
+            if (typeid(*last_type_symbol) == typeid(time_type_name_c))
+            {
+        
+                symbol_c * return_type_symbol = &search_constant_type_c::real_type_name;
+                s4o.print("(");
+                return_type_symbol->accept(*this);
+                s4o.print(")time_to_real(");
+                IN_param_value->accept(*this);
+                s4o.print(")");
+                return NULL;
+                
+            }
+            
+            ERROR;
+        }
+        
+    }/*function_time_to_real*/
+    break;
+
+/****
+ *TIME_TO_LREAL
+ */
+    case function_time_to_lreal :
+    {
+        symbol_c *last_type_symbol = NULL;
+
+        {
+            identifier_c param_name("IN");
+            /* Get the value from a foo(<param_name> = <param_value>) style call */
+            symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
+            
+            /* Get the value from a foo(<param_value>) style call */
+            if (IN_param_value == NULL)
+              IN_param_value = function_call_param_iterator.next();
+            symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
+            last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
+            
+            if (typeid(*last_type_symbol) == typeid(time_type_name_c))
+            {
+        
+                symbol_c * return_type_symbol = &search_constant_type_c::lreal_type_name;
+                s4o.print("(");
+                return_type_symbol->accept(*this);
+                s4o.print(")time_to_real(");
+                IN_param_value->accept(*this);
+                s4o.print(")");
+                return NULL;
+                
+            }
+            
+            ERROR;
+        }
+        
+    }/*function_time_to_lreal*/
+    break;
+
+/****
+ *TIME_TO_SINT
+ */
+    case function_time_to_sint :
+    {
+        symbol_c *last_type_symbol = NULL;
+
+        {
+            identifier_c param_name("IN");
+            /* Get the value from a foo(<param_name> = <param_value>) style call */
+            symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
+            
+            /* Get the value from a foo(<param_value>) style call */
+            if (IN_param_value == NULL)
+              IN_param_value = function_call_param_iterator.next();
+            symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
+            last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
+            
+            if (typeid(*last_type_symbol) == typeid(time_type_name_c))
+            {
+        
+                symbol_c * return_type_symbol = &search_constant_type_c::sint_type_name;
+                s4o.print("(");
+                return_type_symbol->accept(*this);
+                s4o.print(")time_to_real(");
+                IN_param_value->accept(*this);
+                s4o.print(")");
+                return NULL;
+                
+            }
+            
+            ERROR;
+        }
+        
+    }/*function_time_to_sint*/
+    break;
+
+/****
+ *TIME_TO_INT
+ */
+    case function_time_to_int :
+    {
+        symbol_c *last_type_symbol = NULL;
+
+        {
+            identifier_c param_name("IN");
+            /* Get the value from a foo(<param_name> = <param_value>) style call */
+            symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
+            
+            /* Get the value from a foo(<param_value>) style call */
+            if (IN_param_value == NULL)
+              IN_param_value = function_call_param_iterator.next();
+            symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
+            last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
+            
+            if (typeid(*last_type_symbol) == typeid(time_type_name_c))
+            {
+        
+                symbol_c * return_type_symbol = &search_constant_type_c::int_type_name;
+                s4o.print("(");
+                return_type_symbol->accept(*this);
+                s4o.print(")time_to_real(");
+                IN_param_value->accept(*this);
+                s4o.print(")");
+                return NULL;
+                
+            }
+            
+            ERROR;
+        }
+        
+    }/*function_time_to_int*/
+    break;
+
+/****
+ *TIME_TO_DINT
+ */
+    case function_time_to_dint :
+    {
+        symbol_c *last_type_symbol = NULL;
+
+        {
+            identifier_c param_name("IN");
+            /* Get the value from a foo(<param_name> = <param_value>) style call */
+            symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
+            
+            /* Get the value from a foo(<param_value>) style call */
+            if (IN_param_value == NULL)
+              IN_param_value = function_call_param_iterator.next();
+            symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
+            last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
+            
+            if (typeid(*last_type_symbol) == typeid(time_type_name_c))
+            {
+        
+                symbol_c * return_type_symbol = &search_constant_type_c::dint_type_name;
+                s4o.print("(");
+                return_type_symbol->accept(*this);
+                s4o.print(")time_to_real(");
+                IN_param_value->accept(*this);
+                s4o.print(")");
+                return NULL;
+                
+            }
+            
+            ERROR;
+        }
+        
+    }/*function_time_to_dint*/
+    break;
+
+/****
+ *TIME_TO_LINT
+ */
+    case function_time_to_lint :
+    {
+        symbol_c *last_type_symbol = NULL;
+
+        {
+            identifier_c param_name("IN");
+            /* Get the value from a foo(<param_name> = <param_value>) style call */
+            symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
+            
+            /* Get the value from a foo(<param_value>) style call */
+            if (IN_param_value == NULL)
+              IN_param_value = function_call_param_iterator.next();
+            symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
+            last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
+            
+            if (typeid(*last_type_symbol) == typeid(time_type_name_c))
+            {
+        
+                symbol_c * return_type_symbol = &search_constant_type_c::lint_type_name;
+                s4o.print("(");
+                return_type_symbol->accept(*this);
+                s4o.print(")time_to_real(");
+                IN_param_value->accept(*this);
+                s4o.print(")");
+                return NULL;
+                
+            }
+            
+            ERROR;
+        }
+        
+    }/*function_time_to_lint*/
+    break;
+
+/****
+ *TIME_TO_USINT
+ */
+    case function_time_to_usint :
+    {
+        symbol_c *last_type_symbol = NULL;
+
+        {
+            identifier_c param_name("IN");
+            /* Get the value from a foo(<param_name> = <param_value>) style call */
+            symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
+            
+            /* Get the value from a foo(<param_value>) style call */
+            if (IN_param_value == NULL)
+              IN_param_value = function_call_param_iterator.next();
+            symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
+            last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
+            
+            if (typeid(*last_type_symbol) == typeid(time_type_name_c))
+            {
+        
+                symbol_c * return_type_symbol = &search_constant_type_c::usint_type_name;
+                s4o.print("(");
+                return_type_symbol->accept(*this);
+                s4o.print(")time_to_real(");
+                IN_param_value->accept(*this);
+                s4o.print(")");
+                return NULL;
+                
+            }
+            
+            ERROR;
+        }
+        
+    }/*function_time_to_usint*/
+    break;
+
+/****
+ *TIME_TO_UINT
+ */
+    case function_time_to_uint :
+    {
+        symbol_c *last_type_symbol = NULL;
+
+        {
+            identifier_c param_name("IN");
+            /* Get the value from a foo(<param_name> = <param_value>) style call */
+            symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
+            
+            /* Get the value from a foo(<param_value>) style call */
+            if (IN_param_value == NULL)
+              IN_param_value = function_call_param_iterator.next();
+            symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
+            last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
+            
+            if (typeid(*last_type_symbol) == typeid(time_type_name_c))
+            {
+        
+                symbol_c * return_type_symbol = &search_constant_type_c::uint_type_name;
+                s4o.print("(");
+                return_type_symbol->accept(*this);
+                s4o.print(")time_to_real(");
+                IN_param_value->accept(*this);
+                s4o.print(")");
+                return NULL;
+                
+            }
+            
+            ERROR;
+        }
+        
+    }/*function_time_to_uint*/
+    break;
+
+/****
+ *TIME_TO_UDINT
+ */
+    case function_time_to_udint :
+    {
+        symbol_c *last_type_symbol = NULL;
+
+        {
+            identifier_c param_name("IN");
+            /* Get the value from a foo(<param_name> = <param_value>) style call */
+            symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
+            
+            /* Get the value from a foo(<param_value>) style call */
+            if (IN_param_value == NULL)
+              IN_param_value = function_call_param_iterator.next();
+            symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
+            last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
+            
+            if (typeid(*last_type_symbol) == typeid(time_type_name_c))
+            {
+        
+                symbol_c * return_type_symbol = &search_constant_type_c::udint_type_name;
+                s4o.print("(");
+                return_type_symbol->accept(*this);
+                s4o.print(")time_to_real(");
+                IN_param_value->accept(*this);
+                s4o.print(")");
+                return NULL;
+                
+            }
+            
+            ERROR;
+        }
+        
+    }/*function_time_to_udint*/
+    break;
+
+/****
+ *TIME_TO_ULINT
+ */
+    case function_time_to_ulint :
+    {
+        symbol_c *last_type_symbol = NULL;
+
+        {
+            identifier_c param_name("IN");
+            /* Get the value from a foo(<param_name> = <param_value>) style call */
+            symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
+            
+            /* Get the value from a foo(<param_value>) style call */
+            if (IN_param_value == NULL)
+              IN_param_value = function_call_param_iterator.next();
+            symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
+            last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
+            
+            if (typeid(*last_type_symbol) == typeid(time_type_name_c))
+            {
+        
+                symbol_c * return_type_symbol = &search_constant_type_c::ulint_type_name;
+                s4o.print("(");
+                return_type_symbol->accept(*this);
+                s4o.print(")time_to_real(");
+                IN_param_value->accept(*this);
+                s4o.print(")");
+                return NULL;
+                
+            }
+            
+            ERROR;
+        }
+        
+    }/*function_time_to_ulint*/
+    break;
+
+/****
+ *TIME_TO_BOOL
+ */
+    case function_time_to_bool :
+    {
+        symbol_c *last_type_symbol = NULL;
+
+        {
+            identifier_c param_name("IN");
+            /* Get the value from a foo(<param_name> = <param_value>) style call */
+            symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
+            
+            /* Get the value from a foo(<param_value>) style call */
+            if (IN_param_value == NULL)
+              IN_param_value = function_call_param_iterator.next();
+            symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
+            last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
+            
+            if (typeid(*last_type_symbol) == typeid(time_type_name_c))
+            {
+        
+                symbol_c * return_type_symbol = &search_constant_type_c::bool_type_name;
+                s4o.print("(");
+                return_type_symbol->accept(*this);
+                s4o.print(")time_to_real(");
+                IN_param_value->accept(*this);
+                s4o.print(")");
+                return NULL;
+                
+            }
+            
+            ERROR;
+        }
+        
+    }/*function_time_to_bool*/
+    break;
+
+/****
+ *TIME_TO_BYTE
+ */
+    case function_time_to_byte :
+    {
+        symbol_c *last_type_symbol = NULL;
+
+        {
+            identifier_c param_name("IN");
+            /* Get the value from a foo(<param_name> = <param_value>) style call */
+            symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
+            
+            /* Get the value from a foo(<param_value>) style call */
+            if (IN_param_value == NULL)
+              IN_param_value = function_call_param_iterator.next();
+            symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
+            last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
+            
+            if (typeid(*last_type_symbol) == typeid(time_type_name_c))
+            {
+        
+                symbol_c * return_type_symbol = &search_constant_type_c::byte_type_name;
+                s4o.print("(");
+                return_type_symbol->accept(*this);
+                s4o.print(")time_to_real(");
+                IN_param_value->accept(*this);
+                s4o.print(")");
+                return NULL;
+                
+            }
+            
+            ERROR;
+        }
+        
+    }/*function_time_to_byte*/
+    break;
+
+/****
+ *TIME_TO_WORD
+ */
+    case function_time_to_word :
+    {
+        symbol_c *last_type_symbol = NULL;
+
+        {
+            identifier_c param_name("IN");
+            /* Get the value from a foo(<param_name> = <param_value>) style call */
+            symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
+            
+            /* Get the value from a foo(<param_value>) style call */
+            if (IN_param_value == NULL)
+              IN_param_value = function_call_param_iterator.next();
+            symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
+            last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
+            
+            if (typeid(*last_type_symbol) == typeid(time_type_name_c))
+            {
+        
+                symbol_c * return_type_symbol = &search_constant_type_c::word_type_name;
+                s4o.print("(");
+                return_type_symbol->accept(*this);
+                s4o.print(")time_to_real(");
+                IN_param_value->accept(*this);
+                s4o.print(")");
+                return NULL;
+                
+            }
+            
+            ERROR;
+        }
+        
+    }/*function_time_to_word*/
+    break;
+
+/****
+ *TIME_TO_DWORD
+ */
+    case function_time_to_dword :
+    {
+        symbol_c *last_type_symbol = NULL;
+
+        {
+            identifier_c param_name("IN");
+            /* Get the value from a foo(<param_name> = <param_value>) style call */
+            symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
+            
+            /* Get the value from a foo(<param_value>) style call */
+            if (IN_param_value == NULL)
+              IN_param_value = function_call_param_iterator.next();
+            symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
+            last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
+            
+            if (typeid(*last_type_symbol) == typeid(time_type_name_c))
+            {
+        
+                symbol_c * return_type_symbol = &search_constant_type_c::dword_type_name;
+                s4o.print("(");
+                return_type_symbol->accept(*this);
+                s4o.print(")time_to_real(");
+                IN_param_value->accept(*this);
+                s4o.print(")");
+                return NULL;
+                
+            }
+            
+            ERROR;
+        }
+        
+    }/*function_time_to_dword*/
+    break;
+
+/****
+ *TIME_TO_LWORD
+ */
+    case function_time_to_lword :
+    {
+        symbol_c *last_type_symbol = NULL;
+
+        {
+            identifier_c param_name("IN");
+            /* Get the value from a foo(<param_name> = <param_value>) style call */
+            symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
+            
+            /* Get the value from a foo(<param_value>) style call */
+            if (IN_param_value == NULL)
+              IN_param_value = function_call_param_iterator.next();
+            symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
+            last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
+            
+            if (typeid(*last_type_symbol) == typeid(time_type_name_c))
+            {
+        
+                symbol_c * return_type_symbol = &search_constant_type_c::lword_type_name;
+                s4o.print("(");
+                return_type_symbol->accept(*this);
+                s4o.print(")time_to_real(");
+                IN_param_value->accept(*this);
+                s4o.print(")");
+                return NULL;
+                
+            }
+            
+            ERROR;
+        }
+        
+    }/*function_time_to_lword*/
+    break;
+
+/****
+ *TIME_TO_STRING
+ */
+    case function_time_to_string :
+    {
+        symbol_c *last_type_symbol = NULL;
+
+        {
+            identifier_c param_name("IN");
+            /* Get the value from a foo(<param_name> = <param_value>) style call */
+            symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
+            
+            /* Get the value from a foo(<param_value>) style call */
+            if (IN_param_value == NULL)
+              IN_param_value = function_call_param_iterator.next();
+            symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
+            last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
+            
+            if (typeid(*last_type_symbol) == typeid(time_type_name_c))
+            {
+        
+                symbol_c * return_type_symbol = &search_constant_type_c::string_type_name;
+                s4o.print("(");
+                return_type_symbol->accept(*this);
+                s4o.print(")time_to_string(");
+                IN_param_value->accept(*this);
+                s4o.print(")");
+                return NULL;
+                
+            }
+            
+            ERROR;
+        }
+        
+    }/*function_time_to_string*/
+    break;
+
+/****
+ *TIME_TO_WSTRING
+ */
+    case function_time_to_wstring :
+    {
+        symbol_c *last_type_symbol = NULL;
+
+        {
+            identifier_c param_name("IN");
+            /* Get the value from a foo(<param_name> = <param_value>) style call */
+            symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
+            
+            /* Get the value from a foo(<param_value>) style call */
+            if (IN_param_value == NULL)
+              IN_param_value = function_call_param_iterator.next();
+            symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
+            last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
+            
+            if (typeid(*last_type_symbol) == typeid(time_type_name_c))
+            {
+        
+                symbol_c * return_type_symbol = &search_constant_type_c::wstring_type_name;
+                s4o.print("(");
+                return_type_symbol->accept(*this);
+                s4o.print(")time_to_string(");
+                IN_param_value->accept(*this);
+                s4o.print(")");
+                return NULL;
+                
+            }
+            
+            ERROR;
+        }
+        
+    }/*function_time_to_wstring*/
+    break;
+
+/****
+ *BOOL_TO_REAL
+ */
+    case function_bool_to_real :
+    {
+        symbol_c *last_type_symbol = NULL;
+
+        {
+            identifier_c param_name("IN");
+            /* Get the value from a foo(<param_name> = <param_value>) style call */
+            symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
+            
+            /* Get the value from a foo(<param_value>) style call */
+            if (IN_param_value == NULL)
+              IN_param_value = function_call_param_iterator.next();
+            symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
+            last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
+            
+            if (typeid(*last_type_symbol) == typeid(bool_type_name_c))
+            {
+        
+                symbol_c * return_type_symbol = &search_constant_type_c::real_type_name;
+                s4o.print("(");
+                return_type_symbol->accept(*this);
+                s4o.print(")");
+                IN_param_value->accept(*this);
+                return NULL;
+                
+            }
+            
+            ERROR;
+        }
+        
+    }/*function_bool_to_real*/
+    break;
+
+/****
+ *BOOL_TO_LREAL
+ */
+    case function_bool_to_lreal :
+    {
+        symbol_c *last_type_symbol = NULL;
+
+        {
+            identifier_c param_name("IN");
+            /* Get the value from a foo(<param_name> = <param_value>) style call */
+            symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
+            
+            /* Get the value from a foo(<param_value>) style call */
+            if (IN_param_value == NULL)
+              IN_param_value = function_call_param_iterator.next();
+            symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
+            last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
+            
+            if (typeid(*last_type_symbol) == typeid(bool_type_name_c))
+            {
+        
+                symbol_c * return_type_symbol = &search_constant_type_c::lreal_type_name;
+                s4o.print("(");
+                return_type_symbol->accept(*this);
+                s4o.print(")");
+                IN_param_value->accept(*this);
+                return NULL;
+                
+            }
+            
+            ERROR;
+        }
+        
+    }/*function_bool_to_lreal*/
+    break;
+
+/****
+ *BOOL_TO_SINT
+ */
+    case function_bool_to_sint :
+    {
+        symbol_c *last_type_symbol = NULL;
+
+        {
+            identifier_c param_name("IN");
+            /* Get the value from a foo(<param_name> = <param_value>) style call */
+            symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
+            
+            /* Get the value from a foo(<param_value>) style call */
+            if (IN_param_value == NULL)
+              IN_param_value = function_call_param_iterator.next();
+            symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
+            last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
+            
+            if (typeid(*last_type_symbol) == typeid(bool_type_name_c))
+            {
+        
+                symbol_c * return_type_symbol = &search_constant_type_c::sint_type_name;
+                s4o.print("(");
+                return_type_symbol->accept(*this);
+                s4o.print(")");
+                IN_param_value->accept(*this);
+                return NULL;
+                
+            }
+            
+            ERROR;
+        }
+        
+    }/*function_bool_to_sint*/
+    break;
+
+/****
+ *BOOL_TO_INT
+ */
+    case function_bool_to_int :
+    {
+        symbol_c *last_type_symbol = NULL;
+
+        {
+            identifier_c param_name("IN");
+            /* Get the value from a foo(<param_name> = <param_value>) style call */
+            symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
+            
+            /* Get the value from a foo(<param_value>) style call */
+            if (IN_param_value == NULL)
+              IN_param_value = function_call_param_iterator.next();
+            symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
+            last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
+            
+            if (typeid(*last_type_symbol) == typeid(bool_type_name_c))
+            {
+        
+                symbol_c * return_type_symbol = &search_constant_type_c::int_type_name;
+                s4o.print("(");
+                return_type_symbol->accept(*this);
+                s4o.print(")");
+                IN_param_value->accept(*this);
+                return NULL;
+                
+            }
+            
+            ERROR;
+        }
+        
+    }/*function_bool_to_int*/
+    break;
+
+/****
+ *BOOL_TO_DINT
+ */
+    case function_bool_to_dint :
+    {
+        symbol_c *last_type_symbol = NULL;
+
+        {
+            identifier_c param_name("IN");
+            /* Get the value from a foo(<param_name> = <param_value>) style call */
+            symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
+            
+            /* Get the value from a foo(<param_value>) style call */
+            if (IN_param_value == NULL)
+              IN_param_value = function_call_param_iterator.next();
+            symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
+            last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
+            
+            if (typeid(*last_type_symbol) == typeid(bool_type_name_c))
+            {
+        
+                symbol_c * return_type_symbol = &search_constant_type_c::dint_type_name;
+                s4o.print("(");
+                return_type_symbol->accept(*this);
+                s4o.print(")");
+                IN_param_value->accept(*this);
+                return NULL;
+                
+            }
+            
+            ERROR;
+        }
+        
+    }/*function_bool_to_dint*/
+    break;
+
+/****
+ *BOOL_TO_LINT
+ */
+    case function_bool_to_lint :
+    {
+        symbol_c *last_type_symbol = NULL;
+
+        {
+            identifier_c param_name("IN");
+            /* Get the value from a foo(<param_name> = <param_value>) style call */
+            symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
+            
+            /* Get the value from a foo(<param_value>) style call */
+            if (IN_param_value == NULL)
+              IN_param_value = function_call_param_iterator.next();
+            symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
+            last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
+            
+            if (typeid(*last_type_symbol) == typeid(bool_type_name_c))
+            {
+        
+                symbol_c * return_type_symbol = &search_constant_type_c::lint_type_name;
+                s4o.print("(");
+                return_type_symbol->accept(*this);
+                s4o.print(")");
+                IN_param_value->accept(*this);
+                return NULL;
+                
+            }
+            
+            ERROR;
+        }
+        
+    }/*function_bool_to_lint*/
+    break;
+
+/****
+ *BOOL_TO_USINT
+ */
+    case function_bool_to_usint :
+    {
+        symbol_c *last_type_symbol = NULL;
+
+        {
+            identifier_c param_name("IN");
+            /* Get the value from a foo(<param_name> = <param_value>) style call */
+            symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
+            
+            /* Get the value from a foo(<param_value>) style call */
+            if (IN_param_value == NULL)
+              IN_param_value = function_call_param_iterator.next();
+            symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
+            last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
+            
+            if (typeid(*last_type_symbol) == typeid(bool_type_name_c))
+            {
+        
+                symbol_c * return_type_symbol = &search_constant_type_c::usint_type_name;
+                s4o.print("(");
+                return_type_symbol->accept(*this);
+                s4o.print(")");
+                IN_param_value->accept(*this);
+                return NULL;
+                
+            }
+            
+            ERROR;
+        }
+        
+    }/*function_bool_to_usint*/
+    break;
+
+/****
+ *BOOL_TO_UINT
+ */
+    case function_bool_to_uint :
+    {
+        symbol_c *last_type_symbol = NULL;
+
+        {
+            identifier_c param_name("IN");
+            /* Get the value from a foo(<param_name> = <param_value>) style call */
+            symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
+            
+            /* Get the value from a foo(<param_value>) style call */
+            if (IN_param_value == NULL)
+              IN_param_value = function_call_param_iterator.next();
+            symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
+            last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
+            
+            if (typeid(*last_type_symbol) == typeid(bool_type_name_c))
+            {
+        
+                symbol_c * return_type_symbol = &search_constant_type_c::uint_type_name;
+                s4o.print("(");
+                return_type_symbol->accept(*this);
+                s4o.print(")");
+                IN_param_value->accept(*this);
+                return NULL;
+                
+            }
+            
+            ERROR;
+        }
+        
+    }/*function_bool_to_uint*/
+    break;
+
+/****
+ *BOOL_TO_UDINT
+ */
+    case function_bool_to_udint :
+    {
+        symbol_c *last_type_symbol = NULL;
+
+        {
+            identifier_c param_name("IN");
+            /* Get the value from a foo(<param_name> = <param_value>) style call */
+            symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
+            
+            /* Get the value from a foo(<param_value>) style call */
+            if (IN_param_value == NULL)
+              IN_param_value = function_call_param_iterator.next();
+            symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
+            last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
+            
+            if (typeid(*last_type_symbol) == typeid(bool_type_name_c))
+            {
+        
+                symbol_c * return_type_symbol = &search_constant_type_c::udint_type_name;
+                s4o.print("(");
+                return_type_symbol->accept(*this);
+                s4o.print(")");
+                IN_param_value->accept(*this);
+                return NULL;
+                
+            }
+            
+            ERROR;
+        }
+        
+    }/*function_bool_to_udint*/
+    break;
+
+/****
+ *BOOL_TO_ULINT
+ */
+    case function_bool_to_ulint :
+    {
+        symbol_c *last_type_symbol = NULL;
+
+        {
+            identifier_c param_name("IN");
+            /* Get the value from a foo(<param_name> = <param_value>) style call */
+            symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
+            
+            /* Get the value from a foo(<param_value>) style call */
+            if (IN_param_value == NULL)
+              IN_param_value = function_call_param_iterator.next();
+            symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
+            last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
+            
+            if (typeid(*last_type_symbol) == typeid(bool_type_name_c))
+            {
+        
+                symbol_c * return_type_symbol = &search_constant_type_c::ulint_type_name;
+                s4o.print("(");
+                return_type_symbol->accept(*this);
+                s4o.print(")");
+                IN_param_value->accept(*this);
+                return NULL;
+                
+            }
+            
+            ERROR;
+        }
+        
+    }/*function_bool_to_ulint*/
+    break;
+
+/****
+ *BOOL_TO_TIME
+ */
+    case function_bool_to_time :
+    {
+        symbol_c *last_type_symbol = NULL;
+
+        {
+            identifier_c param_name("IN");
+            /* Get the value from a foo(<param_name> = <param_value>) style call */
+            symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
+            
+            /* Get the value from a foo(<param_value>) style call */
+            if (IN_param_value == NULL)
+              IN_param_value = function_call_param_iterator.next();
+            symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
+            last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
+            
+            if (typeid(*last_type_symbol) == typeid(bool_type_name_c))
+            {
+        
+                symbol_c * return_type_symbol = &search_constant_type_c::time_type_name;
+                s4o.print("(");
+                return_type_symbol->accept(*this);
+                s4o.print(")real_to_time(");
+                IN_param_value->accept(*this);
+                s4o.print(")");
+                return NULL;
+                
+            }
+            
+            ERROR;
+        }
+        
+    }/*function_bool_to_time*/
+    break;
+
+/****
+ *BOOL_TO_BYTE
+ */
+    case function_bool_to_byte :
+    {
+        symbol_c *last_type_symbol = NULL;
+
+        {
+            identifier_c param_name("IN");
+            /* Get the value from a foo(<param_name> = <param_value>) style call */
+            symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
+            
+            /* Get the value from a foo(<param_value>) style call */
+            if (IN_param_value == NULL)
+              IN_param_value = function_call_param_iterator.next();
+            symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
+            last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
+            
+            if (typeid(*last_type_symbol) == typeid(bool_type_name_c))
+            {
+        
+                symbol_c * return_type_symbol = &search_constant_type_c::byte_type_name;
+                s4o.print("(");
+                return_type_symbol->accept(*this);
+                s4o.print(")");
+                IN_param_value->accept(*this);
+                return NULL;
+                
+            }
+            
+            ERROR;
+        }
+        
+    }/*function_bool_to_byte*/
+    break;
+
+/****
+ *BOOL_TO_WORD
+ */
+    case function_bool_to_word :
+    {
+        symbol_c *last_type_symbol = NULL;
+
+        {
+            identifier_c param_name("IN");
+            /* Get the value from a foo(<param_name> = <param_value>) style call */
+            symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
+            
+            /* Get the value from a foo(<param_value>) style call */
+            if (IN_param_value == NULL)
+              IN_param_value = function_call_param_iterator.next();
+            symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
+            last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
+            
+            if (typeid(*last_type_symbol) == typeid(bool_type_name_c))
+            {
+        
+                symbol_c * return_type_symbol = &search_constant_type_c::word_type_name;
+                s4o.print("(");
+                return_type_symbol->accept(*this);
+                s4o.print(")");
+                IN_param_value->accept(*this);
+                return NULL;
+                
+            }
+            
+            ERROR;
+        }
+        
+    }/*function_bool_to_word*/
+    break;
+
+/****
+ *BOOL_TO_DWORD
+ */
+    case function_bool_to_dword :
+    {
+        symbol_c *last_type_symbol = NULL;
+
+        {
+            identifier_c param_name("IN");
+            /* Get the value from a foo(<param_name> = <param_value>) style call */
+            symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
+            
+            /* Get the value from a foo(<param_value>) style call */
+            if (IN_param_value == NULL)
+              IN_param_value = function_call_param_iterator.next();
+            symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
+            last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
+            
+            if (typeid(*last_type_symbol) == typeid(bool_type_name_c))
+            {
+        
+                symbol_c * return_type_symbol = &search_constant_type_c::dword_type_name;
+                s4o.print("(");
+                return_type_symbol->accept(*this);
+                s4o.print(")");
+                IN_param_value->accept(*this);
+                return NULL;
+                
+            }
+            
+            ERROR;
+        }
+        
+    }/*function_bool_to_dword*/
+    break;
+
+/****
+ *BOOL_TO_LWORD
+ */
+    case function_bool_to_lword :
+    {
+        symbol_c *last_type_symbol = NULL;
+
+        {
+            identifier_c param_name("IN");
+            /* Get the value from a foo(<param_name> = <param_value>) style call */
+            symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
+            
+            /* Get the value from a foo(<param_value>) style call */
+            if (IN_param_value == NULL)
+              IN_param_value = function_call_param_iterator.next();
+            symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
+            last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
+            
+            if (typeid(*last_type_symbol) == typeid(bool_type_name_c))
+            {
+        
+                symbol_c * return_type_symbol = &search_constant_type_c::lword_type_name;
+                s4o.print("(");
+                return_type_symbol->accept(*this);
+                s4o.print(")");
+                IN_param_value->accept(*this);
+                return NULL;
+                
+            }
+            
+            ERROR;
+        }
+        
+    }/*function_bool_to_lword*/
+    break;
+
+/****
+ *BOOL_TO_STRING
+ */
+    case function_bool_to_string :
+    {
+        symbol_c *last_type_symbol = NULL;
+
+        {
+            identifier_c param_name("IN");
+            /* Get the value from a foo(<param_name> = <param_value>) style call */
+            symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
+            
+            /* Get the value from a foo(<param_value>) style call */
+            if (IN_param_value == NULL)
+              IN_param_value = function_call_param_iterator.next();
+            symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
+            last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
+            
+            if (typeid(*last_type_symbol) == typeid(bool_type_name_c))
+            {
+        
+                symbol_c * return_type_symbol = &search_constant_type_c::string_type_name;
+                s4o.print("(");
+                return_type_symbol->accept(*this);
+                s4o.print(")int_to_string(");
+                IN_param_value->accept(*this);
+                s4o.print(", 16)");
+                return NULL;
+                
+            }
+            
+            ERROR;
+        }
+        
+    }/*function_bool_to_string*/
+    break;
+
+/****
+ *BOOL_TO_WSTRING
+ */
+    case function_bool_to_wstring :
+    {
+        symbol_c *last_type_symbol = NULL;
+
+        {
+            identifier_c param_name("IN");
+            /* Get the value from a foo(<param_name> = <param_value>) style call */
+            symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
+            
+            /* Get the value from a foo(<param_value>) style call */
+            if (IN_param_value == NULL)
+              IN_param_value = function_call_param_iterator.next();
+            symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
+            last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
+            
+            if (typeid(*last_type_symbol) == typeid(bool_type_name_c))
+            {
+        
+                symbol_c * return_type_symbol = &search_constant_type_c::wstring_type_name;
+                s4o.print("(");
+                return_type_symbol->accept(*this);
+                s4o.print(")int_to_string(");
+                IN_param_value->accept(*this);
+                s4o.print(", 16)");
+                return NULL;
+                
+            }
+            
+            ERROR;
+        }
+        
+    }/*function_bool_to_wstring*/
+    break;
+
+/****
+ *BOOL_TO_DATE
+ */
+    case function_bool_to_date :
+    {
+        symbol_c *last_type_symbol = NULL;
+
+        {
+            identifier_c param_name("IN");
+            /* Get the value from a foo(<param_name> = <param_value>) style call */
+            symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
+            
+            /* Get the value from a foo(<param_value>) style call */
+            if (IN_param_value == NULL)
+              IN_param_value = function_call_param_iterator.next();
+            symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
+            last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
+            
+            if (typeid(*last_type_symbol) == typeid(bool_type_name_c))
+            {
+        
+                symbol_c * return_type_symbol = &search_constant_type_c::date_type_name;
+                s4o.print("(");
+                return_type_symbol->accept(*this);
+                s4o.print(")real_to_time(");
+                IN_param_value->accept(*this);
+                s4o.print(")");
+                return NULL;
+                
+            }
+            
+            ERROR;
+        }
+        
+    }/*function_bool_to_date*/
+    break;
+
+/****
+ *BOOL_TO_TOD
+ */
+    case function_bool_to_tod :
+    {
+        symbol_c *last_type_symbol = NULL;
+
+        {
+            identifier_c param_name("IN");
+            /* Get the value from a foo(<param_name> = <param_value>) style call */
+            symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
+            
+            /* Get the value from a foo(<param_value>) style call */
+            if (IN_param_value == NULL)
+              IN_param_value = function_call_param_iterator.next();
+            symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
+            last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
+            
+            if (typeid(*last_type_symbol) == typeid(bool_type_name_c))
+            {
+        
+                symbol_c * return_type_symbol = &search_constant_type_c::tod_type_name;
+                s4o.print("(");
+                return_type_symbol->accept(*this);
+                s4o.print(")real_to_time(");
+                IN_param_value->accept(*this);
+                s4o.print(")");
+                return NULL;
+                
+            }
+            
+            ERROR;
+        }
+        
+    }/*function_bool_to_tod*/
+    break;
+
+/****
+ *BOOL_TO_DT
+ */
+    case function_bool_to_dt :
+    {
+        symbol_c *last_type_symbol = NULL;
+
+        {
+            identifier_c param_name("IN");
+            /* Get the value from a foo(<param_name> = <param_value>) style call */
+            symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
+            
+            /* Get the value from a foo(<param_value>) style call */
+            if (IN_param_value == NULL)
+              IN_param_value = function_call_param_iterator.next();
+            symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
+            last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
+            
+            if (typeid(*last_type_symbol) == typeid(bool_type_name_c))
+            {
+        
+                symbol_c * return_type_symbol = &search_constant_type_c::dt_type_name;
+                s4o.print("(");
+                return_type_symbol->accept(*this);
+                s4o.print(")real_to_time(");
+                IN_param_value->accept(*this);
+                s4o.print(")");
+                return NULL;
+                
+            }
+            
+            ERROR;
+        }
+        
+    }/*function_bool_to_dt*/
+    break;
+
+/****
+ *BYTE_TO_REAL
+ */
+    case function_byte_to_real :
+    {
+        symbol_c *last_type_symbol = NULL;
+
+        {
+            identifier_c param_name("IN");
+            /* Get the value from a foo(<param_name> = <param_value>) style call */
+            symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
+            
+            /* Get the value from a foo(<param_value>) style call */
+            if (IN_param_value == NULL)
+              IN_param_value = function_call_param_iterator.next();
+            symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
+            last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
+            
+            if (typeid(*last_type_symbol) == typeid(byte_type_name_c))
+            {
+        
+                symbol_c * return_type_symbol = &search_constant_type_c::real_type_name;
+                s4o.print("(");
+                return_type_symbol->accept(*this);
+                s4o.print(")");
+                IN_param_value->accept(*this);
+                return NULL;
+                
+            }
+            
+            ERROR;
+        }
+        
+    }/*function_byte_to_real*/
+    break;
+
+/****
+ *BYTE_TO_LREAL
+ */
+    case function_byte_to_lreal :
+    {
+        symbol_c *last_type_symbol = NULL;
+
+        {
+            identifier_c param_name("IN");
+            /* Get the value from a foo(<param_name> = <param_value>) style call */
+            symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
+            
+            /* Get the value from a foo(<param_value>) style call */
+            if (IN_param_value == NULL)
+              IN_param_value = function_call_param_iterator.next();
+            symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
+            last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
+            
+            if (typeid(*last_type_symbol) == typeid(byte_type_name_c))
+            {
+        
+                symbol_c * return_type_symbol = &search_constant_type_c::lreal_type_name;
+                s4o.print("(");
+                return_type_symbol->accept(*this);
+                s4o.print(")");
+                IN_param_value->accept(*this);
+                return NULL;
+                
+            }
+            
+            ERROR;
+        }
+        
+    }/*function_byte_to_lreal*/
+    break;
+
+/****
+ *BYTE_TO_SINT
+ */
+    case function_byte_to_sint :
+    {
+        symbol_c *last_type_symbol = NULL;
+
+        {
+            identifier_c param_name("IN");
+            /* Get the value from a foo(<param_name> = <param_value>) style call */
+            symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
+            
+            /* Get the value from a foo(<param_value>) style call */
+            if (IN_param_value == NULL)
+              IN_param_value = function_call_param_iterator.next();
+            symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
+            last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
+            
+            if (typeid(*last_type_symbol) == typeid(byte_type_name_c))
+            {
+        
+                symbol_c * return_type_symbol = &search_constant_type_c::sint_type_name;
+                s4o.print("(");
+                return_type_symbol->accept(*this);
+                s4o.print(")");
+                IN_param_value->accept(*this);
+                return NULL;
+                
+            }
+            
+            ERROR;
+        }
+        
+    }/*function_byte_to_sint*/
+    break;
+
+/****
+ *BYTE_TO_INT
+ */
+    case function_byte_to_int :
+    {
+        symbol_c *last_type_symbol = NULL;
+
+        {
+            identifier_c param_name("IN");
+            /* Get the value from a foo(<param_name> = <param_value>) style call */
+            symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
+            
+            /* Get the value from a foo(<param_value>) style call */
+            if (IN_param_value == NULL)
+              IN_param_value = function_call_param_iterator.next();
+            symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
+            last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
+            
+            if (typeid(*last_type_symbol) == typeid(byte_type_name_c))
+            {
+        
+                symbol_c * return_type_symbol = &search_constant_type_c::int_type_name;
+                s4o.print("(");
+                return_type_symbol->accept(*this);
+                s4o.print(")");
+                IN_param_value->accept(*this);
+                return NULL;
+                
+            }
+            
+            ERROR;
+        }
+        
+    }/*function_byte_to_int*/
+    break;
+
+/****
+ *BYTE_TO_DINT
+ */
+    case function_byte_to_dint :
+    {
+        symbol_c *last_type_symbol = NULL;
+
+        {
+            identifier_c param_name("IN");
+            /* Get the value from a foo(<param_name> = <param_value>) style call */
+            symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
+            
+            /* Get the value from a foo(<param_value>) style call */
+            if (IN_param_value == NULL)
+              IN_param_value = function_call_param_iterator.next();
+            symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
+            last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
+            
+            if (typeid(*last_type_symbol) == typeid(byte_type_name_c))
+            {
+        
+                symbol_c * return_type_symbol = &search_constant_type_c::dint_type_name;
+                s4o.print("(");
+                return_type_symbol->accept(*this);
+                s4o.print(")");
+                IN_param_value->accept(*this);
+                return NULL;
+                
+            }
+            
+            ERROR;
+        }
+        
+    }/*function_byte_to_dint*/
+    break;
+
+/****
+ *BYTE_TO_LINT
+ */
+    case function_byte_to_lint :
+    {
+        symbol_c *last_type_symbol = NULL;
+
+        {
+            identifier_c param_name("IN");
+            /* Get the value from a foo(<param_name> = <param_value>) style call */
+            symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
+            
+            /* Get the value from a foo(<param_value>) style call */
+            if (IN_param_value == NULL)
+              IN_param_value = function_call_param_iterator.next();
+            symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
+            last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
+            
+            if (typeid(*last_type_symbol) == typeid(byte_type_name_c))
+            {
+        
+                symbol_c * return_type_symbol = &search_constant_type_c::lint_type_name;
+                s4o.print("(");
+                return_type_symbol->accept(*this);
+                s4o.print(")");
+                IN_param_value->accept(*this);
+                return NULL;
+                
+            }
+            
+            ERROR;
+        }
+        
+    }/*function_byte_to_lint*/
+    break;
+
+/****
+ *BYTE_TO_USINT
+ */
+    case function_byte_to_usint :
+    {
+        symbol_c *last_type_symbol = NULL;
+
+        {
+            identifier_c param_name("IN");
+            /* Get the value from a foo(<param_name> = <param_value>) style call */
+            symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
+            
+            /* Get the value from a foo(<param_value>) style call */
+            if (IN_param_value == NULL)
+              IN_param_value = function_call_param_iterator.next();
+            symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
+            last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
+            
+            if (typeid(*last_type_symbol) == typeid(byte_type_name_c))
+            {
+        
+                symbol_c * return_type_symbol = &search_constant_type_c::usint_type_name;
+                s4o.print("(");
+                return_type_symbol->accept(*this);
+                s4o.print(")");
+                IN_param_value->accept(*this);
+                return NULL;
+                
+            }
+            
+            ERROR;
+        }
+        
+    }/*function_byte_to_usint*/
+    break;
+
+/****
+ *BYTE_TO_UINT
+ */
+    case function_byte_to_uint :
+    {
+        symbol_c *last_type_symbol = NULL;
+
+        {
+            identifier_c param_name("IN");
+            /* Get the value from a foo(<param_name> = <param_value>) style call */
+            symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
+            
+            /* Get the value from a foo(<param_value>) style call */
+            if (IN_param_value == NULL)
+              IN_param_value = function_call_param_iterator.next();
+            symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
+            last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
+            
+            if (typeid(*last_type_symbol) == typeid(byte_type_name_c))
+            {
+        
+                symbol_c * return_type_symbol = &search_constant_type_c::uint_type_name;
+                s4o.print("(");
+                return_type_symbol->accept(*this);
+                s4o.print(")");
+                IN_param_value->accept(*this);
+                return NULL;
+                
+            }
+            
+            ERROR;
+        }
+        
+    }/*function_byte_to_uint*/
+    break;
+
+/****
+ *BYTE_TO_UDINT
+ */
+    case function_byte_to_udint :
+    {
+        symbol_c *last_type_symbol = NULL;
+
+        {
+            identifier_c param_name("IN");
+            /* Get the value from a foo(<param_name> = <param_value>) style call */
+            symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
+            
+            /* Get the value from a foo(<param_value>) style call */
+            if (IN_param_value == NULL)
+              IN_param_value = function_call_param_iterator.next();
+            symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
+            last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
+            
+            if (typeid(*last_type_symbol) == typeid(byte_type_name_c))
+            {
+        
+                symbol_c * return_type_symbol = &search_constant_type_c::udint_type_name;
+                s4o.print("(");
+                return_type_symbol->accept(*this);
+                s4o.print(")");
+                IN_param_value->accept(*this);
+                return NULL;
+                
+            }
+            
+            ERROR;
+        }
+        
+    }/*function_byte_to_udint*/
+    break;
+
+/****
+ *BYTE_TO_ULINT
+ */
+    case function_byte_to_ulint :
+    {
+        symbol_c *last_type_symbol = NULL;
+
+        {
+            identifier_c param_name("IN");
+            /* Get the value from a foo(<param_name> = <param_value>) style call */
+            symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
+            
+            /* Get the value from a foo(<param_value>) style call */
+            if (IN_param_value == NULL)
+              IN_param_value = function_call_param_iterator.next();
+            symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
+            last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
+            
+            if (typeid(*last_type_symbol) == typeid(byte_type_name_c))
+            {
+        
+                symbol_c * return_type_symbol = &search_constant_type_c::ulint_type_name;
+                s4o.print("(");
+                return_type_symbol->accept(*this);
+                s4o.print(")");
+                IN_param_value->accept(*this);
+                return NULL;
+                
+            }
+            
+            ERROR;
+        }
+        
+    }/*function_byte_to_ulint*/
+    break;
+
+/****
+ *BYTE_TO_TIME
+ */
+    case function_byte_to_time :
+    {
+        symbol_c *last_type_symbol = NULL;
+
+        {
+            identifier_c param_name("IN");
+            /* Get the value from a foo(<param_name> = <param_value>) style call */
+            symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
+            
+            /* Get the value from a foo(<param_value>) style call */
+            if (IN_param_value == NULL)
+              IN_param_value = function_call_param_iterator.next();
+            symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
+            last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
+            
+            if (typeid(*last_type_symbol) == typeid(byte_type_name_c))
+            {
+        
+                symbol_c * return_type_symbol = &search_constant_type_c::time_type_name;
+                s4o.print("(");
+                return_type_symbol->accept(*this);
+                s4o.print(")real_to_time(");
+                IN_param_value->accept(*this);
+                s4o.print(")");
+                return NULL;
+                
+            }
+            
+            ERROR;
+        }
+        
+    }/*function_byte_to_time*/
+    break;
+
+/****
+ *BYTE_TO_BOOL
+ */
+    case function_byte_to_bool :
+    {
+        symbol_c *last_type_symbol = NULL;
+
+        {
+            identifier_c param_name("IN");
+            /* Get the value from a foo(<param_name> = <param_value>) style call */
+            symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
+            
+            /* Get the value from a foo(<param_value>) style call */
+            if (IN_param_value == NULL)
+              IN_param_value = function_call_param_iterator.next();
+            symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
+            last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
+            
+            if (typeid(*last_type_symbol) == typeid(byte_type_name_c))
+            {
+        
+                symbol_c * return_type_symbol = &search_constant_type_c::bool_type_name;
+                s4o.print("(");
+                return_type_symbol->accept(*this);
+                s4o.print(")");
+                IN_param_value->accept(*this);
+                return NULL;
+                
+            }
+            
+            ERROR;
+        }
+        
+    }/*function_byte_to_bool*/
+    break;
+
+/****
+ *BYTE_TO_WORD
+ */
+    case function_byte_to_word :
+    {
+        symbol_c *last_type_symbol = NULL;
+
+        {
+            identifier_c param_name("IN");
+            /* Get the value from a foo(<param_name> = <param_value>) style call */
+            symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
+            
+            /* Get the value from a foo(<param_value>) style call */
+            if (IN_param_value == NULL)
+              IN_param_value = function_call_param_iterator.next();
+            symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
+            last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
+            
+            if (typeid(*last_type_symbol) == typeid(byte_type_name_c))
+            {
+        
+                symbol_c * return_type_symbol = &search_constant_type_c::word_type_name;
+                s4o.print("(");
+                return_type_symbol->accept(*this);
+                s4o.print(")");
+                IN_param_value->accept(*this);
+                return NULL;
+                
+            }
+            
+            ERROR;
+        }
+        
+    }/*function_byte_to_word*/
+    break;
+
+/****
+ *BYTE_TO_DWORD
+ */
+    case function_byte_to_dword :
+    {
+        symbol_c *last_type_symbol = NULL;
+
+        {
+            identifier_c param_name("IN");
+            /* Get the value from a foo(<param_name> = <param_value>) style call */
+            symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
+            
+            /* Get the value from a foo(<param_value>) style call */
+            if (IN_param_value == NULL)
+              IN_param_value = function_call_param_iterator.next();
+            symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
+            last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
+            
+            if (typeid(*last_type_symbol) == typeid(byte_type_name_c))
+            {
+        
+                symbol_c * return_type_symbol = &search_constant_type_c::dword_type_name;
+                s4o.print("(");
+                return_type_symbol->accept(*this);
+                s4o.print(")");
+                IN_param_value->accept(*this);
+                return NULL;
+                
+            }
+            
+            ERROR;
+        }
+        
+    }/*function_byte_to_dword*/
+    break;
+
+/****
+ *BYTE_TO_LWORD
+ */
+    case function_byte_to_lword :
+    {
+        symbol_c *last_type_symbol = NULL;
+
+        {
+            identifier_c param_name("IN");
+            /* Get the value from a foo(<param_name> = <param_value>) style call */
+            symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
+            
+            /* Get the value from a foo(<param_value>) style call */
+            if (IN_param_value == NULL)
+              IN_param_value = function_call_param_iterator.next();
+            symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
+            last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
+            
+            if (typeid(*last_type_symbol) == typeid(byte_type_name_c))
+            {
+        
+                symbol_c * return_type_symbol = &search_constant_type_c::lword_type_name;
+                s4o.print("(");
+                return_type_symbol->accept(*this);
+                s4o.print(")");
+                IN_param_value->accept(*this);
+                return NULL;
+                
+            }
+            
+            ERROR;
+        }
+        
+    }/*function_byte_to_lword*/
+    break;
+
+/****
+ *BYTE_TO_STRING
+ */
+    case function_byte_to_string :
+    {
+        symbol_c *last_type_symbol = NULL;
+
+        {
+            identifier_c param_name("IN");
+            /* Get the value from a foo(<param_name> = <param_value>) style call */
+            symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
+            
+            /* Get the value from a foo(<param_value>) style call */
+            if (IN_param_value == NULL)
+              IN_param_value = function_call_param_iterator.next();
+            symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
+            last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
+            
+            if (typeid(*last_type_symbol) == typeid(byte_type_name_c))
+            {
+        
+                symbol_c * return_type_symbol = &search_constant_type_c::string_type_name;
+                s4o.print("(");
+                return_type_symbol->accept(*this);
+                s4o.print(")int_to_string(");
+                IN_param_value->accept(*this);
+                s4o.print(", 16)");
+                return NULL;
+                
+            }
+            
+            ERROR;
+        }
+        
+    }/*function_byte_to_string*/
+    break;
+
+/****
+ *BYTE_TO_WSTRING
+ */
+    case function_byte_to_wstring :
+    {
+        symbol_c *last_type_symbol = NULL;
+
+        {
+            identifier_c param_name("IN");
+            /* Get the value from a foo(<param_name> = <param_value>) style call */
+            symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
+            
+            /* Get the value from a foo(<param_value>) style call */
+            if (IN_param_value == NULL)
+              IN_param_value = function_call_param_iterator.next();
+            symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
+            last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
+            
+            if (typeid(*last_type_symbol) == typeid(byte_type_name_c))
+            {
+        
+                symbol_c * return_type_symbol = &search_constant_type_c::wstring_type_name;
+                s4o.print("(");
+                return_type_symbol->accept(*this);
+                s4o.print(")int_to_string(");
+                IN_param_value->accept(*this);
+                s4o.print(", 16)");
+                return NULL;
+                
+            }
+            
+            ERROR;
+        }
+        
+    }/*function_byte_to_wstring*/
+    break;
+
+/****
+ *BYTE_TO_DATE
+ */
+    case function_byte_to_date :
+    {
+        symbol_c *last_type_symbol = NULL;
+
+        {
+            identifier_c param_name("IN");
+            /* Get the value from a foo(<param_name> = <param_value>) style call */
+            symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
+            
+            /* Get the value from a foo(<param_value>) style call */
+            if (IN_param_value == NULL)
+              IN_param_value = function_call_param_iterator.next();
+            symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
+            last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
+            
+            if (typeid(*last_type_symbol) == typeid(byte_type_name_c))
+            {
+        
+                symbol_c * return_type_symbol = &search_constant_type_c::date_type_name;
+                s4o.print("(");
+                return_type_symbol->accept(*this);
+                s4o.print(")real_to_time(");
+                IN_param_value->accept(*this);
+                s4o.print(")");
+                return NULL;
+                
+            }
+            
+            ERROR;
+        }
+        
+    }/*function_byte_to_date*/
+    break;
+
+/****
+ *BYTE_TO_TOD
+ */
+    case function_byte_to_tod :
+    {
+        symbol_c *last_type_symbol = NULL;
+
+        {
+            identifier_c param_name("IN");
+            /* Get the value from a foo(<param_name> = <param_value>) style call */
+            symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
+            
+            /* Get the value from a foo(<param_value>) style call */
+            if (IN_param_value == NULL)
+              IN_param_value = function_call_param_iterator.next();
+            symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
+            last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
+            
+            if (typeid(*last_type_symbol) == typeid(byte_type_name_c))
+            {
+        
+                symbol_c * return_type_symbol = &search_constant_type_c::tod_type_name;
+                s4o.print("(");
+                return_type_symbol->accept(*this);
+                s4o.print(")real_to_time(");
+                IN_param_value->accept(*this);
+                s4o.print(")");
+                return NULL;
+                
+            }
+            
+            ERROR;
+        }
+        
+    }/*function_byte_to_tod*/
+    break;
+
+/****
+ *BYTE_TO_DT
+ */
+    case function_byte_to_dt :
+    {
+        symbol_c *last_type_symbol = NULL;
+
+        {
+            identifier_c param_name("IN");
+            /* Get the value from a foo(<param_name> = <param_value>) style call */
+            symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
+            
+            /* Get the value from a foo(<param_value>) style call */
+            if (IN_param_value == NULL)
+              IN_param_value = function_call_param_iterator.next();
+            symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
+            last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
+            
+            if (typeid(*last_type_symbol) == typeid(byte_type_name_c))
+            {
+        
+                symbol_c * return_type_symbol = &search_constant_type_c::dt_type_name;
+                s4o.print("(");
+                return_type_symbol->accept(*this);
+                s4o.print(")real_to_time(");
+                IN_param_value->accept(*this);
+                s4o.print(")");
+                return NULL;
+                
+            }
+            
+            ERROR;
+        }
+        
+    }/*function_byte_to_dt*/
+    break;
+
+/****
+ *WORD_TO_REAL
+ */
+    case function_word_to_real :
+    {
+        symbol_c *last_type_symbol = NULL;
+
+        {
+            identifier_c param_name("IN");
+            /* Get the value from a foo(<param_name> = <param_value>) style call */
+            symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
+            
+            /* Get the value from a foo(<param_value>) style call */
+            if (IN_param_value == NULL)
+              IN_param_value = function_call_param_iterator.next();
+            symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
+            last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
+            
+            if (typeid(*last_type_symbol) == typeid(word_type_name_c))
+            {
+        
+                symbol_c * return_type_symbol = &search_constant_type_c::real_type_name;
+                s4o.print("(");
+                return_type_symbol->accept(*this);
+                s4o.print(")");
+                IN_param_value->accept(*this);
+                return NULL;
+                
+            }
+            
+            ERROR;
+        }
+        
+    }/*function_word_to_real*/
+    break;
+
+/****
+ *WORD_TO_LREAL
+ */
+    case function_word_to_lreal :
+    {
+        symbol_c *last_type_symbol = NULL;
+
+        {
+            identifier_c param_name("IN");
+            /* Get the value from a foo(<param_name> = <param_value>) style call */
+            symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
+            
+            /* Get the value from a foo(<param_value>) style call */
+            if (IN_param_value == NULL)
+              IN_param_value = function_call_param_iterator.next();
+            symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
+            last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
+            
+            if (typeid(*last_type_symbol) == typeid(word_type_name_c))
+            {
+        
+                symbol_c * return_type_symbol = &search_constant_type_c::lreal_type_name;
+                s4o.print("(");
+                return_type_symbol->accept(*this);
+                s4o.print(")");
+                IN_param_value->accept(*this);
+                return NULL;
+                
+            }
+            
+            ERROR;
+        }
+        
+    }/*function_word_to_lreal*/
+    break;
+
+/****
+ *WORD_TO_SINT
+ */
+    case function_word_to_sint :
+    {
+        symbol_c *last_type_symbol = NULL;
+
+        {
+            identifier_c param_name("IN");
+            /* Get the value from a foo(<param_name> = <param_value>) style call */
+            symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
+            
+            /* Get the value from a foo(<param_value>) style call */
+            if (IN_param_value == NULL)
+              IN_param_value = function_call_param_iterator.next();
+            symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
+            last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
+            
+            if (typeid(*last_type_symbol) == typeid(word_type_name_c))
+            {
+        
+                symbol_c * return_type_symbol = &search_constant_type_c::sint_type_name;
+                s4o.print("(");
+                return_type_symbol->accept(*this);
+                s4o.print(")");
+                IN_param_value->accept(*this);
+                return NULL;
+                
+            }
+            
+            ERROR;
+        }
+        
+    }/*function_word_to_sint*/
+    break;
+
+/****
+ *WORD_TO_INT
+ */
+    case function_word_to_int :
+    {
+        symbol_c *last_type_symbol = NULL;
+
+        {
+            identifier_c param_name("IN");
+            /* Get the value from a foo(<param_name> = <param_value>) style call */
+            symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
+            
+            /* Get the value from a foo(<param_value>) style call */
+            if (IN_param_value == NULL)
+              IN_param_value = function_call_param_iterator.next();
+            symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
+            last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
+            
+            if (typeid(*last_type_symbol) == typeid(word_type_name_c))
+            {
+        
+                symbol_c * return_type_symbol = &search_constant_type_c::int_type_name;
+                s4o.print("(");
+                return_type_symbol->accept(*this);
+                s4o.print(")");
+                IN_param_value->accept(*this);
+                return NULL;
+                
+            }
+            
+            ERROR;
+        }
+        
+    }/*function_word_to_int*/
+    break;
+
+/****
+ *WORD_TO_DINT
+ */
+    case function_word_to_dint :
+    {
+        symbol_c *last_type_symbol = NULL;
+
+        {
+            identifier_c param_name("IN");
+            /* Get the value from a foo(<param_name> = <param_value>) style call */
+            symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
+            
+            /* Get the value from a foo(<param_value>) style call */
+            if (IN_param_value == NULL)
+              IN_param_value = function_call_param_iterator.next();
+            symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
+            last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
+            
+            if (typeid(*last_type_symbol) == typeid(word_type_name_c))
+            {
+        
+                symbol_c * return_type_symbol = &search_constant_type_c::dint_type_name;
+                s4o.print("(");
+                return_type_symbol->accept(*this);
+                s4o.print(")");
+                IN_param_value->accept(*this);
+                return NULL;
+                
+            }
+            
+            ERROR;
+        }
+        
+    }/*function_word_to_dint*/
+    break;
+
+/****
+ *WORD_TO_LINT
+ */
+    case function_word_to_lint :
+    {
+        symbol_c *last_type_symbol = NULL;
+
+        {
+            identifier_c param_name("IN");
+            /* Get the value from a foo(<param_name> = <param_value>) style call */
+            symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
+            
+            /* Get the value from a foo(<param_value>) style call */
+            if (IN_param_value == NULL)
+              IN_param_value = function_call_param_iterator.next();
+            symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
+            last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
+            
+            if (typeid(*last_type_symbol) == typeid(word_type_name_c))
+            {
+        
+                symbol_c * return_type_symbol = &search_constant_type_c::lint_type_name;
+                s4o.print("(");
+                return_type_symbol->accept(*this);
+                s4o.print(")");
+                IN_param_value->accept(*this);
+                return NULL;
+                
+            }
+            
+            ERROR;
+        }
+        
+    }/*function_word_to_lint*/
+    break;
+
+/****
+ *WORD_TO_USINT
+ */
+    case function_word_to_usint :
+    {
+        symbol_c *last_type_symbol = NULL;
+
+        {
+            identifier_c param_name("IN");
+            /* Get the value from a foo(<param_name> = <param_value>) style call */
+            symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
+            
+            /* Get the value from a foo(<param_value>) style call */
+            if (IN_param_value == NULL)
+              IN_param_value = function_call_param_iterator.next();
+            symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
+            last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
+            
+            if (typeid(*last_type_symbol) == typeid(word_type_name_c))
+            {
+        
+                symbol_c * return_type_symbol = &search_constant_type_c::usint_type_name;
+                s4o.print("(");
+                return_type_symbol->accept(*this);
+                s4o.print(")");
+                IN_param_value->accept(*this);
+                return NULL;
+                
+            }
+            
+            ERROR;
+        }
+        
+    }/*function_word_to_usint*/
+    break;
+
+/****
+ *WORD_TO_UINT
+ */
+    case function_word_to_uint :
+    {
+        symbol_c *last_type_symbol = NULL;
+
+        {
+            identifier_c param_name("IN");
+            /* Get the value from a foo(<param_name> = <param_value>) style call */
+            symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
+            
+            /* Get the value from a foo(<param_value>) style call */
+            if (IN_param_value == NULL)
+              IN_param_value = function_call_param_iterator.next();
+            symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
+            last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
+            
+            if (typeid(*last_type_symbol) == typeid(word_type_name_c))
+            {
+        
+                symbol_c * return_type_symbol = &search_constant_type_c::uint_type_name;
+                s4o.print("(");
+                return_type_symbol->accept(*this);
+                s4o.print(")");
+                IN_param_value->accept(*this);
+                return NULL;
+                
+            }
+            
+            ERROR;
+        }
+        
+    }/*function_word_to_uint*/
+    break;
+
+/****
+ *WORD_TO_UDINT
+ */
+    case function_word_to_udint :
+    {
+        symbol_c *last_type_symbol = NULL;
+
+        {
+            identifier_c param_name("IN");
+            /* Get the value from a foo(<param_name> = <param_value>) style call */
+            symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
+            
+            /* Get the value from a foo(<param_value>) style call */
+            if (IN_param_value == NULL)
+              IN_param_value = function_call_param_iterator.next();
+            symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
+            last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
+            
+            if (typeid(*last_type_symbol) == typeid(word_type_name_c))
+            {
+        
+                symbol_c * return_type_symbol = &search_constant_type_c::udint_type_name;
+                s4o.print("(");
+                return_type_symbol->accept(*this);
+                s4o.print(")");
+                IN_param_value->accept(*this);
+                return NULL;
+                
+            }
+            
+            ERROR;
+        }
+        
+    }/*function_word_to_udint*/
+    break;
+
+/****
+ *WORD_TO_ULINT
+ */
+    case function_word_to_ulint :
+    {
+        symbol_c *last_type_symbol = NULL;
+
+        {
+            identifier_c param_name("IN");
+            /* Get the value from a foo(<param_name> = <param_value>) style call */
+            symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
+            
+            /* Get the value from a foo(<param_value>) style call */
+            if (IN_param_value == NULL)
+              IN_param_value = function_call_param_iterator.next();
+            symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
+            last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
+            
+            if (typeid(*last_type_symbol) == typeid(word_type_name_c))
+            {
+        
+                symbol_c * return_type_symbol = &search_constant_type_c::ulint_type_name;
+                s4o.print("(");
+                return_type_symbol->accept(*this);
+                s4o.print(")");
+                IN_param_value->accept(*this);
+                return NULL;
+                
+            }
+            
+            ERROR;
+        }
+        
+    }/*function_word_to_ulint*/
+    break;
+
+/****
+ *WORD_TO_TIME
+ */
+    case function_word_to_time :
+    {
+        symbol_c *last_type_symbol = NULL;
+
+        {
+            identifier_c param_name("IN");
+            /* Get the value from a foo(<param_name> = <param_value>) style call */
+            symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
+            
+            /* Get the value from a foo(<param_value>) style call */
+            if (IN_param_value == NULL)
+              IN_param_value = function_call_param_iterator.next();
+            symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
+            last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
+            
+            if (typeid(*last_type_symbol) == typeid(word_type_name_c))
+            {
+        
+                symbol_c * return_type_symbol = &search_constant_type_c::time_type_name;
+                s4o.print("(");
+                return_type_symbol->accept(*this);
+                s4o.print(")real_to_time(");
+                IN_param_value->accept(*this);
+                s4o.print(")");
+                return NULL;
+                
+            }
+            
+            ERROR;
+        }
+        
+    }/*function_word_to_time*/
+    break;
+
+/****
+ *WORD_TO_BOOL
+ */
+    case function_word_to_bool :
+    {
+        symbol_c *last_type_symbol = NULL;
+
+        {
+            identifier_c param_name("IN");
+            /* Get the value from a foo(<param_name> = <param_value>) style call */
+            symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
+            
+            /* Get the value from a foo(<param_value>) style call */
+            if (IN_param_value == NULL)
+              IN_param_value = function_call_param_iterator.next();
+            symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
+            last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
+            
+            if (typeid(*last_type_symbol) == typeid(word_type_name_c))
+            {
+        
+                symbol_c * return_type_symbol = &search_constant_type_c::bool_type_name;
+                s4o.print("(");
+                return_type_symbol->accept(*this);
+                s4o.print(")");
+                IN_param_value->accept(*this);
+                return NULL;
+                
+            }
+            
+            ERROR;
+        }
+        
+    }/*function_word_to_bool*/
+    break;
+
+/****
+ *WORD_TO_BYTE
+ */
+    case function_word_to_byte :
+    {
+        symbol_c *last_type_symbol = NULL;
+
+        {
+            identifier_c param_name("IN");
+            /* Get the value from a foo(<param_name> = <param_value>) style call */
+            symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
+            
+            /* Get the value from a foo(<param_value>) style call */
+            if (IN_param_value == NULL)
+              IN_param_value = function_call_param_iterator.next();
+            symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
+            last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
+            
+            if (typeid(*last_type_symbol) == typeid(word_type_name_c))
+            {
+        
+                symbol_c * return_type_symbol = &search_constant_type_c::byte_type_name;
+                s4o.print("(");
+                return_type_symbol->accept(*this);
+                s4o.print(")");
+                IN_param_value->accept(*this);
+                return NULL;
+                
+            }
+            
+            ERROR;
+        }
+        
+    }/*function_word_to_byte*/
+    break;
+
+/****
+ *WORD_TO_DWORD
+ */
+    case function_word_to_dword :
+    {
+        symbol_c *last_type_symbol = NULL;
+
+        {
+            identifier_c param_name("IN");
+            /* Get the value from a foo(<param_name> = <param_value>) style call */
+            symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
+            
+            /* Get the value from a foo(<param_value>) style call */
+            if (IN_param_value == NULL)
+              IN_param_value = function_call_param_iterator.next();
+            symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
+            last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
+            
+            if (typeid(*last_type_symbol) == typeid(word_type_name_c))
+            {
+        
+                symbol_c * return_type_symbol = &search_constant_type_c::dword_type_name;
+                s4o.print("(");
+                return_type_symbol->accept(*this);
+                s4o.print(")");
+                IN_param_value->accept(*this);
+                return NULL;
+                
+            }
+            
+            ERROR;
+        }
+        
+    }/*function_word_to_dword*/
+    break;
+
+/****
+ *WORD_TO_LWORD
+ */
+    case function_word_to_lword :
+    {
+        symbol_c *last_type_symbol = NULL;
+
+        {
+            identifier_c param_name("IN");
+            /* Get the value from a foo(<param_name> = <param_value>) style call */
+            symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
+            
+            /* Get the value from a foo(<param_value>) style call */
+            if (IN_param_value == NULL)
+              IN_param_value = function_call_param_iterator.next();
+            symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
+            last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
+            
+            if (typeid(*last_type_symbol) == typeid(word_type_name_c))
+            {
+        
+                symbol_c * return_type_symbol = &search_constant_type_c::lword_type_name;
+                s4o.print("(");
+                return_type_symbol->accept(*this);
+                s4o.print(")");
+                IN_param_value->accept(*this);
+                return NULL;
+                
+            }
+            
+            ERROR;
+        }
+        
+    }/*function_word_to_lword*/
+    break;
+
+/****
+ *WORD_TO_STRING
+ */
+    case function_word_to_string :
+    {
+        symbol_c *last_type_symbol = NULL;
+
+        {
+            identifier_c param_name("IN");
+            /* Get the value from a foo(<param_name> = <param_value>) style call */
+            symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
+            
+            /* Get the value from a foo(<param_value>) style call */
+            if (IN_param_value == NULL)
+              IN_param_value = function_call_param_iterator.next();
+            symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
+            last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
+            
+            if (typeid(*last_type_symbol) == typeid(word_type_name_c))
+            {
+        
+                symbol_c * return_type_symbol = &search_constant_type_c::string_type_name;
+                s4o.print("(");
+                return_type_symbol->accept(*this);
+                s4o.print(")int_to_string(");
+                IN_param_value->accept(*this);
+                s4o.print(", 16)");
+                return NULL;
+                
+            }
+            
+            ERROR;
+        }
+        
+    }/*function_word_to_string*/
+    break;
+
+/****
+ *WORD_TO_WSTRING
+ */
+    case function_word_to_wstring :
+    {
+        symbol_c *last_type_symbol = NULL;
+
+        {
+            identifier_c param_name("IN");
+            /* Get the value from a foo(<param_name> = <param_value>) style call */
+            symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
+            
+            /* Get the value from a foo(<param_value>) style call */
+            if (IN_param_value == NULL)
+              IN_param_value = function_call_param_iterator.next();
+            symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
+            last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
+            
+            if (typeid(*last_type_symbol) == typeid(word_type_name_c))
+            {
+        
+                symbol_c * return_type_symbol = &search_constant_type_c::wstring_type_name;
+                s4o.print("(");
+                return_type_symbol->accept(*this);
+                s4o.print(")int_to_string(");
+                IN_param_value->accept(*this);
+                s4o.print(", 16)");
+                return NULL;
+                
+            }
+            
+            ERROR;
+        }
+        
+    }/*function_word_to_wstring*/
+    break;
+
+/****
+ *WORD_TO_DATE
+ */
+    case function_word_to_date :
+    {
+        symbol_c *last_type_symbol = NULL;
+
+        {
+            identifier_c param_name("IN");
+            /* Get the value from a foo(<param_name> = <param_value>) style call */
+            symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
+            
+            /* Get the value from a foo(<param_value>) style call */
+            if (IN_param_value == NULL)
+              IN_param_value = function_call_param_iterator.next();
+            symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
+            last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
+            
+            if (typeid(*last_type_symbol) == typeid(word_type_name_c))
+            {
+        
+                symbol_c * return_type_symbol = &search_constant_type_c::date_type_name;
+                s4o.print("(");
+                return_type_symbol->accept(*this);
+                s4o.print(")real_to_time(");
+                IN_param_value->accept(*this);
+                s4o.print(")");
+                return NULL;
+                
+            }
+            
+            ERROR;
+        }
+        
+    }/*function_word_to_date*/
+    break;
+
+/****
+ *WORD_TO_TOD
+ */
+    case function_word_to_tod :
+    {
+        symbol_c *last_type_symbol = NULL;
+
+        {
+            identifier_c param_name("IN");
+            /* Get the value from a foo(<param_name> = <param_value>) style call */
+            symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
+            
+            /* Get the value from a foo(<param_value>) style call */
+            if (IN_param_value == NULL)
+              IN_param_value = function_call_param_iterator.next();
+            symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
+            last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
+            
+            if (typeid(*last_type_symbol) == typeid(word_type_name_c))
+            {
+        
+                symbol_c * return_type_symbol = &search_constant_type_c::tod_type_name;
+                s4o.print("(");
+                return_type_symbol->accept(*this);
+                s4o.print(")real_to_time(");
+                IN_param_value->accept(*this);
+                s4o.print(")");
+                return NULL;
+                
+            }
+            
+            ERROR;
+        }
+        
+    }/*function_word_to_tod*/
+    break;
+
+/****
+ *WORD_TO_DT
+ */
+    case function_word_to_dt :
+    {
+        symbol_c *last_type_symbol = NULL;
+
+        {
+            identifier_c param_name("IN");
+            /* Get the value from a foo(<param_name> = <param_value>) style call */
+            symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
+            
+            /* Get the value from a foo(<param_value>) style call */
+            if (IN_param_value == NULL)
+              IN_param_value = function_call_param_iterator.next();
+            symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
+            last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
+            
+            if (typeid(*last_type_symbol) == typeid(word_type_name_c))
+            {
+        
+                symbol_c * return_type_symbol = &search_constant_type_c::dt_type_name;
+                s4o.print("(");
+                return_type_symbol->accept(*this);
+                s4o.print(")real_to_time(");
+                IN_param_value->accept(*this);
+                s4o.print(")");
+                return NULL;
+                
+            }
+            
+            ERROR;
+        }
+        
+    }/*function_word_to_dt*/
+    break;
+
+/****
+ *DWORD_TO_REAL
+ */
+    case function_dword_to_real :
+    {
+        symbol_c *last_type_symbol = NULL;
+
+        {
+            identifier_c param_name("IN");
+            /* Get the value from a foo(<param_name> = <param_value>) style call */
+            symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
+            
+            /* Get the value from a foo(<param_value>) style call */
+            if (IN_param_value == NULL)
+              IN_param_value = function_call_param_iterator.next();
+            symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
+            last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
+            
+            if (typeid(*last_type_symbol) == typeid(dword_type_name_c))
+            {
+        
+                symbol_c * return_type_symbol = &search_constant_type_c::real_type_name;
+                s4o.print("(");
+                return_type_symbol->accept(*this);
+                s4o.print(")");
+                IN_param_value->accept(*this);
+                return NULL;
+                
+            }
+            
+            ERROR;
+        }
+        
+    }/*function_dword_to_real*/
+    break;
+
+/****
+ *DWORD_TO_LREAL
+ */
+    case function_dword_to_lreal :
+    {
+        symbol_c *last_type_symbol = NULL;
+
+        {
+            identifier_c param_name("IN");
+            /* Get the value from a foo(<param_name> = <param_value>) style call */
+            symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
+            
+            /* Get the value from a foo(<param_value>) style call */
+            if (IN_param_value == NULL)
+              IN_param_value = function_call_param_iterator.next();
+            symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
+            last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
+            
+            if (typeid(*last_type_symbol) == typeid(dword_type_name_c))
+            {
+        
+                symbol_c * return_type_symbol = &search_constant_type_c::lreal_type_name;
+                s4o.print("(");
+                return_type_symbol->accept(*this);
+                s4o.print(")");
+                IN_param_value->accept(*this);
+                return NULL;
+                
+            }
+            
+            ERROR;
+        }
+        
+    }/*function_dword_to_lreal*/
+    break;
+
+/****
+ *DWORD_TO_SINT
+ */
+    case function_dword_to_sint :
+    {
+        symbol_c *last_type_symbol = NULL;
+
+        {
+            identifier_c param_name("IN");
+            /* Get the value from a foo(<param_name> = <param_value>) style call */
+            symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
+            
+            /* Get the value from a foo(<param_value>) style call */
+            if (IN_param_value == NULL)
+              IN_param_value = function_call_param_iterator.next();
+            symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
+            last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
+            
+            if (typeid(*last_type_symbol) == typeid(dword_type_name_c))
+            {
+        
+                symbol_c * return_type_symbol = &search_constant_type_c::sint_type_name;
+                s4o.print("(");
+                return_type_symbol->accept(*this);
+                s4o.print(")");
+                IN_param_value->accept(*this);
+                return NULL;
+                
+            }
+            
+            ERROR;
+        }
+        
+    }/*function_dword_to_sint*/
+    break;
+
+/****
+ *DWORD_TO_INT
+ */
+    case function_dword_to_int :
+    {
+        symbol_c *last_type_symbol = NULL;
+
+        {
+            identifier_c param_name("IN");
+            /* Get the value from a foo(<param_name> = <param_value>) style call */
+            symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
+            
+            /* Get the value from a foo(<param_value>) style call */
+            if (IN_param_value == NULL)
+              IN_param_value = function_call_param_iterator.next();
+            symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
+            last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
+            
+            if (typeid(*last_type_symbol) == typeid(dword_type_name_c))
+            {
+        
+                symbol_c * return_type_symbol = &search_constant_type_c::int_type_name;
+                s4o.print("(");
+                return_type_symbol->accept(*this);
+                s4o.print(")");
+                IN_param_value->accept(*this);
+                return NULL;
+                
+            }
+            
+            ERROR;
+        }
+        
+    }/*function_dword_to_int*/
+    break;
+
+/****
+ *DWORD_TO_DINT
+ */
+    case function_dword_to_dint :
+    {
+        symbol_c *last_type_symbol = NULL;
+
+        {
+            identifier_c param_name("IN");
+            /* Get the value from a foo(<param_name> = <param_value>) style call */
+            symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
+            
+            /* Get the value from a foo(<param_value>) style call */
+            if (IN_param_value == NULL)
+              IN_param_value = function_call_param_iterator.next();
+            symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
+            last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
+            
+            if (typeid(*last_type_symbol) == typeid(dword_type_name_c))
+            {
+        
+                symbol_c * return_type_symbol = &search_constant_type_c::dint_type_name;
+                s4o.print("(");
+                return_type_symbol->accept(*this);
+                s4o.print(")");
+                IN_param_value->accept(*this);
+                return NULL;
+                
+            }
+            
+            ERROR;
+        }
+        
+    }/*function_dword_to_dint*/
+    break;
+
+/****
+ *DWORD_TO_LINT
+ */
+    case function_dword_to_lint :
+    {
+        symbol_c *last_type_symbol = NULL;
+
+        {
+            identifier_c param_name("IN");
+            /* Get the value from a foo(<param_name> = <param_value>) style call */
+            symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
+            
+            /* Get the value from a foo(<param_value>) style call */
+            if (IN_param_value == NULL)
+              IN_param_value = function_call_param_iterator.next();
+            symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
+            last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
+            
+            if (typeid(*last_type_symbol) == typeid(dword_type_name_c))
+            {
+        
+                symbol_c * return_type_symbol = &search_constant_type_c::lint_type_name;
+                s4o.print("(");
+                return_type_symbol->accept(*this);
+                s4o.print(")");
+                IN_param_value->accept(*this);
+                return NULL;
+                
+            }
+            
+            ERROR;
+        }
+        
+    }/*function_dword_to_lint*/
+    break;
+
+/****
+ *DWORD_TO_USINT
+ */
+    case function_dword_to_usint :
+    {
+        symbol_c *last_type_symbol = NULL;
+
+        {
+            identifier_c param_name("IN");
+            /* Get the value from a foo(<param_name> = <param_value>) style call */
+            symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
+            
+            /* Get the value from a foo(<param_value>) style call */
+            if (IN_param_value == NULL)
+              IN_param_value = function_call_param_iterator.next();
+            symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
+            last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
+            
+            if (typeid(*last_type_symbol) == typeid(dword_type_name_c))
+            {
+        
+                symbol_c * return_type_symbol = &search_constant_type_c::usint_type_name;
+                s4o.print("(");
+                return_type_symbol->accept(*this);
+                s4o.print(")");
+                IN_param_value->accept(*this);
+                return NULL;
+                
+            }
+            
+            ERROR;
+        }
+        
+    }/*function_dword_to_usint*/
+    break;
+
+/****
+ *DWORD_TO_UINT
+ */
+    case function_dword_to_uint :
+    {
+        symbol_c *last_type_symbol = NULL;
+
+        {
+            identifier_c param_name("IN");
+            /* Get the value from a foo(<param_name> = <param_value>) style call */
+            symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
+            
+            /* Get the value from a foo(<param_value>) style call */
+            if (IN_param_value == NULL)
+              IN_param_value = function_call_param_iterator.next();
+            symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
+            last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
+            
+            if (typeid(*last_type_symbol) == typeid(dword_type_name_c))
+            {
+        
+                symbol_c * return_type_symbol = &search_constant_type_c::uint_type_name;
+                s4o.print("(");
+                return_type_symbol->accept(*this);
+                s4o.print(")");
+                IN_param_value->accept(*this);
+                return NULL;
+                
+            }
+            
+            ERROR;
+        }
+        
+    }/*function_dword_to_uint*/
+    break;
+
+/****
+ *DWORD_TO_UDINT
+ */
+    case function_dword_to_udint :
+    {
+        symbol_c *last_type_symbol = NULL;
+
+        {
+            identifier_c param_name("IN");
+            /* Get the value from a foo(<param_name> = <param_value>) style call */
+            symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
+            
+            /* Get the value from a foo(<param_value>) style call */
+            if (IN_param_value == NULL)
+              IN_param_value = function_call_param_iterator.next();
+            symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
+            last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
+            
+            if (typeid(*last_type_symbol) == typeid(dword_type_name_c))
+            {
+        
+                symbol_c * return_type_symbol = &search_constant_type_c::udint_type_name;
+                s4o.print("(");
+                return_type_symbol->accept(*this);
+                s4o.print(")");
+                IN_param_value->accept(*this);
+                return NULL;
+                
+            }
+            
+            ERROR;
+        }
+        
+    }/*function_dword_to_udint*/
+    break;
+
+/****
+ *DWORD_TO_ULINT
+ */
+    case function_dword_to_ulint :
+    {
+        symbol_c *last_type_symbol = NULL;
+
+        {
+            identifier_c param_name("IN");
+            /* Get the value from a foo(<param_name> = <param_value>) style call */
+            symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
+            
+            /* Get the value from a foo(<param_value>) style call */
+            if (IN_param_value == NULL)
+              IN_param_value = function_call_param_iterator.next();
+            symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
+            last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
+            
+            if (typeid(*last_type_symbol) == typeid(dword_type_name_c))
+            {
+        
+                symbol_c * return_type_symbol = &search_constant_type_c::ulint_type_name;
+                s4o.print("(");
+                return_type_symbol->accept(*this);
+                s4o.print(")");
+                IN_param_value->accept(*this);
+                return NULL;
+                
+            }
+            
+            ERROR;
+        }
+        
+    }/*function_dword_to_ulint*/
+    break;
+
+/****
+ *DWORD_TO_TIME
+ */
+    case function_dword_to_time :
+    {
+        symbol_c *last_type_symbol = NULL;
+
+        {
+            identifier_c param_name("IN");
+            /* Get the value from a foo(<param_name> = <param_value>) style call */
+            symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
+            
+            /* Get the value from a foo(<param_value>) style call */
+            if (IN_param_value == NULL)
+              IN_param_value = function_call_param_iterator.next();
+            symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
+            last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
+            
+            if (typeid(*last_type_symbol) == typeid(dword_type_name_c))
+            {
+        
+                symbol_c * return_type_symbol = &search_constant_type_c::time_type_name;
+                s4o.print("(");
+                return_type_symbol->accept(*this);
+                s4o.print(")real_to_time(");
+                IN_param_value->accept(*this);
+                s4o.print(")");
+                return NULL;
+                
+            }
+            
+            ERROR;
+        }
+        
+    }/*function_dword_to_time*/
+    break;
+
+/****
+ *DWORD_TO_BOOL
+ */
+    case function_dword_to_bool :
+    {
+        symbol_c *last_type_symbol = NULL;
+
+        {
+            identifier_c param_name("IN");
+            /* Get the value from a foo(<param_name> = <param_value>) style call */
+            symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
+            
+            /* Get the value from a foo(<param_value>) style call */
+            if (IN_param_value == NULL)
+              IN_param_value = function_call_param_iterator.next();
+            symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
+            last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
+            
+            if (typeid(*last_type_symbol) == typeid(dword_type_name_c))
+            {
+        
+                symbol_c * return_type_symbol = &search_constant_type_c::bool_type_name;
+                s4o.print("(");
+                return_type_symbol->accept(*this);
+                s4o.print(")");
+                IN_param_value->accept(*this);
+                return NULL;
+                
+            }
+            
+            ERROR;
+        }
+        
+    }/*function_dword_to_bool*/
+    break;
+
+/****
+ *DWORD_TO_BYTE
+ */
+    case function_dword_to_byte :
+    {
+        symbol_c *last_type_symbol = NULL;
+
+        {
+            identifier_c param_name("IN");
+            /* Get the value from a foo(<param_name> = <param_value>) style call */
+            symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
+            
+            /* Get the value from a foo(<param_value>) style call */
+            if (IN_param_value == NULL)
+              IN_param_value = function_call_param_iterator.next();
+            symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
+            last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
+            
+            if (typeid(*last_type_symbol) == typeid(dword_type_name_c))
+            {
+        
+                symbol_c * return_type_symbol = &search_constant_type_c::byte_type_name;
+                s4o.print("(");
+                return_type_symbol->accept(*this);
+                s4o.print(")");
+                IN_param_value->accept(*this);
+                return NULL;
+                
+            }
+            
+            ERROR;
+        }
+        
+    }/*function_dword_to_byte*/
+    break;
+
+/****
+ *DWORD_TO_WORD
+ */
+    case function_dword_to_word :
+    {
+        symbol_c *last_type_symbol = NULL;
+
+        {
+            identifier_c param_name("IN");
+            /* Get the value from a foo(<param_name> = <param_value>) style call */
+            symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
+            
+            /* Get the value from a foo(<param_value>) style call */
+            if (IN_param_value == NULL)
+              IN_param_value = function_call_param_iterator.next();
+            symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
+            last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
+            
+            if (typeid(*last_type_symbol) == typeid(dword_type_name_c))
+            {
+        
+                symbol_c * return_type_symbol = &search_constant_type_c::word_type_name;
+                s4o.print("(");
+                return_type_symbol->accept(*this);
+                s4o.print(")");
+                IN_param_value->accept(*this);
+                return NULL;
+                
+            }
+            
+            ERROR;
+        }
+        
+    }/*function_dword_to_word*/
+    break;
+
+/****
+ *DWORD_TO_LWORD
+ */
+    case function_dword_to_lword :
+    {
+        symbol_c *last_type_symbol = NULL;
+
+        {
+            identifier_c param_name("IN");
+            /* Get the value from a foo(<param_name> = <param_value>) style call */
+            symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
+            
+            /* Get the value from a foo(<param_value>) style call */
+            if (IN_param_value == NULL)
+              IN_param_value = function_call_param_iterator.next();
+            symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
+            last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
+            
+            if (typeid(*last_type_symbol) == typeid(dword_type_name_c))
+            {
+        
+                symbol_c * return_type_symbol = &search_constant_type_c::lword_type_name;
+                s4o.print("(");
+                return_type_symbol->accept(*this);
+                s4o.print(")");
+                IN_param_value->accept(*this);
+                return NULL;
+                
+            }
+            
+            ERROR;
+        }
+        
+    }/*function_dword_to_lword*/
+    break;
+
+/****
+ *DWORD_TO_STRING
+ */
+    case function_dword_to_string :
+    {
+        symbol_c *last_type_symbol = NULL;
+
+        {
+            identifier_c param_name("IN");
+            /* Get the value from a foo(<param_name> = <param_value>) style call */
+            symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
+            
+            /* Get the value from a foo(<param_value>) style call */
+            if (IN_param_value == NULL)
+              IN_param_value = function_call_param_iterator.next();
+            symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
+            last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
+            
+            if (typeid(*last_type_symbol) == typeid(dword_type_name_c))
+            {
+        
+                symbol_c * return_type_symbol = &search_constant_type_c::string_type_name;
+                s4o.print("(");
+                return_type_symbol->accept(*this);
+                s4o.print(")int_to_string(");
+                IN_param_value->accept(*this);
+                s4o.print(", 16)");
+                return NULL;
+                
+            }
+            
+            ERROR;
+        }
+        
+    }/*function_dword_to_string*/
+    break;
+
+/****
+ *DWORD_TO_WSTRING
+ */
+    case function_dword_to_wstring :
+    {
+        symbol_c *last_type_symbol = NULL;
+
+        {
+            identifier_c param_name("IN");
+            /* Get the value from a foo(<param_name> = <param_value>) style call */
+            symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
+            
+            /* Get the value from a foo(<param_value>) style call */
+            if (IN_param_value == NULL)
+              IN_param_value = function_call_param_iterator.next();
+            symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
+            last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
+            
+            if (typeid(*last_type_symbol) == typeid(dword_type_name_c))
+            {
+        
+                symbol_c * return_type_symbol = &search_constant_type_c::wstring_type_name;
+                s4o.print("(");
+                return_type_symbol->accept(*this);
+                s4o.print(")int_to_string(");
+                IN_param_value->accept(*this);
+                s4o.print(", 16)");
+                return NULL;
+                
+            }
+            
+            ERROR;
+        }
+        
+    }/*function_dword_to_wstring*/
+    break;
+
+/****
+ *DWORD_TO_DATE
+ */
+    case function_dword_to_date :
+    {
+        symbol_c *last_type_symbol = NULL;
+
+        {
+            identifier_c param_name("IN");
+            /* Get the value from a foo(<param_name> = <param_value>) style call */
+            symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
+            
+            /* Get the value from a foo(<param_value>) style call */
+            if (IN_param_value == NULL)
+              IN_param_value = function_call_param_iterator.next();
+            symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
+            last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
+            
+            if (typeid(*last_type_symbol) == typeid(dword_type_name_c))
+            {
+        
+                symbol_c * return_type_symbol = &search_constant_type_c::date_type_name;
+                s4o.print("(");
+                return_type_symbol->accept(*this);
+                s4o.print(")real_to_time(");
+                IN_param_value->accept(*this);
+                s4o.print(")");
+                return NULL;
+                
+            }
+            
+            ERROR;
+        }
+        
+    }/*function_dword_to_date*/
+    break;
+
+/****
+ *DWORD_TO_TOD
+ */
+    case function_dword_to_tod :
+    {
+        symbol_c *last_type_symbol = NULL;
+
+        {
+            identifier_c param_name("IN");
+            /* Get the value from a foo(<param_name> = <param_value>) style call */
+            symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
+            
+            /* Get the value from a foo(<param_value>) style call */
+            if (IN_param_value == NULL)
+              IN_param_value = function_call_param_iterator.next();
+            symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
+            last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
+            
+            if (typeid(*last_type_symbol) == typeid(dword_type_name_c))
+            {
+        
+                symbol_c * return_type_symbol = &search_constant_type_c::tod_type_name;
+                s4o.print("(");
+                return_type_symbol->accept(*this);
+                s4o.print(")real_to_time(");
+                IN_param_value->accept(*this);
+                s4o.print(")");
+                return NULL;
+                
+            }
+            
+            ERROR;
+        }
+        
+    }/*function_dword_to_tod*/
+    break;
+
+/****
+ *DWORD_TO_DT
+ */
+    case function_dword_to_dt :
+    {
+        symbol_c *last_type_symbol = NULL;
+
+        {
+            identifier_c param_name("IN");
+            /* Get the value from a foo(<param_name> = <param_value>) style call */
+            symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
+            
+            /* Get the value from a foo(<param_value>) style call */
+            if (IN_param_value == NULL)
+              IN_param_value = function_call_param_iterator.next();
+            symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
+            last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
+            
+            if (typeid(*last_type_symbol) == typeid(dword_type_name_c))
+            {
+        
+                symbol_c * return_type_symbol = &search_constant_type_c::dt_type_name;
+                s4o.print("(");
+                return_type_symbol->accept(*this);
+                s4o.print(")real_to_time(");
+                IN_param_value->accept(*this);
+                s4o.print(")");
+                return NULL;
+                
+            }
+            
+            ERROR;
+        }
+        
+    }/*function_dword_to_dt*/
+    break;
+
+/****
+ *LWORD_TO_REAL
+ */
+    case function_lword_to_real :
+    {
+        symbol_c *last_type_symbol = NULL;
+
+        {
+            identifier_c param_name("IN");
+            /* Get the value from a foo(<param_name> = <param_value>) style call */
+            symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
+            
+            /* Get the value from a foo(<param_value>) style call */
+            if (IN_param_value == NULL)
+              IN_param_value = function_call_param_iterator.next();
+            symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
+            last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
+            
+            if (typeid(*last_type_symbol) == typeid(lword_type_name_c))
+            {
+        
+                symbol_c * return_type_symbol = &search_constant_type_c::real_type_name;
+                s4o.print("(");
+                return_type_symbol->accept(*this);
+                s4o.print(")");
+                IN_param_value->accept(*this);
+                return NULL;
+                
+            }
+            
+            ERROR;
+        }
+        
+    }/*function_lword_to_real*/
+    break;
+
+/****
+ *LWORD_TO_LREAL
+ */
+    case function_lword_to_lreal :
+    {
+        symbol_c *last_type_symbol = NULL;
+
+        {
+            identifier_c param_name("IN");
+            /* Get the value from a foo(<param_name> = <param_value>) style call */
+            symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
+            
+            /* Get the value from a foo(<param_value>) style call */
+            if (IN_param_value == NULL)
+              IN_param_value = function_call_param_iterator.next();
+            symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
+            last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
+            
+            if (typeid(*last_type_symbol) == typeid(lword_type_name_c))
+            {
+        
+                symbol_c * return_type_symbol = &search_constant_type_c::lreal_type_name;
+                s4o.print("(");
+                return_type_symbol->accept(*this);
+                s4o.print(")");
+                IN_param_value->accept(*this);
+                return NULL;
+                
+            }
+            
+            ERROR;
+        }
+        
+    }/*function_lword_to_lreal*/
+    break;
+
+/****
+ *LWORD_TO_SINT
+ */
+    case function_lword_to_sint :
+    {
+        symbol_c *last_type_symbol = NULL;
+
+        {
+            identifier_c param_name("IN");
+            /* Get the value from a foo(<param_name> = <param_value>) style call */
+            symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
+            
+            /* Get the value from a foo(<param_value>) style call */
+            if (IN_param_value == NULL)
+              IN_param_value = function_call_param_iterator.next();
+            symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
+            last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
+            
+            if (typeid(*last_type_symbol) == typeid(lword_type_name_c))
+            {
+        
+                symbol_c * return_type_symbol = &search_constant_type_c::sint_type_name;
+                s4o.print("(");
+                return_type_symbol->accept(*this);
+                s4o.print(")");
+                IN_param_value->accept(*this);
+                return NULL;
+                
+            }
+            
+            ERROR;
+        }
+        
+    }/*function_lword_to_sint*/
+    break;
+
+/****
+ *LWORD_TO_INT
+ */
+    case function_lword_to_int :
+    {
+        symbol_c *last_type_symbol = NULL;
+
+        {
+            identifier_c param_name("IN");
+            /* Get the value from a foo(<param_name> = <param_value>) style call */
+            symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
+            
+            /* Get the value from a foo(<param_value>) style call */
+            if (IN_param_value == NULL)
+              IN_param_value = function_call_param_iterator.next();
+            symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
+            last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
+            
+            if (typeid(*last_type_symbol) == typeid(lword_type_name_c))
+            {
+        
+                symbol_c * return_type_symbol = &search_constant_type_c::int_type_name;
+                s4o.print("(");
+                return_type_symbol->accept(*this);
+                s4o.print(")");
+                IN_param_value->accept(*this);
+                return NULL;
+                
+            }
+            
+            ERROR;
+        }
+        
+    }/*function_lword_to_int*/
+    break;
+
+/****
+ *LWORD_TO_DINT
+ */
+    case function_lword_to_dint :
+    {
+        symbol_c *last_type_symbol = NULL;
+
+        {
+            identifier_c param_name("IN");
+            /* Get the value from a foo(<param_name> = <param_value>) style call */
+            symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
+            
+            /* Get the value from a foo(<param_value>) style call */
+            if (IN_param_value == NULL)
+              IN_param_value = function_call_param_iterator.next();
+            symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
+            last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
+            
+            if (typeid(*last_type_symbol) == typeid(lword_type_name_c))
+            {
+        
+                symbol_c * return_type_symbol = &search_constant_type_c::dint_type_name;
+                s4o.print("(");
+                return_type_symbol->accept(*this);
+                s4o.print(")");
+                IN_param_value->accept(*this);
+                return NULL;
+                
+            }
+            
+            ERROR;
+        }
+        
+    }/*function_lword_to_dint*/
+    break;
+
+/****
+ *LWORD_TO_LINT
+ */
+    case function_lword_to_lint :
+    {
+        symbol_c *last_type_symbol = NULL;
+
+        {
+            identifier_c param_name("IN");
+            /* Get the value from a foo(<param_name> = <param_value>) style call */
+            symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
+            
+            /* Get the value from a foo(<param_value>) style call */
+            if (IN_param_value == NULL)
+              IN_param_value = function_call_param_iterator.next();
+            symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
+            last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
+            
+            if (typeid(*last_type_symbol) == typeid(lword_type_name_c))
+            {
+        
+                symbol_c * return_type_symbol = &search_constant_type_c::lint_type_name;
+                s4o.print("(");
+                return_type_symbol->accept(*this);
+                s4o.print(")");
+                IN_param_value->accept(*this);
+                return NULL;
+                
+            }
+            
+            ERROR;
+        }
+        
+    }/*function_lword_to_lint*/
+    break;
+
+/****
+ *LWORD_TO_USINT
+ */
+    case function_lword_to_usint :
+    {
+        symbol_c *last_type_symbol = NULL;
+
+        {
+            identifier_c param_name("IN");
+            /* Get the value from a foo(<param_name> = <param_value>) style call */
+            symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
+            
+            /* Get the value from a foo(<param_value>) style call */
+            if (IN_param_value == NULL)
+              IN_param_value = function_call_param_iterator.next();
+            symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
+            last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
+            
+            if (typeid(*last_type_symbol) == typeid(lword_type_name_c))
+            {
+        
+                symbol_c * return_type_symbol = &search_constant_type_c::usint_type_name;
+                s4o.print("(");
+                return_type_symbol->accept(*this);
+                s4o.print(")");
+                IN_param_value->accept(*this);
+                return NULL;
+                
+            }
+            
+            ERROR;
+        }
+        
+    }/*function_lword_to_usint*/
+    break;
+
+/****
+ *LWORD_TO_UINT
+ */
+    case function_lword_to_uint :
+    {
+        symbol_c *last_type_symbol = NULL;
+
+        {
+            identifier_c param_name("IN");
+            /* Get the value from a foo(<param_name> = <param_value>) style call */
+            symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
+            
+            /* Get the value from a foo(<param_value>) style call */
+            if (IN_param_value == NULL)
+              IN_param_value = function_call_param_iterator.next();
+            symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
+            last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
+            
+            if (typeid(*last_type_symbol) == typeid(lword_type_name_c))
+            {
+        
+                symbol_c * return_type_symbol = &search_constant_type_c::uint_type_name;
+                s4o.print("(");
+                return_type_symbol->accept(*this);
+                s4o.print(")");
+                IN_param_value->accept(*this);
+                return NULL;
+                
+            }
+            
+            ERROR;
+        }
+        
+    }/*function_lword_to_uint*/
+    break;
+
+/****
+ *LWORD_TO_UDINT
+ */
+    case function_lword_to_udint :
+    {
+        symbol_c *last_type_symbol = NULL;
+
+        {
+            identifier_c param_name("IN");
+            /* Get the value from a foo(<param_name> = <param_value>) style call */
+            symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
+            
+            /* Get the value from a foo(<param_value>) style call */
+            if (IN_param_value == NULL)
+              IN_param_value = function_call_param_iterator.next();
+            symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
+            last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
+            
+            if (typeid(*last_type_symbol) == typeid(lword_type_name_c))
+            {
+        
+                symbol_c * return_type_symbol = &search_constant_type_c::udint_type_name;
+                s4o.print("(");
+                return_type_symbol->accept(*this);
+                s4o.print(")");
+                IN_param_value->accept(*this);
+                return NULL;
+                
+            }
+            
+            ERROR;
+        }
+        
+    }/*function_lword_to_udint*/
+    break;
+
+/****
+ *LWORD_TO_ULINT
+ */
+    case function_lword_to_ulint :
+    {
+        symbol_c *last_type_symbol = NULL;
+
+        {
+            identifier_c param_name("IN");
+            /* Get the value from a foo(<param_name> = <param_value>) style call */
+            symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
+            
+            /* Get the value from a foo(<param_value>) style call */
+            if (IN_param_value == NULL)
+              IN_param_value = function_call_param_iterator.next();
+            symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
+            last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
+            
+            if (typeid(*last_type_symbol) == typeid(lword_type_name_c))
+            {
+        
+                symbol_c * return_type_symbol = &search_constant_type_c::ulint_type_name;
+                s4o.print("(");
+                return_type_symbol->accept(*this);
+                s4o.print(")");
+                IN_param_value->accept(*this);
+                return NULL;
+                
+            }
+            
+            ERROR;
+        }
+        
+    }/*function_lword_to_ulint*/
+    break;
+
+/****
+ *LWORD_TO_TIME
+ */
+    case function_lword_to_time :
+    {
+        symbol_c *last_type_symbol = NULL;
+
+        {
+            identifier_c param_name("IN");
+            /* Get the value from a foo(<param_name> = <param_value>) style call */
+            symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
+            
+            /* Get the value from a foo(<param_value>) style call */
+            if (IN_param_value == NULL)
+              IN_param_value = function_call_param_iterator.next();
+            symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
+            last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
+            
+            if (typeid(*last_type_symbol) == typeid(lword_type_name_c))
+            {
+        
+                symbol_c * return_type_symbol = &search_constant_type_c::time_type_name;
+                s4o.print("(");
+                return_type_symbol->accept(*this);
+                s4o.print(")real_to_time(");
+                IN_param_value->accept(*this);
+                s4o.print(")");
+                return NULL;
+                
+            }
+            
+            ERROR;
+        }
+        
+    }/*function_lword_to_time*/
+    break;
+
+/****
+ *LWORD_TO_BOOL
+ */
+    case function_lword_to_bool :
+    {
+        symbol_c *last_type_symbol = NULL;
+
+        {
+            identifier_c param_name("IN");
+            /* Get the value from a foo(<param_name> = <param_value>) style call */
+            symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
+            
+            /* Get the value from a foo(<param_value>) style call */
+            if (IN_param_value == NULL)
+              IN_param_value = function_call_param_iterator.next();
+            symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
+            last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
+            
+            if (typeid(*last_type_symbol) == typeid(lword_type_name_c))
+            {
+        
+                symbol_c * return_type_symbol = &search_constant_type_c::bool_type_name;
+                s4o.print("(");
+                return_type_symbol->accept(*this);
+                s4o.print(")");
+                IN_param_value->accept(*this);
+                return NULL;
+                
+            }
+            
+            ERROR;
+        }
+        
+    }/*function_lword_to_bool*/
+    break;
+
+/****
+ *LWORD_TO_BYTE
+ */
+    case function_lword_to_byte :
+    {
+        symbol_c *last_type_symbol = NULL;
+
+        {
+            identifier_c param_name("IN");
+            /* Get the value from a foo(<param_name> = <param_value>) style call */
+            symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
+            
+            /* Get the value from a foo(<param_value>) style call */
+            if (IN_param_value == NULL)
+              IN_param_value = function_call_param_iterator.next();
+            symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
+            last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
+            
+            if (typeid(*last_type_symbol) == typeid(lword_type_name_c))
+            {
+        
+                symbol_c * return_type_symbol = &search_constant_type_c::byte_type_name;
+                s4o.print("(");
+                return_type_symbol->accept(*this);
+                s4o.print(")");
+                IN_param_value->accept(*this);
+                return NULL;
+                
+            }
+            
+            ERROR;
+        }
+        
+    }/*function_lword_to_byte*/
+    break;
+
+/****
+ *LWORD_TO_WORD
+ */
+    case function_lword_to_word :
+    {
+        symbol_c *last_type_symbol = NULL;
+
+        {
+            identifier_c param_name("IN");
+            /* Get the value from a foo(<param_name> = <param_value>) style call */
+            symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
+            
+            /* Get the value from a foo(<param_value>) style call */
+            if (IN_param_value == NULL)
+              IN_param_value = function_call_param_iterator.next();
+            symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
+            last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
+            
+            if (typeid(*last_type_symbol) == typeid(lword_type_name_c))
+            {
+        
+                symbol_c * return_type_symbol = &search_constant_type_c::word_type_name;
+                s4o.print("(");
+                return_type_symbol->accept(*this);
+                s4o.print(")");
+                IN_param_value->accept(*this);
+                return NULL;
+                
+            }
+            
+            ERROR;
+        }
+        
+    }/*function_lword_to_word*/
+    break;
+
+/****
+ *LWORD_TO_DWORD
+ */
+    case function_lword_to_dword :
+    {
+        symbol_c *last_type_symbol = NULL;
+
+        {
+            identifier_c param_name("IN");
+            /* Get the value from a foo(<param_name> = <param_value>) style call */
+            symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
+            
+            /* Get the value from a foo(<param_value>) style call */
+            if (IN_param_value == NULL)
+              IN_param_value = function_call_param_iterator.next();
+            symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
+            last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
+            
+            if (typeid(*last_type_symbol) == typeid(lword_type_name_c))
+            {
+        
+                symbol_c * return_type_symbol = &search_constant_type_c::dword_type_name;
+                s4o.print("(");
+                return_type_symbol->accept(*this);
+                s4o.print(")");
+                IN_param_value->accept(*this);
+                return NULL;
+                
+            }
+            
+            ERROR;
+        }
+        
+    }/*function_lword_to_dword*/
+    break;
+
+/****
+ *LWORD_TO_STRING
+ */
+    case function_lword_to_string :
+    {
+        symbol_c *last_type_symbol = NULL;
+
+        {
+            identifier_c param_name("IN");
+            /* Get the value from a foo(<param_name> = <param_value>) style call */
+            symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
+            
+            /* Get the value from a foo(<param_value>) style call */
+            if (IN_param_value == NULL)
+              IN_param_value = function_call_param_iterator.next();
+            symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
+            last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
+            
+            if (typeid(*last_type_symbol) == typeid(lword_type_name_c))
+            {
+        
+                symbol_c * return_type_symbol = &search_constant_type_c::string_type_name;
+                s4o.print("(");
+                return_type_symbol->accept(*this);
+                s4o.print(")int_to_string(");
+                IN_param_value->accept(*this);
+                s4o.print(", 16)");
+                return NULL;
+                
+            }
+            
+            ERROR;
+        }
+        
+    }/*function_lword_to_string*/
+    break;
+
+/****
+ *LWORD_TO_WSTRING
+ */
+    case function_lword_to_wstring :
+    {
+        symbol_c *last_type_symbol = NULL;
+
+        {
+            identifier_c param_name("IN");
+            /* Get the value from a foo(<param_name> = <param_value>) style call */
+            symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
+            
+            /* Get the value from a foo(<param_value>) style call */
+            if (IN_param_value == NULL)
+              IN_param_value = function_call_param_iterator.next();
+            symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
+            last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
+            
+            if (typeid(*last_type_symbol) == typeid(lword_type_name_c))
+            {
+        
+                symbol_c * return_type_symbol = &search_constant_type_c::wstring_type_name;
+                s4o.print("(");
+                return_type_symbol->accept(*this);
+                s4o.print(")int_to_string(");
+                IN_param_value->accept(*this);
+                s4o.print(", 16)");
+                return NULL;
+                
+            }
+            
+            ERROR;
+        }
+        
+    }/*function_lword_to_wstring*/
+    break;
+
+/****
+ *LWORD_TO_DATE
+ */
+    case function_lword_to_date :
+    {
+        symbol_c *last_type_symbol = NULL;
+
+        {
+            identifier_c param_name("IN");
+            /* Get the value from a foo(<param_name> = <param_value>) style call */
+            symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
+            
+            /* Get the value from a foo(<param_value>) style call */
+            if (IN_param_value == NULL)
+              IN_param_value = function_call_param_iterator.next();
+            symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
+            last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
+            
+            if (typeid(*last_type_symbol) == typeid(lword_type_name_c))
+            {
+        
+                symbol_c * return_type_symbol = &search_constant_type_c::date_type_name;
+                s4o.print("(");
+                return_type_symbol->accept(*this);
+                s4o.print(")real_to_time(");
+                IN_param_value->accept(*this);
+                s4o.print(")");
+                return NULL;
+                
+            }
+            
+            ERROR;
+        }
+        
+    }/*function_lword_to_date*/
+    break;
+
+/****
+ *LWORD_TO_TOD
+ */
+    case function_lword_to_tod :
+    {
+        symbol_c *last_type_symbol = NULL;
+
+        {
+            identifier_c param_name("IN");
+            /* Get the value from a foo(<param_name> = <param_value>) style call */
+            symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
+            
+            /* Get the value from a foo(<param_value>) style call */
+            if (IN_param_value == NULL)
+              IN_param_value = function_call_param_iterator.next();
+            symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
+            last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
+            
+            if (typeid(*last_type_symbol) == typeid(lword_type_name_c))
+            {
+        
+                symbol_c * return_type_symbol = &search_constant_type_c::tod_type_name;
+                s4o.print("(");
+                return_type_symbol->accept(*this);
+                s4o.print(")real_to_time(");
+                IN_param_value->accept(*this);
+                s4o.print(")");
+                return NULL;
+                
+            }
+            
+            ERROR;
+        }
+        
+    }/*function_lword_to_tod*/
+    break;
+
+/****
+ *LWORD_TO_DT
+ */
+    case function_lword_to_dt :
+    {
+        symbol_c *last_type_symbol = NULL;
+
+        {
+            identifier_c param_name("IN");
+            /* Get the value from a foo(<param_name> = <param_value>) style call */
+            symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
+            
+            /* Get the value from a foo(<param_value>) style call */
+            if (IN_param_value == NULL)
+              IN_param_value = function_call_param_iterator.next();
+            symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
+            last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
+            
+            if (typeid(*last_type_symbol) == typeid(lword_type_name_c))
+            {
+        
+                symbol_c * return_type_symbol = &search_constant_type_c::dt_type_name;
+                s4o.print("(");
+                return_type_symbol->accept(*this);
+                s4o.print(")real_to_time(");
+                IN_param_value->accept(*this);
+                s4o.print(")");
+                return NULL;
+                
+            }
+            
+            ERROR;
+        }
+        
+    }/*function_lword_to_dt*/
+    break;
+
+/****
+ *STRING_TO_REAL
+ */
+    case function_string_to_real :
+    {
+        symbol_c *last_type_symbol = NULL;
+
+        {
+            identifier_c param_name("IN");
+            /* Get the value from a foo(<param_name> = <param_value>) style call */
+            symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
+            
+            /* Get the value from a foo(<param_value>) style call */
+            if (IN_param_value == NULL)
+              IN_param_value = function_call_param_iterator.next();
+            symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
+            last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
+            
+            if (typeid(*last_type_symbol) == typeid(string_type_name_c))
+            {
+        
+                symbol_c * return_type_symbol = &search_constant_type_c::real_type_name;
+                s4o.print("(");
+                return_type_symbol->accept(*this);
+                s4o.print(")string_to_int(");
+                IN_param_value->accept(*this);
+                s4o.print(", 10)");
+                return NULL;
+                
+            }
+            
+            ERROR;
+        }
+        
+    }/*function_string_to_real*/
+    break;
+
+/****
+ *STRING_TO_LREAL
+ */
+    case function_string_to_lreal :
+    {
+        symbol_c *last_type_symbol = NULL;
+
+        {
+            identifier_c param_name("IN");
+            /* Get the value from a foo(<param_name> = <param_value>) style call */
+            symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
+            
+            /* Get the value from a foo(<param_value>) style call */
+            if (IN_param_value == NULL)
+              IN_param_value = function_call_param_iterator.next();
+            symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
+            last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
+            
+            if (typeid(*last_type_symbol) == typeid(string_type_name_c))
+            {
+        
+                symbol_c * return_type_symbol = &search_constant_type_c::lreal_type_name;
+                s4o.print("(");
+                return_type_symbol->accept(*this);
+                s4o.print(")string_to_int(");
+                IN_param_value->accept(*this);
+                s4o.print(", 10)");
+                return NULL;
+                
+            }
+            
+            ERROR;
+        }
+        
+    }/*function_string_to_lreal*/
+    break;
+
+/****
+ *STRING_TO_SINT
+ */
+    case function_string_to_sint :
+    {
+        symbol_c *last_type_symbol = NULL;
+
+        {
+            identifier_c param_name("IN");
+            /* Get the value from a foo(<param_name> = <param_value>) style call */
+            symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
+            
+            /* Get the value from a foo(<param_value>) style call */
+            if (IN_param_value == NULL)
+              IN_param_value = function_call_param_iterator.next();
+            symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
+            last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
+            
+            if (typeid(*last_type_symbol) == typeid(string_type_name_c))
+            {
+        
+                symbol_c * return_type_symbol = &search_constant_type_c::sint_type_name;
+                s4o.print("(");
+                return_type_symbol->accept(*this);
+                s4o.print(")string_to_int(");
+                IN_param_value->accept(*this);
+                s4o.print(", 10)");
+                return NULL;
+                
+            }
+            
+            ERROR;
+        }
+        
+    }/*function_string_to_sint*/
+    break;
+
+/****
+ *STRING_TO_INT
+ */
+    case function_string_to_int :
+    {
+        symbol_c *last_type_symbol = NULL;
+
+        {
+            identifier_c param_name("IN");
+            /* Get the value from a foo(<param_name> = <param_value>) style call */
+            symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
+            
+            /* Get the value from a foo(<param_value>) style call */
+            if (IN_param_value == NULL)
+              IN_param_value = function_call_param_iterator.next();
+            symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
+            last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
+            
+            if (typeid(*last_type_symbol) == typeid(string_type_name_c))
+            {
+        
+                symbol_c * return_type_symbol = &search_constant_type_c::int_type_name;
+                s4o.print("(");
+                return_type_symbol->accept(*this);
+                s4o.print(")string_to_int(");
+                IN_param_value->accept(*this);
+                s4o.print(", 10)");
+                return NULL;
+                
+            }
+            
+            ERROR;
+        }
+        
+    }/*function_string_to_int*/
+    break;
+
+/****
+ *STRING_TO_DINT
+ */
+    case function_string_to_dint :
+    {
+        symbol_c *last_type_symbol = NULL;
+
+        {
+            identifier_c param_name("IN");
+            /* Get the value from a foo(<param_name> = <param_value>) style call */
+            symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
+            
+            /* Get the value from a foo(<param_value>) style call */
+            if (IN_param_value == NULL)
+              IN_param_value = function_call_param_iterator.next();
+            symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
+            last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
+            
+            if (typeid(*last_type_symbol) == typeid(string_type_name_c))
+            {
+        
+                symbol_c * return_type_symbol = &search_constant_type_c::dint_type_name;
+                s4o.print("(");
+                return_type_symbol->accept(*this);
+                s4o.print(")string_to_int(");
+                IN_param_value->accept(*this);
+                s4o.print(", 10)");
+                return NULL;
+                
+            }
+            
+            ERROR;
+        }
+        
+    }/*function_string_to_dint*/
+    break;
+
+/****
+ *STRING_TO_LINT
+ */
+    case function_string_to_lint :
+    {
+        symbol_c *last_type_symbol = NULL;
+
+        {
+            identifier_c param_name("IN");
+            /* Get the value from a foo(<param_name> = <param_value>) style call */
+            symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
+            
+            /* Get the value from a foo(<param_value>) style call */
+            if (IN_param_value == NULL)
+              IN_param_value = function_call_param_iterator.next();
+            symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
+            last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
+            
+            if (typeid(*last_type_symbol) == typeid(string_type_name_c))
+            {
+        
+                symbol_c * return_type_symbol = &search_constant_type_c::lint_type_name;
+                s4o.print("(");
+                return_type_symbol->accept(*this);
+                s4o.print(")string_to_int(");
+                IN_param_value->accept(*this);
+                s4o.print(", 10)");
+                return NULL;
+                
+            }
+            
+            ERROR;
+        }
+        
+    }/*function_string_to_lint*/
+    break;
+
+/****
+ *STRING_TO_USINT
+ */
+    case function_string_to_usint :
+    {
+        symbol_c *last_type_symbol = NULL;
+
+        {
+            identifier_c param_name("IN");
+            /* Get the value from a foo(<param_name> = <param_value>) style call */
+            symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
+            
+            /* Get the value from a foo(<param_value>) style call */
+            if (IN_param_value == NULL)
+              IN_param_value = function_call_param_iterator.next();
+            symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
+            last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
+            
+            if (typeid(*last_type_symbol) == typeid(string_type_name_c))
+            {
+        
+                symbol_c * return_type_symbol = &search_constant_type_c::usint_type_name;
+                s4o.print("(");
+                return_type_symbol->accept(*this);
+                s4o.print(")string_to_int(");
+                IN_param_value->accept(*this);
+                s4o.print(", 10)");
+                return NULL;
+                
+            }
+            
+            ERROR;
+        }
+        
+    }/*function_string_to_usint*/
+    break;
+
+/****
+ *STRING_TO_UINT
+ */
+    case function_string_to_uint :
+    {
+        symbol_c *last_type_symbol = NULL;
+
+        {
+            identifier_c param_name("IN");
+            /* Get the value from a foo(<param_name> = <param_value>) style call */
+            symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
+            
+            /* Get the value from a foo(<param_value>) style call */
+            if (IN_param_value == NULL)
+              IN_param_value = function_call_param_iterator.next();
+            symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
+            last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
+            
+            if (typeid(*last_type_symbol) == typeid(string_type_name_c))
+            {
+        
+                symbol_c * return_type_symbol = &search_constant_type_c::uint_type_name;
+                s4o.print("(");
+                return_type_symbol->accept(*this);
+                s4o.print(")string_to_int(");
+                IN_param_value->accept(*this);
+                s4o.print(", 10)");
+                return NULL;
+                
+            }
+            
+            ERROR;
+        }
+        
+    }/*function_string_to_uint*/
+    break;
+
+/****
+ *STRING_TO_UDINT
+ */
+    case function_string_to_udint :
+    {
+        symbol_c *last_type_symbol = NULL;
+
+        {
+            identifier_c param_name("IN");
+            /* Get the value from a foo(<param_name> = <param_value>) style call */
+            symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
+            
+            /* Get the value from a foo(<param_value>) style call */
+            if (IN_param_value == NULL)
+              IN_param_value = function_call_param_iterator.next();
+            symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
+            last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
+            
+            if (typeid(*last_type_symbol) == typeid(string_type_name_c))
+            {
+        
+                symbol_c * return_type_symbol = &search_constant_type_c::udint_type_name;
+                s4o.print("(");
+                return_type_symbol->accept(*this);
+                s4o.print(")string_to_int(");
+                IN_param_value->accept(*this);
+                s4o.print(", 10)");
+                return NULL;
+                
+            }
+            
+            ERROR;
+        }
+        
+    }/*function_string_to_udint*/
+    break;
+
+/****
+ *STRING_TO_ULINT
+ */
+    case function_string_to_ulint :
+    {
+        symbol_c *last_type_symbol = NULL;
+
+        {
+            identifier_c param_name("IN");
+            /* Get the value from a foo(<param_name> = <param_value>) style call */
+            symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
+            
+            /* Get the value from a foo(<param_value>) style call */
+            if (IN_param_value == NULL)
+              IN_param_value = function_call_param_iterator.next();
+            symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
+            last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
+            
+            if (typeid(*last_type_symbol) == typeid(string_type_name_c))
+            {
+        
+                symbol_c * return_type_symbol = &search_constant_type_c::ulint_type_name;
+                s4o.print("(");
+                return_type_symbol->accept(*this);
+                s4o.print(")string_to_int(");
+                IN_param_value->accept(*this);
+                s4o.print(", 10)");
+                return NULL;
+                
+            }
+            
+            ERROR;
+        }
+        
+    }/*function_string_to_ulint*/
+    break;
+
+/****
+ *STRING_TO_TIME
+ */
+    case function_string_to_time :
+    {
+        symbol_c *last_type_symbol = NULL;
+
+        {
+            identifier_c param_name("IN");
+            /* Get the value from a foo(<param_name> = <param_value>) style call */
+            symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
+            
+            /* Get the value from a foo(<param_value>) style call */
+            if (IN_param_value == NULL)
+              IN_param_value = function_call_param_iterator.next();
+            symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
+            last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
+            
+            if (typeid(*last_type_symbol) == typeid(string_type_name_c))
+            {
+        
+                symbol_c * return_type_symbol = &search_constant_type_c::time_type_name;
+                s4o.print("(");
+                return_type_symbol->accept(*this);
+                s4o.print(")string_to_time(");
+                IN_param_value->accept(*this);
+                s4o.print(")");
+                return NULL;
+                
+            }
+            
+            ERROR;
+        }
+        
+    }/*function_string_to_time*/
+    break;
+
+/****
+ *STRING_TO_BOOL
+ */
+    case function_string_to_bool :
+    {
+        symbol_c *last_type_symbol = NULL;
+
+        {
+            identifier_c param_name("IN");
+            /* Get the value from a foo(<param_name> = <param_value>) style call */
+            symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
+            
+            /* Get the value from a foo(<param_value>) style call */
+            if (IN_param_value == NULL)
+              IN_param_value = function_call_param_iterator.next();
+            symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
+            last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
+            
+            if (typeid(*last_type_symbol) == typeid(string_type_name_c))
+            {
+        
+                symbol_c * return_type_symbol = &search_constant_type_c::bool_type_name;
+                s4o.print("(");
+                return_type_symbol->accept(*this);
+                s4o.print(")string_to_int(");
+                IN_param_value->accept(*this);
+                s4o.print(", 16)");
+                return NULL;
+                
+            }
+            
+            ERROR;
+        }
+        
+    }/*function_string_to_bool*/
+    break;
+
+/****
+ *STRING_TO_BYTE
+ */
+    case function_string_to_byte :
+    {
+        symbol_c *last_type_symbol = NULL;
+
+        {
+            identifier_c param_name("IN");
+            /* Get the value from a foo(<param_name> = <param_value>) style call */
+            symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
+            
+            /* Get the value from a foo(<param_value>) style call */
+            if (IN_param_value == NULL)
+              IN_param_value = function_call_param_iterator.next();
+            symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
+            last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
+            
+            if (typeid(*last_type_symbol) == typeid(string_type_name_c))
+            {
+        
+                symbol_c * return_type_symbol = &search_constant_type_c::byte_type_name;
+                s4o.print("(");
+                return_type_symbol->accept(*this);
+                s4o.print(")string_to_int(");
+                IN_param_value->accept(*this);
+                s4o.print(", 16)");
+                return NULL;
+                
+            }
+            
+            ERROR;
+        }
+        
+    }/*function_string_to_byte*/
+    break;
+
+/****
+ *STRING_TO_WORD
+ */
+    case function_string_to_word :
+    {
+        symbol_c *last_type_symbol = NULL;
+
+        {
+            identifier_c param_name("IN");
+            /* Get the value from a foo(<param_name> = <param_value>) style call */
+            symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
+            
+            /* Get the value from a foo(<param_value>) style call */
+            if (IN_param_value == NULL)
+              IN_param_value = function_call_param_iterator.next();
+            symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
+            last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
+            
+            if (typeid(*last_type_symbol) == typeid(string_type_name_c))
+            {
+        
+                symbol_c * return_type_symbol = &search_constant_type_c::word_type_name;
+                s4o.print("(");
+                return_type_symbol->accept(*this);
+                s4o.print(")string_to_int(");
+                IN_param_value->accept(*this);
+                s4o.print(", 16)");
+                return NULL;
+                
+            }
+            
+            ERROR;
+        }
+        
+    }/*function_string_to_word*/
+    break;
+
+/****
+ *STRING_TO_DWORD
+ */
+    case function_string_to_dword :
+    {
+        symbol_c *last_type_symbol = NULL;
+
+        {
+            identifier_c param_name("IN");
+            /* Get the value from a foo(<param_name> = <param_value>) style call */
+            symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
+            
+            /* Get the value from a foo(<param_value>) style call */
+            if (IN_param_value == NULL)
+              IN_param_value = function_call_param_iterator.next();
+            symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
+            last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
+            
+            if (typeid(*last_type_symbol) == typeid(string_type_name_c))
+            {
+        
+                symbol_c * return_type_symbol = &search_constant_type_c::dword_type_name;
+                s4o.print("(");
+                return_type_symbol->accept(*this);
+                s4o.print(")string_to_int(");
+                IN_param_value->accept(*this);
+                s4o.print(", 16)");
+                return NULL;
+                
+            }
+            
+            ERROR;
+        }
+        
+    }/*function_string_to_dword*/
+    break;
+
+/****
+ *STRING_TO_LWORD
+ */
+    case function_string_to_lword :
+    {
+        symbol_c *last_type_symbol = NULL;
+
+        {
+            identifier_c param_name("IN");
+            /* Get the value from a foo(<param_name> = <param_value>) style call */
+            symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
+            
+            /* Get the value from a foo(<param_value>) style call */
+            if (IN_param_value == NULL)
+              IN_param_value = function_call_param_iterator.next();
+            symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
+            last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
+            
+            if (typeid(*last_type_symbol) == typeid(string_type_name_c))
+            {
+        
+                symbol_c * return_type_symbol = &search_constant_type_c::lword_type_name;
+                s4o.print("(");
+                return_type_symbol->accept(*this);
+                s4o.print(")string_to_int(");
+                IN_param_value->accept(*this);
+                s4o.print(", 16)");
+                return NULL;
+                
+            }
+            
+            ERROR;
+        }
+        
+    }/*function_string_to_lword*/
+    break;
+
+/****
+ *STRING_TO_DATE
+ */
+    case function_string_to_date :
+    {
+        symbol_c *last_type_symbol = NULL;
+
+        {
+            identifier_c param_name("IN");
+            /* Get the value from a foo(<param_name> = <param_value>) style call */
+            symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
+            
+            /* Get the value from a foo(<param_value>) style call */
+            if (IN_param_value == NULL)
+              IN_param_value = function_call_param_iterator.next();
+            symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
+            last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
+            
+            if (typeid(*last_type_symbol) == typeid(string_type_name_c))
+            {
+        
+                symbol_c * return_type_symbol = &search_constant_type_c::date_type_name;
+                s4o.print("(");
+                return_type_symbol->accept(*this);
+                s4o.print(")string_to_time(");
+                IN_param_value->accept(*this);
+                s4o.print(")");
+                return NULL;
+                
+            }
+            
+            ERROR;
+        }
+        
+    }/*function_string_to_date*/
+    break;
+
+/****
+ *STRING_TO_TOD
+ */
+    case function_string_to_tod :
+    {
+        symbol_c *last_type_symbol = NULL;
+
+        {
+            identifier_c param_name("IN");
+            /* Get the value from a foo(<param_name> = <param_value>) style call */
+            symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
+            
+            /* Get the value from a foo(<param_value>) style call */
+            if (IN_param_value == NULL)
+              IN_param_value = function_call_param_iterator.next();
+            symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
+            last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
+            
+            if (typeid(*last_type_symbol) == typeid(string_type_name_c))
+            {
+        
+                symbol_c * return_type_symbol = &search_constant_type_c::tod_type_name;
+                s4o.print("(");
+                return_type_symbol->accept(*this);
+                s4o.print(")string_to_time(");
+                IN_param_value->accept(*this);
+                s4o.print(")");
+                return NULL;
+                
+            }
+            
+            ERROR;
+        }
+        
+    }/*function_string_to_tod*/
+    break;
+
+/****
+ *STRING_TO_DT
+ */
+    case function_string_to_dt :
+    {
+        symbol_c *last_type_symbol = NULL;
+
+        {
+            identifier_c param_name("IN");
+            /* Get the value from a foo(<param_name> = <param_value>) style call */
+            symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
+            
+            /* Get the value from a foo(<param_value>) style call */
+            if (IN_param_value == NULL)
+              IN_param_value = function_call_param_iterator.next();
+            symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
+            last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
+            
+            if (typeid(*last_type_symbol) == typeid(string_type_name_c))
+            {
+        
+                symbol_c * return_type_symbol = &search_constant_type_c::dt_type_name;
+                s4o.print("(");
+                return_type_symbol->accept(*this);
+                s4o.print(")string_to_time(");
+                IN_param_value->accept(*this);
+                s4o.print(")");
+                return NULL;
+                
+            }
+            
+            ERROR;
+        }
+        
+    }/*function_string_to_dt*/
+    break;
+
+/****
+ *WSTRING_TO_REAL
+ */
+    case function_wstring_to_real :
+    {
+        symbol_c *last_type_symbol = NULL;
+
+        {
+            identifier_c param_name("IN");
+            /* Get the value from a foo(<param_name> = <param_value>) style call */
+            symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
+            
+            /* Get the value from a foo(<param_value>) style call */
+            if (IN_param_value == NULL)
+              IN_param_value = function_call_param_iterator.next();
+            symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
+            last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
+            
+            if (typeid(*last_type_symbol) == typeid(wstring_type_name_c))
+            {
+        
+                symbol_c * return_type_symbol = &search_constant_type_c::real_type_name;
+                s4o.print("(");
+                return_type_symbol->accept(*this);
+                s4o.print(")string_to_int(");
+                IN_param_value->accept(*this);
+                s4o.print(", 10)");
+                return NULL;
+                
+            }
+            
+            ERROR;
+        }
+        
+    }/*function_wstring_to_real*/
+    break;
+
+/****
+ *WSTRING_TO_LREAL
+ */
+    case function_wstring_to_lreal :
+    {
+        symbol_c *last_type_symbol = NULL;
+
+        {
+            identifier_c param_name("IN");
+            /* Get the value from a foo(<param_name> = <param_value>) style call */
+            symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
+            
+            /* Get the value from a foo(<param_value>) style call */
+            if (IN_param_value == NULL)
+              IN_param_value = function_call_param_iterator.next();
+            symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
+            last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
+            
+            if (typeid(*last_type_symbol) == typeid(wstring_type_name_c))
+            {
+        
+                symbol_c * return_type_symbol = &search_constant_type_c::lreal_type_name;
+                s4o.print("(");
+                return_type_symbol->accept(*this);
+                s4o.print(")string_to_int(");
+                IN_param_value->accept(*this);
+                s4o.print(", 10)");
+                return NULL;
+                
+            }
+            
+            ERROR;
+        }
+        
+    }/*function_wstring_to_lreal*/
+    break;
+
+/****
+ *WSTRING_TO_SINT
+ */
+    case function_wstring_to_sint :
+    {
+        symbol_c *last_type_symbol = NULL;
+
+        {
+            identifier_c param_name("IN");
+            /* Get the value from a foo(<param_name> = <param_value>) style call */
+            symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
+            
+            /* Get the value from a foo(<param_value>) style call */
+            if (IN_param_value == NULL)
+              IN_param_value = function_call_param_iterator.next();
+            symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
+            last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
+            
+            if (typeid(*last_type_symbol) == typeid(wstring_type_name_c))
+            {
+        
+                symbol_c * return_type_symbol = &search_constant_type_c::sint_type_name;
+                s4o.print("(");
+                return_type_symbol->accept(*this);
+                s4o.print(")string_to_int(");
+                IN_param_value->accept(*this);
+                s4o.print(", 10)");
+                return NULL;
+                
+            }
+            
+            ERROR;
+        }
+        
+    }/*function_wstring_to_sint*/
+    break;
+
+/****
+ *WSTRING_TO_INT
+ */
+    case function_wstring_to_int :
+    {
+        symbol_c *last_type_symbol = NULL;
+
+        {
+            identifier_c param_name("IN");
+            /* Get the value from a foo(<param_name> = <param_value>) style call */
+            symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
+            
+            /* Get the value from a foo(<param_value>) style call */
+            if (IN_param_value == NULL)
+              IN_param_value = function_call_param_iterator.next();
+            symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
+            last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
+            
+            if (typeid(*last_type_symbol) == typeid(wstring_type_name_c))
+            {
+        
+                symbol_c * return_type_symbol = &search_constant_type_c::int_type_name;
+                s4o.print("(");
+                return_type_symbol->accept(*this);
+                s4o.print(")string_to_int(");
+                IN_param_value->accept(*this);
+                s4o.print(", 10)");
+                return NULL;
+                
+            }
+            
+            ERROR;
+        }
+        
+    }/*function_wstring_to_int*/
+    break;
+
+/****
+ *WSTRING_TO_DINT
+ */
+    case function_wstring_to_dint :
+    {
+        symbol_c *last_type_symbol = NULL;
+
+        {
+            identifier_c param_name("IN");
+            /* Get the value from a foo(<param_name> = <param_value>) style call */
+            symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
+            
+            /* Get the value from a foo(<param_value>) style call */
+            if (IN_param_value == NULL)
+              IN_param_value = function_call_param_iterator.next();
+            symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
+            last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
+            
+            if (typeid(*last_type_symbol) == typeid(wstring_type_name_c))
+            {
+        
+                symbol_c * return_type_symbol = &search_constant_type_c::dint_type_name;
+                s4o.print("(");
+                return_type_symbol->accept(*this);
+                s4o.print(")string_to_int(");
+                IN_param_value->accept(*this);
+                s4o.print(", 10)");
+                return NULL;
+                
+            }
+            
+            ERROR;
+        }
+        
+    }/*function_wstring_to_dint*/
+    break;
+
+/****
+ *WSTRING_TO_LINT
+ */
+    case function_wstring_to_lint :
+    {
+        symbol_c *last_type_symbol = NULL;
+
+        {
+            identifier_c param_name("IN");
+            /* Get the value from a foo(<param_name> = <param_value>) style call */
+            symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
+            
+            /* Get the value from a foo(<param_value>) style call */
+            if (IN_param_value == NULL)
+              IN_param_value = function_call_param_iterator.next();
+            symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
+            last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
+            
+            if (typeid(*last_type_symbol) == typeid(wstring_type_name_c))
+            {
+        
+                symbol_c * return_type_symbol = &search_constant_type_c::lint_type_name;
+                s4o.print("(");
+                return_type_symbol->accept(*this);
+                s4o.print(")string_to_int(");
+                IN_param_value->accept(*this);
+                s4o.print(", 10)");
+                return NULL;
+                
+            }
+            
+            ERROR;
+        }
+        
+    }/*function_wstring_to_lint*/
+    break;
+
+/****
+ *WSTRING_TO_USINT
+ */
+    case function_wstring_to_usint :
+    {
+        symbol_c *last_type_symbol = NULL;
+
+        {
+            identifier_c param_name("IN");
+            /* Get the value from a foo(<param_name> = <param_value>) style call */
+            symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
+            
+            /* Get the value from a foo(<param_value>) style call */
+            if (IN_param_value == NULL)
+              IN_param_value = function_call_param_iterator.next();
+            symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
+            last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
+            
+            if (typeid(*last_type_symbol) == typeid(wstring_type_name_c))
+            {
+        
+                symbol_c * return_type_symbol = &search_constant_type_c::usint_type_name;
+                s4o.print("(");
+                return_type_symbol->accept(*this);
+                s4o.print(")string_to_int(");
+                IN_param_value->accept(*this);
+                s4o.print(", 10)");
+                return NULL;
+                
+            }
+            
+            ERROR;
+        }
+        
+    }/*function_wstring_to_usint*/
+    break;
+
+/****
+ *WSTRING_TO_UINT
+ */
+    case function_wstring_to_uint :
+    {
+        symbol_c *last_type_symbol = NULL;
+
+        {
+            identifier_c param_name("IN");
+            /* Get the value from a foo(<param_name> = <param_value>) style call */
+            symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
+            
+            /* Get the value from a foo(<param_value>) style call */
+            if (IN_param_value == NULL)
+              IN_param_value = function_call_param_iterator.next();
+            symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
+            last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
+            
+            if (typeid(*last_type_symbol) == typeid(wstring_type_name_c))
+            {
+        
+                symbol_c * return_type_symbol = &search_constant_type_c::uint_type_name;
+                s4o.print("(");
+                return_type_symbol->accept(*this);
+                s4o.print(")string_to_int(");
+                IN_param_value->accept(*this);
+                s4o.print(", 10)");
+                return NULL;
+                
+            }
+            
+            ERROR;
+        }
+        
+    }/*function_wstring_to_uint*/
+    break;
+
+/****
+ *WSTRING_TO_UDINT
+ */
+    case function_wstring_to_udint :
+    {
+        symbol_c *last_type_symbol = NULL;
+
+        {
+            identifier_c param_name("IN");
+            /* Get the value from a foo(<param_name> = <param_value>) style call */
+            symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
+            
+            /* Get the value from a foo(<param_value>) style call */
+            if (IN_param_value == NULL)
+              IN_param_value = function_call_param_iterator.next();
+            symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
+            last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
+            
+            if (typeid(*last_type_symbol) == typeid(wstring_type_name_c))
+            {
+        
+                symbol_c * return_type_symbol = &search_constant_type_c::udint_type_name;
+                s4o.print("(");
+                return_type_symbol->accept(*this);
+                s4o.print(")string_to_int(");
+                IN_param_value->accept(*this);
+                s4o.print(", 10)");
+                return NULL;
+                
+            }
+            
+            ERROR;
+        }
+        
+    }/*function_wstring_to_udint*/
+    break;
+
+/****
+ *WSTRING_TO_ULINT
+ */
+    case function_wstring_to_ulint :
+    {
+        symbol_c *last_type_symbol = NULL;
+
+        {
+            identifier_c param_name("IN");
+            /* Get the value from a foo(<param_name> = <param_value>) style call */
+            symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
+            
+            /* Get the value from a foo(<param_value>) style call */
+            if (IN_param_value == NULL)
+              IN_param_value = function_call_param_iterator.next();
+            symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
+            last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
+            
+            if (typeid(*last_type_symbol) == typeid(wstring_type_name_c))
+            {
+        
+                symbol_c * return_type_symbol = &search_constant_type_c::ulint_type_name;
+                s4o.print("(");
+                return_type_symbol->accept(*this);
+                s4o.print(")string_to_int(");
+                IN_param_value->accept(*this);
+                s4o.print(", 10)");
+                return NULL;
+                
+            }
+            
+            ERROR;
+        }
+        
+    }/*function_wstring_to_ulint*/
+    break;
+
+/****
+ *WSTRING_TO_TIME
+ */
+    case function_wstring_to_time :
+    {
+        symbol_c *last_type_symbol = NULL;
+
+        {
+            identifier_c param_name("IN");
+            /* Get the value from a foo(<param_name> = <param_value>) style call */
+            symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
+            
+            /* Get the value from a foo(<param_value>) style call */
+            if (IN_param_value == NULL)
+              IN_param_value = function_call_param_iterator.next();
+            symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
+            last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
+            
+            if (typeid(*last_type_symbol) == typeid(wstring_type_name_c))
+            {
+        
+                symbol_c * return_type_symbol = &search_constant_type_c::time_type_name;
+                s4o.print("(");
+                return_type_symbol->accept(*this);
+                s4o.print(")string_to_time(");
+                IN_param_value->accept(*this);
+                s4o.print(")");
+                return NULL;
+                
+            }
+            
+            ERROR;
+        }
+        
+    }/*function_wstring_to_time*/
+    break;
+
+/****
+ *WSTRING_TO_BOOL
+ */
+    case function_wstring_to_bool :
+    {
+        symbol_c *last_type_symbol = NULL;
+
+        {
+            identifier_c param_name("IN");
+            /* Get the value from a foo(<param_name> = <param_value>) style call */
+            symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
+            
+            /* Get the value from a foo(<param_value>) style call */
+            if (IN_param_value == NULL)
+              IN_param_value = function_call_param_iterator.next();
+            symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
+            last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
+            
+            if (typeid(*last_type_symbol) == typeid(wstring_type_name_c))
+            {
+        
+                symbol_c * return_type_symbol = &search_constant_type_c::bool_type_name;
+                s4o.print("(");
+                return_type_symbol->accept(*this);
+                s4o.print(")string_to_int(");
+                IN_param_value->accept(*this);
+                s4o.print(", 16)");
+                return NULL;
+                
+            }
+            
+            ERROR;
+        }
+        
+    }/*function_wstring_to_bool*/
+    break;
+
+/****
+ *WSTRING_TO_BYTE
+ */
+    case function_wstring_to_byte :
+    {
+        symbol_c *last_type_symbol = NULL;
+
+        {
+            identifier_c param_name("IN");
+            /* Get the value from a foo(<param_name> = <param_value>) style call */
+            symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
+            
+            /* Get the value from a foo(<param_value>) style call */
+            if (IN_param_value == NULL)
+              IN_param_value = function_call_param_iterator.next();
+            symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
+            last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
+            
+            if (typeid(*last_type_symbol) == typeid(wstring_type_name_c))
+            {
+        
+                symbol_c * return_type_symbol = &search_constant_type_c::byte_type_name;
+                s4o.print("(");
+                return_type_symbol->accept(*this);
+                s4o.print(")string_to_int(");
+                IN_param_value->accept(*this);
+                s4o.print(", 16)");
+                return NULL;
+                
+            }
+            
+            ERROR;
+        }
+        
+    }/*function_wstring_to_byte*/
+    break;
+
+/****
+ *WSTRING_TO_WORD
+ */
+    case function_wstring_to_word :
+    {
+        symbol_c *last_type_symbol = NULL;
+
+        {
+            identifier_c param_name("IN");
+            /* Get the value from a foo(<param_name> = <param_value>) style call */
+            symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
+            
+            /* Get the value from a foo(<param_value>) style call */
+            if (IN_param_value == NULL)
+              IN_param_value = function_call_param_iterator.next();
+            symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
+            last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
+            
+            if (typeid(*last_type_symbol) == typeid(wstring_type_name_c))
+            {
+        
+                symbol_c * return_type_symbol = &search_constant_type_c::word_type_name;
+                s4o.print("(");
+                return_type_symbol->accept(*this);
+                s4o.print(")string_to_int(");
+                IN_param_value->accept(*this);
+                s4o.print(", 16)");
+                return NULL;
+                
+            }
+            
+            ERROR;
+        }
+        
+    }/*function_wstring_to_word*/
+    break;
+
+/****
+ *WSTRING_TO_DWORD
+ */
+    case function_wstring_to_dword :
+    {
+        symbol_c *last_type_symbol = NULL;
+
+        {
+            identifier_c param_name("IN");
+            /* Get the value from a foo(<param_name> = <param_value>) style call */
+            symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
+            
+            /* Get the value from a foo(<param_value>) style call */
+            if (IN_param_value == NULL)
+              IN_param_value = function_call_param_iterator.next();
+            symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
+            last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
+            
+            if (typeid(*last_type_symbol) == typeid(wstring_type_name_c))
+            {
+        
+                symbol_c * return_type_symbol = &search_constant_type_c::dword_type_name;
+                s4o.print("(");
+                return_type_symbol->accept(*this);
+                s4o.print(")string_to_int(");
+                IN_param_value->accept(*this);
+                s4o.print(", 16)");
+                return NULL;
+                
+            }
+            
+            ERROR;
+        }
+        
+    }/*function_wstring_to_dword*/
+    break;
+
+/****
+ *WSTRING_TO_LWORD
+ */
+    case function_wstring_to_lword :
+    {
+        symbol_c *last_type_symbol = NULL;
+
+        {
+            identifier_c param_name("IN");
+            /* Get the value from a foo(<param_name> = <param_value>) style call */
+            symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
+            
+            /* Get the value from a foo(<param_value>) style call */
+            if (IN_param_value == NULL)
+              IN_param_value = function_call_param_iterator.next();
+            symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
+            last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
+            
+            if (typeid(*last_type_symbol) == typeid(wstring_type_name_c))
+            {
+        
+                symbol_c * return_type_symbol = &search_constant_type_c::lword_type_name;
+                s4o.print("(");
+                return_type_symbol->accept(*this);
+                s4o.print(")string_to_int(");
+                IN_param_value->accept(*this);
+                s4o.print(", 16)");
+                return NULL;
+                
+            }
+            
+            ERROR;
+        }
+        
+    }/*function_wstring_to_lword*/
+    break;
+
+/****
+ *WSTRING_TO_DATE
+ */
+    case function_wstring_to_date :
+    {
+        symbol_c *last_type_symbol = NULL;
+
+        {
+            identifier_c param_name("IN");
+            /* Get the value from a foo(<param_name> = <param_value>) style call */
+            symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
+            
+            /* Get the value from a foo(<param_value>) style call */
+            if (IN_param_value == NULL)
+              IN_param_value = function_call_param_iterator.next();
+            symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
+            last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
+            
+            if (typeid(*last_type_symbol) == typeid(wstring_type_name_c))
+            {
+        
+                symbol_c * return_type_symbol = &search_constant_type_c::date_type_name;
+                s4o.print("(");
+                return_type_symbol->accept(*this);
+                s4o.print(")string_to_time(");
+                IN_param_value->accept(*this);
+                s4o.print(")");
+                return NULL;
+                
+            }
+            
+            ERROR;
+        }
+        
+    }/*function_wstring_to_date*/
+    break;
+
+/****
+ *WSTRING_TO_TOD
+ */
+    case function_wstring_to_tod :
+    {
+        symbol_c *last_type_symbol = NULL;
+
+        {
+            identifier_c param_name("IN");
+            /* Get the value from a foo(<param_name> = <param_value>) style call */
+            symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
+            
+            /* Get the value from a foo(<param_value>) style call */
+            if (IN_param_value == NULL)
+              IN_param_value = function_call_param_iterator.next();
+            symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
+            last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
+            
+            if (typeid(*last_type_symbol) == typeid(wstring_type_name_c))
+            {
+        
+                symbol_c * return_type_symbol = &search_constant_type_c::tod_type_name;
+                s4o.print("(");
+                return_type_symbol->accept(*this);
+                s4o.print(")string_to_time(");
+                IN_param_value->accept(*this);
+                s4o.print(")");
+                return NULL;
+                
+            }
+            
+            ERROR;
+        }
+        
+    }/*function_wstring_to_tod*/
+    break;
+
+/****
+ *WSTRING_TO_DT
+ */
+    case function_wstring_to_dt :
+    {
+        symbol_c *last_type_symbol = NULL;
+
+        {
+            identifier_c param_name("IN");
+            /* Get the value from a foo(<param_name> = <param_value>) style call */
+            symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
+            
+            /* Get the value from a foo(<param_value>) style call */
+            if (IN_param_value == NULL)
+              IN_param_value = function_call_param_iterator.next();
+            symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
+            last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
+            
+            if (typeid(*last_type_symbol) == typeid(wstring_type_name_c))
+            {
+        
+                symbol_c * return_type_symbol = &search_constant_type_c::dt_type_name;
+                s4o.print("(");
+                return_type_symbol->accept(*this);
+                s4o.print(")string_to_time(");
+                IN_param_value->accept(*this);
+                s4o.print(")");
+                return NULL;
+                
+            }
+            
+            ERROR;
+        }
+        
+    }/*function_wstring_to_dt*/
+    break;
 
 /****
  *DATE_TO_REAL
  */
-	case function_date_to_real :
-	{
-		symbol_c *last_type_symbol = NULL;
-
-		{
-			identifier_c param_name("IN");
-			/* Get the value from a foo(<param_name> = <param_value>) style call */
-			symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
-			
-			/* Get the value from a foo(<param_value>) style call */
-			if (IN_param_value == NULL)
-			  IN_param_value = function_call_param_iterator.next();
-			symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
-			last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
-			
-			if (typeid(*last_type_symbol) == typeid(date_type_name_c))
-			{
-		
-				symbol_c * return_type_symbol = &search_constant_type_c::real_type_name;
-				s4o.print("(");
-				return_type_symbol->accept(*this);
-				s4o.print(")real_to_time(");
-				IN_param_value->accept(*this);
-				s4o.print(")");
-				return NULL;
-				
-			}
-			
-			ERROR;
-		}
-		
-	}/*function_date_to_real*/
-	break;
+    case function_date_to_real :
+    {
+        symbol_c *last_type_symbol = NULL;
+
+        {
+            identifier_c param_name("IN");
+            /* Get the value from a foo(<param_name> = <param_value>) style call */
+            symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
+            
+            /* Get the value from a foo(<param_value>) style call */
+            if (IN_param_value == NULL)
+              IN_param_value = function_call_param_iterator.next();
+            symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
+            last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
+            
+            if (typeid(*last_type_symbol) == typeid(date_type_name_c))
+            {
+        
+                symbol_c * return_type_symbol = &search_constant_type_c::real_type_name;
+                s4o.print("(");
+                return_type_symbol->accept(*this);
+                s4o.print(")time_to_real(");
+                IN_param_value->accept(*this);
+                s4o.print(")");
+                return NULL;
+                
+            }
+            
+            ERROR;
+        }
+        
+    }/*function_date_to_real*/
+    break;
+
+/****
+ *DATE_TO_LREAL
+ */
+    case function_date_to_lreal :
+    {
+        symbol_c *last_type_symbol = NULL;
+
+        {
+            identifier_c param_name("IN");
+            /* Get the value from a foo(<param_name> = <param_value>) style call */
+            symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
+            
+            /* Get the value from a foo(<param_value>) style call */
+            if (IN_param_value == NULL)
+              IN_param_value = function_call_param_iterator.next();
+            symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
+            last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
+            
+            if (typeid(*last_type_symbol) == typeid(date_type_name_c))
+            {
+        
+                symbol_c * return_type_symbol = &search_constant_type_c::lreal_type_name;
+                s4o.print("(");
+                return_type_symbol->accept(*this);
+                s4o.print(")time_to_real(");
+                IN_param_value->accept(*this);
+                s4o.print(")");
+                return NULL;
+                
+            }
+            
+            ERROR;
+        }
+        
+    }/*function_date_to_lreal*/
+    break;
 
 /****
  *DATE_TO_SINT
  */
-	case function_date_to_sint :
-	{
-		symbol_c *last_type_symbol = NULL;
-
-		{
-			identifier_c param_name("IN");
-			/* Get the value from a foo(<param_name> = <param_value>) style call */
-			symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
-			
-			/* Get the value from a foo(<param_value>) style call */
-			if (IN_param_value == NULL)
-			  IN_param_value = function_call_param_iterator.next();
-			symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
-			last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
-			
-			if (typeid(*last_type_symbol) == typeid(date_type_name_c))
-			{
-		
-				symbol_c * return_type_symbol = &search_constant_type_c::sint_type_name;
-				s4o.print("(");
-				return_type_symbol->accept(*this);
-				s4o.print(")real_to_time(");
-				IN_param_value->accept(*this);
-				s4o.print(")");
-				return NULL;
-				
-			}
-			
-			ERROR;
-		}
-		
-	}/*function_date_to_sint*/
-	break;
+    case function_date_to_sint :
+    {
+        symbol_c *last_type_symbol = NULL;
+
+        {
+            identifier_c param_name("IN");
+            /* Get the value from a foo(<param_name> = <param_value>) style call */
+            symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
+            
+            /* Get the value from a foo(<param_value>) style call */
+            if (IN_param_value == NULL)
+              IN_param_value = function_call_param_iterator.next();
+            symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
+            last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
+            
+            if (typeid(*last_type_symbol) == typeid(date_type_name_c))
+            {
+        
+                symbol_c * return_type_symbol = &search_constant_type_c::sint_type_name;
+                s4o.print("(");
+                return_type_symbol->accept(*this);
+                s4o.print(")time_to_real(");
+                IN_param_value->accept(*this);
+                s4o.print(")");
+                return NULL;
+                
+            }
+            
+            ERROR;
+        }
+        
+    }/*function_date_to_sint*/
+    break;
+
+/****
+ *DATE_TO_INT
+ */
+    case function_date_to_int :
+    {
+        symbol_c *last_type_symbol = NULL;
+
+        {
+            identifier_c param_name("IN");
+            /* Get the value from a foo(<param_name> = <param_value>) style call */
+            symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
+            
+            /* Get the value from a foo(<param_value>) style call */
+            if (IN_param_value == NULL)
+              IN_param_value = function_call_param_iterator.next();
+            symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
+            last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
+            
+            if (typeid(*last_type_symbol) == typeid(date_type_name_c))
+            {
+        
+                symbol_c * return_type_symbol = &search_constant_type_c::int_type_name;
+                s4o.print("(");
+                return_type_symbol->accept(*this);
+                s4o.print(")time_to_real(");
+                IN_param_value->accept(*this);
+                s4o.print(")");
+                return NULL;
+                
+            }
+            
+            ERROR;
+        }
+        
+    }/*function_date_to_int*/
+    break;
+
+/****
+ *DATE_TO_DINT
+ */
+    case function_date_to_dint :
+    {
+        symbol_c *last_type_symbol = NULL;
+
+        {
+            identifier_c param_name("IN");
+            /* Get the value from a foo(<param_name> = <param_value>) style call */
+            symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
+            
+            /* Get the value from a foo(<param_value>) style call */
+            if (IN_param_value == NULL)
+              IN_param_value = function_call_param_iterator.next();
+            symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
+            last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
+            
+            if (typeid(*last_type_symbol) == typeid(date_type_name_c))
+            {
+        
+                symbol_c * return_type_symbol = &search_constant_type_c::dint_type_name;
+                s4o.print("(");
+                return_type_symbol->accept(*this);
+                s4o.print(")time_to_real(");
+                IN_param_value->accept(*this);
+                s4o.print(")");
+                return NULL;
+                
+            }
+            
+            ERROR;
+        }
+        
+    }/*function_date_to_dint*/
+    break;
 
 /****
  *DATE_TO_LINT
  */
-	case function_date_to_lint :
-	{
-		symbol_c *last_type_symbol = NULL;
-
-		{
-			identifier_c param_name("IN");
-			/* Get the value from a foo(<param_name> = <param_value>) style call */
-			symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
-			
-			/* Get the value from a foo(<param_value>) style call */
-			if (IN_param_value == NULL)
-			  IN_param_value = function_call_param_iterator.next();
-			symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
-			last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
-			
-			if (typeid(*last_type_symbol) == typeid(date_type_name_c))
-			{
-		
-				symbol_c * return_type_symbol = &search_constant_type_c::lint_type_name;
-				s4o.print("(");
-				return_type_symbol->accept(*this);
-				s4o.print(")real_to_time(");
-				IN_param_value->accept(*this);
-				s4o.print(")");
-				return NULL;
-				
-			}
-			
-			ERROR;
-		}
-		
-	}/*function_date_to_lint*/
-	break;
-
-/****
- *DATE_TO_DINT
- */
-	case function_date_to_dint :
-	{
-		symbol_c *last_type_symbol = NULL;
-
-		{
-			identifier_c param_name("IN");
-			/* Get the value from a foo(<param_name> = <param_value>) style call */
-			symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
-			
-			/* Get the value from a foo(<param_value>) style call */
-			if (IN_param_value == NULL)
-			  IN_param_value = function_call_param_iterator.next();
-			symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
-			last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
-			
-			if (typeid(*last_type_symbol) == typeid(date_type_name_c))
-			{
-		
-				symbol_c * return_type_symbol = &search_constant_type_c::dint_type_name;
-				s4o.print("(");
-				return_type_symbol->accept(*this);
-				s4o.print(")real_to_time(");
-				IN_param_value->accept(*this);
-				s4o.print(")");
-				return NULL;
-				
-			}
-			
-			ERROR;
-		}
-		
-	}/*function_date_to_dint*/
-	break;
-
-/****
- *DATE_TO_DATE
- */
-	case function_date_to_date :
-	{
-		symbol_c *last_type_symbol = NULL;
-
-		{
-			identifier_c param_name("IN");
-			/* Get the value from a foo(<param_name> = <param_value>) style call */
-			symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
-			
-			/* Get the value from a foo(<param_value>) style call */
-			if (IN_param_value == NULL)
-			  IN_param_value = function_call_param_iterator.next();
-			symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
-			last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
-			
-			if (typeid(*last_type_symbol) == typeid(date_type_name_c))
-			{
-		
-				symbol_c * return_type_symbol = &search_constant_type_c::date_type_name;
-				s4o.print("#error DATE_TO_DATE not implemented!");
-				return NULL;
-				
-			}
-			
-			ERROR;
-		}
-		
-	}/*function_date_to_date*/
-	break;
+    case function_date_to_lint :
+    {
+        symbol_c *last_type_symbol = NULL;
+
+        {
+            identifier_c param_name("IN");
+            /* Get the value from a foo(<param_name> = <param_value>) style call */
+            symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
+            
+            /* Get the value from a foo(<param_value>) style call */
+            if (IN_param_value == NULL)
+              IN_param_value = function_call_param_iterator.next();
+            symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
+            last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
+            
+            if (typeid(*last_type_symbol) == typeid(date_type_name_c))
+            {
+        
+                symbol_c * return_type_symbol = &search_constant_type_c::lint_type_name;
+                s4o.print("(");
+                return_type_symbol->accept(*this);
+                s4o.print(")time_to_real(");
+                IN_param_value->accept(*this);
+                s4o.print(")");
+                return NULL;
+                
+            }
+            
+            ERROR;
+        }
+        
+    }/*function_date_to_lint*/
+    break;
+
+/****
+ *DATE_TO_USINT
+ */
+    case function_date_to_usint :
+    {
+        symbol_c *last_type_symbol = NULL;
+
+        {
+            identifier_c param_name("IN");
+            /* Get the value from a foo(<param_name> = <param_value>) style call */
+            symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
+            
+            /* Get the value from a foo(<param_value>) style call */
+            if (IN_param_value == NULL)
+              IN_param_value = function_call_param_iterator.next();
+            symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
+            last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
+            
+            if (typeid(*last_type_symbol) == typeid(date_type_name_c))
+            {
+        
+                symbol_c * return_type_symbol = &search_constant_type_c::usint_type_name;
+                s4o.print("(");
+                return_type_symbol->accept(*this);
+                s4o.print(")time_to_real(");
+                IN_param_value->accept(*this);
+                s4o.print(")");
+                return NULL;
+                
+            }
+            
+            ERROR;
+        }
+        
+    }/*function_date_to_usint*/
+    break;
+
+/****
+ *DATE_TO_UINT
+ */
+    case function_date_to_uint :
+    {
+        symbol_c *last_type_symbol = NULL;
+
+        {
+            identifier_c param_name("IN");
+            /* Get the value from a foo(<param_name> = <param_value>) style call */
+            symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
+            
+            /* Get the value from a foo(<param_value>) style call */
+            if (IN_param_value == NULL)
+              IN_param_value = function_call_param_iterator.next();
+            symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
+            last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
+            
+            if (typeid(*last_type_symbol) == typeid(date_type_name_c))
+            {
+        
+                symbol_c * return_type_symbol = &search_constant_type_c::uint_type_name;
+                s4o.print("(");
+                return_type_symbol->accept(*this);
+                s4o.print(")time_to_real(");
+                IN_param_value->accept(*this);
+                s4o.print(")");
+                return NULL;
+                
+            }
+            
+            ERROR;
+        }
+        
+    }/*function_date_to_uint*/
+    break;
+
+/****
+ *DATE_TO_UDINT
+ */
+    case function_date_to_udint :
+    {
+        symbol_c *last_type_symbol = NULL;
+
+        {
+            identifier_c param_name("IN");
+            /* Get the value from a foo(<param_name> = <param_value>) style call */
+            symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
+            
+            /* Get the value from a foo(<param_value>) style call */
+            if (IN_param_value == NULL)
+              IN_param_value = function_call_param_iterator.next();
+            symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
+            last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
+            
+            if (typeid(*last_type_symbol) == typeid(date_type_name_c))
+            {
+        
+                symbol_c * return_type_symbol = &search_constant_type_c::udint_type_name;
+                s4o.print("(");
+                return_type_symbol->accept(*this);
+                s4o.print(")time_to_real(");
+                IN_param_value->accept(*this);
+                s4o.print(")");
+                return NULL;
+                
+            }
+            
+            ERROR;
+        }
+        
+    }/*function_date_to_udint*/
+    break;
+
+/****
+ *DATE_TO_ULINT
+ */
+    case function_date_to_ulint :
+    {
+        symbol_c *last_type_symbol = NULL;
+
+        {
+            identifier_c param_name("IN");
+            /* Get the value from a foo(<param_name> = <param_value>) style call */
+            symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
+            
+            /* Get the value from a foo(<param_value>) style call */
+            if (IN_param_value == NULL)
+              IN_param_value = function_call_param_iterator.next();
+            symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
+            last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
+            
+            if (typeid(*last_type_symbol) == typeid(date_type_name_c))
+            {
+        
+                symbol_c * return_type_symbol = &search_constant_type_c::ulint_type_name;
+                s4o.print("(");
+                return_type_symbol->accept(*this);
+                s4o.print(")time_to_real(");
+                IN_param_value->accept(*this);
+                s4o.print(")");
+                return NULL;
+                
+            }
+            
+            ERROR;
+        }
+        
+    }/*function_date_to_ulint*/
+    break;
+
+/****
+ *DATE_TO_BOOL
+ */
+    case function_date_to_bool :
+    {
+        symbol_c *last_type_symbol = NULL;
+
+        {
+            identifier_c param_name("IN");
+            /* Get the value from a foo(<param_name> = <param_value>) style call */
+            symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
+            
+            /* Get the value from a foo(<param_value>) style call */
+            if (IN_param_value == NULL)
+              IN_param_value = function_call_param_iterator.next();
+            symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
+            last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
+            
+            if (typeid(*last_type_symbol) == typeid(date_type_name_c))
+            {
+        
+                symbol_c * return_type_symbol = &search_constant_type_c::bool_type_name;
+                s4o.print("(");
+                return_type_symbol->accept(*this);
+                s4o.print(")time_to_real(");
+                IN_param_value->accept(*this);
+                s4o.print(")");
+                return NULL;
+                
+            }
+            
+            ERROR;
+        }
+        
+    }/*function_date_to_bool*/
+    break;
+
+/****
+ *DATE_TO_BYTE
+ */
+    case function_date_to_byte :
+    {
+        symbol_c *last_type_symbol = NULL;
+
+        {
+            identifier_c param_name("IN");
+            /* Get the value from a foo(<param_name> = <param_value>) style call */
+            symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
+            
+            /* Get the value from a foo(<param_value>) style call */
+            if (IN_param_value == NULL)
+              IN_param_value = function_call_param_iterator.next();
+            symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
+            last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
+            
+            if (typeid(*last_type_symbol) == typeid(date_type_name_c))
+            {
+        
+                symbol_c * return_type_symbol = &search_constant_type_c::byte_type_name;
+                s4o.print("(");
+                return_type_symbol->accept(*this);
+                s4o.print(")time_to_real(");
+                IN_param_value->accept(*this);
+                s4o.print(")");
+                return NULL;
+                
+            }
+            
+            ERROR;
+        }
+        
+    }/*function_date_to_byte*/
+    break;
+
+/****
+ *DATE_TO_WORD
+ */
+    case function_date_to_word :
+    {
+        symbol_c *last_type_symbol = NULL;
+
+        {
+            identifier_c param_name("IN");
+            /* Get the value from a foo(<param_name> = <param_value>) style call */
+            symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
+            
+            /* Get the value from a foo(<param_value>) style call */
+            if (IN_param_value == NULL)
+              IN_param_value = function_call_param_iterator.next();
+            symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
+            last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
+            
+            if (typeid(*last_type_symbol) == typeid(date_type_name_c))
+            {
+        
+                symbol_c * return_type_symbol = &search_constant_type_c::word_type_name;
+                s4o.print("(");
+                return_type_symbol->accept(*this);
+                s4o.print(")time_to_real(");
+                IN_param_value->accept(*this);
+                s4o.print(")");
+                return NULL;
+                
+            }
+            
+            ERROR;
+        }
+        
+    }/*function_date_to_word*/
+    break;
 
 /****
  *DATE_TO_DWORD
  */
-	case function_date_to_dword :
-	{
-		symbol_c *last_type_symbol = NULL;
-
-		{
-			identifier_c param_name("IN");
-			/* Get the value from a foo(<param_name> = <param_value>) style call */
-			symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
-			
-			/* Get the value from a foo(<param_value>) style call */
-			if (IN_param_value == NULL)
-			  IN_param_value = function_call_param_iterator.next();
-			symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
-			last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
-			
-			if (typeid(*last_type_symbol) == typeid(date_type_name_c))
-			{
-		
-				symbol_c * return_type_symbol = &search_constant_type_c::dword_type_name;
-				s4o.print("(");
-				return_type_symbol->accept(*this);
-				s4o.print(")real_to_time(");
-				IN_param_value->accept(*this);
-				s4o.print(")");
-				return NULL;
-				
-			}
-			
-			ERROR;
-		}
-		
-	}/*function_date_to_dword*/
-	break;
-
-/****
- *DATE_TO_DT
- */
-	case function_date_to_dt :
-	{
-		symbol_c *last_type_symbol = NULL;
-
-		{
-			identifier_c param_name("IN");
-			/* Get the value from a foo(<param_name> = <param_value>) style call */
-			symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
-			
-			/* Get the value from a foo(<param_value>) style call */
-			if (IN_param_value == NULL)
-			  IN_param_value = function_call_param_iterator.next();
-			symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
-			last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
-			
-			if (typeid(*last_type_symbol) == typeid(date_type_name_c))
-			{
-		
-				symbol_c * return_type_symbol = &search_constant_type_c::dt_type_name;
-				s4o.print("#error DATE_TO_DT not implemented!");
-				return NULL;
-				
-			}
-			
-			ERROR;
-		}
-		
-	}/*function_date_to_dt*/
-	break;
-
-/****
- *DATE_TO_TOD
- */
-	case function_date_to_tod :
-	{
-		symbol_c *last_type_symbol = NULL;
-
-		{
-			identifier_c param_name("IN");
-			/* Get the value from a foo(<param_name> = <param_value>) style call */
-			symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
-			
-			/* Get the value from a foo(<param_value>) style call */
-			if (IN_param_value == NULL)
-			  IN_param_value = function_call_param_iterator.next();
-			symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
-			last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
-			
-			if (typeid(*last_type_symbol) == typeid(date_type_name_c))
-			{
-		
-				symbol_c * return_type_symbol = &search_constant_type_c::tod_type_name;
-				s4o.print("#error DATE_TO_TOD not implemented!");
-				return NULL;
-				
-			}
-			
-			ERROR;
-		}
-		
-	}/*function_date_to_tod*/
-	break;
-
-/****
- *DATE_TO_UDINT
- */
-	case function_date_to_udint :
-	{
-		symbol_c *last_type_symbol = NULL;
-
-		{
-			identifier_c param_name("IN");
-			/* Get the value from a foo(<param_name> = <param_value>) style call */
-			symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
-			
-			/* Get the value from a foo(<param_value>) style call */
-			if (IN_param_value == NULL)
-			  IN_param_value = function_call_param_iterator.next();
-			symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
-			last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
-			
-			if (typeid(*last_type_symbol) == typeid(date_type_name_c))
-			{
-		
-				symbol_c * return_type_symbol = &search_constant_type_c::udint_type_name;
-				s4o.print("(");
-				return_type_symbol->accept(*this);
-				s4o.print(")real_to_time(");
-				IN_param_value->accept(*this);
-				s4o.print(")");
-				return NULL;
-				
-			}
-			
-			ERROR;
-		}
-		
-	}/*function_date_to_udint*/
-	break;
-
-/****
- *DATE_TO_WORD
- */
-	case function_date_to_word :
-	{
-		symbol_c *last_type_symbol = NULL;
-
-		{
-			identifier_c param_name("IN");
-			/* Get the value from a foo(<param_name> = <param_value>) style call */
-			symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
-			
-			/* Get the value from a foo(<param_value>) style call */
-			if (IN_param_value == NULL)
-			  IN_param_value = function_call_param_iterator.next();
-			symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
-			last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
-			
-			if (typeid(*last_type_symbol) == typeid(date_type_name_c))
-			{
-		
-				symbol_c * return_type_symbol = &search_constant_type_c::word_type_name;
-				s4o.print("(");
-				return_type_symbol->accept(*this);
-				s4o.print(")real_to_time(");
-				IN_param_value->accept(*this);
-				s4o.print(")");
-				return NULL;
-				
-			}
-			
-			ERROR;
-		}
-		
-	}/*function_date_to_word*/
-	break;
+    case function_date_to_dword :
+    {
+        symbol_c *last_type_symbol = NULL;
+
+        {
+            identifier_c param_name("IN");
+            /* Get the value from a foo(<param_name> = <param_value>) style call */
+            symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
+            
+            /* Get the value from a foo(<param_value>) style call */
+            if (IN_param_value == NULL)
+              IN_param_value = function_call_param_iterator.next();
+            symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
+            last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
+            
+            if (typeid(*last_type_symbol) == typeid(date_type_name_c))
+            {
+        
+                symbol_c * return_type_symbol = &search_constant_type_c::dword_type_name;
+                s4o.print("(");
+                return_type_symbol->accept(*this);
+                s4o.print(")time_to_real(");
+                IN_param_value->accept(*this);
+                s4o.print(")");
+                return NULL;
+                
+            }
+            
+            ERROR;
+        }
+        
+    }/*function_date_to_dword*/
+    break;
+
+/****
+ *DATE_TO_LWORD
+ */
+    case function_date_to_lword :
+    {
+        symbol_c *last_type_symbol = NULL;
+
+        {
+            identifier_c param_name("IN");
+            /* Get the value from a foo(<param_name> = <param_value>) style call */
+            symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
+            
+            /* Get the value from a foo(<param_value>) style call */
+            if (IN_param_value == NULL)
+              IN_param_value = function_call_param_iterator.next();
+            symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
+            last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
+            
+            if (typeid(*last_type_symbol) == typeid(date_type_name_c))
+            {
+        
+                symbol_c * return_type_symbol = &search_constant_type_c::lword_type_name;
+                s4o.print("(");
+                return_type_symbol->accept(*this);
+                s4o.print(")time_to_real(");
+                IN_param_value->accept(*this);
+                s4o.print(")");
+                return NULL;
+                
+            }
+            
+            ERROR;
+        }
+        
+    }/*function_date_to_lword*/
+    break;
+
+/****
+ *DATE_TO_STRING
+ */
+    case function_date_to_string :
+    {
+        symbol_c *last_type_symbol = NULL;
+
+        {
+            identifier_c param_name("IN");
+            /* Get the value from a foo(<param_name> = <param_value>) style call */
+            symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
+            
+            /* Get the value from a foo(<param_value>) style call */
+            if (IN_param_value == NULL)
+              IN_param_value = function_call_param_iterator.next();
+            symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
+            last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
+            
+            if (typeid(*last_type_symbol) == typeid(date_type_name_c))
+            {
+        
+                symbol_c * return_type_symbol = &search_constant_type_c::string_type_name;
+                s4o.print("(");
+                return_type_symbol->accept(*this);
+                s4o.print(")time_to_string(");
+                IN_param_value->accept(*this);
+                s4o.print(")");
+                return NULL;
+                
+            }
+            
+            ERROR;
+        }
+        
+    }/*function_date_to_string*/
+    break;
 
 /****
  *DATE_TO_WSTRING
  */
-	case function_date_to_wstring :
-	{
-		symbol_c *last_type_symbol = NULL;
-
-		{
-			identifier_c param_name("IN");
-			/* Get the value from a foo(<param_name> = <param_value>) style call */
-			symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
-			
-			/* Get the value from a foo(<param_value>) style call */
-			if (IN_param_value == NULL)
-			  IN_param_value = function_call_param_iterator.next();
-			symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
-			last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
-			
-			if (typeid(*last_type_symbol) == typeid(date_type_name_c))
-			{
-		
-				symbol_c * return_type_symbol = &search_constant_type_c::wstring_type_name;
-				s4o.print("(");
-				return_type_symbol->accept(*this);
-				s4o.print(")string_to_time(");
-				IN_param_value->accept(*this);
-				s4o.print(")");
-				return NULL;
-				
-			}
-			
-			ERROR;
-		}
-		
-	}/*function_date_to_wstring*/
-	break;
-
-/****
- *DATE_TO_STRING
- */
-	case function_date_to_string :
-	{
-		symbol_c *last_type_symbol = NULL;
-
-		{
-			identifier_c param_name("IN");
-			/* Get the value from a foo(<param_name> = <param_value>) style call */
-			symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
-			
-			/* Get the value from a foo(<param_value>) style call */
-			if (IN_param_value == NULL)
-			  IN_param_value = function_call_param_iterator.next();
-			symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
-			last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
-			
-			if (typeid(*last_type_symbol) == typeid(date_type_name_c))
-			{
-		
-				symbol_c * return_type_symbol = &search_constant_type_c::string_type_name;
-				s4o.print("(");
-				return_type_symbol->accept(*this);
-				s4o.print(")string_to_time(");
-				IN_param_value->accept(*this);
-				s4o.print(")");
-				return NULL;
-				
-			}
-			
-			ERROR;
-		}
-		
-	}/*function_date_to_string*/
-	break;
-
-/****
- *DATE_TO_LWORD
- */
-	case function_date_to_lword :
-	{
-		symbol_c *last_type_symbol = NULL;
-
-		{
-			identifier_c param_name("IN");
-			/* Get the value from a foo(<param_name> = <param_value>) style call */
-			symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
-			
-			/* Get the value from a foo(<param_value>) style call */
-			if (IN_param_value == NULL)
-			  IN_param_value = function_call_param_iterator.next();
-			symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
-			last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
-			
-			if (typeid(*last_type_symbol) == typeid(date_type_name_c))
-			{
-		
-				symbol_c * return_type_symbol = &search_constant_type_c::lword_type_name;
-				s4o.print("(");
-				return_type_symbol->accept(*this);
-				s4o.print(")real_to_time(");
-				IN_param_value->accept(*this);
-				s4o.print(")");
-				return NULL;
-				
-			}
-			
-			ERROR;
-		}
-		
-	}/*function_date_to_lword*/
-	break;
-
-/****
- *DATE_TO_UINT
- */
-	case function_date_to_uint :
-	{
-		symbol_c *last_type_symbol = NULL;
-
-		{
-			identifier_c param_name("IN");
-			/* Get the value from a foo(<param_name> = <param_value>) style call */
-			symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
-			
-			/* Get the value from a foo(<param_value>) style call */
-			if (IN_param_value == NULL)
-			  IN_param_value = function_call_param_iterator.next();
-			symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
-			last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
-			
-			if (typeid(*last_type_symbol) == typeid(date_type_name_c))
-			{
-		
-				symbol_c * return_type_symbol = &search_constant_type_c::uint_type_name;
-				s4o.print("(");
-				return_type_symbol->accept(*this);
-				s4o.print(")real_to_time(");
-				IN_param_value->accept(*this);
-				s4o.print(")");
-				return NULL;
-				
-			}
-			
-			ERROR;
-		}
-		
-	}/*function_date_to_uint*/
-	break;
-
-/****
- *DATE_TO_LREAL
- */
-	case function_date_to_lreal :
-	{
-		symbol_c *last_type_symbol = NULL;
-
-		{
-			identifier_c param_name("IN");
-			/* Get the value from a foo(<param_name> = <param_value>) style call */
-			symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
-			
-			/* Get the value from a foo(<param_value>) style call */
-			if (IN_param_value == NULL)
-			  IN_param_value = function_call_param_iterator.next();
-			symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
-			last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
-			
-			if (typeid(*last_type_symbol) == typeid(date_type_name_c))
-			{
-		
-				symbol_c * return_type_symbol = &search_constant_type_c::lreal_type_name;
-				s4o.print("(");
-				return_type_symbol->accept(*this);
-				s4o.print(")real_to_time(");
-				IN_param_value->accept(*this);
-				s4o.print(")");
-				return NULL;
-				
-			}
-			
-			ERROR;
-		}
-		
-	}/*function_date_to_lreal*/
-	break;
-
-/****
- *DATE_TO_BYTE
- */
-	case function_date_to_byte :
-	{
-		symbol_c *last_type_symbol = NULL;
-
-		{
-			identifier_c param_name("IN");
-			/* Get the value from a foo(<param_name> = <param_value>) style call */
-			symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
-			
-			/* Get the value from a foo(<param_value>) style call */
-			if (IN_param_value == NULL)
-			  IN_param_value = function_call_param_iterator.next();
-			symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
-			last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
-			
-			if (typeid(*last_type_symbol) == typeid(date_type_name_c))
-			{
-		
-				symbol_c * return_type_symbol = &search_constant_type_c::byte_type_name;
-				s4o.print("(");
-				return_type_symbol->accept(*this);
-				s4o.print(")real_to_time(");
-				IN_param_value->accept(*this);
-				s4o.print(")");
-				return NULL;
-				
-			}
-			
-			ERROR;
-		}
-		
-	}/*function_date_to_byte*/
-	break;
-
-/****
- *DATE_TO_USINT
- */
-	case function_date_to_usint :
-	{
-		symbol_c *last_type_symbol = NULL;
-
-		{
-			identifier_c param_name("IN");
-			/* Get the value from a foo(<param_name> = <param_value>) style call */
-			symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
-			
-			/* Get the value from a foo(<param_value>) style call */
-			if (IN_param_value == NULL)
-			  IN_param_value = function_call_param_iterator.next();
-			symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
-			last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
-			
-			if (typeid(*last_type_symbol) == typeid(date_type_name_c))
-			{
-		
-				symbol_c * return_type_symbol = &search_constant_type_c::usint_type_name;
-				s4o.print("(");
-				return_type_symbol->accept(*this);
-				s4o.print(")real_to_time(");
-				IN_param_value->accept(*this);
-				s4o.print(")");
-				return NULL;
-				
-			}
-			
-			ERROR;
-		}
-		
-	}/*function_date_to_usint*/
-	break;
-
-/****
- *DATE_TO_ULINT
- */
-	case function_date_to_ulint :
-	{
-		symbol_c *last_type_symbol = NULL;
-
-		{
-			identifier_c param_name("IN");
-			/* Get the value from a foo(<param_name> = <param_value>) style call */
-			symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
-			
-			/* Get the value from a foo(<param_value>) style call */
-			if (IN_param_value == NULL)
-			  IN_param_value = function_call_param_iterator.next();
-			symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
-			last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
-			
-			if (typeid(*last_type_symbol) == typeid(date_type_name_c))
-			{
-		
-				symbol_c * return_type_symbol = &search_constant_type_c::ulint_type_name;
-				s4o.print("(");
-				return_type_symbol->accept(*this);
-				s4o.print(")real_to_time(");
-				IN_param_value->accept(*this);
-				s4o.print(")");
-				return NULL;
-				
-			}
-			
-			ERROR;
-		}
-		
-	}/*function_date_to_ulint*/
-	break;
-
-/****
- *DATE_TO_BOOL
- */
-	case function_date_to_bool :
-	{
-		symbol_c *last_type_symbol = NULL;
-
-		{
-			identifier_c param_name("IN");
-			/* Get the value from a foo(<param_name> = <param_value>) style call */
-			symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
-			
-			/* Get the value from a foo(<param_value>) style call */
-			if (IN_param_value == NULL)
-			  IN_param_value = function_call_param_iterator.next();
-			symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
-			last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
-			
-			if (typeid(*last_type_symbol) == typeid(date_type_name_c))
-			{
-		
-				symbol_c * return_type_symbol = &search_constant_type_c::bool_type_name;
-				s4o.print("(");
-				return_type_symbol->accept(*this);
-				s4o.print(")real_to_time(");
-				IN_param_value->accept(*this);
-				s4o.print(")");
-				return NULL;
-				
-			}
-			
-			ERROR;
-		}
-		
-	}/*function_date_to_bool*/
-	break;
-
-/****
- *DATE_TO_TIME
- */
-	case function_date_to_time :
-	{
-		symbol_c *last_type_symbol = NULL;
-
-		{
-			identifier_c param_name("IN");
-			/* Get the value from a foo(<param_name> = <param_value>) style call */
-			symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
-			
-			/* Get the value from a foo(<param_value>) style call */
-			if (IN_param_value == NULL)
-			  IN_param_value = function_call_param_iterator.next();
-			symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
-			last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
-			
-			if (typeid(*last_type_symbol) == typeid(date_type_name_c))
-			{
-		
-				symbol_c * return_type_symbol = &search_constant_type_c::time_type_name;
-				s4o.print("#error DATE_TO_TIME not implemented!");
-				return NULL;
-				
-			}
-			
-			ERROR;
-		}
-		
-	}/*function_date_to_time*/
-	break;
-
-/****
- *DATE_TO_INT
- */
-	case function_date_to_int :
-	{
-		symbol_c *last_type_symbol = NULL;
-
-		{
-			identifier_c param_name("IN");
-			/* Get the value from a foo(<param_name> = <param_value>) style call */
-			symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
-			
-			/* Get the value from a foo(<param_value>) style call */
-			if (IN_param_value == NULL)
-			  IN_param_value = function_call_param_iterator.next();
-			symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
-			last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
-			
-			if (typeid(*last_type_symbol) == typeid(date_type_name_c))
-			{
-		
-				symbol_c * return_type_symbol = &search_constant_type_c::int_type_name;
-				s4o.print("(");
-				return_type_symbol->accept(*this);
-				s4o.print(")real_to_time(");
-				IN_param_value->accept(*this);
-				s4o.print(")");
-				return NULL;
-				
-			}
-			
-			ERROR;
-		}
-		
-	}/*function_date_to_int*/
-	break;
-
-/****
- *DWORD_TO_REAL
- */
-	case function_dword_to_real :
-	{
-		symbol_c *last_type_symbol = NULL;
-
-		{
-			identifier_c param_name("IN");
-			/* Get the value from a foo(<param_name> = <param_value>) style call */
-			symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
-			
-			/* Get the value from a foo(<param_value>) style call */
-			if (IN_param_value == NULL)
-			  IN_param_value = function_call_param_iterator.next();
-			symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
-			last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
-			
-			if (typeid(*last_type_symbol) == typeid(dword_type_name_c))
-			{
-		
-				symbol_c * return_type_symbol = &search_constant_type_c::real_type_name;
-				s4o.print("(");
-				return_type_symbol->accept(*this);
-				s4o.print(")");
-				IN_param_value->accept(*this);
-				return NULL;
-				
-			}
-			
-			ERROR;
-		}
-		
-	}/*function_dword_to_real*/
-	break;
-
-/****
- *DWORD_TO_SINT
- */
-	case function_dword_to_sint :
-	{
-		symbol_c *last_type_symbol = NULL;
-
-		{
-			identifier_c param_name("IN");
-			/* Get the value from a foo(<param_name> = <param_value>) style call */
-			symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
-			
-			/* Get the value from a foo(<param_value>) style call */
-			if (IN_param_value == NULL)
-			  IN_param_value = function_call_param_iterator.next();
-			symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
-			last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
-			
-			if (typeid(*last_type_symbol) == typeid(dword_type_name_c))
-			{
-		
-				symbol_c * return_type_symbol = &search_constant_type_c::sint_type_name;
-				s4o.print("(");
-				return_type_symbol->accept(*this);
-				s4o.print(")");
-				IN_param_value->accept(*this);
-				return NULL;
-				
-			}
-			
-			ERROR;
-		}
-		
-	}/*function_dword_to_sint*/
-	break;
-
-/****
- *DWORD_TO_LINT
- */
-	case function_dword_to_lint :
-	{
-		symbol_c *last_type_symbol = NULL;
-
-		{
-			identifier_c param_name("IN");
-			/* Get the value from a foo(<param_name> = <param_value>) style call */
-			symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
-			
-			/* Get the value from a foo(<param_value>) style call */
-			if (IN_param_value == NULL)
-			  IN_param_value = function_call_param_iterator.next();
-			symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
-			last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
-			
-			if (typeid(*last_type_symbol) == typeid(dword_type_name_c))
-			{
-		
-				symbol_c * return_type_symbol = &search_constant_type_c::lint_type_name;
-				s4o.print("(");
-				return_type_symbol->accept(*this);
-				s4o.print(")");
-				IN_param_value->accept(*this);
-				return NULL;
-				
-			}
-			
-			ERROR;
-		}
-		
-	}/*function_dword_to_lint*/
-	break;
-
-/****
- *DWORD_TO_DINT
- */
-	case function_dword_to_dint :
-	{
-		symbol_c *last_type_symbol = NULL;
-
-		{
-			identifier_c param_name("IN");
-			/* Get the value from a foo(<param_name> = <param_value>) style call */
-			symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
-			
-			/* Get the value from a foo(<param_value>) style call */
-			if (IN_param_value == NULL)
-			  IN_param_value = function_call_param_iterator.next();
-			symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
-			last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
-			
-			if (typeid(*last_type_symbol) == typeid(dword_type_name_c))
-			{
-		
-				symbol_c * return_type_symbol = &search_constant_type_c::dint_type_name;
-				s4o.print("(");
-				return_type_symbol->accept(*this);
-				s4o.print(")");
-				IN_param_value->accept(*this);
-				return NULL;
-				
-			}
-			
-			ERROR;
-		}
-		
-	}/*function_dword_to_dint*/
-	break;
-
-/****
- *DWORD_TO_DATE
- */
-	case function_dword_to_date :
-	{
-		symbol_c *last_type_symbol = NULL;
-
-		{
-			identifier_c param_name("IN");
-			/* Get the value from a foo(<param_name> = <param_value>) style call */
-			symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
-			
-			/* Get the value from a foo(<param_value>) style call */
-			if (IN_param_value == NULL)
-			  IN_param_value = function_call_param_iterator.next();
-			symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
-			last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
-			
-			if (typeid(*last_type_symbol) == typeid(dword_type_name_c))
-			{
-		
-				symbol_c * return_type_symbol = &search_constant_type_c::date_type_name;
-				s4o.print("(");
-				return_type_symbol->accept(*this);
-				s4o.print(")time_to_real(");
-				IN_param_value->accept(*this);
-				s4o.print(")");
-				return NULL;
-				
-			}
-			
-			ERROR;
-		}
-		
-	}/*function_dword_to_date*/
-	break;
-
-/****
- *DWORD_TO_DWORD
- */
-	case function_dword_to_dword :
-	{
-		symbol_c *last_type_symbol = NULL;
-
-		{
-			identifier_c param_name("IN");
-			/* Get the value from a foo(<param_name> = <param_value>) style call */
-			symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
-			
-			/* Get the value from a foo(<param_value>) style call */
-			if (IN_param_value == NULL)
-			  IN_param_value = function_call_param_iterator.next();
-			symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
-			last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
-			
-			if (typeid(*last_type_symbol) == typeid(dword_type_name_c))
-			{
-		
-				symbol_c * return_type_symbol = &search_constant_type_c::dword_type_name;
-				s4o.print("(");
-				return_type_symbol->accept(*this);
-				s4o.print(")");
-				IN_param_value->accept(*this);
-				return NULL;
-				
-			}
-			
-			ERROR;
-		}
-		
-	}/*function_dword_to_dword*/
-	break;
-
-/****
- *DWORD_TO_DT
- */
-	case function_dword_to_dt :
-	{
-		symbol_c *last_type_symbol = NULL;
-
-		{
-			identifier_c param_name("IN");
-			/* Get the value from a foo(<param_name> = <param_value>) style call */
-			symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
-			
-			/* Get the value from a foo(<param_value>) style call */
-			if (IN_param_value == NULL)
-			  IN_param_value = function_call_param_iterator.next();
-			symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
-			last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
-			
-			if (typeid(*last_type_symbol) == typeid(dword_type_name_c))
-			{
-		
-				symbol_c * return_type_symbol = &search_constant_type_c::dt_type_name;
-				s4o.print("(");
-				return_type_symbol->accept(*this);
-				s4o.print(")time_to_real(");
-				IN_param_value->accept(*this);
-				s4o.print(")");
-				return NULL;
-				
-			}
-			
-			ERROR;
-		}
-		
-	}/*function_dword_to_dt*/
-	break;
-
-/****
- *DWORD_TO_TOD
- */
-	case function_dword_to_tod :
-	{
-		symbol_c *last_type_symbol = NULL;
-
-		{
-			identifier_c param_name("IN");
-			/* Get the value from a foo(<param_name> = <param_value>) style call */
-			symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
-			
-			/* Get the value from a foo(<param_value>) style call */
-			if (IN_param_value == NULL)
-			  IN_param_value = function_call_param_iterator.next();
-			symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
-			last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
-			
-			if (typeid(*last_type_symbol) == typeid(dword_type_name_c))
-			{
-		
-				symbol_c * return_type_symbol = &search_constant_type_c::tod_type_name;
-				s4o.print("(");
-				return_type_symbol->accept(*this);
-				s4o.print(")time_to_real(");
-				IN_param_value->accept(*this);
-				s4o.print(")");
-				return NULL;
-				
-			}
-			
-			ERROR;
-		}
-		
-	}/*function_dword_to_tod*/
-	break;
-
-/****
- *DWORD_TO_UDINT
- */
-	case function_dword_to_udint :
-	{
-		symbol_c *last_type_symbol = NULL;
-
-		{
-			identifier_c param_name("IN");
-			/* Get the value from a foo(<param_name> = <param_value>) style call */
-			symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
-			
-			/* Get the value from a foo(<param_value>) style call */
-			if (IN_param_value == NULL)
-			  IN_param_value = function_call_param_iterator.next();
-			symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
-			last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
-			
-			if (typeid(*last_type_symbol) == typeid(dword_type_name_c))
-			{
-		
-				symbol_c * return_type_symbol = &search_constant_type_c::udint_type_name;
-				s4o.print("(");
-				return_type_symbol->accept(*this);
-				s4o.print(")");
-				IN_param_value->accept(*this);
-				return NULL;
-				
-			}
-			
-			ERROR;
-		}
-		
-	}/*function_dword_to_udint*/
-	break;
-
-/****
- *DWORD_TO_WORD
- */
-	case function_dword_to_word :
-	{
-		symbol_c *last_type_symbol = NULL;
-
-		{
-			identifier_c param_name("IN");
-			/* Get the value from a foo(<param_name> = <param_value>) style call */
-			symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
-			
-			/* Get the value from a foo(<param_value>) style call */
-			if (IN_param_value == NULL)
-			  IN_param_value = function_call_param_iterator.next();
-			symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
-			last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
-			
-			if (typeid(*last_type_symbol) == typeid(dword_type_name_c))
-			{
-		
-				symbol_c * return_type_symbol = &search_constant_type_c::word_type_name;
-				s4o.print("(");
-				return_type_symbol->accept(*this);
-				s4o.print(")");
-				IN_param_value->accept(*this);
-				return NULL;
-				
-			}
-			
-			ERROR;
-		}
-		
-	}/*function_dword_to_word*/
-	break;
-
-/****
- *DWORD_TO_WSTRING
- */
-	case function_dword_to_wstring :
-	{
-		symbol_c *last_type_symbol = NULL;
-
-		{
-			identifier_c param_name("IN");
-			/* Get the value from a foo(<param_name> = <param_value>) style call */
-			symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
-			
-			/* Get the value from a foo(<param_value>) style call */
-			if (IN_param_value == NULL)
-			  IN_param_value = function_call_param_iterator.next();
-			symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
-			last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
-			
-			if (typeid(*last_type_symbol) == typeid(dword_type_name_c))
-			{
-		
-				symbol_c * return_type_symbol = &search_constant_type_c::wstring_type_name;
-				s4o.print("(");
-				return_type_symbol->accept(*this);
-				s4o.print(")string_to_int(");
-				IN_param_value->accept(*this);
-				s4o.print(", 16)");
-				return NULL;
-				
-			}
-			
-			ERROR;
-		}
-		
-	}/*function_dword_to_wstring*/
-	break;
-
-/****
- *DWORD_TO_STRING
- */
-	case function_dword_to_string :
-	{
-		symbol_c *last_type_symbol = NULL;
-
-		{
-			identifier_c param_name("IN");
-			/* Get the value from a foo(<param_name> = <param_value>) style call */
-			symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
-			
-			/* Get the value from a foo(<param_value>) style call */
-			if (IN_param_value == NULL)
-			  IN_param_value = function_call_param_iterator.next();
-			symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
-			last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
-			
-			if (typeid(*last_type_symbol) == typeid(dword_type_name_c))
-			{
-		
-				symbol_c * return_type_symbol = &search_constant_type_c::string_type_name;
-				s4o.print("(");
-				return_type_symbol->accept(*this);
-				s4o.print(")string_to_int(");
-				IN_param_value->accept(*this);
-				s4o.print(", 16)");
-				return NULL;
-				
-			}
-			
-			ERROR;
-		}
-		
-	}/*function_dword_to_string*/
-	break;
-
-/****
- *DWORD_TO_LWORD
- */
-	case function_dword_to_lword :
-	{
-		symbol_c *last_type_symbol = NULL;
-
-		{
-			identifier_c param_name("IN");
-			/* Get the value from a foo(<param_name> = <param_value>) style call */
-			symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
-			
-			/* Get the value from a foo(<param_value>) style call */
-			if (IN_param_value == NULL)
-			  IN_param_value = function_call_param_iterator.next();
-			symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
-			last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
-			
-			if (typeid(*last_type_symbol) == typeid(dword_type_name_c))
-			{
-		
-				symbol_c * return_type_symbol = &search_constant_type_c::lword_type_name;
-				s4o.print("(");
-				return_type_symbol->accept(*this);
-				s4o.print(")");
-				IN_param_value->accept(*this);
-				return NULL;
-				
-			}
-			
-			ERROR;
-		}
-		
-	}/*function_dword_to_lword*/
-	break;
-
-/****
- *DWORD_TO_UINT
- */
-	case function_dword_to_uint :
-	{
-		symbol_c *last_type_symbol = NULL;
-
-		{
-			identifier_c param_name("IN");
-			/* Get the value from a foo(<param_name> = <param_value>) style call */
-			symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
-			
-			/* Get the value from a foo(<param_value>) style call */
-			if (IN_param_value == NULL)
-			  IN_param_value = function_call_param_iterator.next();
-			symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
-			last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
-			
-			if (typeid(*last_type_symbol) == typeid(dword_type_name_c))
-			{
-		
-				symbol_c * return_type_symbol = &search_constant_type_c::uint_type_name;
-				s4o.print("(");
-				return_type_symbol->accept(*this);
-				s4o.print(")");
-				IN_param_value->accept(*this);
-				return NULL;
-				
-			}
-			
-			ERROR;
-		}
-		
-	}/*function_dword_to_uint*/
-	break;
-
-/****
- *DWORD_TO_LREAL
- */
-	case function_dword_to_lreal :
-	{
-		symbol_c *last_type_symbol = NULL;
-
-		{
-			identifier_c param_name("IN");
-			/* Get the value from a foo(<param_name> = <param_value>) style call */
-			symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
-			
-			/* Get the value from a foo(<param_value>) style call */
-			if (IN_param_value == NULL)
-			  IN_param_value = function_call_param_iterator.next();
-			symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
-			last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
-			
-			if (typeid(*last_type_symbol) == typeid(dword_type_name_c))
-			{
-		
-				symbol_c * return_type_symbol = &search_constant_type_c::lreal_type_name;
-				s4o.print("(");
-				return_type_symbol->accept(*this);
-				s4o.print(")");
-				IN_param_value->accept(*this);
-				return NULL;
-				
-			}
-			
-			ERROR;
-		}
-		
-	}/*function_dword_to_lreal*/
-	break;
-
-/****
- *DWORD_TO_BYTE
- */
-	case function_dword_to_byte :
-	{
-		symbol_c *last_type_symbol = NULL;
-
-		{
-			identifier_c param_name("IN");
-			/* Get the value from a foo(<param_name> = <param_value>) style call */
-			symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
-			
-			/* Get the value from a foo(<param_value>) style call */
-			if (IN_param_value == NULL)
-			  IN_param_value = function_call_param_iterator.next();
-			symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
-			last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
-			
-			if (typeid(*last_type_symbol) == typeid(dword_type_name_c))
-			{
-		
-				symbol_c * return_type_symbol = &search_constant_type_c::byte_type_name;
-				s4o.print("(");
-				return_type_symbol->accept(*this);
-				s4o.print(")");
-				IN_param_value->accept(*this);
-				return NULL;
-				
-			}
-			
-			ERROR;
-		}
-		
-	}/*function_dword_to_byte*/
-	break;
-
-/****
- *DWORD_TO_USINT
- */
-	case function_dword_to_usint :
-	{
-		symbol_c *last_type_symbol = NULL;
-
-		{
-			identifier_c param_name("IN");
-			/* Get the value from a foo(<param_name> = <param_value>) style call */
-			symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
-			
-			/* Get the value from a foo(<param_value>) style call */
-			if (IN_param_value == NULL)
-			  IN_param_value = function_call_param_iterator.next();
-			symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
-			last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
-			
-			if (typeid(*last_type_symbol) == typeid(dword_type_name_c))
-			{
-		
-				symbol_c * return_type_symbol = &search_constant_type_c::usint_type_name;
-				s4o.print("(");
-				return_type_symbol->accept(*this);
-				s4o.print(")");
-				IN_param_value->accept(*this);
-				return NULL;
-				
-			}
-			
-			ERROR;
-		}
-		
-	}/*function_dword_to_usint*/
-	break;
-
-/****
- *DWORD_TO_ULINT
- */
-	case function_dword_to_ulint :
-	{
-		symbol_c *last_type_symbol = NULL;
-
-		{
-			identifier_c param_name("IN");
-			/* Get the value from a foo(<param_name> = <param_value>) style call */
-			symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
-			
-			/* Get the value from a foo(<param_value>) style call */
-			if (IN_param_value == NULL)
-			  IN_param_value = function_call_param_iterator.next();
-			symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
-			last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
-			
-			if (typeid(*last_type_symbol) == typeid(dword_type_name_c))
-			{
-		
-				symbol_c * return_type_symbol = &search_constant_type_c::ulint_type_name;
-				s4o.print("(");
-				return_type_symbol->accept(*this);
-				s4o.print(")");
-				IN_param_value->accept(*this);
-				return NULL;
-				
-			}
-			
-			ERROR;
-		}
-		
-	}/*function_dword_to_ulint*/
-	break;
-
-/****
- *DWORD_TO_BOOL
- */
-	case function_dword_to_bool :
-	{
-		symbol_c *last_type_symbol = NULL;
-
-		{
-			identifier_c param_name("IN");
-			/* Get the value from a foo(<param_name> = <param_value>) style call */
-			symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
-			
-			/* Get the value from a foo(<param_value>) style call */
-			if (IN_param_value == NULL)
-			  IN_param_value = function_call_param_iterator.next();
-			symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
-			last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
-			
-			if (typeid(*last_type_symbol) == typeid(dword_type_name_c))
-			{
-		
-				symbol_c * return_type_symbol = &search_constant_type_c::bool_type_name;
-				s4o.print("(");
-				return_type_symbol->accept(*this);
-				s4o.print(")");
-				IN_param_value->accept(*this);
-				return NULL;
-				
-			}
-			
-			ERROR;
-		}
-		
-	}/*function_dword_to_bool*/
-	break;
-
-/****
- *DWORD_TO_TIME
- */
-	case function_dword_to_time :
-	{
-		symbol_c *last_type_symbol = NULL;
-
-		{
-			identifier_c param_name("IN");
-			/* Get the value from a foo(<param_name> = <param_value>) style call */
-			symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
-			
-			/* Get the value from a foo(<param_value>) style call */
-			if (IN_param_value == NULL)
-			  IN_param_value = function_call_param_iterator.next();
-			symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
-			last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
-			
-			if (typeid(*last_type_symbol) == typeid(dword_type_name_c))
-			{
-		
-				symbol_c * return_type_symbol = &search_constant_type_c::time_type_name;
-				s4o.print("(");
-				return_type_symbol->accept(*this);
-				s4o.print(")time_to_real(");
-				IN_param_value->accept(*this);
-				s4o.print(")");
-				return NULL;
-				
-			}
-			
-			ERROR;
-		}
-		
-	}/*function_dword_to_time*/
-	break;
-
-/****
- *DWORD_TO_INT
- */
-	case function_dword_to_int :
-	{
-		symbol_c *last_type_symbol = NULL;
-
-		{
-			identifier_c param_name("IN");
-			/* Get the value from a foo(<param_name> = <param_value>) style call */
-			symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
-			
-			/* Get the value from a foo(<param_value>) style call */
-			if (IN_param_value == NULL)
-			  IN_param_value = function_call_param_iterator.next();
-			symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
-			last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
-			
-			if (typeid(*last_type_symbol) == typeid(dword_type_name_c))
-			{
-		
-				symbol_c * return_type_symbol = &search_constant_type_c::int_type_name;
-				s4o.print("(");
-				return_type_symbol->accept(*this);
-				s4o.print(")");
-				IN_param_value->accept(*this);
-				return NULL;
-				
-			}
-			
-			ERROR;
-		}
-		
-	}/*function_dword_to_int*/
-	break;
+    case function_date_to_wstring :
+    {
+        symbol_c *last_type_symbol = NULL;
+
+        {
+            identifier_c param_name("IN");
+            /* Get the value from a foo(<param_name> = <param_value>) style call */
+            symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
+            
+            /* Get the value from a foo(<param_value>) style call */
+            if (IN_param_value == NULL)
+              IN_param_value = function_call_param_iterator.next();
+            symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
+            last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
+            
+            if (typeid(*last_type_symbol) == typeid(date_type_name_c))
+            {
+        
+                symbol_c * return_type_symbol = &search_constant_type_c::wstring_type_name;
+                s4o.print("(");
+                return_type_symbol->accept(*this);
+                s4o.print(")time_to_string(");
+                IN_param_value->accept(*this);
+                s4o.print(")");
+                return NULL;
+                
+            }
+            
+            ERROR;
+        }
+        
+    }/*function_date_to_wstring*/
+    break;
+
+/****
+ *TOD_TO_REAL
+ */
+    case function_tod_to_real :
+    {
+        symbol_c *last_type_symbol = NULL;
+
+        {
+            identifier_c param_name("IN");
+            /* Get the value from a foo(<param_name> = <param_value>) style call */
+            symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
+            
+            /* Get the value from a foo(<param_value>) style call */
+            if (IN_param_value == NULL)
+              IN_param_value = function_call_param_iterator.next();
+            symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
+            last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
+            
+            if (typeid(*last_type_symbol) == typeid(tod_type_name_c))
+            {
+        
+                symbol_c * return_type_symbol = &search_constant_type_c::real_type_name;
+                s4o.print("(");
+                return_type_symbol->accept(*this);
+                s4o.print(")time_to_real(");
+                IN_param_value->accept(*this);
+                s4o.print(")");
+                return NULL;
+                
+            }
+            
+            ERROR;
+        }
+        
+    }/*function_tod_to_real*/
+    break;
+
+/****
+ *TOD_TO_LREAL
+ */
+    case function_tod_to_lreal :
+    {
+        symbol_c *last_type_symbol = NULL;
+
+        {
+            identifier_c param_name("IN");
+            /* Get the value from a foo(<param_name> = <param_value>) style call */
+            symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
+            
+            /* Get the value from a foo(<param_value>) style call */
+            if (IN_param_value == NULL)
+              IN_param_value = function_call_param_iterator.next();
+            symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
+            last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
+            
+            if (typeid(*last_type_symbol) == typeid(tod_type_name_c))
+            {
+        
+                symbol_c * return_type_symbol = &search_constant_type_c::lreal_type_name;
+                s4o.print("(");
+                return_type_symbol->accept(*this);
+                s4o.print(")time_to_real(");
+                IN_param_value->accept(*this);
+                s4o.print(")");
+                return NULL;
+                
+            }
+            
+            ERROR;
+        }
+        
+    }/*function_tod_to_lreal*/
+    break;
+
+/****
+ *TOD_TO_SINT
+ */
+    case function_tod_to_sint :
+    {
+        symbol_c *last_type_symbol = NULL;
+
+        {
+            identifier_c param_name("IN");
+            /* Get the value from a foo(<param_name> = <param_value>) style call */
+            symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
+            
+            /* Get the value from a foo(<param_value>) style call */
+            if (IN_param_value == NULL)
+              IN_param_value = function_call_param_iterator.next();
+            symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
+            last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
+            
+            if (typeid(*last_type_symbol) == typeid(tod_type_name_c))
+            {
+        
+                symbol_c * return_type_symbol = &search_constant_type_c::sint_type_name;
+                s4o.print("(");
+                return_type_symbol->accept(*this);
+                s4o.print(")time_to_real(");
+                IN_param_value->accept(*this);
+                s4o.print(")");
+                return NULL;
+                
+            }
+            
+            ERROR;
+        }
+        
+    }/*function_tod_to_sint*/
+    break;
+
+/****
+ *TOD_TO_INT
+ */
+    case function_tod_to_int :
+    {
+        symbol_c *last_type_symbol = NULL;
+
+        {
+            identifier_c param_name("IN");
+            /* Get the value from a foo(<param_name> = <param_value>) style call */
+            symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
+            
+            /* Get the value from a foo(<param_value>) style call */
+            if (IN_param_value == NULL)
+              IN_param_value = function_call_param_iterator.next();
+            symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
+            last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
+            
+            if (typeid(*last_type_symbol) == typeid(tod_type_name_c))
+            {
+        
+                symbol_c * return_type_symbol = &search_constant_type_c::int_type_name;
+                s4o.print("(");
+                return_type_symbol->accept(*this);
+                s4o.print(")time_to_real(");
+                IN_param_value->accept(*this);
+                s4o.print(")");
+                return NULL;
+                
+            }
+            
+            ERROR;
+        }
+        
+    }/*function_tod_to_int*/
+    break;
+
+/****
+ *TOD_TO_DINT
+ */
+    case function_tod_to_dint :
+    {
+        symbol_c *last_type_symbol = NULL;
+
+        {
+            identifier_c param_name("IN");
+            /* Get the value from a foo(<param_name> = <param_value>) style call */
+            symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
+            
+            /* Get the value from a foo(<param_value>) style call */
+            if (IN_param_value == NULL)
+              IN_param_value = function_call_param_iterator.next();
+            symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
+            last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
+            
+            if (typeid(*last_type_symbol) == typeid(tod_type_name_c))
+            {
+        
+                symbol_c * return_type_symbol = &search_constant_type_c::dint_type_name;
+                s4o.print("(");
+                return_type_symbol->accept(*this);
+                s4o.print(")time_to_real(");
+                IN_param_value->accept(*this);
+                s4o.print(")");
+                return NULL;
+                
+            }
+            
+            ERROR;
+        }
+        
+    }/*function_tod_to_dint*/
+    break;
+
+/****
+ *TOD_TO_LINT
+ */
+    case function_tod_to_lint :
+    {
+        symbol_c *last_type_symbol = NULL;
+
+        {
+            identifier_c param_name("IN");
+            /* Get the value from a foo(<param_name> = <param_value>) style call */
+            symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
+            
+            /* Get the value from a foo(<param_value>) style call */
+            if (IN_param_value == NULL)
+              IN_param_value = function_call_param_iterator.next();
+            symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
+            last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
+            
+            if (typeid(*last_type_symbol) == typeid(tod_type_name_c))
+            {
+        
+                symbol_c * return_type_symbol = &search_constant_type_c::lint_type_name;
+                s4o.print("(");
+                return_type_symbol->accept(*this);
+                s4o.print(")time_to_real(");
+                IN_param_value->accept(*this);
+                s4o.print(")");
+                return NULL;
+                
+            }
+            
+            ERROR;
+        }
+        
+    }/*function_tod_to_lint*/
+    break;
+
+/****
+ *TOD_TO_USINT
+ */
+    case function_tod_to_usint :
+    {
+        symbol_c *last_type_symbol = NULL;
+
+        {
+            identifier_c param_name("IN");
+            /* Get the value from a foo(<param_name> = <param_value>) style call */
+            symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
+            
+            /* Get the value from a foo(<param_value>) style call */
+            if (IN_param_value == NULL)
+              IN_param_value = function_call_param_iterator.next();
+            symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
+            last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
+            
+            if (typeid(*last_type_symbol) == typeid(tod_type_name_c))
+            {
+        
+                symbol_c * return_type_symbol = &search_constant_type_c::usint_type_name;
+                s4o.print("(");
+                return_type_symbol->accept(*this);
+                s4o.print(")time_to_real(");
+                IN_param_value->accept(*this);
+                s4o.print(")");
+                return NULL;
+                
+            }
+            
+            ERROR;
+        }
+        
+    }/*function_tod_to_usint*/
+    break;
+
+/****
+ *TOD_TO_UINT
+ */
+    case function_tod_to_uint :
+    {
+        symbol_c *last_type_symbol = NULL;
+
+        {
+            identifier_c param_name("IN");
+            /* Get the value from a foo(<param_name> = <param_value>) style call */
+            symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
+            
+            /* Get the value from a foo(<param_value>) style call */
+            if (IN_param_value == NULL)
+              IN_param_value = function_call_param_iterator.next();
+            symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
+            last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
+            
+            if (typeid(*last_type_symbol) == typeid(tod_type_name_c))
+            {
+        
+                symbol_c * return_type_symbol = &search_constant_type_c::uint_type_name;
+                s4o.print("(");
+                return_type_symbol->accept(*this);
+                s4o.print(")time_to_real(");
+                IN_param_value->accept(*this);
+                s4o.print(")");
+                return NULL;
+                
+            }
+            
+            ERROR;
+        }
+        
+    }/*function_tod_to_uint*/
+    break;
+
+/****
+ *TOD_TO_UDINT
+ */
+    case function_tod_to_udint :
+    {
+        symbol_c *last_type_symbol = NULL;
+
+        {
+            identifier_c param_name("IN");
+            /* Get the value from a foo(<param_name> = <param_value>) style call */
+            symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
+            
+            /* Get the value from a foo(<param_value>) style call */
+            if (IN_param_value == NULL)
+              IN_param_value = function_call_param_iterator.next();
+            symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
+            last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
+            
+            if (typeid(*last_type_symbol) == typeid(tod_type_name_c))
+            {
+        
+                symbol_c * return_type_symbol = &search_constant_type_c::udint_type_name;
+                s4o.print("(");
+                return_type_symbol->accept(*this);
+                s4o.print(")time_to_real(");
+                IN_param_value->accept(*this);
+                s4o.print(")");
+                return NULL;
+                
+            }
+            
+            ERROR;
+        }
+        
+    }/*function_tod_to_udint*/
+    break;
+
+/****
+ *TOD_TO_ULINT
+ */
+    case function_tod_to_ulint :
+    {
+        symbol_c *last_type_symbol = NULL;
+
+        {
+            identifier_c param_name("IN");
+            /* Get the value from a foo(<param_name> = <param_value>) style call */
+            symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
+            
+            /* Get the value from a foo(<param_value>) style call */
+            if (IN_param_value == NULL)
+              IN_param_value = function_call_param_iterator.next();
+            symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
+            last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
+            
+            if (typeid(*last_type_symbol) == typeid(tod_type_name_c))
+            {
+        
+                symbol_c * return_type_symbol = &search_constant_type_c::ulint_type_name;
+                s4o.print("(");
+                return_type_symbol->accept(*this);
+                s4o.print(")time_to_real(");
+                IN_param_value->accept(*this);
+                s4o.print(")");
+                return NULL;
+                
+            }
+            
+            ERROR;
+        }
+        
+    }/*function_tod_to_ulint*/
+    break;
+
+/****
+ *TOD_TO_BOOL
+ */
+    case function_tod_to_bool :
+    {
+        symbol_c *last_type_symbol = NULL;
+
+        {
+            identifier_c param_name("IN");
+            /* Get the value from a foo(<param_name> = <param_value>) style call */
+            symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
+            
+            /* Get the value from a foo(<param_value>) style call */
+            if (IN_param_value == NULL)
+              IN_param_value = function_call_param_iterator.next();
+            symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
+            last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
+            
+            if (typeid(*last_type_symbol) == typeid(tod_type_name_c))
+            {
+        
+                symbol_c * return_type_symbol = &search_constant_type_c::bool_type_name;
+                s4o.print("(");
+                return_type_symbol->accept(*this);
+                s4o.print(")time_to_real(");
+                IN_param_value->accept(*this);
+                s4o.print(")");
+                return NULL;
+                
+            }
+            
+            ERROR;
+        }
+        
+    }/*function_tod_to_bool*/
+    break;
+
+/****
+ *TOD_TO_BYTE
+ */
+    case function_tod_to_byte :
+    {
+        symbol_c *last_type_symbol = NULL;
+
+        {
+            identifier_c param_name("IN");
+            /* Get the value from a foo(<param_name> = <param_value>) style call */
+            symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
+            
+            /* Get the value from a foo(<param_value>) style call */
+            if (IN_param_value == NULL)
+              IN_param_value = function_call_param_iterator.next();
+            symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
+            last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
+            
+            if (typeid(*last_type_symbol) == typeid(tod_type_name_c))
+            {
+        
+                symbol_c * return_type_symbol = &search_constant_type_c::byte_type_name;
+                s4o.print("(");
+                return_type_symbol->accept(*this);
+                s4o.print(")time_to_real(");
+                IN_param_value->accept(*this);
+                s4o.print(")");
+                return NULL;
+                
+            }
+            
+            ERROR;
+        }
+        
+    }/*function_tod_to_byte*/
+    break;
+
+/****
+ *TOD_TO_WORD
+ */
+    case function_tod_to_word :
+    {
+        symbol_c *last_type_symbol = NULL;
+
+        {
+            identifier_c param_name("IN");
+            /* Get the value from a foo(<param_name> = <param_value>) style call */
+            symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
+            
+            /* Get the value from a foo(<param_value>) style call */
+            if (IN_param_value == NULL)
+              IN_param_value = function_call_param_iterator.next();
+            symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
+            last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
+            
+            if (typeid(*last_type_symbol) == typeid(tod_type_name_c))
+            {
+        
+                symbol_c * return_type_symbol = &search_constant_type_c::word_type_name;
+                s4o.print("(");
+                return_type_symbol->accept(*this);
+                s4o.print(")time_to_real(");
+                IN_param_value->accept(*this);
+                s4o.print(")");
+                return NULL;
+                
+            }
+            
+            ERROR;
+        }
+        
+    }/*function_tod_to_word*/
+    break;
+
+/****
+ *TOD_TO_DWORD
+ */
+    case function_tod_to_dword :
+    {
+        symbol_c *last_type_symbol = NULL;
+
+        {
+            identifier_c param_name("IN");
+            /* Get the value from a foo(<param_name> = <param_value>) style call */
+            symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
+            
+            /* Get the value from a foo(<param_value>) style call */
+            if (IN_param_value == NULL)
+              IN_param_value = function_call_param_iterator.next();
+            symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
+            last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
+            
+            if (typeid(*last_type_symbol) == typeid(tod_type_name_c))
+            {
+        
+                symbol_c * return_type_symbol = &search_constant_type_c::dword_type_name;
+                s4o.print("(");
+                return_type_symbol->accept(*this);
+                s4o.print(")time_to_real(");
+                IN_param_value->accept(*this);
+                s4o.print(")");
+                return NULL;
+                
+            }
+            
+            ERROR;
+        }
+        
+    }/*function_tod_to_dword*/
+    break;
+
+/****
+ *TOD_TO_LWORD
+ */
+    case function_tod_to_lword :
+    {
+        symbol_c *last_type_symbol = NULL;
+
+        {
+            identifier_c param_name("IN");
+            /* Get the value from a foo(<param_name> = <param_value>) style call */
+            symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
+            
+            /* Get the value from a foo(<param_value>) style call */
+            if (IN_param_value == NULL)
+              IN_param_value = function_call_param_iterator.next();
+            symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
+            last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
+            
+            if (typeid(*last_type_symbol) == typeid(tod_type_name_c))
+            {
+        
+                symbol_c * return_type_symbol = &search_constant_type_c::lword_type_name;
+                s4o.print("(");
+                return_type_symbol->accept(*this);
+                s4o.print(")time_to_real(");
+                IN_param_value->accept(*this);
+                s4o.print(")");
+                return NULL;
+                
+            }
+            
+            ERROR;
+        }
+        
+    }/*function_tod_to_lword*/
+    break;
+
+/****
+ *TOD_TO_STRING
+ */
+    case function_tod_to_string :
+    {
+        symbol_c *last_type_symbol = NULL;
+
+        {
+            identifier_c param_name("IN");
+            /* Get the value from a foo(<param_name> = <param_value>) style call */
+            symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
+            
+            /* Get the value from a foo(<param_value>) style call */
+            if (IN_param_value == NULL)
+              IN_param_value = function_call_param_iterator.next();
+            symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
+            last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
+            
+            if (typeid(*last_type_symbol) == typeid(tod_type_name_c))
+            {
+        
+                symbol_c * return_type_symbol = &search_constant_type_c::string_type_name;
+                s4o.print("(");
+                return_type_symbol->accept(*this);
+                s4o.print(")time_to_string(");
+                IN_param_value->accept(*this);
+                s4o.print(")");
+                return NULL;
+                
+            }
+            
+            ERROR;
+        }
+        
+    }/*function_tod_to_string*/
+    break;
+
+/****
+ *TOD_TO_WSTRING
+ */
+    case function_tod_to_wstring :
+    {
+        symbol_c *last_type_symbol = NULL;
+
+        {
+            identifier_c param_name("IN");
+            /* Get the value from a foo(<param_name> = <param_value>) style call */
+            symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
+            
+            /* Get the value from a foo(<param_value>) style call */
+            if (IN_param_value == NULL)
+              IN_param_value = function_call_param_iterator.next();
+            symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
+            last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
+            
+            if (typeid(*last_type_symbol) == typeid(tod_type_name_c))
+            {
+        
+                symbol_c * return_type_symbol = &search_constant_type_c::wstring_type_name;
+                s4o.print("(");
+                return_type_symbol->accept(*this);
+                s4o.print(")time_to_string(");
+                IN_param_value->accept(*this);
+                s4o.print(")");
+                return NULL;
+                
+            }
+            
+            ERROR;
+        }
+        
+    }/*function_tod_to_wstring*/
+    break;
 
 /****
  *DT_TO_REAL
  */
-	case function_dt_to_real :
-	{
-		symbol_c *last_type_symbol = NULL;
-
-		{
-			identifier_c param_name("IN");
-			/* Get the value from a foo(<param_name> = <param_value>) style call */
-			symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
-			
-			/* Get the value from a foo(<param_value>) style call */
-			if (IN_param_value == NULL)
-			  IN_param_value = function_call_param_iterator.next();
-			symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
-			last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
-			
-			if (typeid(*last_type_symbol) == typeid(dt_type_name_c))
-			{
-		
-				symbol_c * return_type_symbol = &search_constant_type_c::real_type_name;
-				s4o.print("(");
-				return_type_symbol->accept(*this);
-				s4o.print(")real_to_time(");
-				IN_param_value->accept(*this);
-				s4o.print(")");
-				return NULL;
-				
-			}
-			
-			ERROR;
-		}
-		
-	}/*function_dt_to_real*/
-	break;
+    case function_dt_to_real :
+    {
+        symbol_c *last_type_symbol = NULL;
+
+        {
+            identifier_c param_name("IN");
+            /* Get the value from a foo(<param_name> = <param_value>) style call */
+            symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
+            
+            /* Get the value from a foo(<param_value>) style call */
+            if (IN_param_value == NULL)
+              IN_param_value = function_call_param_iterator.next();
+            symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
+            last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
+            
+            if (typeid(*last_type_symbol) == typeid(dt_type_name_c))
+            {
+        
+                symbol_c * return_type_symbol = &search_constant_type_c::real_type_name;
+                s4o.print("(");
+                return_type_symbol->accept(*this);
+                s4o.print(")time_to_real(");
+                IN_param_value->accept(*this);
+                s4o.print(")");
+                return NULL;
+                
+            }
+            
+            ERROR;
+        }
+        
+    }/*function_dt_to_real*/
+    break;
+
+/****
+ *DT_TO_LREAL
+ */
+    case function_dt_to_lreal :
+    {
+        symbol_c *last_type_symbol = NULL;
+
+        {
+            identifier_c param_name("IN");
+            /* Get the value from a foo(<param_name> = <param_value>) style call */
+            symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
+            
+            /* Get the value from a foo(<param_value>) style call */
+            if (IN_param_value == NULL)
+              IN_param_value = function_call_param_iterator.next();
+            symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
+            last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
+            
+            if (typeid(*last_type_symbol) == typeid(dt_type_name_c))
+            {
+        
+                symbol_c * return_type_symbol = &search_constant_type_c::lreal_type_name;
+                s4o.print("(");
+                return_type_symbol->accept(*this);
+                s4o.print(")time_to_real(");
+                IN_param_value->accept(*this);
+                s4o.print(")");
+                return NULL;
+                
+            }
+            
+            ERROR;
+        }
+        
+    }/*function_dt_to_lreal*/
+    break;
 
 /****
  *DT_TO_SINT
  */
-	case function_dt_to_sint :
-	{
-		symbol_c *last_type_symbol = NULL;
-
-		{
-			identifier_c param_name("IN");
-			/* Get the value from a foo(<param_name> = <param_value>) style call */
-			symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
-			
-			/* Get the value from a foo(<param_value>) style call */
-			if (IN_param_value == NULL)
-			  IN_param_value = function_call_param_iterator.next();
-			symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
-			last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
-			
-			if (typeid(*last_type_symbol) == typeid(dt_type_name_c))
-			{
-		
-				symbol_c * return_type_symbol = &search_constant_type_c::sint_type_name;
-				s4o.print("(");
-				return_type_symbol->accept(*this);
-				s4o.print(")real_to_time(");
-				IN_param_value->accept(*this);
-				s4o.print(")");
-				return NULL;
-				
-			}
-			
-			ERROR;
-		}
-		
-	}/*function_dt_to_sint*/
-	break;
+    case function_dt_to_sint :
+    {
+        symbol_c *last_type_symbol = NULL;
+
+        {
+            identifier_c param_name("IN");
+            /* Get the value from a foo(<param_name> = <param_value>) style call */
+            symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
+            
+            /* Get the value from a foo(<param_value>) style call */
+            if (IN_param_value == NULL)
+              IN_param_value = function_call_param_iterator.next();
+            symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
+            last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
+            
+            if (typeid(*last_type_symbol) == typeid(dt_type_name_c))
+            {
+        
+                symbol_c * return_type_symbol = &search_constant_type_c::sint_type_name;
+                s4o.print("(");
+                return_type_symbol->accept(*this);
+                s4o.print(")time_to_real(");
+                IN_param_value->accept(*this);
+                s4o.print(")");
+                return NULL;
+                
+            }
+            
+            ERROR;
+        }
+        
+    }/*function_dt_to_sint*/
+    break;
+
+/****
+ *DT_TO_INT
+ */
+    case function_dt_to_int :
+    {
+        symbol_c *last_type_symbol = NULL;
+
+        {
+            identifier_c param_name("IN");
+            /* Get the value from a foo(<param_name> = <param_value>) style call */
+            symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
+            
+            /* Get the value from a foo(<param_value>) style call */
+            if (IN_param_value == NULL)
+              IN_param_value = function_call_param_iterator.next();
+            symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
+            last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
+            
+            if (typeid(*last_type_symbol) == typeid(dt_type_name_c))
+            {
+        
+                symbol_c * return_type_symbol = &search_constant_type_c::int_type_name;
+                s4o.print("(");
+                return_type_symbol->accept(*this);
+                s4o.print(")time_to_real(");
+                IN_param_value->accept(*this);
+                s4o.print(")");
+                return NULL;
+                
+            }
+            
+            ERROR;
+        }
+        
+    }/*function_dt_to_int*/
+    break;
+
+/****
+ *DT_TO_DINT
+ */
+    case function_dt_to_dint :
+    {
+        symbol_c *last_type_symbol = NULL;
+
+        {
+            identifier_c param_name("IN");
+            /* Get the value from a foo(<param_name> = <param_value>) style call */
+            symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
+            
+            /* Get the value from a foo(<param_value>) style call */
+            if (IN_param_value == NULL)
+              IN_param_value = function_call_param_iterator.next();
+            symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
+            last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
+            
+            if (typeid(*last_type_symbol) == typeid(dt_type_name_c))
+            {
+        
+                symbol_c * return_type_symbol = &search_constant_type_c::dint_type_name;
+                s4o.print("(");
+                return_type_symbol->accept(*this);
+                s4o.print(")time_to_real(");
+                IN_param_value->accept(*this);
+                s4o.print(")");
+                return NULL;
+                
+            }
+            
+            ERROR;
+        }
+        
+    }/*function_dt_to_dint*/
+    break;
 
 /****
  *DT_TO_LINT
  */
-	case function_dt_to_lint :
-	{
-		symbol_c *last_type_symbol = NULL;
-
-		{
-			identifier_c param_name("IN");
-			/* Get the value from a foo(<param_name> = <param_value>) style call */
-			symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
-			
-			/* Get the value from a foo(<param_value>) style call */
-			if (IN_param_value == NULL)
-			  IN_param_value = function_call_param_iterator.next();
-			symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
-			last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
-			
-			if (typeid(*last_type_symbol) == typeid(dt_type_name_c))
-			{
-		
-				symbol_c * return_type_symbol = &search_constant_type_c::lint_type_name;
-				s4o.print("(");
-				return_type_symbol->accept(*this);
-				s4o.print(")real_to_time(");
-				IN_param_value->accept(*this);
-				s4o.print(")");
-				return NULL;
-				
-			}
-			
-			ERROR;
-		}
-		
-	}/*function_dt_to_lint*/
-	break;
-
-/****
- *DT_TO_DINT
- */
-	case function_dt_to_dint :
-	{
-		symbol_c *last_type_symbol = NULL;
-
-		{
-			identifier_c param_name("IN");
-			/* Get the value from a foo(<param_name> = <param_value>) style call */
-			symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
-			
-			/* Get the value from a foo(<param_value>) style call */
-			if (IN_param_value == NULL)
-			  IN_param_value = function_call_param_iterator.next();
-			symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
-			last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
-			
-			if (typeid(*last_type_symbol) == typeid(dt_type_name_c))
-			{
-		
-				symbol_c * return_type_symbol = &search_constant_type_c::dint_type_name;
-				s4o.print("(");
-				return_type_symbol->accept(*this);
-				s4o.print(")real_to_time(");
-				IN_param_value->accept(*this);
-				s4o.print(")");
-				return NULL;
-				
-			}
-			
-			ERROR;
-		}
-		
-	}/*function_dt_to_dint*/
-	break;
-
-/****
- *DT_TO_DATE
- */
-	case function_dt_to_date :
-	{
-		symbol_c *last_type_symbol = NULL;
-
-		{
-			identifier_c param_name("IN");
-			/* Get the value from a foo(<param_name> = <param_value>) style call */
-			symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
-			
-			/* Get the value from a foo(<param_value>) style call */
-			if (IN_param_value == NULL)
-			  IN_param_value = function_call_param_iterator.next();
-			symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
-			last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
-			
-			if (typeid(*last_type_symbol) == typeid(dt_type_name_c))
-			{
-		
-				symbol_c * return_type_symbol = &search_constant_type_c::date_type_name;
-				s4o.print("#error DT_TO_DATE not implemented!");
-				return NULL;
-				
-			}
-			
-			ERROR;
-		}
-		
-	}/*function_dt_to_date*/
-	break;
+    case function_dt_to_lint :
+    {
+        symbol_c *last_type_symbol = NULL;
+
+        {
+            identifier_c param_name("IN");
+            /* Get the value from a foo(<param_name> = <param_value>) style call */
+            symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
+            
+            /* Get the value from a foo(<param_value>) style call */
+            if (IN_param_value == NULL)
+              IN_param_value = function_call_param_iterator.next();
+            symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
+            last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
+            
+            if (typeid(*last_type_symbol) == typeid(dt_type_name_c))
+            {
+        
+                symbol_c * return_type_symbol = &search_constant_type_c::lint_type_name;
+                s4o.print("(");
+                return_type_symbol->accept(*this);
+                s4o.print(")time_to_real(");
+                IN_param_value->accept(*this);
+                s4o.print(")");
+                return NULL;
+                
+            }
+            
+            ERROR;
+        }
+        
+    }/*function_dt_to_lint*/
+    break;
+
+/****
+ *DT_TO_USINT
+ */
+    case function_dt_to_usint :
+    {
+        symbol_c *last_type_symbol = NULL;
+
+        {
+            identifier_c param_name("IN");
+            /* Get the value from a foo(<param_name> = <param_value>) style call */
+            symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
+            
+            /* Get the value from a foo(<param_value>) style call */
+            if (IN_param_value == NULL)
+              IN_param_value = function_call_param_iterator.next();
+            symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
+            last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
+            
+            if (typeid(*last_type_symbol) == typeid(dt_type_name_c))
+            {
+        
+                symbol_c * return_type_symbol = &search_constant_type_c::usint_type_name;
+                s4o.print("(");
+                return_type_symbol->accept(*this);
+                s4o.print(")time_to_real(");
+                IN_param_value->accept(*this);
+                s4o.print(")");
+                return NULL;
+                
+            }
+            
+            ERROR;
+        }
+        
+    }/*function_dt_to_usint*/
+    break;
+
+/****
+ *DT_TO_UINT
+ */
+    case function_dt_to_uint :
+    {
+        symbol_c *last_type_symbol = NULL;
+
+        {
+            identifier_c param_name("IN");
+            /* Get the value from a foo(<param_name> = <param_value>) style call */
+            symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
+            
+            /* Get the value from a foo(<param_value>) style call */
+            if (IN_param_value == NULL)
+              IN_param_value = function_call_param_iterator.next();
+            symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
+            last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
+            
+            if (typeid(*last_type_symbol) == typeid(dt_type_name_c))
+            {
+        
+                symbol_c * return_type_symbol = &search_constant_type_c::uint_type_name;
+                s4o.print("(");
+                return_type_symbol->accept(*this);
+                s4o.print(")time_to_real(");
+                IN_param_value->accept(*this);
+                s4o.print(")");
+                return NULL;
+                
+            }
+            
+            ERROR;
+        }
+        
+    }/*function_dt_to_uint*/
+    break;
+
+/****
+ *DT_TO_UDINT
+ */
+    case function_dt_to_udint :
+    {
+        symbol_c *last_type_symbol = NULL;
+
+        {
+            identifier_c param_name("IN");
+            /* Get the value from a foo(<param_name> = <param_value>) style call */
+            symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
+            
+            /* Get the value from a foo(<param_value>) style call */
+            if (IN_param_value == NULL)
+              IN_param_value = function_call_param_iterator.next();
+            symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
+            last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
+            
+            if (typeid(*last_type_symbol) == typeid(dt_type_name_c))
+            {
+        
+                symbol_c * return_type_symbol = &search_constant_type_c::udint_type_name;
+                s4o.print("(");
+                return_type_symbol->accept(*this);
+                s4o.print(")time_to_real(");
+                IN_param_value->accept(*this);
+                s4o.print(")");
+                return NULL;
+                
+            }
+            
+            ERROR;
+        }
+        
+    }/*function_dt_to_udint*/
+    break;
+
+/****
+ *DT_TO_ULINT
+ */
+    case function_dt_to_ulint :
+    {
+        symbol_c *last_type_symbol = NULL;
+
+        {
+            identifier_c param_name("IN");
+            /* Get the value from a foo(<param_name> = <param_value>) style call */
+            symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
+            
+            /* Get the value from a foo(<param_value>) style call */
+            if (IN_param_value == NULL)
+              IN_param_value = function_call_param_iterator.next();
+            symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
+            last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
+            
+            if (typeid(*last_type_symbol) == typeid(dt_type_name_c))
+            {
+        
+                symbol_c * return_type_symbol = &search_constant_type_c::ulint_type_name;
+                s4o.print("(");
+                return_type_symbol->accept(*this);
+                s4o.print(")time_to_real(");
+                IN_param_value->accept(*this);
+                s4o.print(")");
+                return NULL;
+                
+            }
+            
+            ERROR;
+        }
+        
+    }/*function_dt_to_ulint*/
+    break;
+
+/****
+ *DT_TO_BOOL
+ */
+    case function_dt_to_bool :
+    {
+        symbol_c *last_type_symbol = NULL;
+
+        {
+            identifier_c param_name("IN");
+            /* Get the value from a foo(<param_name> = <param_value>) style call */
+            symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
+            
+            /* Get the value from a foo(<param_value>) style call */
+            if (IN_param_value == NULL)
+              IN_param_value = function_call_param_iterator.next();
+            symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
+            last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
+            
+            if (typeid(*last_type_symbol) == typeid(dt_type_name_c))
+            {
+        
+                symbol_c * return_type_symbol = &search_constant_type_c::bool_type_name;
+                s4o.print("(");
+                return_type_symbol->accept(*this);
+                s4o.print(")time_to_real(");
+                IN_param_value->accept(*this);
+                s4o.print(")");
+                return NULL;
+                
+            }
+            
+            ERROR;
+        }
+        
+    }/*function_dt_to_bool*/
+    break;
+
+/****
+ *DT_TO_BYTE
+ */
+    case function_dt_to_byte :
+    {
+        symbol_c *last_type_symbol = NULL;
+
+        {
+            identifier_c param_name("IN");
+            /* Get the value from a foo(<param_name> = <param_value>) style call */
+            symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
+            
+            /* Get the value from a foo(<param_value>) style call */
+            if (IN_param_value == NULL)
+              IN_param_value = function_call_param_iterator.next();
+            symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
+            last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
+            
+            if (typeid(*last_type_symbol) == typeid(dt_type_name_c))
+            {
+        
+                symbol_c * return_type_symbol = &search_constant_type_c::byte_type_name;
+                s4o.print("(");
+                return_type_symbol->accept(*this);
+                s4o.print(")time_to_real(");
+                IN_param_value->accept(*this);
+                s4o.print(")");
+                return NULL;
+                
+            }
+            
+            ERROR;
+        }
+        
+    }/*function_dt_to_byte*/
+    break;
+
+/****
+ *DT_TO_WORD
+ */
+    case function_dt_to_word :
+    {
+        symbol_c *last_type_symbol = NULL;
+
+        {
+            identifier_c param_name("IN");
+            /* Get the value from a foo(<param_name> = <param_value>) style call */
+            symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
+            
+            /* Get the value from a foo(<param_value>) style call */
+            if (IN_param_value == NULL)
+              IN_param_value = function_call_param_iterator.next();
+            symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
+            last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
+            
+            if (typeid(*last_type_symbol) == typeid(dt_type_name_c))
+            {
+        
+                symbol_c * return_type_symbol = &search_constant_type_c::word_type_name;
+                s4o.print("(");
+                return_type_symbol->accept(*this);
+                s4o.print(")time_to_real(");
+                IN_param_value->accept(*this);
+                s4o.print(")");
+                return NULL;
+                
+            }
+            
+            ERROR;
+        }
+        
+    }/*function_dt_to_word*/
+    break;
 
 /****
  *DT_TO_DWORD
  */
-	case function_dt_to_dword :
-	{
-		symbol_c *last_type_symbol = NULL;
-
-		{
-			identifier_c param_name("IN");
-			/* Get the value from a foo(<param_name> = <param_value>) style call */
-			symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
-			
-			/* Get the value from a foo(<param_value>) style call */
-			if (IN_param_value == NULL)
-			  IN_param_value = function_call_param_iterator.next();
-			symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
-			last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
-			
-			if (typeid(*last_type_symbol) == typeid(dt_type_name_c))
-			{
-		
-				symbol_c * return_type_symbol = &search_constant_type_c::dword_type_name;
-				s4o.print("(");
-				return_type_symbol->accept(*this);
-				s4o.print(")real_to_time(");
-				IN_param_value->accept(*this);
-				s4o.print(")");
-				return NULL;
-				
-			}
-			
-			ERROR;
-		}
-		
-	}/*function_dt_to_dword*/
-	break;
-
-/****
- *DT_TO_DT
- */
-	case function_dt_to_dt :
-	{
-		symbol_c *last_type_symbol = NULL;
-
-		{
-			identifier_c param_name("IN");
-			/* Get the value from a foo(<param_name> = <param_value>) style call */
-			symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
-			
-			/* Get the value from a foo(<param_value>) style call */
-			if (IN_param_value == NULL)
-			  IN_param_value = function_call_param_iterator.next();
-			symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
-			last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
-			
-			if (typeid(*last_type_symbol) == typeid(dt_type_name_c))
-			{
-		
-				symbol_c * return_type_symbol = &search_constant_type_c::dt_type_name;
-				s4o.print("#error DT_TO_DT not implemented!");
-				return NULL;
-				
-			}
-			
-			ERROR;
-		}
-		
-	}/*function_dt_to_dt*/
-	break;
-
-/****
- *DT_TO_TOD
- */
-	case function_dt_to_tod :
-	{
-		symbol_c *last_type_symbol = NULL;
-
-		{
-			identifier_c param_name("IN");
-			/* Get the value from a foo(<param_name> = <param_value>) style call */
-			symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
-			
-			/* Get the value from a foo(<param_value>) style call */
-			if (IN_param_value == NULL)
-			  IN_param_value = function_call_param_iterator.next();
-			symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
-			last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
-			
-			if (typeid(*last_type_symbol) == typeid(dt_type_name_c))
-			{
-		
-				symbol_c * return_type_symbol = &search_constant_type_c::tod_type_name;
-				s4o.print("#error DT_TO_TOD not implemented!");
-				return NULL;
-				
-			}
-			
-			ERROR;
-		}
-		
-	}/*function_dt_to_tod*/
-	break;
-
-/****
- *DT_TO_UDINT
- */
-	case function_dt_to_udint :
-	{
-		symbol_c *last_type_symbol = NULL;
-
-		{
-			identifier_c param_name("IN");
-			/* Get the value from a foo(<param_name> = <param_value>) style call */
-			symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
-			
-			/* Get the value from a foo(<param_value>) style call */
-			if (IN_param_value == NULL)
-			  IN_param_value = function_call_param_iterator.next();
-			symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
-			last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
-			
-			if (typeid(*last_type_symbol) == typeid(dt_type_name_c))
-			{
-		
-				symbol_c * return_type_symbol = &search_constant_type_c::udint_type_name;
-				s4o.print("(");
-				return_type_symbol->accept(*this);
-				s4o.print(")real_to_time(");
-				IN_param_value->accept(*this);
-				s4o.print(")");
-				return NULL;
-				
-			}
-			
-			ERROR;
-		}
-		
-	}/*function_dt_to_udint*/
-	break;
-
-/****
- *DT_TO_WORD
- */
-	case function_dt_to_word :
-	{
-		symbol_c *last_type_symbol = NULL;
-
-		{
-			identifier_c param_name("IN");
-			/* Get the value from a foo(<param_name> = <param_value>) style call */
-			symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
-			
-			/* Get the value from a foo(<param_value>) style call */
-			if (IN_param_value == NULL)
-			  IN_param_value = function_call_param_iterator.next();
-			symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
-			last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
-			
-			if (typeid(*last_type_symbol) == typeid(dt_type_name_c))
-			{
-		
-				symbol_c * return_type_symbol = &search_constant_type_c::word_type_name;
-				s4o.print("(");
-				return_type_symbol->accept(*this);
-				s4o.print(")real_to_time(");
-				IN_param_value->accept(*this);
-				s4o.print(")");
-				return NULL;
-				
-			}
-			
-			ERROR;
-		}
-		
-	}/*function_dt_to_word*/
-	break;
+    case function_dt_to_dword :
+    {
+        symbol_c *last_type_symbol = NULL;
+
+        {
+            identifier_c param_name("IN");
+            /* Get the value from a foo(<param_name> = <param_value>) style call */
+            symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
+            
+            /* Get the value from a foo(<param_value>) style call */
+            if (IN_param_value == NULL)
+              IN_param_value = function_call_param_iterator.next();
+            symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
+            last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
+            
+            if (typeid(*last_type_symbol) == typeid(dt_type_name_c))
+            {
+        
+                symbol_c * return_type_symbol = &search_constant_type_c::dword_type_name;
+                s4o.print("(");
+                return_type_symbol->accept(*this);
+                s4o.print(")time_to_real(");
+                IN_param_value->accept(*this);
+                s4o.print(")");
+                return NULL;
+                
+            }
+            
+            ERROR;
+        }
+        
+    }/*function_dt_to_dword*/
+    break;
+
+/****
+ *DT_TO_LWORD
+ */
+    case function_dt_to_lword :
+    {
+        symbol_c *last_type_symbol = NULL;
+
+        {
+            identifier_c param_name("IN");
+            /* Get the value from a foo(<param_name> = <param_value>) style call */
+            symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
+            
+            /* Get the value from a foo(<param_value>) style call */
+            if (IN_param_value == NULL)
+              IN_param_value = function_call_param_iterator.next();
+            symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
+            last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
+            
+            if (typeid(*last_type_symbol) == typeid(dt_type_name_c))
+            {
+        
+                symbol_c * return_type_symbol = &search_constant_type_c::lword_type_name;
+                s4o.print("(");
+                return_type_symbol->accept(*this);
+                s4o.print(")time_to_real(");
+                IN_param_value->accept(*this);
+                s4o.print(")");
+                return NULL;
+                
+            }
+            
+            ERROR;
+        }
+        
+    }/*function_dt_to_lword*/
+    break;
+
+/****
+ *DT_TO_STRING
+ */
+    case function_dt_to_string :
+    {
+        symbol_c *last_type_symbol = NULL;
+
+        {
+            identifier_c param_name("IN");
+            /* Get the value from a foo(<param_name> = <param_value>) style call */
+            symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
+            
+            /* Get the value from a foo(<param_value>) style call */
+            if (IN_param_value == NULL)
+              IN_param_value = function_call_param_iterator.next();
+            symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
+            last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
+            
+            if (typeid(*last_type_symbol) == typeid(dt_type_name_c))
+            {
+        
+                symbol_c * return_type_symbol = &search_constant_type_c::string_type_name;
+                s4o.print("(");
+                return_type_symbol->accept(*this);
+                s4o.print(")time_to_string(");
+                IN_param_value->accept(*this);
+                s4o.print(")");
+                return NULL;
+                
+            }
+            
+            ERROR;
+        }
+        
+    }/*function_dt_to_string*/
+    break;
 
 /****
  *DT_TO_WSTRING
  */
-	case function_dt_to_wstring :
-	{
-		symbol_c *last_type_symbol = NULL;
-
-		{
-			identifier_c param_name("IN");
-			/* Get the value from a foo(<param_name> = <param_value>) style call */
-			symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
-			
-			/* Get the value from a foo(<param_value>) style call */
-			if (IN_param_value == NULL)
-			  IN_param_value = function_call_param_iterator.next();
-			symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
-			last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
-			
-			if (typeid(*last_type_symbol) == typeid(dt_type_name_c))
-			{
-		
-				symbol_c * return_type_symbol = &search_constant_type_c::wstring_type_name;
-				s4o.print("(");
-				return_type_symbol->accept(*this);
-				s4o.print(")string_to_time(");
-				IN_param_value->accept(*this);
-				s4o.print(")");
-				return NULL;
-				
-			}
-			
-			ERROR;
-		}
-		
-	}/*function_dt_to_wstring*/
-	break;
-
-/****
- *DT_TO_STRING
- */
-	case function_dt_to_string :
-	{
-		symbol_c *last_type_symbol = NULL;
-
-		{
-			identifier_c param_name("IN");
-			/* Get the value from a foo(<param_name> = <param_value>) style call */
-			symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
-			
-			/* Get the value from a foo(<param_value>) style call */
-			if (IN_param_value == NULL)
-			  IN_param_value = function_call_param_iterator.next();
-			symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
-			last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
-			
-			if (typeid(*last_type_symbol) == typeid(dt_type_name_c))
-			{
-		
-				symbol_c * return_type_symbol = &search_constant_type_c::string_type_name;
-				s4o.print("(");
-				return_type_symbol->accept(*this);
-				s4o.print(")string_to_time(");
-				IN_param_value->accept(*this);
-				s4o.print(")");
-				return NULL;
-				
-			}
-			
-			ERROR;
-		}
-		
-	}/*function_dt_to_string*/
-	break;
-
-/****
- *DT_TO_LWORD
- */
-	case function_dt_to_lword :
-	{
-		symbol_c *last_type_symbol = NULL;
-
-		{
-			identifier_c param_name("IN");
-			/* Get the value from a foo(<param_name> = <param_value>) style call */
-			symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
-			
-			/* Get the value from a foo(<param_value>) style call */
-			if (IN_param_value == NULL)
-			  IN_param_value = function_call_param_iterator.next();
-			symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
-			last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
-			
-			if (typeid(*last_type_symbol) == typeid(dt_type_name_c))
-			{
-		
-				symbol_c * return_type_symbol = &search_constant_type_c::lword_type_name;
-				s4o.print("(");
-				return_type_symbol->accept(*this);
-				s4o.print(")real_to_time(");
-				IN_param_value->accept(*this);
-				s4o.print(")");
-				return NULL;
-				
-			}
-			
-			ERROR;
-		}
-		
-	}/*function_dt_to_lword*/
-	break;
-
-/****
- *DT_TO_UINT
- */
-	case function_dt_to_uint :
-	{
-		symbol_c *last_type_symbol = NULL;
-
-		{
-			identifier_c param_name("IN");
-			/* Get the value from a foo(<param_name> = <param_value>) style call */
-			symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
-			
-			/* Get the value from a foo(<param_value>) style call */
-			if (IN_param_value == NULL)
-			  IN_param_value = function_call_param_iterator.next();
-			symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
-			last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
-			
-			if (typeid(*last_type_symbol) == typeid(dt_type_name_c))
-			{
-		
-				symbol_c * return_type_symbol = &search_constant_type_c::uint_type_name;
-				s4o.print("(");
-				return_type_symbol->accept(*this);
-				s4o.print(")real_to_time(");
-				IN_param_value->accept(*this);
-				s4o.print(")");
-				return NULL;
-				
-			}
-			
-			ERROR;
-		}
-		
-	}/*function_dt_to_uint*/
-	break;
-
-/****
- *DT_TO_LREAL
- */
-	case function_dt_to_lreal :
-	{
-		symbol_c *last_type_symbol = NULL;
-
-		{
-			identifier_c param_name("IN");
-			/* Get the value from a foo(<param_name> = <param_value>) style call */
-			symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
-			
-			/* Get the value from a foo(<param_value>) style call */
-			if (IN_param_value == NULL)
-			  IN_param_value = function_call_param_iterator.next();
-			symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
-			last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
-			
-			if (typeid(*last_type_symbol) == typeid(dt_type_name_c))
-			{
-		
-				symbol_c * return_type_symbol = &search_constant_type_c::lreal_type_name;
-				s4o.print("(");
-				return_type_symbol->accept(*this);
-				s4o.print(")real_to_time(");
-				IN_param_value->accept(*this);
-				s4o.print(")");
-				return NULL;
-				
-			}
-			
-			ERROR;
-		}
-		
-	}/*function_dt_to_lreal*/
-	break;
-
-/****
- *DT_TO_BYTE
- */
-	case function_dt_to_byte :
-	{
-		symbol_c *last_type_symbol = NULL;
-
-		{
-			identifier_c param_name("IN");
-			/* Get the value from a foo(<param_name> = <param_value>) style call */
-			symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
-			
-			/* Get the value from a foo(<param_value>) style call */
-			if (IN_param_value == NULL)
-			  IN_param_value = function_call_param_iterator.next();
-			symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
-			last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
-			
-			if (typeid(*last_type_symbol) == typeid(dt_type_name_c))
-			{
-		
-				symbol_c * return_type_symbol = &search_constant_type_c::byte_type_name;
-				s4o.print("(");
-				return_type_symbol->accept(*this);
-				s4o.print(")real_to_time(");
-				IN_param_value->accept(*this);
-				s4o.print(")");
-				return NULL;
-				
-			}
-			
-			ERROR;
-		}
-		
-	}/*function_dt_to_byte*/
-	break;
-
-/****
- *DT_TO_USINT
- */
-	case function_dt_to_usint :
-	{
-		symbol_c *last_type_symbol = NULL;
-
-		{
-			identifier_c param_name("IN");
-			/* Get the value from a foo(<param_name> = <param_value>) style call */
-			symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
-			
-			/* Get the value from a foo(<param_value>) style call */
-			if (IN_param_value == NULL)
-			  IN_param_value = function_call_param_iterator.next();
-			symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
-			last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
-			
-			if (typeid(*last_type_symbol) == typeid(dt_type_name_c))
-			{
-		
-				symbol_c * return_type_symbol = &search_constant_type_c::usint_type_name;
-				s4o.print("(");
-				return_type_symbol->accept(*this);
-				s4o.print(")real_to_time(");
-				IN_param_value->accept(*this);
-				s4o.print(")");
-				return NULL;
-				
-			}
-			
-			ERROR;
-		}
-		
-	}/*function_dt_to_usint*/
-	break;
-
-/****
- *DT_TO_ULINT
- */
-	case function_dt_to_ulint :
-	{
-		symbol_c *last_type_symbol = NULL;
-
-		{
-			identifier_c param_name("IN");
-			/* Get the value from a foo(<param_name> = <param_value>) style call */
-			symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
-			
-			/* Get the value from a foo(<param_value>) style call */
-			if (IN_param_value == NULL)
-			  IN_param_value = function_call_param_iterator.next();
-			symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
-			last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
-			
-			if (typeid(*last_type_symbol) == typeid(dt_type_name_c))
-			{
-		
-				symbol_c * return_type_symbol = &search_constant_type_c::ulint_type_name;
-				s4o.print("(");
-				return_type_symbol->accept(*this);
-				s4o.print(")real_to_time(");
-				IN_param_value->accept(*this);
-				s4o.print(")");
-				return NULL;
-				
-			}
-			
-			ERROR;
-		}
-		
-	}/*function_dt_to_ulint*/
-	break;
-
-/****
- *DT_TO_BOOL
- */
-	case function_dt_to_bool :
-	{
-		symbol_c *last_type_symbol = NULL;
-
-		{
-			identifier_c param_name("IN");
-			/* Get the value from a foo(<param_name> = <param_value>) style call */
-			symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
-			
-			/* Get the value from a foo(<param_value>) style call */
-			if (IN_param_value == NULL)
-			  IN_param_value = function_call_param_iterator.next();
-			symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
-			last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
-			
-			if (typeid(*last_type_symbol) == typeid(dt_type_name_c))
-			{
-		
-				symbol_c * return_type_symbol = &search_constant_type_c::bool_type_name;
-				s4o.print("(");
-				return_type_symbol->accept(*this);
-				s4o.print(")real_to_time(");
-				IN_param_value->accept(*this);
-				s4o.print(")");
-				return NULL;
-				
-			}
-			
-			ERROR;
-		}
-		
-	}/*function_dt_to_bool*/
-	break;
-
-/****
- *DT_TO_TIME
- */
-	case function_dt_to_time :
-	{
-		symbol_c *last_type_symbol = NULL;
-
-		{
-			identifier_c param_name("IN");
-			/* Get the value from a foo(<param_name> = <param_value>) style call */
-			symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
-			
-			/* Get the value from a foo(<param_value>) style call */
-			if (IN_param_value == NULL)
-			  IN_param_value = function_call_param_iterator.next();
-			symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
-			last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
-			
-			if (typeid(*last_type_symbol) == typeid(dt_type_name_c))
-			{
-		
-				symbol_c * return_type_symbol = &search_constant_type_c::time_type_name;
-				s4o.print("#error DT_TO_TIME not implemented!");
-				return NULL;
-				
-			}
-			
-			ERROR;
-		}
-		
-	}/*function_dt_to_time*/
-	break;
-
-/****
- *DT_TO_INT
- */
-	case function_dt_to_int :
-	{
-		symbol_c *last_type_symbol = NULL;
-
-		{
-			identifier_c param_name("IN");
-			/* Get the value from a foo(<param_name> = <param_value>) style call */
-			symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
-			
-			/* Get the value from a foo(<param_value>) style call */
-			if (IN_param_value == NULL)
-			  IN_param_value = function_call_param_iterator.next();
-			symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
-			last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
-			
-			if (typeid(*last_type_symbol) == typeid(dt_type_name_c))
-			{
-		
-				symbol_c * return_type_symbol = &search_constant_type_c::int_type_name;
-				s4o.print("(");
-				return_type_symbol->accept(*this);
-				s4o.print(")real_to_time(");
-				IN_param_value->accept(*this);
-				s4o.print(")");
-				return NULL;
-				
-			}
-			
-			ERROR;
-		}
-		
-	}/*function_dt_to_int*/
-	break;
-
-/****
- *TOD_TO_REAL
- */
-	case function_tod_to_real :
-	{
-		symbol_c *last_type_symbol = NULL;
-
-		{
-			identifier_c param_name("IN");
-			/* Get the value from a foo(<param_name> = <param_value>) style call */
-			symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
-			
-			/* Get the value from a foo(<param_value>) style call */
-			if (IN_param_value == NULL)
-			  IN_param_value = function_call_param_iterator.next();
-			symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
-			last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
-			
-			if (typeid(*last_type_symbol) == typeid(tod_type_name_c))
-			{
-		
-				symbol_c * return_type_symbol = &search_constant_type_c::real_type_name;
-				s4o.print("(");
-				return_type_symbol->accept(*this);
-				s4o.print(")real_to_time(");
-				IN_param_value->accept(*this);
-				s4o.print(")");
-				return NULL;
-				
-			}
-			
-			ERROR;
-		}
-		
-	}/*function_tod_to_real*/
-	break;
-
-/****
- *TOD_TO_SINT
- */
-	case function_tod_to_sint :
-	{
-		symbol_c *last_type_symbol = NULL;
-
-		{
-			identifier_c param_name("IN");
-			/* Get the value from a foo(<param_name> = <param_value>) style call */
-			symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
-			
-			/* Get the value from a foo(<param_value>) style call */
-			if (IN_param_value == NULL)
-			  IN_param_value = function_call_param_iterator.next();
-			symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
-			last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
-			
-			if (typeid(*last_type_symbol) == typeid(tod_type_name_c))
-			{
-		
-				symbol_c * return_type_symbol = &search_constant_type_c::sint_type_name;
-				s4o.print("(");
-				return_type_symbol->accept(*this);
-				s4o.print(")real_to_time(");
-				IN_param_value->accept(*this);
-				s4o.print(")");
-				return NULL;
-				
-			}
-			
-			ERROR;
-		}
-		
-	}/*function_tod_to_sint*/
-	break;
-
-/****
- *TOD_TO_LINT
- */
-	case function_tod_to_lint :
-	{
-		symbol_c *last_type_symbol = NULL;
-
-		{
-			identifier_c param_name("IN");
-			/* Get the value from a foo(<param_name> = <param_value>) style call */
-			symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
-			
-			/* Get the value from a foo(<param_value>) style call */
-			if (IN_param_value == NULL)
-			  IN_param_value = function_call_param_iterator.next();
-			symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
-			last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
-			
-			if (typeid(*last_type_symbol) == typeid(tod_type_name_c))
-			{
-		
-				symbol_c * return_type_symbol = &search_constant_type_c::lint_type_name;
-				s4o.print("(");
-				return_type_symbol->accept(*this);
-				s4o.print(")real_to_time(");
-				IN_param_value->accept(*this);
-				s4o.print(")");
-				return NULL;
-				
-			}
-			
-			ERROR;
-		}
-		
-	}/*function_tod_to_lint*/
-	break;
-
-/****
- *TOD_TO_DINT
- */
-	case function_tod_to_dint :
-	{
-		symbol_c *last_type_symbol = NULL;
-
-		{
-			identifier_c param_name("IN");
-			/* Get the value from a foo(<param_name> = <param_value>) style call */
-			symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
-			
-			/* Get the value from a foo(<param_value>) style call */
-			if (IN_param_value == NULL)
-			  IN_param_value = function_call_param_iterator.next();
-			symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
-			last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
-			
-			if (typeid(*last_type_symbol) == typeid(tod_type_name_c))
-			{
-		
-				symbol_c * return_type_symbol = &search_constant_type_c::dint_type_name;
-				s4o.print("(");
-				return_type_symbol->accept(*this);
-				s4o.print(")real_to_time(");
-				IN_param_value->accept(*this);
-				s4o.print(")");
-				return NULL;
-				
-			}
-			
-			ERROR;
-		}
-		
-	}/*function_tod_to_dint*/
-	break;
-
-/****
- *TOD_TO_DATE
- */
-	case function_tod_to_date :
-	{
-		symbol_c *last_type_symbol = NULL;
-
-		{
-			identifier_c param_name("IN");
-			/* Get the value from a foo(<param_name> = <param_value>) style call */
-			symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
-			
-			/* Get the value from a foo(<param_value>) style call */
-			if (IN_param_value == NULL)
-			  IN_param_value = function_call_param_iterator.next();
-			symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
-			last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
-			
-			if (typeid(*last_type_symbol) == typeid(tod_type_name_c))
-			{
-		
-				symbol_c * return_type_symbol = &search_constant_type_c::date_type_name;
-				s4o.print("#error TOD_TO_DATE not implemented!");
-				return NULL;
-				
-			}
-			
-			ERROR;
-		}
-		
-	}/*function_tod_to_date*/
-	break;
-
-/****
- *TOD_TO_DWORD
- */
-	case function_tod_to_dword :
-	{
-		symbol_c *last_type_symbol = NULL;
-
-		{
-			identifier_c param_name("IN");
-			/* Get the value from a foo(<param_name> = <param_value>) style call */
-			symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
-			
-			/* Get the value from a foo(<param_value>) style call */
-			if (IN_param_value == NULL)
-			  IN_param_value = function_call_param_iterator.next();
-			symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
-			last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
-			
-			if (typeid(*last_type_symbol) == typeid(tod_type_name_c))
-			{
-		
-				symbol_c * return_type_symbol = &search_constant_type_c::dword_type_name;
-				s4o.print("(");
-				return_type_symbol->accept(*this);
-				s4o.print(")real_to_time(");
-				IN_param_value->accept(*this);
-				s4o.print(")");
-				return NULL;
-				
-			}
-			
-			ERROR;
-		}
-		
-	}/*function_tod_to_dword*/
-	break;
-
-/****
- *TOD_TO_DT
- */
-	case function_tod_to_dt :
-	{
-		symbol_c *last_type_symbol = NULL;
-
-		{
-			identifier_c param_name("IN");
-			/* Get the value from a foo(<param_name> = <param_value>) style call */
-			symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
-			
-			/* Get the value from a foo(<param_value>) style call */
-			if (IN_param_value == NULL)
-			  IN_param_value = function_call_param_iterator.next();
-			symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
-			last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
-			
-			if (typeid(*last_type_symbol) == typeid(tod_type_name_c))
-			{
-		
-				symbol_c * return_type_symbol = &search_constant_type_c::dt_type_name;
-				s4o.print("#error TOD_TO_DT not implemented!");
-				return NULL;
-				
-			}
-			
-			ERROR;
-		}
-		
-	}/*function_tod_to_dt*/
-	break;
-
-/****
- *TOD_TO_TOD
- */
-	case function_tod_to_tod :
-	{
-		symbol_c *last_type_symbol = NULL;
-
-		{
-			identifier_c param_name("IN");
-			/* Get the value from a foo(<param_name> = <param_value>) style call */
-			symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
-			
-			/* Get the value from a foo(<param_value>) style call */
-			if (IN_param_value == NULL)
-			  IN_param_value = function_call_param_iterator.next();
-			symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
-			last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
-			
-			if (typeid(*last_type_symbol) == typeid(tod_type_name_c))
-			{
-		
-				symbol_c * return_type_symbol = &search_constant_type_c::tod_type_name;
-				s4o.print("#error TOD_TO_TOD not implemented!");
-				return NULL;
-				
-			}
-			
-			ERROR;
-		}
-		
-	}/*function_tod_to_tod*/
-	break;
-
-/****
- *TOD_TO_UDINT
- */
-	case function_tod_to_udint :
-	{
-		symbol_c *last_type_symbol = NULL;
-
-		{
-			identifier_c param_name("IN");
-			/* Get the value from a foo(<param_name> = <param_value>) style call */
-			symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
-			
-			/* Get the value from a foo(<param_value>) style call */
-			if (IN_param_value == NULL)
-			  IN_param_value = function_call_param_iterator.next();
-			symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
-			last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
-			
-			if (typeid(*last_type_symbol) == typeid(tod_type_name_c))
-			{
-		
-				symbol_c * return_type_symbol = &search_constant_type_c::udint_type_name;
-				s4o.print("(");
-				return_type_symbol->accept(*this);
-				s4o.print(")real_to_time(");
-				IN_param_value->accept(*this);
-				s4o.print(")");
-				return NULL;
-				
-			}
-			
-			ERROR;
-		}
-		
-	}/*function_tod_to_udint*/
-	break;
-
-/****
- *TOD_TO_WORD
- */
-	case function_tod_to_word :
-	{
-		symbol_c *last_type_symbol = NULL;
-
-		{
-			identifier_c param_name("IN");
-			/* Get the value from a foo(<param_name> = <param_value>) style call */
-			symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
-			
-			/* Get the value from a foo(<param_value>) style call */
-			if (IN_param_value == NULL)
-			  IN_param_value = function_call_param_iterator.next();
-			symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
-			last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
-			
-			if (typeid(*last_type_symbol) == typeid(tod_type_name_c))
-			{
-		
-				symbol_c * return_type_symbol = &search_constant_type_c::word_type_name;
-				s4o.print("(");
-				return_type_symbol->accept(*this);
-				s4o.print(")real_to_time(");
-				IN_param_value->accept(*this);
-				s4o.print(")");
-				return NULL;
-				
-			}
-			
-			ERROR;
-		}
-		
-	}/*function_tod_to_word*/
-	break;
-
-/****
- *TOD_TO_WSTRING
- */
-	case function_tod_to_wstring :
-	{
-		symbol_c *last_type_symbol = NULL;
-
-		{
-			identifier_c param_name("IN");
-			/* Get the value from a foo(<param_name> = <param_value>) style call */
-			symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
-			
-			/* Get the value from a foo(<param_value>) style call */
-			if (IN_param_value == NULL)
-			  IN_param_value = function_call_param_iterator.next();
-			symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
-			last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
-			
-			if (typeid(*last_type_symbol) == typeid(tod_type_name_c))
-			{
-		
-				symbol_c * return_type_symbol = &search_constant_type_c::wstring_type_name;
-				s4o.print("(");
-				return_type_symbol->accept(*this);
-				s4o.print(")string_to_time(");
-				IN_param_value->accept(*this);
-				s4o.print(")");
-				return NULL;
-				
-			}
-			
-			ERROR;
-		}
-		
-	}/*function_tod_to_wstring*/
-	break;
-
-/****
- *TOD_TO_STRING
- */
-	case function_tod_to_string :
-	{
-		symbol_c *last_type_symbol = NULL;
-
-		{
-			identifier_c param_name("IN");
-			/* Get the value from a foo(<param_name> = <param_value>) style call */
-			symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
-			
-			/* Get the value from a foo(<param_value>) style call */
-			if (IN_param_value == NULL)
-			  IN_param_value = function_call_param_iterator.next();
-			symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
-			last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
-			
-			if (typeid(*last_type_symbol) == typeid(tod_type_name_c))
-			{
-		
-				symbol_c * return_type_symbol = &search_constant_type_c::string_type_name;
-				s4o.print("(");
-				return_type_symbol->accept(*this);
-				s4o.print(")string_to_time(");
-				IN_param_value->accept(*this);
-				s4o.print(")");
-				return NULL;
-				
-			}
-			
-			ERROR;
-		}
-		
-	}/*function_tod_to_string*/
-	break;
-
-/****
- *TOD_TO_LWORD
- */
-	case function_tod_to_lword :
-	{
-		symbol_c *last_type_symbol = NULL;
-
-		{
-			identifier_c param_name("IN");
-			/* Get the value from a foo(<param_name> = <param_value>) style call */
-			symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
-			
-			/* Get the value from a foo(<param_value>) style call */
-			if (IN_param_value == NULL)
-			  IN_param_value = function_call_param_iterator.next();
-			symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
-			last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
-			
-			if (typeid(*last_type_symbol) == typeid(tod_type_name_c))
-			{
-		
-				symbol_c * return_type_symbol = &search_constant_type_c::lword_type_name;
-				s4o.print("(");
-				return_type_symbol->accept(*this);
-				s4o.print(")real_to_time(");
-				IN_param_value->accept(*this);
-				s4o.print(")");
-				return NULL;
-				
-			}
-			
-			ERROR;
-		}
-		
-	}/*function_tod_to_lword*/
-	break;
-
-/****
- *TOD_TO_UINT
- */
-	case function_tod_to_uint :
-	{
-		symbol_c *last_type_symbol = NULL;
-
-		{
-			identifier_c param_name("IN");
-			/* Get the value from a foo(<param_name> = <param_value>) style call */
-			symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
-			
-			/* Get the value from a foo(<param_value>) style call */
-			if (IN_param_value == NULL)
-			  IN_param_value = function_call_param_iterator.next();
-			symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
-			last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
-			
-			if (typeid(*last_type_symbol) == typeid(tod_type_name_c))
-			{
-		
-				symbol_c * return_type_symbol = &search_constant_type_c::uint_type_name;
-				s4o.print("(");
-				return_type_symbol->accept(*this);
-				s4o.print(")real_to_time(");
-				IN_param_value->accept(*this);
-				s4o.print(")");
-				return NULL;
-				
-			}
-			
-			ERROR;
-		}
-		
-	}/*function_tod_to_uint*/
-	break;
-
-/****
- *TOD_TO_LREAL
- */
-	case function_tod_to_lreal :
-	{
-		symbol_c *last_type_symbol = NULL;
-
-		{
-			identifier_c param_name("IN");
-			/* Get the value from a foo(<param_name> = <param_value>) style call */
-			symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
-			
-			/* Get the value from a foo(<param_value>) style call */
-			if (IN_param_value == NULL)
-			  IN_param_value = function_call_param_iterator.next();
-			symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
-			last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
-			
-			if (typeid(*last_type_symbol) == typeid(tod_type_name_c))
-			{
-		
-				symbol_c * return_type_symbol = &search_constant_type_c::lreal_type_name;
-				s4o.print("(");
-				return_type_symbol->accept(*this);
-				s4o.print(")real_to_time(");
-				IN_param_value->accept(*this);
-				s4o.print(")");
-				return NULL;
-				
-			}
-			
-			ERROR;
-		}
-		
-	}/*function_tod_to_lreal*/
-	break;
-
-/****
- *TOD_TO_BYTE
- */
-	case function_tod_to_byte :
-	{
-		symbol_c *last_type_symbol = NULL;
-
-		{
-			identifier_c param_name("IN");
-			/* Get the value from a foo(<param_name> = <param_value>) style call */
-			symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
-			
-			/* Get the value from a foo(<param_value>) style call */
-			if (IN_param_value == NULL)
-			  IN_param_value = function_call_param_iterator.next();
-			symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
-			last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
-			
-			if (typeid(*last_type_symbol) == typeid(tod_type_name_c))
-			{
-		
-				symbol_c * return_type_symbol = &search_constant_type_c::byte_type_name;
-				s4o.print("(");
-				return_type_symbol->accept(*this);
-				s4o.print(")real_to_time(");
-				IN_param_value->accept(*this);
-				s4o.print(")");
-				return NULL;
-				
-			}
-			
-			ERROR;
-		}
-		
-	}/*function_tod_to_byte*/
-	break;
-
-/****
- *TOD_TO_USINT
- */
-	case function_tod_to_usint :
-	{
-		symbol_c *last_type_symbol = NULL;
-
-		{
-			identifier_c param_name("IN");
-			/* Get the value from a foo(<param_name> = <param_value>) style call */
-			symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
-			
-			/* Get the value from a foo(<param_value>) style call */
-			if (IN_param_value == NULL)
-			  IN_param_value = function_call_param_iterator.next();
-			symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
-			last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
-			
-			if (typeid(*last_type_symbol) == typeid(tod_type_name_c))
-			{
-		
-				symbol_c * return_type_symbol = &search_constant_type_c::usint_type_name;
-				s4o.print("(");
-				return_type_symbol->accept(*this);
-				s4o.print(")real_to_time(");
-				IN_param_value->accept(*this);
-				s4o.print(")");
-				return NULL;
-				
-			}
-			
-			ERROR;
-		}
-		
-	}/*function_tod_to_usint*/
-	break;
-
-/****
- *TOD_TO_ULINT
- */
-	case function_tod_to_ulint :
-	{
-		symbol_c *last_type_symbol = NULL;
-
-		{
-			identifier_c param_name("IN");
-			/* Get the value from a foo(<param_name> = <param_value>) style call */
-			symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
-			
-			/* Get the value from a foo(<param_value>) style call */
-			if (IN_param_value == NULL)
-			  IN_param_value = function_call_param_iterator.next();
-			symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
-			last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
-			
-			if (typeid(*last_type_symbol) == typeid(tod_type_name_c))
-			{
-		
-				symbol_c * return_type_symbol = &search_constant_type_c::ulint_type_name;
-				s4o.print("(");
-				return_type_symbol->accept(*this);
-				s4o.print(")real_to_time(");
-				IN_param_value->accept(*this);
-				s4o.print(")");
-				return NULL;
-				
-			}
-			
-			ERROR;
-		}
-		
-	}/*function_tod_to_ulint*/
-	break;
-
-/****
- *TOD_TO_BOOL
- */
-	case function_tod_to_bool :
-	{
-		symbol_c *last_type_symbol = NULL;
-
-		{
-			identifier_c param_name("IN");
-			/* Get the value from a foo(<param_name> = <param_value>) style call */
-			symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
-			
-			/* Get the value from a foo(<param_value>) style call */
-			if (IN_param_value == NULL)
-			  IN_param_value = function_call_param_iterator.next();
-			symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
-			last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
-			
-			if (typeid(*last_type_symbol) == typeid(tod_type_name_c))
-			{
-		
-				symbol_c * return_type_symbol = &search_constant_type_c::bool_type_name;
-				s4o.print("(");
-				return_type_symbol->accept(*this);
-				s4o.print(")real_to_time(");
-				IN_param_value->accept(*this);
-				s4o.print(")");
-				return NULL;
-				
-			}
-			
-			ERROR;
-		}
-		
-	}/*function_tod_to_bool*/
-	break;
-
-/****
- *TOD_TO_TIME
- */
-	case function_tod_to_time :
-	{
-		symbol_c *last_type_symbol = NULL;
-
-		{
-			identifier_c param_name("IN");
-			/* Get the value from a foo(<param_name> = <param_value>) style call */
-			symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
-			
-			/* Get the value from a foo(<param_value>) style call */
-			if (IN_param_value == NULL)
-			  IN_param_value = function_call_param_iterator.next();
-			symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
-			last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
-			
-			if (typeid(*last_type_symbol) == typeid(tod_type_name_c))
-			{
-		
-				symbol_c * return_type_symbol = &search_constant_type_c::time_type_name;
-				s4o.print("#error TOD_TO_TIME not implemented!");
-				return NULL;
-				
-			}
-			
-			ERROR;
-		}
-		
-	}/*function_tod_to_time*/
-	break;
-
-/****
- *TOD_TO_INT
- */
-	case function_tod_to_int :
-	{
-		symbol_c *last_type_symbol = NULL;
-
-		{
-			identifier_c param_name("IN");
-			/* Get the value from a foo(<param_name> = <param_value>) style call */
-			symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
-			
-			/* Get the value from a foo(<param_value>) style call */
-			if (IN_param_value == NULL)
-			  IN_param_value = function_call_param_iterator.next();
-			symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
-			last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
-			
-			if (typeid(*last_type_symbol) == typeid(tod_type_name_c))
-			{
-		
-				symbol_c * return_type_symbol = &search_constant_type_c::int_type_name;
-				s4o.print("(");
-				return_type_symbol->accept(*this);
-				s4o.print(")real_to_time(");
-				IN_param_value->accept(*this);
-				s4o.print(")");
-				return NULL;
-				
-			}
-			
-			ERROR;
-		}
-		
-	}/*function_tod_to_int*/
-	break;
-
-/****
- *UDINT_TO_REAL
- */
-	case function_udint_to_real :
-	{
-		symbol_c *last_type_symbol = NULL;
-
-		{
-			identifier_c param_name("IN");
-			/* Get the value from a foo(<param_name> = <param_value>) style call */
-			symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
-			
-			/* Get the value from a foo(<param_value>) style call */
-			if (IN_param_value == NULL)
-			  IN_param_value = function_call_param_iterator.next();
-			symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
-			last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
-			
-			if (typeid(*last_type_symbol) == typeid(udint_type_name_c))
-			{
-		
-				symbol_c * return_type_symbol = &search_constant_type_c::real_type_name;
-				s4o.print("(");
-				return_type_symbol->accept(*this);
-				s4o.print(")");
-				IN_param_value->accept(*this);
-				return NULL;
-				
-			}
-			
-			ERROR;
-		}
-		
-	}/*function_udint_to_real*/
-	break;
-
-/****
- *UDINT_TO_SINT
- */
-	case function_udint_to_sint :
-	{
-		symbol_c *last_type_symbol = NULL;
-
-		{
-			identifier_c param_name("IN");
-			/* Get the value from a foo(<param_name> = <param_value>) style call */
-			symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
-			
-			/* Get the value from a foo(<param_value>) style call */
-			if (IN_param_value == NULL)
-			  IN_param_value = function_call_param_iterator.next();
-			symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
-			last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
-			
-			if (typeid(*last_type_symbol) == typeid(udint_type_name_c))
-			{
-		
-				symbol_c * return_type_symbol = &search_constant_type_c::sint_type_name;
-				s4o.print("(");
-				return_type_symbol->accept(*this);
-				s4o.print(")");
-				IN_param_value->accept(*this);
-				return NULL;
-				
-			}
-			
-			ERROR;
-		}
-		
-	}/*function_udint_to_sint*/
-	break;
-
-/****
- *UDINT_TO_LINT
- */
-	case function_udint_to_lint :
-	{
-		symbol_c *last_type_symbol = NULL;
-
-		{
-			identifier_c param_name("IN");
-			/* Get the value from a foo(<param_name> = <param_value>) style call */
-			symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
-			
-			/* Get the value from a foo(<param_value>) style call */
-			if (IN_param_value == NULL)
-			  IN_param_value = function_call_param_iterator.next();
-			symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
-			last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
-			
-			if (typeid(*last_type_symbol) == typeid(udint_type_name_c))
-			{
-		
-				symbol_c * return_type_symbol = &search_constant_type_c::lint_type_name;
-				s4o.print("(");
-				return_type_symbol->accept(*this);
-				s4o.print(")");
-				IN_param_value->accept(*this);
-				return NULL;
-				
-			}
-			
-			ERROR;
-		}
-		
-	}/*function_udint_to_lint*/
-	break;
-
-/****
- *UDINT_TO_DINT
- */
-	case function_udint_to_dint :
-	{
-		symbol_c *last_type_symbol = NULL;
-
-		{
-			identifier_c param_name("IN");
-			/* Get the value from a foo(<param_name> = <param_value>) style call */
-			symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
-			
-			/* Get the value from a foo(<param_value>) style call */
-			if (IN_param_value == NULL)
-			  IN_param_value = function_call_param_iterator.next();
-			symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
-			last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
-			
-			if (typeid(*last_type_symbol) == typeid(udint_type_name_c))
-			{
-		
-				symbol_c * return_type_symbol = &search_constant_type_c::dint_type_name;
-				s4o.print("(");
-				return_type_symbol->accept(*this);
-				s4o.print(")");
-				IN_param_value->accept(*this);
-				return NULL;
-				
-			}
-			
-			ERROR;
-		}
-		
-	}/*function_udint_to_dint*/
-	break;
-
-/****
- *UDINT_TO_DATE
- */
-	case function_udint_to_date :
-	{
-		symbol_c *last_type_symbol = NULL;
-
-		{
-			identifier_c param_name("IN");
-			/* Get the value from a foo(<param_name> = <param_value>) style call */
-			symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
-			
-			/* Get the value from a foo(<param_value>) style call */
-			if (IN_param_value == NULL)
-			  IN_param_value = function_call_param_iterator.next();
-			symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
-			last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
-			
-			if (typeid(*last_type_symbol) == typeid(udint_type_name_c))
-			{
-		
-				symbol_c * return_type_symbol = &search_constant_type_c::date_type_name;
-				s4o.print("(");
-				return_type_symbol->accept(*this);
-				s4o.print(")time_to_real(");
-				IN_param_value->accept(*this);
-				s4o.print(")");
-				return NULL;
-				
-			}
-			
-			ERROR;
-		}
-		
-	}/*function_udint_to_date*/
-	break;
-
-/****
- *UDINT_TO_DWORD
- */
-	case function_udint_to_dword :
-	{
-		symbol_c *last_type_symbol = NULL;
-
-		{
-			identifier_c param_name("IN");
-			/* Get the value from a foo(<param_name> = <param_value>) style call */
-			symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
-			
-			/* Get the value from a foo(<param_value>) style call */
-			if (IN_param_value == NULL)
-			  IN_param_value = function_call_param_iterator.next();
-			symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
-			last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
-			
-			if (typeid(*last_type_symbol) == typeid(udint_type_name_c))
-			{
-		
-				symbol_c * return_type_symbol = &search_constant_type_c::dword_type_name;
-				s4o.print("(");
-				return_type_symbol->accept(*this);
-				s4o.print(")");
-				IN_param_value->accept(*this);
-				return NULL;
-				
-			}
-			
-			ERROR;
-		}
-		
-	}/*function_udint_to_dword*/
-	break;
-
-/****
- *UDINT_TO_DT
- */
-	case function_udint_to_dt :
-	{
-		symbol_c *last_type_symbol = NULL;
-
-		{
-			identifier_c param_name("IN");
-			/* Get the value from a foo(<param_name> = <param_value>) style call */
-			symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
-			
-			/* Get the value from a foo(<param_value>) style call */
-			if (IN_param_value == NULL)
-			  IN_param_value = function_call_param_iterator.next();
-			symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
-			last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
-			
-			if (typeid(*last_type_symbol) == typeid(udint_type_name_c))
-			{
-		
-				symbol_c * return_type_symbol = &search_constant_type_c::dt_type_name;
-				s4o.print("(");
-				return_type_symbol->accept(*this);
-				s4o.print(")time_to_real(");
-				IN_param_value->accept(*this);
-				s4o.print(")");
-				return NULL;
-				
-			}
-			
-			ERROR;
-		}
-		
-	}/*function_udint_to_dt*/
-	break;
-
-/****
- *UDINT_TO_TOD
- */
-	case function_udint_to_tod :
-	{
-		symbol_c *last_type_symbol = NULL;
-
-		{
-			identifier_c param_name("IN");
-			/* Get the value from a foo(<param_name> = <param_value>) style call */
-			symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
-			
-			/* Get the value from a foo(<param_value>) style call */
-			if (IN_param_value == NULL)
-			  IN_param_value = function_call_param_iterator.next();
-			symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
-			last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
-			
-			if (typeid(*last_type_symbol) == typeid(udint_type_name_c))
-			{
-		
-				symbol_c * return_type_symbol = &search_constant_type_c::tod_type_name;
-				s4o.print("(");
-				return_type_symbol->accept(*this);
-				s4o.print(")time_to_real(");
-				IN_param_value->accept(*this);
-				s4o.print(")");
-				return NULL;
-				
-			}
-			
-			ERROR;
-		}
-		
-	}/*function_udint_to_tod*/
-	break;
-
-/****
- *UDINT_TO_UDINT
- */
-	case function_udint_to_udint :
-	{
-		symbol_c *last_type_symbol = NULL;
-
-		{
-			identifier_c param_name("IN");
-			/* Get the value from a foo(<param_name> = <param_value>) style call */
-			symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
-			
-			/* Get the value from a foo(<param_value>) style call */
-			if (IN_param_value == NULL)
-			  IN_param_value = function_call_param_iterator.next();
-			symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
-			last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
-			
-			if (typeid(*last_type_symbol) == typeid(udint_type_name_c))
-			{
-		
-				symbol_c * return_type_symbol = &search_constant_type_c::udint_type_name;
-				s4o.print("(");
-				return_type_symbol->accept(*this);
-				s4o.print(")");
-				IN_param_value->accept(*this);
-				return NULL;
-				
-			}
-			
-			ERROR;
-		}
-		
-	}/*function_udint_to_udint*/
-	break;
-
-/****
- *UDINT_TO_WORD
- */
-	case function_udint_to_word :
-	{
-		symbol_c *last_type_symbol = NULL;
-
-		{
-			identifier_c param_name("IN");
-			/* Get the value from a foo(<param_name> = <param_value>) style call */
-			symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
-			
-			/* Get the value from a foo(<param_value>) style call */
-			if (IN_param_value == NULL)
-			  IN_param_value = function_call_param_iterator.next();
-			symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
-			last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
-			
-			if (typeid(*last_type_symbol) == typeid(udint_type_name_c))
-			{
-		
-				symbol_c * return_type_symbol = &search_constant_type_c::word_type_name;
-				s4o.print("(");
-				return_type_symbol->accept(*this);
-				s4o.print(")");
-				IN_param_value->accept(*this);
-				return NULL;
-				
-			}
-			
-			ERROR;
-		}
-		
-	}/*function_udint_to_word*/
-	break;
-
-/****
- *UDINT_TO_WSTRING
- */
-	case function_udint_to_wstring :
-	{
-		symbol_c *last_type_symbol = NULL;
-
-		{
-			identifier_c param_name("IN");
-			/* Get the value from a foo(<param_name> = <param_value>) style call */
-			symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
-			
-			/* Get the value from a foo(<param_value>) style call */
-			if (IN_param_value == NULL)
-			  IN_param_value = function_call_param_iterator.next();
-			symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
-			last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
-			
-			if (typeid(*last_type_symbol) == typeid(udint_type_name_c))
-			{
-		
-				symbol_c * return_type_symbol = &search_constant_type_c::wstring_type_name;
-				s4o.print("(");
-				return_type_symbol->accept(*this);
-				s4o.print(")string_to_int(");
-				IN_param_value->accept(*this);
-				s4o.print(", 10)");
-				return NULL;
-				
-			}
-			
-			ERROR;
-		}
-		
-	}/*function_udint_to_wstring*/
-	break;
-
-/****
- *UDINT_TO_STRING
- */
-	case function_udint_to_string :
-	{
-		symbol_c *last_type_symbol = NULL;
-
-		{
-			identifier_c param_name("IN");
-			/* Get the value from a foo(<param_name> = <param_value>) style call */
-			symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
-			
-			/* Get the value from a foo(<param_value>) style call */
-			if (IN_param_value == NULL)
-			  IN_param_value = function_call_param_iterator.next();
-			symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
-			last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
-			
-			if (typeid(*last_type_symbol) == typeid(udint_type_name_c))
-			{
-		
-				symbol_c * return_type_symbol = &search_constant_type_c::string_type_name;
-				s4o.print("(");
-				return_type_symbol->accept(*this);
-				s4o.print(")string_to_int(");
-				IN_param_value->accept(*this);
-				s4o.print(", 10)");
-				return NULL;
-				
-			}
-			
-			ERROR;
-		}
-		
-	}/*function_udint_to_string*/
-	break;
-
-/****
- *UDINT_TO_LWORD
- */
-	case function_udint_to_lword :
-	{
-		symbol_c *last_type_symbol = NULL;
-
-		{
-			identifier_c param_name("IN");
-			/* Get the value from a foo(<param_name> = <param_value>) style call */
-			symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
-			
-			/* Get the value from a foo(<param_value>) style call */
-			if (IN_param_value == NULL)
-			  IN_param_value = function_call_param_iterator.next();
-			symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
-			last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
-			
-			if (typeid(*last_type_symbol) == typeid(udint_type_name_c))
-			{
-		
-				symbol_c * return_type_symbol = &search_constant_type_c::lword_type_name;
-				s4o.print("(");
-				return_type_symbol->accept(*this);
-				s4o.print(")");
-				IN_param_value->accept(*this);
-				return NULL;
-				
-			}
-			
-			ERROR;
-		}
-		
-	}/*function_udint_to_lword*/
-	break;
-
-/****
- *UDINT_TO_UINT
- */
-	case function_udint_to_uint :
-	{
-		symbol_c *last_type_symbol = NULL;
-
-		{
-			identifier_c param_name("IN");
-			/* Get the value from a foo(<param_name> = <param_value>) style call */
-			symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
-			
-			/* Get the value from a foo(<param_value>) style call */
-			if (IN_param_value == NULL)
-			  IN_param_value = function_call_param_iterator.next();
-			symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
-			last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
-			
-			if (typeid(*last_type_symbol) == typeid(udint_type_name_c))
-			{
-		
-				symbol_c * return_type_symbol = &search_constant_type_c::uint_type_name;
-				s4o.print("(");
-				return_type_symbol->accept(*this);
-				s4o.print(")");
-				IN_param_value->accept(*this);
-				return NULL;
-				
-			}
-			
-			ERROR;
-		}
-		
-	}/*function_udint_to_uint*/
-	break;
-
-/****
- *UDINT_TO_LREAL
- */
-	case function_udint_to_lreal :
-	{
-		symbol_c *last_type_symbol = NULL;
-
-		{
-			identifier_c param_name("IN");
-			/* Get the value from a foo(<param_name> = <param_value>) style call */
-			symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
-			
-			/* Get the value from a foo(<param_value>) style call */
-			if (IN_param_value == NULL)
-			  IN_param_value = function_call_param_iterator.next();
-			symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
-			last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
-			
-			if (typeid(*last_type_symbol) == typeid(udint_type_name_c))
-			{
-		
-				symbol_c * return_type_symbol = &search_constant_type_c::lreal_type_name;
-				s4o.print("(");
-				return_type_symbol->accept(*this);
-				s4o.print(")");
-				IN_param_value->accept(*this);
-				return NULL;
-				
-			}
-			
-			ERROR;
-		}
-		
-	}/*function_udint_to_lreal*/
-	break;
-
-/****
- *UDINT_TO_BYTE
- */
-	case function_udint_to_byte :
-	{
-		symbol_c *last_type_symbol = NULL;
-
-		{
-			identifier_c param_name("IN");
-			/* Get the value from a foo(<param_name> = <param_value>) style call */
-			symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
-			
-			/* Get the value from a foo(<param_value>) style call */
-			if (IN_param_value == NULL)
-			  IN_param_value = function_call_param_iterator.next();
-			symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
-			last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
-			
-			if (typeid(*last_type_symbol) == typeid(udint_type_name_c))
-			{
-		
-				symbol_c * return_type_symbol = &search_constant_type_c::byte_type_name;
-				s4o.print("(");
-				return_type_symbol->accept(*this);
-				s4o.print(")");
-				IN_param_value->accept(*this);
-				return NULL;
-				
-			}
-			
-			ERROR;
-		}
-		
-	}/*function_udint_to_byte*/
-	break;
-
-/****
- *UDINT_TO_USINT
- */
-	case function_udint_to_usint :
-	{
-		symbol_c *last_type_symbol = NULL;
-
-		{
-			identifier_c param_name("IN");
-			/* Get the value from a foo(<param_name> = <param_value>) style call */
-			symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
-			
-			/* Get the value from a foo(<param_value>) style call */
-			if (IN_param_value == NULL)
-			  IN_param_value = function_call_param_iterator.next();
-			symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
-			last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
-			
-			if (typeid(*last_type_symbol) == typeid(udint_type_name_c))
-			{
-		
-				symbol_c * return_type_symbol = &search_constant_type_c::usint_type_name;
-				s4o.print("(");
-				return_type_symbol->accept(*this);
-				s4o.print(")");
-				IN_param_value->accept(*this);
-				return NULL;
-				
-			}
-			
-			ERROR;
-		}
-		
-	}/*function_udint_to_usint*/
-	break;
-
-/****
- *UDINT_TO_ULINT
- */
-	case function_udint_to_ulint :
-	{
-		symbol_c *last_type_symbol = NULL;
-
-		{
-			identifier_c param_name("IN");
-			/* Get the value from a foo(<param_name> = <param_value>) style call */
-			symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
-			
-			/* Get the value from a foo(<param_value>) style call */
-			if (IN_param_value == NULL)
-			  IN_param_value = function_call_param_iterator.next();
-			symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
-			last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
-			
-			if (typeid(*last_type_symbol) == typeid(udint_type_name_c))
-			{
-		
-				symbol_c * return_type_symbol = &search_constant_type_c::ulint_type_name;
-				s4o.print("(");
-				return_type_symbol->accept(*this);
-				s4o.print(")");
-				IN_param_value->accept(*this);
-				return NULL;
-				
-			}
-			
-			ERROR;
-		}
-		
-	}/*function_udint_to_ulint*/
-	break;
-
-/****
- *UDINT_TO_BOOL
- */
-	case function_udint_to_bool :
-	{
-		symbol_c *last_type_symbol = NULL;
-
-		{
-			identifier_c param_name("IN");
-			/* Get the value from a foo(<param_name> = <param_value>) style call */
-			symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
-			
-			/* Get the value from a foo(<param_value>) style call */
-			if (IN_param_value == NULL)
-			  IN_param_value = function_call_param_iterator.next();
-			symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
-			last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
-			
-			if (typeid(*last_type_symbol) == typeid(udint_type_name_c))
-			{
-		
-				symbol_c * return_type_symbol = &search_constant_type_c::bool_type_name;
-				s4o.print("(");
-				return_type_symbol->accept(*this);
-				s4o.print(")");
-				IN_param_value->accept(*this);
-				return NULL;
-				
-			}
-			
-			ERROR;
-		}
-		
-	}/*function_udint_to_bool*/
-	break;
-
-/****
- *UDINT_TO_TIME
- */
-	case function_udint_to_time :
-	{
-		symbol_c *last_type_symbol = NULL;
-
-		{
-			identifier_c param_name("IN");
-			/* Get the value from a foo(<param_name> = <param_value>) style call */
-			symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
-			
-			/* Get the value from a foo(<param_value>) style call */
-			if (IN_param_value == NULL)
-			  IN_param_value = function_call_param_iterator.next();
-			symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
-			last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
-			
-			if (typeid(*last_type_symbol) == typeid(udint_type_name_c))
-			{
-		
-				symbol_c * return_type_symbol = &search_constant_type_c::time_type_name;
-				s4o.print("(");
-				return_type_symbol->accept(*this);
-				s4o.print(")time_to_real(");
-				IN_param_value->accept(*this);
-				s4o.print(")");
-				return NULL;
-				
-			}
-			
-			ERROR;
-		}
-		
-	}/*function_udint_to_time*/
-	break;
-
-/****
- *UDINT_TO_INT
- */
-	case function_udint_to_int :
-	{
-		symbol_c *last_type_symbol = NULL;
-
-		{
-			identifier_c param_name("IN");
-			/* Get the value from a foo(<param_name> = <param_value>) style call */
-			symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
-			
-			/* Get the value from a foo(<param_value>) style call */
-			if (IN_param_value == NULL)
-			  IN_param_value = function_call_param_iterator.next();
-			symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
-			last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
-			
-			if (typeid(*last_type_symbol) == typeid(udint_type_name_c))
-			{
-		
-				symbol_c * return_type_symbol = &search_constant_type_c::int_type_name;
-				s4o.print("(");
-				return_type_symbol->accept(*this);
-				s4o.print(")");
-				IN_param_value->accept(*this);
-				return NULL;
-				
-			}
-			
-			ERROR;
-		}
-		
-	}/*function_udint_to_int*/
-	break;
-
-/****
- *WORD_TO_REAL
- */
-	case function_word_to_real :
-	{
-		symbol_c *last_type_symbol = NULL;
-
-		{
-			identifier_c param_name("IN");
-			/* Get the value from a foo(<param_name> = <param_value>) style call */
-			symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
-			
-			/* Get the value from a foo(<param_value>) style call */
-			if (IN_param_value == NULL)
-			  IN_param_value = function_call_param_iterator.next();
-			symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
-			last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
-			
-			if (typeid(*last_type_symbol) == typeid(word_type_name_c))
-			{
-		
-				symbol_c * return_type_symbol = &search_constant_type_c::real_type_name;
-				s4o.print("(");
-				return_type_symbol->accept(*this);
-				s4o.print(")");
-				IN_param_value->accept(*this);
-				return NULL;
-				
-			}
-			
-			ERROR;
-		}
-		
-	}/*function_word_to_real*/
-	break;
-
-/****
- *WORD_TO_SINT
- */
-	case function_word_to_sint :
-	{
-		symbol_c *last_type_symbol = NULL;
-
-		{
-			identifier_c param_name("IN");
-			/* Get the value from a foo(<param_name> = <param_value>) style call */
-			symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
-			
-			/* Get the value from a foo(<param_value>) style call */
-			if (IN_param_value == NULL)
-			  IN_param_value = function_call_param_iterator.next();
-			symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
-			last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
-			
-			if (typeid(*last_type_symbol) == typeid(word_type_name_c))
-			{
-		
-				symbol_c * return_type_symbol = &search_constant_type_c::sint_type_name;
-				s4o.print("(");
-				return_type_symbol->accept(*this);
-				s4o.print(")");
-				IN_param_value->accept(*this);
-				return NULL;
-				
-			}
-			
-			ERROR;
-		}
-		
-	}/*function_word_to_sint*/
-	break;
-
-/****
- *WORD_TO_LINT
- */
-	case function_word_to_lint :
-	{
-		symbol_c *last_type_symbol = NULL;
-
-		{
-			identifier_c param_name("IN");
-			/* Get the value from a foo(<param_name> = <param_value>) style call */
-			symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
-			
-			/* Get the value from a foo(<param_value>) style call */
-			if (IN_param_value == NULL)
-			  IN_param_value = function_call_param_iterator.next();
-			symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
-			last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
-			
-			if (typeid(*last_type_symbol) == typeid(word_type_name_c))
-			{
-		
-				symbol_c * return_type_symbol = &search_constant_type_c::lint_type_name;
-				s4o.print("(");
-				return_type_symbol->accept(*this);
-				s4o.print(")");
-				IN_param_value->accept(*this);
-				return NULL;
-				
-			}
-			
-			ERROR;
-		}
-		
-	}/*function_word_to_lint*/
-	break;
-
-/****
- *WORD_TO_DINT
- */
-	case function_word_to_dint :
-	{
-		symbol_c *last_type_symbol = NULL;
-
-		{
-			identifier_c param_name("IN");
-			/* Get the value from a foo(<param_name> = <param_value>) style call */
-			symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
-			
-			/* Get the value from a foo(<param_value>) style call */
-			if (IN_param_value == NULL)
-			  IN_param_value = function_call_param_iterator.next();
-			symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
-			last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
-			
-			if (typeid(*last_type_symbol) == typeid(word_type_name_c))
-			{
-		
-				symbol_c * return_type_symbol = &search_constant_type_c::dint_type_name;
-				s4o.print("(");
-				return_type_symbol->accept(*this);
-				s4o.print(")");
-				IN_param_value->accept(*this);
-				return NULL;
-				
-			}
-			
-			ERROR;
-		}
-		
-	}/*function_word_to_dint*/
-	break;
-
-/****
- *WORD_TO_DATE
- */
-	case function_word_to_date :
-	{
-		symbol_c *last_type_symbol = NULL;
-
-		{
-			identifier_c param_name("IN");
-			/* Get the value from a foo(<param_name> = <param_value>) style call */
-			symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
-			
-			/* Get the value from a foo(<param_value>) style call */
-			if (IN_param_value == NULL)
-			  IN_param_value = function_call_param_iterator.next();
-			symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
-			last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
-			
-			if (typeid(*last_type_symbol) == typeid(word_type_name_c))
-			{
-		
-				symbol_c * return_type_symbol = &search_constant_type_c::date_type_name;
-				s4o.print("(");
-				return_type_symbol->accept(*this);
-				s4o.print(")time_to_real(");
-				IN_param_value->accept(*this);
-				s4o.print(")");
-				return NULL;
-				
-			}
-			
-			ERROR;
-		}
-		
-	}/*function_word_to_date*/
-	break;
-
-/****
- *WORD_TO_DWORD
- */
-	case function_word_to_dword :
-	{
-		symbol_c *last_type_symbol = NULL;
-
-		{
-			identifier_c param_name("IN");
-			/* Get the value from a foo(<param_name> = <param_value>) style call */
-			symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
-			
-			/* Get the value from a foo(<param_value>) style call */
-			if (IN_param_value == NULL)
-			  IN_param_value = function_call_param_iterator.next();
-			symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
-			last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
-			
-			if (typeid(*last_type_symbol) == typeid(word_type_name_c))
-			{
-		
-				symbol_c * return_type_symbol = &search_constant_type_c::dword_type_name;
-				s4o.print("(");
-				return_type_symbol->accept(*this);
-				s4o.print(")");
-				IN_param_value->accept(*this);
-				return NULL;
-				
-			}
-			
-			ERROR;
-		}
-		
-	}/*function_word_to_dword*/
-	break;
-
-/****
- *WORD_TO_DT
- */
-	case function_word_to_dt :
-	{
-		symbol_c *last_type_symbol = NULL;
-
-		{
-			identifier_c param_name("IN");
-			/* Get the value from a foo(<param_name> = <param_value>) style call */
-			symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
-			
-			/* Get the value from a foo(<param_value>) style call */
-			if (IN_param_value == NULL)
-			  IN_param_value = function_call_param_iterator.next();
-			symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
-			last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
-			
-			if (typeid(*last_type_symbol) == typeid(word_type_name_c))
-			{
-		
-				symbol_c * return_type_symbol = &search_constant_type_c::dt_type_name;
-				s4o.print("(");
-				return_type_symbol->accept(*this);
-				s4o.print(")time_to_real(");
-				IN_param_value->accept(*this);
-				s4o.print(")");
-				return NULL;
-				
-			}
-			
-			ERROR;
-		}
-		
-	}/*function_word_to_dt*/
-	break;
-
-/****
- *WORD_TO_TOD
- */
-	case function_word_to_tod :
-	{
-		symbol_c *last_type_symbol = NULL;
-
-		{
-			identifier_c param_name("IN");
-			/* Get the value from a foo(<param_name> = <param_value>) style call */
-			symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
-			
-			/* Get the value from a foo(<param_value>) style call */
-			if (IN_param_value == NULL)
-			  IN_param_value = function_call_param_iterator.next();
-			symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
-			last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
-			
-			if (typeid(*last_type_symbol) == typeid(word_type_name_c))
-			{
-		
-				symbol_c * return_type_symbol = &search_constant_type_c::tod_type_name;
-				s4o.print("(");
-				return_type_symbol->accept(*this);
-				s4o.print(")time_to_real(");
-				IN_param_value->accept(*this);
-				s4o.print(")");
-				return NULL;
-				
-			}
-			
-			ERROR;
-		}
-		
-	}/*function_word_to_tod*/
-	break;
-
-/****
- *WORD_TO_UDINT
- */
-	case function_word_to_udint :
-	{
-		symbol_c *last_type_symbol = NULL;
-
-		{
-			identifier_c param_name("IN");
-			/* Get the value from a foo(<param_name> = <param_value>) style call */
-			symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
-			
-			/* Get the value from a foo(<param_value>) style call */
-			if (IN_param_value == NULL)
-			  IN_param_value = function_call_param_iterator.next();
-			symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
-			last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
-			
-			if (typeid(*last_type_symbol) == typeid(word_type_name_c))
-			{
-		
-				symbol_c * return_type_symbol = &search_constant_type_c::udint_type_name;
-				s4o.print("(");
-				return_type_symbol->accept(*this);
-				s4o.print(")");
-				IN_param_value->accept(*this);
-				return NULL;
-				
-			}
-			
-			ERROR;
-		}
-		
-	}/*function_word_to_udint*/
-	break;
-
-/****
- *WORD_TO_WORD
- */
-	case function_word_to_word :
-	{
-		symbol_c *last_type_symbol = NULL;
-
-		{
-			identifier_c param_name("IN");
-			/* Get the value from a foo(<param_name> = <param_value>) style call */
-			symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
-			
-			/* Get the value from a foo(<param_value>) style call */
-			if (IN_param_value == NULL)
-			  IN_param_value = function_call_param_iterator.next();
-			symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
-			last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
-			
-			if (typeid(*last_type_symbol) == typeid(word_type_name_c))
-			{
-		
-				symbol_c * return_type_symbol = &search_constant_type_c::word_type_name;
-				s4o.print("(");
-				return_type_symbol->accept(*this);
-				s4o.print(")");
-				IN_param_value->accept(*this);
-				return NULL;
-				
-			}
-			
-			ERROR;
-		}
-		
-	}/*function_word_to_word*/
-	break;
-
-/****
- *WORD_TO_WSTRING
- */
-	case function_word_to_wstring :
-	{
-		symbol_c *last_type_symbol = NULL;
-
-		{
-			identifier_c param_name("IN");
-			/* Get the value from a foo(<param_name> = <param_value>) style call */
-			symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
-			
-			/* Get the value from a foo(<param_value>) style call */
-			if (IN_param_value == NULL)
-			  IN_param_value = function_call_param_iterator.next();
-			symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
-			last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
-			
-			if (typeid(*last_type_symbol) == typeid(word_type_name_c))
-			{
-		
-				symbol_c * return_type_symbol = &search_constant_type_c::wstring_type_name;
-				s4o.print("(");
-				return_type_symbol->accept(*this);
-				s4o.print(")string_to_int(");
-				IN_param_value->accept(*this);
-				s4o.print(", 16)");
-				return NULL;
-				
-			}
-			
-			ERROR;
-		}
-		
-	}/*function_word_to_wstring*/
-	break;
-
-/****
- *WORD_TO_STRING
- */
-	case function_word_to_string :
-	{
-		symbol_c *last_type_symbol = NULL;
-
-		{
-			identifier_c param_name("IN");
-			/* Get the value from a foo(<param_name> = <param_value>) style call */
-			symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
-			
-			/* Get the value from a foo(<param_value>) style call */
-			if (IN_param_value == NULL)
-			  IN_param_value = function_call_param_iterator.next();
-			symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
-			last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
-			
-			if (typeid(*last_type_symbol) == typeid(word_type_name_c))
-			{
-		
-				symbol_c * return_type_symbol = &search_constant_type_c::string_type_name;
-				s4o.print("(");
-				return_type_symbol->accept(*this);
-				s4o.print(")string_to_int(");
-				IN_param_value->accept(*this);
-				s4o.print(", 16)");
-				return NULL;
-				
-			}
-			
-			ERROR;
-		}
-		
-	}/*function_word_to_string*/
-	break;
-
-/****
- *WORD_TO_LWORD
- */
-	case function_word_to_lword :
-	{
-		symbol_c *last_type_symbol = NULL;
-
-		{
-			identifier_c param_name("IN");
-			/* Get the value from a foo(<param_name> = <param_value>) style call */
-			symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
-			
-			/* Get the value from a foo(<param_value>) style call */
-			if (IN_param_value == NULL)
-			  IN_param_value = function_call_param_iterator.next();
-			symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
-			last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
-			
-			if (typeid(*last_type_symbol) == typeid(word_type_name_c))
-			{
-		
-				symbol_c * return_type_symbol = &search_constant_type_c::lword_type_name;
-				s4o.print("(");
-				return_type_symbol->accept(*this);
-				s4o.print(")");
-				IN_param_value->accept(*this);
-				return NULL;
-				
-			}
-			
-			ERROR;
-		}
-		
-	}/*function_word_to_lword*/
-	break;
-
-/****
- *WORD_TO_UINT
- */
-	case function_word_to_uint :
-	{
-		symbol_c *last_type_symbol = NULL;
-
-		{
-			identifier_c param_name("IN");
-			/* Get the value from a foo(<param_name> = <param_value>) style call */
-			symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
-			
-			/* Get the value from a foo(<param_value>) style call */
-			if (IN_param_value == NULL)
-			  IN_param_value = function_call_param_iterator.next();
-			symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
-			last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
-			
-			if (typeid(*last_type_symbol) == typeid(word_type_name_c))
-			{
-		
-				symbol_c * return_type_symbol = &search_constant_type_c::uint_type_name;
-				s4o.print("(");
-				return_type_symbol->accept(*this);
-				s4o.print(")");
-				IN_param_value->accept(*this);
-				return NULL;
-				
-			}
-			
-			ERROR;
-		}
-		
-	}/*function_word_to_uint*/
-	break;
-
-/****
- *WORD_TO_LREAL
- */
-	case function_word_to_lreal :
-	{
-		symbol_c *last_type_symbol = NULL;
-
-		{
-			identifier_c param_name("IN");
-			/* Get the value from a foo(<param_name> = <param_value>) style call */
-			symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
-			
-			/* Get the value from a foo(<param_value>) style call */
-			if (IN_param_value == NULL)
-			  IN_param_value = function_call_param_iterator.next();
-			symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
-			last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
-			
-			if (typeid(*last_type_symbol) == typeid(word_type_name_c))
-			{
-		
-				symbol_c * return_type_symbol = &search_constant_type_c::lreal_type_name;
-				s4o.print("(");
-				return_type_symbol->accept(*this);
-				s4o.print(")");
-				IN_param_value->accept(*this);
-				return NULL;
-				
-			}
-			
-			ERROR;
-		}
-		
-	}/*function_word_to_lreal*/
-	break;
-
-/****
- *WORD_TO_BYTE
- */
-	case function_word_to_byte :
-	{
-		symbol_c *last_type_symbol = NULL;
-
-		{
-			identifier_c param_name("IN");
-			/* Get the value from a foo(<param_name> = <param_value>) style call */
-			symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
-			
-			/* Get the value from a foo(<param_value>) style call */
-			if (IN_param_value == NULL)
-			  IN_param_value = function_call_param_iterator.next();
-			symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
-			last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
-			
-			if (typeid(*last_type_symbol) == typeid(word_type_name_c))
-			{
-		
-				symbol_c * return_type_symbol = &search_constant_type_c::byte_type_name;
-				s4o.print("(");
-				return_type_symbol->accept(*this);
-				s4o.print(")");
-				IN_param_value->accept(*this);
-				return NULL;
-				
-			}
-			
-			ERROR;
-		}
-		
-	}/*function_word_to_byte*/
-	break;
-
-/****
- *WORD_TO_USINT
- */
-	case function_word_to_usint :
-	{
-		symbol_c *last_type_symbol = NULL;
-
-		{
-			identifier_c param_name("IN");
-			/* Get the value from a foo(<param_name> = <param_value>) style call */
-			symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
-			
-			/* Get the value from a foo(<param_value>) style call */
-			if (IN_param_value == NULL)
-			  IN_param_value = function_call_param_iterator.next();
-			symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
-			last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
-			
-			if (typeid(*last_type_symbol) == typeid(word_type_name_c))
-			{
-		
-				symbol_c * return_type_symbol = &search_constant_type_c::usint_type_name;
-				s4o.print("(");
-				return_type_symbol->accept(*this);
-				s4o.print(")");
-				IN_param_value->accept(*this);
-				return NULL;
-				
-			}
-			
-			ERROR;
-		}
-		
-	}/*function_word_to_usint*/
-	break;
-
-/****
- *WORD_TO_ULINT
- */
-	case function_word_to_ulint :
-	{
-		symbol_c *last_type_symbol = NULL;
-
-		{
-			identifier_c param_name("IN");
-			/* Get the value from a foo(<param_name> = <param_value>) style call */
-			symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
-			
-			/* Get the value from a foo(<param_value>) style call */
-			if (IN_param_value == NULL)
-			  IN_param_value = function_call_param_iterator.next();
-			symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
-			last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
-			
-			if (typeid(*last_type_symbol) == typeid(word_type_name_c))
-			{
-		
-				symbol_c * return_type_symbol = &search_constant_type_c::ulint_type_name;
-				s4o.print("(");
-				return_type_symbol->accept(*this);
-				s4o.print(")");
-				IN_param_value->accept(*this);
-				return NULL;
-				
-			}
-			
-			ERROR;
-		}
-		
-	}/*function_word_to_ulint*/
-	break;
-
-/****
- *WORD_TO_BOOL
- */
-	case function_word_to_bool :
-	{
-		symbol_c *last_type_symbol = NULL;
-
-		{
-			identifier_c param_name("IN");
-			/* Get the value from a foo(<param_name> = <param_value>) style call */
-			symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
-			
-			/* Get the value from a foo(<param_value>) style call */
-			if (IN_param_value == NULL)
-			  IN_param_value = function_call_param_iterator.next();
-			symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
-			last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
-			
-			if (typeid(*last_type_symbol) == typeid(word_type_name_c))
-			{
-		
-				symbol_c * return_type_symbol = &search_constant_type_c::bool_type_name;
-				s4o.print("(");
-				return_type_symbol->accept(*this);
-				s4o.print(")");
-				IN_param_value->accept(*this);
-				return NULL;
-				
-			}
-			
-			ERROR;
-		}
-		
-	}/*function_word_to_bool*/
-	break;
-
-/****
- *WORD_TO_TIME
- */
-	case function_word_to_time :
-	{
-		symbol_c *last_type_symbol = NULL;
-
-		{
-			identifier_c param_name("IN");
-			/* Get the value from a foo(<param_name> = <param_value>) style call */
-			symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
-			
-			/* Get the value from a foo(<param_value>) style call */
-			if (IN_param_value == NULL)
-			  IN_param_value = function_call_param_iterator.next();
-			symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
-			last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
-			
-			if (typeid(*last_type_symbol) == typeid(word_type_name_c))
-			{
-		
-				symbol_c * return_type_symbol = &search_constant_type_c::time_type_name;
-				s4o.print("(");
-				return_type_symbol->accept(*this);
-				s4o.print(")time_to_real(");
-				IN_param_value->accept(*this);
-				s4o.print(")");
-				return NULL;
-				
-			}
-			
-			ERROR;
-		}
-		
-	}/*function_word_to_time*/
-	break;
-
-/****
- *WORD_TO_INT
- */
-	case function_word_to_int :
-	{
-		symbol_c *last_type_symbol = NULL;
-
-		{
-			identifier_c param_name("IN");
-			/* Get the value from a foo(<param_name> = <param_value>) style call */
-			symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
-			
-			/* Get the value from a foo(<param_value>) style call */
-			if (IN_param_value == NULL)
-			  IN_param_value = function_call_param_iterator.next();
-			symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
-			last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
-			
-			if (typeid(*last_type_symbol) == typeid(word_type_name_c))
-			{
-		
-				symbol_c * return_type_symbol = &search_constant_type_c::int_type_name;
-				s4o.print("(");
-				return_type_symbol->accept(*this);
-				s4o.print(")");
-				IN_param_value->accept(*this);
-				return NULL;
-				
-			}
-			
-			ERROR;
-		}
-		
-	}/*function_word_to_int*/
-	break;
-
-/****
- *WSTRING_TO_REAL
- */
-	case function_wstring_to_real :
-	{
-		symbol_c *last_type_symbol = NULL;
-
-		{
-			identifier_c param_name("IN");
-			/* Get the value from a foo(<param_name> = <param_value>) style call */
-			symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
-			
-			/* Get the value from a foo(<param_value>) style call */
-			if (IN_param_value == NULL)
-			  IN_param_value = function_call_param_iterator.next();
-			symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
-			last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
-			
-			if (typeid(*last_type_symbol) == typeid(wstring_type_name_c))
-			{
-		
-				symbol_c * return_type_symbol = &search_constant_type_c::real_type_name;
-				s4o.print("(");
-				return_type_symbol->accept(*this);
-				s4o.print(")int_to_string(");
-				IN_param_value->accept(*this);
-				s4o.print(", 10)");
-				return NULL;
-				
-			}
-			
-			ERROR;
-		}
-		
-	}/*function_wstring_to_real*/
-	break;
-
-/****
- *WSTRING_TO_SINT
- */
-	case function_wstring_to_sint :
-	{
-		symbol_c *last_type_symbol = NULL;
-
-		{
-			identifier_c param_name("IN");
-			/* Get the value from a foo(<param_name> = <param_value>) style call */
-			symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
-			
-			/* Get the value from a foo(<param_value>) style call */
-			if (IN_param_value == NULL)
-			  IN_param_value = function_call_param_iterator.next();
-			symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
-			last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
-			
-			if (typeid(*last_type_symbol) == typeid(wstring_type_name_c))
-			{
-		
-				symbol_c * return_type_symbol = &search_constant_type_c::sint_type_name;
-				s4o.print("(");
-				return_type_symbol->accept(*this);
-				s4o.print(")int_to_string(");
-				IN_param_value->accept(*this);
-				s4o.print(", 10)");
-				return NULL;
-				
-			}
-			
-			ERROR;
-		}
-		
-	}/*function_wstring_to_sint*/
-	break;
-
-/****
- *WSTRING_TO_LINT
- */
-	case function_wstring_to_lint :
-	{
-		symbol_c *last_type_symbol = NULL;
-
-		{
-			identifier_c param_name("IN");
-			/* Get the value from a foo(<param_name> = <param_value>) style call */
-			symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
-			
-			/* Get the value from a foo(<param_value>) style call */
-			if (IN_param_value == NULL)
-			  IN_param_value = function_call_param_iterator.next();
-			symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
-			last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
-			
-			if (typeid(*last_type_symbol) == typeid(wstring_type_name_c))
-			{
-		
-				symbol_c * return_type_symbol = &search_constant_type_c::lint_type_name;
-				s4o.print("(");
-				return_type_symbol->accept(*this);
-				s4o.print(")int_to_string(");
-				IN_param_value->accept(*this);
-				s4o.print(", 10)");
-				return NULL;
-				
-			}
-			
-			ERROR;
-		}
-		
-	}/*function_wstring_to_lint*/
-	break;
-
-/****
- *WSTRING_TO_DINT
- */
-	case function_wstring_to_dint :
-	{
-		symbol_c *last_type_symbol = NULL;
-
-		{
-			identifier_c param_name("IN");
-			/* Get the value from a foo(<param_name> = <param_value>) style call */
-			symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
-			
-			/* Get the value from a foo(<param_value>) style call */
-			if (IN_param_value == NULL)
-			  IN_param_value = function_call_param_iterator.next();
-			symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
-			last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
-			
-			if (typeid(*last_type_symbol) == typeid(wstring_type_name_c))
-			{
-		
-				symbol_c * return_type_symbol = &search_constant_type_c::dint_type_name;
-				s4o.print("(");
-				return_type_symbol->accept(*this);
-				s4o.print(")int_to_string(");
-				IN_param_value->accept(*this);
-				s4o.print(", 10)");
-				return NULL;
-				
-			}
-			
-			ERROR;
-		}
-		
-	}/*function_wstring_to_dint*/
-	break;
-
-/****
- *WSTRING_TO_DATE
- */
-	case function_wstring_to_date :
-	{
-		symbol_c *last_type_symbol = NULL;
-
-		{
-			identifier_c param_name("IN");
-			/* Get the value from a foo(<param_name> = <param_value>) style call */
-			symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
-			
-			/* Get the value from a foo(<param_value>) style call */
-			if (IN_param_value == NULL)
-			  IN_param_value = function_call_param_iterator.next();
-			symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
-			last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
-			
-			if (typeid(*last_type_symbol) == typeid(wstring_type_name_c))
-			{
-		
-				symbol_c * return_type_symbol = &search_constant_type_c::date_type_name;
-				s4o.print("(");
-				return_type_symbol->accept(*this);
-				s4o.print(")time_to_string(");
-				IN_param_value->accept(*this);
-				s4o.print(")");
-				return NULL;
-				
-			}
-			
-			ERROR;
-		}
-		
-	}/*function_wstring_to_date*/
-	break;
-
-/****
- *WSTRING_TO_DWORD
- */
-	case function_wstring_to_dword :
-	{
-		symbol_c *last_type_symbol = NULL;
-
-		{
-			identifier_c param_name("IN");
-			/* Get the value from a foo(<param_name> = <param_value>) style call */
-			symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
-			
-			/* Get the value from a foo(<param_value>) style call */
-			if (IN_param_value == NULL)
-			  IN_param_value = function_call_param_iterator.next();
-			symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
-			last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
-			
-			if (typeid(*last_type_symbol) == typeid(wstring_type_name_c))
-			{
-		
-				symbol_c * return_type_symbol = &search_constant_type_c::dword_type_name;
-				s4o.print("(");
-				return_type_symbol->accept(*this);
-				s4o.print(")int_to_string(");
-				IN_param_value->accept(*this);
-				s4o.print(", 16)");
-				return NULL;
-				
-			}
-			
-			ERROR;
-		}
-		
-	}/*function_wstring_to_dword*/
-	break;
-
-/****
- *WSTRING_TO_DT
- */
-	case function_wstring_to_dt :
-	{
-		symbol_c *last_type_symbol = NULL;
-
-		{
-			identifier_c param_name("IN");
-			/* Get the value from a foo(<param_name> = <param_value>) style call */
-			symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
-			
-			/* Get the value from a foo(<param_value>) style call */
-			if (IN_param_value == NULL)
-			  IN_param_value = function_call_param_iterator.next();
-			symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
-			last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
-			
-			if (typeid(*last_type_symbol) == typeid(wstring_type_name_c))
-			{
-		
-				symbol_c * return_type_symbol = &search_constant_type_c::dt_type_name;
-				s4o.print("(");
-				return_type_symbol->accept(*this);
-				s4o.print(")time_to_string(");
-				IN_param_value->accept(*this);
-				s4o.print(")");
-				return NULL;
-				
-			}
-			
-			ERROR;
-		}
-		
-	}/*function_wstring_to_dt*/
-	break;
-
-/****
- *WSTRING_TO_TOD
- */
-	case function_wstring_to_tod :
-	{
-		symbol_c *last_type_symbol = NULL;
-
-		{
-			identifier_c param_name("IN");
-			/* Get the value from a foo(<param_name> = <param_value>) style call */
-			symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
-			
-			/* Get the value from a foo(<param_value>) style call */
-			if (IN_param_value == NULL)
-			  IN_param_value = function_call_param_iterator.next();
-			symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
-			last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
-			
-			if (typeid(*last_type_symbol) == typeid(wstring_type_name_c))
-			{
-		
-				symbol_c * return_type_symbol = &search_constant_type_c::tod_type_name;
-				s4o.print("(");
-				return_type_symbol->accept(*this);
-				s4o.print(")time_to_string(");
-				IN_param_value->accept(*this);
-				s4o.print(")");
-				return NULL;
-				
-			}
-			
-			ERROR;
-		}
-		
-	}/*function_wstring_to_tod*/
-	break;
-
-/****
- *WSTRING_TO_UDINT
- */
-	case function_wstring_to_udint :
-	{
-		symbol_c *last_type_symbol = NULL;
-
-		{
-			identifier_c param_name("IN");
-			/* Get the value from a foo(<param_name> = <param_value>) style call */
-			symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
-			
-			/* Get the value from a foo(<param_value>) style call */
-			if (IN_param_value == NULL)
-			  IN_param_value = function_call_param_iterator.next();
-			symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
-			last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
-			
-			if (typeid(*last_type_symbol) == typeid(wstring_type_name_c))
-			{
-		
-				symbol_c * return_type_symbol = &search_constant_type_c::udint_type_name;
-				s4o.print("(");
-				return_type_symbol->accept(*this);
-				s4o.print(")int_to_string(");
-				IN_param_value->accept(*this);
-				s4o.print(", 10)");
-				return NULL;
-				
-			}
-			
-			ERROR;
-		}
-		
-	}/*function_wstring_to_udint*/
-	break;
-
-/****
- *WSTRING_TO_WORD
- */
-	case function_wstring_to_word :
-	{
-		symbol_c *last_type_symbol = NULL;
-
-		{
-			identifier_c param_name("IN");
-			/* Get the value from a foo(<param_name> = <param_value>) style call */
-			symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
-			
-			/* Get the value from a foo(<param_value>) style call */
-			if (IN_param_value == NULL)
-			  IN_param_value = function_call_param_iterator.next();
-			symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
-			last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
-			
-			if (typeid(*last_type_symbol) == typeid(wstring_type_name_c))
-			{
-		
-				symbol_c * return_type_symbol = &search_constant_type_c::word_type_name;
-				s4o.print("(");
-				return_type_symbol->accept(*this);
-				s4o.print(")int_to_string(");
-				IN_param_value->accept(*this);
-				s4o.print(", 16)");
-				return NULL;
-				
-			}
-			
-			ERROR;
-		}
-		
-	}/*function_wstring_to_word*/
-	break;
-
-/****
- *WSTRING_TO_WSTRING
- */
-	case function_wstring_to_wstring :
-	{
-		symbol_c *last_type_symbol = NULL;
-
-		{
-			identifier_c param_name("IN");
-			/* Get the value from a foo(<param_name> = <param_value>) style call */
-			symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
-			
-			/* Get the value from a foo(<param_value>) style call */
-			if (IN_param_value == NULL)
-			  IN_param_value = function_call_param_iterator.next();
-			symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
-			last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
-			
-			if (typeid(*last_type_symbol) == typeid(wstring_type_name_c))
-			{
-		
-				symbol_c * return_type_symbol = &search_constant_type_c::wstring_type_name;
-				s4o.print("#error WSTRING_TO_WSTRING not implemented!");
-				return NULL;
-				
-			}
-			
-			ERROR;
-		}
-		
-	}/*function_wstring_to_wstring*/
-	break;
-
-/****
- *WSTRING_TO_STRING
- */
-	case function_wstring_to_string :
-	{
-		symbol_c *last_type_symbol = NULL;
-
-		{
-			identifier_c param_name("IN");
-			/* Get the value from a foo(<param_name> = <param_value>) style call */
-			symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
-			
-			/* Get the value from a foo(<param_value>) style call */
-			if (IN_param_value == NULL)
-			  IN_param_value = function_call_param_iterator.next();
-			symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
-			last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
-			
-			if (typeid(*last_type_symbol) == typeid(wstring_type_name_c))
-			{
-		
-				symbol_c * return_type_symbol = &search_constant_type_c::string_type_name;
-				s4o.print("#error WSTRING_TO_STRING not implemented!");
-				return NULL;
-				
-			}
-			
-			ERROR;
-		}
-		
-	}/*function_wstring_to_string*/
-	break;
-
-/****
- *WSTRING_TO_LWORD
- */
-	case function_wstring_to_lword :
-	{
-		symbol_c *last_type_symbol = NULL;
-
-		{
-			identifier_c param_name("IN");
-			/* Get the value from a foo(<param_name> = <param_value>) style call */
-			symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
-			
-			/* Get the value from a foo(<param_value>) style call */
-			if (IN_param_value == NULL)
-			  IN_param_value = function_call_param_iterator.next();
-			symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
-			last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
-			
-			if (typeid(*last_type_symbol) == typeid(wstring_type_name_c))
-			{
-		
-				symbol_c * return_type_symbol = &search_constant_type_c::lword_type_name;
-				s4o.print("(");
-				return_type_symbol->accept(*this);
-				s4o.print(")int_to_string(");
-				IN_param_value->accept(*this);
-				s4o.print(", 16)");
-				return NULL;
-				
-			}
-			
-			ERROR;
-		}
-		
-	}/*function_wstring_to_lword*/
-	break;
-
-/****
- *WSTRING_TO_UINT
- */
-	case function_wstring_to_uint :
-	{
-		symbol_c *last_type_symbol = NULL;
-
-		{
-			identifier_c param_name("IN");
-			/* Get the value from a foo(<param_name> = <param_value>) style call */
-			symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
-			
-			/* Get the value from a foo(<param_value>) style call */
-			if (IN_param_value == NULL)
-			  IN_param_value = function_call_param_iterator.next();
-			symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
-			last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
-			
-			if (typeid(*last_type_symbol) == typeid(wstring_type_name_c))
-			{
-		
-				symbol_c * return_type_symbol = &search_constant_type_c::uint_type_name;
-				s4o.print("(");
-				return_type_symbol->accept(*this);
-				s4o.print(")int_to_string(");
-				IN_param_value->accept(*this);
-				s4o.print(", 10)");
-				return NULL;
-				
-			}
-			
-			ERROR;
-		}
-		
-	}/*function_wstring_to_uint*/
-	break;
-
-/****
- *WSTRING_TO_LREAL
- */
-	case function_wstring_to_lreal :
-	{
-		symbol_c *last_type_symbol = NULL;
-
-		{
-			identifier_c param_name("IN");
-			/* Get the value from a foo(<param_name> = <param_value>) style call */
-			symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
-			
-			/* Get the value from a foo(<param_value>) style call */
-			if (IN_param_value == NULL)
-			  IN_param_value = function_call_param_iterator.next();
-			symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
-			last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
-			
-			if (typeid(*last_type_symbol) == typeid(wstring_type_name_c))
-			{
-		
-				symbol_c * return_type_symbol = &search_constant_type_c::lreal_type_name;
-				s4o.print("(");
-				return_type_symbol->accept(*this);
-				s4o.print(")int_to_string(");
-				IN_param_value->accept(*this);
-				s4o.print(", 10)");
-				return NULL;
-				
-			}
-			
-			ERROR;
-		}
-		
-	}/*function_wstring_to_lreal*/
-	break;
-
-/****
- *WSTRING_TO_BYTE
- */
-	case function_wstring_to_byte :
-	{
-		symbol_c *last_type_symbol = NULL;
-
-		{
-			identifier_c param_name("IN");
-			/* Get the value from a foo(<param_name> = <param_value>) style call */
-			symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
-			
-			/* Get the value from a foo(<param_value>) style call */
-			if (IN_param_value == NULL)
-			  IN_param_value = function_call_param_iterator.next();
-			symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
-			last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
-			
-			if (typeid(*last_type_symbol) == typeid(wstring_type_name_c))
-			{
-		
-				symbol_c * return_type_symbol = &search_constant_type_c::byte_type_name;
-				s4o.print("(");
-				return_type_symbol->accept(*this);
-				s4o.print(")int_to_string(");
-				IN_param_value->accept(*this);
-				s4o.print(", 16)");
-				return NULL;
-				
-			}
-			
-			ERROR;
-		}
-		
-	}/*function_wstring_to_byte*/
-	break;
-
-/****
- *WSTRING_TO_USINT
- */
-	case function_wstring_to_usint :
-	{
-		symbol_c *last_type_symbol = NULL;
-
-		{
-			identifier_c param_name("IN");
-			/* Get the value from a foo(<param_name> = <param_value>) style call */
-			symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
-			
-			/* Get the value from a foo(<param_value>) style call */
-			if (IN_param_value == NULL)
-			  IN_param_value = function_call_param_iterator.next();
-			symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
-			last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
-			
-			if (typeid(*last_type_symbol) == typeid(wstring_type_name_c))
-			{
-		
-				symbol_c * return_type_symbol = &search_constant_type_c::usint_type_name;
-				s4o.print("(");
-				return_type_symbol->accept(*this);
-				s4o.print(")int_to_string(");
-				IN_param_value->accept(*this);
-				s4o.print(", 10)");
-				return NULL;
-				
-			}
-			
-			ERROR;
-		}
-		
-	}/*function_wstring_to_usint*/
-	break;
-
-/****
- *WSTRING_TO_ULINT
- */
-	case function_wstring_to_ulint :
-	{
-		symbol_c *last_type_symbol = NULL;
-
-		{
-			identifier_c param_name("IN");
-			/* Get the value from a foo(<param_name> = <param_value>) style call */
-			symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
-			
-			/* Get the value from a foo(<param_value>) style call */
-			if (IN_param_value == NULL)
-			  IN_param_value = function_call_param_iterator.next();
-			symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
-			last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
-			
-			if (typeid(*last_type_symbol) == typeid(wstring_type_name_c))
-			{
-		
-				symbol_c * return_type_symbol = &search_constant_type_c::ulint_type_name;
-				s4o.print("(");
-				return_type_symbol->accept(*this);
-				s4o.print(")int_to_string(");
-				IN_param_value->accept(*this);
-				s4o.print(", 10)");
-				return NULL;
-				
-			}
-			
-			ERROR;
-		}
-		
-	}/*function_wstring_to_ulint*/
-	break;
-
-/****
- *WSTRING_TO_BOOL
- */
-	case function_wstring_to_bool :
-	{
-		symbol_c *last_type_symbol = NULL;
-
-		{
-			identifier_c param_name("IN");
-			/* Get the value from a foo(<param_name> = <param_value>) style call */
-			symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
-			
-			/* Get the value from a foo(<param_value>) style call */
-			if (IN_param_value == NULL)
-			  IN_param_value = function_call_param_iterator.next();
-			symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
-			last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
-			
-			if (typeid(*last_type_symbol) == typeid(wstring_type_name_c))
-			{
-		
-				symbol_c * return_type_symbol = &search_constant_type_c::bool_type_name;
-				s4o.print("(");
-				return_type_symbol->accept(*this);
-				s4o.print(")int_to_string(");
-				IN_param_value->accept(*this);
-				s4o.print(", 16)");
-				return NULL;
-				
-			}
-			
-			ERROR;
-		}
-		
-	}/*function_wstring_to_bool*/
-	break;
-
-/****
- *WSTRING_TO_TIME
- */
-	case function_wstring_to_time :
-	{
-		symbol_c *last_type_symbol = NULL;
-
-		{
-			identifier_c param_name("IN");
-			/* Get the value from a foo(<param_name> = <param_value>) style call */
-			symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
-			
-			/* Get the value from a foo(<param_value>) style call */
-			if (IN_param_value == NULL)
-			  IN_param_value = function_call_param_iterator.next();
-			symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
-			last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
-			
-			if (typeid(*last_type_symbol) == typeid(wstring_type_name_c))
-			{
-		
-				symbol_c * return_type_symbol = &search_constant_type_c::time_type_name;
-				s4o.print("(");
-				return_type_symbol->accept(*this);
-				s4o.print(")time_to_string(");
-				IN_param_value->accept(*this);
-				s4o.print(")");
-				return NULL;
-				
-			}
-			
-			ERROR;
-		}
-		
-	}/*function_wstring_to_time*/
-	break;
-
-/****
- *WSTRING_TO_INT
- */
-	case function_wstring_to_int :
-	{
-		symbol_c *last_type_symbol = NULL;
-
-		{
-			identifier_c param_name("IN");
-			/* Get the value from a foo(<param_name> = <param_value>) style call */
-			symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
-			
-			/* Get the value from a foo(<param_value>) style call */
-			if (IN_param_value == NULL)
-			  IN_param_value = function_call_param_iterator.next();
-			symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
-			last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
-			
-			if (typeid(*last_type_symbol) == typeid(wstring_type_name_c))
-			{
-		
-				symbol_c * return_type_symbol = &search_constant_type_c::int_type_name;
-				s4o.print("(");
-				return_type_symbol->accept(*this);
-				s4o.print(")int_to_string(");
-				IN_param_value->accept(*this);
-				s4o.print(", 10)");
-				return NULL;
-				
-			}
-			
-			ERROR;
-		}
-		
-	}/*function_wstring_to_int*/
-	break;
-
-/****
- *STRING_TO_REAL
- */
-	case function_string_to_real :
-	{
-		symbol_c *last_type_symbol = NULL;
-
-		{
-			identifier_c param_name("IN");
-			/* Get the value from a foo(<param_name> = <param_value>) style call */
-			symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
-			
-			/* Get the value from a foo(<param_value>) style call */
-			if (IN_param_value == NULL)
-			  IN_param_value = function_call_param_iterator.next();
-			symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
-			last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
-			
-			if (typeid(*last_type_symbol) == typeid(string_type_name_c))
-			{
-		
-				symbol_c * return_type_symbol = &search_constant_type_c::real_type_name;
-				s4o.print("(");
-				return_type_symbol->accept(*this);
-				s4o.print(")int_to_string(");
-				IN_param_value->accept(*this);
-				s4o.print(", 10)");
-				return NULL;
-				
-			}
-			
-			ERROR;
-		}
-		
-	}/*function_string_to_real*/
-	break;
-
-/****
- *STRING_TO_SINT
- */
-	case function_string_to_sint :
-	{
-		symbol_c *last_type_symbol = NULL;
-
-		{
-			identifier_c param_name("IN");
-			/* Get the value from a foo(<param_name> = <param_value>) style call */
-			symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
-			
-			/* Get the value from a foo(<param_value>) style call */
-			if (IN_param_value == NULL)
-			  IN_param_value = function_call_param_iterator.next();
-			symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
-			last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
-			
-			if (typeid(*last_type_symbol) == typeid(string_type_name_c))
-			{
-		
-				symbol_c * return_type_symbol = &search_constant_type_c::sint_type_name;
-				s4o.print("(");
-				return_type_symbol->accept(*this);
-				s4o.print(")int_to_string(");
-				IN_param_value->accept(*this);
-				s4o.print(", 10)");
-				return NULL;
-				
-			}
-			
-			ERROR;
-		}
-		
-	}/*function_string_to_sint*/
-	break;
-
-/****
- *STRING_TO_LINT
- */
-	case function_string_to_lint :
-	{
-		symbol_c *last_type_symbol = NULL;
-
-		{
-			identifier_c param_name("IN");
-			/* Get the value from a foo(<param_name> = <param_value>) style call */
-			symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
-			
-			/* Get the value from a foo(<param_value>) style call */
-			if (IN_param_value == NULL)
-			  IN_param_value = function_call_param_iterator.next();
-			symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
-			last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
-			
-			if (typeid(*last_type_symbol) == typeid(string_type_name_c))
-			{
-		
-				symbol_c * return_type_symbol = &search_constant_type_c::lint_type_name;
-				s4o.print("(");
-				return_type_symbol->accept(*this);
-				s4o.print(")int_to_string(");
-				IN_param_value->accept(*this);
-				s4o.print(", 10)");
-				return NULL;
-				
-			}
-			
-			ERROR;
-		}
-		
-	}/*function_string_to_lint*/
-	break;
-
-/****
- *STRING_TO_DINT
- */
-	case function_string_to_dint :
-	{
-		symbol_c *last_type_symbol = NULL;
-
-		{
-			identifier_c param_name("IN");
-			/* Get the value from a foo(<param_name> = <param_value>) style call */
-			symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
-			
-			/* Get the value from a foo(<param_value>) style call */
-			if (IN_param_value == NULL)
-			  IN_param_value = function_call_param_iterator.next();
-			symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
-			last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
-			
-			if (typeid(*last_type_symbol) == typeid(string_type_name_c))
-			{
-		
-				symbol_c * return_type_symbol = &search_constant_type_c::dint_type_name;
-				s4o.print("(");
-				return_type_symbol->accept(*this);
-				s4o.print(")int_to_string(");
-				IN_param_value->accept(*this);
-				s4o.print(", 10)");
-				return NULL;
-				
-			}
-			
-			ERROR;
-		}
-		
-	}/*function_string_to_dint*/
-	break;
-
-/****
- *STRING_TO_DATE
- */
-	case function_string_to_date :
-	{
-		symbol_c *last_type_symbol = NULL;
-
-		{
-			identifier_c param_name("IN");
-			/* Get the value from a foo(<param_name> = <param_value>) style call */
-			symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
-			
-			/* Get the value from a foo(<param_value>) style call */
-			if (IN_param_value == NULL)
-			  IN_param_value = function_call_param_iterator.next();
-			symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
-			last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
-			
-			if (typeid(*last_type_symbol) == typeid(string_type_name_c))
-			{
-		
-				symbol_c * return_type_symbol = &search_constant_type_c::date_type_name;
-				s4o.print("(");
-				return_type_symbol->accept(*this);
-				s4o.print(")time_to_string(");
-				IN_param_value->accept(*this);
-				s4o.print(")");
-				return NULL;
-				
-			}
-			
-			ERROR;
-		}
-		
-	}/*function_string_to_date*/
-	break;
-
-/****
- *STRING_TO_DWORD
- */
-	case function_string_to_dword :
-	{
-		symbol_c *last_type_symbol = NULL;
-
-		{
-			identifier_c param_name("IN");
-			/* Get the value from a foo(<param_name> = <param_value>) style call */
-			symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
-			
-			/* Get the value from a foo(<param_value>) style call */
-			if (IN_param_value == NULL)
-			  IN_param_value = function_call_param_iterator.next();
-			symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
-			last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
-			
-			if (typeid(*last_type_symbol) == typeid(string_type_name_c))
-			{
-		
-				symbol_c * return_type_symbol = &search_constant_type_c::dword_type_name;
-				s4o.print("(");
-				return_type_symbol->accept(*this);
-				s4o.print(")int_to_string(");
-				IN_param_value->accept(*this);
-				s4o.print(", 16)");
-				return NULL;
-				
-			}
-			
-			ERROR;
-		}
-		
-	}/*function_string_to_dword*/
-	break;
-
-/****
- *STRING_TO_DT
- */
-	case function_string_to_dt :
-	{
-		symbol_c *last_type_symbol = NULL;
-
-		{
-			identifier_c param_name("IN");
-			/* Get the value from a foo(<param_name> = <param_value>) style call */
-			symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
-			
-			/* Get the value from a foo(<param_value>) style call */
-			if (IN_param_value == NULL)
-			  IN_param_value = function_call_param_iterator.next();
-			symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
-			last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
-			
-			if (typeid(*last_type_symbol) == typeid(string_type_name_c))
-			{
-		
-				symbol_c * return_type_symbol = &search_constant_type_c::dt_type_name;
-				s4o.print("(");
-				return_type_symbol->accept(*this);
-				s4o.print(")time_to_string(");
-				IN_param_value->accept(*this);
-				s4o.print(")");
-				return NULL;
-				
-			}
-			
-			ERROR;
-		}
-		
-	}/*function_string_to_dt*/
-	break;
-
-/****
- *STRING_TO_TOD
- */
-	case function_string_to_tod :
-	{
-		symbol_c *last_type_symbol = NULL;
-
-		{
-			identifier_c param_name("IN");
-			/* Get the value from a foo(<param_name> = <param_value>) style call */
-			symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
-			
-			/* Get the value from a foo(<param_value>) style call */
-			if (IN_param_value == NULL)
-			  IN_param_value = function_call_param_iterator.next();
-			symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
-			last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
-			
-			if (typeid(*last_type_symbol) == typeid(string_type_name_c))
-			{
-		
-				symbol_c * return_type_symbol = &search_constant_type_c::tod_type_name;
-				s4o.print("(");
-				return_type_symbol->accept(*this);
-				s4o.print(")time_to_string(");
-				IN_param_value->accept(*this);
-				s4o.print(")");
-				return NULL;
-				
-			}
-			
-			ERROR;
-		}
-		
-	}/*function_string_to_tod*/
-	break;
-
-/****
- *STRING_TO_UDINT
- */
-	case function_string_to_udint :
-	{
-		symbol_c *last_type_symbol = NULL;
-
-		{
-			identifier_c param_name("IN");
-			/* Get the value from a foo(<param_name> = <param_value>) style call */
-			symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
-			
-			/* Get the value from a foo(<param_value>) style call */
-			if (IN_param_value == NULL)
-			  IN_param_value = function_call_param_iterator.next();
-			symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
-			last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
-			
-			if (typeid(*last_type_symbol) == typeid(string_type_name_c))
-			{
-		
-				symbol_c * return_type_symbol = &search_constant_type_c::udint_type_name;
-				s4o.print("(");
-				return_type_symbol->accept(*this);
-				s4o.print(")int_to_string(");
-				IN_param_value->accept(*this);
-				s4o.print(", 10)");
-				return NULL;
-				
-			}
-			
-			ERROR;
-		}
-		
-	}/*function_string_to_udint*/
-	break;
-
-/****
- *STRING_TO_WORD
- */
-	case function_string_to_word :
-	{
-		symbol_c *last_type_symbol = NULL;
-
-		{
-			identifier_c param_name("IN");
-			/* Get the value from a foo(<param_name> = <param_value>) style call */
-			symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
-			
-			/* Get the value from a foo(<param_value>) style call */
-			if (IN_param_value == NULL)
-			  IN_param_value = function_call_param_iterator.next();
-			symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
-			last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
-			
-			if (typeid(*last_type_symbol) == typeid(string_type_name_c))
-			{
-		
-				symbol_c * return_type_symbol = &search_constant_type_c::word_type_name;
-				s4o.print("(");
-				return_type_symbol->accept(*this);
-				s4o.print(")int_to_string(");
-				IN_param_value->accept(*this);
-				s4o.print(", 16)");
-				return NULL;
-				
-			}
-			
-			ERROR;
-		}
-		
-	}/*function_string_to_word*/
-	break;
-
-/****
- *STRING_TO_WSTRING
- */
-	case function_string_to_wstring :
-	{
-		symbol_c *last_type_symbol = NULL;
-
-		{
-			identifier_c param_name("IN");
-			/* Get the value from a foo(<param_name> = <param_value>) style call */
-			symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
-			
-			/* Get the value from a foo(<param_value>) style call */
-			if (IN_param_value == NULL)
-			  IN_param_value = function_call_param_iterator.next();
-			symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
-			last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
-			
-			if (typeid(*last_type_symbol) == typeid(string_type_name_c))
-			{
-		
-				symbol_c * return_type_symbol = &search_constant_type_c::wstring_type_name;
-				s4o.print("#error STRING_TO_WSTRING not implemented!");
-				return NULL;
-				
-			}
-			
-			ERROR;
-		}
-		
-	}/*function_string_to_wstring*/
-	break;
-
-/****
- *STRING_TO_STRING
- */
-	case function_string_to_string :
-	{
-		symbol_c *last_type_symbol = NULL;
-
-		{
-			identifier_c param_name("IN");
-			/* Get the value from a foo(<param_name> = <param_value>) style call */
-			symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
-			
-			/* Get the value from a foo(<param_value>) style call */
-			if (IN_param_value == NULL)
-			  IN_param_value = function_call_param_iterator.next();
-			symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
-			last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
-			
-			if (typeid(*last_type_symbol) == typeid(string_type_name_c))
-			{
-		
-				symbol_c * return_type_symbol = &search_constant_type_c::string_type_name;
-				s4o.print("#error STRING_TO_STRING not implemented!");
-				return NULL;
-				
-			}
-			
-			ERROR;
-		}
-		
-	}/*function_string_to_string*/
-	break;
-
-/****
- *STRING_TO_LWORD
- */
-	case function_string_to_lword :
-	{
-		symbol_c *last_type_symbol = NULL;
-
-		{
-			identifier_c param_name("IN");
-			/* Get the value from a foo(<param_name> = <param_value>) style call */
-			symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
-			
-			/* Get the value from a foo(<param_value>) style call */
-			if (IN_param_value == NULL)
-			  IN_param_value = function_call_param_iterator.next();
-			symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
-			last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
-			
-			if (typeid(*last_type_symbol) == typeid(string_type_name_c))
-			{
-		
-				symbol_c * return_type_symbol = &search_constant_type_c::lword_type_name;
-				s4o.print("(");
-				return_type_symbol->accept(*this);
-				s4o.print(")int_to_string(");
-				IN_param_value->accept(*this);
-				s4o.print(", 16)");
-				return NULL;
-				
-			}
-			
-			ERROR;
-		}
-		
-	}/*function_string_to_lword*/
-	break;
-
-/****
- *STRING_TO_UINT
- */
-	case function_string_to_uint :
-	{
-		symbol_c *last_type_symbol = NULL;
-
-		{
-			identifier_c param_name("IN");
-			/* Get the value from a foo(<param_name> = <param_value>) style call */
-			symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
-			
-			/* Get the value from a foo(<param_value>) style call */
-			if (IN_param_value == NULL)
-			  IN_param_value = function_call_param_iterator.next();
-			symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
-			last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
-			
-			if (typeid(*last_type_symbol) == typeid(string_type_name_c))
-			{
-		
-				symbol_c * return_type_symbol = &search_constant_type_c::uint_type_name;
-				s4o.print("(");
-				return_type_symbol->accept(*this);
-				s4o.print(")int_to_string(");
-				IN_param_value->accept(*this);
-				s4o.print(", 10)");
-				return NULL;
-				
-			}
-			
-			ERROR;
-		}
-		
-	}/*function_string_to_uint*/
-	break;
-
-/****
- *STRING_TO_LREAL
- */
-	case function_string_to_lreal :
-	{
-		symbol_c *last_type_symbol = NULL;
-
-		{
-			identifier_c param_name("IN");
-			/* Get the value from a foo(<param_name> = <param_value>) style call */
-			symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
-			
-			/* Get the value from a foo(<param_value>) style call */
-			if (IN_param_value == NULL)
-			  IN_param_value = function_call_param_iterator.next();
-			symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
-			last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
-			
-			if (typeid(*last_type_symbol) == typeid(string_type_name_c))
-			{
-		
-				symbol_c * return_type_symbol = &search_constant_type_c::lreal_type_name;
-				s4o.print("(");
-				return_type_symbol->accept(*this);
-				s4o.print(")int_to_string(");
-				IN_param_value->accept(*this);
-				s4o.print(", 10)");
-				return NULL;
-				
-			}
-			
-			ERROR;
-		}
-		
-	}/*function_string_to_lreal*/
-	break;
-
-/****
- *STRING_TO_BYTE
- */
-	case function_string_to_byte :
-	{
-		symbol_c *last_type_symbol = NULL;
-
-		{
-			identifier_c param_name("IN");
-			/* Get the value from a foo(<param_name> = <param_value>) style call */
-			symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
-			
-			/* Get the value from a foo(<param_value>) style call */
-			if (IN_param_value == NULL)
-			  IN_param_value = function_call_param_iterator.next();
-			symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
-			last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
-			
-			if (typeid(*last_type_symbol) == typeid(string_type_name_c))
-			{
-		
-				symbol_c * return_type_symbol = &search_constant_type_c::byte_type_name;
-				s4o.print("(");
-				return_type_symbol->accept(*this);
-				s4o.print(")int_to_string(");
-				IN_param_value->accept(*this);
-				s4o.print(", 16)");
-				return NULL;
-				
-			}
-			
-			ERROR;
-		}
-		
-	}/*function_string_to_byte*/
-	break;
-
-/****
- *STRING_TO_USINT
- */
-	case function_string_to_usint :
-	{
-		symbol_c *last_type_symbol = NULL;
-
-		{
-			identifier_c param_name("IN");
-			/* Get the value from a foo(<param_name> = <param_value>) style call */
-			symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
-			
-			/* Get the value from a foo(<param_value>) style call */
-			if (IN_param_value == NULL)
-			  IN_param_value = function_call_param_iterator.next();
-			symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
-			last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
-			
-			if (typeid(*last_type_symbol) == typeid(string_type_name_c))
-			{
-		
-				symbol_c * return_type_symbol = &search_constant_type_c::usint_type_name;
-				s4o.print("(");
-				return_type_symbol->accept(*this);
-				s4o.print(")int_to_string(");
-				IN_param_value->accept(*this);
-				s4o.print(", 10)");
-				return NULL;
-				
-			}
-			
-			ERROR;
-		}
-		
-	}/*function_string_to_usint*/
-	break;
-
-/****
- *STRING_TO_ULINT
- */
-	case function_string_to_ulint :
-	{
-		symbol_c *last_type_symbol = NULL;
-
-		{
-			identifier_c param_name("IN");
-			/* Get the value from a foo(<param_name> = <param_value>) style call */
-			symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
-			
-			/* Get the value from a foo(<param_value>) style call */
-			if (IN_param_value == NULL)
-			  IN_param_value = function_call_param_iterator.next();
-			symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
-			last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
-			
-			if (typeid(*last_type_symbol) == typeid(string_type_name_c))
-			{
-		
-				symbol_c * return_type_symbol = &search_constant_type_c::ulint_type_name;
-				s4o.print("(");
-				return_type_symbol->accept(*this);
-				s4o.print(")int_to_string(");
-				IN_param_value->accept(*this);
-				s4o.print(", 10)");
-				return NULL;
-				
-			}
-			
-			ERROR;
-		}
-		
-	}/*function_string_to_ulint*/
-	break;
-
-/****
- *STRING_TO_BOOL
- */
-	case function_string_to_bool :
-	{
-		symbol_c *last_type_symbol = NULL;
-
-		{
-			identifier_c param_name("IN");
-			/* Get the value from a foo(<param_name> = <param_value>) style call */
-			symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
-			
-			/* Get the value from a foo(<param_value>) style call */
-			if (IN_param_value == NULL)
-			  IN_param_value = function_call_param_iterator.next();
-			symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
-			last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
-			
-			if (typeid(*last_type_symbol) == typeid(string_type_name_c))
-			{
-		
-				symbol_c * return_type_symbol = &search_constant_type_c::bool_type_name;
-				s4o.print("(");
-				return_type_symbol->accept(*this);
-				s4o.print(")int_to_string(");
-				IN_param_value->accept(*this);
-				s4o.print(", 16)");
-				return NULL;
-				
-			}
-			
-			ERROR;
-		}
-		
-	}/*function_string_to_bool*/
-	break;
-
-/****
- *STRING_TO_TIME
- */
-	case function_string_to_time :
-	{
-		symbol_c *last_type_symbol = NULL;
-
-		{
-			identifier_c param_name("IN");
-			/* Get the value from a foo(<param_name> = <param_value>) style call */
-			symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
-			
-			/* Get the value from a foo(<param_value>) style call */
-			if (IN_param_value == NULL)
-			  IN_param_value = function_call_param_iterator.next();
-			symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
-			last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
-			
-			if (typeid(*last_type_symbol) == typeid(string_type_name_c))
-			{
-		
-				symbol_c * return_type_symbol = &search_constant_type_c::time_type_name;
-				s4o.print("(");
-				return_type_symbol->accept(*this);
-				s4o.print(")time_to_string(");
-				IN_param_value->accept(*this);
-				s4o.print(")");
-				return NULL;
-				
-			}
-			
-			ERROR;
-		}
-		
-	}/*function_string_to_time*/
-	break;
-
-/****
- *STRING_TO_INT
- */
-	case function_string_to_int :
-	{
-		symbol_c *last_type_symbol = NULL;
-
-		{
-			identifier_c param_name("IN");
-			/* Get the value from a foo(<param_name> = <param_value>) style call */
-			symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
-			
-			/* Get the value from a foo(<param_value>) style call */
-			if (IN_param_value == NULL)
-			  IN_param_value = function_call_param_iterator.next();
-			symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
-			last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
-			
-			if (typeid(*last_type_symbol) == typeid(string_type_name_c))
-			{
-		
-				symbol_c * return_type_symbol = &search_constant_type_c::int_type_name;
-				s4o.print("(");
-				return_type_symbol->accept(*this);
-				s4o.print(")int_to_string(");
-				IN_param_value->accept(*this);
-				s4o.print(", 10)");
-				return NULL;
-				
-			}
-			
-			ERROR;
-		}
-		
-	}/*function_string_to_int*/
-	break;
-
-/****
- *LWORD_TO_REAL
- */
-	case function_lword_to_real :
-	{
-		symbol_c *last_type_symbol = NULL;
-
-		{
-			identifier_c param_name("IN");
-			/* Get the value from a foo(<param_name> = <param_value>) style call */
-			symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
-			
-			/* Get the value from a foo(<param_value>) style call */
-			if (IN_param_value == NULL)
-			  IN_param_value = function_call_param_iterator.next();
-			symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
-			last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
-			
-			if (typeid(*last_type_symbol) == typeid(lword_type_name_c))
-			{
-		
-				symbol_c * return_type_symbol = &search_constant_type_c::real_type_name;
-				s4o.print("(");
-				return_type_symbol->accept(*this);
-				s4o.print(")");
-				IN_param_value->accept(*this);
-				return NULL;
-				
-			}
-			
-			ERROR;
-		}
-		
-	}/*function_lword_to_real*/
-	break;
-
-/****
- *LWORD_TO_SINT
- */
-	case function_lword_to_sint :
-	{
-		symbol_c *last_type_symbol = NULL;
-
-		{
-			identifier_c param_name("IN");
-			/* Get the value from a foo(<param_name> = <param_value>) style call */
-			symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
-			
-			/* Get the value from a foo(<param_value>) style call */
-			if (IN_param_value == NULL)
-			  IN_param_value = function_call_param_iterator.next();
-			symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
-			last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
-			
-			if (typeid(*last_type_symbol) == typeid(lword_type_name_c))
-			{
-		
-				symbol_c * return_type_symbol = &search_constant_type_c::sint_type_name;
-				s4o.print("(");
-				return_type_symbol->accept(*this);
-				s4o.print(")");
-				IN_param_value->accept(*this);
-				return NULL;
-				
-			}
-			
-			ERROR;
-		}
-		
-	}/*function_lword_to_sint*/
-	break;
-
-/****
- *LWORD_TO_LINT
- */
-	case function_lword_to_lint :
-	{
-		symbol_c *last_type_symbol = NULL;
-
-		{
-			identifier_c param_name("IN");
-			/* Get the value from a foo(<param_name> = <param_value>) style call */
-			symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
-			
-			/* Get the value from a foo(<param_value>) style call */
-			if (IN_param_value == NULL)
-			  IN_param_value = function_call_param_iterator.next();
-			symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
-			last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
-			
-			if (typeid(*last_type_symbol) == typeid(lword_type_name_c))
-			{
-		
-				symbol_c * return_type_symbol = &search_constant_type_c::lint_type_name;
-				s4o.print("(");
-				return_type_symbol->accept(*this);
-				s4o.print(")");
-				IN_param_value->accept(*this);
-				return NULL;
-				
-			}
-			
-			ERROR;
-		}
-		
-	}/*function_lword_to_lint*/
-	break;
-
-/****
- *LWORD_TO_DINT
- */
-	case function_lword_to_dint :
-	{
-		symbol_c *last_type_symbol = NULL;
-
-		{
-			identifier_c param_name("IN");
-			/* Get the value from a foo(<param_name> = <param_value>) style call */
-			symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
-			
-			/* Get the value from a foo(<param_value>) style call */
-			if (IN_param_value == NULL)
-			  IN_param_value = function_call_param_iterator.next();
-			symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
-			last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
-			
-			if (typeid(*last_type_symbol) == typeid(lword_type_name_c))
-			{
-		
-				symbol_c * return_type_symbol = &search_constant_type_c::dint_type_name;
-				s4o.print("(");
-				return_type_symbol->accept(*this);
-				s4o.print(")");
-				IN_param_value->accept(*this);
-				return NULL;
-				
-			}
-			
-			ERROR;
-		}
-		
-	}/*function_lword_to_dint*/
-	break;
-
-/****
- *LWORD_TO_DATE
- */
-	case function_lword_to_date :
-	{
-		symbol_c *last_type_symbol = NULL;
-
-		{
-			identifier_c param_name("IN");
-			/* Get the value from a foo(<param_name> = <param_value>) style call */
-			symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
-			
-			/* Get the value from a foo(<param_value>) style call */
-			if (IN_param_value == NULL)
-			  IN_param_value = function_call_param_iterator.next();
-			symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
-			last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
-			
-			if (typeid(*last_type_symbol) == typeid(lword_type_name_c))
-			{
-		
-				symbol_c * return_type_symbol = &search_constant_type_c::date_type_name;
-				s4o.print("(");
-				return_type_symbol->accept(*this);
-				s4o.print(")time_to_real(");
-				IN_param_value->accept(*this);
-				s4o.print(")");
-				return NULL;
-				
-			}
-			
-			ERROR;
-		}
-		
-	}/*function_lword_to_date*/
-	break;
-
-/****
- *LWORD_TO_DWORD
- */
-	case function_lword_to_dword :
-	{
-		symbol_c *last_type_symbol = NULL;
-
-		{
-			identifier_c param_name("IN");
-			/* Get the value from a foo(<param_name> = <param_value>) style call */
-			symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
-			
-			/* Get the value from a foo(<param_value>) style call */
-			if (IN_param_value == NULL)
-			  IN_param_value = function_call_param_iterator.next();
-			symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
-			last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
-			
-			if (typeid(*last_type_symbol) == typeid(lword_type_name_c))
-			{
-		
-				symbol_c * return_type_symbol = &search_constant_type_c::dword_type_name;
-				s4o.print("(");
-				return_type_symbol->accept(*this);
-				s4o.print(")");
-				IN_param_value->accept(*this);
-				return NULL;
-				
-			}
-			
-			ERROR;
-		}
-		
-	}/*function_lword_to_dword*/
-	break;
-
-/****
- *LWORD_TO_DT
- */
-	case function_lword_to_dt :
-	{
-		symbol_c *last_type_symbol = NULL;
-
-		{
-			identifier_c param_name("IN");
-			/* Get the value from a foo(<param_name> = <param_value>) style call */
-			symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
-			
-			/* Get the value from a foo(<param_value>) style call */
-			if (IN_param_value == NULL)
-			  IN_param_value = function_call_param_iterator.next();
-			symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
-			last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
-			
-			if (typeid(*last_type_symbol) == typeid(lword_type_name_c))
-			{
-		
-				symbol_c * return_type_symbol = &search_constant_type_c::dt_type_name;
-				s4o.print("(");
-				return_type_symbol->accept(*this);
-				s4o.print(")time_to_real(");
-				IN_param_value->accept(*this);
-				s4o.print(")");
-				return NULL;
-				
-			}
-			
-			ERROR;
-		}
-		
-	}/*function_lword_to_dt*/
-	break;
-
-/****
- *LWORD_TO_TOD
- */
-	case function_lword_to_tod :
-	{
-		symbol_c *last_type_symbol = NULL;
-
-		{
-			identifier_c param_name("IN");
-			/* Get the value from a foo(<param_name> = <param_value>) style call */
-			symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
-			
-			/* Get the value from a foo(<param_value>) style call */
-			if (IN_param_value == NULL)
-			  IN_param_value = function_call_param_iterator.next();
-			symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
-			last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
-			
-			if (typeid(*last_type_symbol) == typeid(lword_type_name_c))
-			{
-		
-				symbol_c * return_type_symbol = &search_constant_type_c::tod_type_name;
-				s4o.print("(");
-				return_type_symbol->accept(*this);
-				s4o.print(")time_to_real(");
-				IN_param_value->accept(*this);
-				s4o.print(")");
-				return NULL;
-				
-			}
-			
-			ERROR;
-		}
-		
-	}/*function_lword_to_tod*/
-	break;
-
-/****
- *LWORD_TO_UDINT
- */
-	case function_lword_to_udint :
-	{
-		symbol_c *last_type_symbol = NULL;
-
-		{
-			identifier_c param_name("IN");
-			/* Get the value from a foo(<param_name> = <param_value>) style call */
-			symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
-			
-			/* Get the value from a foo(<param_value>) style call */
-			if (IN_param_value == NULL)
-			  IN_param_value = function_call_param_iterator.next();
-			symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
-			last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
-			
-			if (typeid(*last_type_symbol) == typeid(lword_type_name_c))
-			{
-		
-				symbol_c * return_type_symbol = &search_constant_type_c::udint_type_name;
-				s4o.print("(");
-				return_type_symbol->accept(*this);
-				s4o.print(")");
-				IN_param_value->accept(*this);
-				return NULL;
-				
-			}
-			
-			ERROR;
-		}
-		
-	}/*function_lword_to_udint*/
-	break;
-
-/****
- *LWORD_TO_WORD
- */
-	case function_lword_to_word :
-	{
-		symbol_c *last_type_symbol = NULL;
-
-		{
-			identifier_c param_name("IN");
-			/* Get the value from a foo(<param_name> = <param_value>) style call */
-			symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
-			
-			/* Get the value from a foo(<param_value>) style call */
-			if (IN_param_value == NULL)
-			  IN_param_value = function_call_param_iterator.next();
-			symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
-			last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
-			
-			if (typeid(*last_type_symbol) == typeid(lword_type_name_c))
-			{
-		
-				symbol_c * return_type_symbol = &search_constant_type_c::word_type_name;
-				s4o.print("(");
-				return_type_symbol->accept(*this);
-				s4o.print(")");
-				IN_param_value->accept(*this);
-				return NULL;
-				
-			}
-			
-			ERROR;
-		}
-		
-	}/*function_lword_to_word*/
-	break;
-
-/****
- *LWORD_TO_WSTRING
- */
-	case function_lword_to_wstring :
-	{
-		symbol_c *last_type_symbol = NULL;
-
-		{
-			identifier_c param_name("IN");
-			/* Get the value from a foo(<param_name> = <param_value>) style call */
-			symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
-			
-			/* Get the value from a foo(<param_value>) style call */
-			if (IN_param_value == NULL)
-			  IN_param_value = function_call_param_iterator.next();
-			symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
-			last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
-			
-			if (typeid(*last_type_symbol) == typeid(lword_type_name_c))
-			{
-		
-				symbol_c * return_type_symbol = &search_constant_type_c::wstring_type_name;
-				s4o.print("(");
-				return_type_symbol->accept(*this);
-				s4o.print(")string_to_int(");
-				IN_param_value->accept(*this);
-				s4o.print(", 16)");
-				return NULL;
-				
-			}
-			
-			ERROR;
-		}
-		
-	}/*function_lword_to_wstring*/
-	break;
-
-/****
- *LWORD_TO_STRING
- */
-	case function_lword_to_string :
-	{
-		symbol_c *last_type_symbol = NULL;
-
-		{
-			identifier_c param_name("IN");
-			/* Get the value from a foo(<param_name> = <param_value>) style call */
-			symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
-			
-			/* Get the value from a foo(<param_value>) style call */
-			if (IN_param_value == NULL)
-			  IN_param_value = function_call_param_iterator.next();
-			symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
-			last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
-			
-			if (typeid(*last_type_symbol) == typeid(lword_type_name_c))
-			{
-		
-				symbol_c * return_type_symbol = &search_constant_type_c::string_type_name;
-				s4o.print("(");
-				return_type_symbol->accept(*this);
-				s4o.print(")string_to_int(");
-				IN_param_value->accept(*this);
-				s4o.print(", 16)");
-				return NULL;
-				
-			}
-			
-			ERROR;
-		}
-		
-	}/*function_lword_to_string*/
-	break;
-
-/****
- *LWORD_TO_LWORD
- */
-	case function_lword_to_lword :
-	{
-		symbol_c *last_type_symbol = NULL;
-
-		{
-			identifier_c param_name("IN");
-			/* Get the value from a foo(<param_name> = <param_value>) style call */
-			symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
-			
-			/* Get the value from a foo(<param_value>) style call */
-			if (IN_param_value == NULL)
-			  IN_param_value = function_call_param_iterator.next();
-			symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
-			last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
-			
-			if (typeid(*last_type_symbol) == typeid(lword_type_name_c))
-			{
-		
-				symbol_c * return_type_symbol = &search_constant_type_c::lword_type_name;
-				s4o.print("(");
-				return_type_symbol->accept(*this);
-				s4o.print(")");
-				IN_param_value->accept(*this);
-				return NULL;
-				
-			}
-			
-			ERROR;
-		}
-		
-	}/*function_lword_to_lword*/
-	break;
-
-/****
- *LWORD_TO_UINT
- */
-	case function_lword_to_uint :
-	{
-		symbol_c *last_type_symbol = NULL;
-
-		{
-			identifier_c param_name("IN");
-			/* Get the value from a foo(<param_name> = <param_value>) style call */
-			symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
-			
-			/* Get the value from a foo(<param_value>) style call */
-			if (IN_param_value == NULL)
-			  IN_param_value = function_call_param_iterator.next();
-			symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
-			last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
-			
-			if (typeid(*last_type_symbol) == typeid(lword_type_name_c))
-			{
-		
-				symbol_c * return_type_symbol = &search_constant_type_c::uint_type_name;
-				s4o.print("(");
-				return_type_symbol->accept(*this);
-				s4o.print(")");
-				IN_param_value->accept(*this);
-				return NULL;
-				
-			}
-			
-			ERROR;
-		}
-		
-	}/*function_lword_to_uint*/
-	break;
-
-/****
- *LWORD_TO_LREAL
- */
-	case function_lword_to_lreal :
-	{
-		symbol_c *last_type_symbol = NULL;
-
-		{
-			identifier_c param_name("IN");
-			/* Get the value from a foo(<param_name> = <param_value>) style call */
-			symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
-			
-			/* Get the value from a foo(<param_value>) style call */
-			if (IN_param_value == NULL)
-			  IN_param_value = function_call_param_iterator.next();
-			symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
-			last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
-			
-			if (typeid(*last_type_symbol) == typeid(lword_type_name_c))
-			{
-		
-				symbol_c * return_type_symbol = &search_constant_type_c::lreal_type_name;
-				s4o.print("(");
-				return_type_symbol->accept(*this);
-				s4o.print(")");
-				IN_param_value->accept(*this);
-				return NULL;
-				
-			}
-			
-			ERROR;
-		}
-		
-	}/*function_lword_to_lreal*/
-	break;
-
-/****
- *LWORD_TO_BYTE
- */
-	case function_lword_to_byte :
-	{
-		symbol_c *last_type_symbol = NULL;
-
-		{
-			identifier_c param_name("IN");
-			/* Get the value from a foo(<param_name> = <param_value>) style call */
-			symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
-			
-			/* Get the value from a foo(<param_value>) style call */
-			if (IN_param_value == NULL)
-			  IN_param_value = function_call_param_iterator.next();
-			symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
-			last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
-			
-			if (typeid(*last_type_symbol) == typeid(lword_type_name_c))
-			{
-		
-				symbol_c * return_type_symbol = &search_constant_type_c::byte_type_name;
-				s4o.print("(");
-				return_type_symbol->accept(*this);
-				s4o.print(")");
-				IN_param_value->accept(*this);
-				return NULL;
-				
-			}
-			
-			ERROR;
-		}
-		
-	}/*function_lword_to_byte*/
-	break;
-
-/****
- *LWORD_TO_USINT
- */
-	case function_lword_to_usint :
-	{
-		symbol_c *last_type_symbol = NULL;
-
-		{
-			identifier_c param_name("IN");
-			/* Get the value from a foo(<param_name> = <param_value>) style call */
-			symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
-			
-			/* Get the value from a foo(<param_value>) style call */
-			if (IN_param_value == NULL)
-			  IN_param_value = function_call_param_iterator.next();
-			symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
-			last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
-			
-			if (typeid(*last_type_symbol) == typeid(lword_type_name_c))
-			{
-		
-				symbol_c * return_type_symbol = &search_constant_type_c::usint_type_name;
-				s4o.print("(");
-				return_type_symbol->accept(*this);
-				s4o.print(")");
-				IN_param_value->accept(*this);
-				return NULL;
-				
-			}
-			
-			ERROR;
-		}
-		
-	}/*function_lword_to_usint*/
-	break;
-
-/****
- *LWORD_TO_ULINT
- */
-	case function_lword_to_ulint :
-	{
-		symbol_c *last_type_symbol = NULL;
-
-		{
-			identifier_c param_name("IN");
-			/* Get the value from a foo(<param_name> = <param_value>) style call */
-			symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
-			
-			/* Get the value from a foo(<param_value>) style call */
-			if (IN_param_value == NULL)
-			  IN_param_value = function_call_param_iterator.next();
-			symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
-			last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
-			
-			if (typeid(*last_type_symbol) == typeid(lword_type_name_c))
-			{
-		
-				symbol_c * return_type_symbol = &search_constant_type_c::ulint_type_name;
-				s4o.print("(");
-				return_type_symbol->accept(*this);
-				s4o.print(")");
-				IN_param_value->accept(*this);
-				return NULL;
-				
-			}
-			
-			ERROR;
-		}
-		
-	}/*function_lword_to_ulint*/
-	break;
-
-/****
- *LWORD_TO_BOOL
- */
-	case function_lword_to_bool :
-	{
-		symbol_c *last_type_symbol = NULL;
-
-		{
-			identifier_c param_name("IN");
-			/* Get the value from a foo(<param_name> = <param_value>) style call */
-			symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
-			
-			/* Get the value from a foo(<param_value>) style call */
-			if (IN_param_value == NULL)
-			  IN_param_value = function_call_param_iterator.next();
-			symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
-			last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
-			
-			if (typeid(*last_type_symbol) == typeid(lword_type_name_c))
-			{
-		
-				symbol_c * return_type_symbol = &search_constant_type_c::bool_type_name;
-				s4o.print("(");
-				return_type_symbol->accept(*this);
-				s4o.print(")");
-				IN_param_value->accept(*this);
-				return NULL;
-				
-			}
-			
-			ERROR;
-		}
-		
-	}/*function_lword_to_bool*/
-	break;
-
-/****
- *LWORD_TO_TIME
- */
-	case function_lword_to_time :
-	{
-		symbol_c *last_type_symbol = NULL;
-
-		{
-			identifier_c param_name("IN");
-			/* Get the value from a foo(<param_name> = <param_value>) style call */
-			symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
-			
-			/* Get the value from a foo(<param_value>) style call */
-			if (IN_param_value == NULL)
-			  IN_param_value = function_call_param_iterator.next();
-			symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
-			last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
-			
-			if (typeid(*last_type_symbol) == typeid(lword_type_name_c))
-			{
-		
-				symbol_c * return_type_symbol = &search_constant_type_c::time_type_name;
-				s4o.print("(");
-				return_type_symbol->accept(*this);
-				s4o.print(")time_to_real(");
-				IN_param_value->accept(*this);
-				s4o.print(")");
-				return NULL;
-				
-			}
-			
-			ERROR;
-		}
-		
-	}/*function_lword_to_time*/
-	break;
-
-/****
- *LWORD_TO_INT
- */
-	case function_lword_to_int :
-	{
-		symbol_c *last_type_symbol = NULL;
-
-		{
-			identifier_c param_name("IN");
-			/* Get the value from a foo(<param_name> = <param_value>) style call */
-			symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
-			
-			/* Get the value from a foo(<param_value>) style call */
-			if (IN_param_value == NULL)
-			  IN_param_value = function_call_param_iterator.next();
-			symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
-			last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
-			
-			if (typeid(*last_type_symbol) == typeid(lword_type_name_c))
-			{
-		
-				symbol_c * return_type_symbol = &search_constant_type_c::int_type_name;
-				s4o.print("(");
-				return_type_symbol->accept(*this);
-				s4o.print(")");
-				IN_param_value->accept(*this);
-				return NULL;
-				
-			}
-			
-			ERROR;
-		}
-		
-	}/*function_lword_to_int*/
-	break;
-
-/****
- *UINT_TO_REAL
- */
-	case function_uint_to_real :
-	{
-		symbol_c *last_type_symbol = NULL;
-
-		{
-			identifier_c param_name("IN");
-			/* Get the value from a foo(<param_name> = <param_value>) style call */
-			symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
-			
-			/* Get the value from a foo(<param_value>) style call */
-			if (IN_param_value == NULL)
-			  IN_param_value = function_call_param_iterator.next();
-			symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
-			last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
-			
-			if (typeid(*last_type_symbol) == typeid(uint_type_name_c))
-			{
-		
-				symbol_c * return_type_symbol = &search_constant_type_c::real_type_name;
-				s4o.print("(");
-				return_type_symbol->accept(*this);
-				s4o.print(")");
-				IN_param_value->accept(*this);
-				return NULL;
-				
-			}
-			
-			ERROR;
-		}
-		
-	}/*function_uint_to_real*/
-	break;
-
-/****
- *UINT_TO_SINT
- */
-	case function_uint_to_sint :
-	{
-		symbol_c *last_type_symbol = NULL;
-
-		{
-			identifier_c param_name("IN");
-			/* Get the value from a foo(<param_name> = <param_value>) style call */
-			symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
-			
-			/* Get the value from a foo(<param_value>) style call */
-			if (IN_param_value == NULL)
-			  IN_param_value = function_call_param_iterator.next();
-			symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
-			last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
-			
-			if (typeid(*last_type_symbol) == typeid(uint_type_name_c))
-			{
-		
-				symbol_c * return_type_symbol = &search_constant_type_c::sint_type_name;
-				s4o.print("(");
-				return_type_symbol->accept(*this);
-				s4o.print(")");
-				IN_param_value->accept(*this);
-				return NULL;
-				
-			}
-			
-			ERROR;
-		}
-		
-	}/*function_uint_to_sint*/
-	break;
-
-/****
- *UINT_TO_LINT
- */
-	case function_uint_to_lint :
-	{
-		symbol_c *last_type_symbol = NULL;
-
-		{
-			identifier_c param_name("IN");
-			/* Get the value from a foo(<param_name> = <param_value>) style call */
-			symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
-			
-			/* Get the value from a foo(<param_value>) style call */
-			if (IN_param_value == NULL)
-			  IN_param_value = function_call_param_iterator.next();
-			symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
-			last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
-			
-			if (typeid(*last_type_symbol) == typeid(uint_type_name_c))
-			{
-		
-				symbol_c * return_type_symbol = &search_constant_type_c::lint_type_name;
-				s4o.print("(");
-				return_type_symbol->accept(*this);
-				s4o.print(")");
-				IN_param_value->accept(*this);
-				return NULL;
-				
-			}
-			
-			ERROR;
-		}
-		
-	}/*function_uint_to_lint*/
-	break;
-
-/****
- *UINT_TO_DINT
- */
-	case function_uint_to_dint :
-	{
-		symbol_c *last_type_symbol = NULL;
-
-		{
-			identifier_c param_name("IN");
-			/* Get the value from a foo(<param_name> = <param_value>) style call */
-			symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
-			
-			/* Get the value from a foo(<param_value>) style call */
-			if (IN_param_value == NULL)
-			  IN_param_value = function_call_param_iterator.next();
-			symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
-			last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
-			
-			if (typeid(*last_type_symbol) == typeid(uint_type_name_c))
-			{
-		
-				symbol_c * return_type_symbol = &search_constant_type_c::dint_type_name;
-				s4o.print("(");
-				return_type_symbol->accept(*this);
-				s4o.print(")");
-				IN_param_value->accept(*this);
-				return NULL;
-				
-			}
-			
-			ERROR;
-		}
-		
-	}/*function_uint_to_dint*/
-	break;
-
-/****
- *UINT_TO_DATE
- */
-	case function_uint_to_date :
-	{
-		symbol_c *last_type_symbol = NULL;
-
-		{
-			identifier_c param_name("IN");
-			/* Get the value from a foo(<param_name> = <param_value>) style call */
-			symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
-			
-			/* Get the value from a foo(<param_value>) style call */
-			if (IN_param_value == NULL)
-			  IN_param_value = function_call_param_iterator.next();
-			symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
-			last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
-			
-			if (typeid(*last_type_symbol) == typeid(uint_type_name_c))
-			{
-		
-				symbol_c * return_type_symbol = &search_constant_type_c::date_type_name;
-				s4o.print("(");
-				return_type_symbol->accept(*this);
-				s4o.print(")time_to_real(");
-				IN_param_value->accept(*this);
-				s4o.print(")");
-				return NULL;
-				
-			}
-			
-			ERROR;
-		}
-		
-	}/*function_uint_to_date*/
-	break;
-
-/****
- *UINT_TO_DWORD
- */
-	case function_uint_to_dword :
-	{
-		symbol_c *last_type_symbol = NULL;
-
-		{
-			identifier_c param_name("IN");
-			/* Get the value from a foo(<param_name> = <param_value>) style call */
-			symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
-			
-			/* Get the value from a foo(<param_value>) style call */
-			if (IN_param_value == NULL)
-			  IN_param_value = function_call_param_iterator.next();
-			symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
-			last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
-			
-			if (typeid(*last_type_symbol) == typeid(uint_type_name_c))
-			{
-		
-				symbol_c * return_type_symbol = &search_constant_type_c::dword_type_name;
-				s4o.print("(");
-				return_type_symbol->accept(*this);
-				s4o.print(")");
-				IN_param_value->accept(*this);
-				return NULL;
-				
-			}
-			
-			ERROR;
-		}
-		
-	}/*function_uint_to_dword*/
-	break;
-
-/****
- *UINT_TO_DT
- */
-	case function_uint_to_dt :
-	{
-		symbol_c *last_type_symbol = NULL;
-
-		{
-			identifier_c param_name("IN");
-			/* Get the value from a foo(<param_name> = <param_value>) style call */
-			symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
-			
-			/* Get the value from a foo(<param_value>) style call */
-			if (IN_param_value == NULL)
-			  IN_param_value = function_call_param_iterator.next();
-			symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
-			last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
-			
-			if (typeid(*last_type_symbol) == typeid(uint_type_name_c))
-			{
-		
-				symbol_c * return_type_symbol = &search_constant_type_c::dt_type_name;
-				s4o.print("(");
-				return_type_symbol->accept(*this);
-				s4o.print(")time_to_real(");
-				IN_param_value->accept(*this);
-				s4o.print(")");
-				return NULL;
-				
-			}
-			
-			ERROR;
-		}
-		
-	}/*function_uint_to_dt*/
-	break;
-
-/****
- *UINT_TO_TOD
- */
-	case function_uint_to_tod :
-	{
-		symbol_c *last_type_symbol = NULL;
-
-		{
-			identifier_c param_name("IN");
-			/* Get the value from a foo(<param_name> = <param_value>) style call */
-			symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
-			
-			/* Get the value from a foo(<param_value>) style call */
-			if (IN_param_value == NULL)
-			  IN_param_value = function_call_param_iterator.next();
-			symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
-			last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
-			
-			if (typeid(*last_type_symbol) == typeid(uint_type_name_c))
-			{
-		
-				symbol_c * return_type_symbol = &search_constant_type_c::tod_type_name;
-				s4o.print("(");
-				return_type_symbol->accept(*this);
-				s4o.print(")time_to_real(");
-				IN_param_value->accept(*this);
-				s4o.print(")");
-				return NULL;
-				
-			}
-			
-			ERROR;
-		}
-		
-	}/*function_uint_to_tod*/
-	break;
-
-/****
- *UINT_TO_UDINT
- */
-	case function_uint_to_udint :
-	{
-		symbol_c *last_type_symbol = NULL;
-
-		{
-			identifier_c param_name("IN");
-			/* Get the value from a foo(<param_name> = <param_value>) style call */
-			symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
-			
-			/* Get the value from a foo(<param_value>) style call */
-			if (IN_param_value == NULL)
-			  IN_param_value = function_call_param_iterator.next();
-			symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
-			last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
-			
-			if (typeid(*last_type_symbol) == typeid(uint_type_name_c))
-			{
-		
-				symbol_c * return_type_symbol = &search_constant_type_c::udint_type_name;
-				s4o.print("(");
-				return_type_symbol->accept(*this);
-				s4o.print(")");
-				IN_param_value->accept(*this);
-				return NULL;
-				
-			}
-			
-			ERROR;
-		}
-		
-	}/*function_uint_to_udint*/
-	break;
-
-/****
- *UINT_TO_WORD
- */
-	case function_uint_to_word :
-	{
-		symbol_c *last_type_symbol = NULL;
-
-		{
-			identifier_c param_name("IN");
-			/* Get the value from a foo(<param_name> = <param_value>) style call */
-			symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
-			
-			/* Get the value from a foo(<param_value>) style call */
-			if (IN_param_value == NULL)
-			  IN_param_value = function_call_param_iterator.next();
-			symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
-			last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
-			
-			if (typeid(*last_type_symbol) == typeid(uint_type_name_c))
-			{
-		
-				symbol_c * return_type_symbol = &search_constant_type_c::word_type_name;
-				s4o.print("(");
-				return_type_symbol->accept(*this);
-				s4o.print(")");
-				IN_param_value->accept(*this);
-				return NULL;
-				
-			}
-			
-			ERROR;
-		}
-		
-	}/*function_uint_to_word*/
-	break;
-
-/****
- *UINT_TO_WSTRING
- */
-	case function_uint_to_wstring :
-	{
-		symbol_c *last_type_symbol = NULL;
-
-		{
-			identifier_c param_name("IN");
-			/* Get the value from a foo(<param_name> = <param_value>) style call */
-			symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
-			
-			/* Get the value from a foo(<param_value>) style call */
-			if (IN_param_value == NULL)
-			  IN_param_value = function_call_param_iterator.next();
-			symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
-			last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
-			
-			if (typeid(*last_type_symbol) == typeid(uint_type_name_c))
-			{
-		
-				symbol_c * return_type_symbol = &search_constant_type_c::wstring_type_name;
-				s4o.print("(");
-				return_type_symbol->accept(*this);
-				s4o.print(")string_to_int(");
-				IN_param_value->accept(*this);
-				s4o.print(", 10)");
-				return NULL;
-				
-			}
-			
-			ERROR;
-		}
-		
-	}/*function_uint_to_wstring*/
-	break;
-
-/****
- *UINT_TO_STRING
- */
-	case function_uint_to_string :
-	{
-		symbol_c *last_type_symbol = NULL;
-
-		{
-			identifier_c param_name("IN");
-			/* Get the value from a foo(<param_name> = <param_value>) style call */
-			symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
-			
-			/* Get the value from a foo(<param_value>) style call */
-			if (IN_param_value == NULL)
-			  IN_param_value = function_call_param_iterator.next();
-			symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
-			last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
-			
-			if (typeid(*last_type_symbol) == typeid(uint_type_name_c))
-			{
-		
-				symbol_c * return_type_symbol = &search_constant_type_c::string_type_name;
-				s4o.print("(");
-				return_type_symbol->accept(*this);
-				s4o.print(")string_to_int(");
-				IN_param_value->accept(*this);
-				s4o.print(", 10)");
-				return NULL;
-				
-			}
-			
-			ERROR;
-		}
-		
-	}/*function_uint_to_string*/
-	break;
-
-/****
- *UINT_TO_LWORD
- */
-	case function_uint_to_lword :
-	{
-		symbol_c *last_type_symbol = NULL;
-
-		{
-			identifier_c param_name("IN");
-			/* Get the value from a foo(<param_name> = <param_value>) style call */
-			symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
-			
-			/* Get the value from a foo(<param_value>) style call */
-			if (IN_param_value == NULL)
-			  IN_param_value = function_call_param_iterator.next();
-			symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
-			last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
-			
-			if (typeid(*last_type_symbol) == typeid(uint_type_name_c))
-			{
-		
-				symbol_c * return_type_symbol = &search_constant_type_c::lword_type_name;
-				s4o.print("(");
-				return_type_symbol->accept(*this);
-				s4o.print(")");
-				IN_param_value->accept(*this);
-				return NULL;
-				
-			}
-			
-			ERROR;
-		}
-		
-	}/*function_uint_to_lword*/
-	break;
-
-/****
- *UINT_TO_UINT
- */
-	case function_uint_to_uint :
-	{
-		symbol_c *last_type_symbol = NULL;
-
-		{
-			identifier_c param_name("IN");
-			/* Get the value from a foo(<param_name> = <param_value>) style call */
-			symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
-			
-			/* Get the value from a foo(<param_value>) style call */
-			if (IN_param_value == NULL)
-			  IN_param_value = function_call_param_iterator.next();
-			symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
-			last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
-			
-			if (typeid(*last_type_symbol) == typeid(uint_type_name_c))
-			{
-		
-				symbol_c * return_type_symbol = &search_constant_type_c::uint_type_name;
-				s4o.print("(");
-				return_type_symbol->accept(*this);
-				s4o.print(")");
-				IN_param_value->accept(*this);
-				return NULL;
-				
-			}
-			
-			ERROR;
-		}
-		
-	}/*function_uint_to_uint*/
-	break;
-
-/****
- *UINT_TO_LREAL
- */
-	case function_uint_to_lreal :
-	{
-		symbol_c *last_type_symbol = NULL;
-
-		{
-			identifier_c param_name("IN");
-			/* Get the value from a foo(<param_name> = <param_value>) style call */
-			symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
-			
-			/* Get the value from a foo(<param_value>) style call */
-			if (IN_param_value == NULL)
-			  IN_param_value = function_call_param_iterator.next();
-			symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
-			last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
-			
-			if (typeid(*last_type_symbol) == typeid(uint_type_name_c))
-			{
-		
-				symbol_c * return_type_symbol = &search_constant_type_c::lreal_type_name;
-				s4o.print("(");
-				return_type_symbol->accept(*this);
-				s4o.print(")");
-				IN_param_value->accept(*this);
-				return NULL;
-				
-			}
-			
-			ERROR;
-		}
-		
-	}/*function_uint_to_lreal*/
-	break;
-
-/****
- *UINT_TO_BYTE
- */
-	case function_uint_to_byte :
-	{
-		symbol_c *last_type_symbol = NULL;
-
-		{
-			identifier_c param_name("IN");
-			/* Get the value from a foo(<param_name> = <param_value>) style call */
-			symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
-			
-			/* Get the value from a foo(<param_value>) style call */
-			if (IN_param_value == NULL)
-			  IN_param_value = function_call_param_iterator.next();
-			symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
-			last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
-			
-			if (typeid(*last_type_symbol) == typeid(uint_type_name_c))
-			{
-		
-				symbol_c * return_type_symbol = &search_constant_type_c::byte_type_name;
-				s4o.print("(");
-				return_type_symbol->accept(*this);
-				s4o.print(")");
-				IN_param_value->accept(*this);
-				return NULL;
-				
-			}
-			
-			ERROR;
-		}
-		
-	}/*function_uint_to_byte*/
-	break;
-
-/****
- *UINT_TO_USINT
- */
-	case function_uint_to_usint :
-	{
-		symbol_c *last_type_symbol = NULL;
-
-		{
-			identifier_c param_name("IN");
-			/* Get the value from a foo(<param_name> = <param_value>) style call */
-			symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
-			
-			/* Get the value from a foo(<param_value>) style call */
-			if (IN_param_value == NULL)
-			  IN_param_value = function_call_param_iterator.next();
-			symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
-			last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
-			
-			if (typeid(*last_type_symbol) == typeid(uint_type_name_c))
-			{
-		
-				symbol_c * return_type_symbol = &search_constant_type_c::usint_type_name;
-				s4o.print("(");
-				return_type_symbol->accept(*this);
-				s4o.print(")");
-				IN_param_value->accept(*this);
-				return NULL;
-				
-			}
-			
-			ERROR;
-		}
-		
-	}/*function_uint_to_usint*/
-	break;
-
-/****
- *UINT_TO_ULINT
- */
-	case function_uint_to_ulint :
-	{
-		symbol_c *last_type_symbol = NULL;
-
-		{
-			identifier_c param_name("IN");
-			/* Get the value from a foo(<param_name> = <param_value>) style call */
-			symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
-			
-			/* Get the value from a foo(<param_value>) style call */
-			if (IN_param_value == NULL)
-			  IN_param_value = function_call_param_iterator.next();
-			symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
-			last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
-			
-			if (typeid(*last_type_symbol) == typeid(uint_type_name_c))
-			{
-		
-				symbol_c * return_type_symbol = &search_constant_type_c::ulint_type_name;
-				s4o.print("(");
-				return_type_symbol->accept(*this);
-				s4o.print(")");
-				IN_param_value->accept(*this);
-				return NULL;
-				
-			}
-			
-			ERROR;
-		}
-		
-	}/*function_uint_to_ulint*/
-	break;
-
-/****
- *UINT_TO_BOOL
- */
-	case function_uint_to_bool :
-	{
-		symbol_c *last_type_symbol = NULL;
-
-		{
-			identifier_c param_name("IN");
-			/* Get the value from a foo(<param_name> = <param_value>) style call */
-			symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
-			
-			/* Get the value from a foo(<param_value>) style call */
-			if (IN_param_value == NULL)
-			  IN_param_value = function_call_param_iterator.next();
-			symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
-			last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
-			
-			if (typeid(*last_type_symbol) == typeid(uint_type_name_c))
-			{
-		
-				symbol_c * return_type_symbol = &search_constant_type_c::bool_type_name;
-				s4o.print("(");
-				return_type_symbol->accept(*this);
-				s4o.print(")");
-				IN_param_value->accept(*this);
-				return NULL;
-				
-			}
-			
-			ERROR;
-		}
-		
-	}/*function_uint_to_bool*/
-	break;
-
-/****
- *UINT_TO_TIME
- */
-	case function_uint_to_time :
-	{
-		symbol_c *last_type_symbol = NULL;
-
-		{
-			identifier_c param_name("IN");
-			/* Get the value from a foo(<param_name> = <param_value>) style call */
-			symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
-			
-			/* Get the value from a foo(<param_value>) style call */
-			if (IN_param_value == NULL)
-			  IN_param_value = function_call_param_iterator.next();
-			symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
-			last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
-			
-			if (typeid(*last_type_symbol) == typeid(uint_type_name_c))
-			{
-		
-				symbol_c * return_type_symbol = &search_constant_type_c::time_type_name;
-				s4o.print("(");
-				return_type_symbol->accept(*this);
-				s4o.print(")time_to_real(");
-				IN_param_value->accept(*this);
-				s4o.print(")");
-				return NULL;
-				
-			}
-			
-			ERROR;
-		}
-		
-	}/*function_uint_to_time*/
-	break;
-
-/****
- *UINT_TO_INT
- */
-	case function_uint_to_int :
-	{
-		symbol_c *last_type_symbol = NULL;
-
-		{
-			identifier_c param_name("IN");
-			/* Get the value from a foo(<param_name> = <param_value>) style call */
-			symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
-			
-			/* Get the value from a foo(<param_value>) style call */
-			if (IN_param_value == NULL)
-			  IN_param_value = function_call_param_iterator.next();
-			symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
-			last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
-			
-			if (typeid(*last_type_symbol) == typeid(uint_type_name_c))
-			{
-		
-				symbol_c * return_type_symbol = &search_constant_type_c::int_type_name;
-				s4o.print("(");
-				return_type_symbol->accept(*this);
-				s4o.print(")");
-				IN_param_value->accept(*this);
-				return NULL;
-				
-			}
-			
-			ERROR;
-		}
-		
-	}/*function_uint_to_int*/
-	break;
-
-/****
- *LREAL_TO_REAL
- */
-	case function_lreal_to_real :
-	{
-		symbol_c *last_type_symbol = NULL;
-
-		{
-			identifier_c param_name("IN");
-			/* Get the value from a foo(<param_name> = <param_value>) style call */
-			symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
-			
-			/* Get the value from a foo(<param_value>) style call */
-			if (IN_param_value == NULL)
-			  IN_param_value = function_call_param_iterator.next();
-			symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
-			last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
-			
-			if (typeid(*last_type_symbol) == typeid(lreal_type_name_c))
-			{
-		
-				symbol_c * return_type_symbol = &search_constant_type_c::real_type_name;
-				s4o.print("(");
-				return_type_symbol->accept(*this);
-				s4o.print(")");
-				IN_param_value->accept(*this);
-				return NULL;
-				
-			}
-			
-			ERROR;
-		}
-		
-	}/*function_lreal_to_real*/
-	break;
-
-/****
- *LREAL_TO_SINT
- */
-	case function_lreal_to_sint :
-	{
-		symbol_c *last_type_symbol = NULL;
-
-		{
-			identifier_c param_name("IN");
-			/* Get the value from a foo(<param_name> = <param_value>) style call */
-			symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
-			
-			/* Get the value from a foo(<param_value>) style call */
-			if (IN_param_value == NULL)
-			  IN_param_value = function_call_param_iterator.next();
-			symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
-			last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
-			
-			if (typeid(*last_type_symbol) == typeid(lreal_type_name_c))
-			{
-		
-				symbol_c * return_type_symbol = &search_constant_type_c::sint_type_name;
-				s4o.print("(");
-				return_type_symbol->accept(*this);
-				s4o.print(")");
-				IN_param_value->accept(*this);
-				return NULL;
-				
-			}
-			
-			ERROR;
-		}
-		
-	}/*function_lreal_to_sint*/
-	break;
-
-/****
- *LREAL_TO_LINT
- */
-	case function_lreal_to_lint :
-	{
-		symbol_c *last_type_symbol = NULL;
-
-		{
-			identifier_c param_name("IN");
-			/* Get the value from a foo(<param_name> = <param_value>) style call */
-			symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
-			
-			/* Get the value from a foo(<param_value>) style call */
-			if (IN_param_value == NULL)
-			  IN_param_value = function_call_param_iterator.next();
-			symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
-			last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
-			
-			if (typeid(*last_type_symbol) == typeid(lreal_type_name_c))
-			{
-		
-				symbol_c * return_type_symbol = &search_constant_type_c::lint_type_name;
-				s4o.print("(");
-				return_type_symbol->accept(*this);
-				s4o.print(")");
-				IN_param_value->accept(*this);
-				return NULL;
-				
-			}
-			
-			ERROR;
-		}
-		
-	}/*function_lreal_to_lint*/
-	break;
-
-/****
- *LREAL_TO_DINT
- */
-	case function_lreal_to_dint :
-	{
-		symbol_c *last_type_symbol = NULL;
-
-		{
-			identifier_c param_name("IN");
-			/* Get the value from a foo(<param_name> = <param_value>) style call */
-			symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
-			
-			/* Get the value from a foo(<param_value>) style call */
-			if (IN_param_value == NULL)
-			  IN_param_value = function_call_param_iterator.next();
-			symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
-			last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
-			
-			if (typeid(*last_type_symbol) == typeid(lreal_type_name_c))
-			{
-		
-				symbol_c * return_type_symbol = &search_constant_type_c::dint_type_name;
-				s4o.print("(");
-				return_type_symbol->accept(*this);
-				s4o.print(")");
-				IN_param_value->accept(*this);
-				return NULL;
-				
-			}
-			
-			ERROR;
-		}
-		
-	}/*function_lreal_to_dint*/
-	break;
-
-/****
- *LREAL_TO_DATE
- */
-	case function_lreal_to_date :
-	{
-		symbol_c *last_type_symbol = NULL;
-
-		{
-			identifier_c param_name("IN");
-			/* Get the value from a foo(<param_name> = <param_value>) style call */
-			symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
-			
-			/* Get the value from a foo(<param_value>) style call */
-			if (IN_param_value == NULL)
-			  IN_param_value = function_call_param_iterator.next();
-			symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
-			last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
-			
-			if (typeid(*last_type_symbol) == typeid(lreal_type_name_c))
-			{
-		
-				symbol_c * return_type_symbol = &search_constant_type_c::date_type_name;
-				s4o.print("(");
-				return_type_symbol->accept(*this);
-				s4o.print(")time_to_real(");
-				IN_param_value->accept(*this);
-				s4o.print(")");
-				return NULL;
-				
-			}
-			
-			ERROR;
-		}
-		
-	}/*function_lreal_to_date*/
-	break;
-
-/****
- *LREAL_TO_DWORD
- */
-	case function_lreal_to_dword :
-	{
-		symbol_c *last_type_symbol = NULL;
-
-		{
-			identifier_c param_name("IN");
-			/* Get the value from a foo(<param_name> = <param_value>) style call */
-			symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
-			
-			/* Get the value from a foo(<param_value>) style call */
-			if (IN_param_value == NULL)
-			  IN_param_value = function_call_param_iterator.next();
-			symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
-			last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
-			
-			if (typeid(*last_type_symbol) == typeid(lreal_type_name_c))
-			{
-		
-				symbol_c * return_type_symbol = &search_constant_type_c::dword_type_name;
-				s4o.print("(");
-				return_type_symbol->accept(*this);
-				s4o.print(")");
-				IN_param_value->accept(*this);
-				return NULL;
-				
-			}
-			
-			ERROR;
-		}
-		
-	}/*function_lreal_to_dword*/
-	break;
-
-/****
- *LREAL_TO_DT
- */
-	case function_lreal_to_dt :
-	{
-		symbol_c *last_type_symbol = NULL;
-
-		{
-			identifier_c param_name("IN");
-			/* Get the value from a foo(<param_name> = <param_value>) style call */
-			symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
-			
-			/* Get the value from a foo(<param_value>) style call */
-			if (IN_param_value == NULL)
-			  IN_param_value = function_call_param_iterator.next();
-			symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
-			last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
-			
-			if (typeid(*last_type_symbol) == typeid(lreal_type_name_c))
-			{
-		
-				symbol_c * return_type_symbol = &search_constant_type_c::dt_type_name;
-				s4o.print("(");
-				return_type_symbol->accept(*this);
-				s4o.print(")time_to_real(");
-				IN_param_value->accept(*this);
-				s4o.print(")");
-				return NULL;
-				
-			}
-			
-			ERROR;
-		}
-		
-	}/*function_lreal_to_dt*/
-	break;
-
-/****
- *LREAL_TO_TOD
- */
-	case function_lreal_to_tod :
-	{
-		symbol_c *last_type_symbol = NULL;
-
-		{
-			identifier_c param_name("IN");
-			/* Get the value from a foo(<param_name> = <param_value>) style call */
-			symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
-			
-			/* Get the value from a foo(<param_value>) style call */
-			if (IN_param_value == NULL)
-			  IN_param_value = function_call_param_iterator.next();
-			symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
-			last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
-			
-			if (typeid(*last_type_symbol) == typeid(lreal_type_name_c))
-			{
-		
-				symbol_c * return_type_symbol = &search_constant_type_c::tod_type_name;
-				s4o.print("(");
-				return_type_symbol->accept(*this);
-				s4o.print(")time_to_real(");
-				IN_param_value->accept(*this);
-				s4o.print(")");
-				return NULL;
-				
-			}
-			
-			ERROR;
-		}
-		
-	}/*function_lreal_to_tod*/
-	break;
-
-/****
- *LREAL_TO_UDINT
- */
-	case function_lreal_to_udint :
-	{
-		symbol_c *last_type_symbol = NULL;
-
-		{
-			identifier_c param_name("IN");
-			/* Get the value from a foo(<param_name> = <param_value>) style call */
-			symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
-			
-			/* Get the value from a foo(<param_value>) style call */
-			if (IN_param_value == NULL)
-			  IN_param_value = function_call_param_iterator.next();
-			symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
-			last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
-			
-			if (typeid(*last_type_symbol) == typeid(lreal_type_name_c))
-			{
-		
-				symbol_c * return_type_symbol = &search_constant_type_c::udint_type_name;
-				s4o.print("(");
-				return_type_symbol->accept(*this);
-				s4o.print(")");
-				IN_param_value->accept(*this);
-				return NULL;
-				
-			}
-			
-			ERROR;
-		}
-		
-	}/*function_lreal_to_udint*/
-	break;
-
-/****
- *LREAL_TO_WORD
- */
-	case function_lreal_to_word :
-	{
-		symbol_c *last_type_symbol = NULL;
-
-		{
-			identifier_c param_name("IN");
-			/* Get the value from a foo(<param_name> = <param_value>) style call */
-			symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
-			
-			/* Get the value from a foo(<param_value>) style call */
-			if (IN_param_value == NULL)
-			  IN_param_value = function_call_param_iterator.next();
-			symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
-			last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
-			
-			if (typeid(*last_type_symbol) == typeid(lreal_type_name_c))
-			{
-		
-				symbol_c * return_type_symbol = &search_constant_type_c::word_type_name;
-				s4o.print("(");
-				return_type_symbol->accept(*this);
-				s4o.print(")");
-				IN_param_value->accept(*this);
-				return NULL;
-				
-			}
-			
-			ERROR;
-		}
-		
-	}/*function_lreal_to_word*/
-	break;
-
-/****
- *LREAL_TO_WSTRING
- */
-	case function_lreal_to_wstring :
-	{
-		symbol_c *last_type_symbol = NULL;
-
-		{
-			identifier_c param_name("IN");
-			/* Get the value from a foo(<param_name> = <param_value>) style call */
-			symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
-			
-			/* Get the value from a foo(<param_value>) style call */
-			if (IN_param_value == NULL)
-			  IN_param_value = function_call_param_iterator.next();
-			symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
-			last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
-			
-			if (typeid(*last_type_symbol) == typeid(lreal_type_name_c))
-			{
-		
-				symbol_c * return_type_symbol = &search_constant_type_c::wstring_type_name;
-				s4o.print("(");
-				return_type_symbol->accept(*this);
-				s4o.print(")string_to_int(");
-				IN_param_value->accept(*this);
-				s4o.print(", 10)");
-				return NULL;
-				
-			}
-			
-			ERROR;
-		}
-		
-	}/*function_lreal_to_wstring*/
-	break;
-
-/****
- *LREAL_TO_STRING
- */
-	case function_lreal_to_string :
-	{
-		symbol_c *last_type_symbol = NULL;
-
-		{
-			identifier_c param_name("IN");
-			/* Get the value from a foo(<param_name> = <param_value>) style call */
-			symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
-			
-			/* Get the value from a foo(<param_value>) style call */
-			if (IN_param_value == NULL)
-			  IN_param_value = function_call_param_iterator.next();
-			symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
-			last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
-			
-			if (typeid(*last_type_symbol) == typeid(lreal_type_name_c))
-			{
-		
-				symbol_c * return_type_symbol = &search_constant_type_c::string_type_name;
-				s4o.print("(");
-				return_type_symbol->accept(*this);
-				s4o.print(")string_to_int(");
-				IN_param_value->accept(*this);
-				s4o.print(", 10)");
-				return NULL;
-				
-			}
-			
-			ERROR;
-		}
-		
-	}/*function_lreal_to_string*/
-	break;
-
-/****
- *LREAL_TO_LWORD
- */
-	case function_lreal_to_lword :
-	{
-		symbol_c *last_type_symbol = NULL;
-
-		{
-			identifier_c param_name("IN");
-			/* Get the value from a foo(<param_name> = <param_value>) style call */
-			symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
-			
-			/* Get the value from a foo(<param_value>) style call */
-			if (IN_param_value == NULL)
-			  IN_param_value = function_call_param_iterator.next();
-			symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
-			last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
-			
-			if (typeid(*last_type_symbol) == typeid(lreal_type_name_c))
-			{
-		
-				symbol_c * return_type_symbol = &search_constant_type_c::lword_type_name;
-				s4o.print("(");
-				return_type_symbol->accept(*this);
-				s4o.print(")");
-				IN_param_value->accept(*this);
-				return NULL;
-				
-			}
-			
-			ERROR;
-		}
-		
-	}/*function_lreal_to_lword*/
-	break;
-
-/****
- *LREAL_TO_UINT
- */
-	case function_lreal_to_uint :
-	{
-		symbol_c *last_type_symbol = NULL;
-
-		{
-			identifier_c param_name("IN");
-			/* Get the value from a foo(<param_name> = <param_value>) style call */
-			symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
-			
-			/* Get the value from a foo(<param_value>) style call */
-			if (IN_param_value == NULL)
-			  IN_param_value = function_call_param_iterator.next();
-			symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
-			last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
-			
-			if (typeid(*last_type_symbol) == typeid(lreal_type_name_c))
-			{
-		
-				symbol_c * return_type_symbol = &search_constant_type_c::uint_type_name;
-				s4o.print("(");
-				return_type_symbol->accept(*this);
-				s4o.print(")");
-				IN_param_value->accept(*this);
-				return NULL;
-				
-			}
-			
-			ERROR;
-		}
-		
-	}/*function_lreal_to_uint*/
-	break;
-
-/****
- *LREAL_TO_LREAL
- */
-	case function_lreal_to_lreal :
-	{
-		symbol_c *last_type_symbol = NULL;
-
-		{
-			identifier_c param_name("IN");
-			/* Get the value from a foo(<param_name> = <param_value>) style call */
-			symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
-			
-			/* Get the value from a foo(<param_value>) style call */
-			if (IN_param_value == NULL)
-			  IN_param_value = function_call_param_iterator.next();
-			symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
-			last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
-			
-			if (typeid(*last_type_symbol) == typeid(lreal_type_name_c))
-			{
-		
-				symbol_c * return_type_symbol = &search_constant_type_c::lreal_type_name;
-				s4o.print("(");
-				return_type_symbol->accept(*this);
-				s4o.print(")");
-				IN_param_value->accept(*this);
-				return NULL;
-				
-			}
-			
-			ERROR;
-		}
-		
-	}/*function_lreal_to_lreal*/
-	break;
-
-/****
- *LREAL_TO_BYTE
- */
-	case function_lreal_to_byte :
-	{
-		symbol_c *last_type_symbol = NULL;
-
-		{
-			identifier_c param_name("IN");
-			/* Get the value from a foo(<param_name> = <param_value>) style call */
-			symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
-			
-			/* Get the value from a foo(<param_value>) style call */
-			if (IN_param_value == NULL)
-			  IN_param_value = function_call_param_iterator.next();
-			symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
-			last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
-			
-			if (typeid(*last_type_symbol) == typeid(lreal_type_name_c))
-			{
-		
-				symbol_c * return_type_symbol = &search_constant_type_c::byte_type_name;
-				s4o.print("(");
-				return_type_symbol->accept(*this);
-				s4o.print(")");
-				IN_param_value->accept(*this);
-				return NULL;
-				
-			}
-			
-			ERROR;
-		}
-		
-	}/*function_lreal_to_byte*/
-	break;
-
-/****
- *LREAL_TO_USINT
- */
-	case function_lreal_to_usint :
-	{
-		symbol_c *last_type_symbol = NULL;
-
-		{
-			identifier_c param_name("IN");
-			/* Get the value from a foo(<param_name> = <param_value>) style call */
-			symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
-			
-			/* Get the value from a foo(<param_value>) style call */
-			if (IN_param_value == NULL)
-			  IN_param_value = function_call_param_iterator.next();
-			symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
-			last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
-			
-			if (typeid(*last_type_symbol) == typeid(lreal_type_name_c))
-			{
-		
-				symbol_c * return_type_symbol = &search_constant_type_c::usint_type_name;
-				s4o.print("(");
-				return_type_symbol->accept(*this);
-				s4o.print(")");
-				IN_param_value->accept(*this);
-				return NULL;
-				
-			}
-			
-			ERROR;
-		}
-		
-	}/*function_lreal_to_usint*/
-	break;
-
-/****
- *LREAL_TO_ULINT
- */
-	case function_lreal_to_ulint :
-	{
-		symbol_c *last_type_symbol = NULL;
-
-		{
-			identifier_c param_name("IN");
-			/* Get the value from a foo(<param_name> = <param_value>) style call */
-			symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
-			
-			/* Get the value from a foo(<param_value>) style call */
-			if (IN_param_value == NULL)
-			  IN_param_value = function_call_param_iterator.next();
-			symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
-			last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
-			
-			if (typeid(*last_type_symbol) == typeid(lreal_type_name_c))
-			{
-		
-				symbol_c * return_type_symbol = &search_constant_type_c::ulint_type_name;
-				s4o.print("(");
-				return_type_symbol->accept(*this);
-				s4o.print(")");
-				IN_param_value->accept(*this);
-				return NULL;
-				
-			}
-			
-			ERROR;
-		}
-		
-	}/*function_lreal_to_ulint*/
-	break;
-
-/****
- *LREAL_TO_BOOL
- */
-	case function_lreal_to_bool :
-	{
-		symbol_c *last_type_symbol = NULL;
-
-		{
-			identifier_c param_name("IN");
-			/* Get the value from a foo(<param_name> = <param_value>) style call */
-			symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
-			
-			/* Get the value from a foo(<param_value>) style call */
-			if (IN_param_value == NULL)
-			  IN_param_value = function_call_param_iterator.next();
-			symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
-			last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
-			
-			if (typeid(*last_type_symbol) == typeid(lreal_type_name_c))
-			{
-		
-				symbol_c * return_type_symbol = &search_constant_type_c::bool_type_name;
-				s4o.print("(");
-				return_type_symbol->accept(*this);
-				s4o.print(")");
-				IN_param_value->accept(*this);
-				return NULL;
-				
-			}
-			
-			ERROR;
-		}
-		
-	}/*function_lreal_to_bool*/
-	break;
-
-/****
- *LREAL_TO_TIME
- */
-	case function_lreal_to_time :
-	{
-		symbol_c *last_type_symbol = NULL;
-
-		{
-			identifier_c param_name("IN");
-			/* Get the value from a foo(<param_name> = <param_value>) style call */
-			symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
-			
-			/* Get the value from a foo(<param_value>) style call */
-			if (IN_param_value == NULL)
-			  IN_param_value = function_call_param_iterator.next();
-			symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
-			last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
-			
-			if (typeid(*last_type_symbol) == typeid(lreal_type_name_c))
-			{
-		
-				symbol_c * return_type_symbol = &search_constant_type_c::time_type_name;
-				s4o.print("(");
-				return_type_symbol->accept(*this);
-				s4o.print(")time_to_real(");
-				IN_param_value->accept(*this);
-				s4o.print(")");
-				return NULL;
-				
-			}
-			
-			ERROR;
-		}
-		
-	}/*function_lreal_to_time*/
-	break;
-
-/****
- *LREAL_TO_INT
- */
-	case function_lreal_to_int :
-	{
-		symbol_c *last_type_symbol = NULL;
-
-		{
-			identifier_c param_name("IN");
-			/* Get the value from a foo(<param_name> = <param_value>) style call */
-			symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
-			
-			/* Get the value from a foo(<param_value>) style call */
-			if (IN_param_value == NULL)
-			  IN_param_value = function_call_param_iterator.next();
-			symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
-			last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
-			
-			if (typeid(*last_type_symbol) == typeid(lreal_type_name_c))
-			{
-		
-				symbol_c * return_type_symbol = &search_constant_type_c::int_type_name;
-				s4o.print("(");
-				return_type_symbol->accept(*this);
-				s4o.print(")");
-				IN_param_value->accept(*this);
-				return NULL;
-				
-			}
-			
-			ERROR;
-		}
-		
-	}/*function_lreal_to_int*/
-	break;
-
-/****
- *BYTE_TO_REAL
- */
-	case function_byte_to_real :
-	{
-		symbol_c *last_type_symbol = NULL;
-
-		{
-			identifier_c param_name("IN");
-			/* Get the value from a foo(<param_name> = <param_value>) style call */
-			symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
-			
-			/* Get the value from a foo(<param_value>) style call */
-			if (IN_param_value == NULL)
-			  IN_param_value = function_call_param_iterator.next();
-			symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
-			last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
-			
-			if (typeid(*last_type_symbol) == typeid(byte_type_name_c))
-			{
-		
-				symbol_c * return_type_symbol = &search_constant_type_c::real_type_name;
-				s4o.print("(");
-				return_type_symbol->accept(*this);
-				s4o.print(")");
-				IN_param_value->accept(*this);
-				return NULL;
-				
-			}
-			
-			ERROR;
-		}
-		
-	}/*function_byte_to_real*/
-	break;
-
-/****
- *BYTE_TO_SINT
- */
-	case function_byte_to_sint :
-	{
-		symbol_c *last_type_symbol = NULL;
-
-		{
-			identifier_c param_name("IN");
-			/* Get the value from a foo(<param_name> = <param_value>) style call */
-			symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
-			
-			/* Get the value from a foo(<param_value>) style call */
-			if (IN_param_value == NULL)
-			  IN_param_value = function_call_param_iterator.next();
-			symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
-			last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
-			
-			if (typeid(*last_type_symbol) == typeid(byte_type_name_c))
-			{
-		
-				symbol_c * return_type_symbol = &search_constant_type_c::sint_type_name;
-				s4o.print("(");
-				return_type_symbol->accept(*this);
-				s4o.print(")");
-				IN_param_value->accept(*this);
-				return NULL;
-				
-			}
-			
-			ERROR;
-		}
-		
-	}/*function_byte_to_sint*/
-	break;
-
-/****
- *BYTE_TO_LINT
- */
-	case function_byte_to_lint :
-	{
-		symbol_c *last_type_symbol = NULL;
-
-		{
-			identifier_c param_name("IN");
-			/* Get the value from a foo(<param_name> = <param_value>) style call */
-			symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
-			
-			/* Get the value from a foo(<param_value>) style call */
-			if (IN_param_value == NULL)
-			  IN_param_value = function_call_param_iterator.next();
-			symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
-			last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
-			
-			if (typeid(*last_type_symbol) == typeid(byte_type_name_c))
-			{
-		
-				symbol_c * return_type_symbol = &search_constant_type_c::lint_type_name;
-				s4o.print("(");
-				return_type_symbol->accept(*this);
-				s4o.print(")");
-				IN_param_value->accept(*this);
-				return NULL;
-				
-			}
-			
-			ERROR;
-		}
-		
-	}/*function_byte_to_lint*/
-	break;
-
-/****
- *BYTE_TO_DINT
- */
-	case function_byte_to_dint :
-	{
-		symbol_c *last_type_symbol = NULL;
-
-		{
-			identifier_c param_name("IN");
-			/* Get the value from a foo(<param_name> = <param_value>) style call */
-			symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
-			
-			/* Get the value from a foo(<param_value>) style call */
-			if (IN_param_value == NULL)
-			  IN_param_value = function_call_param_iterator.next();
-			symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
-			last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
-			
-			if (typeid(*last_type_symbol) == typeid(byte_type_name_c))
-			{
-		
-				symbol_c * return_type_symbol = &search_constant_type_c::dint_type_name;
-				s4o.print("(");
-				return_type_symbol->accept(*this);
-				s4o.print(")");
-				IN_param_value->accept(*this);
-				return NULL;
-				
-			}
-			
-			ERROR;
-		}
-		
-	}/*function_byte_to_dint*/
-	break;
-
-/****
- *BYTE_TO_DATE
- */
-	case function_byte_to_date :
-	{
-		symbol_c *last_type_symbol = NULL;
-
-		{
-			identifier_c param_name("IN");
-			/* Get the value from a foo(<param_name> = <param_value>) style call */
-			symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
-			
-			/* Get the value from a foo(<param_value>) style call */
-			if (IN_param_value == NULL)
-			  IN_param_value = function_call_param_iterator.next();
-			symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
-			last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
-			
-			if (typeid(*last_type_symbol) == typeid(byte_type_name_c))
-			{
-		
-				symbol_c * return_type_symbol = &search_constant_type_c::date_type_name;
-				s4o.print("(");
-				return_type_symbol->accept(*this);
-				s4o.print(")time_to_real(");
-				IN_param_value->accept(*this);
-				s4o.print(")");
-				return NULL;
-				
-			}
-			
-			ERROR;
-		}
-		
-	}/*function_byte_to_date*/
-	break;
-
-/****
- *BYTE_TO_DWORD
- */
-	case function_byte_to_dword :
-	{
-		symbol_c *last_type_symbol = NULL;
-
-		{
-			identifier_c param_name("IN");
-			/* Get the value from a foo(<param_name> = <param_value>) style call */
-			symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
-			
-			/* Get the value from a foo(<param_value>) style call */
-			if (IN_param_value == NULL)
-			  IN_param_value = function_call_param_iterator.next();
-			symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
-			last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
-			
-			if (typeid(*last_type_symbol) == typeid(byte_type_name_c))
-			{
-		
-				symbol_c * return_type_symbol = &search_constant_type_c::dword_type_name;
-				s4o.print("(");
-				return_type_symbol->accept(*this);
-				s4o.print(")");
-				IN_param_value->accept(*this);
-				return NULL;
-				
-			}
-			
-			ERROR;
-		}
-		
-	}/*function_byte_to_dword*/
-	break;
-
-/****
- *BYTE_TO_DT
- */
-	case function_byte_to_dt :
-	{
-		symbol_c *last_type_symbol = NULL;
-
-		{
-			identifier_c param_name("IN");
-			/* Get the value from a foo(<param_name> = <param_value>) style call */
-			symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
-			
-			/* Get the value from a foo(<param_value>) style call */
-			if (IN_param_value == NULL)
-			  IN_param_value = function_call_param_iterator.next();
-			symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
-			last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
-			
-			if (typeid(*last_type_symbol) == typeid(byte_type_name_c))
-			{
-		
-				symbol_c * return_type_symbol = &search_constant_type_c::dt_type_name;
-				s4o.print("(");
-				return_type_symbol->accept(*this);
-				s4o.print(")time_to_real(");
-				IN_param_value->accept(*this);
-				s4o.print(")");
-				return NULL;
-				
-			}
-			
-			ERROR;
-		}
-		
-	}/*function_byte_to_dt*/
-	break;
-
-/****
- *BYTE_TO_TOD
- */
-	case function_byte_to_tod :
-	{
-		symbol_c *last_type_symbol = NULL;
-
-		{
-			identifier_c param_name("IN");
-			/* Get the value from a foo(<param_name> = <param_value>) style call */
-			symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
-			
-			/* Get the value from a foo(<param_value>) style call */
-			if (IN_param_value == NULL)
-			  IN_param_value = function_call_param_iterator.next();
-			symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
-			last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
-			
-			if (typeid(*last_type_symbol) == typeid(byte_type_name_c))
-			{
-		
-				symbol_c * return_type_symbol = &search_constant_type_c::tod_type_name;
-				s4o.print("(");
-				return_type_symbol->accept(*this);
-				s4o.print(")time_to_real(");
-				IN_param_value->accept(*this);
-				s4o.print(")");
-				return NULL;
-				
-			}
-			
-			ERROR;
-		}
-		
-	}/*function_byte_to_tod*/
-	break;
-
-/****
- *BYTE_TO_UDINT
- */
-	case function_byte_to_udint :
-	{
-		symbol_c *last_type_symbol = NULL;
-
-		{
-			identifier_c param_name("IN");
-			/* Get the value from a foo(<param_name> = <param_value>) style call */
-			symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
-			
-			/* Get the value from a foo(<param_value>) style call */
-			if (IN_param_value == NULL)
-			  IN_param_value = function_call_param_iterator.next();
-			symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
-			last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
-			
-			if (typeid(*last_type_symbol) == typeid(byte_type_name_c))
-			{
-		
-				symbol_c * return_type_symbol = &search_constant_type_c::udint_type_name;
-				s4o.print("(");
-				return_type_symbol->accept(*this);
-				s4o.print(")");
-				IN_param_value->accept(*this);
-				return NULL;
-				
-			}
-			
-			ERROR;
-		}
-		
-	}/*function_byte_to_udint*/
-	break;
-
-/****
- *BYTE_TO_WORD
- */
-	case function_byte_to_word :
-	{
-		symbol_c *last_type_symbol = NULL;
-
-		{
-			identifier_c param_name("IN");
-			/* Get the value from a foo(<param_name> = <param_value>) style call */
-			symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
-			
-			/* Get the value from a foo(<param_value>) style call */
-			if (IN_param_value == NULL)
-			  IN_param_value = function_call_param_iterator.next();
-			symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
-			last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
-			
-			if (typeid(*last_type_symbol) == typeid(byte_type_name_c))
-			{
-		
-				symbol_c * return_type_symbol = &search_constant_type_c::word_type_name;
-				s4o.print("(");
-				return_type_symbol->accept(*this);
-				s4o.print(")");
-				IN_param_value->accept(*this);
-				return NULL;
-				
-			}
-			
-			ERROR;
-		}
-		
-	}/*function_byte_to_word*/
-	break;
-
-/****
- *BYTE_TO_WSTRING
- */
-	case function_byte_to_wstring :
-	{
-		symbol_c *last_type_symbol = NULL;
-
-		{
-			identifier_c param_name("IN");
-			/* Get the value from a foo(<param_name> = <param_value>) style call */
-			symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
-			
-			/* Get the value from a foo(<param_value>) style call */
-			if (IN_param_value == NULL)
-			  IN_param_value = function_call_param_iterator.next();
-			symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
-			last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
-			
-			if (typeid(*last_type_symbol) == typeid(byte_type_name_c))
-			{
-		
-				symbol_c * return_type_symbol = &search_constant_type_c::wstring_type_name;
-				s4o.print("(");
-				return_type_symbol->accept(*this);
-				s4o.print(")string_to_int(");
-				IN_param_value->accept(*this);
-				s4o.print(", 16)");
-				return NULL;
-				
-			}
-			
-			ERROR;
-		}
-		
-	}/*function_byte_to_wstring*/
-	break;
-
-/****
- *BYTE_TO_STRING
- */
-	case function_byte_to_string :
-	{
-		symbol_c *last_type_symbol = NULL;
-
-		{
-			identifier_c param_name("IN");
-			/* Get the value from a foo(<param_name> = <param_value>) style call */
-			symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
-			
-			/* Get the value from a foo(<param_value>) style call */
-			if (IN_param_value == NULL)
-			  IN_param_value = function_call_param_iterator.next();
-			symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
-			last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
-			
-			if (typeid(*last_type_symbol) == typeid(byte_type_name_c))
-			{
-		
-				symbol_c * return_type_symbol = &search_constant_type_c::string_type_name;
-				s4o.print("(");
-				return_type_symbol->accept(*this);
-				s4o.print(")string_to_int(");
-				IN_param_value->accept(*this);
-				s4o.print(", 16)");
-				return NULL;
-				
-			}
-			
-			ERROR;
-		}
-		
-	}/*function_byte_to_string*/
-	break;
-
-/****
- *BYTE_TO_LWORD
- */
-	case function_byte_to_lword :
-	{
-		symbol_c *last_type_symbol = NULL;
-
-		{
-			identifier_c param_name("IN");
-			/* Get the value from a foo(<param_name> = <param_value>) style call */
-			symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
-			
-			/* Get the value from a foo(<param_value>) style call */
-			if (IN_param_value == NULL)
-			  IN_param_value = function_call_param_iterator.next();
-			symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
-			last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
-			
-			if (typeid(*last_type_symbol) == typeid(byte_type_name_c))
-			{
-		
-				symbol_c * return_type_symbol = &search_constant_type_c::lword_type_name;
-				s4o.print("(");
-				return_type_symbol->accept(*this);
-				s4o.print(")");
-				IN_param_value->accept(*this);
-				return NULL;
-				
-			}
-			
-			ERROR;
-		}
-		
-	}/*function_byte_to_lword*/
-	break;
-
-/****
- *BYTE_TO_UINT
- */
-	case function_byte_to_uint :
-	{
-		symbol_c *last_type_symbol = NULL;
-
-		{
-			identifier_c param_name("IN");
-			/* Get the value from a foo(<param_name> = <param_value>) style call */
-			symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
-			
-			/* Get the value from a foo(<param_value>) style call */
-			if (IN_param_value == NULL)
-			  IN_param_value = function_call_param_iterator.next();
-			symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
-			last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
-			
-			if (typeid(*last_type_symbol) == typeid(byte_type_name_c))
-			{
-		
-				symbol_c * return_type_symbol = &search_constant_type_c::uint_type_name;
-				s4o.print("(");
-				return_type_symbol->accept(*this);
-				s4o.print(")");
-				IN_param_value->accept(*this);
-				return NULL;
-				
-			}
-			
-			ERROR;
-		}
-		
-	}/*function_byte_to_uint*/
-	break;
-
-/****
- *BYTE_TO_LREAL
- */
-	case function_byte_to_lreal :
-	{
-		symbol_c *last_type_symbol = NULL;
-
-		{
-			identifier_c param_name("IN");
-			/* Get the value from a foo(<param_name> = <param_value>) style call */
-			symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
-			
-			/* Get the value from a foo(<param_value>) style call */
-			if (IN_param_value == NULL)
-			  IN_param_value = function_call_param_iterator.next();
-			symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
-			last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
-			
-			if (typeid(*last_type_symbol) == typeid(byte_type_name_c))
-			{
-		
-				symbol_c * return_type_symbol = &search_constant_type_c::lreal_type_name;
-				s4o.print("(");
-				return_type_symbol->accept(*this);
-				s4o.print(")");
-				IN_param_value->accept(*this);
-				return NULL;
-				
-			}
-			
-			ERROR;
-		}
-		
-	}/*function_byte_to_lreal*/
-	break;
-
-/****
- *BYTE_TO_BYTE
- */
-	case function_byte_to_byte :
-	{
-		symbol_c *last_type_symbol = NULL;
-
-		{
-			identifier_c param_name("IN");
-			/* Get the value from a foo(<param_name> = <param_value>) style call */
-			symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
-			
-			/* Get the value from a foo(<param_value>) style call */
-			if (IN_param_value == NULL)
-			  IN_param_value = function_call_param_iterator.next();
-			symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
-			last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
-			
-			if (typeid(*last_type_symbol) == typeid(byte_type_name_c))
-			{
-		
-				symbol_c * return_type_symbol = &search_constant_type_c::byte_type_name;
-				s4o.print("(");
-				return_type_symbol->accept(*this);
-				s4o.print(")");
-				IN_param_value->accept(*this);
-				return NULL;
-				
-			}
-			
-			ERROR;
-		}
-		
-	}/*function_byte_to_byte*/
-	break;
-
-/****
- *BYTE_TO_USINT
- */
-	case function_byte_to_usint :
-	{
-		symbol_c *last_type_symbol = NULL;
-
-		{
-			identifier_c param_name("IN");
-			/* Get the value from a foo(<param_name> = <param_value>) style call */
-			symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
-			
-			/* Get the value from a foo(<param_value>) style call */
-			if (IN_param_value == NULL)
-			  IN_param_value = function_call_param_iterator.next();
-			symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
-			last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
-			
-			if (typeid(*last_type_symbol) == typeid(byte_type_name_c))
-			{
-		
-				symbol_c * return_type_symbol = &search_constant_type_c::usint_type_name;
-				s4o.print("(");
-				return_type_symbol->accept(*this);
-				s4o.print(")");
-				IN_param_value->accept(*this);
-				return NULL;
-				
-			}
-			
-			ERROR;
-		}
-		
-	}/*function_byte_to_usint*/
-	break;
-
-/****
- *BYTE_TO_ULINT
- */
-	case function_byte_to_ulint :
-	{
-		symbol_c *last_type_symbol = NULL;
-
-		{
-			identifier_c param_name("IN");
-			/* Get the value from a foo(<param_name> = <param_value>) style call */
-			symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
-			
-			/* Get the value from a foo(<param_value>) style call */
-			if (IN_param_value == NULL)
-			  IN_param_value = function_call_param_iterator.next();
-			symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
-			last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
-			
-			if (typeid(*last_type_symbol) == typeid(byte_type_name_c))
-			{
-		
-				symbol_c * return_type_symbol = &search_constant_type_c::ulint_type_name;
-				s4o.print("(");
-				return_type_symbol->accept(*this);
-				s4o.print(")");
-				IN_param_value->accept(*this);
-				return NULL;
-				
-			}
-			
-			ERROR;
-		}
-		
-	}/*function_byte_to_ulint*/
-	break;
-
-/****
- *BYTE_TO_BOOL
- */
-	case function_byte_to_bool :
-	{
-		symbol_c *last_type_symbol = NULL;
-
-		{
-			identifier_c param_name("IN");
-			/* Get the value from a foo(<param_name> = <param_value>) style call */
-			symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
-			
-			/* Get the value from a foo(<param_value>) style call */
-			if (IN_param_value == NULL)
-			  IN_param_value = function_call_param_iterator.next();
-			symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
-			last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
-			
-			if (typeid(*last_type_symbol) == typeid(byte_type_name_c))
-			{
-		
-				symbol_c * return_type_symbol = &search_constant_type_c::bool_type_name;
-				s4o.print("(");
-				return_type_symbol->accept(*this);
-				s4o.print(")");
-				IN_param_value->accept(*this);
-				return NULL;
-				
-			}
-			
-			ERROR;
-		}
-		
-	}/*function_byte_to_bool*/
-	break;
-
-/****
- *BYTE_TO_TIME
- */
-	case function_byte_to_time :
-	{
-		symbol_c *last_type_symbol = NULL;
-
-		{
-			identifier_c param_name("IN");
-			/* Get the value from a foo(<param_name> = <param_value>) style call */
-			symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
-			
-			/* Get the value from a foo(<param_value>) style call */
-			if (IN_param_value == NULL)
-			  IN_param_value = function_call_param_iterator.next();
-			symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
-			last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
-			
-			if (typeid(*last_type_symbol) == typeid(byte_type_name_c))
-			{
-		
-				symbol_c * return_type_symbol = &search_constant_type_c::time_type_name;
-				s4o.print("(");
-				return_type_symbol->accept(*this);
-				s4o.print(")time_to_real(");
-				IN_param_value->accept(*this);
-				s4o.print(")");
-				return NULL;
-				
-			}
-			
-			ERROR;
-		}
-		
-	}/*function_byte_to_time*/
-	break;
-
-/****
- *BYTE_TO_INT
- */
-	case function_byte_to_int :
-	{
-		symbol_c *last_type_symbol = NULL;
-
-		{
-			identifier_c param_name("IN");
-			/* Get the value from a foo(<param_name> = <param_value>) style call */
-			symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
-			
-			/* Get the value from a foo(<param_value>) style call */
-			if (IN_param_value == NULL)
-			  IN_param_value = function_call_param_iterator.next();
-			symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
-			last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
-			
-			if (typeid(*last_type_symbol) == typeid(byte_type_name_c))
-			{
-		
-				symbol_c * return_type_symbol = &search_constant_type_c::int_type_name;
-				s4o.print("(");
-				return_type_symbol->accept(*this);
-				s4o.print(")");
-				IN_param_value->accept(*this);
-				return NULL;
-				
-			}
-			
-			ERROR;
-		}
-		
-	}/*function_byte_to_int*/
-	break;
-
-/****
- *USINT_TO_REAL
- */
-	case function_usint_to_real :
-	{
-		symbol_c *last_type_symbol = NULL;
-
-		{
-			identifier_c param_name("IN");
-			/* Get the value from a foo(<param_name> = <param_value>) style call */
-			symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
-			
-			/* Get the value from a foo(<param_value>) style call */
-			if (IN_param_value == NULL)
-			  IN_param_value = function_call_param_iterator.next();
-			symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
-			last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
-			
-			if (typeid(*last_type_symbol) == typeid(usint_type_name_c))
-			{
-		
-				symbol_c * return_type_symbol = &search_constant_type_c::real_type_name;
-				s4o.print("(");
-				return_type_symbol->accept(*this);
-				s4o.print(")");
-				IN_param_value->accept(*this);
-				return NULL;
-				
-			}
-			
-			ERROR;
-		}
-		
-	}/*function_usint_to_real*/
-	break;
-
-/****
- *USINT_TO_SINT
- */
-	case function_usint_to_sint :
-	{
-		symbol_c *last_type_symbol = NULL;
-
-		{
-			identifier_c param_name("IN");
-			/* Get the value from a foo(<param_name> = <param_value>) style call */
-			symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
-			
-			/* Get the value from a foo(<param_value>) style call */
-			if (IN_param_value == NULL)
-			  IN_param_value = function_call_param_iterator.next();
-			symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
-			last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
-			
-			if (typeid(*last_type_symbol) == typeid(usint_type_name_c))
-			{
-		
-				symbol_c * return_type_symbol = &search_constant_type_c::sint_type_name;
-				s4o.print("(");
-				return_type_symbol->accept(*this);
-				s4o.print(")");
-				IN_param_value->accept(*this);
-				return NULL;
-				
-			}
-			
-			ERROR;
-		}
-		
-	}/*function_usint_to_sint*/
-	break;
-
-/****
- *USINT_TO_LINT
- */
-	case function_usint_to_lint :
-	{
-		symbol_c *last_type_symbol = NULL;
-
-		{
-			identifier_c param_name("IN");
-			/* Get the value from a foo(<param_name> = <param_value>) style call */
-			symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
-			
-			/* Get the value from a foo(<param_value>) style call */
-			if (IN_param_value == NULL)
-			  IN_param_value = function_call_param_iterator.next();
-			symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
-			last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
-			
-			if (typeid(*last_type_symbol) == typeid(usint_type_name_c))
-			{
-		
-				symbol_c * return_type_symbol = &search_constant_type_c::lint_type_name;
-				s4o.print("(");
-				return_type_symbol->accept(*this);
-				s4o.print(")");
-				IN_param_value->accept(*this);
-				return NULL;
-				
-			}
-			
-			ERROR;
-		}
-		
-	}/*function_usint_to_lint*/
-	break;
-
-/****
- *USINT_TO_DINT
- */
-	case function_usint_to_dint :
-	{
-		symbol_c *last_type_symbol = NULL;
-
-		{
-			identifier_c param_name("IN");
-			/* Get the value from a foo(<param_name> = <param_value>) style call */
-			symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
-			
-			/* Get the value from a foo(<param_value>) style call */
-			if (IN_param_value == NULL)
-			  IN_param_value = function_call_param_iterator.next();
-			symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
-			last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
-			
-			if (typeid(*last_type_symbol) == typeid(usint_type_name_c))
-			{
-		
-				symbol_c * return_type_symbol = &search_constant_type_c::dint_type_name;
-				s4o.print("(");
-				return_type_symbol->accept(*this);
-				s4o.print(")");
-				IN_param_value->accept(*this);
-				return NULL;
-				
-			}
-			
-			ERROR;
-		}
-		
-	}/*function_usint_to_dint*/
-	break;
-
-/****
- *USINT_TO_DATE
- */
-	case function_usint_to_date :
-	{
-		symbol_c *last_type_symbol = NULL;
-
-		{
-			identifier_c param_name("IN");
-			/* Get the value from a foo(<param_name> = <param_value>) style call */
-			symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
-			
-			/* Get the value from a foo(<param_value>) style call */
-			if (IN_param_value == NULL)
-			  IN_param_value = function_call_param_iterator.next();
-			symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
-			last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
-			
-			if (typeid(*last_type_symbol) == typeid(usint_type_name_c))
-			{
-		
-				symbol_c * return_type_symbol = &search_constant_type_c::date_type_name;
-				s4o.print("(");
-				return_type_symbol->accept(*this);
-				s4o.print(")time_to_real(");
-				IN_param_value->accept(*this);
-				s4o.print(")");
-				return NULL;
-				
-			}
-			
-			ERROR;
-		}
-		
-	}/*function_usint_to_date*/
-	break;
-
-/****
- *USINT_TO_DWORD
- */
-	case function_usint_to_dword :
-	{
-		symbol_c *last_type_symbol = NULL;
-
-		{
-			identifier_c param_name("IN");
-			/* Get the value from a foo(<param_name> = <param_value>) style call */
-			symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
-			
-			/* Get the value from a foo(<param_value>) style call */
-			if (IN_param_value == NULL)
-			  IN_param_value = function_call_param_iterator.next();
-			symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
-			last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
-			
-			if (typeid(*last_type_symbol) == typeid(usint_type_name_c))
-			{
-		
-				symbol_c * return_type_symbol = &search_constant_type_c::dword_type_name;
-				s4o.print("(");
-				return_type_symbol->accept(*this);
-				s4o.print(")");
-				IN_param_value->accept(*this);
-				return NULL;
-				
-			}
-			
-			ERROR;
-		}
-		
-	}/*function_usint_to_dword*/
-	break;
-
-/****
- *USINT_TO_DT
- */
-	case function_usint_to_dt :
-	{
-		symbol_c *last_type_symbol = NULL;
-
-		{
-			identifier_c param_name("IN");
-			/* Get the value from a foo(<param_name> = <param_value>) style call */
-			symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
-			
-			/* Get the value from a foo(<param_value>) style call */
-			if (IN_param_value == NULL)
-			  IN_param_value = function_call_param_iterator.next();
-			symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
-			last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
-			
-			if (typeid(*last_type_symbol) == typeid(usint_type_name_c))
-			{
-		
-				symbol_c * return_type_symbol = &search_constant_type_c::dt_type_name;
-				s4o.print("(");
-				return_type_symbol->accept(*this);
-				s4o.print(")time_to_real(");
-				IN_param_value->accept(*this);
-				s4o.print(")");
-				return NULL;
-				
-			}
-			
-			ERROR;
-		}
-		
-	}/*function_usint_to_dt*/
-	break;
-
-/****
- *USINT_TO_TOD
- */
-	case function_usint_to_tod :
-	{
-		symbol_c *last_type_symbol = NULL;
-
-		{
-			identifier_c param_name("IN");
-			/* Get the value from a foo(<param_name> = <param_value>) style call */
-			symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
-			
-			/* Get the value from a foo(<param_value>) style call */
-			if (IN_param_value == NULL)
-			  IN_param_value = function_call_param_iterator.next();
-			symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
-			last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
-			
-			if (typeid(*last_type_symbol) == typeid(usint_type_name_c))
-			{
-		
-				symbol_c * return_type_symbol = &search_constant_type_c::tod_type_name;
-				s4o.print("(");
-				return_type_symbol->accept(*this);
-				s4o.print(")time_to_real(");
-				IN_param_value->accept(*this);
-				s4o.print(")");
-				return NULL;
-				
-			}
-			
-			ERROR;
-		}
-		
-	}/*function_usint_to_tod*/
-	break;
-
-/****
- *USINT_TO_UDINT
- */
-	case function_usint_to_udint :
-	{
-		symbol_c *last_type_symbol = NULL;
-
-		{
-			identifier_c param_name("IN");
-			/* Get the value from a foo(<param_name> = <param_value>) style call */
-			symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
-			
-			/* Get the value from a foo(<param_value>) style call */
-			if (IN_param_value == NULL)
-			  IN_param_value = function_call_param_iterator.next();
-			symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
-			last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
-			
-			if (typeid(*last_type_symbol) == typeid(usint_type_name_c))
-			{
-		
-				symbol_c * return_type_symbol = &search_constant_type_c::udint_type_name;
-				s4o.print("(");
-				return_type_symbol->accept(*this);
-				s4o.print(")");
-				IN_param_value->accept(*this);
-				return NULL;
-				
-			}
-			
-			ERROR;
-		}
-		
-	}/*function_usint_to_udint*/
-	break;
-
-/****
- *USINT_TO_WORD
- */
-	case function_usint_to_word :
-	{
-		symbol_c *last_type_symbol = NULL;
-
-		{
-			identifier_c param_name("IN");
-			/* Get the value from a foo(<param_name> = <param_value>) style call */
-			symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
-			
-			/* Get the value from a foo(<param_value>) style call */
-			if (IN_param_value == NULL)
-			  IN_param_value = function_call_param_iterator.next();
-			symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
-			last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
-			
-			if (typeid(*last_type_symbol) == typeid(usint_type_name_c))
-			{
-		
-				symbol_c * return_type_symbol = &search_constant_type_c::word_type_name;
-				s4o.print("(");
-				return_type_symbol->accept(*this);
-				s4o.print(")");
-				IN_param_value->accept(*this);
-				return NULL;
-				
-			}
-			
-			ERROR;
-		}
-		
-	}/*function_usint_to_word*/
-	break;
-
-/****
- *USINT_TO_WSTRING
- */
-	case function_usint_to_wstring :
-	{
-		symbol_c *last_type_symbol = NULL;
-
-		{
-			identifier_c param_name("IN");
-			/* Get the value from a foo(<param_name> = <param_value>) style call */
-			symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
-			
-			/* Get the value from a foo(<param_value>) style call */
-			if (IN_param_value == NULL)
-			  IN_param_value = function_call_param_iterator.next();
-			symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
-			last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
-			
-			if (typeid(*last_type_symbol) == typeid(usint_type_name_c))
-			{
-		
-				symbol_c * return_type_symbol = &search_constant_type_c::wstring_type_name;
-				s4o.print("(");
-				return_type_symbol->accept(*this);
-				s4o.print(")string_to_int(");
-				IN_param_value->accept(*this);
-				s4o.print(", 10)");
-				return NULL;
-				
-			}
-			
-			ERROR;
-		}
-		
-	}/*function_usint_to_wstring*/
-	break;
-
-/****
- *USINT_TO_STRING
- */
-	case function_usint_to_string :
-	{
-		symbol_c *last_type_symbol = NULL;
-
-		{
-			identifier_c param_name("IN");
-			/* Get the value from a foo(<param_name> = <param_value>) style call */
-			symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
-			
-			/* Get the value from a foo(<param_value>) style call */
-			if (IN_param_value == NULL)
-			  IN_param_value = function_call_param_iterator.next();
-			symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
-			last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
-			
-			if (typeid(*last_type_symbol) == typeid(usint_type_name_c))
-			{
-		
-				symbol_c * return_type_symbol = &search_constant_type_c::string_type_name;
-				s4o.print("(");
-				return_type_symbol->accept(*this);
-				s4o.print(")string_to_int(");
-				IN_param_value->accept(*this);
-				s4o.print(", 10)");
-				return NULL;
-				
-			}
-			
-			ERROR;
-		}
-		
-	}/*function_usint_to_string*/
-	break;
-
-/****
- *USINT_TO_LWORD
- */
-	case function_usint_to_lword :
-	{
-		symbol_c *last_type_symbol = NULL;
-
-		{
-			identifier_c param_name("IN");
-			/* Get the value from a foo(<param_name> = <param_value>) style call */
-			symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
-			
-			/* Get the value from a foo(<param_value>) style call */
-			if (IN_param_value == NULL)
-			  IN_param_value = function_call_param_iterator.next();
-			symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
-			last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
-			
-			if (typeid(*last_type_symbol) == typeid(usint_type_name_c))
-			{
-		
-				symbol_c * return_type_symbol = &search_constant_type_c::lword_type_name;
-				s4o.print("(");
-				return_type_symbol->accept(*this);
-				s4o.print(")");
-				IN_param_value->accept(*this);
-				return NULL;
-				
-			}
-			
-			ERROR;
-		}
-		
-	}/*function_usint_to_lword*/
-	break;
-
-/****
- *USINT_TO_UINT
- */
-	case function_usint_to_uint :
-	{
-		symbol_c *last_type_symbol = NULL;
-
-		{
-			identifier_c param_name("IN");
-			/* Get the value from a foo(<param_name> = <param_value>) style call */
-			symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
-			
-			/* Get the value from a foo(<param_value>) style call */
-			if (IN_param_value == NULL)
-			  IN_param_value = function_call_param_iterator.next();
-			symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
-			last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
-			
-			if (typeid(*last_type_symbol) == typeid(usint_type_name_c))
-			{
-		
-				symbol_c * return_type_symbol = &search_constant_type_c::uint_type_name;
-				s4o.print("(");
-				return_type_symbol->accept(*this);
-				s4o.print(")");
-				IN_param_value->accept(*this);
-				return NULL;
-				
-			}
-			
-			ERROR;
-		}
-		
-	}/*function_usint_to_uint*/
-	break;
-
-/****
- *USINT_TO_LREAL
- */
-	case function_usint_to_lreal :
-	{
-		symbol_c *last_type_symbol = NULL;
-
-		{
-			identifier_c param_name("IN");
-			/* Get the value from a foo(<param_name> = <param_value>) style call */
-			symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
-			
-			/* Get the value from a foo(<param_value>) style call */
-			if (IN_param_value == NULL)
-			  IN_param_value = function_call_param_iterator.next();
-			symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
-			last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
-			
-			if (typeid(*last_type_symbol) == typeid(usint_type_name_c))
-			{
-		
-				symbol_c * return_type_symbol = &search_constant_type_c::lreal_type_name;
-				s4o.print("(");
-				return_type_symbol->accept(*this);
-				s4o.print(")");
-				IN_param_value->accept(*this);
-				return NULL;
-				
-			}
-			
-			ERROR;
-		}
-		
-	}/*function_usint_to_lreal*/
-	break;
-
-/****
- *USINT_TO_BYTE
- */
-	case function_usint_to_byte :
-	{
-		symbol_c *last_type_symbol = NULL;
-
-		{
-			identifier_c param_name("IN");
-			/* Get the value from a foo(<param_name> = <param_value>) style call */
-			symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
-			
-			/* Get the value from a foo(<param_value>) style call */
-			if (IN_param_value == NULL)
-			  IN_param_value = function_call_param_iterator.next();
-			symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
-			last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
-			
-			if (typeid(*last_type_symbol) == typeid(usint_type_name_c))
-			{
-		
-				symbol_c * return_type_symbol = &search_constant_type_c::byte_type_name;
-				s4o.print("(");
-				return_type_symbol->accept(*this);
-				s4o.print(")");
-				IN_param_value->accept(*this);
-				return NULL;
-				
-			}
-			
-			ERROR;
-		}
-		
-	}/*function_usint_to_byte*/
-	break;
-
-/****
- *USINT_TO_USINT
- */
-	case function_usint_to_usint :
-	{
-		symbol_c *last_type_symbol = NULL;
-
-		{
-			identifier_c param_name("IN");
-			/* Get the value from a foo(<param_name> = <param_value>) style call */
-			symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
-			
-			/* Get the value from a foo(<param_value>) style call */
-			if (IN_param_value == NULL)
-			  IN_param_value = function_call_param_iterator.next();
-			symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
-			last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
-			
-			if (typeid(*last_type_symbol) == typeid(usint_type_name_c))
-			{
-		
-				symbol_c * return_type_symbol = &search_constant_type_c::usint_type_name;
-				s4o.print("(");
-				return_type_symbol->accept(*this);
-				s4o.print(")");
-				IN_param_value->accept(*this);
-				return NULL;
-				
-			}
-			
-			ERROR;
-		}
-		
-	}/*function_usint_to_usint*/
-	break;
-
-/****
- *USINT_TO_ULINT
- */
-	case function_usint_to_ulint :
-	{
-		symbol_c *last_type_symbol = NULL;
-
-		{
-			identifier_c param_name("IN");
-			/* Get the value from a foo(<param_name> = <param_value>) style call */
-			symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
-			
-			/* Get the value from a foo(<param_value>) style call */
-			if (IN_param_value == NULL)
-			  IN_param_value = function_call_param_iterator.next();
-			symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
-			last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
-			
-			if (typeid(*last_type_symbol) == typeid(usint_type_name_c))
-			{
-		
-				symbol_c * return_type_symbol = &search_constant_type_c::ulint_type_name;
-				s4o.print("(");
-				return_type_symbol->accept(*this);
-				s4o.print(")");
-				IN_param_value->accept(*this);
-				return NULL;
-				
-			}
-			
-			ERROR;
-		}
-		
-	}/*function_usint_to_ulint*/
-	break;
-
-/****
- *USINT_TO_BOOL
- */
-	case function_usint_to_bool :
-	{
-		symbol_c *last_type_symbol = NULL;
-
-		{
-			identifier_c param_name("IN");
-			/* Get the value from a foo(<param_name> = <param_value>) style call */
-			symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
-			
-			/* Get the value from a foo(<param_value>) style call */
-			if (IN_param_value == NULL)
-			  IN_param_value = function_call_param_iterator.next();
-			symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
-			last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
-			
-			if (typeid(*last_type_symbol) == typeid(usint_type_name_c))
-			{
-		
-				symbol_c * return_type_symbol = &search_constant_type_c::bool_type_name;
-				s4o.print("(");
-				return_type_symbol->accept(*this);
-				s4o.print(")");
-				IN_param_value->accept(*this);
-				return NULL;
-				
-			}
-			
-			ERROR;
-		}
-		
-	}/*function_usint_to_bool*/
-	break;
-
-/****
- *USINT_TO_TIME
- */
-	case function_usint_to_time :
-	{
-		symbol_c *last_type_symbol = NULL;
-
-		{
-			identifier_c param_name("IN");
-			/* Get the value from a foo(<param_name> = <param_value>) style call */
-			symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
-			
-			/* Get the value from a foo(<param_value>) style call */
-			if (IN_param_value == NULL)
-			  IN_param_value = function_call_param_iterator.next();
-			symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
-			last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
-			
-			if (typeid(*last_type_symbol) == typeid(usint_type_name_c))
-			{
-		
-				symbol_c * return_type_symbol = &search_constant_type_c::time_type_name;
-				s4o.print("(");
-				return_type_symbol->accept(*this);
-				s4o.print(")time_to_real(");
-				IN_param_value->accept(*this);
-				s4o.print(")");
-				return NULL;
-				
-			}
-			
-			ERROR;
-		}
-		
-	}/*function_usint_to_time*/
-	break;
-
-/****
- *USINT_TO_INT
- */
-	case function_usint_to_int :
-	{
-		symbol_c *last_type_symbol = NULL;
-
-		{
-			identifier_c param_name("IN");
-			/* Get the value from a foo(<param_name> = <param_value>) style call */
-			symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
-			
-			/* Get the value from a foo(<param_value>) style call */
-			if (IN_param_value == NULL)
-			  IN_param_value = function_call_param_iterator.next();
-			symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
-			last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
-			
-			if (typeid(*last_type_symbol) == typeid(usint_type_name_c))
-			{
-		
-				symbol_c * return_type_symbol = &search_constant_type_c::int_type_name;
-				s4o.print("(");
-				return_type_symbol->accept(*this);
-				s4o.print(")");
-				IN_param_value->accept(*this);
-				return NULL;
-				
-			}
-			
-			ERROR;
-		}
-		
-	}/*function_usint_to_int*/
-	break;
-
-/****
- *ULINT_TO_REAL
- */
-	case function_ulint_to_real :
-	{
-		symbol_c *last_type_symbol = NULL;
-
-		{
-			identifier_c param_name("IN");
-			/* Get the value from a foo(<param_name> = <param_value>) style call */
-			symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
-			
-			/* Get the value from a foo(<param_value>) style call */
-			if (IN_param_value == NULL)
-			  IN_param_value = function_call_param_iterator.next();
-			symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
-			last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
-			
-			if (typeid(*last_type_symbol) == typeid(ulint_type_name_c))
-			{
-		
-				symbol_c * return_type_symbol = &search_constant_type_c::real_type_name;
-				s4o.print("(");
-				return_type_symbol->accept(*this);
-				s4o.print(")");
-				IN_param_value->accept(*this);
-				return NULL;
-				
-			}
-			
-			ERROR;
-		}
-		
-	}/*function_ulint_to_real*/
-	break;
-
-/****
- *ULINT_TO_SINT
- */
-	case function_ulint_to_sint :
-	{
-		symbol_c *last_type_symbol = NULL;
-
-		{
-			identifier_c param_name("IN");
-			/* Get the value from a foo(<param_name> = <param_value>) style call */
-			symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
-			
-			/* Get the value from a foo(<param_value>) style call */
-			if (IN_param_value == NULL)
-			  IN_param_value = function_call_param_iterator.next();
-			symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
-			last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
-			
-			if (typeid(*last_type_symbol) == typeid(ulint_type_name_c))
-			{
-		
-				symbol_c * return_type_symbol = &search_constant_type_c::sint_type_name;
-				s4o.print("(");
-				return_type_symbol->accept(*this);
-				s4o.print(")");
-				IN_param_value->accept(*this);
-				return NULL;
-				
-			}
-			
-			ERROR;
-		}
-		
-	}/*function_ulint_to_sint*/
-	break;
-
-/****
- *ULINT_TO_LINT
- */
-	case function_ulint_to_lint :
-	{
-		symbol_c *last_type_symbol = NULL;
-
-		{
-			identifier_c param_name("IN");
-			/* Get the value from a foo(<param_name> = <param_value>) style call */
-			symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
-			
-			/* Get the value from a foo(<param_value>) style call */
-			if (IN_param_value == NULL)
-			  IN_param_value = function_call_param_iterator.next();
-			symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
-			last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
-			
-			if (typeid(*last_type_symbol) == typeid(ulint_type_name_c))
-			{
-		
-				symbol_c * return_type_symbol = &search_constant_type_c::lint_type_name;
-				s4o.print("(");
-				return_type_symbol->accept(*this);
-				s4o.print(")");
-				IN_param_value->accept(*this);
-				return NULL;
-				
-			}
-			
-			ERROR;
-		}
-		
-	}/*function_ulint_to_lint*/
-	break;
-
-/****
- *ULINT_TO_DINT
- */
-	case function_ulint_to_dint :
-	{
-		symbol_c *last_type_symbol = NULL;
-
-		{
-			identifier_c param_name("IN");
-			/* Get the value from a foo(<param_name> = <param_value>) style call */
-			symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
-			
-			/* Get the value from a foo(<param_value>) style call */
-			if (IN_param_value == NULL)
-			  IN_param_value = function_call_param_iterator.next();
-			symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
-			last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
-			
-			if (typeid(*last_type_symbol) == typeid(ulint_type_name_c))
-			{
-		
-				symbol_c * return_type_symbol = &search_constant_type_c::dint_type_name;
-				s4o.print("(");
-				return_type_symbol->accept(*this);
-				s4o.print(")");
-				IN_param_value->accept(*this);
-				return NULL;
-				
-			}
-			
-			ERROR;
-		}
-		
-	}/*function_ulint_to_dint*/
-	break;
-
-/****
- *ULINT_TO_DATE
- */
-	case function_ulint_to_date :
-	{
-		symbol_c *last_type_symbol = NULL;
-
-		{
-			identifier_c param_name("IN");
-			/* Get the value from a foo(<param_name> = <param_value>) style call */
-			symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
-			
-			/* Get the value from a foo(<param_value>) style call */
-			if (IN_param_value == NULL)
-			  IN_param_value = function_call_param_iterator.next();
-			symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
-			last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
-			
-			if (typeid(*last_type_symbol) == typeid(ulint_type_name_c))
-			{
-		
-				symbol_c * return_type_symbol = &search_constant_type_c::date_type_name;
-				s4o.print("(");
-				return_type_symbol->accept(*this);
-				s4o.print(")time_to_real(");
-				IN_param_value->accept(*this);
-				s4o.print(")");
-				return NULL;
-				
-			}
-			
-			ERROR;
-		}
-		
-	}/*function_ulint_to_date*/
-	break;
-
-/****
- *ULINT_TO_DWORD
- */
-	case function_ulint_to_dword :
-	{
-		symbol_c *last_type_symbol = NULL;
-
-		{
-			identifier_c param_name("IN");
-			/* Get the value from a foo(<param_name> = <param_value>) style call */
-			symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
-			
-			/* Get the value from a foo(<param_value>) style call */
-			if (IN_param_value == NULL)
-			  IN_param_value = function_call_param_iterator.next();
-			symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
-			last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
-			
-			if (typeid(*last_type_symbol) == typeid(ulint_type_name_c))
-			{
-		
-				symbol_c * return_type_symbol = &search_constant_type_c::dword_type_name;
-				s4o.print("(");
-				return_type_symbol->accept(*this);
-				s4o.print(")");
-				IN_param_value->accept(*this);
-				return NULL;
-				
-			}
-			
-			ERROR;
-		}
-		
-	}/*function_ulint_to_dword*/
-	break;
-
-/****
- *ULINT_TO_DT
- */
-	case function_ulint_to_dt :
-	{
-		symbol_c *last_type_symbol = NULL;
-
-		{
-			identifier_c param_name("IN");
-			/* Get the value from a foo(<param_name> = <param_value>) style call */
-			symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
-			
-			/* Get the value from a foo(<param_value>) style call */
-			if (IN_param_value == NULL)
-			  IN_param_value = function_call_param_iterator.next();
-			symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
-			last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
-			
-			if (typeid(*last_type_symbol) == typeid(ulint_type_name_c))
-			{
-		
-				symbol_c * return_type_symbol = &search_constant_type_c::dt_type_name;
-				s4o.print("(");
-				return_type_symbol->accept(*this);
-				s4o.print(")time_to_real(");
-				IN_param_value->accept(*this);
-				s4o.print(")");
-				return NULL;
-				
-			}
-			
-			ERROR;
-		}
-		
-	}/*function_ulint_to_dt*/
-	break;
-
-/****
- *ULINT_TO_TOD
- */
-	case function_ulint_to_tod :
-	{
-		symbol_c *last_type_symbol = NULL;
-
-		{
-			identifier_c param_name("IN");
-			/* Get the value from a foo(<param_name> = <param_value>) style call */
-			symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
-			
-			/* Get the value from a foo(<param_value>) style call */
-			if (IN_param_value == NULL)
-			  IN_param_value = function_call_param_iterator.next();
-			symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
-			last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
-			
-			if (typeid(*last_type_symbol) == typeid(ulint_type_name_c))
-			{
-		
-				symbol_c * return_type_symbol = &search_constant_type_c::tod_type_name;
-				s4o.print("(");
-				return_type_symbol->accept(*this);
-				s4o.print(")time_to_real(");
-				IN_param_value->accept(*this);
-				s4o.print(")");
-				return NULL;
-				
-			}
-			
-			ERROR;
-		}
-		
-	}/*function_ulint_to_tod*/
-	break;
-
-/****
- *ULINT_TO_UDINT
- */
-	case function_ulint_to_udint :
-	{
-		symbol_c *last_type_symbol = NULL;
-
-		{
-			identifier_c param_name("IN");
-			/* Get the value from a foo(<param_name> = <param_value>) style call */
-			symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
-			
-			/* Get the value from a foo(<param_value>) style call */
-			if (IN_param_value == NULL)
-			  IN_param_value = function_call_param_iterator.next();
-			symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
-			last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
-			
-			if (typeid(*last_type_symbol) == typeid(ulint_type_name_c))
-			{
-		
-				symbol_c * return_type_symbol = &search_constant_type_c::udint_type_name;
-				s4o.print("(");
-				return_type_symbol->accept(*this);
-				s4o.print(")");
-				IN_param_value->accept(*this);
-				return NULL;
-				
-			}
-			
-			ERROR;
-		}
-		
-	}/*function_ulint_to_udint*/
-	break;
-
-/****
- *ULINT_TO_WORD
- */
-	case function_ulint_to_word :
-	{
-		symbol_c *last_type_symbol = NULL;
-
-		{
-			identifier_c param_name("IN");
-			/* Get the value from a foo(<param_name> = <param_value>) style call */
-			symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
-			
-			/* Get the value from a foo(<param_value>) style call */
-			if (IN_param_value == NULL)
-			  IN_param_value = function_call_param_iterator.next();
-			symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
-			last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
-			
-			if (typeid(*last_type_symbol) == typeid(ulint_type_name_c))
-			{
-		
-				symbol_c * return_type_symbol = &search_constant_type_c::word_type_name;
-				s4o.print("(");
-				return_type_symbol->accept(*this);
-				s4o.print(")");
-				IN_param_value->accept(*this);
-				return NULL;
-				
-			}
-			
-			ERROR;
-		}
-		
-	}/*function_ulint_to_word*/
-	break;
-
-/****
- *ULINT_TO_WSTRING
- */
-	case function_ulint_to_wstring :
-	{
-		symbol_c *last_type_symbol = NULL;
-
-		{
-			identifier_c param_name("IN");
-			/* Get the value from a foo(<param_name> = <param_value>) style call */
-			symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
-			
-			/* Get the value from a foo(<param_value>) style call */
-			if (IN_param_value == NULL)
-			  IN_param_value = function_call_param_iterator.next();
-			symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
-			last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
-			
-			if (typeid(*last_type_symbol) == typeid(ulint_type_name_c))
-			{
-		
-				symbol_c * return_type_symbol = &search_constant_type_c::wstring_type_name;
-				s4o.print("(");
-				return_type_symbol->accept(*this);
-				s4o.print(")string_to_int(");
-				IN_param_value->accept(*this);
-				s4o.print(", 10)");
-				return NULL;
-				
-			}
-			
-			ERROR;
-		}
-		
-	}/*function_ulint_to_wstring*/
-	break;
-
-/****
- *ULINT_TO_STRING
- */
-	case function_ulint_to_string :
-	{
-		symbol_c *last_type_symbol = NULL;
-
-		{
-			identifier_c param_name("IN");
-			/* Get the value from a foo(<param_name> = <param_value>) style call */
-			symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
-			
-			/* Get the value from a foo(<param_value>) style call */
-			if (IN_param_value == NULL)
-			  IN_param_value = function_call_param_iterator.next();
-			symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
-			last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
-			
-			if (typeid(*last_type_symbol) == typeid(ulint_type_name_c))
-			{
-		
-				symbol_c * return_type_symbol = &search_constant_type_c::string_type_name;
-				s4o.print("(");
-				return_type_symbol->accept(*this);
-				s4o.print(")string_to_int(");
-				IN_param_value->accept(*this);
-				s4o.print(", 10)");
-				return NULL;
-				
-			}
-			
-			ERROR;
-		}
-		
-	}/*function_ulint_to_string*/
-	break;
-
-/****
- *ULINT_TO_LWORD
- */
-	case function_ulint_to_lword :
-	{
-		symbol_c *last_type_symbol = NULL;
-
-		{
-			identifier_c param_name("IN");
-			/* Get the value from a foo(<param_name> = <param_value>) style call */
-			symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
-			
-			/* Get the value from a foo(<param_value>) style call */
-			if (IN_param_value == NULL)
-			  IN_param_value = function_call_param_iterator.next();
-			symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
-			last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
-			
-			if (typeid(*last_type_symbol) == typeid(ulint_type_name_c))
-			{
-		
-				symbol_c * return_type_symbol = &search_constant_type_c::lword_type_name;
-				s4o.print("(");
-				return_type_symbol->accept(*this);
-				s4o.print(")");
-				IN_param_value->accept(*this);
-				return NULL;
-				
-			}
-			
-			ERROR;
-		}
-		
-	}/*function_ulint_to_lword*/
-	break;
-
-/****
- *ULINT_TO_UINT
- */
-	case function_ulint_to_uint :
-	{
-		symbol_c *last_type_symbol = NULL;
-
-		{
-			identifier_c param_name("IN");
-			/* Get the value from a foo(<param_name> = <param_value>) style call */
-			symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
-			
-			/* Get the value from a foo(<param_value>) style call */
-			if (IN_param_value == NULL)
-			  IN_param_value = function_call_param_iterator.next();
-			symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
-			last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
-			
-			if (typeid(*last_type_symbol) == typeid(ulint_type_name_c))
-			{
-		
-				symbol_c * return_type_symbol = &search_constant_type_c::uint_type_name;
-				s4o.print("(");
-				return_type_symbol->accept(*this);
-				s4o.print(")");
-				IN_param_value->accept(*this);
-				return NULL;
-				
-			}
-			
-			ERROR;
-		}
-		
-	}/*function_ulint_to_uint*/
-	break;
-
-/****
- *ULINT_TO_LREAL
- */
-	case function_ulint_to_lreal :
-	{
-		symbol_c *last_type_symbol = NULL;
-
-		{
-			identifier_c param_name("IN");
-			/* Get the value from a foo(<param_name> = <param_value>) style call */
-			symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
-			
-			/* Get the value from a foo(<param_value>) style call */
-			if (IN_param_value == NULL)
-			  IN_param_value = function_call_param_iterator.next();
-			symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
-			last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
-			
-			if (typeid(*last_type_symbol) == typeid(ulint_type_name_c))
-			{
-		
-				symbol_c * return_type_symbol = &search_constant_type_c::lreal_type_name;
-				s4o.print("(");
-				return_type_symbol->accept(*this);
-				s4o.print(")");
-				IN_param_value->accept(*this);
-				return NULL;
-				
-			}
-			
-			ERROR;
-		}
-		
-	}/*function_ulint_to_lreal*/
-	break;
-
-/****
- *ULINT_TO_BYTE
- */
-	case function_ulint_to_byte :
-	{
-		symbol_c *last_type_symbol = NULL;
-
-		{
-			identifier_c param_name("IN");
-			/* Get the value from a foo(<param_name> = <param_value>) style call */
-			symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
-			
-			/* Get the value from a foo(<param_value>) style call */
-			if (IN_param_value == NULL)
-			  IN_param_value = function_call_param_iterator.next();
-			symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
-			last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
-			
-			if (typeid(*last_type_symbol) == typeid(ulint_type_name_c))
-			{
-		
-				symbol_c * return_type_symbol = &search_constant_type_c::byte_type_name;
-				s4o.print("(");
-				return_type_symbol->accept(*this);
-				s4o.print(")");
-				IN_param_value->accept(*this);
-				return NULL;
-				
-			}
-			
-			ERROR;
-		}
-		
-	}/*function_ulint_to_byte*/
-	break;
-
-/****
- *ULINT_TO_USINT
- */
-	case function_ulint_to_usint :
-	{
-		symbol_c *last_type_symbol = NULL;
-
-		{
-			identifier_c param_name("IN");
-			/* Get the value from a foo(<param_name> = <param_value>) style call */
-			symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
-			
-			/* Get the value from a foo(<param_value>) style call */
-			if (IN_param_value == NULL)
-			  IN_param_value = function_call_param_iterator.next();
-			symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
-			last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
-			
-			if (typeid(*last_type_symbol) == typeid(ulint_type_name_c))
-			{
-		
-				symbol_c * return_type_symbol = &search_constant_type_c::usint_type_name;
-				s4o.print("(");
-				return_type_symbol->accept(*this);
-				s4o.print(")");
-				IN_param_value->accept(*this);
-				return NULL;
-				
-			}
-			
-			ERROR;
-		}
-		
-	}/*function_ulint_to_usint*/
-	break;
-
-/****
- *ULINT_TO_ULINT
- */
-	case function_ulint_to_ulint :
-	{
-		symbol_c *last_type_symbol = NULL;
-
-		{
-			identifier_c param_name("IN");
-			/* Get the value from a foo(<param_name> = <param_value>) style call */
-			symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
-			
-			/* Get the value from a foo(<param_value>) style call */
-			if (IN_param_value == NULL)
-			  IN_param_value = function_call_param_iterator.next();
-			symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
-			last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
-			
-			if (typeid(*last_type_symbol) == typeid(ulint_type_name_c))
-			{
-		
-				symbol_c * return_type_symbol = &search_constant_type_c::ulint_type_name;
-				s4o.print("(");
-				return_type_symbol->accept(*this);
-				s4o.print(")");
-				IN_param_value->accept(*this);
-				return NULL;
-				
-			}
-			
-			ERROR;
-		}
-		
-	}/*function_ulint_to_ulint*/
-	break;
-
-/****
- *ULINT_TO_BOOL
- */
-	case function_ulint_to_bool :
-	{
-		symbol_c *last_type_symbol = NULL;
-
-		{
-			identifier_c param_name("IN");
-			/* Get the value from a foo(<param_name> = <param_value>) style call */
-			symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
-			
-			/* Get the value from a foo(<param_value>) style call */
-			if (IN_param_value == NULL)
-			  IN_param_value = function_call_param_iterator.next();
-			symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
-			last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
-			
-			if (typeid(*last_type_symbol) == typeid(ulint_type_name_c))
-			{
-		
-				symbol_c * return_type_symbol = &search_constant_type_c::bool_type_name;
-				s4o.print("(");
-				return_type_symbol->accept(*this);
-				s4o.print(")");
-				IN_param_value->accept(*this);
-				return NULL;
-				
-			}
-			
-			ERROR;
-		}
-		
-	}/*function_ulint_to_bool*/
-	break;
-
-/****
- *ULINT_TO_TIME
- */
-	case function_ulint_to_time :
-	{
-		symbol_c *last_type_symbol = NULL;
-
-		{
-			identifier_c param_name("IN");
-			/* Get the value from a foo(<param_name> = <param_value>) style call */
-			symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
-			
-			/* Get the value from a foo(<param_value>) style call */
-			if (IN_param_value == NULL)
-			  IN_param_value = function_call_param_iterator.next();
-			symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
-			last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
-			
-			if (typeid(*last_type_symbol) == typeid(ulint_type_name_c))
-			{
-		
-				symbol_c * return_type_symbol = &search_constant_type_c::time_type_name;
-				s4o.print("(");
-				return_type_symbol->accept(*this);
-				s4o.print(")time_to_real(");
-				IN_param_value->accept(*this);
-				s4o.print(")");
-				return NULL;
-				
-			}
-			
-			ERROR;
-		}
-		
-	}/*function_ulint_to_time*/
-	break;
-
-/****
- *ULINT_TO_INT
- */
-	case function_ulint_to_int :
-	{
-		symbol_c *last_type_symbol = NULL;
-
-		{
-			identifier_c param_name("IN");
-			/* Get the value from a foo(<param_name> = <param_value>) style call */
-			symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
-			
-			/* Get the value from a foo(<param_value>) style call */
-			if (IN_param_value == NULL)
-			  IN_param_value = function_call_param_iterator.next();
-			symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
-			last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
-			
-			if (typeid(*last_type_symbol) == typeid(ulint_type_name_c))
-			{
-		
-				symbol_c * return_type_symbol = &search_constant_type_c::int_type_name;
-				s4o.print("(");
-				return_type_symbol->accept(*this);
-				s4o.print(")");
-				IN_param_value->accept(*this);
-				return NULL;
-				
-			}
-			
-			ERROR;
-		}
-		
-	}/*function_ulint_to_int*/
-	break;
-
-/****
- *BOOL_TO_REAL
- */
-	case function_bool_to_real :
-	{
-		symbol_c *last_type_symbol = NULL;
-
-		{
-			identifier_c param_name("IN");
-			/* Get the value from a foo(<param_name> = <param_value>) style call */
-			symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
-			
-			/* Get the value from a foo(<param_value>) style call */
-			if (IN_param_value == NULL)
-			  IN_param_value = function_call_param_iterator.next();
-			symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
-			last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
-			
-			if (typeid(*last_type_symbol) == typeid(bool_type_name_c))
-			{
-		
-				symbol_c * return_type_symbol = &search_constant_type_c::real_type_name;
-				s4o.print("(");
-				return_type_symbol->accept(*this);
-				s4o.print(")");
-				IN_param_value->accept(*this);
-				return NULL;
-				
-			}
-			
-			ERROR;
-		}
-		
-	}/*function_bool_to_real*/
-	break;
-
-/****
- *BOOL_TO_SINT
- */
-	case function_bool_to_sint :
-	{
-		symbol_c *last_type_symbol = NULL;
-
-		{
-			identifier_c param_name("IN");
-			/* Get the value from a foo(<param_name> = <param_value>) style call */
-			symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
-			
-			/* Get the value from a foo(<param_value>) style call */
-			if (IN_param_value == NULL)
-			  IN_param_value = function_call_param_iterator.next();
-			symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
-			last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
-			
-			if (typeid(*last_type_symbol) == typeid(bool_type_name_c))
-			{
-		
-				symbol_c * return_type_symbol = &search_constant_type_c::sint_type_name;
-				s4o.print("(");
-				return_type_symbol->accept(*this);
-				s4o.print(")");
-				IN_param_value->accept(*this);
-				return NULL;
-				
-			}
-			
-			ERROR;
-		}
-		
-	}/*function_bool_to_sint*/
-	break;
-
-/****
- *BOOL_TO_LINT
- */
-	case function_bool_to_lint :
-	{
-		symbol_c *last_type_symbol = NULL;
-
-		{
-			identifier_c param_name("IN");
-			/* Get the value from a foo(<param_name> = <param_value>) style call */
-			symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
-			
-			/* Get the value from a foo(<param_value>) style call */
-			if (IN_param_value == NULL)
-			  IN_param_value = function_call_param_iterator.next();
-			symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
-			last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
-			
-			if (typeid(*last_type_symbol) == typeid(bool_type_name_c))
-			{
-		
-				symbol_c * return_type_symbol = &search_constant_type_c::lint_type_name;
-				s4o.print("(");
-				return_type_symbol->accept(*this);
-				s4o.print(")");
-				IN_param_value->accept(*this);
-				return NULL;
-				
-			}
-			
-			ERROR;
-		}
-		
-	}/*function_bool_to_lint*/
-	break;
-
-/****
- *BOOL_TO_DINT
- */
-	case function_bool_to_dint :
-	{
-		symbol_c *last_type_symbol = NULL;
-
-		{
-			identifier_c param_name("IN");
-			/* Get the value from a foo(<param_name> = <param_value>) style call */
-			symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
-			
-			/* Get the value from a foo(<param_value>) style call */
-			if (IN_param_value == NULL)
-			  IN_param_value = function_call_param_iterator.next();
-			symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
-			last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
-			
-			if (typeid(*last_type_symbol) == typeid(bool_type_name_c))
-			{
-		
-				symbol_c * return_type_symbol = &search_constant_type_c::dint_type_name;
-				s4o.print("(");
-				return_type_symbol->accept(*this);
-				s4o.print(")");
-				IN_param_value->accept(*this);
-				return NULL;
-				
-			}
-			
-			ERROR;
-		}
-		
-	}/*function_bool_to_dint*/
-	break;
-
-/****
- *BOOL_TO_DATE
- */
-	case function_bool_to_date :
-	{
-		symbol_c *last_type_symbol = NULL;
-
-		{
-			identifier_c param_name("IN");
-			/* Get the value from a foo(<param_name> = <param_value>) style call */
-			symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
-			
-			/* Get the value from a foo(<param_value>) style call */
-			if (IN_param_value == NULL)
-			  IN_param_value = function_call_param_iterator.next();
-			symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
-			last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
-			
-			if (typeid(*last_type_symbol) == typeid(bool_type_name_c))
-			{
-		
-				symbol_c * return_type_symbol = &search_constant_type_c::date_type_name;
-				s4o.print("(");
-				return_type_symbol->accept(*this);
-				s4o.print(")time_to_real(");
-				IN_param_value->accept(*this);
-				s4o.print(")");
-				return NULL;
-				
-			}
-			
-			ERROR;
-		}
-		
-	}/*function_bool_to_date*/
-	break;
-
-/****
- *BOOL_TO_DWORD
- */
-	case function_bool_to_dword :
-	{
-		symbol_c *last_type_symbol = NULL;
-
-		{
-			identifier_c param_name("IN");
-			/* Get the value from a foo(<param_name> = <param_value>) style call */
-			symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
-			
-			/* Get the value from a foo(<param_value>) style call */
-			if (IN_param_value == NULL)
-			  IN_param_value = function_call_param_iterator.next();
-			symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
-			last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
-			
-			if (typeid(*last_type_symbol) == typeid(bool_type_name_c))
-			{
-		
-				symbol_c * return_type_symbol = &search_constant_type_c::dword_type_name;
-				s4o.print("(");
-				return_type_symbol->accept(*this);
-				s4o.print(")");
-				IN_param_value->accept(*this);
-				return NULL;
-				
-			}
-			
-			ERROR;
-		}
-		
-	}/*function_bool_to_dword*/
-	break;
-
-/****
- *BOOL_TO_DT
- */
-	case function_bool_to_dt :
-	{
-		symbol_c *last_type_symbol = NULL;
-
-		{
-			identifier_c param_name("IN");
-			/* Get the value from a foo(<param_name> = <param_value>) style call */
-			symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
-			
-			/* Get the value from a foo(<param_value>) style call */
-			if (IN_param_value == NULL)
-			  IN_param_value = function_call_param_iterator.next();
-			symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
-			last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
-			
-			if (typeid(*last_type_symbol) == typeid(bool_type_name_c))
-			{
-		
-				symbol_c * return_type_symbol = &search_constant_type_c::dt_type_name;
-				s4o.print("(");
-				return_type_symbol->accept(*this);
-				s4o.print(")time_to_real(");
-				IN_param_value->accept(*this);
-				s4o.print(")");
-				return NULL;
-				
-			}
-			
-			ERROR;
-		}
-		
-	}/*function_bool_to_dt*/
-	break;
-
-/****
- *BOOL_TO_TOD
- */
-	case function_bool_to_tod :
-	{
-		symbol_c *last_type_symbol = NULL;
-
-		{
-			identifier_c param_name("IN");
-			/* Get the value from a foo(<param_name> = <param_value>) style call */
-			symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
-			
-			/* Get the value from a foo(<param_value>) style call */
-			if (IN_param_value == NULL)
-			  IN_param_value = function_call_param_iterator.next();
-			symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
-			last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
-			
-			if (typeid(*last_type_symbol) == typeid(bool_type_name_c))
-			{
-		
-				symbol_c * return_type_symbol = &search_constant_type_c::tod_type_name;
-				s4o.print("(");
-				return_type_symbol->accept(*this);
-				s4o.print(")time_to_real(");
-				IN_param_value->accept(*this);
-				s4o.print(")");
-				return NULL;
-				
-			}
-			
-			ERROR;
-		}
-		
-	}/*function_bool_to_tod*/
-	break;
-
-/****
- *BOOL_TO_UDINT
- */
-	case function_bool_to_udint :
-	{
-		symbol_c *last_type_symbol = NULL;
-
-		{
-			identifier_c param_name("IN");
-			/* Get the value from a foo(<param_name> = <param_value>) style call */
-			symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
-			
-			/* Get the value from a foo(<param_value>) style call */
-			if (IN_param_value == NULL)
-			  IN_param_value = function_call_param_iterator.next();
-			symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
-			last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
-			
-			if (typeid(*last_type_symbol) == typeid(bool_type_name_c))
-			{
-		
-				symbol_c * return_type_symbol = &search_constant_type_c::udint_type_name;
-				s4o.print("(");
-				return_type_symbol->accept(*this);
-				s4o.print(")");
-				IN_param_value->accept(*this);
-				return NULL;
-				
-			}
-			
-			ERROR;
-		}
-		
-	}/*function_bool_to_udint*/
-	break;
-
-/****
- *BOOL_TO_WORD
- */
-	case function_bool_to_word :
-	{
-		symbol_c *last_type_symbol = NULL;
-
-		{
-			identifier_c param_name("IN");
-			/* Get the value from a foo(<param_name> = <param_value>) style call */
-			symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
-			
-			/* Get the value from a foo(<param_value>) style call */
-			if (IN_param_value == NULL)
-			  IN_param_value = function_call_param_iterator.next();
-			symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
-			last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
-			
-			if (typeid(*last_type_symbol) == typeid(bool_type_name_c))
-			{
-		
-				symbol_c * return_type_symbol = &search_constant_type_c::word_type_name;
-				s4o.print("(");
-				return_type_symbol->accept(*this);
-				s4o.print(")");
-				IN_param_value->accept(*this);
-				return NULL;
-				
-			}
-			
-			ERROR;
-		}
-		
-	}/*function_bool_to_word*/
-	break;
-
-/****
- *BOOL_TO_WSTRING
- */
-	case function_bool_to_wstring :
-	{
-		symbol_c *last_type_symbol = NULL;
-
-		{
-			identifier_c param_name("IN");
-			/* Get the value from a foo(<param_name> = <param_value>) style call */
-			symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
-			
-			/* Get the value from a foo(<param_value>) style call */
-			if (IN_param_value == NULL)
-			  IN_param_value = function_call_param_iterator.next();
-			symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
-			last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
-			
-			if (typeid(*last_type_symbol) == typeid(bool_type_name_c))
-			{
-		
-				symbol_c * return_type_symbol = &search_constant_type_c::wstring_type_name;
-				s4o.print("(");
-				return_type_symbol->accept(*this);
-				s4o.print(")string_to_int(");
-				IN_param_value->accept(*this);
-				s4o.print(", 16)");
-				return NULL;
-				
-			}
-			
-			ERROR;
-		}
-		
-	}/*function_bool_to_wstring*/
-	break;
-
-/****
- *BOOL_TO_STRING
- */
-	case function_bool_to_string :
-	{
-		symbol_c *last_type_symbol = NULL;
-
-		{
-			identifier_c param_name("IN");
-			/* Get the value from a foo(<param_name> = <param_value>) style call */
-			symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
-			
-			/* Get the value from a foo(<param_value>) style call */
-			if (IN_param_value == NULL)
-			  IN_param_value = function_call_param_iterator.next();
-			symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
-			last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
-			
-			if (typeid(*last_type_symbol) == typeid(bool_type_name_c))
-			{
-		
-				symbol_c * return_type_symbol = &search_constant_type_c::string_type_name;
-				s4o.print("(");
-				return_type_symbol->accept(*this);
-				s4o.print(")string_to_int(");
-				IN_param_value->accept(*this);
-				s4o.print(", 16)");
-				return NULL;
-				
-			}
-			
-			ERROR;
-		}
-		
-	}/*function_bool_to_string*/
-	break;
-
-/****
- *BOOL_TO_LWORD
- */
-	case function_bool_to_lword :
-	{
-		symbol_c *last_type_symbol = NULL;
-
-		{
-			identifier_c param_name("IN");
-			/* Get the value from a foo(<param_name> = <param_value>) style call */
-			symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
-			
-			/* Get the value from a foo(<param_value>) style call */
-			if (IN_param_value == NULL)
-			  IN_param_value = function_call_param_iterator.next();
-			symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
-			last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
-			
-			if (typeid(*last_type_symbol) == typeid(bool_type_name_c))
-			{
-		
-				symbol_c * return_type_symbol = &search_constant_type_c::lword_type_name;
-				s4o.print("(");
-				return_type_symbol->accept(*this);
-				s4o.print(")");
-				IN_param_value->accept(*this);
-				return NULL;
-				
-			}
-			
-			ERROR;
-		}
-		
-	}/*function_bool_to_lword*/
-	break;
-
-/****
- *BOOL_TO_UINT
- */
-	case function_bool_to_uint :
-	{
-		symbol_c *last_type_symbol = NULL;
-
-		{
-			identifier_c param_name("IN");
-			/* Get the value from a foo(<param_name> = <param_value>) style call */
-			symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
-			
-			/* Get the value from a foo(<param_value>) style call */
-			if (IN_param_value == NULL)
-			  IN_param_value = function_call_param_iterator.next();
-			symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
-			last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
-			
-			if (typeid(*last_type_symbol) == typeid(bool_type_name_c))
-			{
-		
-				symbol_c * return_type_symbol = &search_constant_type_c::uint_type_name;
-				s4o.print("(");
-				return_type_symbol->accept(*this);
-				s4o.print(")");
-				IN_param_value->accept(*this);
-				return NULL;
-				
-			}
-			
-			ERROR;
-		}
-		
-	}/*function_bool_to_uint*/
-	break;
-
-/****
- *BOOL_TO_LREAL
- */
-	case function_bool_to_lreal :
-	{
-		symbol_c *last_type_symbol = NULL;
-
-		{
-			identifier_c param_name("IN");
-			/* Get the value from a foo(<param_name> = <param_value>) style call */
-			symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
-			
-			/* Get the value from a foo(<param_value>) style call */
-			if (IN_param_value == NULL)
-			  IN_param_value = function_call_param_iterator.next();
-			symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
-			last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
-			
-			if (typeid(*last_type_symbol) == typeid(bool_type_name_c))
-			{
-		
-				symbol_c * return_type_symbol = &search_constant_type_c::lreal_type_name;
-				s4o.print("(");
-				return_type_symbol->accept(*this);
-				s4o.print(")");
-				IN_param_value->accept(*this);
-				return NULL;
-				
-			}
-			
-			ERROR;
-		}
-		
-	}/*function_bool_to_lreal*/
-	break;
-
-/****
- *BOOL_TO_BYTE
- */
-	case function_bool_to_byte :
-	{
-		symbol_c *last_type_symbol = NULL;
-
-		{
-			identifier_c param_name("IN");
-			/* Get the value from a foo(<param_name> = <param_value>) style call */
-			symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
-			
-			/* Get the value from a foo(<param_value>) style call */
-			if (IN_param_value == NULL)
-			  IN_param_value = function_call_param_iterator.next();
-			symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
-			last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
-			
-			if (typeid(*last_type_symbol) == typeid(bool_type_name_c))
-			{
-		
-				symbol_c * return_type_symbol = &search_constant_type_c::byte_type_name;
-				s4o.print("(");
-				return_type_symbol->accept(*this);
-				s4o.print(")");
-				IN_param_value->accept(*this);
-				return NULL;
-				
-			}
-			
-			ERROR;
-		}
-		
-	}/*function_bool_to_byte*/
-	break;
-
-/****
- *BOOL_TO_USINT
- */
-	case function_bool_to_usint :
-	{
-		symbol_c *last_type_symbol = NULL;
-
-		{
-			identifier_c param_name("IN");
-			/* Get the value from a foo(<param_name> = <param_value>) style call */
-			symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
-			
-			/* Get the value from a foo(<param_value>) style call */
-			if (IN_param_value == NULL)
-			  IN_param_value = function_call_param_iterator.next();
-			symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
-			last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
-			
-			if (typeid(*last_type_symbol) == typeid(bool_type_name_c))
-			{
-		
-				symbol_c * return_type_symbol = &search_constant_type_c::usint_type_name;
-				s4o.print("(");
-				return_type_symbol->accept(*this);
-				s4o.print(")");
-				IN_param_value->accept(*this);
-				return NULL;
-				
-			}
-			
-			ERROR;
-		}
-		
-	}/*function_bool_to_usint*/
-	break;
-
-/****
- *BOOL_TO_ULINT
- */
-	case function_bool_to_ulint :
-	{
-		symbol_c *last_type_symbol = NULL;
-
-		{
-			identifier_c param_name("IN");
-			/* Get the value from a foo(<param_name> = <param_value>) style call */
-			symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
-			
-			/* Get the value from a foo(<param_value>) style call */
-			if (IN_param_value == NULL)
-			  IN_param_value = function_call_param_iterator.next();
-			symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
-			last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
-			
-			if (typeid(*last_type_symbol) == typeid(bool_type_name_c))
-			{
-		
-				symbol_c * return_type_symbol = &search_constant_type_c::ulint_type_name;
-				s4o.print("(");
-				return_type_symbol->accept(*this);
-				s4o.print(")");
-				IN_param_value->accept(*this);
-				return NULL;
-				
-			}
-			
-			ERROR;
-		}
-		
-	}/*function_bool_to_ulint*/
-	break;
-
-/****
- *BOOL_TO_BOOL
- */
-	case function_bool_to_bool :
-	{
-		symbol_c *last_type_symbol = NULL;
-
-		{
-			identifier_c param_name("IN");
-			/* Get the value from a foo(<param_name> = <param_value>) style call */
-			symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
-			
-			/* Get the value from a foo(<param_value>) style call */
-			if (IN_param_value == NULL)
-			  IN_param_value = function_call_param_iterator.next();
-			symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
-			last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
-			
-			if (typeid(*last_type_symbol) == typeid(bool_type_name_c))
-			{
-		
-				symbol_c * return_type_symbol = &search_constant_type_c::bool_type_name;
-				s4o.print("(");
-				return_type_symbol->accept(*this);
-				s4o.print(")");
-				IN_param_value->accept(*this);
-				return NULL;
-				
-			}
-			
-			ERROR;
-		}
-		
-	}/*function_bool_to_bool*/
-	break;
-
-/****
- *BOOL_TO_TIME
- */
-	case function_bool_to_time :
-	{
-		symbol_c *last_type_symbol = NULL;
-
-		{
-			identifier_c param_name("IN");
-			/* Get the value from a foo(<param_name> = <param_value>) style call */
-			symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
-			
-			/* Get the value from a foo(<param_value>) style call */
-			if (IN_param_value == NULL)
-			  IN_param_value = function_call_param_iterator.next();
-			symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
-			last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
-			
-			if (typeid(*last_type_symbol) == typeid(bool_type_name_c))
-			{
-		
-				symbol_c * return_type_symbol = &search_constant_type_c::time_type_name;
-				s4o.print("(");
-				return_type_symbol->accept(*this);
-				s4o.print(")time_to_real(");
-				IN_param_value->accept(*this);
-				s4o.print(")");
-				return NULL;
-				
-			}
-			
-			ERROR;
-		}
-		
-	}/*function_bool_to_time*/
-	break;
-
-/****
- *BOOL_TO_INT
- */
-	case function_bool_to_int :
-	{
-		symbol_c *last_type_symbol = NULL;
-
-		{
-			identifier_c param_name("IN");
-			/* Get the value from a foo(<param_name> = <param_value>) style call */
-			symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
-			
-			/* Get the value from a foo(<param_value>) style call */
-			if (IN_param_value == NULL)
-			  IN_param_value = function_call_param_iterator.next();
-			symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
-			last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
-			
-			if (typeid(*last_type_symbol) == typeid(bool_type_name_c))
-			{
-		
-				symbol_c * return_type_symbol = &search_constant_type_c::int_type_name;
-				s4o.print("(");
-				return_type_symbol->accept(*this);
-				s4o.print(")");
-				IN_param_value->accept(*this);
-				return NULL;
-				
-			}
-			
-			ERROR;
-		}
-		
-	}/*function_bool_to_int*/
-	break;
-
-/****
- *TIME_TO_REAL
- */
-	case function_time_to_real :
-	{
-		symbol_c *last_type_symbol = NULL;
-
-		{
-			identifier_c param_name("IN");
-			/* Get the value from a foo(<param_name> = <param_value>) style call */
-			symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
-			
-			/* Get the value from a foo(<param_value>) style call */
-			if (IN_param_value == NULL)
-			  IN_param_value = function_call_param_iterator.next();
-			symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
-			last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
-			
-			if (typeid(*last_type_symbol) == typeid(time_type_name_c))
-			{
-		
-				symbol_c * return_type_symbol = &search_constant_type_c::real_type_name;
-				s4o.print("(");
-				return_type_symbol->accept(*this);
-				s4o.print(")real_to_time(");
-				IN_param_value->accept(*this);
-				s4o.print(")");
-				return NULL;
-				
-			}
-			
-			ERROR;
-		}
-		
-	}/*function_time_to_real*/
-	break;
-
-/****
- *TIME_TO_SINT
- */
-	case function_time_to_sint :
-	{
-		symbol_c *last_type_symbol = NULL;
-
-		{
-			identifier_c param_name("IN");
-			/* Get the value from a foo(<param_name> = <param_value>) style call */
-			symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
-			
-			/* Get the value from a foo(<param_value>) style call */
-			if (IN_param_value == NULL)
-			  IN_param_value = function_call_param_iterator.next();
-			symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
-			last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
-			
-			if (typeid(*last_type_symbol) == typeid(time_type_name_c))
-			{
-		
-				symbol_c * return_type_symbol = &search_constant_type_c::sint_type_name;
-				s4o.print("(");
-				return_type_symbol->accept(*this);
-				s4o.print(")real_to_time(");
-				IN_param_value->accept(*this);
-				s4o.print(")");
-				return NULL;
-				
-			}
-			
-			ERROR;
-		}
-		
-	}/*function_time_to_sint*/
-	break;
-
-/****
- *TIME_TO_LINT
- */
-	case function_time_to_lint :
-	{
-		symbol_c *last_type_symbol = NULL;
-
-		{
-			identifier_c param_name("IN");
-			/* Get the value from a foo(<param_name> = <param_value>) style call */
-			symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
-			
-			/* Get the value from a foo(<param_value>) style call */
-			if (IN_param_value == NULL)
-			  IN_param_value = function_call_param_iterator.next();
-			symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
-			last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
-			
-			if (typeid(*last_type_symbol) == typeid(time_type_name_c))
-			{
-		
-				symbol_c * return_type_symbol = &search_constant_type_c::lint_type_name;
-				s4o.print("(");
-				return_type_symbol->accept(*this);
-				s4o.print(")real_to_time(");
-				IN_param_value->accept(*this);
-				s4o.print(")");
-				return NULL;
-				
-			}
-			
-			ERROR;
-		}
-		
-	}/*function_time_to_lint*/
-	break;
-
-/****
- *TIME_TO_DINT
- */
-	case function_time_to_dint :
-	{
-		symbol_c *last_type_symbol = NULL;
-
-		{
-			identifier_c param_name("IN");
-			/* Get the value from a foo(<param_name> = <param_value>) style call */
-			symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
-			
-			/* Get the value from a foo(<param_value>) style call */
-			if (IN_param_value == NULL)
-			  IN_param_value = function_call_param_iterator.next();
-			symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
-			last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
-			
-			if (typeid(*last_type_symbol) == typeid(time_type_name_c))
-			{
-		
-				symbol_c * return_type_symbol = &search_constant_type_c::dint_type_name;
-				s4o.print("(");
-				return_type_symbol->accept(*this);
-				s4o.print(")real_to_time(");
-				IN_param_value->accept(*this);
-				s4o.print(")");
-				return NULL;
-				
-			}
-			
-			ERROR;
-		}
-		
-	}/*function_time_to_dint*/
-	break;
-
-/****
- *TIME_TO_DATE
- */
-	case function_time_to_date :
-	{
-		symbol_c *last_type_symbol = NULL;
-
-		{
-			identifier_c param_name("IN");
-			/* Get the value from a foo(<param_name> = <param_value>) style call */
-			symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
-			
-			/* Get the value from a foo(<param_value>) style call */
-			if (IN_param_value == NULL)
-			  IN_param_value = function_call_param_iterator.next();
-			symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
-			last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
-			
-			if (typeid(*last_type_symbol) == typeid(time_type_name_c))
-			{
-		
-				symbol_c * return_type_symbol = &search_constant_type_c::date_type_name;
-				s4o.print("#error TIME_TO_DATE not implemented!");
-				return NULL;
-				
-			}
-			
-			ERROR;
-		}
-		
-	}/*function_time_to_date*/
-	break;
-
-/****
- *TIME_TO_DWORD
- */
-	case function_time_to_dword :
-	{
-		symbol_c *last_type_symbol = NULL;
-
-		{
-			identifier_c param_name("IN");
-			/* Get the value from a foo(<param_name> = <param_value>) style call */
-			symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
-			
-			/* Get the value from a foo(<param_value>) style call */
-			if (IN_param_value == NULL)
-			  IN_param_value = function_call_param_iterator.next();
-			symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
-			last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
-			
-			if (typeid(*last_type_symbol) == typeid(time_type_name_c))
-			{
-		
-				symbol_c * return_type_symbol = &search_constant_type_c::dword_type_name;
-				s4o.print("(");
-				return_type_symbol->accept(*this);
-				s4o.print(")real_to_time(");
-				IN_param_value->accept(*this);
-				s4o.print(")");
-				return NULL;
-				
-			}
-			
-			ERROR;
-		}
-		
-	}/*function_time_to_dword*/
-	break;
-
-/****
- *TIME_TO_DT
- */
-	case function_time_to_dt :
-	{
-		symbol_c *last_type_symbol = NULL;
-
-		{
-			identifier_c param_name("IN");
-			/* Get the value from a foo(<param_name> = <param_value>) style call */
-			symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
-			
-			/* Get the value from a foo(<param_value>) style call */
-			if (IN_param_value == NULL)
-			  IN_param_value = function_call_param_iterator.next();
-			symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
-			last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
-			
-			if (typeid(*last_type_symbol) == typeid(time_type_name_c))
-			{
-		
-				symbol_c * return_type_symbol = &search_constant_type_c::dt_type_name;
-				s4o.print("#error TIME_TO_DT not implemented!");
-				return NULL;
-				
-			}
-			
-			ERROR;
-		}
-		
-	}/*function_time_to_dt*/
-	break;
-
-/****
- *TIME_TO_TOD
- */
-	case function_time_to_tod :
-	{
-		symbol_c *last_type_symbol = NULL;
-
-		{
-			identifier_c param_name("IN");
-			/* Get the value from a foo(<param_name> = <param_value>) style call */
-			symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
-			
-			/* Get the value from a foo(<param_value>) style call */
-			if (IN_param_value == NULL)
-			  IN_param_value = function_call_param_iterator.next();
-			symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
-			last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
-			
-			if (typeid(*last_type_symbol) == typeid(time_type_name_c))
-			{
-		
-				symbol_c * return_type_symbol = &search_constant_type_c::tod_type_name;
-				s4o.print("#error TIME_TO_TOD not implemented!");
-				return NULL;
-				
-			}
-			
-			ERROR;
-		}
-		
-	}/*function_time_to_tod*/
-	break;
-
-/****
- *TIME_TO_UDINT
- */
-	case function_time_to_udint :
-	{
-		symbol_c *last_type_symbol = NULL;
-
-		{
-			identifier_c param_name("IN");
-			/* Get the value from a foo(<param_name> = <param_value>) style call */
-			symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
-			
-			/* Get the value from a foo(<param_value>) style call */
-			if (IN_param_value == NULL)
-			  IN_param_value = function_call_param_iterator.next();
-			symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
-			last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
-			
-			if (typeid(*last_type_symbol) == typeid(time_type_name_c))
-			{
-		
-				symbol_c * return_type_symbol = &search_constant_type_c::udint_type_name;
-				s4o.print("(");
-				return_type_symbol->accept(*this);
-				s4o.print(")real_to_time(");
-				IN_param_value->accept(*this);
-				s4o.print(")");
-				return NULL;
-				
-			}
-			
-			ERROR;
-		}
-		
-	}/*function_time_to_udint*/
-	break;
-
-/****
- *TIME_TO_WORD
- */
-	case function_time_to_word :
-	{
-		symbol_c *last_type_symbol = NULL;
-
-		{
-			identifier_c param_name("IN");
-			/* Get the value from a foo(<param_name> = <param_value>) style call */
-			symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
-			
-			/* Get the value from a foo(<param_value>) style call */
-			if (IN_param_value == NULL)
-			  IN_param_value = function_call_param_iterator.next();
-			symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
-			last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
-			
-			if (typeid(*last_type_symbol) == typeid(time_type_name_c))
-			{
-		
-				symbol_c * return_type_symbol = &search_constant_type_c::word_type_name;
-				s4o.print("(");
-				return_type_symbol->accept(*this);
-				s4o.print(")real_to_time(");
-				IN_param_value->accept(*this);
-				s4o.print(")");
-				return NULL;
-				
-			}
-			
-			ERROR;
-		}
-		
-	}/*function_time_to_word*/
-	break;
-
-/****
- *TIME_TO_WSTRING
- */
-	case function_time_to_wstring :
-	{
-		symbol_c *last_type_symbol = NULL;
-
-		{
-			identifier_c param_name("IN");
-			/* Get the value from a foo(<param_name> = <param_value>) style call */
-			symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
-			
-			/* Get the value from a foo(<param_value>) style call */
-			if (IN_param_value == NULL)
-			  IN_param_value = function_call_param_iterator.next();
-			symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
-			last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
-			
-			if (typeid(*last_type_symbol) == typeid(time_type_name_c))
-			{
-		
-				symbol_c * return_type_symbol = &search_constant_type_c::wstring_type_name;
-				s4o.print("(");
-				return_type_symbol->accept(*this);
-				s4o.print(")string_to_time(");
-				IN_param_value->accept(*this);
-				s4o.print(")");
-				return NULL;
-				
-			}
-			
-			ERROR;
-		}
-		
-	}/*function_time_to_wstring*/
-	break;
-
-/****
- *TIME_TO_STRING
- */
-	case function_time_to_string :
-	{
-		symbol_c *last_type_symbol = NULL;
-
-		{
-			identifier_c param_name("IN");
-			/* Get the value from a foo(<param_name> = <param_value>) style call */
-			symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
-			
-			/* Get the value from a foo(<param_value>) style call */
-			if (IN_param_value == NULL)
-			  IN_param_value = function_call_param_iterator.next();
-			symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
-			last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
-			
-			if (typeid(*last_type_symbol) == typeid(time_type_name_c))
-			{
-		
-				symbol_c * return_type_symbol = &search_constant_type_c::string_type_name;
-				s4o.print("(");
-				return_type_symbol->accept(*this);
-				s4o.print(")string_to_time(");
-				IN_param_value->accept(*this);
-				s4o.print(")");
-				return NULL;
-				
-			}
-			
-			ERROR;
-		}
-		
-	}/*function_time_to_string*/
-	break;
-
-/****
- *TIME_TO_LWORD
- */
-	case function_time_to_lword :
-	{
-		symbol_c *last_type_symbol = NULL;
-
-		{
-			identifier_c param_name("IN");
-			/* Get the value from a foo(<param_name> = <param_value>) style call */
-			symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
-			
-			/* Get the value from a foo(<param_value>) style call */
-			if (IN_param_value == NULL)
-			  IN_param_value = function_call_param_iterator.next();
-			symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
-			last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
-			
-			if (typeid(*last_type_symbol) == typeid(time_type_name_c))
-			{
-		
-				symbol_c * return_type_symbol = &search_constant_type_c::lword_type_name;
-				s4o.print("(");
-				return_type_symbol->accept(*this);
-				s4o.print(")real_to_time(");
-				IN_param_value->accept(*this);
-				s4o.print(")");
-				return NULL;
-				
-			}
-			
-			ERROR;
-		}
-		
-	}/*function_time_to_lword*/
-	break;
-
-/****
- *TIME_TO_UINT
- */
-	case function_time_to_uint :
-	{
-		symbol_c *last_type_symbol = NULL;
-
-		{
-			identifier_c param_name("IN");
-			/* Get the value from a foo(<param_name> = <param_value>) style call */
-			symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
-			
-			/* Get the value from a foo(<param_value>) style call */
-			if (IN_param_value == NULL)
-			  IN_param_value = function_call_param_iterator.next();
-			symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
-			last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
-			
-			if (typeid(*last_type_symbol) == typeid(time_type_name_c))
-			{
-		
-				symbol_c * return_type_symbol = &search_constant_type_c::uint_type_name;
-				s4o.print("(");
-				return_type_symbol->accept(*this);
-				s4o.print(")real_to_time(");
-				IN_param_value->accept(*this);
-				s4o.print(")");
-				return NULL;
-				
-			}
-			
-			ERROR;
-		}
-		
-	}/*function_time_to_uint*/
-	break;
-
-/****
- *TIME_TO_LREAL
- */
-	case function_time_to_lreal :
-	{
-		symbol_c *last_type_symbol = NULL;
-
-		{
-			identifier_c param_name("IN");
-			/* Get the value from a foo(<param_name> = <param_value>) style call */
-			symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
-			
-			/* Get the value from a foo(<param_value>) style call */
-			if (IN_param_value == NULL)
-			  IN_param_value = function_call_param_iterator.next();
-			symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
-			last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
-			
-			if (typeid(*last_type_symbol) == typeid(time_type_name_c))
-			{
-		
-				symbol_c * return_type_symbol = &search_constant_type_c::lreal_type_name;
-				s4o.print("(");
-				return_type_symbol->accept(*this);
-				s4o.print(")real_to_time(");
-				IN_param_value->accept(*this);
-				s4o.print(")");
-				return NULL;
-				
-			}
-			
-			ERROR;
-		}
-		
-	}/*function_time_to_lreal*/
-	break;
-
-/****
- *TIME_TO_BYTE
- */
-	case function_time_to_byte :
-	{
-		symbol_c *last_type_symbol = NULL;
-
-		{
-			identifier_c param_name("IN");
-			/* Get the value from a foo(<param_name> = <param_value>) style call */
-			symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
-			
-			/* Get the value from a foo(<param_value>) style call */
-			if (IN_param_value == NULL)
-			  IN_param_value = function_call_param_iterator.next();
-			symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
-			last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
-			
-			if (typeid(*last_type_symbol) == typeid(time_type_name_c))
-			{
-		
-				symbol_c * return_type_symbol = &search_constant_type_c::byte_type_name;
-				s4o.print("(");
-				return_type_symbol->accept(*this);
-				s4o.print(")real_to_time(");
-				IN_param_value->accept(*this);
-				s4o.print(")");
-				return NULL;
-				
-			}
-			
-			ERROR;
-		}
-		
-	}/*function_time_to_byte*/
-	break;
-
-/****
- *TIME_TO_USINT
- */
-	case function_time_to_usint :
-	{
-		symbol_c *last_type_symbol = NULL;
-
-		{
-			identifier_c param_name("IN");
-			/* Get the value from a foo(<param_name> = <param_value>) style call */
-			symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
-			
-			/* Get the value from a foo(<param_value>) style call */
-			if (IN_param_value == NULL)
-			  IN_param_value = function_call_param_iterator.next();
-			symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
-			last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
-			
-			if (typeid(*last_type_symbol) == typeid(time_type_name_c))
-			{
-		
-				symbol_c * return_type_symbol = &search_constant_type_c::usint_type_name;
-				s4o.print("(");
-				return_type_symbol->accept(*this);
-				s4o.print(")real_to_time(");
-				IN_param_value->accept(*this);
-				s4o.print(")");
-				return NULL;
-				
-			}
-			
-			ERROR;
-		}
-		
-	}/*function_time_to_usint*/
-	break;
-
-/****
- *TIME_TO_ULINT
- */
-	case function_time_to_ulint :
-	{
-		symbol_c *last_type_symbol = NULL;
-
-		{
-			identifier_c param_name("IN");
-			/* Get the value from a foo(<param_name> = <param_value>) style call */
-			symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
-			
-			/* Get the value from a foo(<param_value>) style call */
-			if (IN_param_value == NULL)
-			  IN_param_value = function_call_param_iterator.next();
-			symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
-			last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
-			
-			if (typeid(*last_type_symbol) == typeid(time_type_name_c))
-			{
-		
-				symbol_c * return_type_symbol = &search_constant_type_c::ulint_type_name;
-				s4o.print("(");
-				return_type_symbol->accept(*this);
-				s4o.print(")real_to_time(");
-				IN_param_value->accept(*this);
-				s4o.print(")");
-				return NULL;
-				
-			}
-			
-			ERROR;
-		}
-		
-	}/*function_time_to_ulint*/
-	break;
-
-/****
- *TIME_TO_BOOL
- */
-	case function_time_to_bool :
-	{
-		symbol_c *last_type_symbol = NULL;
-
-		{
-			identifier_c param_name("IN");
-			/* Get the value from a foo(<param_name> = <param_value>) style call */
-			symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
-			
-			/* Get the value from a foo(<param_value>) style call */
-			if (IN_param_value == NULL)
-			  IN_param_value = function_call_param_iterator.next();
-			symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
-			last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
-			
-			if (typeid(*last_type_symbol) == typeid(time_type_name_c))
-			{
-		
-				symbol_c * return_type_symbol = &search_constant_type_c::bool_type_name;
-				s4o.print("(");
-				return_type_symbol->accept(*this);
-				s4o.print(")real_to_time(");
-				IN_param_value->accept(*this);
-				s4o.print(")");
-				return NULL;
-				
-			}
-			
-			ERROR;
-		}
-		
-	}/*function_time_to_bool*/
-	break;
-
-/****
- *TIME_TO_TIME
- */
-	case function_time_to_time :
-	{
-		symbol_c *last_type_symbol = NULL;
-
-		{
-			identifier_c param_name("IN");
-			/* Get the value from a foo(<param_name> = <param_value>) style call */
-			symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
-			
-			/* Get the value from a foo(<param_value>) style call */
-			if (IN_param_value == NULL)
-			  IN_param_value = function_call_param_iterator.next();
-			symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
-			last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
-			
-			if (typeid(*last_type_symbol) == typeid(time_type_name_c))
-			{
-		
-				symbol_c * return_type_symbol = &search_constant_type_c::time_type_name;
-				s4o.print("#error TIME_TO_TIME not implemented!");
-				return NULL;
-				
-			}
-			
-			ERROR;
-		}
-		
-	}/*function_time_to_time*/
-	break;
-
-/****
- *TIME_TO_INT
- */
-	case function_time_to_int :
-	{
-		symbol_c *last_type_symbol = NULL;
-
-		{
-			identifier_c param_name("IN");
-			/* Get the value from a foo(<param_name> = <param_value>) style call */
-			symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
-			
-			/* Get the value from a foo(<param_value>) style call */
-			if (IN_param_value == NULL)
-			  IN_param_value = function_call_param_iterator.next();
-			symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
-			last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
-			
-			if (typeid(*last_type_symbol) == typeid(time_type_name_c))
-			{
-		
-				symbol_c * return_type_symbol = &search_constant_type_c::int_type_name;
-				s4o.print("(");
-				return_type_symbol->accept(*this);
-				s4o.print(")real_to_time(");
-				IN_param_value->accept(*this);
-				s4o.print(")");
-				return NULL;
-				
-			}
-			
-			ERROR;
-		}
-		
-	}/*function_time_to_int*/
-	break;
-
-/****
- *INT_TO_REAL
- */
-	case function_int_to_real :
-	{
-		symbol_c *last_type_symbol = NULL;
-
-		{
-			identifier_c param_name("IN");
-			/* Get the value from a foo(<param_name> = <param_value>) style call */
-			symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
-			
-			/* Get the value from a foo(<param_value>) style call */
-			if (IN_param_value == NULL)
-			  IN_param_value = function_call_param_iterator.next();
-			symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
-			last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
-			
-			if (typeid(*last_type_symbol) == typeid(int_type_name_c))
-			{
-		
-				symbol_c * return_type_symbol = &search_constant_type_c::real_type_name;
-				s4o.print("(");
-				return_type_symbol->accept(*this);
-				s4o.print(")");
-				IN_param_value->accept(*this);
-				return NULL;
-				
-			}
-			
-			ERROR;
-		}
-		
-	}/*function_int_to_real*/
-	break;
-
-/****
- *INT_TO_SINT
- */
-	case function_int_to_sint :
-	{
-		symbol_c *last_type_symbol = NULL;
-
-		{
-			identifier_c param_name("IN");
-			/* Get the value from a foo(<param_name> = <param_value>) style call */
-			symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
-			
-			/* Get the value from a foo(<param_value>) style call */
-			if (IN_param_value == NULL)
-			  IN_param_value = function_call_param_iterator.next();
-			symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
-			last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
-			
-			if (typeid(*last_type_symbol) == typeid(int_type_name_c))
-			{
-		
-				symbol_c * return_type_symbol = &search_constant_type_c::sint_type_name;
-				s4o.print("(");
-				return_type_symbol->accept(*this);
-				s4o.print(")");
-				IN_param_value->accept(*this);
-				return NULL;
-				
-			}
-			
-			ERROR;
-		}
-		
-	}/*function_int_to_sint*/
-	break;
-
-/****
- *INT_TO_LINT
- */
-	case function_int_to_lint :
-	{
-		symbol_c *last_type_symbol = NULL;
-
-		{
-			identifier_c param_name("IN");
-			/* Get the value from a foo(<param_name> = <param_value>) style call */
-			symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
-			
-			/* Get the value from a foo(<param_value>) style call */
-			if (IN_param_value == NULL)
-			  IN_param_value = function_call_param_iterator.next();
-			symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
-			last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
-			
-			if (typeid(*last_type_symbol) == typeid(int_type_name_c))
-			{
-		
-				symbol_c * return_type_symbol = &search_constant_type_c::lint_type_name;
-				s4o.print("(");
-				return_type_symbol->accept(*this);
-				s4o.print(")");
-				IN_param_value->accept(*this);
-				return NULL;
-				
-			}
-			
-			ERROR;
-		}
-		
-	}/*function_int_to_lint*/
-	break;
-
-/****
- *INT_TO_DINT
- */
-	case function_int_to_dint :
-	{
-		symbol_c *last_type_symbol = NULL;
-
-		{
-			identifier_c param_name("IN");
-			/* Get the value from a foo(<param_name> = <param_value>) style call */
-			symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
-			
-			/* Get the value from a foo(<param_value>) style call */
-			if (IN_param_value == NULL)
-			  IN_param_value = function_call_param_iterator.next();
-			symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
-			last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
-			
-			if (typeid(*last_type_symbol) == typeid(int_type_name_c))
-			{
-		
-				symbol_c * return_type_symbol = &search_constant_type_c::dint_type_name;
-				s4o.print("(");
-				return_type_symbol->accept(*this);
-				s4o.print(")");
-				IN_param_value->accept(*this);
-				return NULL;
-				
-			}
-			
-			ERROR;
-		}
-		
-	}/*function_int_to_dint*/
-	break;
-
-/****
- *INT_TO_DATE
- */
-	case function_int_to_date :
-	{
-		symbol_c *last_type_symbol = NULL;
-
-		{
-			identifier_c param_name("IN");
-			/* Get the value from a foo(<param_name> = <param_value>) style call */
-			symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
-			
-			/* Get the value from a foo(<param_value>) style call */
-			if (IN_param_value == NULL)
-			  IN_param_value = function_call_param_iterator.next();
-			symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
-			last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
-			
-			if (typeid(*last_type_symbol) == typeid(int_type_name_c))
-			{
-		
-				symbol_c * return_type_symbol = &search_constant_type_c::date_type_name;
-				s4o.print("(");
-				return_type_symbol->accept(*this);
-				s4o.print(")time_to_real(");
-				IN_param_value->accept(*this);
-				s4o.print(")");
-				return NULL;
-				
-			}
-			
-			ERROR;
-		}
-		
-	}/*function_int_to_date*/
-	break;
-
-/****
- *INT_TO_DWORD
- */
-	case function_int_to_dword :
-	{
-		symbol_c *last_type_symbol = NULL;
-
-		{
-			identifier_c param_name("IN");
-			/* Get the value from a foo(<param_name> = <param_value>) style call */
-			symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
-			
-			/* Get the value from a foo(<param_value>) style call */
-			if (IN_param_value == NULL)
-			  IN_param_value = function_call_param_iterator.next();
-			symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
-			last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
-			
-			if (typeid(*last_type_symbol) == typeid(int_type_name_c))
-			{
-		
-				symbol_c * return_type_symbol = &search_constant_type_c::dword_type_name;
-				s4o.print("(");
-				return_type_symbol->accept(*this);
-				s4o.print(")");
-				IN_param_value->accept(*this);
-				return NULL;
-				
-			}
-			
-			ERROR;
-		}
-		
-	}/*function_int_to_dword*/
-	break;
-
-/****
- *INT_TO_DT
- */
-	case function_int_to_dt :
-	{
-		symbol_c *last_type_symbol = NULL;
-
-		{
-			identifier_c param_name("IN");
-			/* Get the value from a foo(<param_name> = <param_value>) style call */
-			symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
-			
-			/* Get the value from a foo(<param_value>) style call */
-			if (IN_param_value == NULL)
-			  IN_param_value = function_call_param_iterator.next();
-			symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
-			last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
-			
-			if (typeid(*last_type_symbol) == typeid(int_type_name_c))
-			{
-		
-				symbol_c * return_type_symbol = &search_constant_type_c::dt_type_name;
-				s4o.print("(");
-				return_type_symbol->accept(*this);
-				s4o.print(")time_to_real(");
-				IN_param_value->accept(*this);
-				s4o.print(")");
-				return NULL;
-				
-			}
-			
-			ERROR;
-		}
-		
-	}/*function_int_to_dt*/
-	break;
-
-/****
- *INT_TO_TOD
- */
-	case function_int_to_tod :
-	{
-		symbol_c *last_type_symbol = NULL;
-
-		{
-			identifier_c param_name("IN");
-			/* Get the value from a foo(<param_name> = <param_value>) style call */
-			symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
-			
-			/* Get the value from a foo(<param_value>) style call */
-			if (IN_param_value == NULL)
-			  IN_param_value = function_call_param_iterator.next();
-			symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
-			last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
-			
-			if (typeid(*last_type_symbol) == typeid(int_type_name_c))
-			{
-		
-				symbol_c * return_type_symbol = &search_constant_type_c::tod_type_name;
-				s4o.print("(");
-				return_type_symbol->accept(*this);
-				s4o.print(")time_to_real(");
-				IN_param_value->accept(*this);
-				s4o.print(")");
-				return NULL;
-				
-			}
-			
-			ERROR;
-		}
-		
-	}/*function_int_to_tod*/
-	break;
-
-/****
- *INT_TO_UDINT
- */
-	case function_int_to_udint :
-	{
-		symbol_c *last_type_symbol = NULL;
-
-		{
-			identifier_c param_name("IN");
-			/* Get the value from a foo(<param_name> = <param_value>) style call */
-			symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
-			
-			/* Get the value from a foo(<param_value>) style call */
-			if (IN_param_value == NULL)
-			  IN_param_value = function_call_param_iterator.next();
-			symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
-			last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
-			
-			if (typeid(*last_type_symbol) == typeid(int_type_name_c))
-			{
-		
-				symbol_c * return_type_symbol = &search_constant_type_c::udint_type_name;
-				s4o.print("(");
-				return_type_symbol->accept(*this);
-				s4o.print(")");
-				IN_param_value->accept(*this);
-				return NULL;
-				
-			}
-			
-			ERROR;
-		}
-		
-	}/*function_int_to_udint*/
-	break;
-
-/****
- *INT_TO_WORD
- */
-	case function_int_to_word :
-	{
-		symbol_c *last_type_symbol = NULL;
-
-		{
-			identifier_c param_name("IN");
-			/* Get the value from a foo(<param_name> = <param_value>) style call */
-			symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
-			
-			/* Get the value from a foo(<param_value>) style call */
-			if (IN_param_value == NULL)
-			  IN_param_value = function_call_param_iterator.next();
-			symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
-			last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
-			
-			if (typeid(*last_type_symbol) == typeid(int_type_name_c))
-			{
-		
-				symbol_c * return_type_symbol = &search_constant_type_c::word_type_name;
-				s4o.print("(");
-				return_type_symbol->accept(*this);
-				s4o.print(")");
-				IN_param_value->accept(*this);
-				return NULL;
-				
-			}
-			
-			ERROR;
-		}
-		
-	}/*function_int_to_word*/
-	break;
-
-/****
- *INT_TO_WSTRING
- */
-	case function_int_to_wstring :
-	{
-		symbol_c *last_type_symbol = NULL;
-
-		{
-			identifier_c param_name("IN");
-			/* Get the value from a foo(<param_name> = <param_value>) style call */
-			symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
-			
-			/* Get the value from a foo(<param_value>) style call */
-			if (IN_param_value == NULL)
-			  IN_param_value = function_call_param_iterator.next();
-			symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
-			last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
-			
-			if (typeid(*last_type_symbol) == typeid(int_type_name_c))
-			{
-		
-				symbol_c * return_type_symbol = &search_constant_type_c::wstring_type_name;
-				s4o.print("(");
-				return_type_symbol->accept(*this);
-				s4o.print(")string_to_int(");
-				IN_param_value->accept(*this);
-				s4o.print(", 10)");
-				return NULL;
-				
-			}
-			
-			ERROR;
-		}
-		
-	}/*function_int_to_wstring*/
-	break;
-
-/****
- *INT_TO_STRING
- */
-	case function_int_to_string :
-	{
-		symbol_c *last_type_symbol = NULL;
-
-		{
-			identifier_c param_name("IN");
-			/* Get the value from a foo(<param_name> = <param_value>) style call */
-			symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
-			
-			/* Get the value from a foo(<param_value>) style call */
-			if (IN_param_value == NULL)
-			  IN_param_value = function_call_param_iterator.next();
-			symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
-			last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
-			
-			if (typeid(*last_type_symbol) == typeid(int_type_name_c))
-			{
-		
-				symbol_c * return_type_symbol = &search_constant_type_c::string_type_name;
-				s4o.print("(");
-				return_type_symbol->accept(*this);
-				s4o.print(")string_to_int(");
-				IN_param_value->accept(*this);
-				s4o.print(", 10)");
-				return NULL;
-				
-			}
-			
-			ERROR;
-		}
-		
-	}/*function_int_to_string*/
-	break;
-
-/****
- *INT_TO_LWORD
- */
-	case function_int_to_lword :
-	{
-		symbol_c *last_type_symbol = NULL;
-
-		{
-			identifier_c param_name("IN");
-			/* Get the value from a foo(<param_name> = <param_value>) style call */
-			symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
-			
-			/* Get the value from a foo(<param_value>) style call */
-			if (IN_param_value == NULL)
-			  IN_param_value = function_call_param_iterator.next();
-			symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
-			last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
-			
-			if (typeid(*last_type_symbol) == typeid(int_type_name_c))
-			{
-		
-				symbol_c * return_type_symbol = &search_constant_type_c::lword_type_name;
-				s4o.print("(");
-				return_type_symbol->accept(*this);
-				s4o.print(")");
-				IN_param_value->accept(*this);
-				return NULL;
-				
-			}
-			
-			ERROR;
-		}
-		
-	}/*function_int_to_lword*/
-	break;
-
-/****
- *INT_TO_UINT
- */
-	case function_int_to_uint :
-	{
-		symbol_c *last_type_symbol = NULL;
-
-		{
-			identifier_c param_name("IN");
-			/* Get the value from a foo(<param_name> = <param_value>) style call */
-			symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
-			
-			/* Get the value from a foo(<param_value>) style call */
-			if (IN_param_value == NULL)
-			  IN_param_value = function_call_param_iterator.next();
-			symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
-			last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
-			
-			if (typeid(*last_type_symbol) == typeid(int_type_name_c))
-			{
-		
-				symbol_c * return_type_symbol = &search_constant_type_c::uint_type_name;
-				s4o.print("(");
-				return_type_symbol->accept(*this);
-				s4o.print(")");
-				IN_param_value->accept(*this);
-				return NULL;
-				
-			}
-			
-			ERROR;
-		}
-		
-	}/*function_int_to_uint*/
-	break;
-
-/****
- *INT_TO_LREAL
- */
-	case function_int_to_lreal :
-	{
-		symbol_c *last_type_symbol = NULL;
-
-		{
-			identifier_c param_name("IN");
-			/* Get the value from a foo(<param_name> = <param_value>) style call */
-			symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
-			
-			/* Get the value from a foo(<param_value>) style call */
-			if (IN_param_value == NULL)
-			  IN_param_value = function_call_param_iterator.next();
-			symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
-			last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
-			
-			if (typeid(*last_type_symbol) == typeid(int_type_name_c))
-			{
-		
-				symbol_c * return_type_symbol = &search_constant_type_c::lreal_type_name;
-				s4o.print("(");
-				return_type_symbol->accept(*this);
-				s4o.print(")");
-				IN_param_value->accept(*this);
-				return NULL;
-				
-			}
-			
-			ERROR;
-		}
-		
-	}/*function_int_to_lreal*/
-	break;
-
-/****
- *INT_TO_BYTE
- */
-	case function_int_to_byte :
-	{
-		symbol_c *last_type_symbol = NULL;
-
-		{
-			identifier_c param_name("IN");
-			/* Get the value from a foo(<param_name> = <param_value>) style call */
-			symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
-			
-			/* Get the value from a foo(<param_value>) style call */
-			if (IN_param_value == NULL)
-			  IN_param_value = function_call_param_iterator.next();
-			symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
-			last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
-			
-			if (typeid(*last_type_symbol) == typeid(int_type_name_c))
-			{
-		
-				symbol_c * return_type_symbol = &search_constant_type_c::byte_type_name;
-				s4o.print("(");
-				return_type_symbol->accept(*this);
-				s4o.print(")");
-				IN_param_value->accept(*this);
-				return NULL;
-				
-			}
-			
-			ERROR;
-		}
-		
-	}/*function_int_to_byte*/
-	break;
-
-/****
- *INT_TO_USINT
- */
-	case function_int_to_usint :
-	{
-		symbol_c *last_type_symbol = NULL;
-
-		{
-			identifier_c param_name("IN");
-			/* Get the value from a foo(<param_name> = <param_value>) style call */
-			symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
-			
-			/* Get the value from a foo(<param_value>) style call */
-			if (IN_param_value == NULL)
-			  IN_param_value = function_call_param_iterator.next();
-			symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
-			last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
-			
-			if (typeid(*last_type_symbol) == typeid(int_type_name_c))
-			{
-		
-				symbol_c * return_type_symbol = &search_constant_type_c::usint_type_name;
-				s4o.print("(");
-				return_type_symbol->accept(*this);
-				s4o.print(")");
-				IN_param_value->accept(*this);
-				return NULL;
-				
-			}
-			
-			ERROR;
-		}
-		
-	}/*function_int_to_usint*/
-	break;
-
-/****
- *INT_TO_ULINT
- */
-	case function_int_to_ulint :
-	{
-		symbol_c *last_type_symbol = NULL;
-
-		{
-			identifier_c param_name("IN");
-			/* Get the value from a foo(<param_name> = <param_value>) style call */
-			symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
-			
-			/* Get the value from a foo(<param_value>) style call */
-			if (IN_param_value == NULL)
-			  IN_param_value = function_call_param_iterator.next();
-			symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
-			last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
-			
-			if (typeid(*last_type_symbol) == typeid(int_type_name_c))
-			{
-		
-				symbol_c * return_type_symbol = &search_constant_type_c::ulint_type_name;
-				s4o.print("(");
-				return_type_symbol->accept(*this);
-				s4o.print(")");
-				IN_param_value->accept(*this);
-				return NULL;
-				
-			}
-			
-			ERROR;
-		}
-		
-	}/*function_int_to_ulint*/
-	break;
-
-/****
- *INT_TO_BOOL
- */
-	case function_int_to_bool :
-	{
-		symbol_c *last_type_symbol = NULL;
-
-		{
-			identifier_c param_name("IN");
-			/* Get the value from a foo(<param_name> = <param_value>) style call */
-			symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
-			
-			/* Get the value from a foo(<param_value>) style call */
-			if (IN_param_value == NULL)
-			  IN_param_value = function_call_param_iterator.next();
-			symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
-			last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
-			
-			if (typeid(*last_type_symbol) == typeid(int_type_name_c))
-			{
-		
-				symbol_c * return_type_symbol = &search_constant_type_c::bool_type_name;
-				s4o.print("(");
-				return_type_symbol->accept(*this);
-				s4o.print(")");
-				IN_param_value->accept(*this);
-				return NULL;
-				
-			}
-			
-			ERROR;
-		}
-		
-	}/*function_int_to_bool*/
-	break;
-
-/****
- *INT_TO_TIME
- */
-	case function_int_to_time :
-	{
-		symbol_c *last_type_symbol = NULL;
-
-		{
-			identifier_c param_name("IN");
-			/* Get the value from a foo(<param_name> = <param_value>) style call */
-			symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
-			
-			/* Get the value from a foo(<param_value>) style call */
-			if (IN_param_value == NULL)
-			  IN_param_value = function_call_param_iterator.next();
-			symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
-			last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
-			
-			if (typeid(*last_type_symbol) == typeid(int_type_name_c))
-			{
-		
-				symbol_c * return_type_symbol = &search_constant_type_c::time_type_name;
-				s4o.print("(");
-				return_type_symbol->accept(*this);
-				s4o.print(")time_to_real(");
-				IN_param_value->accept(*this);
-				s4o.print(")");
-				return NULL;
-				
-			}
-			
-			ERROR;
-		}
-		
-	}/*function_int_to_time*/
-	break;
-
-/****
- *INT_TO_INT
- */
-	case function_int_to_int :
-	{
-		symbol_c *last_type_symbol = NULL;
-
-		{
-			identifier_c param_name("IN");
-			/* Get the value from a foo(<param_name> = <param_value>) style call */
-			symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
-			
-			/* Get the value from a foo(<param_value>) style call */
-			if (IN_param_value == NULL)
-			  IN_param_value = function_call_param_iterator.next();
-			symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
-			last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
-			
-			if (typeid(*last_type_symbol) == typeid(int_type_name_c))
-			{
-		
-				symbol_c * return_type_symbol = &search_constant_type_c::int_type_name;
-				s4o.print("(");
-				return_type_symbol->accept(*this);
-				s4o.print(")");
-				IN_param_value->accept(*this);
-				return NULL;
-				
-			}
-			
-			ERROR;
-		}
-		
-	}/*function_int_to_int*/
-	break;
+    case function_dt_to_wstring :
+    {
+        symbol_c *last_type_symbol = NULL;
+
+        {
+            identifier_c param_name("IN");
+            /* Get the value from a foo(<param_name> = <param_value>) style call */
+            symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
+            
+            /* Get the value from a foo(<param_value>) style call */
+            if (IN_param_value == NULL)
+              IN_param_value = function_call_param_iterator.next();
+            symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
+            last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
+            
+            if (typeid(*last_type_symbol) == typeid(dt_type_name_c))
+            {
+        
+                symbol_c * return_type_symbol = &search_constant_type_c::wstring_type_name;
+                s4o.print("(");
+                return_type_symbol->accept(*this);
+                s4o.print(")time_to_string(");
+                IN_param_value->accept(*this);
+                s4o.print(")");
+                return NULL;
+                
+            }
+            
+            ERROR;
+        }
+        
+    }/*function_dt_to_wstring*/
+    break;
 
 /****
  *TRUNC
  */
-	case function_trunc :
-	{
-		symbol_c *last_type_symbol = NULL;
-
-		{
-			identifier_c param_name("IN");
-			/* Get the value from a foo(<param_name> = <param_value>) style call */
-			symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
-			
-			/* Get the value from a foo(<param_value>) style call */
-			if (IN_param_value == NULL)
-			  IN_param_value = function_call_param_iterator.next();
-			symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
-			last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
-			
-			if(search_expression_type->is_real_type(IN_type_symbol))
-			{
-		
-				symbol_c * return_type_symbol = &search_constant_type_c::constant_int_type_name;
-				s4o.print("(int)");
-				IN_param_value->accept(*this);
-				return NULL;
-				
-			}
-			
-			ERROR;
-		}
-		
-	}/*function_trunc*/
-	break;
+    case function_trunc :
+    {
+        symbol_c *last_type_symbol = NULL;
+
+        {
+            identifier_c param_name("IN");
+            /* Get the value from a foo(<param_name> = <param_value>) style call */
+            symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
+            
+            /* Get the value from a foo(<param_value>) style call */
+            if (IN_param_value == NULL)
+              IN_param_value = function_call_param_iterator.next();
+            symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
+            last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
+            
+            if(search_expression_type->is_real_type(IN_type_symbol))
+            {
+        
+                symbol_c * return_type_symbol = &search_constant_type_c::constant_int_type_name;
+                s4o.print("(int)");
+                IN_param_value->accept(*this);
+                return NULL;
+                
+            }
+            
+            ERROR;
+        }
+        
+    }/*function_trunc*/
+    break;
 
 /****
  *BCD_TO_SINT
  */
-	case function_bcd_to_sint :
-	{
-		symbol_c *last_type_symbol = NULL;
-
-		{
-			identifier_c param_name("IN");
-			/* Get the value from a foo(<param_name> = <param_value>) style call */
-			symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
-			
-			/* Get the value from a foo(<param_value>) style call */
-			if (IN_param_value == NULL)
-			  IN_param_value = function_call_param_iterator.next();
-			symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
-			last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
-			
-			if(search_expression_type->is_binary_type(IN_type_symbol))
-			{
-		
-				symbol_c * return_type_symbol = &search_constant_type_c::sint_type_name;
-				s4o.print("__bcd_to_something(sizeof(");
-				IN_type_symbol->accept(*this);
-				s4o.print("),&");
-				IN_param_value->accept(*this);
-				s4o.print(")");
-				return NULL;
-				
-			}
-			
-			ERROR;
-		}
-		
-	}/*function_bcd_to_sint*/
-	break;
+    case function_bcd_to_sint :
+    {
+        symbol_c *last_type_symbol = NULL;
+
+        {
+            identifier_c param_name("IN");
+            /* Get the value from a foo(<param_name> = <param_value>) style call */
+            symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
+            
+            /* Get the value from a foo(<param_value>) style call */
+            if (IN_param_value == NULL)
+              IN_param_value = function_call_param_iterator.next();
+            symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
+            last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
+            
+            if(search_expression_type->is_binary_type(IN_type_symbol))
+            {
+        
+                symbol_c * return_type_symbol = &search_constant_type_c::sint_type_name;
+                s4o.print("__bcd_to_something(sizeof(");
+                IN_type_symbol->accept(*this);
+                s4o.print("),&");
+                IN_param_value->accept(*this);
+                s4o.print(")");
+                return NULL;
+                
+            }
+            
+            ERROR;
+        }
+        
+    }/*function_bcd_to_sint*/
+    break;
+
+/****
+ *BCD_TO_INT
+ */
+    case function_bcd_to_int :
+    {
+        symbol_c *last_type_symbol = NULL;
+
+        {
+            identifier_c param_name("IN");
+            /* Get the value from a foo(<param_name> = <param_value>) style call */
+            symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
+            
+            /* Get the value from a foo(<param_value>) style call */
+            if (IN_param_value == NULL)
+              IN_param_value = function_call_param_iterator.next();
+            symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
+            last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
+            
+            if(search_expression_type->is_binary_type(IN_type_symbol))
+            {
+        
+                symbol_c * return_type_symbol = &search_constant_type_c::int_type_name;
+                s4o.print("__bcd_to_something(sizeof(");
+                IN_type_symbol->accept(*this);
+                s4o.print("),&");
+                IN_param_value->accept(*this);
+                s4o.print(")");
+                return NULL;
+                
+            }
+            
+            ERROR;
+        }
+        
+    }/*function_bcd_to_int*/
+    break;
+
+/****
+ *BCD_TO_DINT
+ */
+    case function_bcd_to_dint :
+    {
+        symbol_c *last_type_symbol = NULL;
+
+        {
+            identifier_c param_name("IN");
+            /* Get the value from a foo(<param_name> = <param_value>) style call */
+            symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
+            
+            /* Get the value from a foo(<param_value>) style call */
+            if (IN_param_value == NULL)
+              IN_param_value = function_call_param_iterator.next();
+            symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
+            last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
+            
+            if(search_expression_type->is_binary_type(IN_type_symbol))
+            {
+        
+                symbol_c * return_type_symbol = &search_constant_type_c::dint_type_name;
+                s4o.print("__bcd_to_something(sizeof(");
+                IN_type_symbol->accept(*this);
+                s4o.print("),&");
+                IN_param_value->accept(*this);
+                s4o.print(")");
+                return NULL;
+                
+            }
+            
+            ERROR;
+        }
+        
+    }/*function_bcd_to_dint*/
+    break;
 
 /****
  *BCD_TO_LINT
  */
-	case function_bcd_to_lint :
-	{
-		symbol_c *last_type_symbol = NULL;
-
-		{
-			identifier_c param_name("IN");
-			/* Get the value from a foo(<param_name> = <param_value>) style call */
-			symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
-			
-			/* Get the value from a foo(<param_value>) style call */
-			if (IN_param_value == NULL)
-			  IN_param_value = function_call_param_iterator.next();
-			symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
-			last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
-			
-			if(search_expression_type->is_binary_type(IN_type_symbol))
-			{
-		
-				symbol_c * return_type_symbol = &search_constant_type_c::lint_type_name;
-				s4o.print("__bcd_to_something(sizeof(");
-				IN_type_symbol->accept(*this);
-				s4o.print("),&");
-				IN_param_value->accept(*this);
-				s4o.print(")");
-				return NULL;
-				
-			}
-			
-			ERROR;
-		}
-		
-	}/*function_bcd_to_lint*/
-	break;
-
-/****
- *BCD_TO_DINT
- */
-	case function_bcd_to_dint :
-	{
-		symbol_c *last_type_symbol = NULL;
-
-		{
-			identifier_c param_name("IN");
-			/* Get the value from a foo(<param_name> = <param_value>) style call */
-			symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
-			
-			/* Get the value from a foo(<param_value>) style call */
-			if (IN_param_value == NULL)
-			  IN_param_value = function_call_param_iterator.next();
-			symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
-			last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
-			
-			if(search_expression_type->is_binary_type(IN_type_symbol))
-			{
-		
-				symbol_c * return_type_symbol = &search_constant_type_c::dint_type_name;
-				s4o.print("__bcd_to_something(sizeof(");
-				IN_type_symbol->accept(*this);
-				s4o.print("),&");
-				IN_param_value->accept(*this);
-				s4o.print(")");
-				return NULL;
-				
-			}
-			
-			ERROR;
-		}
-		
-	}/*function_bcd_to_dint*/
-	break;
+    case function_bcd_to_lint :
+    {
+        symbol_c *last_type_symbol = NULL;
+
+        {
+            identifier_c param_name("IN");
+            /* Get the value from a foo(<param_name> = <param_value>) style call */
+            symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
+            
+            /* Get the value from a foo(<param_value>) style call */
+            if (IN_param_value == NULL)
+              IN_param_value = function_call_param_iterator.next();
+            symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
+            last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
+            
+            if(search_expression_type->is_binary_type(IN_type_symbol))
+            {
+        
+                symbol_c * return_type_symbol = &search_constant_type_c::lint_type_name;
+                s4o.print("__bcd_to_something(sizeof(");
+                IN_type_symbol->accept(*this);
+                s4o.print("),&");
+                IN_param_value->accept(*this);
+                s4o.print(")");
+                return NULL;
+                
+            }
+            
+            ERROR;
+        }
+        
+    }/*function_bcd_to_lint*/
+    break;
+
+/****
+ *BCD_TO_USINT
+ */
+    case function_bcd_to_usint :
+    {
+        symbol_c *last_type_symbol = NULL;
+
+        {
+            identifier_c param_name("IN");
+            /* Get the value from a foo(<param_name> = <param_value>) style call */
+            symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
+            
+            /* Get the value from a foo(<param_value>) style call */
+            if (IN_param_value == NULL)
+              IN_param_value = function_call_param_iterator.next();
+            symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
+            last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
+            
+            if(search_expression_type->is_binary_type(IN_type_symbol))
+            {
+        
+                symbol_c * return_type_symbol = &search_constant_type_c::usint_type_name;
+                s4o.print("__bcd_to_something(sizeof(");
+                IN_type_symbol->accept(*this);
+                s4o.print("),&");
+                IN_param_value->accept(*this);
+                s4o.print(")");
+                return NULL;
+                
+            }
+            
+            ERROR;
+        }
+        
+    }/*function_bcd_to_usint*/
+    break;
+
+/****
+ *BCD_TO_UINT
+ */
+    case function_bcd_to_uint :
+    {
+        symbol_c *last_type_symbol = NULL;
+
+        {
+            identifier_c param_name("IN");
+            /* Get the value from a foo(<param_name> = <param_value>) style call */
+            symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
+            
+            /* Get the value from a foo(<param_value>) style call */
+            if (IN_param_value == NULL)
+              IN_param_value = function_call_param_iterator.next();
+            symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
+            last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
+            
+            if(search_expression_type->is_binary_type(IN_type_symbol))
+            {
+        
+                symbol_c * return_type_symbol = &search_constant_type_c::uint_type_name;
+                s4o.print("__bcd_to_something(sizeof(");
+                IN_type_symbol->accept(*this);
+                s4o.print("),&");
+                IN_param_value->accept(*this);
+                s4o.print(")");
+                return NULL;
+                
+            }
+            
+            ERROR;
+        }
+        
+    }/*function_bcd_to_uint*/
+    break;
 
 /****
  *BCD_TO_UDINT
  */
-	case function_bcd_to_udint :
-	{
-		symbol_c *last_type_symbol = NULL;
-
-		{
-			identifier_c param_name("IN");
-			/* Get the value from a foo(<param_name> = <param_value>) style call */
-			symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
-			
-			/* Get the value from a foo(<param_value>) style call */
-			if (IN_param_value == NULL)
-			  IN_param_value = function_call_param_iterator.next();
-			symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
-			last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
-			
-			if(search_expression_type->is_binary_type(IN_type_symbol))
-			{
-		
-				symbol_c * return_type_symbol = &search_constant_type_c::udint_type_name;
-				s4o.print("__bcd_to_something(sizeof(");
-				IN_type_symbol->accept(*this);
-				s4o.print("),&");
-				IN_param_value->accept(*this);
-				s4o.print(")");
-				return NULL;
-				
-			}
-			
-			ERROR;
-		}
-		
-	}/*function_bcd_to_udint*/
-	break;
-
-/****
- *BCD_TO_UINT
- */
-	case function_bcd_to_uint :
-	{
-		symbol_c *last_type_symbol = NULL;
-
-		{
-			identifier_c param_name("IN");
-			/* Get the value from a foo(<param_name> = <param_value>) style call */
-			symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
-			
-			/* Get the value from a foo(<param_value>) style call */
-			if (IN_param_value == NULL)
-			  IN_param_value = function_call_param_iterator.next();
-			symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
-			last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
-			
-			if(search_expression_type->is_binary_type(IN_type_symbol))
-			{
-		
-				symbol_c * return_type_symbol = &search_constant_type_c::uint_type_name;
-				s4o.print("__bcd_to_something(sizeof(");
-				IN_type_symbol->accept(*this);
-				s4o.print("),&");
-				IN_param_value->accept(*this);
-				s4o.print(")");
-				return NULL;
-				
-			}
-			
-			ERROR;
-		}
-		
-	}/*function_bcd_to_uint*/
-	break;
-
-/****
- *BCD_TO_USINT
- */
-	case function_bcd_to_usint :
-	{
-		symbol_c *last_type_symbol = NULL;
-
-		{
-			identifier_c param_name("IN");
-			/* Get the value from a foo(<param_name> = <param_value>) style call */
-			symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
-			
-			/* Get the value from a foo(<param_value>) style call */
-			if (IN_param_value == NULL)
-			  IN_param_value = function_call_param_iterator.next();
-			symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
-			last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
-			
-			if(search_expression_type->is_binary_type(IN_type_symbol))
-			{
-		
-				symbol_c * return_type_symbol = &search_constant_type_c::usint_type_name;
-				s4o.print("__bcd_to_something(sizeof(");
-				IN_type_symbol->accept(*this);
-				s4o.print("),&");
-				IN_param_value->accept(*this);
-				s4o.print(")");
-				return NULL;
-				
-			}
-			
-			ERROR;
-		}
-		
-	}/*function_bcd_to_usint*/
-	break;
+    case function_bcd_to_udint :
+    {
+        symbol_c *last_type_symbol = NULL;
+
+        {
+            identifier_c param_name("IN");
+            /* Get the value from a foo(<param_name> = <param_value>) style call */
+            symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
+            
+            /* Get the value from a foo(<param_value>) style call */
+            if (IN_param_value == NULL)
+              IN_param_value = function_call_param_iterator.next();
+            symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
+            last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
+            
+            if(search_expression_type->is_binary_type(IN_type_symbol))
+            {
+        
+                symbol_c * return_type_symbol = &search_constant_type_c::udint_type_name;
+                s4o.print("__bcd_to_something(sizeof(");
+                IN_type_symbol->accept(*this);
+                s4o.print("),&");
+                IN_param_value->accept(*this);
+                s4o.print(")");
+                return NULL;
+                
+            }
+            
+            ERROR;
+        }
+        
+    }/*function_bcd_to_udint*/
+    break;
 
 /****
  *BCD_TO_ULINT
  */
-	case function_bcd_to_ulint :
-	{
-		symbol_c *last_type_symbol = NULL;
-
-		{
-			identifier_c param_name("IN");
-			/* Get the value from a foo(<param_name> = <param_value>) style call */
-			symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
-			
-			/* Get the value from a foo(<param_value>) style call */
-			if (IN_param_value == NULL)
-			  IN_param_value = function_call_param_iterator.next();
-			symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
-			last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
-			
-			if(search_expression_type->is_binary_type(IN_type_symbol))
-			{
-		
-				symbol_c * return_type_symbol = &search_constant_type_c::ulint_type_name;
-				s4o.print("__bcd_to_something(sizeof(");
-				IN_type_symbol->accept(*this);
-				s4o.print("),&");
-				IN_param_value->accept(*this);
-				s4o.print(")");
-				return NULL;
-				
-			}
-			
-			ERROR;
-		}
-		
-	}/*function_bcd_to_ulint*/
-	break;
-
-/****
- *BCD_TO_INT
- */
-	case function_bcd_to_int :
-	{
-		symbol_c *last_type_symbol = NULL;
-
-		{
-			identifier_c param_name("IN");
-			/* Get the value from a foo(<param_name> = <param_value>) style call */
-			symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
-			
-			/* Get the value from a foo(<param_value>) style call */
-			if (IN_param_value == NULL)
-			  IN_param_value = function_call_param_iterator.next();
-			symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
-			last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
-			
-			if(search_expression_type->is_binary_type(IN_type_symbol))
-			{
-		
-				symbol_c * return_type_symbol = &search_constant_type_c::int_type_name;
-				s4o.print("__bcd_to_something(sizeof(");
-				IN_type_symbol->accept(*this);
-				s4o.print("),&");
-				IN_param_value->accept(*this);
-				s4o.print(")");
-				return NULL;
-				
-			}
-			
-			ERROR;
-		}
-		
-	}/*function_bcd_to_int*/
-	break;
+    case function_bcd_to_ulint :
+    {
+        symbol_c *last_type_symbol = NULL;
+
+        {
+            identifier_c param_name("IN");
+            /* Get the value from a foo(<param_name> = <param_value>) style call */
+            symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
+            
+            /* Get the value from a foo(<param_value>) style call */
+            if (IN_param_value == NULL)
+              IN_param_value = function_call_param_iterator.next();
+            symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
+            last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
+            
+            if(search_expression_type->is_binary_type(IN_type_symbol))
+            {
+        
+                symbol_c * return_type_symbol = &search_constant_type_c::ulint_type_name;
+                s4o.print("__bcd_to_something(sizeof(");
+                IN_type_symbol->accept(*this);
+                s4o.print("),&");
+                IN_param_value->accept(*this);
+                s4o.print(")");
+                return NULL;
+                
+            }
+            
+            ERROR;
+        }
+        
+    }/*function_bcd_to_ulint*/
+    break;
 
 /****
  *SINT_TO_BCD
  */
-	case function_sint_to_bcd :
-	{
-		symbol_c *last_type_symbol = NULL;
-
-		{
-			identifier_c param_name("IN");
-			/* Get the value from a foo(<param_name> = <param_value>) style call */
-			symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
-			
-			/* Get the value from a foo(<param_value>) style call */
-			if (IN_param_value == NULL)
-			  IN_param_value = function_call_param_iterator.next();
-			symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
-			last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
-			
-			if (typeid(*last_type_symbol) == typeid(sint_type_name_c))
-			{
-		
-				symbol_c * return_type_symbol = &search_constant_type_c::constant_int_type_name;
-				s4o.print("__something_to_bcd(sizeof(");
-				IN_type_symbol->accept(*this);
-				s4o.print("),&");
-				IN_param_value->accept(*this);
-				s4o.print(")");
-				return NULL;
-				
-			}
-			
-			ERROR;
-		}
-		
-	}/*function_sint_to_bcd*/
-	break;
+    case function_sint_to_bcd :
+    {
+        symbol_c *last_type_symbol = NULL;
+
+        {
+            identifier_c param_name("IN");
+            /* Get the value from a foo(<param_name> = <param_value>) style call */
+            symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
+            
+            /* Get the value from a foo(<param_value>) style call */
+            if (IN_param_value == NULL)
+              IN_param_value = function_call_param_iterator.next();
+            symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
+            last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
+            
+            if (typeid(*last_type_symbol) == typeid(sint_type_name_c))
+            {
+        
+                symbol_c * return_type_symbol = &search_constant_type_c::constant_int_type_name;
+                s4o.print("__something_to_bcd(sizeof(");
+                IN_type_symbol->accept(*this);
+                s4o.print("),&");
+                IN_param_value->accept(*this);
+                s4o.print(")");
+                return NULL;
+                
+            }
+            
+            ERROR;
+        }
+        
+    }/*function_sint_to_bcd*/
+    break;
+
+/****
+ *INT_TO_BCD
+ */
+    case function_int_to_bcd :
+    {
+        symbol_c *last_type_symbol = NULL;
+
+        {
+            identifier_c param_name("IN");
+            /* Get the value from a foo(<param_name> = <param_value>) style call */
+            symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
+            
+            /* Get the value from a foo(<param_value>) style call */
+            if (IN_param_value == NULL)
+              IN_param_value = function_call_param_iterator.next();
+            symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
+            last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
+            
+            if (typeid(*last_type_symbol) == typeid(int_type_name_c))
+            {
+        
+                symbol_c * return_type_symbol = &search_constant_type_c::constant_int_type_name;
+                s4o.print("__something_to_bcd(sizeof(");
+                IN_type_symbol->accept(*this);
+                s4o.print("),&");
+                IN_param_value->accept(*this);
+                s4o.print(")");
+                return NULL;
+                
+            }
+            
+            ERROR;
+        }
+        
+    }/*function_int_to_bcd*/
+    break;
+
+/****
+ *DINT_TO_BCD
+ */
+    case function_dint_to_bcd :
+    {
+        symbol_c *last_type_symbol = NULL;
+
+        {
+            identifier_c param_name("IN");
+            /* Get the value from a foo(<param_name> = <param_value>) style call */
+            symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
+            
+            /* Get the value from a foo(<param_value>) style call */
+            if (IN_param_value == NULL)
+              IN_param_value = function_call_param_iterator.next();
+            symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
+            last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
+            
+            if (typeid(*last_type_symbol) == typeid(dint_type_name_c))
+            {
+        
+                symbol_c * return_type_symbol = &search_constant_type_c::constant_int_type_name;
+                s4o.print("__something_to_bcd(sizeof(");
+                IN_type_symbol->accept(*this);
+                s4o.print("),&");
+                IN_param_value->accept(*this);
+                s4o.print(")");
+                return NULL;
+                
+            }
+            
+            ERROR;
+        }
+        
+    }/*function_dint_to_bcd*/
+    break;
 
 /****
  *LINT_TO_BCD
  */
-	case function_lint_to_bcd :
-	{
-		symbol_c *last_type_symbol = NULL;
-
-		{
-			identifier_c param_name("IN");
-			/* Get the value from a foo(<param_name> = <param_value>) style call */
-			symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
-			
-			/* Get the value from a foo(<param_value>) style call */
-			if (IN_param_value == NULL)
-			  IN_param_value = function_call_param_iterator.next();
-			symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
-			last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
-			
-			if (typeid(*last_type_symbol) == typeid(lint_type_name_c))
-			{
-		
-				symbol_c * return_type_symbol = &search_constant_type_c::constant_int_type_name;
-				s4o.print("__something_to_bcd(sizeof(");
-				IN_type_symbol->accept(*this);
-				s4o.print("),&");
-				IN_param_value->accept(*this);
-				s4o.print(")");
-				return NULL;
-				
-			}
-			
-			ERROR;
-		}
-		
-	}/*function_lint_to_bcd*/
-	break;
-
-/****
- *DINT_TO_BCD
- */
-	case function_dint_to_bcd :
-	{
-		symbol_c *last_type_symbol = NULL;
-
-		{
-			identifier_c param_name("IN");
-			/* Get the value from a foo(<param_name> = <param_value>) style call */
-			symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
-			
-			/* Get the value from a foo(<param_value>) style call */
-			if (IN_param_value == NULL)
-			  IN_param_value = function_call_param_iterator.next();
-			symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
-			last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
-			
-			if (typeid(*last_type_symbol) == typeid(dint_type_name_c))
-			{
-		
-				symbol_c * return_type_symbol = &search_constant_type_c::constant_int_type_name;
-				s4o.print("__something_to_bcd(sizeof(");
-				IN_type_symbol->accept(*this);
-				s4o.print("),&");
-				IN_param_value->accept(*this);
-				s4o.print(")");
-				return NULL;
-				
-			}
-			
-			ERROR;
-		}
-		
-	}/*function_dint_to_bcd*/
-	break;
+    case function_lint_to_bcd :
+    {
+        symbol_c *last_type_symbol = NULL;
+
+        {
+            identifier_c param_name("IN");
+            /* Get the value from a foo(<param_name> = <param_value>) style call */
+            symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
+            
+            /* Get the value from a foo(<param_value>) style call */
+            if (IN_param_value == NULL)
+              IN_param_value = function_call_param_iterator.next();
+            symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
+            last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
+            
+            if (typeid(*last_type_symbol) == typeid(lint_type_name_c))
+            {
+        
+                symbol_c * return_type_symbol = &search_constant_type_c::constant_int_type_name;
+                s4o.print("__something_to_bcd(sizeof(");
+                IN_type_symbol->accept(*this);
+                s4o.print("),&");
+                IN_param_value->accept(*this);
+                s4o.print(")");
+                return NULL;
+                
+            }
+            
+            ERROR;
+        }
+        
+    }/*function_lint_to_bcd*/
+    break;
+
+/****
+ *USINT_TO_BCD
+ */
+    case function_usint_to_bcd :
+    {
+        symbol_c *last_type_symbol = NULL;
+
+        {
+            identifier_c param_name("IN");
+            /* Get the value from a foo(<param_name> = <param_value>) style call */
+            symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
+            
+            /* Get the value from a foo(<param_value>) style call */
+            if (IN_param_value == NULL)
+              IN_param_value = function_call_param_iterator.next();
+            symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
+            last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
+            
+            if (typeid(*last_type_symbol) == typeid(usint_type_name_c))
+            {
+        
+                symbol_c * return_type_symbol = &search_constant_type_c::constant_int_type_name;
+                s4o.print("__something_to_bcd(sizeof(");
+                IN_type_symbol->accept(*this);
+                s4o.print("),&");
+                IN_param_value->accept(*this);
+                s4o.print(")");
+                return NULL;
+                
+            }
+            
+            ERROR;
+        }
+        
+    }/*function_usint_to_bcd*/
+    break;
+
+/****
+ *UINT_TO_BCD
+ */
+    case function_uint_to_bcd :
+    {
+        symbol_c *last_type_symbol = NULL;
+
+        {
+            identifier_c param_name("IN");
+            /* Get the value from a foo(<param_name> = <param_value>) style call */
+            symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
+            
+            /* Get the value from a foo(<param_value>) style call */
+            if (IN_param_value == NULL)
+              IN_param_value = function_call_param_iterator.next();
+            symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
+            last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
+            
+            if (typeid(*last_type_symbol) == typeid(uint_type_name_c))
+            {
+        
+                symbol_c * return_type_symbol = &search_constant_type_c::constant_int_type_name;
+                s4o.print("__something_to_bcd(sizeof(");
+                IN_type_symbol->accept(*this);
+                s4o.print("),&");
+                IN_param_value->accept(*this);
+                s4o.print(")");
+                return NULL;
+                
+            }
+            
+            ERROR;
+        }
+        
+    }/*function_uint_to_bcd*/
+    break;
 
 /****
  *UDINT_TO_BCD
  */
-	case function_udint_to_bcd :
-	{
-		symbol_c *last_type_symbol = NULL;
-
-		{
-			identifier_c param_name("IN");
-			/* Get the value from a foo(<param_name> = <param_value>) style call */
-			symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
-			
-			/* Get the value from a foo(<param_value>) style call */
-			if (IN_param_value == NULL)
-			  IN_param_value = function_call_param_iterator.next();
-			symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
-			last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
-			
-			if (typeid(*last_type_symbol) == typeid(udint_type_name_c))
-			{
-		
-				symbol_c * return_type_symbol = &search_constant_type_c::constant_int_type_name;
-				s4o.print("__something_to_bcd(sizeof(");
-				IN_type_symbol->accept(*this);
-				s4o.print("),&");
-				IN_param_value->accept(*this);
-				s4o.print(")");
-				return NULL;
-				
-			}
-			
-			ERROR;
-		}
-		
-	}/*function_udint_to_bcd*/
-	break;
-
-/****
- *UINT_TO_BCD
- */
-	case function_uint_to_bcd :
-	{
-		symbol_c *last_type_symbol = NULL;
-
-		{
-			identifier_c param_name("IN");
-			/* Get the value from a foo(<param_name> = <param_value>) style call */
-			symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
-			
-			/* Get the value from a foo(<param_value>) style call */
-			if (IN_param_value == NULL)
-			  IN_param_value = function_call_param_iterator.next();
-			symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
-			last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
-			
-			if (typeid(*last_type_symbol) == typeid(uint_type_name_c))
-			{
-		
-				symbol_c * return_type_symbol = &search_constant_type_c::constant_int_type_name;
-				s4o.print("__something_to_bcd(sizeof(");
-				IN_type_symbol->accept(*this);
-				s4o.print("),&");
-				IN_param_value->accept(*this);
-				s4o.print(")");
-				return NULL;
-				
-			}
-			
-			ERROR;
-		}
-		
-	}/*function_uint_to_bcd*/
-	break;
-
-/****
- *USINT_TO_BCD
- */
-	case function_usint_to_bcd :
-	{
-		symbol_c *last_type_symbol = NULL;
-
-		{
-			identifier_c param_name("IN");
-			/* Get the value from a foo(<param_name> = <param_value>) style call */
-			symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
-			
-			/* Get the value from a foo(<param_value>) style call */
-			if (IN_param_value == NULL)
-			  IN_param_value = function_call_param_iterator.next();
-			symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
-			last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
-			
-			if (typeid(*last_type_symbol) == typeid(usint_type_name_c))
-			{
-		
-				symbol_c * return_type_symbol = &search_constant_type_c::constant_int_type_name;
-				s4o.print("__something_to_bcd(sizeof(");
-				IN_type_symbol->accept(*this);
-				s4o.print("),&");
-				IN_param_value->accept(*this);
-				s4o.print(")");
-				return NULL;
-				
-			}
-			
-			ERROR;
-		}
-		
-	}/*function_usint_to_bcd*/
-	break;
+    case function_udint_to_bcd :
+    {
+        symbol_c *last_type_symbol = NULL;
+
+        {
+            identifier_c param_name("IN");
+            /* Get the value from a foo(<param_name> = <param_value>) style call */
+            symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
+            
+            /* Get the value from a foo(<param_value>) style call */
+            if (IN_param_value == NULL)
+              IN_param_value = function_call_param_iterator.next();
+            symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
+            last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
+            
+            if (typeid(*last_type_symbol) == typeid(udint_type_name_c))
+            {
+        
+                symbol_c * return_type_symbol = &search_constant_type_c::constant_int_type_name;
+                s4o.print("__something_to_bcd(sizeof(");
+                IN_type_symbol->accept(*this);
+                s4o.print("),&");
+                IN_param_value->accept(*this);
+                s4o.print(")");
+                return NULL;
+                
+            }
+            
+            ERROR;
+        }
+        
+    }/*function_udint_to_bcd*/
+    break;
 
 /****
  *ULINT_TO_BCD
  */
-	case function_ulint_to_bcd :
-	{
-		symbol_c *last_type_symbol = NULL;
-
-		{
-			identifier_c param_name("IN");
-			/* Get the value from a foo(<param_name> = <param_value>) style call */
-			symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
-			
-			/* Get the value from a foo(<param_value>) style call */
-			if (IN_param_value == NULL)
-			  IN_param_value = function_call_param_iterator.next();
-			symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
-			last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
-			
-			if (typeid(*last_type_symbol) == typeid(ulint_type_name_c))
-			{
-		
-				symbol_c * return_type_symbol = &search_constant_type_c::constant_int_type_name;
-				s4o.print("__something_to_bcd(sizeof(");
-				IN_type_symbol->accept(*this);
-				s4o.print("),&");
-				IN_param_value->accept(*this);
-				s4o.print(")");
-				return NULL;
-				
-			}
-			
-			ERROR;
-		}
-		
-	}/*function_ulint_to_bcd*/
-	break;
-
-/****
- *INT_TO_BCD
- */
-	case function_int_to_bcd :
-	{
-		symbol_c *last_type_symbol = NULL;
-
-		{
-			identifier_c param_name("IN");
-			/* Get the value from a foo(<param_name> = <param_value>) style call */
-			symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
-			
-			/* Get the value from a foo(<param_value>) style call */
-			if (IN_param_value == NULL)
-			  IN_param_value = function_call_param_iterator.next();
-			symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
-			last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
-			
-			if (typeid(*last_type_symbol) == typeid(int_type_name_c))
-			{
-		
-				symbol_c * return_type_symbol = &search_constant_type_c::constant_int_type_name;
-				s4o.print("__something_to_bcd(sizeof(");
-				IN_type_symbol->accept(*this);
-				s4o.print("),&");
-				IN_param_value->accept(*this);
-				s4o.print(")");
-				return NULL;
-				
-			}
-			
-			ERROR;
-		}
-		
-	}/*function_int_to_bcd*/
-	break;
+    case function_ulint_to_bcd :
+    {
+        symbol_c *last_type_symbol = NULL;
+
+        {
+            identifier_c param_name("IN");
+            /* Get the value from a foo(<param_name> = <param_value>) style call */
+            symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
+            
+            /* Get the value from a foo(<param_value>) style call */
+            if (IN_param_value == NULL)
+              IN_param_value = function_call_param_iterator.next();
+            symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
+            last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
+            
+            if (typeid(*last_type_symbol) == typeid(ulint_type_name_c))
+            {
+        
+                symbol_c * return_type_symbol = &search_constant_type_c::constant_int_type_name;
+                s4o.print("__something_to_bcd(sizeof(");
+                IN_type_symbol->accept(*this);
+                s4o.print("),&");
+                IN_param_value->accept(*this);
+                s4o.print(")");
+                return NULL;
+                
+            }
+            
+            ERROR;
+        }
+        
+    }/*function_ulint_to_bcd*/
+    break;
 
 /****
  *DATE_AND_TIME_TO_TIME_OF_DAY
  */
-	case function_date_and_time_to_time_of_day :
-	{
-		symbol_c *last_type_symbol = NULL;
-
-		{
-			identifier_c param_name("IN");
-			/* Get the value from a foo(<param_name> = <param_value>) style call */
-			symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
-			
-			/* Get the value from a foo(<param_value>) style call */
-			if (IN_param_value == NULL)
-			  IN_param_value = function_call_param_iterator.next();
-			symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
-			last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
-			
-			if (typeid(*last_type_symbol) == typeid(dt_type_name_c))
-			{
-		
-				symbol_c * return_type_symbol = &search_constant_type_c::tod_type_name;
-				s4o.print("__date_and_time_to_time_of_day(&");
-				IN_param_value->accept(*this);
-				s4o.print(")");
-				return NULL;
-				
-			}
-			
-			ERROR;
-		}
-		
-	}/*function_date_and_time_to_time_of_day*/
-	break;
+    case function_date_and_time_to_time_of_day :
+    {
+        symbol_c *last_type_symbol = NULL;
+
+        {
+            identifier_c param_name("IN");
+            /* Get the value from a foo(<param_name> = <param_value>) style call */
+            symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
+            
+            /* Get the value from a foo(<param_value>) style call */
+            if (IN_param_value == NULL)
+              IN_param_value = function_call_param_iterator.next();
+            symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
+            last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
+            
+            if (typeid(*last_type_symbol) == typeid(dt_type_name_c))
+            {
+        
+                symbol_c * return_type_symbol = &search_constant_type_c::tod_type_name;
+                s4o.print("__date_and_time_to_time_of_day(&");
+                IN_param_value->accept(*this);
+                s4o.print(")");
+                return NULL;
+                
+            }
+            
+            ERROR;
+        }
+        
+    }/*function_date_and_time_to_time_of_day*/
+    break;
 
 /****
  *DATE_AND_TIME_TO_DATE
  */
-	case function_date_and_time_to_date :
-	{
-		symbol_c *last_type_symbol = NULL;
-
-		{
-			identifier_c param_name("IN");
-			/* Get the value from a foo(<param_name> = <param_value>) style call */
-			symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
-			
-			/* Get the value from a foo(<param_value>) style call */
-			if (IN_param_value == NULL)
-			  IN_param_value = function_call_param_iterator.next();
-			symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
-			last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
-			
-			if (typeid(*last_type_symbol) == typeid(dt_type_name_c))
-			{
-		
-				symbol_c * return_type_symbol = &search_constant_type_c::date_type_name;
-				s4o.print("__date_and_time_to_time_of_day(&");
-				IN_param_value->accept(*this);
-				s4o.print(")");
-				return NULL;
-				
-			}
-			
-			ERROR;
-		}
-		
-	}/*function_date_and_time_to_date*/
-	break;
+    case function_date_and_time_to_date :
+    {
+        symbol_c *last_type_symbol = NULL;
+
+        {
+            identifier_c param_name("IN");
+            /* Get the value from a foo(<param_name> = <param_value>) style call */
+            symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
+            
+            /* Get the value from a foo(<param_value>) style call */
+            if (IN_param_value == NULL)
+              IN_param_value = function_call_param_iterator.next();
+            symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
+            last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
+            
+            if (typeid(*last_type_symbol) == typeid(dt_type_name_c))
+            {
+        
+                symbol_c * return_type_symbol = &search_constant_type_c::date_type_name;
+                s4o.print("__date_and_time_to_time_of_day(&");
+                IN_param_value->accept(*this);
+                s4o.print(")");
+                return NULL;
+                
+            }
+            
+            ERROR;
+        }
+        
+    }/*function_date_and_time_to_date*/
+    break;
 
 /****
  *ABS
  */
-	case function_abs :
-	{
-		symbol_c *last_type_symbol = NULL;
-
-		{
-			identifier_c param_name("IN");
-			/* Get the value from a foo(<param_name> = <param_value>) style call */
-			symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
-			
-			/* Get the value from a foo(<param_value>) style call */
-			if (IN_param_value == NULL)
-			  IN_param_value = function_call_param_iterator.next();
-			symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
-			last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
-			
-			if(search_expression_type->is_num_type(IN_type_symbol))
-			{
-		
-				symbol_c * return_type_symbol = IN_type_symbol;
-				s4o.print("__abs_");
-				IN_type_symbol->accept(*this);
-				s4o.print("(");
-				IN_param_value->accept(*this);
-				s4o.print(")");
-				return NULL;
-				
-			}
-			
-			ERROR;
-		}
-		
-	}/*function_abs*/
-	break;
+    case function_abs :
+    {
+        symbol_c *last_type_symbol = NULL;
+
+        {
+            identifier_c param_name("IN");
+            /* Get the value from a foo(<param_name> = <param_value>) style call */
+            symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
+            
+            /* Get the value from a foo(<param_value>) style call */
+            if (IN_param_value == NULL)
+              IN_param_value = function_call_param_iterator.next();
+            symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
+            last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
+            
+            if(search_expression_type->is_num_type(IN_type_symbol))
+            {
+        
+                symbol_c * return_type_symbol = IN_type_symbol;
+                s4o.print("__abs_");
+                IN_type_symbol->accept(*this);
+                s4o.print("(");
+                IN_param_value->accept(*this);
+                s4o.print(")");
+                return NULL;
+                
+            }
+            
+            ERROR;
+        }
+        
+    }/*function_abs*/
+    break;
 
 /****
  *SQRT
  */
-	case function_sqrt :
-	{
-		symbol_c *last_type_symbol = NULL;
-
-		{
-			identifier_c param_name("IN");
-			/* Get the value from a foo(<param_name> = <param_value>) style call */
-			symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
-			
-			/* Get the value from a foo(<param_value>) style call */
-			if (IN_param_value == NULL)
-			  IN_param_value = function_call_param_iterator.next();
-			symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
-			last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
-			
-			if(search_expression_type->is_real_type(IN_type_symbol))
-			{
-		
-				symbol_c * return_type_symbol = IN_type_symbol;
-				s4o.print("sqrt(");
-				IN_param_value->accept(*this);
-				s4o.print(")");
-				return NULL;
-				
-			}
-			
-			ERROR;
-		}
-		
-	}/*function_sqrt*/
-	break;
+    case function_sqrt :
+    {
+        symbol_c *last_type_symbol = NULL;
+
+        {
+            identifier_c param_name("IN");
+            /* Get the value from a foo(<param_name> = <param_value>) style call */
+            symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
+            
+            /* Get the value from a foo(<param_value>) style call */
+            if (IN_param_value == NULL)
+              IN_param_value = function_call_param_iterator.next();
+            symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
+            last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
+            
+            if(search_expression_type->is_real_type(IN_type_symbol))
+            {
+        
+                symbol_c * return_type_symbol = IN_type_symbol;
+                s4o.print("sqrt(");
+                IN_param_value->accept(*this);
+                s4o.print(")");
+                return NULL;
+                
+            }
+            
+            ERROR;
+        }
+        
+    }/*function_sqrt*/
+    break;
 
 /****
  *LN
  */
-	case function_ln :
-	{
-		symbol_c *last_type_symbol = NULL;
-
-		{
-			identifier_c param_name("IN");
-			/* Get the value from a foo(<param_name> = <param_value>) style call */
-			symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
-			
-			/* Get the value from a foo(<param_value>) style call */
-			if (IN_param_value == NULL)
-			  IN_param_value = function_call_param_iterator.next();
-			symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
-			last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
-			
-			if(search_expression_type->is_real_type(IN_type_symbol))
-			{
-		
-				symbol_c * return_type_symbol = IN_type_symbol;
-				s4o.print("ln(");
-				IN_param_value->accept(*this);
-				s4o.print(")");
-				return NULL;
-				
-			}
-			
-			ERROR;
-		}
-		
-	}/*function_ln*/
-	break;
+    case function_ln :
+    {
+        symbol_c *last_type_symbol = NULL;
+
+        {
+            identifier_c param_name("IN");
+            /* Get the value from a foo(<param_name> = <param_value>) style call */
+            symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
+            
+            /* Get the value from a foo(<param_value>) style call */
+            if (IN_param_value == NULL)
+              IN_param_value = function_call_param_iterator.next();
+            symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
+            last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
+            
+            if(search_expression_type->is_real_type(IN_type_symbol))
+            {
+        
+                symbol_c * return_type_symbol = IN_type_symbol;
+                s4o.print("ln(");
+                IN_param_value->accept(*this);
+                s4o.print(")");
+                return NULL;
+                
+            }
+            
+            ERROR;
+        }
+        
+    }/*function_ln*/
+    break;
 
 /****
  *LOG
  */
-	case function_log :
-	{
-		symbol_c *last_type_symbol = NULL;
-
-		{
-			identifier_c param_name("IN");
-			/* Get the value from a foo(<param_name> = <param_value>) style call */
-			symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
-			
-			/* Get the value from a foo(<param_value>) style call */
-			if (IN_param_value == NULL)
-			  IN_param_value = function_call_param_iterator.next();
-			symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
-			last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
-			
-			if(search_expression_type->is_real_type(IN_type_symbol))
-			{
-		
-				symbol_c * return_type_symbol = IN_type_symbol;
-				s4o.print("log(");
-				IN_param_value->accept(*this);
-				s4o.print(")");
-				return NULL;
-				
-			}
-			
-			ERROR;
-		}
-		
-	}/*function_log*/
-	break;
+    case function_log :
+    {
+        symbol_c *last_type_symbol = NULL;
+
+        {
+            identifier_c param_name("IN");
+            /* Get the value from a foo(<param_name> = <param_value>) style call */
+            symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
+            
+            /* Get the value from a foo(<param_value>) style call */
+            if (IN_param_value == NULL)
+              IN_param_value = function_call_param_iterator.next();
+            symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
+            last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
+            
+            if(search_expression_type->is_real_type(IN_type_symbol))
+            {
+        
+                symbol_c * return_type_symbol = IN_type_symbol;
+                s4o.print("log(");
+                IN_param_value->accept(*this);
+                s4o.print(")");
+                return NULL;
+                
+            }
+            
+            ERROR;
+        }
+        
+    }/*function_log*/
+    break;
 
 /****
  *EXP
  */
-	case function_exp :
-	{
-		symbol_c *last_type_symbol = NULL;
-
-		{
-			identifier_c param_name("IN");
-			/* Get the value from a foo(<param_name> = <param_value>) style call */
-			symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
-			
-			/* Get the value from a foo(<param_value>) style call */
-			if (IN_param_value == NULL)
-			  IN_param_value = function_call_param_iterator.next();
-			symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
-			last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
-			
-			if(search_expression_type->is_real_type(IN_type_symbol))
-			{
-		
-				symbol_c * return_type_symbol = IN_type_symbol;
-				s4o.print("exp(");
-				IN_param_value->accept(*this);
-				s4o.print(")");
-				return NULL;
-				
-			}
-			
-			ERROR;
-		}
-		
-	}/*function_exp*/
-	break;
+    case function_exp :
+    {
+        symbol_c *last_type_symbol = NULL;
+
+        {
+            identifier_c param_name("IN");
+            /* Get the value from a foo(<param_name> = <param_value>) style call */
+            symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
+            
+            /* Get the value from a foo(<param_value>) style call */
+            if (IN_param_value == NULL)
+              IN_param_value = function_call_param_iterator.next();
+            symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
+            last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
+            
+            if(search_expression_type->is_real_type(IN_type_symbol))
+            {
+        
+                symbol_c * return_type_symbol = IN_type_symbol;
+                s4o.print("exp(");
+                IN_param_value->accept(*this);
+                s4o.print(")");
+                return NULL;
+                
+            }
+            
+            ERROR;
+        }
+        
+    }/*function_exp*/
+    break;
 
 /****
  *SIN
  */
-	case function_sin :
-	{
-		symbol_c *last_type_symbol = NULL;
-
-		{
-			identifier_c param_name("IN");
-			/* Get the value from a foo(<param_name> = <param_value>) style call */
-			symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
-			
-			/* Get the value from a foo(<param_value>) style call */
-			if (IN_param_value == NULL)
-			  IN_param_value = function_call_param_iterator.next();
-			symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
-			last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
-			
-			if(search_expression_type->is_real_type(IN_type_symbol))
-			{
-		
-				symbol_c * return_type_symbol = IN_type_symbol;
-				s4o.print("sin(");
-				IN_param_value->accept(*this);
-				s4o.print(")");
-				return NULL;
-				
-			}
-			
-			ERROR;
-		}
-		
-	}/*function_sin*/
-	break;
+    case function_sin :
+    {
+        symbol_c *last_type_symbol = NULL;
+
+        {
+            identifier_c param_name("IN");
+            /* Get the value from a foo(<param_name> = <param_value>) style call */
+            symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
+            
+            /* Get the value from a foo(<param_value>) style call */
+            if (IN_param_value == NULL)
+              IN_param_value = function_call_param_iterator.next();
+            symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
+            last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
+            
+            if(search_expression_type->is_real_type(IN_type_symbol))
+            {
+        
+                symbol_c * return_type_symbol = IN_type_symbol;
+                s4o.print("sin(");
+                IN_param_value->accept(*this);
+                s4o.print(")");
+                return NULL;
+                
+            }
+            
+            ERROR;
+        }
+        
+    }/*function_sin*/
+    break;
 
 /****
  *COS
  */
-	case function_cos :
-	{
-		symbol_c *last_type_symbol = NULL;
-
-		{
-			identifier_c param_name("IN");
-			/* Get the value from a foo(<param_name> = <param_value>) style call */
-			symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
-			
-			/* Get the value from a foo(<param_value>) style call */
-			if (IN_param_value == NULL)
-			  IN_param_value = function_call_param_iterator.next();
-			symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
-			last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
-			
-			if(search_expression_type->is_real_type(IN_type_symbol))
-			{
-		
-				symbol_c * return_type_symbol = IN_type_symbol;
-				s4o.print("cos(");
-				IN_param_value->accept(*this);
-				s4o.print(")");
-				return NULL;
-				
-			}
-			
-			ERROR;
-		}
-		
-	}/*function_cos*/
-	break;
+    case function_cos :
+    {
+        symbol_c *last_type_symbol = NULL;
+
+        {
+            identifier_c param_name("IN");
+            /* Get the value from a foo(<param_name> = <param_value>) style call */
+            symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
+            
+            /* Get the value from a foo(<param_value>) style call */
+            if (IN_param_value == NULL)
+              IN_param_value = function_call_param_iterator.next();
+            symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
+            last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
+            
+            if(search_expression_type->is_real_type(IN_type_symbol))
+            {
+        
+                symbol_c * return_type_symbol = IN_type_symbol;
+                s4o.print("cos(");
+                IN_param_value->accept(*this);
+                s4o.print(")");
+                return NULL;
+                
+            }
+            
+            ERROR;
+        }
+        
+    }/*function_cos*/
+    break;
 
 /****
  *TAN
  */
-	case function_tan :
-	{
-		symbol_c *last_type_symbol = NULL;
-
-		{
-			identifier_c param_name("IN");
-			/* Get the value from a foo(<param_name> = <param_value>) style call */
-			symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
-			
-			/* Get the value from a foo(<param_value>) style call */
-			if (IN_param_value == NULL)
-			  IN_param_value = function_call_param_iterator.next();
-			symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
-			last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
-			
-			if(search_expression_type->is_real_type(IN_type_symbol))
-			{
-		
-				symbol_c * return_type_symbol = IN_type_symbol;
-				s4o.print("tan(");
-				IN_param_value->accept(*this);
-				s4o.print(")");
-				return NULL;
-				
-			}
-			
-			ERROR;
-		}
-		
-	}/*function_tan*/
-	break;
+    case function_tan :
+    {
+        symbol_c *last_type_symbol = NULL;
+
+        {
+            identifier_c param_name("IN");
+            /* Get the value from a foo(<param_name> = <param_value>) style call */
+            symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
+            
+            /* Get the value from a foo(<param_value>) style call */
+            if (IN_param_value == NULL)
+              IN_param_value = function_call_param_iterator.next();
+            symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
+            last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
+            
+            if(search_expression_type->is_real_type(IN_type_symbol))
+            {
+        
+                symbol_c * return_type_symbol = IN_type_symbol;
+                s4o.print("tan(");
+                IN_param_value->accept(*this);
+                s4o.print(")");
+                return NULL;
+                
+            }
+            
+            ERROR;
+        }
+        
+    }/*function_tan*/
+    break;
 
 /****
  *ASIN
  */
-	case function_asin :
-	{
-		symbol_c *last_type_symbol = NULL;
-
-		{
-			identifier_c param_name("IN");
-			/* Get the value from a foo(<param_name> = <param_value>) style call */
-			symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
-			
-			/* Get the value from a foo(<param_value>) style call */
-			if (IN_param_value == NULL)
-			  IN_param_value = function_call_param_iterator.next();
-			symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
-			last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
-			
-			if(search_expression_type->is_real_type(IN_type_symbol))
-			{
-		
-				symbol_c * return_type_symbol = IN_type_symbol;
-				s4o.print("asin(");
-				IN_param_value->accept(*this);
-				s4o.print(")");
-				return NULL;
-				
-			}
-			
-			ERROR;
-		}
-		
-	}/*function_asin*/
-	break;
+    case function_asin :
+    {
+        symbol_c *last_type_symbol = NULL;
+
+        {
+            identifier_c param_name("IN");
+            /* Get the value from a foo(<param_name> = <param_value>) style call */
+            symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
+            
+            /* Get the value from a foo(<param_value>) style call */
+            if (IN_param_value == NULL)
+              IN_param_value = function_call_param_iterator.next();
+            symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
+            last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
+            
+            if(search_expression_type->is_real_type(IN_type_symbol))
+            {
+        
+                symbol_c * return_type_symbol = IN_type_symbol;
+                s4o.print("asin(");
+                IN_param_value->accept(*this);
+                s4o.print(")");
+                return NULL;
+                
+            }
+            
+            ERROR;
+        }
+        
+    }/*function_asin*/
+    break;
 
 /****
  *ACOS
  */
-	case function_acos :
-	{
-		symbol_c *last_type_symbol = NULL;
-
-		{
-			identifier_c param_name("IN");
-			/* Get the value from a foo(<param_name> = <param_value>) style call */
-			symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
-			
-			/* Get the value from a foo(<param_value>) style call */
-			if (IN_param_value == NULL)
-			  IN_param_value = function_call_param_iterator.next();
-			symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
-			last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
-			
-			if(search_expression_type->is_real_type(IN_type_symbol))
-			{
-		
-				symbol_c * return_type_symbol = IN_type_symbol;
-				s4o.print("acos(");
-				IN_param_value->accept(*this);
-				s4o.print(")");
-				return NULL;
-				
-			}
-			
-			ERROR;
-		}
-		
-	}/*function_acos*/
-	break;
+    case function_acos :
+    {
+        symbol_c *last_type_symbol = NULL;
+
+        {
+            identifier_c param_name("IN");
+            /* Get the value from a foo(<param_name> = <param_value>) style call */
+            symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
+            
+            /* Get the value from a foo(<param_value>) style call */
+            if (IN_param_value == NULL)
+              IN_param_value = function_call_param_iterator.next();
+            symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
+            last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
+            
+            if(search_expression_type->is_real_type(IN_type_symbol))
+            {
+        
+                symbol_c * return_type_symbol = IN_type_symbol;
+                s4o.print("acos(");
+                IN_param_value->accept(*this);
+                s4o.print(")");
+                return NULL;
+                
+            }
+            
+            ERROR;
+        }
+        
+    }/*function_acos*/
+    break;
 
 /****
  *ATAN
  */
-	case function_atan :
-	{
-		symbol_c *last_type_symbol = NULL;
-
-		{
-			identifier_c param_name("IN");
-			/* Get the value from a foo(<param_name> = <param_value>) style call */
-			symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
-			
-			/* Get the value from a foo(<param_value>) style call */
-			if (IN_param_value == NULL)
-			  IN_param_value = function_call_param_iterator.next();
-			symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
-			last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
-			
-			if(search_expression_type->is_real_type(IN_type_symbol))
-			{
-		
-				symbol_c * return_type_symbol = IN_type_symbol;
-				s4o.print("atan(");
-				IN_param_value->accept(*this);
-				s4o.print(")");
-				return NULL;
-				
-			}
-			
-			ERROR;
-		}
-		
-	}/*function_atan*/
-	break;
+    case function_atan :
+    {
+        symbol_c *last_type_symbol = NULL;
+
+        {
+            identifier_c param_name("IN");
+            /* Get the value from a foo(<param_name> = <param_value>) style call */
+            symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
+            
+            /* Get the value from a foo(<param_value>) style call */
+            if (IN_param_value == NULL)
+              IN_param_value = function_call_param_iterator.next();
+            symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
+            last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
+            
+            if(search_expression_type->is_real_type(IN_type_symbol))
+            {
+        
+                symbol_c * return_type_symbol = IN_type_symbol;
+                s4o.print("atan(");
+                IN_param_value->accept(*this);
+                s4o.print(")");
+                return NULL;
+                
+            }
+            
+            ERROR;
+        }
+        
+    }/*function_atan*/
+    break;
 
 /****
  *ADD
  */
-	case function_add :
-	{
-		symbol_c *last_type_symbol = NULL;
-
-		{
-			identifier_c param_name("IN1");
-			/* Get the value from a foo(<param_name> = <param_value>) style call */
-			symbol_c *IN1_param_value = function_call_param_iterator.search(&param_name);
-			
-			/* Get the value from a foo(<param_value>) style call */
-			if (IN1_param_value == NULL)
-			  IN1_param_value = function_call_param_iterator.next();
-			symbol_c *IN1_type_symbol = search_expression_type->get_type(IN1_param_value);
-			last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN1_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN1_type_symbol, last_type_symbol) : IN1_type_symbol ;
-			
-			if(search_expression_type->is_num_type(IN1_type_symbol))
-			{
-		
-				{
-					identifier_c param_name("IN2");
-					/* Get the value from a foo(<param_name> = <param_value>) style call */
-					symbol_c *IN2_param_value = function_call_param_iterator.search(&param_name);
-					
-					/* Get the value from a foo(<param_value>) style call */
-					if (IN2_param_value == NULL)
-					  IN2_param_value = function_call_param_iterator.next();
-					symbol_c *IN2_type_symbol = search_expression_type->get_type(IN2_param_value);
-					last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN2_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN2_type_symbol, last_type_symbol) : IN2_type_symbol ;
-					
-					if(search_expression_type->is_num_type(IN2_type_symbol))
-					{
-				
-						symbol_c * return_type_symbol = last_type_symbol;
-						s4o.print("(");
-						IN1_param_value->accept(*this);
-						s4o.print("+");
-						IN2_param_value->accept(*this);
-						
-						int base_num = 3;
-						symbol_c *param_value = NULL;
-						do{
-							char my_name[10];
-							sprintf(my_name, "IN%d", base_num++);
-							identifier_c param_name(my_name);
-							
-							/* Get the value from a foo(<param_name> = <param_value>) style call */
-							param_value = function_call_param_iterator.search(&param_name);
-							
-							/* Get the value from a foo(<param_value>) style call */
-							if (param_value == NULL)
-							  param_value = function_call_param_iterator.next();
-							if (param_value != NULL){
-								symbol_c *current_type_symbol = search_expression_type->get_type(param_value);
-								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 ;
-							
-								/*Function specific CODE */
-								s4o.print("+");
-								param_value->accept(*this);
-								
-							}
-							
-						}while(param_value != NULL);
-						s4o.print(")");
-						return NULL;
-						
-						
-					}
-					
-					ERROR;
-				}
-				
-			}
-			
-			if (typeid(*last_type_symbol) == typeid(dt_type_name_c))
-			{
-		
-				{
-					identifier_c param_name("IN2");
-					/* Get the value from a foo(<param_name> = <param_value>) style call */
-					symbol_c *IN2_param_value = function_call_param_iterator.search(&param_name);
-					
-					/* Get the value from a foo(<param_value>) style call */
-					if (IN2_param_value == NULL)
-					  IN2_param_value = function_call_param_iterator.next();
-					symbol_c *IN2_type_symbol = search_expression_type->get_type(IN2_param_value);
-					last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN2_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN2_type_symbol, last_type_symbol) : IN2_type_symbol ;
-					
-					if (typeid(*last_type_symbol) == typeid(time_type_name_c))
-					{
-				
-						symbol_c * return_type_symbol = &search_constant_type_c::dt_type_name;
-						s4o.print("__time_add(&");
-						IN1_param_value->accept(*this);
-						s4o.print(", &");
-						IN2_param_value->accept(*this);
-						s4o.print(")");
-						return NULL;
-						
-					}
-					
-					ERROR;
-				}
-				
-			}
-			
-			if (typeid(*last_type_symbol) == typeid(tod_type_name_c))
-			{
-		
-				{
-					identifier_c param_name("IN2");
-					/* Get the value from a foo(<param_name> = <param_value>) style call */
-					symbol_c *IN2_param_value = function_call_param_iterator.search(&param_name);
-					
-					/* Get the value from a foo(<param_value>) style call */
-					if (IN2_param_value == NULL)
-					  IN2_param_value = function_call_param_iterator.next();
-					symbol_c *IN2_type_symbol = search_expression_type->get_type(IN2_param_value);
-					last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN2_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN2_type_symbol, last_type_symbol) : IN2_type_symbol ;
-					
-					if (typeid(*last_type_symbol) == typeid(time_type_name_c))
-					{
-				
-						symbol_c * return_type_symbol = &search_constant_type_c::tod_type_name;
-						s4o.print("__time_add(&");
-						IN1_param_value->accept(*this);
-						s4o.print(", &");
-						IN2_param_value->accept(*this);
-						s4o.print(")");
-						return NULL;
-						
-					}
-					
-					ERROR;
-				}
-				
-			}
-			
-			if (typeid(*last_type_symbol) == typeid(time_type_name_c))
-			{
-		
-				{
-					identifier_c param_name("IN2");
-					/* Get the value from a foo(<param_name> = <param_value>) style call */
-					symbol_c *IN2_param_value = function_call_param_iterator.search(&param_name);
-					
-					/* Get the value from a foo(<param_value>) style call */
-					if (IN2_param_value == NULL)
-					  IN2_param_value = function_call_param_iterator.next();
-					symbol_c *IN2_type_symbol = search_expression_type->get_type(IN2_param_value);
-					last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN2_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN2_type_symbol, last_type_symbol) : IN2_type_symbol ;
-					
-					if (typeid(*last_type_symbol) == typeid(time_type_name_c))
-					{
-				
-						symbol_c * return_type_symbol = &search_constant_type_c::time_type_name;
-						s4o.print("__time_add(&");
-						IN1_param_value->accept(*this);
-						s4o.print(", &");
-						IN2_param_value->accept(*this);
-						s4o.print(")");
-						return NULL;
-						
-					}
-					
-					ERROR;
-				}
-				
-			}
-			
-			ERROR;
-		}
-		
-	}/*function_add*/
-	break;
+    case function_add :
+    {
+        symbol_c *last_type_symbol = NULL;
+
+        {
+            identifier_c param_name("IN1");
+            /* Get the value from a foo(<param_name> = <param_value>) style call */
+            symbol_c *IN1_param_value = function_call_param_iterator.search(&param_name);
+            
+            /* Get the value from a foo(<param_value>) style call */
+            if (IN1_param_value == NULL)
+              IN1_param_value = function_call_param_iterator.next();
+            symbol_c *IN1_type_symbol = search_expression_type->get_type(IN1_param_value);
+            last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN1_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN1_type_symbol, last_type_symbol) : IN1_type_symbol ;
+            
+            if(search_expression_type->is_num_type(IN1_type_symbol))
+            {
+        
+                {
+                    identifier_c param_name("IN2");
+                    /* Get the value from a foo(<param_name> = <param_value>) style call */
+                    symbol_c *IN2_param_value = function_call_param_iterator.search(&param_name);
+                    
+                    /* Get the value from a foo(<param_value>) style call */
+                    if (IN2_param_value == NULL)
+                      IN2_param_value = function_call_param_iterator.next();
+                    symbol_c *IN2_type_symbol = search_expression_type->get_type(IN2_param_value);
+                    last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN2_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN2_type_symbol, last_type_symbol) : IN2_type_symbol ;
+                    
+                    if(search_expression_type->is_num_type(IN2_type_symbol))
+                    {
+                
+                        symbol_c * return_type_symbol = last_type_symbol;
+                        s4o.print("(");
+                        IN1_param_value->accept(*this);
+                        s4o.print("+");
+                        IN2_param_value->accept(*this);
+                        
+                        int base_num = 3;
+                        symbol_c *param_value = NULL;
+                        do{
+                            char my_name[10];
+                            sprintf(my_name, "IN%d", base_num++);
+                            identifier_c param_name(my_name);
+                            
+                            /* Get the value from a foo(<param_name> = <param_value>) style call */
+                            param_value = function_call_param_iterator.search(&param_name);
+                            
+                            /* Get the value from a foo(<param_value>) style call */
+                            if (param_value == NULL)
+                              param_value = function_call_param_iterator.next();
+                            if (param_value != NULL){
+                                symbol_c *current_type_symbol = search_expression_type->get_type(param_value);
+                                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 ;
+                            
+                                /*Function specific CODE */
+                                s4o.print("+");
+                                param_value->accept(*this);
+                                
+                            }
+                            
+                        }while(param_value != NULL);
+                        s4o.print(")");
+                        return NULL;
+                        
+                        
+                    }
+                    
+                    ERROR;
+                }
+                
+            }
+            
+            if (typeid(*last_type_symbol) == typeid(dt_type_name_c))
+            {
+        
+                {
+                    identifier_c param_name("IN2");
+                    /* Get the value from a foo(<param_name> = <param_value>) style call */
+                    symbol_c *IN2_param_value = function_call_param_iterator.search(&param_name);
+                    
+                    /* Get the value from a foo(<param_value>) style call */
+                    if (IN2_param_value == NULL)
+                      IN2_param_value = function_call_param_iterator.next();
+                    symbol_c *IN2_type_symbol = search_expression_type->get_type(IN2_param_value);
+                    last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN2_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN2_type_symbol, last_type_symbol) : IN2_type_symbol ;
+                    
+                    if (typeid(*last_type_symbol) == typeid(time_type_name_c))
+                    {
+                
+                        symbol_c * return_type_symbol = &search_constant_type_c::dt_type_name;
+                        s4o.print("__time_add(&");
+                        IN1_param_value->accept(*this);
+                        s4o.print(", &");
+                        IN2_param_value->accept(*this);
+                        s4o.print(")");
+                        return NULL;
+                        
+                    }
+                    
+                    ERROR;
+                }
+                
+            }
+            
+            if (typeid(*last_type_symbol) == typeid(tod_type_name_c))
+            {
+        
+                {
+                    identifier_c param_name("IN2");
+                    /* Get the value from a foo(<param_name> = <param_value>) style call */
+                    symbol_c *IN2_param_value = function_call_param_iterator.search(&param_name);
+                    
+                    /* Get the value from a foo(<param_value>) style call */
+                    if (IN2_param_value == NULL)
+                      IN2_param_value = function_call_param_iterator.next();
+                    symbol_c *IN2_type_symbol = search_expression_type->get_type(IN2_param_value);
+                    last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN2_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN2_type_symbol, last_type_symbol) : IN2_type_symbol ;
+                    
+                    if (typeid(*last_type_symbol) == typeid(time_type_name_c))
+                    {
+                
+                        symbol_c * return_type_symbol = &search_constant_type_c::tod_type_name;
+                        s4o.print("__time_add(&");
+                        IN1_param_value->accept(*this);
+                        s4o.print(", &");
+                        IN2_param_value->accept(*this);
+                        s4o.print(")");
+                        return NULL;
+                        
+                    }
+                    
+                    ERROR;
+                }
+                
+            }
+            
+            if (typeid(*last_type_symbol) == typeid(time_type_name_c))
+            {
+        
+                {
+                    identifier_c param_name("IN2");
+                    /* Get the value from a foo(<param_name> = <param_value>) style call */
+                    symbol_c *IN2_param_value = function_call_param_iterator.search(&param_name);
+                    
+                    /* Get the value from a foo(<param_value>) style call */
+                    if (IN2_param_value == NULL)
+                      IN2_param_value = function_call_param_iterator.next();
+                    symbol_c *IN2_type_symbol = search_expression_type->get_type(IN2_param_value);
+                    last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN2_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN2_type_symbol, last_type_symbol) : IN2_type_symbol ;
+                    
+                    if (typeid(*last_type_symbol) == typeid(time_type_name_c))
+                    {
+                
+                        symbol_c * return_type_symbol = &search_constant_type_c::time_type_name;
+                        s4o.print("__time_add(&");
+                        IN1_param_value->accept(*this);
+                        s4o.print(", &");
+                        IN2_param_value->accept(*this);
+                        s4o.print(")");
+                        return NULL;
+                        
+                    }
+                    
+                    ERROR;
+                }
+                
+            }
+            
+            ERROR;
+        }
+        
+    }/*function_add*/
+    break;
 
 /****
  *MUL
  */
-	case function_mul :
-	{
-		symbol_c *last_type_symbol = NULL;
-
-		{
-			identifier_c param_name("IN1");
-			/* Get the value from a foo(<param_name> = <param_value>) style call */
-			symbol_c *IN1_param_value = function_call_param_iterator.search(&param_name);
-			
-			/* Get the value from a foo(<param_value>) style call */
-			if (IN1_param_value == NULL)
-			  IN1_param_value = function_call_param_iterator.next();
-			symbol_c *IN1_type_symbol = search_expression_type->get_type(IN1_param_value);
-			last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN1_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN1_type_symbol, last_type_symbol) : IN1_type_symbol ;
-			
-			if(search_expression_type->is_num_type(IN1_type_symbol))
-			{
-		
-				{
-					identifier_c param_name("IN2");
-					/* Get the value from a foo(<param_name> = <param_value>) style call */
-					symbol_c *IN2_param_value = function_call_param_iterator.search(&param_name);
-					
-					/* Get the value from a foo(<param_value>) style call */
-					if (IN2_param_value == NULL)
-					  IN2_param_value = function_call_param_iterator.next();
-					symbol_c *IN2_type_symbol = search_expression_type->get_type(IN2_param_value);
-					last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN2_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN2_type_symbol, last_type_symbol) : IN2_type_symbol ;
-					
-					if(search_expression_type->is_num_type(IN2_type_symbol))
-					{
-				
-						symbol_c * return_type_symbol = last_type_symbol;
-						s4o.print("(");
-						IN1_param_value->accept(*this);
-						s4o.print("*");
-						IN2_param_value->accept(*this);
-						
-						int base_num = 3;
-						symbol_c *param_value = NULL;
-						do{
-							char my_name[10];
-							sprintf(my_name, "IN%d", base_num++);
-							identifier_c param_name(my_name);
-							
-							/* Get the value from a foo(<param_name> = <param_value>) style call */
-							param_value = function_call_param_iterator.search(&param_name);
-							
-							/* Get the value from a foo(<param_value>) style call */
-							if (param_value == NULL)
-							  param_value = function_call_param_iterator.next();
-							if (param_value != NULL){
-								symbol_c *current_type_symbol = search_expression_type->get_type(param_value);
-								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 ;
-							
-								/*Function specific CODE */
-								s4o.print("*");
-								param_value->accept(*this);
-								
-							}
-							
-						}while(param_value != NULL);
-						s4o.print(")");
-						return NULL;
-						
-						
-					}
-					
-					ERROR;
-				}
-				
-			}
-			
-			if (typeid(*last_type_symbol) == typeid(time_type_name_c))
-			{
-		
-				{
-					identifier_c param_name("IN2");
-					/* Get the value from a foo(<param_name> = <param_value>) style call */
-					symbol_c *IN2_param_value = function_call_param_iterator.search(&param_name);
-					
-					/* Get the value from a foo(<param_value>) style call */
-					if (IN2_param_value == NULL)
-					  IN2_param_value = function_call_param_iterator.next();
-					symbol_c *IN2_type_symbol = search_expression_type->get_type(IN2_param_value);
-					last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN2_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN2_type_symbol, last_type_symbol) : IN2_type_symbol ;
-					
-					if(search_expression_type->is_num_type(IN2_type_symbol))
-					{
-				
-						symbol_c * return_type_symbol = &search_constant_type_c::time_type_name;
-						s4o.print("__time_mul(&");
-						IN1_param_value->accept(*this);
-						s4o.print(", &");
-						IN2_param_value->accept(*this);
-						s4o.print(")");
-						return NULL;
-						
-					}
-					
-					ERROR;
-				}
-				
-			}
-			
-			ERROR;
-		}
-		
-	}/*function_mul*/
-	break;
+    case function_mul :
+    {
+        symbol_c *last_type_symbol = NULL;
+
+        {
+            identifier_c param_name("IN1");
+            /* Get the value from a foo(<param_name> = <param_value>) style call */
+            symbol_c *IN1_param_value = function_call_param_iterator.search(&param_name);
+            
+            /* Get the value from a foo(<param_value>) style call */
+            if (IN1_param_value == NULL)
+              IN1_param_value = function_call_param_iterator.next();
+            symbol_c *IN1_type_symbol = search_expression_type->get_type(IN1_param_value);
+            last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN1_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN1_type_symbol, last_type_symbol) : IN1_type_symbol ;
+            
+            if(search_expression_type->is_num_type(IN1_type_symbol))
+            {
+        
+                {
+                    identifier_c param_name("IN2");
+                    /* Get the value from a foo(<param_name> = <param_value>) style call */
+                    symbol_c *IN2_param_value = function_call_param_iterator.search(&param_name);
+                    
+                    /* Get the value from a foo(<param_value>) style call */
+                    if (IN2_param_value == NULL)
+                      IN2_param_value = function_call_param_iterator.next();
+                    symbol_c *IN2_type_symbol = search_expression_type->get_type(IN2_param_value);
+                    last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN2_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN2_type_symbol, last_type_symbol) : IN2_type_symbol ;
+                    
+                    if(search_expression_type->is_num_type(IN2_type_symbol))
+                    {
+                
+                        symbol_c * return_type_symbol = last_type_symbol;
+                        s4o.print("(");
+                        IN1_param_value->accept(*this);
+                        s4o.print("*");
+                        IN2_param_value->accept(*this);
+                        
+                        int base_num = 3;
+                        symbol_c *param_value = NULL;
+                        do{
+                            char my_name[10];
+                            sprintf(my_name, "IN%d", base_num++);
+                            identifier_c param_name(my_name);
+                            
+                            /* Get the value from a foo(<param_name> = <param_value>) style call */
+                            param_value = function_call_param_iterator.search(&param_name);
+                            
+                            /* Get the value from a foo(<param_value>) style call */
+                            if (param_value == NULL)
+                              param_value = function_call_param_iterator.next();
+                            if (param_value != NULL){
+                                symbol_c *current_type_symbol = search_expression_type->get_type(param_value);
+                                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 ;
+                            
+                                /*Function specific CODE */
+                                s4o.print("*");
+                                param_value->accept(*this);
+                                
+                            }
+                            
+                        }while(param_value != NULL);
+                        s4o.print(")");
+                        return NULL;
+                        
+                        
+                    }
+                    
+                    ERROR;
+                }
+                
+            }
+            
+            if (typeid(*last_type_symbol) == typeid(time_type_name_c))
+            {
+        
+                {
+                    identifier_c param_name("IN2");
+                    /* Get the value from a foo(<param_name> = <param_value>) style call */
+                    symbol_c *IN2_param_value = function_call_param_iterator.search(&param_name);
+                    
+                    /* Get the value from a foo(<param_value>) style call */
+                    if (IN2_param_value == NULL)
+                      IN2_param_value = function_call_param_iterator.next();
+                    symbol_c *IN2_type_symbol = search_expression_type->get_type(IN2_param_value);
+                    last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN2_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN2_type_symbol, last_type_symbol) : IN2_type_symbol ;
+                    
+                    if(search_expression_type->is_num_type(IN2_type_symbol))
+                    {
+                
+                        symbol_c * return_type_symbol = &search_constant_type_c::time_type_name;
+                        s4o.print("__time_mul(&");
+                        IN1_param_value->accept(*this);
+                        s4o.print(", &");
+                        IN2_param_value->accept(*this);
+                        s4o.print(")");
+                        return NULL;
+                        
+                    }
+                    
+                    ERROR;
+                }
+                
+            }
+            
+            ERROR;
+        }
+        
+    }/*function_mul*/
+    break;
 
 /****
  *SUB
  */
-	case function_sub :
-	{
-		symbol_c *last_type_symbol = NULL;
-
-		{
-			identifier_c param_name("IN1");
-			/* Get the value from a foo(<param_name> = <param_value>) style call */
-			symbol_c *IN1_param_value = function_call_param_iterator.search(&param_name);
-			
-			/* Get the value from a foo(<param_value>) style call */
-			if (IN1_param_value == NULL)
-			  IN1_param_value = function_call_param_iterator.next();
-			symbol_c *IN1_type_symbol = search_expression_type->get_type(IN1_param_value);
-			last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN1_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN1_type_symbol, last_type_symbol) : IN1_type_symbol ;
-			
-			if(search_expression_type->is_num_type(IN1_type_symbol))
-			{
-		
-				{
-					identifier_c param_name("IN2");
-					/* Get the value from a foo(<param_name> = <param_value>) style call */
-					symbol_c *IN2_param_value = function_call_param_iterator.search(&param_name);
-					
-					/* Get the value from a foo(<param_value>) style call */
-					if (IN2_param_value == NULL)
-					  IN2_param_value = function_call_param_iterator.next();
-					symbol_c *IN2_type_symbol = search_expression_type->get_type(IN2_param_value);
-					last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN2_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN2_type_symbol, last_type_symbol) : IN2_type_symbol ;
-					
-					if(search_expression_type->is_num_type(IN2_type_symbol))
-					{
-				
-						symbol_c * return_type_symbol = last_type_symbol;
-						s4o.print("(");
-						IN1_param_value->accept(*this);
-						s4o.print("-");
-						IN2_param_value->accept(*this);
-						s4o.print(")");
-						return NULL;
-						
-					}
-					
-					ERROR;
-				}
-				
-			}
-			
-			if (typeid(*last_type_symbol) == typeid(date_type_name_c))
-			{
-		
-				{
-					identifier_c param_name("IN2");
-					/* Get the value from a foo(<param_name> = <param_value>) style call */
-					symbol_c *IN2_param_value = function_call_param_iterator.search(&param_name);
-					
-					/* Get the value from a foo(<param_value>) style call */
-					if (IN2_param_value == NULL)
-					  IN2_param_value = function_call_param_iterator.next();
-					symbol_c *IN2_type_symbol = search_expression_type->get_type(IN2_param_value);
-					last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN2_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN2_type_symbol, last_type_symbol) : IN2_type_symbol ;
-					
-					if (typeid(*last_type_symbol) == typeid(date_type_name_c))
-					{
-				
-						symbol_c * return_type_symbol = &search_constant_type_c::time_type_name;
-						s4o.print("__time_sub(&");
-						IN1_param_value->accept(*this);
-						s4o.print(", &");
-						IN2_param_value->accept(*this);
-						s4o.print(")");
-						return NULL;
-						
-					}
-					
-					ERROR;
-				}
-				
-			}
-			
-			if (typeid(*last_type_symbol) == typeid(dt_type_name_c))
-			{
-		
-				{
-					identifier_c param_name("IN2");
-					/* Get the value from a foo(<param_name> = <param_value>) style call */
-					symbol_c *IN2_param_value = function_call_param_iterator.search(&param_name);
-					
-					/* Get the value from a foo(<param_value>) style call */
-					if (IN2_param_value == NULL)
-					  IN2_param_value = function_call_param_iterator.next();
-					symbol_c *IN2_type_symbol = search_expression_type->get_type(IN2_param_value);
-					last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN2_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN2_type_symbol, last_type_symbol) : IN2_type_symbol ;
-					
-					if (typeid(*last_type_symbol) == typeid(dt_type_name_c))
-					{
-				
-						symbol_c * return_type_symbol = &search_constant_type_c::time_type_name;
-						s4o.print("__time_sub(&");
-						IN1_param_value->accept(*this);
-						s4o.print(", &");
-						IN2_param_value->accept(*this);
-						s4o.print(")");
-						return NULL;
-						
-					}
-					
-					if (typeid(*last_type_symbol) == typeid(time_type_name_c))
-					{
-				
-						symbol_c * return_type_symbol = &search_constant_type_c::dt_type_name;
-						s4o.print("__time_sub(&");
-						IN1_param_value->accept(*this);
-						s4o.print(", &");
-						IN2_param_value->accept(*this);
-						s4o.print(")");
-						return NULL;
-						
-					}
-					
-					ERROR;
-				}
-				
-			}
-			
-			if (typeid(*last_type_symbol) == typeid(tod_type_name_c))
-			{
-		
-				{
-					identifier_c param_name("IN2");
-					/* Get the value from a foo(<param_name> = <param_value>) style call */
-					symbol_c *IN2_param_value = function_call_param_iterator.search(&param_name);
-					
-					/* Get the value from a foo(<param_value>) style call */
-					if (IN2_param_value == NULL)
-					  IN2_param_value = function_call_param_iterator.next();
-					symbol_c *IN2_type_symbol = search_expression_type->get_type(IN2_param_value);
-					last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN2_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN2_type_symbol, last_type_symbol) : IN2_type_symbol ;
-					
-					if (typeid(*last_type_symbol) == typeid(tod_type_name_c))
-					{
-				
-						symbol_c * return_type_symbol = &search_constant_type_c::time_type_name;
-						s4o.print("__time_sub(&");
-						IN1_param_value->accept(*this);
-						s4o.print(", &");
-						IN2_param_value->accept(*this);
-						s4o.print(")");
-						return NULL;
-						
-					}
-					
-					if (typeid(*last_type_symbol) == typeid(time_type_name_c))
-					{
-				
-						symbol_c * return_type_symbol = &search_constant_type_c::tod_type_name;
-						s4o.print("__time_sub(&");
-						IN1_param_value->accept(*this);
-						s4o.print(", &");
-						IN2_param_value->accept(*this);
-						s4o.print(")");
-						return NULL;
-						
-					}
-					
-					ERROR;
-				}
-				
-			}
-			
-			if (typeid(*last_type_symbol) == typeid(time_type_name_c))
-			{
-		
-				{
-					identifier_c param_name("IN2");
-					/* Get the value from a foo(<param_name> = <param_value>) style call */
-					symbol_c *IN2_param_value = function_call_param_iterator.search(&param_name);
-					
-					/* Get the value from a foo(<param_value>) style call */
-					if (IN2_param_value == NULL)
-					  IN2_param_value = function_call_param_iterator.next();
-					symbol_c *IN2_type_symbol = search_expression_type->get_type(IN2_param_value);
-					last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN2_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN2_type_symbol, last_type_symbol) : IN2_type_symbol ;
-					
-					if (typeid(*last_type_symbol) == typeid(time_type_name_c))
-					{
-				
-						symbol_c * return_type_symbol = &search_constant_type_c::time_type_name;
-						s4o.print("__time_sub(&");
-						IN1_param_value->accept(*this);
-						s4o.print(", &");
-						IN2_param_value->accept(*this);
-						s4o.print(")");
-						return NULL;
-						
-					}
-					
-					ERROR;
-				}
-				
-			}
-			
-			ERROR;
-		}
-		
-	}/*function_sub*/
-	break;
+    case function_sub :
+    {
+        symbol_c *last_type_symbol = NULL;
+
+        {
+            identifier_c param_name("IN1");
+            /* Get the value from a foo(<param_name> = <param_value>) style call */
+            symbol_c *IN1_param_value = function_call_param_iterator.search(&param_name);
+            
+            /* Get the value from a foo(<param_value>) style call */
+            if (IN1_param_value == NULL)
+              IN1_param_value = function_call_param_iterator.next();
+            symbol_c *IN1_type_symbol = search_expression_type->get_type(IN1_param_value);
+            last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN1_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN1_type_symbol, last_type_symbol) : IN1_type_symbol ;
+            
+            if(search_expression_type->is_num_type(IN1_type_symbol))
+            {
+        
+                {
+                    identifier_c param_name("IN2");
+                    /* Get the value from a foo(<param_name> = <param_value>) style call */
+                    symbol_c *IN2_param_value = function_call_param_iterator.search(&param_name);
+                    
+                    /* Get the value from a foo(<param_value>) style call */
+                    if (IN2_param_value == NULL)
+                      IN2_param_value = function_call_param_iterator.next();
+                    symbol_c *IN2_type_symbol = search_expression_type->get_type(IN2_param_value);
+                    last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN2_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN2_type_symbol, last_type_symbol) : IN2_type_symbol ;
+                    
+                    if(search_expression_type->is_num_type(IN2_type_symbol))
+                    {
+                
+                        symbol_c * return_type_symbol = last_type_symbol;
+                        s4o.print("(");
+                        IN1_param_value->accept(*this);
+                        s4o.print("-");
+                        IN2_param_value->accept(*this);
+                        s4o.print(")");
+                        return NULL;
+                        
+                    }
+                    
+                    ERROR;
+                }
+                
+            }
+            
+            if (typeid(*last_type_symbol) == typeid(date_type_name_c))
+            {
+        
+                {
+                    identifier_c param_name("IN2");
+                    /* Get the value from a foo(<param_name> = <param_value>) style call */
+                    symbol_c *IN2_param_value = function_call_param_iterator.search(&param_name);
+                    
+                    /* Get the value from a foo(<param_value>) style call */
+                    if (IN2_param_value == NULL)
+                      IN2_param_value = function_call_param_iterator.next();
+                    symbol_c *IN2_type_symbol = search_expression_type->get_type(IN2_param_value);
+                    last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN2_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN2_type_symbol, last_type_symbol) : IN2_type_symbol ;
+                    
+                    if (typeid(*last_type_symbol) == typeid(date_type_name_c))
+                    {
+                
+                        symbol_c * return_type_symbol = &search_constant_type_c::time_type_name;
+                        s4o.print("__time_sub(&");
+                        IN1_param_value->accept(*this);
+                        s4o.print(", &");
+                        IN2_param_value->accept(*this);
+                        s4o.print(")");
+                        return NULL;
+                        
+                    }
+                    
+                    ERROR;
+                }
+                
+            }
+            
+            if (typeid(*last_type_symbol) == typeid(dt_type_name_c))
+            {
+        
+                {
+                    identifier_c param_name("IN2");
+                    /* Get the value from a foo(<param_name> = <param_value>) style call */
+                    symbol_c *IN2_param_value = function_call_param_iterator.search(&param_name);
+                    
+                    /* Get the value from a foo(<param_value>) style call */
+                    if (IN2_param_value == NULL)
+                      IN2_param_value = function_call_param_iterator.next();
+                    symbol_c *IN2_type_symbol = search_expression_type->get_type(IN2_param_value);
+                    last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN2_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN2_type_symbol, last_type_symbol) : IN2_type_symbol ;
+                    
+                    if (typeid(*last_type_symbol) == typeid(dt_type_name_c))
+                    {
+                
+                        symbol_c * return_type_symbol = &search_constant_type_c::time_type_name;
+                        s4o.print("__time_sub(&");
+                        IN1_param_value->accept(*this);
+                        s4o.print(", &");
+                        IN2_param_value->accept(*this);
+                        s4o.print(")");
+                        return NULL;
+                        
+                    }
+                    
+                    if (typeid(*last_type_symbol) == typeid(time_type_name_c))
+                    {
+                
+                        symbol_c * return_type_symbol = &search_constant_type_c::dt_type_name;
+                        s4o.print("__time_sub(&");
+                        IN1_param_value->accept(*this);
+                        s4o.print(", &");
+                        IN2_param_value->accept(*this);
+                        s4o.print(")");
+                        return NULL;
+                        
+                    }
+                    
+                    ERROR;
+                }
+                
+            }
+            
+            if (typeid(*last_type_symbol) == typeid(tod_type_name_c))
+            {
+        
+                {
+                    identifier_c param_name("IN2");
+                    /* Get the value from a foo(<param_name> = <param_value>) style call */
+                    symbol_c *IN2_param_value = function_call_param_iterator.search(&param_name);
+                    
+                    /* Get the value from a foo(<param_value>) style call */
+                    if (IN2_param_value == NULL)
+                      IN2_param_value = function_call_param_iterator.next();
+                    symbol_c *IN2_type_symbol = search_expression_type->get_type(IN2_param_value);
+                    last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN2_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN2_type_symbol, last_type_symbol) : IN2_type_symbol ;
+                    
+                    if (typeid(*last_type_symbol) == typeid(tod_type_name_c))
+                    {
+                
+                        symbol_c * return_type_symbol = &search_constant_type_c::time_type_name;
+                        s4o.print("__time_sub(&");
+                        IN1_param_value->accept(*this);
+                        s4o.print(", &");
+                        IN2_param_value->accept(*this);
+                        s4o.print(")");
+                        return NULL;
+                        
+                    }
+                    
+                    if (typeid(*last_type_symbol) == typeid(time_type_name_c))
+                    {
+                
+                        symbol_c * return_type_symbol = &search_constant_type_c::tod_type_name;
+                        s4o.print("__time_sub(&");
+                        IN1_param_value->accept(*this);
+                        s4o.print(", &");
+                        IN2_param_value->accept(*this);
+                        s4o.print(")");
+                        return NULL;
+                        
+                    }
+                    
+                    ERROR;
+                }
+                
+            }
+            
+            if (typeid(*last_type_symbol) == typeid(time_type_name_c))
+            {
+        
+                {
+                    identifier_c param_name("IN2");
+                    /* Get the value from a foo(<param_name> = <param_value>) style call */
+                    symbol_c *IN2_param_value = function_call_param_iterator.search(&param_name);
+                    
+                    /* Get the value from a foo(<param_value>) style call */
+                    if (IN2_param_value == NULL)
+                      IN2_param_value = function_call_param_iterator.next();
+                    symbol_c *IN2_type_symbol = search_expression_type->get_type(IN2_param_value);
+                    last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN2_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN2_type_symbol, last_type_symbol) : IN2_type_symbol ;
+                    
+                    if (typeid(*last_type_symbol) == typeid(time_type_name_c))
+                    {
+                
+                        symbol_c * return_type_symbol = &search_constant_type_c::time_type_name;
+                        s4o.print("__time_sub(&");
+                        IN1_param_value->accept(*this);
+                        s4o.print(", &");
+                        IN2_param_value->accept(*this);
+                        s4o.print(")");
+                        return NULL;
+                        
+                    }
+                    
+                    ERROR;
+                }
+                
+            }
+            
+            ERROR;
+        }
+        
+    }/*function_sub*/
+    break;
 
 /****
  *DIV
  */
-	case function_div :
-	{
-		symbol_c *last_type_symbol = NULL;
-
-		{
-			identifier_c param_name("IN1");
-			/* Get the value from a foo(<param_name> = <param_value>) style call */
-			symbol_c *IN1_param_value = function_call_param_iterator.search(&param_name);
-			
-			/* Get the value from a foo(<param_value>) style call */
-			if (IN1_param_value == NULL)
-			  IN1_param_value = function_call_param_iterator.next();
-			symbol_c *IN1_type_symbol = search_expression_type->get_type(IN1_param_value);
-			last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN1_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN1_type_symbol, last_type_symbol) : IN1_type_symbol ;
-			
-			if(search_expression_type->is_num_type(IN1_type_symbol))
-			{
-		
-				{
-					identifier_c param_name("IN2");
-					/* Get the value from a foo(<param_name> = <param_value>) style call */
-					symbol_c *IN2_param_value = function_call_param_iterator.search(&param_name);
-					
-					/* Get the value from a foo(<param_value>) style call */
-					if (IN2_param_value == NULL)
-					  IN2_param_value = function_call_param_iterator.next();
-					symbol_c *IN2_type_symbol = search_expression_type->get_type(IN2_param_value);
-					last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN2_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN2_type_symbol, last_type_symbol) : IN2_type_symbol ;
-					
-					if(search_expression_type->is_num_type(IN2_type_symbol))
-					{
-				
-						symbol_c * return_type_symbol = last_type_symbol;
-						s4o.print("(");
-						IN1_param_value->accept(*this);
-						s4o.print("/");
-						IN2_param_value->accept(*this);
-						s4o.print(")");
-						return NULL;
-						
-					}
-					
-					ERROR;
-				}
-				
-			}
-			
-			if (typeid(*last_type_symbol) == typeid(time_type_name_c))
-			{
-		
-				{
-					identifier_c param_name("IN2");
-					/* Get the value from a foo(<param_name> = <param_value>) style call */
-					symbol_c *IN2_param_value = function_call_param_iterator.search(&param_name);
-					
-					/* Get the value from a foo(<param_value>) style call */
-					if (IN2_param_value == NULL)
-					  IN2_param_value = function_call_param_iterator.next();
-					symbol_c *IN2_type_symbol = search_expression_type->get_type(IN2_param_value);
-					last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN2_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN2_type_symbol, last_type_symbol) : IN2_type_symbol ;
-					
-					if(search_expression_type->is_num_type(IN2_type_symbol))
-					{
-				
-						symbol_c * return_type_symbol = &search_constant_type_c::time_type_name;
-						s4o.print("__time_div(&");
-						IN1_param_value->accept(*this);
-						s4o.print(", &");
-						IN2_param_value->accept(*this);
-						s4o.print(")");
-						return NULL;
-						
-					}
-					
-					ERROR;
-				}
-				
-			}
-			
-			ERROR;
-		}
-		
-	}/*function_div*/
-	break;
+    case function_div :
+    {
+        symbol_c *last_type_symbol = NULL;
+
+        {
+            identifier_c param_name("IN1");
+            /* Get the value from a foo(<param_name> = <param_value>) style call */
+            symbol_c *IN1_param_value = function_call_param_iterator.search(&param_name);
+            
+            /* Get the value from a foo(<param_value>) style call */
+            if (IN1_param_value == NULL)
+              IN1_param_value = function_call_param_iterator.next();
+            symbol_c *IN1_type_symbol = search_expression_type->get_type(IN1_param_value);
+            last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN1_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN1_type_symbol, last_type_symbol) : IN1_type_symbol ;
+            
+            if(search_expression_type->is_num_type(IN1_type_symbol))
+            {
+        
+                {
+                    identifier_c param_name("IN2");
+                    /* Get the value from a foo(<param_name> = <param_value>) style call */
+                    symbol_c *IN2_param_value = function_call_param_iterator.search(&param_name);
+                    
+                    /* Get the value from a foo(<param_value>) style call */
+                    if (IN2_param_value == NULL)
+                      IN2_param_value = function_call_param_iterator.next();
+                    symbol_c *IN2_type_symbol = search_expression_type->get_type(IN2_param_value);
+                    last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN2_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN2_type_symbol, last_type_symbol) : IN2_type_symbol ;
+                    
+                    if(search_expression_type->is_num_type(IN2_type_symbol))
+                    {
+                
+                        symbol_c * return_type_symbol = last_type_symbol;
+                        s4o.print("(");
+                        IN1_param_value->accept(*this);
+                        s4o.print("/");
+                        IN2_param_value->accept(*this);
+                        s4o.print(")");
+                        return NULL;
+                        
+                    }
+                    
+                    ERROR;
+                }
+                
+            }
+            
+            if (typeid(*last_type_symbol) == typeid(time_type_name_c))
+            {
+        
+                {
+                    identifier_c param_name("IN2");
+                    /* Get the value from a foo(<param_name> = <param_value>) style call */
+                    symbol_c *IN2_param_value = function_call_param_iterator.search(&param_name);
+                    
+                    /* Get the value from a foo(<param_value>) style call */
+                    if (IN2_param_value == NULL)
+                      IN2_param_value = function_call_param_iterator.next();
+                    symbol_c *IN2_type_symbol = search_expression_type->get_type(IN2_param_value);
+                    last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN2_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN2_type_symbol, last_type_symbol) : IN2_type_symbol ;
+                    
+                    if(search_expression_type->is_num_type(IN2_type_symbol))
+                    {
+                
+                        symbol_c * return_type_symbol = &search_constant_type_c::time_type_name;
+                        s4o.print("__time_div(&");
+                        IN1_param_value->accept(*this);
+                        s4o.print(", &");
+                        IN2_param_value->accept(*this);
+                        s4o.print(")");
+                        return NULL;
+                        
+                    }
+                    
+                    ERROR;
+                }
+                
+            }
+            
+            ERROR;
+        }
+        
+    }/*function_div*/
+    break;
 
 /****
  *MOD
  */
-	case function_mod :
-	{
-		symbol_c *last_type_symbol = NULL;
-
-		{
-			identifier_c param_name("IN1");
-			/* Get the value from a foo(<param_name> = <param_value>) style call */
-			symbol_c *IN1_param_value = function_call_param_iterator.search(&param_name);
-			
-			/* Get the value from a foo(<param_value>) style call */
-			if (IN1_param_value == NULL)
-			  IN1_param_value = function_call_param_iterator.next();
-			symbol_c *IN1_type_symbol = search_expression_type->get_type(IN1_param_value);
-			last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN1_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN1_type_symbol, last_type_symbol) : IN1_type_symbol ;
-			
-			if(search_expression_type->is_num_type(IN1_type_symbol))
-			{
-		
-				{
-					identifier_c param_name("IN2");
-					/* Get the value from a foo(<param_name> = <param_value>) style call */
-					symbol_c *IN2_param_value = function_call_param_iterator.search(&param_name);
-					
-					/* Get the value from a foo(<param_value>) style call */
-					if (IN2_param_value == NULL)
-					  IN2_param_value = function_call_param_iterator.next();
-					symbol_c *IN2_type_symbol = search_expression_type->get_type(IN2_param_value);
-					last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN2_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN2_type_symbol, last_type_symbol) : IN2_type_symbol ;
-					
-					if(search_expression_type->is_num_type(IN2_type_symbol))
-					{
-				
-						symbol_c * return_type_symbol = last_type_symbol;
-						s4o.print("(");
-						IN1_param_value->accept(*this);
-						s4o.print("%");
-						IN2_param_value->accept(*this);
-						s4o.print(")");
-						return NULL;
-						
-					}
-					
-					ERROR;
-				}
-				
-			}
-			
-			ERROR;
-		}
-		
-	}/*function_mod*/
-	break;
+    case function_mod :
+    {
+        symbol_c *last_type_symbol = NULL;
+
+        {
+            identifier_c param_name("IN1");
+            /* Get the value from a foo(<param_name> = <param_value>) style call */
+            symbol_c *IN1_param_value = function_call_param_iterator.search(&param_name);
+            
+            /* Get the value from a foo(<param_value>) style call */
+            if (IN1_param_value == NULL)
+              IN1_param_value = function_call_param_iterator.next();
+            symbol_c *IN1_type_symbol = search_expression_type->get_type(IN1_param_value);
+            last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN1_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN1_type_symbol, last_type_symbol) : IN1_type_symbol ;
+            
+            if(search_expression_type->is_num_type(IN1_type_symbol))
+            {
+        
+                {
+                    identifier_c param_name("IN2");
+                    /* Get the value from a foo(<param_name> = <param_value>) style call */
+                    symbol_c *IN2_param_value = function_call_param_iterator.search(&param_name);
+                    
+                    /* Get the value from a foo(<param_value>) style call */
+                    if (IN2_param_value == NULL)
+                      IN2_param_value = function_call_param_iterator.next();
+                    symbol_c *IN2_type_symbol = search_expression_type->get_type(IN2_param_value);
+                    last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN2_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN2_type_symbol, last_type_symbol) : IN2_type_symbol ;
+                    
+                    if(search_expression_type->is_num_type(IN2_type_symbol))
+                    {
+                
+                        symbol_c * return_type_symbol = last_type_symbol;
+                        s4o.print("(");
+                        IN1_param_value->accept(*this);
+                        s4o.print("%");
+                        IN2_param_value->accept(*this);
+                        s4o.print(")");
+                        return NULL;
+                        
+                    }
+                    
+                    ERROR;
+                }
+                
+            }
+            
+            ERROR;
+        }
+        
+    }/*function_mod*/
+    break;
 
 /****
  *EXPT
  */
-	case function_expt :
-	{
-		symbol_c *last_type_symbol = NULL;
-
-		{
-			identifier_c param_name("IN1");
-			/* Get the value from a foo(<param_name> = <param_value>) style call */
-			symbol_c *IN1_param_value = function_call_param_iterator.search(&param_name);
-			
-			/* Get the value from a foo(<param_value>) style call */
-			if (IN1_param_value == NULL)
-			  IN1_param_value = function_call_param_iterator.next();
-			symbol_c *IN1_type_symbol = search_expression_type->get_type(IN1_param_value);
-			last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN1_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN1_type_symbol, last_type_symbol) : IN1_type_symbol ;
-			
-			if(search_expression_type->is_num_type(IN1_type_symbol))
-			{
-		
-				{
-					identifier_c param_name("IN2");
-					/* Get the value from a foo(<param_name> = <param_value>) style call */
-					symbol_c *IN2_param_value = function_call_param_iterator.search(&param_name);
-					
-					/* Get the value from a foo(<param_value>) style call */
-					if (IN2_param_value == NULL)
-					  IN2_param_value = function_call_param_iterator.next();
-					symbol_c *IN2_type_symbol = search_expression_type->get_type(IN2_param_value);
-					last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN2_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN2_type_symbol, last_type_symbol) : IN2_type_symbol ;
-					
-					if(search_expression_type->is_num_type(IN2_type_symbol))
-					{
-				
-						symbol_c * return_type_symbol = last_type_symbol;
-						s4o.print("pow(&");
-						IN1_param_value->accept(*this);
-						s4o.print(", &");
-						IN2_param_value->accept(*this);
-						s4o.print(")");
-						return NULL;
-						
-					}
-					
-					ERROR;
-				}
-				
-			}
-			
-			ERROR;
-		}
-		
-	}/*function_expt*/
-	break;
+    case function_expt :
+    {
+        symbol_c *last_type_symbol = NULL;
+
+        {
+            identifier_c param_name("IN1");
+            /* Get the value from a foo(<param_name> = <param_value>) style call */
+            symbol_c *IN1_param_value = function_call_param_iterator.search(&param_name);
+            
+            /* Get the value from a foo(<param_value>) style call */
+            if (IN1_param_value == NULL)
+              IN1_param_value = function_call_param_iterator.next();
+            symbol_c *IN1_type_symbol = search_expression_type->get_type(IN1_param_value);
+            last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN1_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN1_type_symbol, last_type_symbol) : IN1_type_symbol ;
+            
+            if(search_expression_type->is_num_type(IN1_type_symbol))
+            {
+        
+                {
+                    identifier_c param_name("IN2");
+                    /* Get the value from a foo(<param_name> = <param_value>) style call */
+                    symbol_c *IN2_param_value = function_call_param_iterator.search(&param_name);
+                    
+                    /* Get the value from a foo(<param_value>) style call */
+                    if (IN2_param_value == NULL)
+                      IN2_param_value = function_call_param_iterator.next();
+                    symbol_c *IN2_type_symbol = search_expression_type->get_type(IN2_param_value);
+                    last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN2_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN2_type_symbol, last_type_symbol) : IN2_type_symbol ;
+                    
+                    if(search_expression_type->is_num_type(IN2_type_symbol))
+                    {
+                
+                        symbol_c * return_type_symbol = last_type_symbol;
+                        s4o.print("pow(&");
+                        IN1_param_value->accept(*this);
+                        s4o.print(", &");
+                        IN2_param_value->accept(*this);
+                        s4o.print(")");
+                        return NULL;
+                        
+                    }
+                    
+                    ERROR;
+                }
+                
+            }
+            
+            ERROR;
+        }
+        
+    }/*function_expt*/
+    break;
 
 /****
  *MOVE
  */
-	case function_move :
-	{
-		symbol_c *last_type_symbol = NULL;
-
-		{
-			identifier_c param_name("IN");
-			/* Get the value from a foo(<param_name> = <param_value>) style call */
-			symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
-			
-			/* Get the value from a foo(<param_value>) style call */
-			if (IN_param_value == NULL)
-			  IN_param_value = function_call_param_iterator.next();
-			symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
-			last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
-			
-			if(search_expression_type->is_num_type(IN_type_symbol))
-			{
-		
-				symbol_c * return_type_symbol = last_type_symbol;
-				IN_param_value->accept(*this);
-				return NULL;
-				
-			}
-			
-			ERROR;
-		}
-		
-	}/*function_move*/
-	break;
+    case function_move :
+    {
+        symbol_c *last_type_symbol = NULL;
+
+        {
+            identifier_c param_name("IN");
+            /* Get the value from a foo(<param_name> = <param_value>) style call */
+            symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
+            
+            /* Get the value from a foo(<param_value>) style call */
+            if (IN_param_value == NULL)
+              IN_param_value = function_call_param_iterator.next();
+            symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
+            last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
+            
+            if(search_expression_type->is_num_type(IN_type_symbol))
+            {
+        
+                symbol_c * return_type_symbol = last_type_symbol;
+                IN_param_value->accept(*this);
+                return NULL;
+                
+            }
+            
+            ERROR;
+        }
+        
+    }/*function_move*/
+    break;
 
 /****
  *SHL
  */
-	case function_shl :
-	{
-		symbol_c *last_type_symbol = NULL;
-
-		{
-			identifier_c param_name("IN");
-			/* Get the value from a foo(<param_name> = <param_value>) style call */
-			symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
-			
-			/* Get the value from a foo(<param_value>) style call */
-			if (IN_param_value == NULL)
-			  IN_param_value = function_call_param_iterator.next();
-			symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
-			last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
-			
-			if(search_expression_type->is_binary_type(IN_type_symbol))
-			{
-		
-				{
-					identifier_c param_name("N");
-					/* Get the value from a foo(<param_name> = <param_value>) style call */
-					symbol_c *N_param_value = function_call_param_iterator.search(&param_name);
-					
-					/* Get the value from a foo(<param_value>) style call */
-					if (N_param_value == NULL)
-					  N_param_value = function_call_param_iterator.next();
-					symbol_c *N_type_symbol = search_expression_type->get_type(N_param_value);
-					last_type_symbol = last_type_symbol && search_expression_type->is_same_type(N_type_symbol, last_type_symbol) ? search_expression_type->common_type(N_type_symbol, last_type_symbol) : N_type_symbol ;
-					
-					if (typeid(*last_type_symbol) == typeid(uint_type_name_c))
-					{
-				
-						symbol_c * return_type_symbol = IN_type_symbol;
-						IN_param_value->accept(*this);
-						s4o.print("<<");
-						N_param_value->accept(*this);
-						return NULL;
-						
-					}
-					
-					ERROR;
-				}
-				
-			}
-			
-			ERROR;
-		}
-		
-	}/*function_shl*/
-	break;
+    case function_shl :
+    {
+        symbol_c *last_type_symbol = NULL;
+
+        {
+            identifier_c param_name("IN");
+            /* Get the value from a foo(<param_name> = <param_value>) style call */
+            symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
+            
+            /* Get the value from a foo(<param_value>) style call */
+            if (IN_param_value == NULL)
+              IN_param_value = function_call_param_iterator.next();
+            symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
+            last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
+            
+            if(search_expression_type->is_binary_type(IN_type_symbol))
+            {
+        
+                {
+                    identifier_c param_name("N");
+                    /* Get the value from a foo(<param_name> = <param_value>) style call */
+                    symbol_c *N_param_value = function_call_param_iterator.search(&param_name);
+                    
+                    /* Get the value from a foo(<param_value>) style call */
+                    if (N_param_value == NULL)
+                      N_param_value = function_call_param_iterator.next();
+                    symbol_c *N_type_symbol = search_expression_type->get_type(N_param_value);
+                    last_type_symbol = last_type_symbol && search_expression_type->is_same_type(N_type_symbol, last_type_symbol) ? search_expression_type->common_type(N_type_symbol, last_type_symbol) : N_type_symbol ;
+                    
+                    if (typeid(*last_type_symbol) == typeid(uint_type_name_c))
+                    {
+                
+                        symbol_c * return_type_symbol = IN_type_symbol;
+                        IN_param_value->accept(*this);
+                        s4o.print("<<");
+                        N_param_value->accept(*this);
+                        return NULL;
+                        
+                    }
+                    
+                    ERROR;
+                }
+                
+            }
+            
+            ERROR;
+        }
+        
+    }/*function_shl*/
+    break;
 
 /****
  *SHR
  */
-	case function_shr :
-	{
-		symbol_c *last_type_symbol = NULL;
-
-		{
-			identifier_c param_name("IN");
-			/* Get the value from a foo(<param_name> = <param_value>) style call */
-			symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
-			
-			/* Get the value from a foo(<param_value>) style call */
-			if (IN_param_value == NULL)
-			  IN_param_value = function_call_param_iterator.next();
-			symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
-			last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
-			
-			if(search_expression_type->is_binary_type(IN_type_symbol))
-			{
-		
-				{
-					identifier_c param_name("N");
-					/* Get the value from a foo(<param_name> = <param_value>) style call */
-					symbol_c *N_param_value = function_call_param_iterator.search(&param_name);
-					
-					/* Get the value from a foo(<param_value>) style call */
-					if (N_param_value == NULL)
-					  N_param_value = function_call_param_iterator.next();
-					symbol_c *N_type_symbol = search_expression_type->get_type(N_param_value);
-					last_type_symbol = last_type_symbol && search_expression_type->is_same_type(N_type_symbol, last_type_symbol) ? search_expression_type->common_type(N_type_symbol, last_type_symbol) : N_type_symbol ;
-					
-					if (typeid(*last_type_symbol) == typeid(uint_type_name_c))
-					{
-				
-						symbol_c * return_type_symbol = IN_type_symbol;
-						IN_param_value->accept(*this);
-						s4o.print(">>");
-						N_param_value->accept(*this);
-						return NULL;
-						
-					}
-					
-					ERROR;
-				}
-				
-			}
-			
-			ERROR;
-		}
-		
-	}/*function_shr*/
-	break;
+    case function_shr :
+    {
+        symbol_c *last_type_symbol = NULL;
+
+        {
+            identifier_c param_name("IN");
+            /* Get the value from a foo(<param_name> = <param_value>) style call */
+            symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
+            
+            /* Get the value from a foo(<param_value>) style call */
+            if (IN_param_value == NULL)
+              IN_param_value = function_call_param_iterator.next();
+            symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
+            last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
+            
+            if(search_expression_type->is_binary_type(IN_type_symbol))
+            {
+        
+                {
+                    identifier_c param_name("N");
+                    /* Get the value from a foo(<param_name> = <param_value>) style call */
+                    symbol_c *N_param_value = function_call_param_iterator.search(&param_name);
+                    
+                    /* Get the value from a foo(<param_value>) style call */
+                    if (N_param_value == NULL)
+                      N_param_value = function_call_param_iterator.next();
+                    symbol_c *N_type_symbol = search_expression_type->get_type(N_param_value);
+                    last_type_symbol = last_type_symbol && search_expression_type->is_same_type(N_type_symbol, last_type_symbol) ? search_expression_type->common_type(N_type_symbol, last_type_symbol) : N_type_symbol ;
+                    
+                    if (typeid(*last_type_symbol) == typeid(uint_type_name_c))
+                    {
+                
+                        symbol_c * return_type_symbol = IN_type_symbol;
+                        IN_param_value->accept(*this);
+                        s4o.print(">>");
+                        N_param_value->accept(*this);
+                        return NULL;
+                        
+                    }
+                    
+                    ERROR;
+                }
+                
+            }
+            
+            ERROR;
+        }
+        
+    }/*function_shr*/
+    break;
 
 /****
  *ROR
  */
-	case function_ror :
-	{
-		symbol_c *last_type_symbol = NULL;
-
-		{
-			identifier_c param_name("IN");
-			/* Get the value from a foo(<param_name> = <param_value>) style call */
-			symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
-			
-			/* Get the value from a foo(<param_value>) style call */
-			if (IN_param_value == NULL)
-			  IN_param_value = function_call_param_iterator.next();
-			symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
-			last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
-			
-			if(search_expression_type->is_binary_type(IN_type_symbol))
-			{
-		
-				{
-					identifier_c param_name("N");
-					/* Get the value from a foo(<param_name> = <param_value>) style call */
-					symbol_c *N_param_value = function_call_param_iterator.search(&param_name);
-					
-					/* Get the value from a foo(<param_value>) style call */
-					if (N_param_value == NULL)
-					  N_param_value = function_call_param_iterator.next();
-					symbol_c *N_type_symbol = search_expression_type->get_type(N_param_value);
-					last_type_symbol = last_type_symbol && search_expression_type->is_same_type(N_type_symbol, last_type_symbol) ? search_expression_type->common_type(N_type_symbol, last_type_symbol) : N_type_symbol ;
-					
-					if (typeid(*last_type_symbol) == typeid(uint_type_name_c))
-					{
-				
-						symbol_c * return_type_symbol = IN_type_symbol;
-						s4o.print("__ror(sizeof(");
-						IN_type_symbol->accept(*this);
-						s4o.print("), &");
-						IN_param_value->accept(*this);
-						s4o.print(", ");
-						N_param_value->accept(*this);
-						s4o.print(")");
-						return NULL;
-						
-					}
-					
-					ERROR;
-				}
-				
-			}
-			
-			ERROR;
-		}
-		
-	}/*function_ror*/
-	break;
+    case function_ror :
+    {
+        symbol_c *last_type_symbol = NULL;
+
+        {
+            identifier_c param_name("IN");
+            /* Get the value from a foo(<param_name> = <param_value>) style call */
+            symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
+            
+            /* Get the value from a foo(<param_value>) style call */
+            if (IN_param_value == NULL)
+              IN_param_value = function_call_param_iterator.next();
+            symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
+            last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
+            
+            if(search_expression_type->is_binary_type(IN_type_symbol))
+            {
+        
+                {
+                    identifier_c param_name("N");
+                    /* Get the value from a foo(<param_name> = <param_value>) style call */
+                    symbol_c *N_param_value = function_call_param_iterator.search(&param_name);
+                    
+                    /* Get the value from a foo(<param_value>) style call */
+                    if (N_param_value == NULL)
+                      N_param_value = function_call_param_iterator.next();
+                    symbol_c *N_type_symbol = search_expression_type->get_type(N_param_value);
+                    last_type_symbol = last_type_symbol && search_expression_type->is_same_type(N_type_symbol, last_type_symbol) ? search_expression_type->common_type(N_type_symbol, last_type_symbol) : N_type_symbol ;
+                    
+                    if (typeid(*last_type_symbol) == typeid(uint_type_name_c))
+                    {
+                
+                        symbol_c * return_type_symbol = IN_type_symbol;
+                        s4o.print("__ror(sizeof(");
+                        IN_type_symbol->accept(*this);
+                        s4o.print("), &");
+                        IN_param_value->accept(*this);
+                        s4o.print(", ");
+                        N_param_value->accept(*this);
+                        s4o.print(")");
+                        return NULL;
+                        
+                    }
+                    
+                    ERROR;
+                }
+                
+            }
+            
+            ERROR;
+        }
+        
+    }/*function_ror*/
+    break;
 
 /****
  *ROL
  */
-	case function_rol :
-	{
-		symbol_c *last_type_symbol = NULL;
-
-		{
-			identifier_c param_name("IN");
-			/* Get the value from a foo(<param_name> = <param_value>) style call */
-			symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
-			
-			/* Get the value from a foo(<param_value>) style call */
-			if (IN_param_value == NULL)
-			  IN_param_value = function_call_param_iterator.next();
-			symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
-			last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
-			
-			if(search_expression_type->is_binary_type(IN_type_symbol))
-			{
-		
-				{
-					identifier_c param_name("N");
-					/* Get the value from a foo(<param_name> = <param_value>) style call */
-					symbol_c *N_param_value = function_call_param_iterator.search(&param_name);
-					
-					/* Get the value from a foo(<param_value>) style call */
-					if (N_param_value == NULL)
-					  N_param_value = function_call_param_iterator.next();
-					symbol_c *N_type_symbol = search_expression_type->get_type(N_param_value);
-					last_type_symbol = last_type_symbol && search_expression_type->is_same_type(N_type_symbol, last_type_symbol) ? search_expression_type->common_type(N_type_symbol, last_type_symbol) : N_type_symbol ;
-					
-					if (typeid(*last_type_symbol) == typeid(uint_type_name_c))
-					{
-				
-						symbol_c * return_type_symbol = IN_type_symbol;
-						s4o.print("__rol(sizeof(");
-						IN_type_symbol->accept(*this);
-						s4o.print("), &");
-						IN_param_value->accept(*this);
-						s4o.print(", ");
-						N_param_value->accept(*this);
-						s4o.print(")");
-						return NULL;
-						
-					}
-					
-					ERROR;
-				}
-				
-			}
-			
-			ERROR;
-		}
-		
-	}/*function_rol*/
-	break;
+    case function_rol :
+    {
+        symbol_c *last_type_symbol = NULL;
+
+        {
+            identifier_c param_name("IN");
+            /* Get the value from a foo(<param_name> = <param_value>) style call */
+            symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
+            
+            /* Get the value from a foo(<param_value>) style call */
+            if (IN_param_value == NULL)
+              IN_param_value = function_call_param_iterator.next();
+            symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
+            last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
+            
+            if(search_expression_type->is_binary_type(IN_type_symbol))
+            {
+        
+                {
+                    identifier_c param_name("N");
+                    /* Get the value from a foo(<param_name> = <param_value>) style call */
+                    symbol_c *N_param_value = function_call_param_iterator.search(&param_name);
+                    
+                    /* Get the value from a foo(<param_value>) style call */
+                    if (N_param_value == NULL)
+                      N_param_value = function_call_param_iterator.next();
+                    symbol_c *N_type_symbol = search_expression_type->get_type(N_param_value);
+                    last_type_symbol = last_type_symbol && search_expression_type->is_same_type(N_type_symbol, last_type_symbol) ? search_expression_type->common_type(N_type_symbol, last_type_symbol) : N_type_symbol ;
+                    
+                    if (typeid(*last_type_symbol) == typeid(uint_type_name_c))
+                    {
+                
+                        symbol_c * return_type_symbol = IN_type_symbol;
+                        s4o.print("__rol(sizeof(");
+                        IN_type_symbol->accept(*this);
+                        s4o.print("), &");
+                        IN_param_value->accept(*this);
+                        s4o.print(", ");
+                        N_param_value->accept(*this);
+                        s4o.print(")");
+                        return NULL;
+                        
+                    }
+                    
+                    ERROR;
+                }
+                
+            }
+            
+            ERROR;
+        }
+        
+    }/*function_rol*/
+    break;
 
 /****
  *AND
  */
-	case function_and :
-	{
-		symbol_c *last_type_symbol = NULL;
-
-		{
-			identifier_c param_name("IN1");
-			/* Get the value from a foo(<param_name> = <param_value>) style call */
-			symbol_c *IN1_param_value = function_call_param_iterator.search(&param_name);
-			
-			/* Get the value from a foo(<param_value>) style call */
-			if (IN1_param_value == NULL)
-			  IN1_param_value = function_call_param_iterator.next();
-			symbol_c *IN1_type_symbol = search_expression_type->get_type(IN1_param_value);
-			last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN1_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN1_type_symbol, last_type_symbol) : IN1_type_symbol ;
-			
-			if(search_expression_type->is_binary_type(IN1_type_symbol))
-			{
-		
-				{
-					identifier_c param_name("IN2");
-					/* Get the value from a foo(<param_name> = <param_value>) style call */
-					symbol_c *IN2_param_value = function_call_param_iterator.search(&param_name);
-					
-					/* Get the value from a foo(<param_value>) style call */
-					if (IN2_param_value == NULL)
-					  IN2_param_value = function_call_param_iterator.next();
-					symbol_c *IN2_type_symbol = search_expression_type->get_type(IN2_param_value);
-					last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN2_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN2_type_symbol, last_type_symbol) : IN2_type_symbol ;
-					
-					if(search_expression_type->is_binary_type(IN2_type_symbol))
-					{
-				
-						symbol_c * return_type_symbol = last_type_symbol;
-						s4o.print("(");
-						if (search_expression_type->is_bool_type(last_type_symbol))
-						  s4o.print("(");
-						IN1_param_value->accept(*this);
-						s4o.print("&");
-						IN2_param_value->accept(*this);
-						
-						int base_num = 3;
-						symbol_c *param_value = NULL;
-						do{
-							char my_name[10];
-							sprintf(my_name, "IN%d", base_num++);
-							identifier_c param_name(my_name);
-							
-							/* Get the value from a foo(<param_name> = <param_value>) style call */
-							param_value = function_call_param_iterator.search(&param_name);
-							
-							/* Get the value from a foo(<param_value>) style call */
-							if (param_value == NULL)
-							  param_value = function_call_param_iterator.next();
-							if (param_value != NULL){
-								symbol_c *current_type_symbol = search_expression_type->get_type(param_value);
-								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 ;
-							
-								/*Function specific CODE */
-								s4o.print("&");
-								param_value->accept(*this);
-								
-							}
-							
-						}while(param_value != NULL);
-						s4o.print(")");
-						if (search_expression_type->is_bool_type(last_type_symbol)) {
-						  s4o.print("&1");
-						  s4o.print(")");
-						}
-						s4o.print("");
-						return NULL;
-						
-						
-					}
-					
-					ERROR;
-				}
-				
-			}
-			
-			ERROR;
-		}
-		
-	}/*function_and*/
-	break;
+    case function_and :
+    {
+        symbol_c *last_type_symbol = NULL;
+
+        {
+            identifier_c param_name("IN1");
+            /* Get the value from a foo(<param_name> = <param_value>) style call */
+            symbol_c *IN1_param_value = function_call_param_iterator.search(&param_name);
+            
+            /* Get the value from a foo(<param_value>) style call */
+            if (IN1_param_value == NULL)
+              IN1_param_value = function_call_param_iterator.next();
+            symbol_c *IN1_type_symbol = search_expression_type->get_type(IN1_param_value);
+            last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN1_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN1_type_symbol, last_type_symbol) : IN1_type_symbol ;
+            
+            if(search_expression_type->is_binary_type(IN1_type_symbol))
+            {
+        
+                {
+                    identifier_c param_name("IN2");
+                    /* Get the value from a foo(<param_name> = <param_value>) style call */
+                    symbol_c *IN2_param_value = function_call_param_iterator.search(&param_name);
+                    
+                    /* Get the value from a foo(<param_value>) style call */
+                    if (IN2_param_value == NULL)
+                      IN2_param_value = function_call_param_iterator.next();
+                    symbol_c *IN2_type_symbol = search_expression_type->get_type(IN2_param_value);
+                    last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN2_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN2_type_symbol, last_type_symbol) : IN2_type_symbol ;
+                    
+                    if(search_expression_type->is_binary_type(IN2_type_symbol))
+                    {
+                
+                        symbol_c * return_type_symbol = last_type_symbol;
+                        s4o.print("(");
+                        if (search_expression_type->is_bool_type(last_type_symbol))
+                          s4o.print("(");
+                        IN1_param_value->accept(*this);
+                        s4o.print("&");
+                        IN2_param_value->accept(*this);
+                        
+                        int base_num = 3;
+                        symbol_c *param_value = NULL;
+                        do{
+                            char my_name[10];
+                            sprintf(my_name, "IN%d", base_num++);
+                            identifier_c param_name(my_name);
+                            
+                            /* Get the value from a foo(<param_name> = <param_value>) style call */
+                            param_value = function_call_param_iterator.search(&param_name);
+                            
+                            /* Get the value from a foo(<param_value>) style call */
+                            if (param_value == NULL)
+                              param_value = function_call_param_iterator.next();
+                            if (param_value != NULL){
+                                symbol_c *current_type_symbol = search_expression_type->get_type(param_value);
+                                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 ;
+                            
+                                /*Function specific CODE */
+                                s4o.print("&");
+                                param_value->accept(*this);
+                                
+                            }
+                            
+                        }while(param_value != NULL);
+                        s4o.print(")");
+                        if (search_expression_type->is_bool_type(last_type_symbol)) {
+                          s4o.print("&1");
+                          s4o.print(")");
+                        }
+                        s4o.print("");
+                        return NULL;
+                        
+                        
+                    }
+                    
+                    ERROR;
+                }
+                
+            }
+            
+            ERROR;
+        }
+        
+    }/*function_and*/
+    break;
 
 /****
  *OR
  */
-	case function_or :
-	{
-		symbol_c *last_type_symbol = NULL;
-
-		{
-			identifier_c param_name("IN1");
-			/* Get the value from a foo(<param_name> = <param_value>) style call */
-			symbol_c *IN1_param_value = function_call_param_iterator.search(&param_name);
-			
-			/* Get the value from a foo(<param_value>) style call */
-			if (IN1_param_value == NULL)
-			  IN1_param_value = function_call_param_iterator.next();
-			symbol_c *IN1_type_symbol = search_expression_type->get_type(IN1_param_value);
-			last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN1_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN1_type_symbol, last_type_symbol) : IN1_type_symbol ;
-			
-			if(search_expression_type->is_binary_type(IN1_type_symbol))
-			{
-		
-				{
-					identifier_c param_name("IN2");
-					/* Get the value from a foo(<param_name> = <param_value>) style call */
-					symbol_c *IN2_param_value = function_call_param_iterator.search(&param_name);
-					
-					/* Get the value from a foo(<param_value>) style call */
-					if (IN2_param_value == NULL)
-					  IN2_param_value = function_call_param_iterator.next();
-					symbol_c *IN2_type_symbol = search_expression_type->get_type(IN2_param_value);
-					last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN2_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN2_type_symbol, last_type_symbol) : IN2_type_symbol ;
-					
-					if(search_expression_type->is_binary_type(IN2_type_symbol))
-					{
-				
-						symbol_c * return_type_symbol = last_type_symbol;
-						s4o.print("(");
-						if (search_expression_type->is_bool_type(last_type_symbol))
-						  s4o.print("(");
-						IN1_param_value->accept(*this);
-						s4o.print("|");
-						IN2_param_value->accept(*this);
-						
-						int base_num = 3;
-						symbol_c *param_value = NULL;
-						do{
-							char my_name[10];
-							sprintf(my_name, "IN%d", base_num++);
-							identifier_c param_name(my_name);
-							
-							/* Get the value from a foo(<param_name> = <param_value>) style call */
-							param_value = function_call_param_iterator.search(&param_name);
-							
-							/* Get the value from a foo(<param_value>) style call */
-							if (param_value == NULL)
-							  param_value = function_call_param_iterator.next();
-							if (param_value != NULL){
-								symbol_c *current_type_symbol = search_expression_type->get_type(param_value);
-								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 ;
-							
-								/*Function specific CODE */
-								s4o.print("|");
-								param_value->accept(*this);
-								
-							}
-							
-						}while(param_value != NULL);
-						s4o.print(")");
-						if (search_expression_type->is_bool_type(last_type_symbol)) {
-						  s4o.print("&1");
-						  s4o.print(")");
-						}
-						s4o.print("");
-						return NULL;
-						
-						
-					}
-					
-					ERROR;
-				}
-				
-			}
-			
-			ERROR;
-		}
-		
-	}/*function_or*/
-	break;
+    case function_or :
+    {
+        symbol_c *last_type_symbol = NULL;
+
+        {
+            identifier_c param_name("IN1");
+            /* Get the value from a foo(<param_name> = <param_value>) style call */
+            symbol_c *IN1_param_value = function_call_param_iterator.search(&param_name);
+            
+            /* Get the value from a foo(<param_value>) style call */
+            if (IN1_param_value == NULL)
+              IN1_param_value = function_call_param_iterator.next();
+            symbol_c *IN1_type_symbol = search_expression_type->get_type(IN1_param_value);
+            last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN1_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN1_type_symbol, last_type_symbol) : IN1_type_symbol ;
+            
+            if(search_expression_type->is_binary_type(IN1_type_symbol))
+            {
+        
+                {
+                    identifier_c param_name("IN2");
+                    /* Get the value from a foo(<param_name> = <param_value>) style call */
+                    symbol_c *IN2_param_value = function_call_param_iterator.search(&param_name);
+                    
+                    /* Get the value from a foo(<param_value>) style call */
+                    if (IN2_param_value == NULL)
+                      IN2_param_value = function_call_param_iterator.next();
+                    symbol_c *IN2_type_symbol = search_expression_type->get_type(IN2_param_value);
+                    last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN2_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN2_type_symbol, last_type_symbol) : IN2_type_symbol ;
+                    
+                    if(search_expression_type->is_binary_type(IN2_type_symbol))
+                    {
+                
+                        symbol_c * return_type_symbol = last_type_symbol;
+                        s4o.print("(");
+                        if (search_expression_type->is_bool_type(last_type_symbol))
+                          s4o.print("(");
+                        IN1_param_value->accept(*this);
+                        s4o.print("|");
+                        IN2_param_value->accept(*this);
+                        
+                        int base_num = 3;
+                        symbol_c *param_value = NULL;
+                        do{
+                            char my_name[10];
+                            sprintf(my_name, "IN%d", base_num++);
+                            identifier_c param_name(my_name);
+                            
+                            /* Get the value from a foo(<param_name> = <param_value>) style call */
+                            param_value = function_call_param_iterator.search(&param_name);
+                            
+                            /* Get the value from a foo(<param_value>) style call */
+                            if (param_value == NULL)
+                              param_value = function_call_param_iterator.next();
+                            if (param_value != NULL){
+                                symbol_c *current_type_symbol = search_expression_type->get_type(param_value);
+                                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 ;
+                            
+                                /*Function specific CODE */
+                                s4o.print("|");
+                                param_value->accept(*this);
+                                
+                            }
+                            
+                        }while(param_value != NULL);
+                        s4o.print(")");
+                        if (search_expression_type->is_bool_type(last_type_symbol)) {
+                          s4o.print("&1");
+                          s4o.print(")");
+                        }
+                        s4o.print("");
+                        return NULL;
+                        
+                        
+                    }
+                    
+                    ERROR;
+                }
+                
+            }
+            
+            ERROR;
+        }
+        
+    }/*function_or*/
+    break;
 
 /****
  *XOR
  */
-	case function_xor :
-	{
-		symbol_c *last_type_symbol = NULL;
-
-		{
-			identifier_c param_name("IN1");
-			/* Get the value from a foo(<param_name> = <param_value>) style call */
-			symbol_c *IN1_param_value = function_call_param_iterator.search(&param_name);
-			
-			/* Get the value from a foo(<param_value>) style call */
-			if (IN1_param_value == NULL)
-			  IN1_param_value = function_call_param_iterator.next();
-			symbol_c *IN1_type_symbol = search_expression_type->get_type(IN1_param_value);
-			last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN1_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN1_type_symbol, last_type_symbol) : IN1_type_symbol ;
-			
-			if(search_expression_type->is_binary_type(IN1_type_symbol))
-			{
-		
-				{
-					identifier_c param_name("IN2");
-					/* Get the value from a foo(<param_name> = <param_value>) style call */
-					symbol_c *IN2_param_value = function_call_param_iterator.search(&param_name);
-					
-					/* Get the value from a foo(<param_value>) style call */
-					if (IN2_param_value == NULL)
-					  IN2_param_value = function_call_param_iterator.next();
-					symbol_c *IN2_type_symbol = search_expression_type->get_type(IN2_param_value);
-					last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN2_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN2_type_symbol, last_type_symbol) : IN2_type_symbol ;
-					
-					if(search_expression_type->is_binary_type(IN2_type_symbol))
-					{
-				
-						symbol_c * return_type_symbol = last_type_symbol;
-						s4o.print("(");
-						if (search_expression_type->is_bool_type(last_type_symbol))
-						  s4o.print("(");
-						IN1_param_value->accept(*this);
-						s4o.print("^");
-						IN2_param_value->accept(*this);
-						
-						int base_num = 3;
-						symbol_c *param_value = NULL;
-						do{
-							char my_name[10];
-							sprintf(my_name, "IN%d", base_num++);
-							identifier_c param_name(my_name);
-							
-							/* Get the value from a foo(<param_name> = <param_value>) style call */
-							param_value = function_call_param_iterator.search(&param_name);
-							
-							/* Get the value from a foo(<param_value>) style call */
-							if (param_value == NULL)
-							  param_value = function_call_param_iterator.next();
-							if (param_value != NULL){
-								symbol_c *current_type_symbol = search_expression_type->get_type(param_value);
-								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 ;
-							
-								/*Function specific CODE */
-								s4o.print("^");
-								param_value->accept(*this);
-								
-							}
-							
-						}while(param_value != NULL);
-						s4o.print(")");
-						if (search_expression_type->is_bool_type(last_type_symbol)) {
-						  s4o.print("&1");
-						  s4o.print(")");
-						}
-						s4o.print("");
-						return NULL;
-						
-						
-					}
-					
-					ERROR;
-				}
-				
-			}
-			
-			ERROR;
-		}
-		
-	}/*function_xor*/
-	break;
+    case function_xor :
+    {
+        symbol_c *last_type_symbol = NULL;
+
+        {
+            identifier_c param_name("IN1");
+            /* Get the value from a foo(<param_name> = <param_value>) style call */
+            symbol_c *IN1_param_value = function_call_param_iterator.search(&param_name);
+            
+            /* Get the value from a foo(<param_value>) style call */
+            if (IN1_param_value == NULL)
+              IN1_param_value = function_call_param_iterator.next();
+            symbol_c *IN1_type_symbol = search_expression_type->get_type(IN1_param_value);
+            last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN1_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN1_type_symbol, last_type_symbol) : IN1_type_symbol ;
+            
+            if(search_expression_type->is_binary_type(IN1_type_symbol))
+            {
+        
+                {
+                    identifier_c param_name("IN2");
+                    /* Get the value from a foo(<param_name> = <param_value>) style call */
+                    symbol_c *IN2_param_value = function_call_param_iterator.search(&param_name);
+                    
+                    /* Get the value from a foo(<param_value>) style call */
+                    if (IN2_param_value == NULL)
+                      IN2_param_value = function_call_param_iterator.next();
+                    symbol_c *IN2_type_symbol = search_expression_type->get_type(IN2_param_value);
+                    last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN2_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN2_type_symbol, last_type_symbol) : IN2_type_symbol ;
+                    
+                    if(search_expression_type->is_binary_type(IN2_type_symbol))
+                    {
+                
+                        symbol_c * return_type_symbol = last_type_symbol;
+                        s4o.print("(");
+                        if (search_expression_type->is_bool_type(last_type_symbol))
+                          s4o.print("(");
+                        IN1_param_value->accept(*this);
+                        s4o.print("^");
+                        IN2_param_value->accept(*this);
+                        
+                        int base_num = 3;
+                        symbol_c *param_value = NULL;
+                        do{
+                            char my_name[10];
+                            sprintf(my_name, "IN%d", base_num++);
+                            identifier_c param_name(my_name);
+                            
+                            /* Get the value from a foo(<param_name> = <param_value>) style call */
+                            param_value = function_call_param_iterator.search(&param_name);
+                            
+                            /* Get the value from a foo(<param_value>) style call */
+                            if (param_value == NULL)
+                              param_value = function_call_param_iterator.next();
+                            if (param_value != NULL){
+                                symbol_c *current_type_symbol = search_expression_type->get_type(param_value);
+                                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 ;
+                            
+                                /*Function specific CODE */
+                                s4o.print("^");
+                                param_value->accept(*this);
+                                
+                            }
+                            
+                        }while(param_value != NULL);
+                        s4o.print(")");
+                        if (search_expression_type->is_bool_type(last_type_symbol)) {
+                          s4o.print("&1");
+                          s4o.print(")");
+                        }
+                        s4o.print("");
+                        return NULL;
+                        
+                        
+                    }
+                    
+                    ERROR;
+                }
+                
+            }
+            
+            ERROR;
+        }
+        
+    }/*function_xor*/
+    break;
 
 /****
  *NOT
  */
-	case function_not :
-	{
-		symbol_c *last_type_symbol = NULL;
-
-		{
-			identifier_c param_name("IN");
-			/* Get the value from a foo(<param_name> = <param_value>) style call */
-			symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
-			
-			/* Get the value from a foo(<param_value>) style call */
-			if (IN_param_value == NULL)
-			  IN_param_value = function_call_param_iterator.next();
-			symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
-			last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
-			
-			if(search_expression_type->is_binary_type(IN_type_symbol))
-			{
-		
-				symbol_c * return_type_symbol = IN_type_symbol;
-				s4o.print("~");
-				IN_param_value->accept(*this);
-				return NULL;
-				
-			}
-			
-			ERROR;
-		}
-		
-	}/*function_not*/
-	break;
+    case function_not :
+    {
+        symbol_c *last_type_symbol = NULL;
+
+        {
+            identifier_c param_name("IN");
+            /* Get the value from a foo(<param_name> = <param_value>) style call */
+            symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
+            
+            /* Get the value from a foo(<param_value>) style call */
+            if (IN_param_value == NULL)
+              IN_param_value = function_call_param_iterator.next();
+            symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
+            last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
+            
+            if(search_expression_type->is_binary_type(IN_type_symbol))
+            {
+        
+                symbol_c * return_type_symbol = IN_type_symbol;
+                s4o.print("~");
+                IN_param_value->accept(*this);
+                return NULL;
+                
+            }
+            
+            ERROR;
+        }
+        
+    }/*function_not*/
+    break;
 
 /****
  *SEL
  */
-	case function_sel :
-	{
-		symbol_c *last_type_symbol = NULL;
-
-		{
-			identifier_c param_name("G");
-			/* Get the value from a foo(<param_name> = <param_value>) style call */
-			symbol_c *G_param_value = function_call_param_iterator.search(&param_name);
-			
-			/* Get the value from a foo(<param_value>) style call */
-			if (G_param_value == NULL)
-			  G_param_value = function_call_param_iterator.next();
-			symbol_c *G_type_symbol = search_expression_type->get_type(G_param_value);
-			last_type_symbol = last_type_symbol && search_expression_type->is_same_type(G_type_symbol, last_type_symbol) ? search_expression_type->common_type(G_type_symbol, last_type_symbol) : G_type_symbol ;
-			
-			if (typeid(*last_type_symbol) == typeid(bool_type_name_c))
-			{
-		
-				{
-					identifier_c param_name("IN0");
-					/* Get the value from a foo(<param_name> = <param_value>) style call */
-					symbol_c *IN0_param_value = function_call_param_iterator.search(&param_name);
-					
-					/* Get the value from a foo(<param_value>) style call */
-					if (IN0_param_value == NULL)
-					  IN0_param_value = function_call_param_iterator.next();
-					symbol_c *IN0_type_symbol = search_expression_type->get_type(IN0_param_value);
-					last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN0_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN0_type_symbol, last_type_symbol) : IN0_type_symbol ;
-					
-					
-					{
-				
-						{
-							identifier_c param_name("IN1");
-							/* Get the value from a foo(<param_name> = <param_value>) style call */
-							symbol_c *IN1_param_value = function_call_param_iterator.search(&param_name);
-							
-							/* Get the value from a foo(<param_value>) style call */
-							if (IN1_param_value == NULL)
-							  IN1_param_value = function_call_param_iterator.next();
-							symbol_c *IN1_type_symbol = search_expression_type->get_type(IN1_param_value);
-							last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN1_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN1_type_symbol, last_type_symbol) : IN1_type_symbol ;
-							
-							
-							{
-						
-								symbol_c * return_type_symbol = last_type_symbol;
-								G_param_value->accept(*this);
-								s4o.print(" ? ");
-								IN1_param_value->accept(*this);
-								s4o.print(" :  ");
-								IN0_param_value->accept(*this);
-								return NULL;
-								
-							}
-							
-							ERROR;
-						}
-						
-					}
-					
-					ERROR;
-				}
-				
-			}
-			
-			ERROR;
-		}
-		
-	}/*function_sel*/
-	break;
+    case function_sel :
+    {
+        symbol_c *last_type_symbol = NULL;
+
+        {
+            identifier_c param_name("G");
+            /* Get the value from a foo(<param_name> = <param_value>) style call */
+            symbol_c *G_param_value = function_call_param_iterator.search(&param_name);
+            
+            /* Get the value from a foo(<param_value>) style call */
+            if (G_param_value == NULL)
+              G_param_value = function_call_param_iterator.next();
+            symbol_c *G_type_symbol = search_expression_type->get_type(G_param_value);
+            last_type_symbol = last_type_symbol && search_expression_type->is_same_type(G_type_symbol, last_type_symbol) ? search_expression_type->common_type(G_type_symbol, last_type_symbol) : G_type_symbol ;
+            
+            if (typeid(*last_type_symbol) == typeid(bool_type_name_c))
+            {
+        
+                {
+                    identifier_c param_name("IN0");
+                    /* Get the value from a foo(<param_name> = <param_value>) style call */
+                    symbol_c *IN0_param_value = function_call_param_iterator.search(&param_name);
+                    
+                    /* Get the value from a foo(<param_value>) style call */
+                    if (IN0_param_value == NULL)
+                      IN0_param_value = function_call_param_iterator.next();
+                    symbol_c *IN0_type_symbol = search_expression_type->get_type(IN0_param_value);
+                    last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN0_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN0_type_symbol, last_type_symbol) : IN0_type_symbol ;
+                    
+                    
+                    {
+                
+                        {
+                            identifier_c param_name("IN1");
+                            /* Get the value from a foo(<param_name> = <param_value>) style call */
+                            symbol_c *IN1_param_value = function_call_param_iterator.search(&param_name);
+                            
+                            /* Get the value from a foo(<param_value>) style call */
+                            if (IN1_param_value == NULL)
+                              IN1_param_value = function_call_param_iterator.next();
+                            symbol_c *IN1_type_symbol = search_expression_type->get_type(IN1_param_value);
+                            last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN1_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN1_type_symbol, last_type_symbol) : IN1_type_symbol ;
+                            
+                            
+                            {
+                        
+                                symbol_c * return_type_symbol = last_type_symbol;
+                                G_param_value->accept(*this);
+                                s4o.print(" ? ");
+                                IN1_param_value->accept(*this);
+                                s4o.print(" :  ");
+                                IN0_param_value->accept(*this);
+                                return NULL;
+                                
+                            }
+                            
+                            ERROR;
+                        }
+                        
+                    }
+                    
+                    ERROR;
+                }
+                
+            }
+            
+            ERROR;
+        }
+        
+    }/*function_sel*/
+    break;
 
 /****
  *MAX
  */
-	case function_max :
-	{
-		symbol_c *last_type_symbol = NULL;
-
-		{
-			identifier_c param_name("IN1");
-			/* Get the value from a foo(<param_name> = <param_value>) style call */
-			symbol_c *IN1_param_value = function_call_param_iterator.search(&param_name);
-			
-			/* Get the value from a foo(<param_value>) style call */
-			if (IN1_param_value == NULL)
-			  IN1_param_value = function_call_param_iterator.next();
-			symbol_c *IN1_type_symbol = search_expression_type->get_type(IN1_param_value);
-			last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN1_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN1_type_symbol, last_type_symbol) : IN1_type_symbol ;
-			
-			
-			{
-		
-				{
-					identifier_c param_name("IN2");
-					/* Get the value from a foo(<param_name> = <param_value>) style call */
-					symbol_c *IN2_param_value = function_call_param_iterator.search(&param_name);
-					
-					/* Get the value from a foo(<param_value>) style call */
-					if (IN2_param_value == NULL)
-					  IN2_param_value = function_call_param_iterator.next();
-					symbol_c *IN2_type_symbol = search_expression_type->get_type(IN2_param_value);
-					last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN2_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN2_type_symbol, last_type_symbol) : IN2_type_symbol ;
-					
-					
-					{
-				
-						symbol_c * return_type_symbol = last_type_symbol;
-						s4o.print("__max_");
-						return_type_symbol->accept(*this);
-						s4o.print("(");
-						s4o.print_integer(nb_param);
-						s4o.print(",");
-						IN1_param_value->accept(*this);
-						s4o.print(",");
-						IN2_param_value->accept(*this);
-						
-						int base_num = 3;
-						symbol_c *param_value = NULL;
-						do{
-							char my_name[10];
-							sprintf(my_name, "IN%d", base_num++);
-							identifier_c param_name(my_name);
-							
-							/* Get the value from a foo(<param_name> = <param_value>) style call */
-							param_value = function_call_param_iterator.search(&param_name);
-							
-							/* Get the value from a foo(<param_value>) style call */
-							if (param_value == NULL)
-							  param_value = function_call_param_iterator.next();
-							if (param_value != NULL){
-								symbol_c *current_type_symbol = search_expression_type->get_type(param_value);
-								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 ;
-							
-								/*Function specific CODE */
-								s4o.print(",");
-								param_value->accept(*this);
-								
-							}
-							
-						}while(param_value != NULL);
-						s4o.print(")");
-						return NULL;
-						
-						
-					}
-					
-					ERROR;
-				}
-				
-			}
-			
-			ERROR;
-		}
-		
-	}/*function_max*/
-	break;
+    case function_max :
+    {
+        symbol_c *last_type_symbol = NULL;
+
+        {
+            identifier_c param_name("IN1");
+            /* Get the value from a foo(<param_name> = <param_value>) style call */
+            symbol_c *IN1_param_value = function_call_param_iterator.search(&param_name);
+            
+            /* Get the value from a foo(<param_value>) style call */
+            if (IN1_param_value == NULL)
+              IN1_param_value = function_call_param_iterator.next();
+            symbol_c *IN1_type_symbol = search_expression_type->get_type(IN1_param_value);
+            last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN1_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN1_type_symbol, last_type_symbol) : IN1_type_symbol ;
+            
+            
+            {
+        
+                {
+                    identifier_c param_name("IN2");
+                    /* Get the value from a foo(<param_name> = <param_value>) style call */
+                    symbol_c *IN2_param_value = function_call_param_iterator.search(&param_name);
+                    
+                    /* Get the value from a foo(<param_value>) style call */
+                    if (IN2_param_value == NULL)
+                      IN2_param_value = function_call_param_iterator.next();
+                    symbol_c *IN2_type_symbol = search_expression_type->get_type(IN2_param_value);
+                    last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN2_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN2_type_symbol, last_type_symbol) : IN2_type_symbol ;
+                    
+                    
+                    {
+                
+                        symbol_c * return_type_symbol = last_type_symbol;
+                        s4o.print("__max_");
+                        return_type_symbol->accept(*this);
+                        s4o.print("(");
+                        s4o.print_integer(nb_param);
+                        s4o.print(",");
+                        IN1_param_value->accept(*this);
+                        s4o.print(",");
+                        IN2_param_value->accept(*this);
+                        
+                        int base_num = 3;
+                        symbol_c *param_value = NULL;
+                        do{
+                            char my_name[10];
+                            sprintf(my_name, "IN%d", base_num++);
+                            identifier_c param_name(my_name);
+                            
+                            /* Get the value from a foo(<param_name> = <param_value>) style call */
+                            param_value = function_call_param_iterator.search(&param_name);
+                            
+                            /* Get the value from a foo(<param_value>) style call */
+                            if (param_value == NULL)
+                              param_value = function_call_param_iterator.next();
+                            if (param_value != NULL){
+                                symbol_c *current_type_symbol = search_expression_type->get_type(param_value);
+                                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 ;
+                            
+                                /*Function specific CODE */
+                                s4o.print(",");
+                                param_value->accept(*this);
+                                
+                            }
+                            
+                        }while(param_value != NULL);
+                        s4o.print(")");
+                        return NULL;
+                        
+                        
+                    }
+                    
+                    ERROR;
+                }
+                
+            }
+            
+            ERROR;
+        }
+        
+    }/*function_max*/
+    break;
 
 /****
  *MIN
  */
-	case function_min :
-	{
-		symbol_c *last_type_symbol = NULL;
-
-		{
-			identifier_c param_name("IN1");
-			/* Get the value from a foo(<param_name> = <param_value>) style call */
-			symbol_c *IN1_param_value = function_call_param_iterator.search(&param_name);
-			
-			/* Get the value from a foo(<param_value>) style call */
-			if (IN1_param_value == NULL)
-			  IN1_param_value = function_call_param_iterator.next();
-			symbol_c *IN1_type_symbol = search_expression_type->get_type(IN1_param_value);
-			last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN1_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN1_type_symbol, last_type_symbol) : IN1_type_symbol ;
-			
-			
-			{
-		
-				{
-					identifier_c param_name("IN2");
-					/* Get the value from a foo(<param_name> = <param_value>) style call */
-					symbol_c *IN2_param_value = function_call_param_iterator.search(&param_name);
-					
-					/* Get the value from a foo(<param_value>) style call */
-					if (IN2_param_value == NULL)
-					  IN2_param_value = function_call_param_iterator.next();
-					symbol_c *IN2_type_symbol = search_expression_type->get_type(IN2_param_value);
-					last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN2_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN2_type_symbol, last_type_symbol) : IN2_type_symbol ;
-					
-					
-					{
-				
-						symbol_c * return_type_symbol = last_type_symbol;
-						s4o.print("__min_");
-						return_type_symbol->accept(*this);
-						s4o.print("(");
-						s4o.print_integer(nb_param);
-						s4o.print(",");
-						IN1_param_value->accept(*this);
-						s4o.print(",");
-						IN2_param_value->accept(*this);
-						
-						int base_num = 3;
-						symbol_c *param_value = NULL;
-						do{
-							char my_name[10];
-							sprintf(my_name, "IN%d", base_num++);
-							identifier_c param_name(my_name);
-							
-							/* Get the value from a foo(<param_name> = <param_value>) style call */
-							param_value = function_call_param_iterator.search(&param_name);
-							
-							/* Get the value from a foo(<param_value>) style call */
-							if (param_value == NULL)
-							  param_value = function_call_param_iterator.next();
-							if (param_value != NULL){
-								symbol_c *current_type_symbol = search_expression_type->get_type(param_value);
-								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 ;
-							
-								/*Function specific CODE */
-								s4o.print(",");
-								param_value->accept(*this);
-								
-							}
-							
-						}while(param_value != NULL);
-						s4o.print(")");
-						return NULL;
-						
-						
-					}
-					
-					ERROR;
-				}
-				
-			}
-			
-			ERROR;
-		}
-		
-	}/*function_min*/
-	break;
+    case function_min :
+    {
+        symbol_c *last_type_symbol = NULL;
+
+        {
+            identifier_c param_name("IN1");
+            /* Get the value from a foo(<param_name> = <param_value>) style call */
+            symbol_c *IN1_param_value = function_call_param_iterator.search(&param_name);
+            
+            /* Get the value from a foo(<param_value>) style call */
+            if (IN1_param_value == NULL)
+              IN1_param_value = function_call_param_iterator.next();
+            symbol_c *IN1_type_symbol = search_expression_type->get_type(IN1_param_value);
+            last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN1_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN1_type_symbol, last_type_symbol) : IN1_type_symbol ;
+            
+            
+            {
+        
+                {
+                    identifier_c param_name("IN2");
+                    /* Get the value from a foo(<param_name> = <param_value>) style call */
+                    symbol_c *IN2_param_value = function_call_param_iterator.search(&param_name);
+                    
+                    /* Get the value from a foo(<param_value>) style call */
+                    if (IN2_param_value == NULL)
+                      IN2_param_value = function_call_param_iterator.next();
+                    symbol_c *IN2_type_symbol = search_expression_type->get_type(IN2_param_value);
+                    last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN2_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN2_type_symbol, last_type_symbol) : IN2_type_symbol ;
+                    
+                    
+                    {
+                
+                        symbol_c * return_type_symbol = last_type_symbol;
+                        s4o.print("__min_");
+                        return_type_symbol->accept(*this);
+                        s4o.print("(");
+                        s4o.print_integer(nb_param);
+                        s4o.print(",");
+                        IN1_param_value->accept(*this);
+                        s4o.print(",");
+                        IN2_param_value->accept(*this);
+                        
+                        int base_num = 3;
+                        symbol_c *param_value = NULL;
+                        do{
+                            char my_name[10];
+                            sprintf(my_name, "IN%d", base_num++);
+                            identifier_c param_name(my_name);
+                            
+                            /* Get the value from a foo(<param_name> = <param_value>) style call */
+                            param_value = function_call_param_iterator.search(&param_name);
+                            
+                            /* Get the value from a foo(<param_value>) style call */
+                            if (param_value == NULL)
+                              param_value = function_call_param_iterator.next();
+                            if (param_value != NULL){
+                                symbol_c *current_type_symbol = search_expression_type->get_type(param_value);
+                                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 ;
+                            
+                                /*Function specific CODE */
+                                s4o.print(",");
+                                param_value->accept(*this);
+                                
+                            }
+                            
+                        }while(param_value != NULL);
+                        s4o.print(")");
+                        return NULL;
+                        
+                        
+                    }
+                    
+                    ERROR;
+                }
+                
+            }
+            
+            ERROR;
+        }
+        
+    }/*function_min*/
+    break;
 
 /****
  *LIMIT
  */
-	case function_limit :
-	{
-		symbol_c *last_type_symbol = NULL;
-
-		{
-			identifier_c param_name("MN");
-			/* Get the value from a foo(<param_name> = <param_value>) style call */
-			symbol_c *MN_param_value = function_call_param_iterator.search(&param_name);
-			
-			/* Get the value from a foo(<param_value>) style call */
-			if (MN_param_value == NULL)
-			  MN_param_value = function_call_param_iterator.next();
-			symbol_c *MN_type_symbol = search_expression_type->get_type(MN_param_value);
-			last_type_symbol = last_type_symbol && search_expression_type->is_same_type(MN_type_symbol, last_type_symbol) ? search_expression_type->common_type(MN_type_symbol, last_type_symbol) : MN_type_symbol ;
-			
-			
-			{
-		
-				{
-					identifier_c param_name("IN");
-					/* Get the value from a foo(<param_name> = <param_value>) style call */
-					symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
-					
-					/* Get the value from a foo(<param_value>) style call */
-					if (IN_param_value == NULL)
-					  IN_param_value = function_call_param_iterator.next();
-					symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
-					last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
-					
-					
-					{
-				
-						{
-							identifier_c param_name("MX");
-							/* Get the value from a foo(<param_name> = <param_value>) style call */
-							symbol_c *MX_param_value = function_call_param_iterator.search(&param_name);
-							
-							/* Get the value from a foo(<param_value>) style call */
-							if (MX_param_value == NULL)
-							  MX_param_value = function_call_param_iterator.next();
-							symbol_c *MX_type_symbol = search_expression_type->get_type(MX_param_value);
-							last_type_symbol = last_type_symbol && search_expression_type->is_same_type(MX_type_symbol, last_type_symbol) ? search_expression_type->common_type(MX_type_symbol, last_type_symbol) : MX_type_symbol ;
-							
-							
-							{
-						
-								symbol_c * return_type_symbol = IN_type_symbol;
-								s4o.print("__limit_");
-								IN_type_symbol->accept(*this);
-								s4o.print("(");
-								MN_param_value->accept(*this);
-								s4o.print(", ");
-								IN_param_value->accept(*this);
-								s4o.print(", ");
-								MX_param_value->accept(*this);
-								s4o.print(")");
-								return NULL;
-								
-							}
-							
-							ERROR;
-						}
-						
-					}
-					
-					ERROR;
-				}
-				
-			}
-			
-			ERROR;
-		}
-		
-	}/*function_limit*/
-	break;
+    case function_limit :
+    {
+        symbol_c *last_type_symbol = NULL;
+
+        {
+            identifier_c param_name("MN");
+            /* Get the value from a foo(<param_name> = <param_value>) style call */
+            symbol_c *MN_param_value = function_call_param_iterator.search(&param_name);
+            
+            /* Get the value from a foo(<param_value>) style call */
+            if (MN_param_value == NULL)
+              MN_param_value = function_call_param_iterator.next();
+            symbol_c *MN_type_symbol = search_expression_type->get_type(MN_param_value);
+            last_type_symbol = last_type_symbol && search_expression_type->is_same_type(MN_type_symbol, last_type_symbol) ? search_expression_type->common_type(MN_type_symbol, last_type_symbol) : MN_type_symbol ;
+            
+            
+            {
+        
+                {
+                    identifier_c param_name("IN");
+                    /* Get the value from a foo(<param_name> = <param_value>) style call */
+                    symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
+                    
+                    /* Get the value from a foo(<param_value>) style call */
+                    if (IN_param_value == NULL)
+                      IN_param_value = function_call_param_iterator.next();
+                    symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
+                    last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
+                    
+                    
+                    {
+                
+                        {
+                            identifier_c param_name("MX");
+                            /* Get the value from a foo(<param_name> = <param_value>) style call */
+                            symbol_c *MX_param_value = function_call_param_iterator.search(&param_name);
+                            
+                            /* Get the value from a foo(<param_value>) style call */
+                            if (MX_param_value == NULL)
+                              MX_param_value = function_call_param_iterator.next();
+                            symbol_c *MX_type_symbol = search_expression_type->get_type(MX_param_value);
+                            last_type_symbol = last_type_symbol && search_expression_type->is_same_type(MX_type_symbol, last_type_symbol) ? search_expression_type->common_type(MX_type_symbol, last_type_symbol) : MX_type_symbol ;
+                            
+                            
+                            {
+                        
+                                symbol_c * return_type_symbol = IN_type_symbol;
+                                s4o.print("__limit_");
+                                IN_type_symbol->accept(*this);
+                                s4o.print("(");
+                                MN_param_value->accept(*this);
+                                s4o.print(", ");
+                                IN_param_value->accept(*this);
+                                s4o.print(", ");
+                                MX_param_value->accept(*this);
+                                s4o.print(")");
+                                return NULL;
+                                
+                            }
+                            
+                            ERROR;
+                        }
+                        
+                    }
+                    
+                    ERROR;
+                }
+                
+            }
+            
+            ERROR;
+        }
+        
+    }/*function_limit*/
+    break;
 
 /****
  *MUX
  */
-	case function_mux :
-	{
-		symbol_c *last_type_symbol = NULL;
-
-		{
-			identifier_c param_name("K");
-			/* Get the value from a foo(<param_name> = <param_value>) style call */
-			symbol_c *K_param_value = function_call_param_iterator.search(&param_name);
-			
-			/* Get the value from a foo(<param_value>) style call */
-			if (K_param_value == NULL)
-			  K_param_value = function_call_param_iterator.next();
-			symbol_c *K_type_symbol = search_expression_type->get_type(K_param_value);
-			last_type_symbol = last_type_symbol && search_expression_type->is_same_type(K_type_symbol, last_type_symbol) ? search_expression_type->common_type(K_type_symbol, last_type_symbol) : K_type_symbol ;
-			
-			if(search_expression_type->is_integer_type(K_type_symbol))
-			{
-		
-				{
-					identifier_c param_name("IN0");
-					/* Get the value from a foo(<param_name> = <param_value>) style call */
-					symbol_c *IN0_param_value = function_call_param_iterator.search(&param_name);
-					
-					/* Get the value from a foo(<param_value>) style call */
-					if (IN0_param_value == NULL)
-					  IN0_param_value = function_call_param_iterator.next();
-					symbol_c *IN0_type_symbol = search_expression_type->get_type(IN0_param_value);
-					last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN0_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN0_type_symbol, last_type_symbol) : IN0_type_symbol ;
-					
-					
-					{
-				
-						{
-							identifier_c param_name("IN1");
-							/* Get the value from a foo(<param_name> = <param_value>) style call */
-							symbol_c *IN1_param_value = function_call_param_iterator.search(&param_name);
-							
-							/* Get the value from a foo(<param_value>) style call */
-							if (IN1_param_value == NULL)
-							  IN1_param_value = function_call_param_iterator.next();
-							symbol_c *IN1_type_symbol = search_expression_type->get_type(IN1_param_value);
-							last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN1_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN1_type_symbol, last_type_symbol) : IN1_type_symbol ;
-							
-							
-							{
-						
-								symbol_c * return_type_symbol = last_type_symbol;
-								s4o.print("__mux_");
-								return_type_symbol->accept(*this);
-								s4o.print("(");
-								s4o.print_integer(nb_param);
-								s4o.print(",");
-								K_param_value->accept(*this);
-								s4o.print(",");
-								IN0_param_value->accept(*this);
-								s4o.print(",");
-								IN1_param_value->accept(*this);
-								
-								int base_num = 2;
-								symbol_c *param_value = NULL;
-								do{
-									char my_name[10];
-									sprintf(my_name, "IN%d", base_num++);
-									identifier_c param_name(my_name);
-									
-									/* Get the value from a foo(<param_name> = <param_value>) style call */
-									param_value = function_call_param_iterator.search(&param_name);
-									
-									/* Get the value from a foo(<param_value>) style call */
-									if (param_value == NULL)
-									  param_value = function_call_param_iterator.next();
-									if (param_value != NULL){
-										symbol_c *current_type_symbol = search_expression_type->get_type(param_value);
-										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 ;
-									
-										/*Function specific CODE */
-										s4o.print(",");
-										param_value->accept(*this);
-										
-									}
-									
-								}while(param_value != NULL);
-								s4o.print(")");
-								return NULL;
-								
-								
-							}
-							
-							ERROR;
-						}
-						
-					}
-					
-					ERROR;
-				}
-				
-			}
-			
-			ERROR;
-		}
-		
-	}/*function_mux*/
-	break;
+    case function_mux :
+    {
+        symbol_c *last_type_symbol = NULL;
+
+        {
+            identifier_c param_name("K");
+            /* Get the value from a foo(<param_name> = <param_value>) style call */
+            symbol_c *K_param_value = function_call_param_iterator.search(&param_name);
+            
+            /* Get the value from a foo(<param_value>) style call */
+            if (K_param_value == NULL)
+              K_param_value = function_call_param_iterator.next();
+            symbol_c *K_type_symbol = search_expression_type->get_type(K_param_value);
+            last_type_symbol = last_type_symbol && search_expression_type->is_same_type(K_type_symbol, last_type_symbol) ? search_expression_type->common_type(K_type_symbol, last_type_symbol) : K_type_symbol ;
+            
+            if(search_expression_type->is_integer_type(K_type_symbol))
+            {
+        
+                {
+                    identifier_c param_name("IN0");
+                    /* Get the value from a foo(<param_name> = <param_value>) style call */
+                    symbol_c *IN0_param_value = function_call_param_iterator.search(&param_name);
+                    
+                    /* Get the value from a foo(<param_value>) style call */
+                    if (IN0_param_value == NULL)
+                      IN0_param_value = function_call_param_iterator.next();
+                    symbol_c *IN0_type_symbol = search_expression_type->get_type(IN0_param_value);
+                    last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN0_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN0_type_symbol, last_type_symbol) : IN0_type_symbol ;
+                    
+                    
+                    {
+                
+                        {
+                            identifier_c param_name("IN1");
+                            /* Get the value from a foo(<param_name> = <param_value>) style call */
+                            symbol_c *IN1_param_value = function_call_param_iterator.search(&param_name);
+                            
+                            /* Get the value from a foo(<param_value>) style call */
+                            if (IN1_param_value == NULL)
+                              IN1_param_value = function_call_param_iterator.next();
+                            symbol_c *IN1_type_symbol = search_expression_type->get_type(IN1_param_value);
+                            last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN1_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN1_type_symbol, last_type_symbol) : IN1_type_symbol ;
+                            
+                            
+                            {
+                        
+                                symbol_c * return_type_symbol = last_type_symbol;
+                                s4o.print("__mux_");
+                                return_type_symbol->accept(*this);
+                                s4o.print("(");
+                                s4o.print_integer(nb_param);
+                                s4o.print(",");
+                                K_param_value->accept(*this);
+                                s4o.print(",");
+                                IN0_param_value->accept(*this);
+                                s4o.print(",");
+                                IN1_param_value->accept(*this);
+                                
+                                int base_num = 2;
+                                symbol_c *param_value = NULL;
+                                do{
+                                    char my_name[10];
+                                    sprintf(my_name, "IN%d", base_num++);
+                                    identifier_c param_name(my_name);
+                                    
+                                    /* Get the value from a foo(<param_name> = <param_value>) style call */
+                                    param_value = function_call_param_iterator.search(&param_name);
+                                    
+                                    /* Get the value from a foo(<param_value>) style call */
+                                    if (param_value == NULL)
+                                      param_value = function_call_param_iterator.next();
+                                    if (param_value != NULL){
+                                        symbol_c *current_type_symbol = search_expression_type->get_type(param_value);
+                                        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 ;
+                                    
+                                        /*Function specific CODE */
+                                        s4o.print(",");
+                                        param_value->accept(*this);
+                                        
+                                    }
+                                    
+                                }while(param_value != NULL);
+                                s4o.print(")");
+                                return NULL;
+                                
+                                
+                            }
+                            
+                            ERROR;
+                        }
+                        
+                    }
+                    
+                    ERROR;
+                }
+                
+            }
+            
+            ERROR;
+        }
+        
+    }/*function_mux*/
+    break;
 
 /****
  *GT
  */
-	case function_gt :
-	{
-		symbol_c *last_type_symbol = NULL;
-
-		{
-			identifier_c param_name("IN1");
-			/* Get the value from a foo(<param_name> = <param_value>) style call */
-			symbol_c *IN1_param_value = function_call_param_iterator.search(&param_name);
-			
-			/* Get the value from a foo(<param_value>) style call */
-			if (IN1_param_value == NULL)
-			  IN1_param_value = function_call_param_iterator.next();
-			symbol_c *IN1_type_symbol = search_expression_type->get_type(IN1_param_value);
-			last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN1_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN1_type_symbol, last_type_symbol) : IN1_type_symbol ;
-			
-			
-			{
-		
-				{
-					identifier_c param_name("IN2");
-					/* Get the value from a foo(<param_name> = <param_value>) style call */
-					symbol_c *IN2_param_value = function_call_param_iterator.search(&param_name);
-					
-					/* Get the value from a foo(<param_value>) style call */
-					if (IN2_param_value == NULL)
-					  IN2_param_value = function_call_param_iterator.next();
-					symbol_c *IN2_type_symbol = search_expression_type->get_type(IN2_param_value);
-					last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN2_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN2_type_symbol, last_type_symbol) : IN2_type_symbol ;
-					
-					
-					{
-				
-						symbol_c * return_type_symbol = &search_constant_type_c::bool_type_name;
-						s4o.print("__gt_");
-						return_type_symbol->accept(*this);
-						s4o.print("(");
-						s4o.print_integer(nb_param);
-						s4o.print(",");
-						IN1_param_value->accept(*this);
-						s4o.print(",");
-						IN2_param_value->accept(*this);
-						
-						int base_num = 3;
-						symbol_c *param_value = NULL;
-						do{
-							char my_name[10];
-							sprintf(my_name, "IN%d", base_num++);
-							identifier_c param_name(my_name);
-							
-							/* Get the value from a foo(<param_name> = <param_value>) style call */
-							param_value = function_call_param_iterator.search(&param_name);
-							
-							/* Get the value from a foo(<param_value>) style call */
-							if (param_value == NULL)
-							  param_value = function_call_param_iterator.next();
-							if (param_value != NULL){
-								symbol_c *current_type_symbol = search_expression_type->get_type(param_value);
-								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 ;
-							
-								/*Function specific CODE */
-								s4o.print(",");
-								param_value->accept(*this);
-								
-							}
-							
-						}while(param_value != NULL);
-						s4o.print(")");
-						return NULL;
-						
-						
-					}
-					
-					ERROR;
-				}
-				
-			}
-			
-			ERROR;
-		}
-		
-	}/*function_gt*/
-	break;
+    case function_gt :
+    {
+        symbol_c *last_type_symbol = NULL;
+
+        {
+            identifier_c param_name("IN1");
+            /* Get the value from a foo(<param_name> = <param_value>) style call */
+            symbol_c *IN1_param_value = function_call_param_iterator.search(&param_name);
+            
+            /* Get the value from a foo(<param_value>) style call */
+            if (IN1_param_value == NULL)
+              IN1_param_value = function_call_param_iterator.next();
+            symbol_c *IN1_type_symbol = search_expression_type->get_type(IN1_param_value);
+            last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN1_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN1_type_symbol, last_type_symbol) : IN1_type_symbol ;
+            
+            
+            {
+        
+                {
+                    identifier_c param_name("IN2");
+                    /* Get the value from a foo(<param_name> = <param_value>) style call */
+                    symbol_c *IN2_param_value = function_call_param_iterator.search(&param_name);
+                    
+                    /* Get the value from a foo(<param_value>) style call */
+                    if (IN2_param_value == NULL)
+                      IN2_param_value = function_call_param_iterator.next();
+                    symbol_c *IN2_type_symbol = search_expression_type->get_type(IN2_param_value);
+                    last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN2_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN2_type_symbol, last_type_symbol) : IN2_type_symbol ;
+                    
+                    
+                    {
+                
+                        symbol_c * return_type_symbol = &search_constant_type_c::bool_type_name;
+                        s4o.print("__gt_");
+                        return_type_symbol->accept(*this);
+                        s4o.print("(");
+                        s4o.print_integer(nb_param);
+                        s4o.print(",");
+                        IN1_param_value->accept(*this);
+                        s4o.print(",");
+                        IN2_param_value->accept(*this);
+                        
+                        int base_num = 3;
+                        symbol_c *param_value = NULL;
+                        do{
+                            char my_name[10];
+                            sprintf(my_name, "IN%d", base_num++);
+                            identifier_c param_name(my_name);
+                            
+                            /* Get the value from a foo(<param_name> = <param_value>) style call */
+                            param_value = function_call_param_iterator.search(&param_name);
+                            
+                            /* Get the value from a foo(<param_value>) style call */
+                            if (param_value == NULL)
+                              param_value = function_call_param_iterator.next();
+                            if (param_value != NULL){
+                                symbol_c *current_type_symbol = search_expression_type->get_type(param_value);
+                                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 ;
+                            
+                                /*Function specific CODE */
+                                s4o.print(",");
+                                param_value->accept(*this);
+                                
+                            }
+                            
+                        }while(param_value != NULL);
+                        s4o.print(")");
+                        return NULL;
+                        
+                        
+                    }
+                    
+                    ERROR;
+                }
+                
+            }
+            
+            ERROR;
+        }
+        
+    }/*function_gt*/
+    break;
 
 /****
  *GE
  */
-	case function_ge :
-	{
-		symbol_c *last_type_symbol = NULL;
-
-		{
-			identifier_c param_name("IN1");
-			/* Get the value from a foo(<param_name> = <param_value>) style call */
-			symbol_c *IN1_param_value = function_call_param_iterator.search(&param_name);
-			
-			/* Get the value from a foo(<param_value>) style call */
-			if (IN1_param_value == NULL)
-			  IN1_param_value = function_call_param_iterator.next();
-			symbol_c *IN1_type_symbol = search_expression_type->get_type(IN1_param_value);
-			last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN1_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN1_type_symbol, last_type_symbol) : IN1_type_symbol ;
-			
-			
-			{
-		
-				{
-					identifier_c param_name("IN2");
-					/* Get the value from a foo(<param_name> = <param_value>) style call */
-					symbol_c *IN2_param_value = function_call_param_iterator.search(&param_name);
-					
-					/* Get the value from a foo(<param_value>) style call */
-					if (IN2_param_value == NULL)
-					  IN2_param_value = function_call_param_iterator.next();
-					symbol_c *IN2_type_symbol = search_expression_type->get_type(IN2_param_value);
-					last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN2_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN2_type_symbol, last_type_symbol) : IN2_type_symbol ;
-					
-					
-					{
-				
-						symbol_c * return_type_symbol = &search_constant_type_c::bool_type_name;
-						s4o.print("__ge_");
-						return_type_symbol->accept(*this);
-						s4o.print("(");
-						s4o.print_integer(nb_param);
-						s4o.print(",");
-						IN1_param_value->accept(*this);
-						s4o.print(",");
-						IN2_param_value->accept(*this);
-						
-						int base_num = 3;
-						symbol_c *param_value = NULL;
-						do{
-							char my_name[10];
-							sprintf(my_name, "IN%d", base_num++);
-							identifier_c param_name(my_name);
-							
-							/* Get the value from a foo(<param_name> = <param_value>) style call */
-							param_value = function_call_param_iterator.search(&param_name);
-							
-							/* Get the value from a foo(<param_value>) style call */
-							if (param_value == NULL)
-							  param_value = function_call_param_iterator.next();
-							if (param_value != NULL){
-								symbol_c *current_type_symbol = search_expression_type->get_type(param_value);
-								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 ;
-							
-								/*Function specific CODE */
-								s4o.print(",");
-								param_value->accept(*this);
-								
-							}
-							
-						}while(param_value != NULL);
-						s4o.print(")");
-						return NULL;
-						
-						
-					}
-					
-					ERROR;
-				}
-				
-			}
-			
-			ERROR;
-		}
-		
-	}/*function_ge*/
-	break;
+    case function_ge :
+    {
+        symbol_c *last_type_symbol = NULL;
+
+        {
+            identifier_c param_name("IN1");
+            /* Get the value from a foo(<param_name> = <param_value>) style call */
+            symbol_c *IN1_param_value = function_call_param_iterator.search(&param_name);
+            
+            /* Get the value from a foo(<param_value>) style call */
+            if (IN1_param_value == NULL)
+              IN1_param_value = function_call_param_iterator.next();
+            symbol_c *IN1_type_symbol = search_expression_type->get_type(IN1_param_value);
+            last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN1_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN1_type_symbol, last_type_symbol) : IN1_type_symbol ;
+            
+            
+            {
+        
+                {
+                    identifier_c param_name("IN2");
+                    /* Get the value from a foo(<param_name> = <param_value>) style call */
+                    symbol_c *IN2_param_value = function_call_param_iterator.search(&param_name);
+                    
+                    /* Get the value from a foo(<param_value>) style call */
+                    if (IN2_param_value == NULL)
+                      IN2_param_value = function_call_param_iterator.next();
+                    symbol_c *IN2_type_symbol = search_expression_type->get_type(IN2_param_value);
+                    last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN2_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN2_type_symbol, last_type_symbol) : IN2_type_symbol ;
+                    
+                    
+                    {
+                
+                        symbol_c * return_type_symbol = &search_constant_type_c::bool_type_name;
+                        s4o.print("__ge_");
+                        return_type_symbol->accept(*this);
+                        s4o.print("(");
+                        s4o.print_integer(nb_param);
+                        s4o.print(",");
+                        IN1_param_value->accept(*this);
+                        s4o.print(",");
+                        IN2_param_value->accept(*this);
+                        
+                        int base_num = 3;
+                        symbol_c *param_value = NULL;
+                        do{
+                            char my_name[10];
+                            sprintf(my_name, "IN%d", base_num++);
+                            identifier_c param_name(my_name);
+                            
+                            /* Get the value from a foo(<param_name> = <param_value>) style call */
+                            param_value = function_call_param_iterator.search(&param_name);
+                            
+                            /* Get the value from a foo(<param_value>) style call */
+                            if (param_value == NULL)
+                              param_value = function_call_param_iterator.next();
+                            if (param_value != NULL){
+                                symbol_c *current_type_symbol = search_expression_type->get_type(param_value);
+                                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 ;
+                            
+                                /*Function specific CODE */
+                                s4o.print(",");
+                                param_value->accept(*this);
+                                
+                            }
+                            
+                        }while(param_value != NULL);
+                        s4o.print(")");
+                        return NULL;
+                        
+                        
+                    }
+                    
+                    ERROR;
+                }
+                
+            }
+            
+            ERROR;
+        }
+        
+    }/*function_ge*/
+    break;
 
 /****
  *EQ
  */
-	case function_eq :
-	{
-		symbol_c *last_type_symbol = NULL;
-
-		{
-			identifier_c param_name("IN1");
-			/* Get the value from a foo(<param_name> = <param_value>) style call */
-			symbol_c *IN1_param_value = function_call_param_iterator.search(&param_name);
-			
-			/* Get the value from a foo(<param_value>) style call */
-			if (IN1_param_value == NULL)
-			  IN1_param_value = function_call_param_iterator.next();
-			symbol_c *IN1_type_symbol = search_expression_type->get_type(IN1_param_value);
-			last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN1_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN1_type_symbol, last_type_symbol) : IN1_type_symbol ;
-			
-			
-			{
-		
-				{
-					identifier_c param_name("IN2");
-					/* Get the value from a foo(<param_name> = <param_value>) style call */
-					symbol_c *IN2_param_value = function_call_param_iterator.search(&param_name);
-					
-					/* Get the value from a foo(<param_value>) style call */
-					if (IN2_param_value == NULL)
-					  IN2_param_value = function_call_param_iterator.next();
-					symbol_c *IN2_type_symbol = search_expression_type->get_type(IN2_param_value);
-					last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN2_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN2_type_symbol, last_type_symbol) : IN2_type_symbol ;
-					
-					
-					{
-				
-						symbol_c * return_type_symbol = &search_constant_type_c::bool_type_name;
-						s4o.print("__eq_");
-						return_type_symbol->accept(*this);
-						s4o.print("(");
-						s4o.print_integer(nb_param);
-						s4o.print(",");
-						IN1_param_value->accept(*this);
-						s4o.print(",");
-						IN2_param_value->accept(*this);
-						
-						int base_num = 3;
-						symbol_c *param_value = NULL;
-						do{
-							char my_name[10];
-							sprintf(my_name, "IN%d", base_num++);
-							identifier_c param_name(my_name);
-							
-							/* Get the value from a foo(<param_name> = <param_value>) style call */
-							param_value = function_call_param_iterator.search(&param_name);
-							
-							/* Get the value from a foo(<param_value>) style call */
-							if (param_value == NULL)
-							  param_value = function_call_param_iterator.next();
-							if (param_value != NULL){
-								symbol_c *current_type_symbol = search_expression_type->get_type(param_value);
-								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 ;
-							
-								/*Function specific CODE */
-								s4o.print(",");
-								param_value->accept(*this);
-								
-							}
-							
-						}while(param_value != NULL);
-						s4o.print(")");
-						return NULL;
-						
-						
-					}
-					
-					ERROR;
-				}
-				
-			}
-			
-			ERROR;
-		}
-		
-	}/*function_eq*/
-	break;
+    case function_eq :
+    {
+        symbol_c *last_type_symbol = NULL;
+
+        {
+            identifier_c param_name("IN1");
+            /* Get the value from a foo(<param_name> = <param_value>) style call */
+            symbol_c *IN1_param_value = function_call_param_iterator.search(&param_name);
+            
+            /* Get the value from a foo(<param_value>) style call */
+            if (IN1_param_value == NULL)
+              IN1_param_value = function_call_param_iterator.next();
+            symbol_c *IN1_type_symbol = search_expression_type->get_type(IN1_param_value);
+            last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN1_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN1_type_symbol, last_type_symbol) : IN1_type_symbol ;
+            
+            
+            {
+        
+                {
+                    identifier_c param_name("IN2");
+                    /* Get the value from a foo(<param_name> = <param_value>) style call */
+                    symbol_c *IN2_param_value = function_call_param_iterator.search(&param_name);
+                    
+                    /* Get the value from a foo(<param_value>) style call */
+                    if (IN2_param_value == NULL)
+                      IN2_param_value = function_call_param_iterator.next();
+                    symbol_c *IN2_type_symbol = search_expression_type->get_type(IN2_param_value);
+                    last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN2_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN2_type_symbol, last_type_symbol) : IN2_type_symbol ;
+                    
+                    
+                    {
+                
+                        symbol_c * return_type_symbol = &search_constant_type_c::bool_type_name;
+                        s4o.print("__eq_");
+                        return_type_symbol->accept(*this);
+                        s4o.print("(");
+                        s4o.print_integer(nb_param);
+                        s4o.print(",");
+                        IN1_param_value->accept(*this);
+                        s4o.print(",");
+                        IN2_param_value->accept(*this);
+                        
+                        int base_num = 3;
+                        symbol_c *param_value = NULL;
+                        do{
+                            char my_name[10];
+                            sprintf(my_name, "IN%d", base_num++);
+                            identifier_c param_name(my_name);
+                            
+                            /* Get the value from a foo(<param_name> = <param_value>) style call */
+                            param_value = function_call_param_iterator.search(&param_name);
+                            
+                            /* Get the value from a foo(<param_value>) style call */
+                            if (param_value == NULL)
+                              param_value = function_call_param_iterator.next();
+                            if (param_value != NULL){
+                                symbol_c *current_type_symbol = search_expression_type->get_type(param_value);
+                                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 ;
+                            
+                                /*Function specific CODE */
+                                s4o.print(",");
+                                param_value->accept(*this);
+                                
+                            }
+                            
+                        }while(param_value != NULL);
+                        s4o.print(")");
+                        return NULL;
+                        
+                        
+                    }
+                    
+                    ERROR;
+                }
+                
+            }
+            
+            ERROR;
+        }
+        
+    }/*function_eq*/
+    break;
 
 /****
  *LT
  */
-	case function_lt :
-	{
-		symbol_c *last_type_symbol = NULL;
-
-		{
-			identifier_c param_name("IN1");
-			/* Get the value from a foo(<param_name> = <param_value>) style call */
-			symbol_c *IN1_param_value = function_call_param_iterator.search(&param_name);
-			
-			/* Get the value from a foo(<param_value>) style call */
-			if (IN1_param_value == NULL)
-			  IN1_param_value = function_call_param_iterator.next();
-			symbol_c *IN1_type_symbol = search_expression_type->get_type(IN1_param_value);
-			last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN1_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN1_type_symbol, last_type_symbol) : IN1_type_symbol ;
-			
-			
-			{
-		
-				{
-					identifier_c param_name("IN2");
-					/* Get the value from a foo(<param_name> = <param_value>) style call */
-					symbol_c *IN2_param_value = function_call_param_iterator.search(&param_name);
-					
-					/* Get the value from a foo(<param_value>) style call */
-					if (IN2_param_value == NULL)
-					  IN2_param_value = function_call_param_iterator.next();
-					symbol_c *IN2_type_symbol = search_expression_type->get_type(IN2_param_value);
-					last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN2_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN2_type_symbol, last_type_symbol) : IN2_type_symbol ;
-					
-					
-					{
-				
-						symbol_c * return_type_symbol = &search_constant_type_c::bool_type_name;
-						s4o.print("__lt_");
-						return_type_symbol->accept(*this);
-						s4o.print("(");
-						s4o.print_integer(nb_param);
-						s4o.print(",");
-						IN1_param_value->accept(*this);
-						s4o.print(",");
-						IN2_param_value->accept(*this);
-						
-						int base_num = 3;
-						symbol_c *param_value = NULL;
-						do{
-							char my_name[10];
-							sprintf(my_name, "IN%d", base_num++);
-							identifier_c param_name(my_name);
-							
-							/* Get the value from a foo(<param_name> = <param_value>) style call */
-							param_value = function_call_param_iterator.search(&param_name);
-							
-							/* Get the value from a foo(<param_value>) style call */
-							if (param_value == NULL)
-							  param_value = function_call_param_iterator.next();
-							if (param_value != NULL){
-								symbol_c *current_type_symbol = search_expression_type->get_type(param_value);
-								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 ;
-							
-								/*Function specific CODE */
-								s4o.print(",");
-								param_value->accept(*this);
-								
-							}
-							
-						}while(param_value != NULL);
-						s4o.print(")");
-						return NULL;
-						
-						
-					}
-					
-					ERROR;
-				}
-				
-			}
-			
-			ERROR;
-		}
-		
-	}/*function_lt*/
-	break;
+    case function_lt :
+    {
+        symbol_c *last_type_symbol = NULL;
+
+        {
+            identifier_c param_name("IN1");
+            /* Get the value from a foo(<param_name> = <param_value>) style call */
+            symbol_c *IN1_param_value = function_call_param_iterator.search(&param_name);
+            
+            /* Get the value from a foo(<param_value>) style call */
+            if (IN1_param_value == NULL)
+              IN1_param_value = function_call_param_iterator.next();
+            symbol_c *IN1_type_symbol = search_expression_type->get_type(IN1_param_value);
+            last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN1_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN1_type_symbol, last_type_symbol) : IN1_type_symbol ;
+            
+            
+            {
+        
+                {
+                    identifier_c param_name("IN2");
+                    /* Get the value from a foo(<param_name> = <param_value>) style call */
+                    symbol_c *IN2_param_value = function_call_param_iterator.search(&param_name);
+                    
+                    /* Get the value from a foo(<param_value>) style call */
+                    if (IN2_param_value == NULL)
+                      IN2_param_value = function_call_param_iterator.next();
+                    symbol_c *IN2_type_symbol = search_expression_type->get_type(IN2_param_value);
+                    last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN2_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN2_type_symbol, last_type_symbol) : IN2_type_symbol ;
+                    
+                    
+                    {
+                
+                        symbol_c * return_type_symbol = &search_constant_type_c::bool_type_name;
+                        s4o.print("__lt_");
+                        return_type_symbol->accept(*this);
+                        s4o.print("(");
+                        s4o.print_integer(nb_param);
+                        s4o.print(",");
+                        IN1_param_value->accept(*this);
+                        s4o.print(",");
+                        IN2_param_value->accept(*this);
+                        
+                        int base_num = 3;
+                        symbol_c *param_value = NULL;
+                        do{
+                            char my_name[10];
+                            sprintf(my_name, "IN%d", base_num++);
+                            identifier_c param_name(my_name);
+                            
+                            /* Get the value from a foo(<param_name> = <param_value>) style call */
+                            param_value = function_call_param_iterator.search(&param_name);
+                            
+                            /* Get the value from a foo(<param_value>) style call */
+                            if (param_value == NULL)
+                              param_value = function_call_param_iterator.next();
+                            if (param_value != NULL){
+                                symbol_c *current_type_symbol = search_expression_type->get_type(param_value);
+                                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 ;
+                            
+                                /*Function specific CODE */
+                                s4o.print(",");
+                                param_value->accept(*this);
+                                
+                            }
+                            
+                        }while(param_value != NULL);
+                        s4o.print(")");
+                        return NULL;
+                        
+                        
+                    }
+                    
+                    ERROR;
+                }
+                
+            }
+            
+            ERROR;
+        }
+        
+    }/*function_lt*/
+    break;
 
 /****
  *LE
  */
-	case function_le :
-	{
-		symbol_c *last_type_symbol = NULL;
-
-		{
-			identifier_c param_name("IN1");
-			/* Get the value from a foo(<param_name> = <param_value>) style call */
-			symbol_c *IN1_param_value = function_call_param_iterator.search(&param_name);
-			
-			/* Get the value from a foo(<param_value>) style call */
-			if (IN1_param_value == NULL)
-			  IN1_param_value = function_call_param_iterator.next();
-			symbol_c *IN1_type_symbol = search_expression_type->get_type(IN1_param_value);
-			last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN1_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN1_type_symbol, last_type_symbol) : IN1_type_symbol ;
-			
-			
-			{
-		
-				{
-					identifier_c param_name("IN2");
-					/* Get the value from a foo(<param_name> = <param_value>) style call */
-					symbol_c *IN2_param_value = function_call_param_iterator.search(&param_name);
-					
-					/* Get the value from a foo(<param_value>) style call */
-					if (IN2_param_value == NULL)
-					  IN2_param_value = function_call_param_iterator.next();
-					symbol_c *IN2_type_symbol = search_expression_type->get_type(IN2_param_value);
-					last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN2_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN2_type_symbol, last_type_symbol) : IN2_type_symbol ;
-					
-					
-					{
-				
-						symbol_c * return_type_symbol = &search_constant_type_c::bool_type_name;
-						s4o.print("__le_");
-						return_type_symbol->accept(*this);
-						s4o.print("(");
-						s4o.print_integer(nb_param);
-						s4o.print(",");
-						IN1_param_value->accept(*this);
-						s4o.print(",");
-						IN2_param_value->accept(*this);
-						
-						int base_num = 3;
-						symbol_c *param_value = NULL;
-						do{
-							char my_name[10];
-							sprintf(my_name, "IN%d", base_num++);
-							identifier_c param_name(my_name);
-							
-							/* Get the value from a foo(<param_name> = <param_value>) style call */
-							param_value = function_call_param_iterator.search(&param_name);
-							
-							/* Get the value from a foo(<param_value>) style call */
-							if (param_value == NULL)
-							  param_value = function_call_param_iterator.next();
-							if (param_value != NULL){
-								symbol_c *current_type_symbol = search_expression_type->get_type(param_value);
-								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 ;
-							
-								/*Function specific CODE */
-								s4o.print(",");
-								param_value->accept(*this);
-								
-							}
-							
-						}while(param_value != NULL);
-						s4o.print(")");
-						return NULL;
-						
-						
-					}
-					
-					ERROR;
-				}
-				
-			}
-			
-			ERROR;
-		}
-		
-	}/*function_le*/
-	break;
+    case function_le :
+    {
+        symbol_c *last_type_symbol = NULL;
+
+        {
+            identifier_c param_name("IN1");
+            /* Get the value from a foo(<param_name> = <param_value>) style call */
+            symbol_c *IN1_param_value = function_call_param_iterator.search(&param_name);
+            
+            /* Get the value from a foo(<param_value>) style call */
+            if (IN1_param_value == NULL)
+              IN1_param_value = function_call_param_iterator.next();
+            symbol_c *IN1_type_symbol = search_expression_type->get_type(IN1_param_value);
+            last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN1_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN1_type_symbol, last_type_symbol) : IN1_type_symbol ;
+            
+            
+            {
+        
+                {
+                    identifier_c param_name("IN2");
+                    /* Get the value from a foo(<param_name> = <param_value>) style call */
+                    symbol_c *IN2_param_value = function_call_param_iterator.search(&param_name);
+                    
+                    /* Get the value from a foo(<param_value>) style call */
+                    if (IN2_param_value == NULL)
+                      IN2_param_value = function_call_param_iterator.next();
+                    symbol_c *IN2_type_symbol = search_expression_type->get_type(IN2_param_value);
+                    last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN2_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN2_type_symbol, last_type_symbol) : IN2_type_symbol ;
+                    
+                    
+                    {
+                
+                        symbol_c * return_type_symbol = &search_constant_type_c::bool_type_name;
+                        s4o.print("__le_");
+                        return_type_symbol->accept(*this);
+                        s4o.print("(");
+                        s4o.print_integer(nb_param);
+                        s4o.print(",");
+                        IN1_param_value->accept(*this);
+                        s4o.print(",");
+                        IN2_param_value->accept(*this);
+                        
+                        int base_num = 3;
+                        symbol_c *param_value = NULL;
+                        do{
+                            char my_name[10];
+                            sprintf(my_name, "IN%d", base_num++);
+                            identifier_c param_name(my_name);
+                            
+                            /* Get the value from a foo(<param_name> = <param_value>) style call */
+                            param_value = function_call_param_iterator.search(&param_name);
+                            
+                            /* Get the value from a foo(<param_value>) style call */
+                            if (param_value == NULL)
+                              param_value = function_call_param_iterator.next();
+                            if (param_value != NULL){
+                                symbol_c *current_type_symbol = search_expression_type->get_type(param_value);
+                                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 ;
+                            
+                                /*Function specific CODE */
+                                s4o.print(",");
+                                param_value->accept(*this);
+                                
+                            }
+                            
+                        }while(param_value != NULL);
+                        s4o.print(")");
+                        return NULL;
+                        
+                        
+                    }
+                    
+                    ERROR;
+                }
+                
+            }
+            
+            ERROR;
+        }
+        
+    }/*function_le*/
+    break;
 
 /****
  *NE
  */
-	case function_ne :
-	{
-		symbol_c *last_type_symbol = NULL;
-
-		{
-			identifier_c param_name("IN1");
-			/* Get the value from a foo(<param_name> = <param_value>) style call */
-			symbol_c *IN1_param_value = function_call_param_iterator.search(&param_name);
-			
-			/* Get the value from a foo(<param_value>) style call */
-			if (IN1_param_value == NULL)
-			  IN1_param_value = function_call_param_iterator.next();
-			symbol_c *IN1_type_symbol = search_expression_type->get_type(IN1_param_value);
-			last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN1_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN1_type_symbol, last_type_symbol) : IN1_type_symbol ;
-			
-			
-			{
-		
-				{
-					identifier_c param_name("IN2");
-					/* Get the value from a foo(<param_name> = <param_value>) style call */
-					symbol_c *IN2_param_value = function_call_param_iterator.search(&param_name);
-					
-					/* Get the value from a foo(<param_value>) style call */
-					if (IN2_param_value == NULL)
-					  IN2_param_value = function_call_param_iterator.next();
-					symbol_c *IN2_type_symbol = search_expression_type->get_type(IN2_param_value);
-					last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN2_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN2_type_symbol, last_type_symbol) : IN2_type_symbol ;
-					
-					
-					{
-				
-						symbol_c * return_type_symbol = &search_constant_type_c::bool_type_name;
-						s4o.print("__ne_");
-						return_type_symbol->accept(*this);
-						s4o.print("(");
-						s4o.print_integer(nb_param);
-						s4o.print(",");
-						IN1_param_value->accept(*this);
-						s4o.print(",");
-						IN2_param_value->accept(*this);
-						
-						int base_num = 3;
-						symbol_c *param_value = NULL;
-						do{
-							char my_name[10];
-							sprintf(my_name, "IN%d", base_num++);
-							identifier_c param_name(my_name);
-							
-							/* Get the value from a foo(<param_name> = <param_value>) style call */
-							param_value = function_call_param_iterator.search(&param_name);
-							
-							/* Get the value from a foo(<param_value>) style call */
-							if (param_value == NULL)
-							  param_value = function_call_param_iterator.next();
-							if (param_value != NULL){
-								symbol_c *current_type_symbol = search_expression_type->get_type(param_value);
-								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 ;
-							
-								/*Function specific CODE */
-								s4o.print(",");
-								param_value->accept(*this);
-								
-							}
-							
-						}while(param_value != NULL);
-						s4o.print(")");
-						return NULL;
-						
-						
-					}
-					
-					ERROR;
-				}
-				
-			}
-			
-			ERROR;
-		}
-		
-	}/*function_ne*/
-	break;
+    case function_ne :
+    {
+        symbol_c *last_type_symbol = NULL;
+
+        {
+            identifier_c param_name("IN1");
+            /* Get the value from a foo(<param_name> = <param_value>) style call */
+            symbol_c *IN1_param_value = function_call_param_iterator.search(&param_name);
+            
+            /* Get the value from a foo(<param_value>) style call */
+            if (IN1_param_value == NULL)
+              IN1_param_value = function_call_param_iterator.next();
+            symbol_c *IN1_type_symbol = search_expression_type->get_type(IN1_param_value);
+            last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN1_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN1_type_symbol, last_type_symbol) : IN1_type_symbol ;
+            
+            
+            {
+        
+                {
+                    identifier_c param_name("IN2");
+                    /* Get the value from a foo(<param_name> = <param_value>) style call */
+                    symbol_c *IN2_param_value = function_call_param_iterator.search(&param_name);
+                    
+                    /* Get the value from a foo(<param_value>) style call */
+                    if (IN2_param_value == NULL)
+                      IN2_param_value = function_call_param_iterator.next();
+                    symbol_c *IN2_type_symbol = search_expression_type->get_type(IN2_param_value);
+                    last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN2_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN2_type_symbol, last_type_symbol) : IN2_type_symbol ;
+                    
+                    
+                    {
+                
+                        symbol_c * return_type_symbol = &search_constant_type_c::bool_type_name;
+                        s4o.print("__ne_");
+                        return_type_symbol->accept(*this);
+                        s4o.print("(");
+                        s4o.print_integer(nb_param);
+                        s4o.print(",");
+                        IN1_param_value->accept(*this);
+                        s4o.print(",");
+                        IN2_param_value->accept(*this);
+                        
+                        int base_num = 3;
+                        symbol_c *param_value = NULL;
+                        do{
+                            char my_name[10];
+                            sprintf(my_name, "IN%d", base_num++);
+                            identifier_c param_name(my_name);
+                            
+                            /* Get the value from a foo(<param_name> = <param_value>) style call */
+                            param_value = function_call_param_iterator.search(&param_name);
+                            
+                            /* Get the value from a foo(<param_value>) style call */
+                            if (param_value == NULL)
+                              param_value = function_call_param_iterator.next();
+                            if (param_value != NULL){
+                                symbol_c *current_type_symbol = search_expression_type->get_type(param_value);
+                                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 ;
+                            
+                                /*Function specific CODE */
+                                s4o.print(",");
+                                param_value->accept(*this);
+                                
+                            }
+                            
+                        }while(param_value != NULL);
+                        s4o.print(")");
+                        return NULL;
+                        
+                        
+                    }
+                    
+                    ERROR;
+                }
+                
+            }
+            
+            ERROR;
+        }
+        
+    }/*function_ne*/
+    break;
 
 /****
  *LEN
  */
-	case function_len :
-	{
-		symbol_c *last_type_symbol = NULL;
-
-		{
-			identifier_c param_name("IN");
-			/* Get the value from a foo(<param_name> = <param_value>) style call */
-			symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
-			
-			/* Get the value from a foo(<param_value>) style call */
-			if (IN_param_value == NULL)
-			  IN_param_value = function_call_param_iterator.next();
-			symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
-			last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
-			
-			if (typeid(*last_type_symbol) == typeid(string_type_name_c))
-			{
-		
-				symbol_c * return_type_symbol = &search_constant_type_c::int_type_name;
-				s4o.print("__len(&");
-				IN_param_value->accept(*this);
-				s4o.print(")");
-				return NULL;
-				
-			}
-			
-			ERROR;
-		}
-		
-	}/*function_len*/
-	break;
+    case function_len :
+    {
+        symbol_c *last_type_symbol = NULL;
+
+        {
+            identifier_c param_name("IN");
+            /* Get the value from a foo(<param_name> = <param_value>) style call */
+            symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
+            
+            /* Get the value from a foo(<param_value>) style call */
+            if (IN_param_value == NULL)
+              IN_param_value = function_call_param_iterator.next();
+            symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
+            last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
+            
+            if (typeid(*last_type_symbol) == typeid(string_type_name_c))
+            {
+        
+                symbol_c * return_type_symbol = &search_constant_type_c::int_type_name;
+                s4o.print("__len(&");
+                IN_param_value->accept(*this);
+                s4o.print(")");
+                return NULL;
+                
+            }
+            
+            ERROR;
+        }
+        
+    }/*function_len*/
+    break;
 
 /****
  *LEFT
  */
-	case function_left :
-	{
-		symbol_c *last_type_symbol = NULL;
-
-		{
-			identifier_c param_name("IN");
-			/* Get the value from a foo(<param_name> = <param_value>) style call */
-			symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
-			
-			/* Get the value from a foo(<param_value>) style call */
-			if (IN_param_value == NULL)
-			  IN_param_value = function_call_param_iterator.next();
-			symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
-			last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
-			
-			if (typeid(*last_type_symbol) == typeid(string_type_name_c))
-			{
-		
-				{
-					identifier_c param_name("L");
-					/* Get the value from a foo(<param_name> = <param_value>) style call */
-					symbol_c *L_param_value = function_call_param_iterator.search(&param_name);
-					
-					/* Get the value from a foo(<param_value>) style call */
-					if (L_param_value == NULL)
-					  L_param_value = function_call_param_iterator.next();
-					symbol_c *L_type_symbol = search_expression_type->get_type(L_param_value);
-					last_type_symbol = last_type_symbol && search_expression_type->is_same_type(L_type_symbol, last_type_symbol) ? search_expression_type->common_type(L_type_symbol, last_type_symbol) : L_type_symbol ;
-					
-					if (typeid(*last_type_symbol) == typeid(uint_type_name_c))
-					{
-				
-						symbol_c * return_type_symbol = &search_constant_type_c::string_type_name;
-						s4o.print("__left(&");
-						IN_param_value->accept(*this);
-						s4o.print(", ");
-						L_param_value->accept(*this);
-						s4o.print(")");
-						return NULL;
-						
-					}
-					
-					ERROR;
-				}
-				
-			}
-			
-			ERROR;
-		}
-		
-	}/*function_left*/
-	break;
+    case function_left :
+    {
+        symbol_c *last_type_symbol = NULL;
+
+        {
+            identifier_c param_name("IN");
+            /* Get the value from a foo(<param_name> = <param_value>) style call */
+            symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
+            
+            /* Get the value from a foo(<param_value>) style call */
+            if (IN_param_value == NULL)
+              IN_param_value = function_call_param_iterator.next();
+            symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
+            last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
+            
+            if (typeid(*last_type_symbol) == typeid(string_type_name_c))
+            {
+        
+                {
+                    identifier_c param_name("L");
+                    /* Get the value from a foo(<param_name> = <param_value>) style call */
+                    symbol_c *L_param_value = function_call_param_iterator.search(&param_name);
+                    
+                    /* Get the value from a foo(<param_value>) style call */
+                    if (L_param_value == NULL)
+                      L_param_value = function_call_param_iterator.next();
+                    symbol_c *L_type_symbol = search_expression_type->get_type(L_param_value);
+                    last_type_symbol = last_type_symbol && search_expression_type->is_same_type(L_type_symbol, last_type_symbol) ? search_expression_type->common_type(L_type_symbol, last_type_symbol) : L_type_symbol ;
+                    
+                    if (typeid(*last_type_symbol) == typeid(uint_type_name_c))
+                    {
+                
+                        symbol_c * return_type_symbol = &search_constant_type_c::string_type_name;
+                        s4o.print("__left(&");
+                        IN_param_value->accept(*this);
+                        s4o.print(", ");
+                        L_param_value->accept(*this);
+                        s4o.print(")");
+                        return NULL;
+                        
+                    }
+                    
+                    ERROR;
+                }
+                
+            }
+            
+            ERROR;
+        }
+        
+    }/*function_left*/
+    break;
 
 /****
  *RIGHT
  */
-	case function_right :
-	{
-		symbol_c *last_type_symbol = NULL;
-
-		{
-			identifier_c param_name("IN");
-			/* Get the value from a foo(<param_name> = <param_value>) style call */
-			symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
-			
-			/* Get the value from a foo(<param_value>) style call */
-			if (IN_param_value == NULL)
-			  IN_param_value = function_call_param_iterator.next();
-			symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
-			last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
-			
-			if (typeid(*last_type_symbol) == typeid(string_type_name_c))
-			{
-		
-				{
-					identifier_c param_name("L");
-					/* Get the value from a foo(<param_name> = <param_value>) style call */
-					symbol_c *L_param_value = function_call_param_iterator.search(&param_name);
-					
-					/* Get the value from a foo(<param_value>) style call */
-					if (L_param_value == NULL)
-					  L_param_value = function_call_param_iterator.next();
-					symbol_c *L_type_symbol = search_expression_type->get_type(L_param_value);
-					last_type_symbol = last_type_symbol && search_expression_type->is_same_type(L_type_symbol, last_type_symbol) ? search_expression_type->common_type(L_type_symbol, last_type_symbol) : L_type_symbol ;
-					
-					if (typeid(*last_type_symbol) == typeid(uint_type_name_c))
-					{
-				
-						symbol_c * return_type_symbol = &search_constant_type_c::string_type_name;
-						s4o.print("__right(&");
-						IN_param_value->accept(*this);
-						s4o.print(", ");
-						L_param_value->accept(*this);
-						s4o.print(")");
-						return NULL;
-						
-					}
-					
-					ERROR;
-				}
-				
-			}
-			
-			ERROR;
-		}
-		
-	}/*function_right*/
-	break;
+    case function_right :
+    {
+        symbol_c *last_type_symbol = NULL;
+
+        {
+            identifier_c param_name("IN");
+            /* Get the value from a foo(<param_name> = <param_value>) style call */
+            symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
+            
+            /* Get the value from a foo(<param_value>) style call */
+            if (IN_param_value == NULL)
+              IN_param_value = function_call_param_iterator.next();
+            symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
+            last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
+            
+            if (typeid(*last_type_symbol) == typeid(string_type_name_c))
+            {
+        
+                {
+                    identifier_c param_name("L");
+                    /* Get the value from a foo(<param_name> = <param_value>) style call */
+                    symbol_c *L_param_value = function_call_param_iterator.search(&param_name);
+                    
+                    /* Get the value from a foo(<param_value>) style call */
+                    if (L_param_value == NULL)
+                      L_param_value = function_call_param_iterator.next();
+                    symbol_c *L_type_symbol = search_expression_type->get_type(L_param_value);
+                    last_type_symbol = last_type_symbol && search_expression_type->is_same_type(L_type_symbol, last_type_symbol) ? search_expression_type->common_type(L_type_symbol, last_type_symbol) : L_type_symbol ;
+                    
+                    if (typeid(*last_type_symbol) == typeid(uint_type_name_c))
+                    {
+                
+                        symbol_c * return_type_symbol = &search_constant_type_c::string_type_name;
+                        s4o.print("__right(&");
+                        IN_param_value->accept(*this);
+                        s4o.print(", ");
+                        L_param_value->accept(*this);
+                        s4o.print(")");
+                        return NULL;
+                        
+                    }
+                    
+                    ERROR;
+                }
+                
+            }
+            
+            ERROR;
+        }
+        
+    }/*function_right*/
+    break;
 
 /****
  *MID
  */
-	case function_mid :
-	{
-		symbol_c *last_type_symbol = NULL;
-
-		{
-			identifier_c param_name("IN");
-			/* Get the value from a foo(<param_name> = <param_value>) style call */
-			symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
-			
-			/* Get the value from a foo(<param_value>) style call */
-			if (IN_param_value == NULL)
-			  IN_param_value = function_call_param_iterator.next();
-			symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
-			last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
-			
-			if (typeid(*last_type_symbol) == typeid(string_type_name_c))
-			{
-		
-				{
-					identifier_c param_name("L");
-					/* Get the value from a foo(<param_name> = <param_value>) style call */
-					symbol_c *L_param_value = function_call_param_iterator.search(&param_name);
-					
-					/* Get the value from a foo(<param_value>) style call */
-					if (L_param_value == NULL)
-					  L_param_value = function_call_param_iterator.next();
-					symbol_c *L_type_symbol = search_expression_type->get_type(L_param_value);
-					last_type_symbol = last_type_symbol && search_expression_type->is_same_type(L_type_symbol, last_type_symbol) ? search_expression_type->common_type(L_type_symbol, last_type_symbol) : L_type_symbol ;
-					
-					if (typeid(*last_type_symbol) == typeid(uint_type_name_c))
-					{
-				
-						{
-							identifier_c param_name("P");
-							/* Get the value from a foo(<param_name> = <param_value>) style call */
-							symbol_c *P_param_value = function_call_param_iterator.search(&param_name);
-							
-							/* Get the value from a foo(<param_value>) style call */
-							if (P_param_value == NULL)
-							  P_param_value = function_call_param_iterator.next();
-							symbol_c *P_type_symbol = search_expression_type->get_type(P_param_value);
-							last_type_symbol = last_type_symbol && search_expression_type->is_same_type(P_type_symbol, last_type_symbol) ? search_expression_type->common_type(P_type_symbol, last_type_symbol) : P_type_symbol ;
-							
-							if (typeid(*last_type_symbol) == typeid(uint_type_name_c))
-							{
-						
-								symbol_c * return_type_symbol = &search_constant_type_c::string_type_name;
-								s4o.print("__mid(&");
-								IN_param_value->accept(*this);
-								s4o.print(", ");
-								L_param_value->accept(*this);
-								s4o.print(", ");
-								P_param_value->accept(*this);
-								s4o.print(")");
-								return NULL;
-								
-							}
-							
-							ERROR;
-						}
-						
-					}
-					
-					ERROR;
-				}
-				
-			}
-			
-			ERROR;
-		}
-		
-	}/*function_mid*/
-	break;
+    case function_mid :
+    {
+        symbol_c *last_type_symbol = NULL;
+
+        {
+            identifier_c param_name("IN");
+            /* Get the value from a foo(<param_name> = <param_value>) style call */
+            symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
+            
+            /* Get the value from a foo(<param_value>) style call */
+            if (IN_param_value == NULL)
+              IN_param_value = function_call_param_iterator.next();
+            symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
+            last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
+            
+            if (typeid(*last_type_symbol) == typeid(string_type_name_c))
+            {
+        
+                {
+                    identifier_c param_name("L");
+                    /* Get the value from a foo(<param_name> = <param_value>) style call */
+                    symbol_c *L_param_value = function_call_param_iterator.search(&param_name);
+                    
+                    /* Get the value from a foo(<param_value>) style call */
+                    if (L_param_value == NULL)
+                      L_param_value = function_call_param_iterator.next();
+                    symbol_c *L_type_symbol = search_expression_type->get_type(L_param_value);
+                    last_type_symbol = last_type_symbol && search_expression_type->is_same_type(L_type_symbol, last_type_symbol) ? search_expression_type->common_type(L_type_symbol, last_type_symbol) : L_type_symbol ;
+                    
+                    if (typeid(*last_type_symbol) == typeid(uint_type_name_c))
+                    {
+                
+                        {
+                            identifier_c param_name("P");
+                            /* Get the value from a foo(<param_name> = <param_value>) style call */
+                            symbol_c *P_param_value = function_call_param_iterator.search(&param_name);
+                            
+                            /* Get the value from a foo(<param_value>) style call */
+                            if (P_param_value == NULL)
+                              P_param_value = function_call_param_iterator.next();
+                            symbol_c *P_type_symbol = search_expression_type->get_type(P_param_value);
+                            last_type_symbol = last_type_symbol && search_expression_type->is_same_type(P_type_symbol, last_type_symbol) ? search_expression_type->common_type(P_type_symbol, last_type_symbol) : P_type_symbol ;
+                            
+                            if (typeid(*last_type_symbol) == typeid(uint_type_name_c))
+                            {
+                        
+                                symbol_c * return_type_symbol = &search_constant_type_c::string_type_name;
+                                s4o.print("__mid(&");
+                                IN_param_value->accept(*this);
+                                s4o.print(", ");
+                                L_param_value->accept(*this);
+                                s4o.print(", ");
+                                P_param_value->accept(*this);
+                                s4o.print(")");
+                                return NULL;
+                                
+                            }
+                            
+                            ERROR;
+                        }
+                        
+                    }
+                    
+                    ERROR;
+                }
+                
+            }
+            
+            ERROR;
+        }
+        
+    }/*function_mid*/
+    break;
 
 /****
  *CONCAT
  */
-	case function_concat :
-	{
-		symbol_c *last_type_symbol = NULL;
-
-		{
-			identifier_c param_name("IN1");
-			/* Get the value from a foo(<param_name> = <param_value>) style call */
-			symbol_c *IN1_param_value = function_call_param_iterator.search(&param_name);
-			
-			/* Get the value from a foo(<param_value>) style call */
-			if (IN1_param_value == NULL)
-			  IN1_param_value = function_call_param_iterator.next();
-			symbol_c *IN1_type_symbol = search_expression_type->get_type(IN1_param_value);
-			last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN1_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN1_type_symbol, last_type_symbol) : IN1_type_symbol ;
-			
-			if (typeid(*last_type_symbol) == typeid(date_type_name_c))
-			{
-		
-				{
-					identifier_c param_name("IN2");
-					/* Get the value from a foo(<param_name> = <param_value>) style call */
-					symbol_c *IN2_param_value = function_call_param_iterator.search(&param_name);
-					
-					/* Get the value from a foo(<param_value>) style call */
-					if (IN2_param_value == NULL)
-					  IN2_param_value = function_call_param_iterator.next();
-					symbol_c *IN2_type_symbol = search_expression_type->get_type(IN2_param_value);
-					last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN2_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN2_type_symbol, last_type_symbol) : IN2_type_symbol ;
-					
-					if (typeid(*last_type_symbol) == typeid(tod_type_name_c))
-					{
-				
-						symbol_c * return_type_symbol = &search_constant_type_c::dt_type_name;
-						s4o.print("__time_add(&");
-						IN1_param_value->accept(*this);
-						s4o.print(", &");
-						IN2_param_value->accept(*this);
-						s4o.print(")");
-						return NULL;
-						
-					}
-					
-					ERROR;
-				}
-				
-			}
-			
-			if (typeid(*last_type_symbol) == typeid(string_type_name_c))
-			{
-		
-				{
-					identifier_c param_name("IN2");
-					/* Get the value from a foo(<param_name> = <param_value>) style call */
-					symbol_c *IN2_param_value = function_call_param_iterator.search(&param_name);
-					
-					/* Get the value from a foo(<param_value>) style call */
-					if (IN2_param_value == NULL)
-					  IN2_param_value = function_call_param_iterator.next();
-					symbol_c *IN2_type_symbol = search_expression_type->get_type(IN2_param_value);
-					last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN2_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN2_type_symbol, last_type_symbol) : IN2_type_symbol ;
-					
-					if (typeid(*last_type_symbol) == typeid(string_type_name_c))
-					{
-				
-						symbol_c * return_type_symbol = &search_constant_type_c::string_type_name;
-						s4o.print("__concat(");
-						s4o.print_integer(nb_param);
-						s4o.print(",");
-						IN1_param_value->accept(*this);
-						s4o.print(",&");
-						IN2_param_value->accept(*this);
-						
-						int base_num = 3;
-						symbol_c *param_value = NULL;
-						do{
-							char my_name[10];
-							sprintf(my_name, "IN%d", base_num++);
-							identifier_c param_name(my_name);
-							
-							/* Get the value from a foo(<param_name> = <param_value>) style call */
-							param_value = function_call_param_iterator.search(&param_name);
-							
-							/* Get the value from a foo(<param_value>) style call */
-							if (param_value == NULL)
-							  param_value = function_call_param_iterator.next();
-							if (param_value != NULL){
-								symbol_c *current_type_symbol = search_expression_type->get_type(param_value);
-								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 ;
-							
-								/*Function specific CODE */
-								s4o.print(",&");
-								param_value->accept(*this);
-								
-							}
-							
-						}while(param_value != NULL);
-						s4o.print(")");
-						return NULL;
-						
-						
-					}
-					
-					ERROR;
-				}
-				
-			}
-			
-			ERROR;
-		}
-		
-	}/*function_concat*/
-	break;
+    case function_concat :
+    {
+        symbol_c *last_type_symbol = NULL;
+
+        {
+            identifier_c param_name("IN1");
+            /* Get the value from a foo(<param_name> = <param_value>) style call */
+            symbol_c *IN1_param_value = function_call_param_iterator.search(&param_name);
+            
+            /* Get the value from a foo(<param_value>) style call */
+            if (IN1_param_value == NULL)
+              IN1_param_value = function_call_param_iterator.next();
+            symbol_c *IN1_type_symbol = search_expression_type->get_type(IN1_param_value);
+            last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN1_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN1_type_symbol, last_type_symbol) : IN1_type_symbol ;
+            
+            if (typeid(*last_type_symbol) == typeid(date_type_name_c))
+            {
+        
+                {
+                    identifier_c param_name("IN2");
+                    /* Get the value from a foo(<param_name> = <param_value>) style call */
+                    symbol_c *IN2_param_value = function_call_param_iterator.search(&param_name);
+                    
+                    /* Get the value from a foo(<param_value>) style call */
+                    if (IN2_param_value == NULL)
+                      IN2_param_value = function_call_param_iterator.next();
+                    symbol_c *IN2_type_symbol = search_expression_type->get_type(IN2_param_value);
+                    last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN2_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN2_type_symbol, last_type_symbol) : IN2_type_symbol ;
+                    
+                    if (typeid(*last_type_symbol) == typeid(tod_type_name_c))
+                    {
+                
+                        symbol_c * return_type_symbol = &search_constant_type_c::dt_type_name;
+                        s4o.print("__time_add(&");
+                        IN1_param_value->accept(*this);
+                        s4o.print(", &");
+                        IN2_param_value->accept(*this);
+                        s4o.print(")");
+                        return NULL;
+                        
+                    }
+                    
+                    ERROR;
+                }
+                
+            }
+            
+            if (typeid(*last_type_symbol) == typeid(string_type_name_c))
+            {
+        
+                {
+                    identifier_c param_name("IN2");
+                    /* Get the value from a foo(<param_name> = <param_value>) style call */
+                    symbol_c *IN2_param_value = function_call_param_iterator.search(&param_name);
+                    
+                    /* Get the value from a foo(<param_value>) style call */
+                    if (IN2_param_value == NULL)
+                      IN2_param_value = function_call_param_iterator.next();
+                    symbol_c *IN2_type_symbol = search_expression_type->get_type(IN2_param_value);
+                    last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN2_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN2_type_symbol, last_type_symbol) : IN2_type_symbol ;
+                    
+                    if (typeid(*last_type_symbol) == typeid(string_type_name_c))
+                    {
+                
+                        symbol_c * return_type_symbol = &search_constant_type_c::string_type_name;
+                        s4o.print("__concat(");
+                        s4o.print_integer(nb_param);
+                        s4o.print(",");
+                        IN1_param_value->accept(*this);
+                        s4o.print(",&");
+                        IN2_param_value->accept(*this);
+                        
+                        int base_num = 3;
+                        symbol_c *param_value = NULL;
+                        do{
+                            char my_name[10];
+                            sprintf(my_name, "IN%d", base_num++);
+                            identifier_c param_name(my_name);
+                            
+                            /* Get the value from a foo(<param_name> = <param_value>) style call */
+                            param_value = function_call_param_iterator.search(&param_name);
+                            
+                            /* Get the value from a foo(<param_value>) style call */
+                            if (param_value == NULL)
+                              param_value = function_call_param_iterator.next();
+                            if (param_value != NULL){
+                                symbol_c *current_type_symbol = search_expression_type->get_type(param_value);
+                                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 ;
+                            
+                                /*Function specific CODE */
+                                s4o.print(",&");
+                                param_value->accept(*this);
+                                
+                            }
+                            
+                        }while(param_value != NULL);
+                        s4o.print(")");
+                        return NULL;
+                        
+                        
+                    }
+                    
+                    ERROR;
+                }
+                
+            }
+            
+            ERROR;
+        }
+        
+    }/*function_concat*/
+    break;
 
 /****
  *INSERT
  */
-	case function_insert :
-	{
-		symbol_c *last_type_symbol = NULL;
-
-		{
-			identifier_c param_name("IN1");
-			/* Get the value from a foo(<param_name> = <param_value>) style call */
-			symbol_c *IN1_param_value = function_call_param_iterator.search(&param_name);
-			
-			/* Get the value from a foo(<param_value>) style call */
-			if (IN1_param_value == NULL)
-			  IN1_param_value = function_call_param_iterator.next();
-			symbol_c *IN1_type_symbol = search_expression_type->get_type(IN1_param_value);
-			last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN1_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN1_type_symbol, last_type_symbol) : IN1_type_symbol ;
-			
-			if (typeid(*last_type_symbol) == typeid(string_type_name_c))
-			{
-		
-				{
-					identifier_c param_name("IN2");
-					/* Get the value from a foo(<param_name> = <param_value>) style call */
-					symbol_c *IN2_param_value = function_call_param_iterator.search(&param_name);
-					
-					/* Get the value from a foo(<param_value>) style call */
-					if (IN2_param_value == NULL)
-					  IN2_param_value = function_call_param_iterator.next();
-					symbol_c *IN2_type_symbol = search_expression_type->get_type(IN2_param_value);
-					last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN2_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN2_type_symbol, last_type_symbol) : IN2_type_symbol ;
-					
-					if (typeid(*last_type_symbol) == typeid(string_type_name_c))
-					{
-				
-						{
-							identifier_c param_name("P");
-							/* Get the value from a foo(<param_name> = <param_value>) style call */
-							symbol_c *P_param_value = function_call_param_iterator.search(&param_name);
-							
-							/* Get the value from a foo(<param_value>) style call */
-							if (P_param_value == NULL)
-							  P_param_value = function_call_param_iterator.next();
-							symbol_c *P_type_symbol = search_expression_type->get_type(P_param_value);
-							last_type_symbol = last_type_symbol && search_expression_type->is_same_type(P_type_symbol, last_type_symbol) ? search_expression_type->common_type(P_type_symbol, last_type_symbol) : P_type_symbol ;
-							
-							if (typeid(*last_type_symbol) == typeid(uint_type_name_c))
-							{
-						
-								symbol_c * return_type_symbol = &search_constant_type_c::string_type_name;
-								s4o.print("__insert(&");
-								IN1_param_value->accept(*this);
-								s4o.print(", &");
-								IN2_param_value->accept(*this);
-								s4o.print(", ");
-								P_param_value->accept(*this);
-								s4o.print(")");
-								return NULL;
-								
-							}
-							
-							ERROR;
-						}
-						
-					}
-					
-					ERROR;
-				}
-				
-			}
-			
-			ERROR;
-		}
-		
-	}/*function_insert*/
-	break;
+    case function_insert :
+    {
+        symbol_c *last_type_symbol = NULL;
+
+        {
+            identifier_c param_name("IN1");
+            /* Get the value from a foo(<param_name> = <param_value>) style call */
+            symbol_c *IN1_param_value = function_call_param_iterator.search(&param_name);
+            
+            /* Get the value from a foo(<param_value>) style call */
+            if (IN1_param_value == NULL)
+              IN1_param_value = function_call_param_iterator.next();
+            symbol_c *IN1_type_symbol = search_expression_type->get_type(IN1_param_value);
+            last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN1_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN1_type_symbol, last_type_symbol) : IN1_type_symbol ;
+            
+            if (typeid(*last_type_symbol) == typeid(string_type_name_c))
+            {
+        
+                {
+                    identifier_c param_name("IN2");
+                    /* Get the value from a foo(<param_name> = <param_value>) style call */
+                    symbol_c *IN2_param_value = function_call_param_iterator.search(&param_name);
+                    
+                    /* Get the value from a foo(<param_value>) style call */
+                    if (IN2_param_value == NULL)
+                      IN2_param_value = function_call_param_iterator.next();
+                    symbol_c *IN2_type_symbol = search_expression_type->get_type(IN2_param_value);
+                    last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN2_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN2_type_symbol, last_type_symbol) : IN2_type_symbol ;
+                    
+                    if (typeid(*last_type_symbol) == typeid(string_type_name_c))
+                    {
+                
+                        {
+                            identifier_c param_name("P");
+                            /* Get the value from a foo(<param_name> = <param_value>) style call */
+                            symbol_c *P_param_value = function_call_param_iterator.search(&param_name);
+                            
+                            /* Get the value from a foo(<param_value>) style call */
+                            if (P_param_value == NULL)
+                              P_param_value = function_call_param_iterator.next();
+                            symbol_c *P_type_symbol = search_expression_type->get_type(P_param_value);
+                            last_type_symbol = last_type_symbol && search_expression_type->is_same_type(P_type_symbol, last_type_symbol) ? search_expression_type->common_type(P_type_symbol, last_type_symbol) : P_type_symbol ;
+                            
+                            if (typeid(*last_type_symbol) == typeid(uint_type_name_c))
+                            {
+                        
+                                symbol_c * return_type_symbol = &search_constant_type_c::string_type_name;
+                                s4o.print("__insert(&");
+                                IN1_param_value->accept(*this);
+                                s4o.print(", &");
+                                IN2_param_value->accept(*this);
+                                s4o.print(", ");
+                                P_param_value->accept(*this);
+                                s4o.print(")");
+                                return NULL;
+                                
+                            }
+                            
+                            ERROR;
+                        }
+                        
+                    }
+                    
+                    ERROR;
+                }
+                
+            }
+            
+            ERROR;
+        }
+        
+    }/*function_insert*/
+    break;
 
 /****
  *DELETE
  */
-	case function_delete :
-	{
-		symbol_c *last_type_symbol = NULL;
-
-		{
-			identifier_c param_name("IN");
-			/* Get the value from a foo(<param_name> = <param_value>) style call */
-			symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
-			
-			/* Get the value from a foo(<param_value>) style call */
-			if (IN_param_value == NULL)
-			  IN_param_value = function_call_param_iterator.next();
-			symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
-			last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
-			
-			if (typeid(*last_type_symbol) == typeid(string_type_name_c))
-			{
-		
-				{
-					identifier_c param_name("L");
-					/* Get the value from a foo(<param_name> = <param_value>) style call */
-					symbol_c *L_param_value = function_call_param_iterator.search(&param_name);
-					
-					/* Get the value from a foo(<param_value>) style call */
-					if (L_param_value == NULL)
-					  L_param_value = function_call_param_iterator.next();
-					symbol_c *L_type_symbol = search_expression_type->get_type(L_param_value);
-					last_type_symbol = last_type_symbol && search_expression_type->is_same_type(L_type_symbol, last_type_symbol) ? search_expression_type->common_type(L_type_symbol, last_type_symbol) : L_type_symbol ;
-					
-					if (typeid(*last_type_symbol) == typeid(uint_type_name_c))
-					{
-				
-						{
-							identifier_c param_name("P");
-							/* Get the value from a foo(<param_name> = <param_value>) style call */
-							symbol_c *P_param_value = function_call_param_iterator.search(&param_name);
-							
-							/* Get the value from a foo(<param_value>) style call */
-							if (P_param_value == NULL)
-							  P_param_value = function_call_param_iterator.next();
-							symbol_c *P_type_symbol = search_expression_type->get_type(P_param_value);
-							last_type_symbol = last_type_symbol && search_expression_type->is_same_type(P_type_symbol, last_type_symbol) ? search_expression_type->common_type(P_type_symbol, last_type_symbol) : P_type_symbol ;
-							
-							if (typeid(*last_type_symbol) == typeid(uint_type_name_c))
-							{
-						
-								symbol_c * return_type_symbol = &search_constant_type_c::string_type_name;
-								s4o.print("__delete(&");
-								IN_param_value->accept(*this);
-								s4o.print(", ");
-								L_param_value->accept(*this);
-								s4o.print(", ");
-								P_param_value->accept(*this);
-								s4o.print(")");
-								return NULL;
-								
-							}
-							
-							ERROR;
-						}
-						
-					}
-					
-					ERROR;
-				}
-				
-			}
-			
-			ERROR;
-		}
-		
-	}/*function_delete*/
-	break;
+    case function_delete :
+    {
+        symbol_c *last_type_symbol = NULL;
+
+        {
+            identifier_c param_name("IN");
+            /* Get the value from a foo(<param_name> = <param_value>) style call */
+            symbol_c *IN_param_value = function_call_param_iterator.search(&param_name);
+            
+            /* Get the value from a foo(<param_value>) style call */
+            if (IN_param_value == NULL)
+              IN_param_value = function_call_param_iterator.next();
+            symbol_c *IN_type_symbol = search_expression_type->get_type(IN_param_value);
+            last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN_type_symbol, last_type_symbol) : IN_type_symbol ;
+            
+            if (typeid(*last_type_symbol) == typeid(string_type_name_c))
+            {
+        
+                {
+                    identifier_c param_name("L");
+                    /* Get the value from a foo(<param_name> = <param_value>) style call */
+                    symbol_c *L_param_value = function_call_param_iterator.search(&param_name);
+                    
+                    /* Get the value from a foo(<param_value>) style call */
+                    if (L_param_value == NULL)
+                      L_param_value = function_call_param_iterator.next();
+                    symbol_c *L_type_symbol = search_expression_type->get_type(L_param_value);
+                    last_type_symbol = last_type_symbol && search_expression_type->is_same_type(L_type_symbol, last_type_symbol) ? search_expression_type->common_type(L_type_symbol, last_type_symbol) : L_type_symbol ;
+                    
+                    if (typeid(*last_type_symbol) == typeid(uint_type_name_c))
+                    {
+                
+                        {
+                            identifier_c param_name("P");
+                            /* Get the value from a foo(<param_name> = <param_value>) style call */
+                            symbol_c *P_param_value = function_call_param_iterator.search(&param_name);
+                            
+                            /* Get the value from a foo(<param_value>) style call */
+                            if (P_param_value == NULL)
+                              P_param_value = function_call_param_iterator.next();
+                            symbol_c *P_type_symbol = search_expression_type->get_type(P_param_value);
+                            last_type_symbol = last_type_symbol && search_expression_type->is_same_type(P_type_symbol, last_type_symbol) ? search_expression_type->common_type(P_type_symbol, last_type_symbol) : P_type_symbol ;
+                            
+                            if (typeid(*last_type_symbol) == typeid(uint_type_name_c))
+                            {
+                        
+                                symbol_c * return_type_symbol = &search_constant_type_c::string_type_name;
+                                s4o.print("__delete(&");
+                                IN_param_value->accept(*this);
+                                s4o.print(", ");
+                                L_param_value->accept(*this);
+                                s4o.print(", ");
+                                P_param_value->accept(*this);
+                                s4o.print(")");
+                                return NULL;
+                                
+                            }
+                            
+                            ERROR;
+                        }
+                        
+                    }
+                    
+                    ERROR;
+                }
+                
+            }
+            
+            ERROR;
+        }
+        
+    }/*function_delete*/
+    break;
 
 /****
  *REPLACE
  */
-	case function_replace :
-	{
-		symbol_c *last_type_symbol = NULL;
-
-		{
-			identifier_c param_name("IN1");
-			/* Get the value from a foo(<param_name> = <param_value>) style call */
-			symbol_c *IN1_param_value = function_call_param_iterator.search(&param_name);
-			
-			/* Get the value from a foo(<param_value>) style call */
-			if (IN1_param_value == NULL)
-			  IN1_param_value = function_call_param_iterator.next();
-			symbol_c *IN1_type_symbol = search_expression_type->get_type(IN1_param_value);
-			last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN1_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN1_type_symbol, last_type_symbol) : IN1_type_symbol ;
-			
-			if (typeid(*last_type_symbol) == typeid(string_type_name_c))
-			{
-		
-				{
-					identifier_c param_name("IN2");
-					/* Get the value from a foo(<param_name> = <param_value>) style call */
-					symbol_c *IN2_param_value = function_call_param_iterator.search(&param_name);
-					
-					/* Get the value from a foo(<param_value>) style call */
-					if (IN2_param_value == NULL)
-					  IN2_param_value = function_call_param_iterator.next();
-					symbol_c *IN2_type_symbol = search_expression_type->get_type(IN2_param_value);
-					last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN2_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN2_type_symbol, last_type_symbol) : IN2_type_symbol ;
-					
-					if (typeid(*last_type_symbol) == typeid(string_type_name_c))
-					{
-				
-						{
-							identifier_c param_name("L");
-							/* Get the value from a foo(<param_name> = <param_value>) style call */
-							symbol_c *L_param_value = function_call_param_iterator.search(&param_name);
-							
-							/* Get the value from a foo(<param_value>) style call */
-							if (L_param_value == NULL)
-							  L_param_value = function_call_param_iterator.next();
-							symbol_c *L_type_symbol = search_expression_type->get_type(L_param_value);
-							last_type_symbol = last_type_symbol && search_expression_type->is_same_type(L_type_symbol, last_type_symbol) ? search_expression_type->common_type(L_type_symbol, last_type_symbol) : L_type_symbol ;
-							
-							if (typeid(*last_type_symbol) == typeid(uint_type_name_c))
-							{
-						
-								{
-									identifier_c param_name("P");
-									/* Get the value from a foo(<param_name> = <param_value>) style call */
-									symbol_c *P_param_value = function_call_param_iterator.search(&param_name);
-									
-									/* Get the value from a foo(<param_value>) style call */
-									if (P_param_value == NULL)
-									  P_param_value = function_call_param_iterator.next();
-									symbol_c *P_type_symbol = search_expression_type->get_type(P_param_value);
-									last_type_symbol = last_type_symbol && search_expression_type->is_same_type(P_type_symbol, last_type_symbol) ? search_expression_type->common_type(P_type_symbol, last_type_symbol) : P_type_symbol ;
-									
-									if (typeid(*last_type_symbol) == typeid(uint_type_name_c))
-									{
-								
-										symbol_c * return_type_symbol = &search_constant_type_c::string_type_name;
-										s4o.print("__replace(&");
-										IN1_param_value->accept(*this);
-										s4o.print(", &");
-										IN2_param_value->accept(*this);
-										s4o.print(", ");
-										L_param_value->accept(*this);
-										s4o.print(", ");
-										P_param_value->accept(*this);
-										s4o.print(")");
-										return NULL;
-										
-									}
-									
-									ERROR;
-								}
-								
-							}
-							
-							ERROR;
-						}
-						
-					}
-					
-					ERROR;
-				}
-				
-			}
-			
-			ERROR;
-		}
-		
-	}/*function_replace*/
-	break;
+    case function_replace :
+    {
+        symbol_c *last_type_symbol = NULL;
+
+        {
+            identifier_c param_name("IN1");
+            /* Get the value from a foo(<param_name> = <param_value>) style call */
+            symbol_c *IN1_param_value = function_call_param_iterator.search(&param_name);
+            
+            /* Get the value from a foo(<param_value>) style call */
+            if (IN1_param_value == NULL)
+              IN1_param_value = function_call_param_iterator.next();
+            symbol_c *IN1_type_symbol = search_expression_type->get_type(IN1_param_value);
+            last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN1_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN1_type_symbol, last_type_symbol) : IN1_type_symbol ;
+            
+            if (typeid(*last_type_symbol) == typeid(string_type_name_c))
+            {
+        
+                {
+                    identifier_c param_name("IN2");
+                    /* Get the value from a foo(<param_name> = <param_value>) style call */
+                    symbol_c *IN2_param_value = function_call_param_iterator.search(&param_name);
+                    
+                    /* Get the value from a foo(<param_value>) style call */
+                    if (IN2_param_value == NULL)
+                      IN2_param_value = function_call_param_iterator.next();
+                    symbol_c *IN2_type_symbol = search_expression_type->get_type(IN2_param_value);
+                    last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN2_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN2_type_symbol, last_type_symbol) : IN2_type_symbol ;
+                    
+                    if (typeid(*last_type_symbol) == typeid(string_type_name_c))
+                    {
+                
+                        {
+                            identifier_c param_name("L");
+                            /* Get the value from a foo(<param_name> = <param_value>) style call */
+                            symbol_c *L_param_value = function_call_param_iterator.search(&param_name);
+                            
+                            /* Get the value from a foo(<param_value>) style call */
+                            if (L_param_value == NULL)
+                              L_param_value = function_call_param_iterator.next();
+                            symbol_c *L_type_symbol = search_expression_type->get_type(L_param_value);
+                            last_type_symbol = last_type_symbol && search_expression_type->is_same_type(L_type_symbol, last_type_symbol) ? search_expression_type->common_type(L_type_symbol, last_type_symbol) : L_type_symbol ;
+                            
+                            if (typeid(*last_type_symbol) == typeid(uint_type_name_c))
+                            {
+                        
+                                {
+                                    identifier_c param_name("P");
+                                    /* Get the value from a foo(<param_name> = <param_value>) style call */
+                                    symbol_c *P_param_value = function_call_param_iterator.search(&param_name);
+                                    
+                                    /* Get the value from a foo(<param_value>) style call */
+                                    if (P_param_value == NULL)
+                                      P_param_value = function_call_param_iterator.next();
+                                    symbol_c *P_type_symbol = search_expression_type->get_type(P_param_value);
+                                    last_type_symbol = last_type_symbol && search_expression_type->is_same_type(P_type_symbol, last_type_symbol) ? search_expression_type->common_type(P_type_symbol, last_type_symbol) : P_type_symbol ;
+                                    
+                                    if (typeid(*last_type_symbol) == typeid(uint_type_name_c))
+                                    {
+                                
+                                        symbol_c * return_type_symbol = &search_constant_type_c::string_type_name;
+                                        s4o.print("__replace(&");
+                                        IN1_param_value->accept(*this);
+                                        s4o.print(", &");
+                                        IN2_param_value->accept(*this);
+                                        s4o.print(", ");
+                                        L_param_value->accept(*this);
+                                        s4o.print(", ");
+                                        P_param_value->accept(*this);
+                                        s4o.print(")");
+                                        return NULL;
+                                        
+                                    }
+                                    
+                                    ERROR;
+                                }
+                                
+                            }
+                            
+                            ERROR;
+                        }
+                        
+                    }
+                    
+                    ERROR;
+                }
+                
+            }
+            
+            ERROR;
+        }
+        
+    }/*function_replace*/
+    break;
 
 /****
  *FIND
  */
-	case function_find :
-	{
-		symbol_c *last_type_symbol = NULL;
-
-		{
-			identifier_c param_name("IN1");
-			/* Get the value from a foo(<param_name> = <param_value>) style call */
-			symbol_c *IN1_param_value = function_call_param_iterator.search(&param_name);
-			
-			/* Get the value from a foo(<param_value>) style call */
-			if (IN1_param_value == NULL)
-			  IN1_param_value = function_call_param_iterator.next();
-			symbol_c *IN1_type_symbol = search_expression_type->get_type(IN1_param_value);
-			last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN1_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN1_type_symbol, last_type_symbol) : IN1_type_symbol ;
-			
-			if (typeid(*last_type_symbol) == typeid(string_type_name_c))
-			{
-		
-				{
-					identifier_c param_name("IN2");
-					/* Get the value from a foo(<param_name> = <param_value>) style call */
-					symbol_c *IN2_param_value = function_call_param_iterator.search(&param_name);
-					
-					/* Get the value from a foo(<param_value>) style call */
-					if (IN2_param_value == NULL)
-					  IN2_param_value = function_call_param_iterator.next();
-					symbol_c *IN2_type_symbol = search_expression_type->get_type(IN2_param_value);
-					last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN2_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN2_type_symbol, last_type_symbol) : IN2_type_symbol ;
-					
-					if (typeid(*last_type_symbol) == typeid(string_type_name_c))
-					{
-				
-						symbol_c * return_type_symbol = &search_constant_type_c::int_type_name;
-						s4o.print("__find(&");
-						IN1_param_value->accept(*this);
-						s4o.print(", &");
-						IN2_param_value->accept(*this);
-						s4o.print(")");
-						return NULL;
-						
-					}
-					
-					ERROR;
-				}
-				
-			}
-			
-			ERROR;
-		}
-		
-	}/*function_find*/
-	break;
-
-	case function_none :
-	ERROR;
+    case function_find :
+    {
+        symbol_c *last_type_symbol = NULL;
+
+        {
+            identifier_c param_name("IN1");
+            /* Get the value from a foo(<param_name> = <param_value>) style call */
+            symbol_c *IN1_param_value = function_call_param_iterator.search(&param_name);
+            
+            /* Get the value from a foo(<param_value>) style call */
+            if (IN1_param_value == NULL)
+              IN1_param_value = function_call_param_iterator.next();
+            symbol_c *IN1_type_symbol = search_expression_type->get_type(IN1_param_value);
+            last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN1_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN1_type_symbol, last_type_symbol) : IN1_type_symbol ;
+            
+            if (typeid(*last_type_symbol) == typeid(string_type_name_c))
+            {
+        
+                {
+                    identifier_c param_name("IN2");
+                    /* Get the value from a foo(<param_name> = <param_value>) style call */
+                    symbol_c *IN2_param_value = function_call_param_iterator.search(&param_name);
+                    
+                    /* Get the value from a foo(<param_value>) style call */
+                    if (IN2_param_value == NULL)
+                      IN2_param_value = function_call_param_iterator.next();
+                    symbol_c *IN2_type_symbol = search_expression_type->get_type(IN2_param_value);
+                    last_type_symbol = last_type_symbol && search_expression_type->is_same_type(IN2_type_symbol, last_type_symbol) ? search_expression_type->common_type(IN2_type_symbol, last_type_symbol) : IN2_type_symbol ;
+                    
+                    if (typeid(*last_type_symbol) == typeid(string_type_name_c))
+                    {
+                
+                        symbol_c * return_type_symbol = &search_constant_type_c::int_type_name;
+                        s4o.print("__find(&");
+                        IN1_param_value->accept(*this);
+                        s4o.print(", &");
+                        IN2_param_value->accept(*this);
+                        s4o.print(")");
+                        return NULL;
+                        
+                    }
+                    
+                    ERROR;
+                }
+                
+            }
+            
+            ERROR;
+        }
+        
+    }/*function_find*/
+    break;
+
+    case function_none :
+    ERROR;
 }
 return NULL;