lbessard@70: /*
lbessard@70:  * (c) 2003 Mario de Sousa
lbessard@70:  *
lbessard@70:  * Offered to the public under the terms of the GNU General Public License
lbessard@70:  * as published by the Free Software Foundation; either version 2 of the
lbessard@70:  * License, or (at your option) any later version.
lbessard@70:  *
lbessard@70:  * This program is distributed in the hope that it will be useful, but
lbessard@70:  * WITHOUT ANY WARRANTY; without even the implied warranty of
lbessard@70:  * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU General
lbessard@70:  * Public License for more details.
lbessard@70:  *
lbessard@70:  * This code is made available on the understanding that it will not be
lbessard@70:  * used in safety-critical situations without a full and competent review.
lbessard@70:  */
lbessard@70: 
lbessard@70: /*
lbessard@70:  * An IEC 61131-3 IL and ST compiler.
lbessard@70:  *
lbessard@70:  * Based on the
lbessard@70:  * FINAL DRAFT - IEC 61131-3, 2nd Ed. (2001-12-10)
lbessard@70:  *
lbessard@70:  */
lbessard@70: 
lbessard@70: 
lbessard@70: /*
lbessard@70:  * Conversion of st statements (i.e. ST code).
lbessard@70:  *
lbessard@70:  * This is part of the 4th stage that generates
lbessard@70:  * a c++ source program equivalent to the IL and ST
lbessard@70:  * code.
lbessard@70:  */
lbessard@70: 
lbessard@70: 
lbessard@70: /***********************************************************************/
lbessard@70: /***********************************************************************/
lbessard@70: /***********************************************************************/
lbessard@70: /***********************************************************************/
lbessard@70: 
lbessard@70: 
lbessard@70: class generate_c_st_c: public generate_c_typedecl_c {
lbessard@70: 
lbessard@70:   private:
lbessard@70:     /* When calling a function block, we must first find it's type,
lbessard@70:      * by searching through the declarations of the variables currently
lbessard@70:      * in scope.
lbessard@70:      * This class does just that...
lbessard@70:      * A new class is instantiated whenever we begin generating the code
lbessard@70:      * for a function block type declaration, or a program declaration.
lbessard@70:      * This object instance will then later be called while the
lbessard@70:      * function block's or the program's body is being handled.
lbessard@70:      *
lbessard@70:      * Note that functions cannot contain calls to function blocks,
lbessard@70:      * so we do not create an object instance when handling
lbessard@70:      * a function declaration.
lbessard@70:      */
lbessard@70:     search_fb_instance_decl_c *search_fb_instance_decl;
lbessard@70: 
lbessard@70:     /* When compiling st code, it becomes necessary to determine the
lbessard@70:      * data type of st expressions. To do this, we must first find the
lbessard@70:      * st operand's declaration, within the scope of the function block
lbessard@70:      * or function currently being processed.
lbessard@70:      * The following object does just that...
lbessard@70:      * This object instance will then later be called while the
lbessard@70:      * remaining st code is being handled.
lbessard@70:      */
lbessard@70:     search_expression_type_c *search_expression_type;
lbessard@70: 
lbessard@70:     search_varfb_instance_type_c *search_varfb_instance_type;
lbessard@70: 
lbessard@98:     search_base_type_c search_base_type;
lbessard@98: 
lbessard@98:     symbol_c* current_array_type;
lbessard@98: 
lbessard@145:     bool current_param_is_pointer;
lbessard@145: 
lbessard@70:   public:
lbessard@70:     generate_c_st_c(stage4out_c *s4o_ptr, symbol_c *scope, const char *variable_prefix = NULL)
lbessard@70:     : generate_c_typedecl_c(s4o_ptr) {
lbessard@70:       search_fb_instance_decl = new search_fb_instance_decl_c(scope);
lbessard@70:       search_expression_type = new search_expression_type_c(scope);
lbessard@70:       search_varfb_instance_type = new search_varfb_instance_type_c(scope);
lbessard@70:       this->set_variable_prefix(variable_prefix);
lbessard@98:       current_array_type = NULL;
lbessard@145:       current_param_is_pointer = false;
lbessard@70:     }
lbessard@70: 
lbessard@70:     virtual ~generate_c_st_c(void) {
lbessard@70:       delete search_fb_instance_decl;
lbessard@70:       delete search_expression_type;
lbessard@70:       delete search_varfb_instance_type;
lbessard@70:     }
lbessard@70: 
lbessard@70: 
lbessard@70:   private:
lbessard@70:     /* Some function calls in the body of functions or function blocks
lbessard@70:      * may leave some parameters to their default values, and
lbessard@70:      * ignore some output parameters of the function being called.
lbessard@70:      * Our conversion of ST functions to C++ does not contemplate that,
lbessard@70:      * i.e. each called function must get all it's input and output
lbessard@70:      * parameters set correctly.
lbessard@70:      * For input parameters we merely need to call the function with
lbessard@70:      * the apropriate default value, but for output parameters
lbessard@70:      * we must create temporary variables to hold the output value.
lbessard@70:      *
lbessard@70:      * We declare all the temporary output variables at the begining of
lbessard@70:      * the body of each function or function block, and use them as
lbessard@70:      * in function calls later on as they become necessary...
lbessard@70:      * Note that we cannot create these variables just before a function
lbessard@70:      * call, as the function call itself may be integrated within an
lbessard@70:      * expression, or another function call!
lbessard@70:      *
lbessard@70:      * The variables are declared in the exact same order in which they
lbessard@70:      * will be used later on during the function calls, which allows us
lbessard@70:      * to simply re-create the name that was used for the temporary variable
lbessard@70:      * instead of keeping it in some list.
lbessard@70:      * The names are recreated by the temp_var_name_factory, after reset()
lbessard@70:      * has been called!
lbessard@70:      *
lbessard@70:      * This function will genertae code similar to...
lbessard@70:      *
lbessard@70:      *     INT __TMP_0 = 23;
lbessard@70:      *     REAL __TMP_1 = 45.5;
lbessard@70:      *     ...
lbessard@70:      */
lbessard@70:     temp_var_name_c temp_var_name_factory;
lbessard@70: 
lbessard@70:   public:
lbessard@70:     void generate(statement_list_c *stl) {
lbessard@70:       generate_c_tempvardecl_c generate_c_tempvardecl(&s4o);
lbessard@70:       generate_c_tempvardecl.generate(stl, &temp_var_name_factory);
lbessard@70:       stl->accept(*this);
lbessard@70:     }
lbessard@70: 
lbessard@70:   private:
lbessard@70: 
lbessard@146: void *visit(eno_param_c *symbol) {
lbessard@146:   if (this->is_variable_prefix_null()) {
lbessard@146:     s4o.print("*");
lbessard@146:   }
lbessard@146:   else {
lbessard@146:     this->print_variable_prefix();
lbessard@146:   }
lbessard@146:   s4o.print("ENO");
lbessard@146:   return NULL;
lbessard@146: }
lbessard@146: 
lbessard@70: /*********************/
lbessard@70: /* B 1.4 - Variables */
lbessard@70: /*********************/
lbessard@70: void *visit(symbolic_variable_c *symbol) {
lbessard@70:   unsigned int vartype = search_varfb_instance_type->get_vartype(symbol);
lbessard@145:   if (!current_param_is_pointer && (vartype == search_var_instance_decl_c::external_vt || vartype == search_var_instance_decl_c::located_vt)) {
lbessard@70:     s4o.print("*(");
lbessard@70:     generate_c_base_c::visit(symbol);
lbessard@70:     s4o.print(")");
lbessard@70:   }
lbessard@145:   else if (current_param_is_pointer && vartype != search_var_instance_decl_c::external_vt && vartype != search_var_instance_decl_c::located_vt) {
lbessard@145:     s4o.print("&(");
lbessard@145:     generate_c_base_c::visit(symbol);
lbessard@145:     s4o.print(")");
lbessard@145:   }
lbessard@70:   else {
lbessard@70:     generate_c_base_c::visit(symbol);
lbessard@70:   }
lbessard@70:   return NULL;
lbessard@70: }
lbessard@70: 
lbessard@70: /********************************************/
lbessard@70: /* B.1.4.1   Directly Represented Variables */
lbessard@70: /********************************************/
lbessard@70: // direct_variable: direct_variable_token   {$$ = new direct_variable_c($1);};
lbessard@70: void *visit(direct_variable_c *symbol) {
lbessard@70:   TRACE("direct_variable_c");
lbessard@70:   /* Do not use print_token() as it will change everything into uppercase */
lbessard@70:   if (strlen(symbol->value) == 0) ERROR;
lbessard@145:   if (!current_param_is_pointer) {
lbessard@145:     s4o.print("*(");
lbessard@145:   }
lbessard@70:   this->print_variable_prefix();
lbessard@70:   s4o.printlocation(symbol->value + 1);
lbessard@145:   if (!current_param_is_pointer) {
lbessard@145:     s4o.print(")");
lbessard@145:   }
lbessard@70:   return NULL;
lbessard@70: }
lbessard@70: 
lbessard@98: /*************************************/
lbessard@98: /* B.1.4.2   Multi-element Variables */
lbessard@98: /*************************************/
lbessard@98: 
lbessard@98: /*  subscripted_variable '[' subscript_list ']' */
lbessard@98: //SYM_REF2(array_variable_c, subscripted_variable, subscript_list)
lbessard@98: void *visit(array_variable_c *symbol) {
lbessard@98:   current_array_type = search_varfb_instance_type->get_type(symbol->subscripted_variable, false);
lbessard@98:   symbol->subscripted_variable->accept(*this);
lbessard@98:   if (current_array_type != NULL) {
lbessard@98:     symbol->subscript_list->accept(*this);
lbessard@98:     current_array_type = NULL;
lbessard@98:   }
lbessard@98:   return NULL;
lbessard@98: }
lbessard@98: 
lbessard@98: /* subscript_list ',' subscript */
lbessard@98: void *visit(subscript_list_c *symbol) {
lbessard@98:   for (int i =  0; i < symbol->n; i++) {
lbessard@98:     s4o.print("[__");
lbessard@98:     current_array_type->accept(*this);
lbessard@98:     s4o.print("_TRANSIDX");
lbessard@98:     print_integer(i);
lbessard@98:     s4o.print("(");
lbessard@98:     symbol->elements[i]->accept(*this);
lbessard@98:     s4o.print(")]");
lbessard@98:   }
lbessard@98:   return NULL;
lbessard@98: }
lbessard@98: 
lbessard@98: 
lbessard@70: /***************************************/
lbessard@70: /* B.3 - Language ST (Structured Text) */
lbessard@70: /***************************************/
lbessard@70: /***********************/
lbessard@70: /* B 3.1 - Expressions */
lbessard@70: /***********************/
lbessard@70: void *visit(or_expression_c *symbol) {
lbessard@70:   symbol_c *left_type = search_expression_type->get_type(symbol->l_exp);
lbessard@70:   symbol_c *right_type = search_expression_type->get_type(symbol->r_exp);
lbessard@70:   if (!search_expression_type->is_same_type(left_type, right_type))
lbessard@70:       ERROR;
lbessard@70:   if (search_expression_type->is_bool_type(left_type))
lbessard@70:     return print_binary_expression(symbol->l_exp, symbol->r_exp, " || ");
lbessard@70:   if (search_expression_type->is_binary_type(left_type))
lbessard@70:     return print_binary_expression(symbol->l_exp, symbol->r_exp, " | ");
lbessard@70:   ERROR;
lbessard@70:   return NULL;
lbessard@70: }
lbessard@70: 
lbessard@70: void *visit(xor_expression_c *symbol) {
lbessard@70:   symbol_c *left_type = search_expression_type->get_type(symbol->l_exp);
lbessard@70:   symbol_c *right_type = search_expression_type->get_type(symbol->r_exp);
lbessard@70:   if (!search_expression_type->is_same_type(left_type, right_type))
lbessard@70:       ERROR;
lbessard@70:   if (search_expression_type->is_bool_type(left_type)) {
lbessard@70:     s4o.print("(");
lbessard@70:     symbol->l_exp->accept(*this);
lbessard@70:     s4o.print(" && !");
lbessard@70:     symbol->r_exp->accept(*this);
lbessard@70:     s4o.print(") || (!");
lbessard@70:     symbol->l_exp->accept(*this);
lbessard@70:     s4o.print(" && ");
lbessard@70:     symbol->r_exp->accept(*this);
lbessard@70:     s4o.print(")");
etisserant@130:     return NULL;
lbessard@70:   }
lbessard@70:   if (search_expression_type->is_binary_type(left_type))
lbessard@70:     return print_binary_expression(symbol->l_exp, symbol->r_exp, " ^ ");
lbessard@70:   ERROR;
lbessard@70:   return NULL;
lbessard@70: }
lbessard@70: 
lbessard@70: void *visit(and_expression_c *symbol) {
lbessard@70:   symbol_c *left_type = search_expression_type->get_type(symbol->l_exp);
lbessard@70:   symbol_c *right_type = search_expression_type->get_type(symbol->r_exp);
lbessard@70:   if (!search_expression_type->is_same_type(left_type, right_type))
lbessard@70:       ERROR;
lbessard@70:   if (search_expression_type->is_bool_type(left_type))
lbessard@70:     return print_binary_expression(symbol->l_exp, symbol->r_exp, " && ");
lbessard@70:   if (search_expression_type->is_binary_type(left_type))
lbessard@70:     return print_binary_expression(symbol->l_exp, symbol->r_exp, " & ");
lbessard@70:   ERROR;
lbessard@70:   return NULL;
lbessard@70: }
lbessard@70: 
lbessard@70: void *visit(equ_expression_c *symbol) {
lbessard@70:   symbol_c *left_type = search_expression_type->get_type(symbol->l_exp);
lbessard@70:   symbol_c *right_type = search_expression_type->get_type(symbol->r_exp);
lbessard@70:   if (!search_expression_type->is_same_type(left_type, right_type))
lbessard@70:       ERROR;
lbessard@123:   if (search_expression_type->is_time_type(left_type) ||
lbessard@123:       search_expression_type->is_string_type(left_type))
lbessard@70:     return print_compare_function("__eq_", left_type, symbol->l_exp, symbol->r_exp);
lbessard@70:   return print_binary_expression(symbol->l_exp, symbol->r_exp, " == ");
lbessard@70: }
lbessard@70: 
lbessard@70: void *visit(notequ_expression_c *symbol) {
lbessard@70:   symbol_c *left_type = search_expression_type->get_type(symbol->l_exp);
lbessard@70:   symbol_c *right_type = search_expression_type->get_type(symbol->r_exp);
lbessard@70:   if (!search_expression_type->is_same_type(left_type, right_type))
lbessard@70:       ERROR;
lbessard@123:   if (search_expression_type->is_time_type(left_type) ||
lbessard@123:       search_expression_type->is_string_type(left_type))
lbessard@70:     return print_compare_function("__ne_", left_type, symbol->l_exp, symbol->r_exp);
lbessard@70:   return print_binary_expression(symbol->l_exp, symbol->r_exp, " != ");
lbessard@70: }
lbessard@70: 
lbessard@70: void *visit(lt_expression_c *symbol) {
lbessard@70:   symbol_c *left_type = search_expression_type->get_type(symbol->l_exp);
lbessard@70:   symbol_c *right_type = search_expression_type->get_type(symbol->r_exp);
lbessard@70:   if (!search_expression_type->is_same_type(left_type, right_type))
lbessard@70:       ERROR;
lbessard@123:   if (search_expression_type->is_time_type(left_type) ||
lbessard@123:       search_expression_type->is_string_type(left_type))
lbessard@70:     return print_compare_function("__lt_", left_type, symbol->l_exp, symbol->r_exp);
lbessard@123:   if (!search_base_type.type_is_enumerated(left_type))
lbessard@123:     return print_binary_expression(symbol->l_exp, symbol->r_exp, " < ");
lbessard@123:   ERROR;
lbessard@123:   return NULL;
lbessard@70: }
lbessard@70: 
lbessard@70: void *visit(gt_expression_c *symbol) {
lbessard@70:   symbol_c *left_type = search_expression_type->get_type(symbol->l_exp);
lbessard@70:   symbol_c *right_type = search_expression_type->get_type(symbol->r_exp);
lbessard@70:   if (!search_expression_type->is_same_type(left_type, right_type))
lbessard@70:       ERROR;
lbessard@123:   if (search_expression_type->is_time_type(left_type) ||
lbessard@123:       search_expression_type->is_string_type(left_type))
lbessard@70:     return print_compare_function("__gt_", left_type, symbol->l_exp, symbol->r_exp);
lbessard@123:   if (!search_base_type.type_is_enumerated(left_type))
lbessard@123:     return print_binary_expression(symbol->l_exp, symbol->r_exp, " > ");
lbessard@123:   ERROR;
lbessard@123:   return NULL;
lbessard@70: }
lbessard@70: 
lbessard@70: void *visit(le_expression_c *symbol) {
lbessard@70:   symbol_c *left_type = search_expression_type->get_type(symbol->l_exp);
lbessard@70:   symbol_c *right_type = search_expression_type->get_type(symbol->r_exp);
lbessard@70:   if (!search_expression_type->is_same_type(left_type, right_type))
lbessard@70:       ERROR;
lbessard@123:   if (search_expression_type->is_time_type(left_type) ||
lbessard@123:       search_expression_type->is_string_type(left_type))
lbessard@70:     return print_compare_function("__le_", left_type, symbol->l_exp, symbol->r_exp);
lbessard@123:   if (!search_base_type.type_is_enumerated(left_type))
lbessard@123:     return print_binary_expression(symbol->l_exp, symbol->r_exp, " <= ");
lbessard@123:   ERROR;
lbessard@123:   return NULL;
lbessard@70: }
lbessard@70: 
lbessard@70: void *visit(ge_expression_c *symbol) {
lbessard@70:   symbol_c *left_type = search_expression_type->get_type(symbol->l_exp);
lbessard@70:   symbol_c *right_type = search_expression_type->get_type(symbol->r_exp);
lbessard@70:   if (!search_expression_type->is_same_type(left_type, right_type))
lbessard@70:       ERROR;
lbessard@123:   if (search_expression_type->is_time_type(left_type) ||
lbessard@123:       search_expression_type->is_string_type(left_type))
lbessard@70:     return print_compare_function("__ge_", left_type, symbol->l_exp, symbol->r_exp);
lbessard@123:   if (!search_base_type.type_is_enumerated(left_type))
lbessard@123:     return print_binary_expression(symbol->l_exp, symbol->r_exp, " >= ");
lbessard@123:   ERROR;
lbessard@123:   return NULL;
lbessard@70: }
lbessard@70: 
lbessard@70: void *visit(add_expression_c *symbol) {
lbessard@70:   symbol_c *left_type = search_expression_type->get_type(symbol->l_exp);
lbessard@70: 	symbol_c *right_type = search_expression_type->get_type(symbol->r_exp);
lbessard@70: 	if ((typeid(*left_type) == typeid(time_type_name_c) && typeid(*right_type) == typeid(time_type_name_c)) ||
lbessard@70:       (typeid(*left_type) == typeid(tod_type_name_c) && typeid(*right_type) == typeid(time_type_name_c)) ||
lbessard@70:       (typeid(*left_type) == typeid(dt_type_name_c) && typeid(*right_type) == typeid(time_type_name_c)))
lbessard@70:     return print_binary_function("__time_add", symbol->l_exp, symbol->r_exp);
lbessard@70:   if (!search_expression_type->is_same_type(left_type, right_type))
lbessard@70:       ERROR;
lbessard@70:   if (search_expression_type->is_integer_type(left_type) || search_expression_type->is_real_type(left_type))
lbessard@70:     return print_binary_expression(symbol->l_exp, symbol->r_exp, " + ");
lbessard@70:   ERROR;
lbessard@70:   return NULL;
lbessard@70: }
lbessard@70: 
lbessard@70: void *visit(sub_expression_c *symbol) {
lbessard@70:   symbol_c *left_type = search_expression_type->get_type(symbol->l_exp);
lbessard@70:   symbol_c *right_type = search_expression_type->get_type(symbol->r_exp);
lbessard@70:   if ((typeid(*left_type) == typeid(time_type_name_c) && typeid(*right_type) == typeid(time_type_name_c)) ||
lbessard@70:       (typeid(*left_type) == typeid(date_type_name_c) && typeid(*right_type) == typeid(date_type_name_c)) ||
lbessard@70:       (typeid(*left_type) == typeid(tod_type_name_c) && typeid(*right_type) == typeid(time_type_name_c)) ||
lbessard@70:       (typeid(*left_type) == typeid(tod_type_name_c) && typeid(*right_type) == typeid(tod_type_name_c)) ||
lbessard@70:       (typeid(*left_type) == typeid(dt_type_name_c) && typeid(*right_type) == typeid(time_type_name_c)) ||
lbessard@70:       (typeid(*left_type) == typeid(dt_type_name_c) && typeid(*right_type) == typeid(dt_type_name_c)))
lbessard@70:     return print_binary_function("__time_sub", symbol->l_exp, symbol->r_exp);
lbessard@70:   if (!search_expression_type->is_same_type(left_type, right_type))
lbessard@70:       ERROR;
lbessard@70:   if (search_expression_type->is_integer_type(left_type) || search_expression_type->is_real_type(left_type))
lbessard@70:     return print_binary_expression(symbol->l_exp, symbol->r_exp, " - ");
lbessard@70:   ERROR;
lbessard@70:   return NULL;
lbessard@70: }
lbessard@70: 
lbessard@70: void *visit(mul_expression_c *symbol) {
lbessard@70:   symbol_c *left_type = search_expression_type->get_type(symbol->l_exp);
lbessard@70:   symbol_c *right_type = search_expression_type->get_type(symbol->r_exp);
lbessard@70:   if ((typeid(*left_type) == typeid(time_type_name_c) && search_expression_type->is_integer_type(right_type)) ||
lbessard@70:       (typeid(*left_type) == typeid(time_type_name_c) && search_expression_type->is_real_type(right_type)))
lbessard@70:     return print_binary_function("__time_mul", symbol->l_exp, symbol->r_exp);
lbessard@70:   if (!search_expression_type->is_same_type(left_type, right_type))
lbessard@70:       ERROR;
lbessard@70:   if (search_expression_type->is_integer_type(left_type) || search_expression_type->is_real_type(left_type))
lbessard@70:     return print_binary_expression(symbol->l_exp, symbol->r_exp, " * ");
lbessard@70:   ERROR;
lbessard@70:   return NULL;
lbessard@70: }
lbessard@70: 
lbessard@70: void *visit(div_expression_c *symbol) {
lbessard@70:   symbol_c *left_type = search_expression_type->get_type(symbol->l_exp);
lbessard@70:   symbol_c *right_type = search_expression_type->get_type(symbol->r_exp);
lbessard@70:   if (!search_expression_type->is_same_type(left_type, right_type))
lbessard@70:       ERROR;
lbessard@70:   if (search_expression_type->is_integer_type(left_type) || search_expression_type->is_real_type(left_type))
lbessard@70:     return print_binary_expression(symbol->l_exp, symbol->r_exp, " / ");
lbessard@70:   ERROR;
lbessard@70:   return NULL;
lbessard@70: }
lbessard@70: 
lbessard@70: void *visit(mod_expression_c *symbol) {
lbessard@70:   symbol_c *left_type = search_expression_type->get_type(symbol->l_exp);
lbessard@70:   symbol_c *right_type = search_expression_type->get_type(symbol->r_exp);
lbessard@70:   if (!search_expression_type->is_same_type(left_type, right_type))
lbessard@70:       ERROR;
lbessard@70:   if (search_expression_type->is_integer_type(left_type) || search_expression_type->is_real_type(left_type)) {
lbessard@70:     s4o.print("((");
lbessard@70:     symbol->r_exp->accept(*this);
lbessard@70:     s4o.print(" == 0)?0:");
lbessard@70:     print_binary_expression(symbol->l_exp, symbol->r_exp, " % ");
lbessard@70:     s4o.print(")");
lbessard@70:     return NULL;
lbessard@70:   }
lbessard@70:   ERROR;
lbessard@70:   return NULL;
lbessard@70: }
lbessard@70: 
lbessard@70: /* TODO: power expression... */
lbessard@70: void *visit(power_expression_c *symbol) {ERROR; return print_binary_expression(symbol->l_exp, symbol->r_exp, " ** ");}
lbessard@123: void *visit(neg_expression_c *symbol) {
lbessard@123:   symbol_c *exp_type = search_expression_type->get_type(symbol->exp);
lbessard@123:   if (search_expression_type->is_integer_type(exp_type) || search_expression_type->is_real_type(exp_type))
lbessard@123:     return print_unary_expression(symbol->exp, " -");
lbessard@123:   ERROR;
lbessard@123:   return NULL;
lbessard@123: }
lbessard@70: 
lbessard@70: void *visit(not_expression_c *symbol) {
lbessard@70:   symbol_c *exp_type = search_expression_type->get_type(symbol->exp);
lbessard@123:   if (search_expression_type->is_binary_type(exp_type))
lbessard@123:     return print_unary_expression(symbol->exp, search_expression_type->is_bool_type(exp_type)?"!":"~");
lbessard@123:   ERROR;
lbessard@123:   return NULL;
lbessard@70: }
lbessard@70: 
lbessard@70: void *visit(function_invocation_c *symbol) {
lbessard@70:   function_declaration_c *f_decl = function_symtable.find_value(symbol->function_name);
lbessard@70:   
lbessard@70:   if (f_decl == function_symtable.end_value()) {
lbessard@70:     /* The function called is not in the symtable, so we test if it is a
lbessard@70:      * standard function defined in standard */
lbessard@70:     
lbessard@70:     function_type_t current_function_type = get_function_type((identifier_c *)symbol->function_name);
lbessard@70:     if (current_function_type == function_none) ERROR;
lbessard@70:     
lbessard@70:     symbol_c *function_return_type = search_expression_type->get_type(symbol);
lbessard@70:     
lbessard@70:     function_call_param_iterator_c function_call_param_iterator(symbol);
lbessard@70:     
lbessard@70:     int nb_param = ((list_c *)symbol->parameter_assignment_list)->n;
lbessard@70: 
lbessard@146:     #include "st_code_gen.c"
lbessard@146: 
lbessard@70:   }
lbessard@70:   else {
lbessard@70:     /* loop through each function parameter, find the value we should pass
lbessard@70:      * to it, and then output the c equivalent...
lbessard@70:      */
lbessard@70:     function_param_iterator_c fp_iterator(f_decl);
lbessard@70:   
lbessard@70:     symbol->function_name->accept(*this);
lbessard@70:     s4o.print("(");
lbessard@70:     s4o.indent_right();
lbessard@70:   
lbessard@70:     identifier_c *param_name;
lbessard@70:     function_call_param_iterator_c function_call_param_iterator(symbol);
lbessard@70:     for(int i = 1; (param_name = fp_iterator.next()) != NULL; i++) {
lbessard@70:       if (i != 1)
lbessard@70:         s4o.print(",\n"+s4o.indent_spaces);
lbessard@70:   
lbessard@70:       function_param_iterator_c::param_direction_t param_direction = fp_iterator.param_direction();
lbessard@70:   
lbessard@70:       /* Get the value from a foo(<param_name> = <param_value>) style call */
lbessard@70:       symbol_c *param_value = function_call_param_iterator.search(param_name);
lbessard@70:   
lbessard@70:       /* Get the value from a foo(<param_value>) style call */
lbessard@70:       if (param_value == NULL)
lbessard@70:         param_value = function_call_param_iterator.next();
lbessard@70:   
lbessard@70:       symbol_c *param_type = fp_iterator.param_type();
lbessard@70:       if (param_type == NULL) ERROR;
lbessard@98:         
lbessard@70:       switch (param_direction) {
lbessard@70:         case function_param_iterator_c::direction_in:
lbessard@70:           if (param_value == NULL) {
lbessard@70:             /* No value given for parameter, so we must use the default... */
lbessard@70:             /* First check whether default value specified in function declaration...*/
lbessard@70:             param_value = fp_iterator.default_value();
lbessard@70:           }
lbessard@70:           if (param_value == NULL) {
lbessard@70:             /* If not, get the default value of this variable's type */
lbessard@70:             param_value = (symbol_c *)param_type->accept(*type_initial_value_c::instance());
lbessard@70:           }
lbessard@70:           if (param_value == NULL) ERROR;
lbessard@123:           if (search_base_type.type_is_subrange(param_type)) {
lbessard@98:             s4o.print("__CHECK_");
lbessard@98:             param_type->accept(*this);
lbessard@98:             s4o.print("(");
lbessard@98:           }
lbessard@70:           param_value->accept(*this);
lbessard@123:           if (search_base_type.type_is_subrange(param_type))
lbessard@98:             s4o.print(")");
lbessard@70:           break;
lbessard@70:         case function_param_iterator_c::direction_out:
lbessard@70:         case function_param_iterator_c::direction_inout:
lbessard@145:           current_param_is_pointer = true;
lbessard@70:           if (param_value == NULL) {
lbessard@146:             s4o.print("NULL");
lbessard@70:           } else {
lbessard@70:             param_value->accept(*this);
lbessard@70:           }
lbessard@145:           current_param_is_pointer = false;
lbessard@70:           break;
lbessard@70:         case function_param_iterator_c::direction_extref:
lbessard@70:           /* TODO! */
lbessard@70:           ERROR;
lbessard@70:           break;
lbessard@70:       } /* switch */
lbessard@70:     } /* for(...) */
lbessard@70:     // symbol->parameter_assignment->accept(*this);
lbessard@70:     s4o.print(")");
lbessard@70:     s4o.indent_left();
lbessard@70:   }
lbessard@70: 
lbessard@70:   return NULL;
lbessard@70: }
lbessard@70: 
lbessard@70: /********************/
lbessard@70: /* B 3.2 Statements */
lbessard@70: /********************/
lbessard@70: void *visit(statement_list_c *symbol) {
lbessard@70:   return print_list(symbol, s4o.indent_spaces, ";\n" + s4o.indent_spaces, ";\n");
lbessard@70: }
lbessard@70: 
lbessard@70: /*********************************/
lbessard@70: /* B 3.2.1 Assignment Statements */
lbessard@70: /*********************************/
lbessard@70: void *visit(assignment_statement_c *symbol) {
lbessard@98:   symbol_c *left_type = search_varfb_instance_type->get_type(symbol->l_exp, false);
lbessard@98:   
lbessard@70:   symbol->l_exp->accept(*this);
lbessard@70:   s4o.print(" = ");
lbessard@123:   if (search_base_type.type_is_subrange(left_type)) {
lbessard@98:     s4o.print("__CHECK_");
lbessard@98:     left_type->accept(*this);
lbessard@98:     s4o.print("(");
lbessard@98:   }
lbessard@70:   symbol->r_exp->accept(*this);
lbessard@123:   if (search_base_type.type_is_subrange(left_type))
lbessard@98:     s4o.print(")");
lbessard@70:   return NULL;
lbessard@70: }
lbessard@70: 
lbessard@70: /*****************************************/
lbessard@70: /* B 3.2.2 Subprogram Control Statements */
lbessard@70: /*****************************************/
lbessard@70: 
lbessard@70: /* fb_name '(' [param_assignment_list] ')' */
lbessard@70: /* param_assignment_list -> may be NULL ! */
lbessard@70: //SYM_REF2(fb_invocation_c, fb_name, param_assignment_list)
lbessard@70: void *visit(fb_invocation_c *symbol) {
lbessard@70:   TRACE("fb_invocation_c");
lbessard@70:   /* first figure out what is the name of the function block type of the function block being called... */
lbessard@70:   symbol_c *function_block_type_name = this->search_fb_instance_decl->get_type_name(symbol->fb_name);
lbessard@70:     /* should never occur. The function block instance MUST have been declared... */
lbessard@70:   if (function_block_type_name == NULL) ERROR;
lbessard@70: 
lbessard@70:   /* Now find the declaration of the function block type being called... */
lbessard@70:   function_block_declaration_c *fb_decl = function_block_type_symtable.find_value(function_block_type_name);
lbessard@70:     /* should never occur. The function block type being called MUST be in the symtable... */
lbessard@70:   if (fb_decl == function_block_type_symtable.end_value()) ERROR;
lbessard@70: 
lbessard@70:   /* loop through each function block parameter, find the value we should pass
lbessard@70:    * to it, and then output the c equivalent...
lbessard@70:    */
lbessard@70:   function_param_iterator_c fp_iterator(fb_decl);
lbessard@70:   identifier_c *param_name;
lbessard@70:   function_call_param_iterator_c function_call_param_iterator(symbol);
lbessard@70:   for(int i = 1; (param_name = fp_iterator.next()) != NULL; i++) {
lbessard@70:     function_param_iterator_c::param_direction_t param_direction = fp_iterator.param_direction();
lbessard@70: 
lbessard@70:     /* Get the value from a foo(<param_name> = <param_value>) style call */
lbessard@70:     symbol_c *param_value = function_call_param_iterator.search(param_name);
lbessard@70: 
lbessard@70:     /* Get the value from a foo(<param_value>) style call */
lbessard@70:     if (param_value == NULL)
lbessard@70:       param_value = function_call_param_iterator.next();
lbessard@70: 
lbessard@98:     symbol_c *param_type = fp_iterator.param_type();
lbessard@98:     if (param_type == NULL) ERROR;
lbessard@98:     
lbessard@70:     /* now output the value assignment */
lbessard@70:     if (param_value != NULL)
lbessard@70:       if ((param_direction == function_param_iterator_c::direction_in) ||
lbessard@70:           (param_direction == function_param_iterator_c::direction_inout)) {
lbessard@70:         print_variable_prefix();
lbessard@70:         symbol->fb_name->accept(*this);
lbessard@70:         s4o.print(".");
lbessard@70:         param_name->accept(*this);
lbessard@70:         s4o.print(" = ");
lbessard@123:         if (search_base_type.type_is_subrange(param_type)) {
lbessard@98:           s4o.print("__CHECK_");
lbessard@98:           param_type->accept(*this);
lbessard@98:           s4o.print("(");
lbessard@98:         }
lbessard@70:         param_value->accept(*this);
lbessard@123:         if (search_base_type.type_is_subrange(param_type))
lbessard@98:           s4o.print(")");
lbessard@70:         s4o.print(";\n" + s4o.indent_spaces);
lbessard@70:       }
lbessard@70:   } /* for(...) */
lbessard@70: 
lbessard@70:   /* now call the function... */
lbessard@70:   function_block_type_name->accept(*this);
lbessard@70:   s4o.print(FB_FUNCTION_SUFFIX);
lbessard@70:   s4o.print("(&");
lbessard@70:   print_variable_prefix();
lbessard@70:   symbol->fb_name->accept(*this);
lbessard@70:   s4o.print(")");
lbessard@70: 
lbessard@70:   /* loop through each function parameter, find the variable to which
lbessard@70:    * we should atribute the value of all output or inoutput parameters.
lbessard@70:    */
lbessard@70:   fp_iterator.reset();
lbessard@70:   function_call_param_iterator.reset();
lbessard@70:   for(int i = 1; (param_name = fp_iterator.next()) != NULL; i++) {
lbessard@70:     function_param_iterator_c::param_direction_t param_direction = fp_iterator.param_direction();
lbessard@70: 
lbessard@70:     /* Get the value from a foo(<param_name> = <param_value>) style call */
lbessard@70:     symbol_c *param_value = function_call_param_iterator.search(param_name);
lbessard@70: 
lbessard@70:     /* Get the value from a foo(<param_value>) style call */
lbessard@70:     if (param_value == NULL)
lbessard@70:       param_value = function_call_param_iterator.next();
lbessard@70: 
lbessard@70:     /* now output the value assignment */
lbessard@70:     if (param_value != NULL)
lbessard@70:       if ((param_direction == function_param_iterator_c::direction_out) ||
lbessard@70:           (param_direction == function_param_iterator_c::direction_inout)) {
lbessard@98:         symbol_c *param_type = search_varfb_instance_type->get_type(param_value, false);
lbessard@98:         
lbessard@70:         s4o.print(";\n"+ s4o.indent_spaces);
lbessard@70:         param_value->accept(*this);
lbessard@70:         s4o.print(" = ");
lbessard@123:         if (search_base_type.type_is_subrange(param_type)) {
lbessard@98:           s4o.print("__CHECK_");
lbessard@98:           param_type->accept(*this);
lbessard@98:           s4o.print("(");
lbessard@98:         }
lbessard@70:         print_variable_prefix();
lbessard@70:         symbol->fb_name->accept(*this);
lbessard@70:         s4o.print(".");
lbessard@70:         param_name->accept(*this);
lbessard@123:         if (search_base_type.type_is_subrange(param_type))
lbessard@98:           s4o.print(")");
lbessard@70:       }
lbessard@70:   } /* for(...) */
lbessard@70: 
lbessard@70:   return NULL;
lbessard@70: }
lbessard@70: 
lbessard@70: 
lbessard@70: 
lbessard@70: 
lbessard@70: /* helper symbol for fb_invocation */
lbessard@70: /* param_assignment_list ',' param_assignment */
lbessard@70: void *visit(param_assignment_list_c *symbol) {
lbessard@70:   TRACE("param_assignment_list_c");
lbessard@70:   /* this should never be called... */
lbessard@70:   ERROR;
lbessard@70:   return NULL;
lbessard@70: //  return print_list(symbol, "", ", ");
lbessard@70: }
lbessard@70: 
lbessard@70: 
lbessard@70: void *visit(input_variable_param_assignment_c *symbol) {
lbessard@70:   TRACE("input_variable_param_assignment_c");
lbessard@70:   /* this should never be called... */
lbessard@70:   ERROR;
lbessard@70:   return NULL;
lbessard@70: /*
lbessard@70:   symbol->variable_name->accept(*this);
lbessard@70:   s4o.print(" = ");
lbessard@70:   symbol->expression->accept(*this);
lbessard@70:   return NULL;
lbessard@70: */
lbessard@70: }
lbessard@70: 
lbessard@70: void *visit(output_variable_param_assignment_c *symbol) {
lbessard@70:   TRACE("output_variable_param_assignment_c");
lbessard@70:   /* this should never be called... */
lbessard@70:   ERROR;
lbessard@70:   return NULL;
lbessard@70: /*
lbessard@70:   s4o.print(s4o.indent_spaces);
lbessard@70:   if (symbol->not_param != NULL)
lbessard@70:     symbol->not_param->accept(*this);
lbessard@70:   symbol->variable_name->accept(*this);
lbessard@70:   s4o.print(" => ");
lbessard@70:   symbol->variable->accept(*this);
lbessard@70:   return NULL;
lbessard@70: */
lbessard@70: }
lbessard@70: 
lbessard@70: // TODO: the NOT symbol in function (block) calls...
lbessard@70: void *visit(not_paramassign_c *symbol) {
lbessard@70:   TRACE("not_paramassign_c");
lbessard@70:   /* this should never be called... */
lbessard@70:   ERROR;
lbessard@70:   return NULL;
lbessard@70: /*
lbessard@70:   s4o.print("NOT ");
lbessard@70:   return NULL;
lbessard@70: */
lbessard@70: }
lbessard@70: 
lbessard@70: 
lbessard@70: /********************************/
lbessard@70: /* B 3.2.3 Selection Statements */
lbessard@70: /********************************/
lbessard@70: void *visit(if_statement_c *symbol) {
lbessard@70:   s4o.print("if (");
lbessard@70:   symbol->expression->accept(*this);
lbessard@70:   s4o.print(") {\n");
lbessard@70:   s4o.indent_right();
lbessard@70:   symbol->statement_list->accept(*this);
lbessard@70:   s4o.indent_left();
lbessard@70:   symbol->elseif_statement_list->accept(*this);
lbessard@70: 
lbessard@70:   if (symbol->else_statement_list != NULL) {
lbessard@70:     s4o.print(s4o.indent_spaces); s4o.print("} else {\n");
lbessard@70:     s4o.indent_right();
lbessard@70:     symbol->else_statement_list->accept(*this);
lbessard@70:     s4o.indent_left();
lbessard@70:   }
lbessard@70:   s4o.print(s4o.indent_spaces); s4o.print("}");
lbessard@70:   return NULL;
lbessard@70: }
lbessard@70: 
lbessard@70: /* helper symbol for if_statement */
lbessard@70: void *visit(elseif_statement_list_c *symbol) {return print_list(symbol);}
lbessard@70: 
lbessard@70: /* helper symbol for elseif_statement_list */
lbessard@70: void *visit(elseif_statement_c *symbol) {
lbessard@70:   s4o.print(s4o.indent_spaces); s4o.print("} else if (");
lbessard@70:   symbol->expression->accept(*this);
lbessard@70:   s4o.print(") {\n");
lbessard@70:   s4o.indent_right();
lbessard@70:   symbol->statement_list->accept(*this);
lbessard@70:   s4o.indent_left();
lbessard@70:   return NULL;
lbessard@70: }
lbessard@70: 
lbessard@70: void *visit(case_statement_c *symbol) {
lbessard@70:   s4o.print("switch(");
lbessard@70:   symbol->expression->accept(*this);
lbessard@70:   s4o.print(") {\n");
lbessard@70:   s4o.indent_right();
lbessard@70:   symbol->case_element_list->accept(*this);
lbessard@70:   if (symbol->statement_list != NULL) {
lbessard@70:     s4o.print(s4o.indent_spaces + "default:\n");
lbessard@70:     s4o.indent_right();
lbessard@70:     symbol->statement_list->accept(*this);
lbessard@70:     s4o.print(s4o.indent_spaces + "break;\n");
lbessard@70:     s4o.indent_left();
lbessard@70:   }
lbessard@70:   s4o.indent_left();
lbessard@70:   s4o.print(s4o.indent_spaces + "}");
lbessard@70:   return NULL;
lbessard@70: }
lbessard@70: 
lbessard@70: /* helper symbol for case_statement */
lbessard@70: void *visit(case_element_list_c *symbol) {return print_list(symbol);}
lbessard@70: 
lbessard@70: void *visit(case_element_c *symbol) {
lbessard@70:   s4o.print(s4o.indent_spaces + "case ");
lbessard@70:   symbol->case_list->accept(*this);
lbessard@70:   s4o.print(" :\n");
lbessard@70:   s4o.indent_right();
lbessard@70:   symbol->statement_list->accept(*this);
lbessard@70:   s4o.print(s4o.indent_spaces + "break;\n");
lbessard@70:   s4o.indent_left();
lbessard@70:   return NULL;
lbessard@70: }
lbessard@70: 
lbessard@70: void *visit(case_list_c *symbol) {return print_list(symbol, "", ", ");}
lbessard@70: 
lbessard@70: /********************************/
lbessard@70: /* B 3.2.4 Iteration Statements */
lbessard@70: /********************************/
lbessard@70: void *visit(for_statement_c *symbol) {
lbessard@70:   s4o.print("for(");
lbessard@70:   symbol->control_variable->accept(*this);
lbessard@70:   s4o.print(" = ");
lbessard@70:   symbol->beg_expression->accept(*this);
lbessard@70:   s4o.print("; ");
lbessard@70:   symbol->control_variable->accept(*this);
lbessard@70:   s4o.print(" != ");
lbessard@70:   symbol->end_expression->accept(*this);
lbessard@70:   s4o.print("; ");
lbessard@70:   symbol->control_variable->accept(*this);
lbessard@70:   if (symbol->by_expression != NULL) {
lbessard@70:     s4o.print(" += ");
lbessard@70:     symbol->by_expression->accept(*this);
lbessard@70:   } else {
lbessard@70:     s4o.print("++");
lbessard@70:   }
lbessard@70:   s4o.print(") {\n");
lbessard@70:   s4o.indent_right();
lbessard@70:   symbol->statement_list->accept(*this);
lbessard@70:   s4o.indent_left();
lbessard@70:   s4o.print(s4o.indent_spaces); s4o.print("}");
lbessard@70:   return NULL;
lbessard@70: }
lbessard@70: void *visit(while_statement_c *symbol) {
lbessard@70:   s4o.print("while (");
lbessard@70:   symbol->expression->accept(*this);
lbessard@70:   s4o.print(") {\n");
lbessard@70:   s4o.indent_right();
lbessard@70:   symbol->statement_list->accept(*this);
lbessard@70:   s4o.indent_left();
lbessard@70:   s4o.print(s4o.indent_spaces); s4o.print("}");
lbessard@70:   return NULL;
lbessard@70: }
lbessard@70: void *visit(repeat_statement_c *symbol) {
lbessard@70:   s4o.print("do {\n");
lbessard@70:   s4o.indent_right();
lbessard@70:   symbol->statement_list->accept(*this);
lbessard@70:   s4o.indent_left();
lbessard@70:   s4o.print(s4o.indent_spaces); s4o.print("} while(");
lbessard@70:   symbol->expression->accept(*this);
lbessard@70:   s4o.print(")");
lbessard@70:   return NULL;
lbessard@70: }
lbessard@70: void *visit(exit_statement_c *symbol) {
lbessard@70:   s4o.print("exit(0)");
lbessard@70:   return NULL;
lbessard@70: }
lbessard@70: 
lbessard@70: 
lbessard@70: 
lbessard@70: }; /* generate_c_st_c */
lbessard@70: 
lbessard@70: 
lbessard@70: 
lbessard@70: 
lbessard@70: 
lbessard@70: 
lbessard@70: 
lbessard@70: 
lbessard@70: