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:   public:
lbessard@70:     void generate(statement_list_c *stl) {
lbessard@70:       stl->accept(*this);
lbessard@70:     }
lbessard@70: 
lbessard@70:   private:
lbessard@70: 
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@149:     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@149:     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@149:     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@149:   if ((typeid(*left_type) == typeid(time_type_name_c) && search_expression_type->is_integer_type(right_type)) ||
lbessard@149:       (typeid(*left_type) == typeid(time_type_name_c) && search_expression_type->is_real_type(right_type)))
lbessard@149:     return print_binary_function("__TIME_DIV", 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(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... */
msousa@257: void *visit(power_expression_c *symbol) {
msousa@257:   ERROR; 
msousa@257:   return print_binary_expression(symbol->l_exp, symbol->r_exp, " ** ");
msousa@257: }
msousa@257: 
lbessard@123: void *visit(neg_expression_c *symbol) {
msousa@257:   return print_unary_expression(symbol->exp, " -");
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@149:   symbol_c* function_type_prefix = NULL;
lbessard@149:   symbol_c* function_name = NULL;
lbessard@149:   symbol_c* function_type_suffix = NULL;
lbessard@149:   std::list<FUNCTION_PARAM> param_list;
lbessard@149:   FUNCTION_PARAM *param;
ccb@202: 
ccb@202:   symbol_c *parameter_assignment_list = NULL;
ccb@202:   if (NULL != symbol->   formal_param_list) parameter_assignment_list = symbol->   formal_param_list;
ccb@202:   if (NULL != symbol->nonformal_param_list) parameter_assignment_list = symbol->nonformal_param_list;
ccb@202:   if (NULL == parameter_assignment_list) ERROR;
ccb@202: 
ccb@202:   function_declaration_c *f_decl = function_symtable.find_value(symbol->function_name);
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 */
ccb@202: 
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;
ccb@202: 
lbessard@70:     symbol_c *function_return_type = search_expression_type->get_type(symbol);
ccb@202: 
lbessard@70:     function_call_param_iterator_c function_call_param_iterator(symbol);
etisserant@167: 
ccb@202:     int nb_param = ((list_c *)parameter_assignment_list)->n;
ccb@202: 
lbessard@149:     identifier_c en_param_name("EN");
lbessard@149:     /* Get the value from EN param */
ccb@202:     symbol_c *EN_param_value = function_call_param_iterator.search_f(&en_param_name);
lbessard@149:     if (EN_param_value == NULL)
lbessard@149:       EN_param_value = (symbol_c*)(new boolean_literal_c((symbol_c*)(new bool_type_name_c()), new boolean_true_c()));
etisserant@167:     else
etisserant@167:       nb_param --;
lbessard@149:     ADD_PARAM_LIST(EN_param_value, (symbol_c*)(new bool_type_name_c()), function_param_iterator_c::direction_in)
ccb@202: 
etisserant@162:     identifier_c eno_param_name("ENO");
lbessard@149:     /* Get the value from ENO param */
ccb@202:     symbol_c *ENO_param_value = function_call_param_iterator.search_f(&eno_param_name);
etisserant@167:     if (ENO_param_value != NULL)
etisserant@167:       nb_param --;
lbessard@149:     ADD_PARAM_LIST(ENO_param_value, (symbol_c*)(new bool_type_name_c()), function_param_iterator_c::direction_out)
ccb@202: 
ccb@202:     #define search(x) search_f(x)
ccb@202:     #define next() next_nf()
ccb@202: //     #define search_constant_type_c::constant_int_type_name  search_expression_type_c::integer
ccb@202:     #define constant_int_type_name  integer
lbessard@146:     #include "st_code_gen.c"
ccb@202:     #undef constant_int_type_name
ccb@202: //     #undef search_constant_type_c::constant_int_type_name
ccb@202:     #undef next
ccb@202:     #undef  search
ccb@202: 
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@149:     function_name = symbol->function_name;
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@149:       
lbessard@70:       function_param_iterator_c::param_direction_t param_direction = fp_iterator.param_direction();
lbessard@149:       
lbessard@70:       /* Get the value from a foo(<param_name> = <param_value>) style call */
ccb@202:       symbol_c *param_value = function_call_param_iterator.search_f(param_name);
lbessard@70:   
lbessard@70:       /* Get the value from a foo(<param_value>) style call */
lbessard@70:       if (param_value == NULL)
ccb@202:         param_value = function_call_param_iterator.next_nf();
lbessard@149:       
lbessard@149:       if (param_value == NULL && param_direction == function_param_iterator_c::direction_in) {
lbessard@149:         /* No value given for parameter, so we must use the default... */
lbessard@149:         /* First check whether default value specified in function declaration...*/
lbessard@149:         param_value = fp_iterator.default_value();
lbessard@149:       }
lbessard@149:       
lbessard@70:       symbol_c *param_type = fp_iterator.param_type();
lbessard@70:       if (param_type == NULL) ERROR;
lbessard@149:       
lbessard@149:       ADD_PARAM_LIST(param_value, param_type, param_direction)
lbessard@70:     } /* for(...) */
lbessard@70:     // symbol->parameter_assignment->accept(*this);
lbessard@149:   }
lbessard@149:   
lbessard@149:   if (function_type_prefix != NULL) {
lbessard@149:     s4o.print("(");
lbessard@149:     function_type_prefix->accept(*this);
lbessard@70:     s4o.print(")");
lbessard@149:   }
lbessard@149:   if (function_name != NULL)
lbessard@149:     function_name->accept(*this);
lbessard@149:   if (function_type_suffix != NULL)
lbessard@149:     function_type_suffix->accept(*this);
lbessard@149:   s4o.print("(");
lbessard@149:   s4o.indent_right();
lbessard@149:   
lbessard@149:   std::list<FUNCTION_PARAM>::iterator pt;
lbessard@149:   for(pt = param_list.begin(); pt != param_list.end(); pt++) {
lbessard@149:     if (pt != param_list.begin())
lbessard@149:       s4o.print(",\n"+s4o.indent_spaces);
lbessard@149:     symbol_c *param_value = pt->param_value;
lbessard@149:     symbol_c *param_type = pt->param_type;
lbessard@149:           
lbessard@149:     switch (pt->param_direction) {
lbessard@149:       case function_param_iterator_c::direction_in:
lbessard@149:         if (param_value == NULL) {
lbessard@149:           /* If not, get the default value of this variable's type */
lbessard@149:           param_value = (symbol_c *)param_type->accept(*type_initial_value_c::instance());
lbessard@149:         }
lbessard@149:         if (param_value == NULL) ERROR;
lbessard@149:         if (search_base_type.type_is_subrange(param_type)) {
lbessard@149:           s4o.print("__CHECK_");
lbessard@149:           param_type->accept(*this);
lbessard@149:           s4o.print("(");
lbessard@149:         }
lbessard@149:         param_value->accept(*this);
lbessard@149:         if (search_base_type.type_is_subrange(param_type))
lbessard@149:           s4o.print(")");
lbessard@149:         break;
lbessard@149:       case function_param_iterator_c::direction_out:
lbessard@149:       case function_param_iterator_c::direction_inout:
lbessard@149:         current_param_is_pointer = true;
lbessard@149:         if (param_value == NULL) {
lbessard@149:           s4o.print("NULL");
lbessard@149:         } else {
lbessard@149:           param_value->accept(*this);
lbessard@149:         }
lbessard@149:         current_param_is_pointer = false;
lbessard@149:         break;
lbessard@149:       case function_param_iterator_c::direction_extref:
lbessard@149:         /* TODO! */
lbessard@149:         ERROR;
lbessard@149:         break;
lbessard@149:     } /* switch */
lbessard@149:   }  
lbessard@169:   
lbessard@149:   s4o.print(")");
lbessard@149:   s4o.indent_left();
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@160:     
etisserant@162:     /*fprintf(stderr, "param : %s\n", param_name->value);*/
lbessard@160:     
lbessard@70:     /* Get the value from a foo(<param_name> = <param_value>) style call */
ccb@202:     symbol_c *param_value = function_call_param_iterator.search_f(param_name);
lbessard@70: 
lbessard@70:     /* Get the value from a foo(<param_value>) style call */
lbessard@70:     if (param_value == NULL)
ccb@202:       param_value = function_call_param_iterator.next_nf();
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 */
ccb@202:     symbol_c *param_value = function_call_param_iterator.search_f(param_name);
lbessard@70: 
lbessard@70:     /* Get the value from a foo(<param_value>) style call */
lbessard@70:     if (param_value == NULL)
ccb@202:       param_value = function_call_param_iterator.next_nf();
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: