lbessard@111: /*
Edouard@279: * matiec - a compiler for the programming languages defined in IEC 61131-3
lbessard@111: *
Edouard@279: * Copyright (C) 2003-2011 Mario de Sousa (msousa@fe.up.pt)
Edouard@279: * Copyright (C) 2007-2011 Laurent Bessard and Edouard Tisserant
lbessard@111: *
Edouard@279: * This program is free software: you can redistribute it and/or modify
Edouard@279: * it under the terms of the GNU General Public License as published by
Edouard@279: * the Free Software Foundation, either version 3 of the License, or
Edouard@279: * (at your option) any later version.
Edouard@279: *
Edouard@279: * This program is distributed in the hope that it will be useful,
Edouard@279: * but WITHOUT ANY WARRANTY; without even the implied warranty of
Edouard@279: * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
Edouard@279: * GNU General Public License for more details.
Edouard@279: *
Edouard@279: * You should have received a copy of the GNU General Public License
Edouard@279: * along with this program. If not, see .
lbessard@111: *
lbessard@111: * This code is made available on the understanding that it will not be
lbessard@111: * used in safety-critical situations without a full and competent review.
lbessard@111: *
lbessard@111: * Based on the
lbessard@111: * FINAL DRAFT - IEC 61131-3, 2nd Ed. (2001-12-10)
lbessard@111: *
lbessard@111: */
lbessard@111:
laurent@377:
laurent@377:
laurent@377: /***********************************************************************/
laurent@377: /***********************************************************************/
laurent@377: /***********************************************************************/
laurent@377: /***********************************************************************/
laurent@232:
laurent@232: class search_location_type_c: public iterator_visitor_c {
laurent@232:
laurent@232: public:
laurent@377: typedef enum {
laurent@377: none_lt,
laurent@377: input_lt,
laurent@377: output_lt,
laurent@377: memory_lt
laurent@377: } locationtype_t;
laurent@377:
laurent@232: locationtype_t current_location_type;
laurent@232:
laurent@232: public:
laurent@377: search_location_type_c(void) {}
laurent@377:
laurent@377: virtual ~search_location_type_c(void) {}
laurent@377:
laurent@377: locationtype_t get_location_type(symbol_c *symbol) {
laurent@232: current_location_type = none_lt;
laurent@232: symbol->accept(*this);
laurent@232: if (current_location_type == none_lt) ERROR;
laurent@232: return current_location_type;
laurent@377: }
laurent@232:
laurent@232: private:
laurent@232:
laurent@377: void *visit(incompl_location_c* symbol) {
laurent@232: if (symbol->value[1] == 'I')
laurent@232: current_location_type = input_lt;
laurent@377: else if (symbol->value[1] == 'Q')
laurent@232: current_location_type = output_lt;
laurent@377: else if (symbol->value[1] == 'M')
laurent@232: current_location_type = memory_lt;
laurent@232: return NULL;
laurent@377: }
laurent@377:
laurent@377: void *visit(direct_variable_c *symbol) {
laurent@232: if (symbol->value[1] == 'I')
laurent@232: current_location_type = input_lt;
laurent@377: else if (symbol->value[1] == 'Q')
laurent@232: current_location_type = output_lt;
laurent@377: else if (symbol->value[1] == 'M')
laurent@232: current_location_type = memory_lt;
laurent@232: return NULL;
laurent@377: }
laurent@232: };
lbessard@111:
lbessard@111:
laurent@377:
laurent@377: /***********************************************************************/
laurent@377: /***********************************************************************/
laurent@377: /***********************************************************************/
laurent@377: /***********************************************************************/
laurent@377: /***********************************************************************/
laurent@377: /***********************************************************************/
laurent@377: /***********************************************************************/
laurent@377: /***********************************************************************/
laurent@377:
laurent@377:
laurent@377: class search_type_symbol_c: public iterator_visitor_c {
laurent@377:
laurent@377: public:
laurent@377: typedef enum {
laurent@377: none_vtc,
laurent@377: variable_vtc,
laurent@377: array_vtc,
laurent@377: structure_vtc,
laurent@377: function_block_vtc
laurent@377: } vartypecategory_t;
laurent@377:
laurent@377: vartypecategory_t current_var_type_category;
laurent@377:
laurent@377: private:
laurent@377: symbol_c *current_var_type_symbol;
laurent@377: symbol_c *current_var_type_name;
laurent@377: search_fb_typedecl_c *search_fb_typedecl;
laurent@377:
laurent@377: public:
laurent@377: search_type_symbol_c(symbol_c *scope) {
laurent@377: search_fb_typedecl = new search_fb_typedecl_c(scope);
laurent@377: }
laurent@377:
laurent@377: virtual ~search_type_symbol_c(void) {
laurent@377: delete search_fb_typedecl;
laurent@377: }
laurent@377:
laurent@377: symbol_c *get_type_symbol(symbol_c* symbol) {
laurent@377: this->current_var_type_category = variable_vtc;
laurent@377: this->current_var_type_symbol = NULL;
laurent@377: this->current_var_type_name = NULL;
laurent@377:
laurent@377: symbol_c* var_type_symbol = spec_init_sperator_c::get_spec(symbol);
laurent@377: if (var_type_symbol == NULL) {
laurent@377: var_type_symbol = symbol;
laurent@377: }
laurent@377:
laurent@377: var_type_symbol->accept(*this);
laurent@377:
laurent@377: if (this->current_var_type_symbol == NULL)
laurent@377: this->current_var_type_symbol = var_type_symbol;
laurent@377:
laurent@377: return (this->current_var_type_symbol);
laurent@377: }
laurent@377:
laurent@377: symbol_c *get_current_type_name(void) {
laurent@377: if (this->current_var_type_name == NULL)
laurent@377: return (this->current_var_type_symbol);
laurent@377:
laurent@377: return (this->current_var_type_name);
laurent@377: }
laurent@377:
laurent@377: void *visit(identifier_c* symbol) {
laurent@377: if (this->current_var_type_name == NULL) {
laurent@377: this->current_var_type_name = symbol;
laurent@377:
laurent@377: this->current_var_type_symbol = search_fb_typedecl->get_decl(this->current_var_type_name);
laurent@377: if (this->current_var_type_symbol != NULL)
laurent@377: this->current_var_type_category = function_block_vtc;
laurent@377:
laurent@377: else {
msousa@718: this->current_var_type_symbol = search_base_type_c::get_basetype_decl(this->current_var_type_name);
laurent@377: this->current_var_type_symbol->accept(*this);
laurent@377: }
laurent@377: }
laurent@377: return NULL;
laurent@377: }
laurent@377:
laurent@377: void *visit(array_specification_c* symbol) {
laurent@377: this->current_var_type_category = array_vtc;
laurent@377:
laurent@377: if (this->current_var_type_name == NULL)
laurent@377: this->current_var_type_name = symbol->non_generic_type_name;
laurent@377:
laurent@377: return NULL;
laurent@377: }
laurent@377:
laurent@377: void *visit(structure_element_declaration_list_c* symbol) {
laurent@377: this->current_var_type_category = structure_vtc;
laurent@377: return NULL;
laurent@377: }
laurent@377:
laurent@377: };
laurent@377:
lbessard@111: /***********************************************************************/
lbessard@111: /***********************************************************************/
lbessard@111: /***********************************************************************/
lbessard@111: /***********************************************************************/
lbessard@111: /***********************************************************************/
lbessard@111: /***********************************************************************/
lbessard@111: /***********************************************************************/
lbessard@111: /***********************************************************************/
lbessard@111:
lbessard@111: class generate_var_list_c: protected generate_c_typedecl_c {
lbessard@111:
lbessard@121: public:
laurent@377: typedef struct
laurent@377: {
laurent@377: symbol_c *symbol;
laurent@377: } SYMBOL;
laurent@377:
lbessard@121: typedef enum {
lbessard@121: none_dt,
lbessard@121: programs_dt,
lbessard@121: variables_dt
lbessard@121: } declarationtype_t;
lbessard@121:
lbessard@121: declarationtype_t current_declarationtype;
lbessard@160:
lbessard@160: typedef enum {
laurent@377: none_vcc,
laurent@377: external_vcc,
laurent@377: located_input_vcc,
laurent@377: located_memory_vcc,
conti@661: located_output_vcc
laurent@377: } varclasscategory_t;
laurent@377:
laurent@377: varclasscategory_t current_var_class_category;
lbessard@160:
lbessard@111: private:
lbessard@111: symbol_c *current_var_type_symbol;
lbessard@160: symbol_c *current_var_type_name;
lbessard@111: unsigned int current_var_number;
lbessard@111: unsigned int step_number;
lbessard@111: unsigned int transition_number;
lbessard@111: unsigned int action_number;
lbessard@121: bool configuration_defined;
lbessard@111: std::list current_symbol_list;
laurent@377: search_type_symbol_c *search_type_symbol;
lbessard@111:
lbessard@111: public:
lbessard@111: generate_var_list_c(stage4out_c *s4o_ptr, symbol_c *scope)
lbessard@111: : generate_c_typedecl_c(s4o_ptr) {
laurent@377: search_type_symbol = new search_type_symbol_c(scope);
lbessard@121: current_var_number = 0;
laurent@377: current_var_type_symbol = NULL;
laurent@377: current_var_type_name = NULL;
lbessard@121: current_declarationtype = none_dt;
laurent@377: current_var_class_category = none_vcc;
lbessard@111: }
lbessard@111:
lbessard@111: ~generate_var_list_c(void) {
laurent@377: delete search_type_symbol;
lbessard@111: }
lbessard@111:
lbessard@160: void update_var_type_symbol(symbol_c *symbol) {
laurent@377: this->current_var_type_symbol = search_type_symbol->get_type_symbol(symbol);
laurent@377: this->current_var_type_name = search_type_symbol->get_current_type_name();
lbessard@111: }
lbessard@111:
lbessard@111: void reset_var_type_symbol(void) {
lbessard@111: this->current_var_type_symbol = NULL;
lbessard@111: }
lbessard@111:
lbessard@121: void generate_programs(symbol_c *symbol) {
lbessard@121: s4o.print("// Programs\n");
lbessard@121: current_var_number = 0;
lbessard@121: configuration_defined = false;
lbessard@121: current_declarationtype = programs_dt;
lbessard@121: symbol->accept(*this);
lbessard@121: current_declarationtype = none_dt;
lbessard@121: s4o.print("\n");
lbessard@121: }
lbessard@121:
lbessard@121: void generate_variables(symbol_c *symbol) {
lbessard@121: s4o.print("// Variables\n");
lbessard@121: current_var_number = 0;
lbessard@121: configuration_defined = false;
lbessard@121: current_declarationtype = variables_dt;
lbessard@121: symbol->accept(*this);
lbessard@121: current_declarationtype = none_dt;
lbessard@121: s4o.print("\n");
lbessard@121: }
lbessard@121:
lbessard@160: void declare_variables(symbol_c *symbol) {
lbessard@111: list_c *list = dynamic_cast(symbol);
lbessard@111: /* should NEVER EVER occur!! */
lbessard@111: if (list == NULL) ERROR;
lbessard@111:
lbessard@111: for(int i = 0; i < list->n; i++) {
lbessard@160: declare_variable(list->elements[i]);
lbessard@160: }
lbessard@160: }
lbessard@160:
lbessard@160: void declare_variable(symbol_c *symbol) {
laurent@317: // Arrays and structures are not supported in debugging
laurent@377: switch (search_type_symbol->current_var_type_category) {
laurent@377: case search_type_symbol_c::array_vtc:
laurent@377: case search_type_symbol_c::structure_vtc:
laurent@317: return;
laurent@377: default:
laurent@377: break;
laurent@317: }
lbessard@157: print_var_number();
lbessard@157: s4o.print(";");
laurent@377: switch (search_type_symbol->current_var_type_category) {
laurent@377: case search_type_symbol_c::array_vtc:
lbessard@160: s4o.print("ARRAY");
lbessard@160: break;
laurent@377: case search_type_symbol_c::structure_vtc:
lbessard@160: s4o.print("STRUCT");
lbessard@160: break;
laurent@377: case search_type_symbol_c::function_block_vtc:
lbessard@160: s4o.print("FB");
lbessard@160: break;
lbessard@160: default:
laurent@377: switch (this->current_var_class_category) {
laurent@377: case external_vcc:
laurent@377: s4o.print("EXT");
laurent@377: break;
laurent@377: case located_input_vcc:
laurent@377: s4o.print("IN");
laurent@377: break;
laurent@377: case located_memory_vcc:
laurent@377: s4o.print("MEM");
laurent@377: break;
laurent@377: case located_output_vcc:
laurent@377: s4o.print("OUT");
laurent@377: break;
laurent@377: default:
laurent@377: s4o.print("VAR");
laurent@377: break;
laurent@377: }
lbessard@160: break;
lbessard@160: }
lbessard@157: s4o.print(";");
lbessard@157: print_symbol_list();
lbessard@157: symbol->accept(*this);
lbessard@157: s4o.print(";");
lbessard@157: print_symbol_list();
lbessard@157: symbol->accept(*this);
lbessard@157: s4o.print(";");
laurent@377: switch (search_type_symbol->current_var_type_category) {
laurent@377: case search_type_symbol_c::structure_vtc:
laurent@377: case search_type_symbol_c::function_block_vtc:
lbessard@160: this->current_var_type_name->accept(*this);
lbessard@160: s4o.print(";\n");
lbessard@160: SYMBOL *current_name;
conti@641: symbol_c *tmp_var_type;
lbessard@160: current_name = new SYMBOL;
lbessard@160: current_name->symbol = symbol;
conti@641: tmp_var_type = this->current_var_type_symbol;
lbessard@160: current_symbol_list.push_back(*current_name);
lbessard@160: this->current_var_type_symbol->accept(*this);
lbessard@160: current_symbol_list.pop_back();
conti@641: this->current_var_type_symbol = tmp_var_type;
lbessard@160: break;
laurent@377: case search_type_symbol_c::array_vtc:
lbessard@160: this->current_var_type_name->accept(*this);
lbessard@160: s4o.print(";\n");
lbessard@160: break;
lbessard@160: default:
lbessard@160: this->current_var_type_symbol->accept(*this);
lbessard@160: s4o.print(";\n");
lbessard@160: break;
lbessard@111: }
lbessard@111: }
Edouard@626:
lbessard@111: void print_var_number(void) {
lbessard@111: char str[10];
lbessard@111: sprintf(str, "%d", current_var_number);
lbessard@111: s4o.print(str);
lbessard@111: current_var_number++;
lbessard@111: }
lbessard@111:
lbessard@111: void print_step_number(void) {
lbessard@111: char str[10];
lbessard@111: sprintf(str, "%d", step_number);
lbessard@111: s4o.print(str);
lbessard@111: }
lbessard@111:
lbessard@111: void print_transition_number(void) {
lbessard@111: char str[10];
lbessard@111: sprintf(str, "%d", transition_number);
lbessard@111: s4o.print(str);
lbessard@111: }
lbessard@111:
lbessard@111: void print_action_number(void) {
lbessard@111: char str[10];
lbessard@111: sprintf(str, "%d", action_number);
lbessard@111: s4o.print(str);
lbessard@111: }
lbessard@111:
lbessard@111: void print_symbol_list(void) {
lbessard@111: std::list::iterator pt;
lbessard@111: for(pt = current_symbol_list.begin(); pt != current_symbol_list.end(); pt++) {
lbessard@111: pt->symbol->accept(*this);
lbessard@111: s4o.print(".");
lbessard@111: }
lbessard@111: }
lbessard@121:
msousa@726:
msousa@726: /********************************/
msousa@726: /* B 1.3.3 - Derived data types */
msousa@726: /********************************/
msousa@726: /* enumerated_type_name ':' enumerated_spec_init */
msousa@726: void *visit(enumerated_type_declaration_c *symbol) {
msousa@726: this->current_var_type_name->accept(*this);
msousa@726: return NULL;
msousa@726: }
msousa@726:
msousa@726: /* enumerated_specification ASSIGN enumerated_value */
msousa@726: void *visit(enumerated_spec_init_c *symbol) {
msousa@726: /* search_base_type_c now returns an enumerated_type_declaration_c as the base type of a non-anonymous enumerated type
msousa@726: * (non-anonymous means it is declared inside a TYPE ... END_TYPE declaration, with a given name/identifier
msousa@726: * unlike implicitly defined anonymous datatypes declared inside VAR ... END_VAR declarations!).
msousa@726: * This means that this method should not get called.
msousa@726: */
msousa@726: ERROR;
msousa@726: this->current_var_type_name->accept(*this);
msousa@726: return NULL;
msousa@726: }
msousa@726:
msousa@726: /* enumerated_value_list ',' enumerated_value */
msousa@726: void *visit(enumerated_value_list_c *symbol) {
msousa@726: /* search_base_type_c now returns an enumerated_type_declaration_c as the base type of a non-anonymous enumerated type
msousa@726: * (non-anonymous means it is declared inside a TYPE ... END_TYPE declaration, with a given name/identifier
msousa@726: * unlike implicitly defined anonymous datatypes declared inside VAR ... END_VAR declarations!).
msousa@726: * This means that this method should not get called.
msousa@726: */
msousa@726: ERROR;
msousa@726: this->current_var_type_name->accept(*this);
msousa@726: return NULL;
msousa@726: }
msousa@726:
lbessard@121: /********************************************/
lbessard@121: /* B.1.4.3 - Declaration and initialization */
lbessard@121: /********************************************/
lbessard@111:
lbessard@111: /* [variable_name] location ':' located_var_spec_init */
lbessard@111: /* variable_name -> may be NULL ! */
lbessard@111: //SYM_REF4(located_var_decl_c, variable_name, location, located_var_spec_init, unused)
lbessard@111: void *visit(located_var_decl_c *symbol) {
lbessard@111: /* Start off by setting the current_var_type_symbol and
lbessard@111: * current_var_init_symbol private variables...
lbessard@111: */
lbessard@111: update_var_type_symbol(symbol->located_var_spec_init);
lbessard@111:
laurent@232: search_location_type_c search_location_type;
laurent@377: switch (search_location_type.get_location_type(symbol->location)) {
laurent@377: case search_location_type_c::input_lt:
laurent@377: this->current_var_class_category = located_input_vcc;
laurent@377: break;
laurent@377: case search_location_type_c::memory_lt:
laurent@377: this->current_var_class_category = located_memory_vcc;
laurent@377: break;
laurent@377: case search_location_type_c::output_lt:
laurent@377: this->current_var_class_category = located_output_vcc;
laurent@377: break;
laurent@377: default:
laurent@377: ERROR;
laurent@377: break;
laurent@377: }
laurent@232:
laurent@232: if (symbol->variable_name != NULL)
lbessard@160: declare_variable(symbol->variable_name);
laurent@232: else
laurent@232: declare_variable(symbol->location);
lbessard@111:
laurent@377: this->current_var_class_category = none_vcc;
laurent@377:
laurent@377: /* Values no longer in scope, and therefore no longer used.
laurent@377: * Make an effort to keep them set to NULL when not in use
laurent@377: * in order to catch bugs as soon as possible...
laurent@377: */
laurent@377: reset_var_type_symbol();
lbessard@111: return NULL;
lbessard@111: }
laurent@232:
laurent@232: /* variable_name incompl_location ':' var_spec */
laurent@232: /* variable_name -> may be NULL ! */
laurent@232: //SYM_REF3(incompl_located_var_decl_c, variable_name, incompl_location, var_spec)
laurent@232: void *visit(incompl_located_var_decl_c *symbol) {
laurent@232: /* Start off by setting the current_var_type_symbol and
laurent@232: * current_var_init_symbol private variables...
laurent@232: */
laurent@232: update_var_type_symbol(symbol->var_spec);
laurent@232:
laurent@232: search_location_type_c search_location_type;
laurent@377: switch (search_location_type.get_location_type(symbol->incompl_location)) {
laurent@377: case search_location_type_c::input_lt:
laurent@377: this->current_var_class_category = located_input_vcc;
laurent@377: break;
laurent@377: case search_location_type_c::memory_lt:
laurent@377: this->current_var_class_category = located_memory_vcc;
laurent@377: break;
laurent@377: case search_location_type_c::output_lt:
laurent@377: this->current_var_class_category = located_output_vcc;
laurent@377: break;
laurent@377: default:
laurent@377: ERROR;
laurent@377: break;
laurent@377: }
laurent@232:
laurent@232: if (symbol->variable_name != NULL)
laurent@232: declare_variable(symbol->variable_name);
laurent@232: else
laurent@232: declare_variable(symbol->incompl_location);
laurent@232:
laurent@377: this->current_var_class_category = none_vcc;
laurent@377:
laurent@377: /* Values no longer in scope, and therefore no longer used.
laurent@377: * Make an effort to keep them set to NULL when not in use
laurent@377: * in order to catch bugs as soon as possible...
laurent@377: */
laurent@377: reset_var_type_symbol();
laurent@232: return NULL;
laurent@232: }
lbessard@111:
lbessard@111: /* var1_list ':' array_spec_init */
lbessard@111: // SYM_REF2(array_var_init_decl_c, var1_list, array_spec_init)
lbessard@111: void *visit(array_var_init_decl_c *symbol) {
lbessard@111: TRACE("array_var_init_decl_c");
lbessard@111: /* Start off by setting the current_var_type_symbol and
lbessard@111: * current_var_init_symbol private variables...
lbessard@111: */
lbessard@111: update_var_type_symbol(symbol->array_spec_init);
lbessard@160:
laurent@317: declare_variables(symbol->var1_list);
Laurent@409:
lbessard@111: /* Values no longer in scope, and therefore no longer used.
lbessard@111: * Make an effort to keep them set to NULL when not in use
lbessard@111: * in order to catch bugs as soon as possible...
lbessard@111: */
lbessard@111: reset_var_type_symbol();
lbessard@111:
lbessard@111: return NULL;
lbessard@111: }
lbessard@111:
Laurent@409: /* var1_list ':' array_specification */
Laurent@409: //SYM_REF2(array_var_declaration_c, var1_list, array_specification)
Laurent@409: void *visit(array_var_declaration_c *symbol) {
Laurent@409: TRACE("array_var_declaration_c");
Laurent@409: /* Start off by setting the current_var_type_symbol and
Laurent@409: * current_var_init_symbol private variables...
Laurent@409: */
Laurent@409: update_var_type_symbol(symbol->array_specification);
Laurent@409:
Laurent@409: declare_variables(symbol->var1_list);
Laurent@409:
Laurent@409: /* Values no longer in scope, and therefore no longer used.
Laurent@409: * Make an effort to keep them set to NULL when not in use
Laurent@409: * in order to catch bugs as soon as possible...
Laurent@409: */
Laurent@409: reset_var_type_symbol();
Laurent@409:
Laurent@409: return NULL;
Laurent@409: }
Laurent@409:
lbessard@111: /* var1_list ':' initialized_structure */
lbessard@111: // SYM_REF2(structured_var_init_decl_c, var1_list, initialized_structure)
lbessard@111: void *visit(structured_var_init_decl_c *symbol) {
lbessard@111: TRACE("structured_var_init_decl_c");
lbessard@111: /* Please read the comments inside the var1_init_decl_c
lbessard@111: * visitor, as they apply here too.
lbessard@111: */
lbessard@111:
lbessard@111: /* Start off by setting the current_var_type_symbol and
lbessard@111: * current_var_init_symbol private variables...
lbessard@111: */
lbessard@111: update_var_type_symbol(symbol->initialized_structure);
lbessard@111:
lbessard@111: /* now to produce the c equivalent... */
laurent@317: declare_variables(symbol->var1_list);
lbessard@111:
lbessard@111: /* Values no longer in scope, and therefore no longer used.
lbessard@111: * Make an effort to keep them set to NULL when not in use
lbessard@111: * in order to catch bugs as soon as possible...
lbessard@111: */
lbessard@111: reset_var_type_symbol();
lbessard@111:
lbessard@111: return NULL;
lbessard@111: }
lbessard@111:
Laurent@409: /* var1_list ':' structure_type_name */
Laurent@409: //SYM_REF2(structured_var_declaration_c, var1_list, structure_type_name)
Laurent@409: void *visit(structured_var_declaration_c *symbol) {
Laurent@409: TRACE("structured_var_declaration_c");
Laurent@409: /* Please read the comments inside the var1_init_decl_c
Laurent@409: * visitor, as they apply here too.
Laurent@409: */
Laurent@409:
Laurent@409: /* Start off by setting the current_var_type_symbol and
Laurent@409: * current_var_init_symbol private variables...
Laurent@409: */
Laurent@409: update_var_type_symbol(symbol->structure_type_name);
Laurent@409:
Laurent@409: /* now to produce the c equivalent... */
Laurent@409: declare_variables(symbol->var1_list);
Laurent@409:
Laurent@409: /* Values no longer in scope, and therefore no longer used.
Laurent@409: * Make an effort to keep them set to NULL when not in use
Laurent@409: * in order to catch bugs as soon as possible...
Laurent@409: */
Laurent@409: reset_var_type_symbol();
Laurent@409:
Laurent@409: return NULL;
Laurent@409: }
Laurent@409:
msousa@726:
lbessard@111: /* fb_name_list ':' function_block_type_name ASSIGN structure_initialization */
lbessard@111: /* structure_initialization -> may be NULL ! */
lbessard@111: void *visit(fb_name_decl_c *symbol) {
lbessard@111: TRACE("fb_name_decl_c");
lbessard@111: /* Please read the comments inside the var1_init_decl_c
lbessard@111: * visitor, as they apply here too.
lbessard@111: */
lbessard@111:
lbessard@111: /* Start off by setting the current_var_type_symbol and
lbessard@111: * current_var_init_symbol private variables...
lbessard@111: */
lbessard@160: update_var_type_symbol(symbol);
lbessard@111:
lbessard@111: /* now to produce the c equivalent... */
lbessard@160: declare_variables(symbol->fb_name_list);
lbessard@111:
lbessard@111: /* Values no longer in scope, and therefore no longer used.
lbessard@111: * Make an effort to keep them set to NULL when not in use
lbessard@111: * in order to catch bugs as soon as possible...
lbessard@111: */
lbessard@111: reset_var_type_symbol();
lbessard@111:
lbessard@111: return NULL;
lbessard@111: }
lbessard@111:
lbessard@111: /* global_var_name ':' (simple_specification|subrange_specification|enumerated_specification|array_specification|prev_declared_structure_type_name|function_block_type_name */
lbessard@111: //SYM_REF2(external_declaration_c, global_var_name, specification)
lbessard@111: void *visit(external_declaration_c *symbol) {
lbessard@111: TRACE("external_declaration_c");
lbessard@111: /* Please read the comments inside the var1_init_decl_c
lbessard@111: * visitor, as they apply here too.
lbessard@111: */
lbessard@111:
lbessard@111: /* Start off by setting the current_var_type_symbol and
lbessard@111: * current_var_init_symbol private variables...
lbessard@111: */
lbessard@166: update_var_type_symbol(symbol->specification);
lbessard@160:
laurent@377: this->current_var_class_category = external_vcc;
laurent@377:
lbessard@160: /* now to produce the c equivalent... */
lbessard@160: declare_variable(symbol->global_var_name);
lbessard@111:
laurent@377: this->current_var_class_category = none_vcc;
laurent@377:
lbessard@111: /* Values no longer in scope, and therefore no longer used.
lbessard@111: * Make an effort to keep them set to NULL when not in use
lbessard@111: * in order to catch bugs as soon as possible...
lbessard@111: */
lbessard@111: reset_var_type_symbol();
lbessard@111: return NULL;
lbessard@111: }
lbessard@111:
lbessard@111: /*| global_var_spec ':' [located_var_spec_init|function_block_type_name] */
lbessard@111: /* type_specification ->may be NULL ! */
lbessard@111: // SYM_REF2(global_var_decl_c, global_var_spec, type_specification)
lbessard@111: void *visit(global_var_decl_c *symbol) {
lbessard@111: TRACE("global_var_decl_c");
lbessard@111: /* Please read the comments inside the var1_init_decl_c
lbessard@111: * visitor, as they apply here too.
lbessard@111: */
lbessard@111:
lbessard@111: /* Start off by setting the current_var_type_symbol and
lbessard@111: * current_var_init_symbol private variables...
lbessard@111: */
lbessard@111: update_var_type_symbol(symbol->type_specification);
lbessard@111:
lbessard@111: /* now to produce the c equivalent... */
lbessard@111: symbol->global_var_spec->accept(*this);
lbessard@111:
lbessard@111: /* Values no longer in scope, and therefore no longer used.
lbessard@111: * Make an effort to keep them set to NULL when not in use
lbessard@111: * in order to catch bugs as soon as possible...
lbessard@111: */
lbessard@111: reset_var_type_symbol();
lbessard@111:
lbessard@111: return NULL;
lbessard@111: }
lbessard@111:
lbessard@111: void *visit(global_var_list_c *symbol) {
lbessard@111: declare_variables(symbol);
lbessard@111: return NULL;
lbessard@111: }
lbessard@111:
lbessard@111: /*| global_var_name location */
lbessard@111: // SYM_REF2(global_var_spec_c, global_var_name, location)
lbessard@111: void *visit(global_var_spec_c *symbol) {
laurent@232: search_location_type_c search_location_type;
laurent@377: switch (search_location_type.get_location_type(symbol->location)) {
laurent@377: case search_location_type_c::input_lt:
laurent@377: this->current_var_class_category = located_input_vcc;
laurent@377: break;
laurent@377: case search_location_type_c::memory_lt:
laurent@377: this->current_var_class_category = located_memory_vcc;
laurent@377: break;
laurent@377: case search_location_type_c::output_lt:
laurent@377: this->current_var_class_category = located_output_vcc;
laurent@377: break;
laurent@377: default:
laurent@377: ERROR;
laurent@377: break;
laurent@377: }
laurent@232:
laurent@232: if (symbol->global_var_name != NULL)
lbessard@160: declare_variable(symbol->global_var_name);
laurent@232: else
laurent@232: declare_variable(symbol->location);
laurent@377:
laurent@377: this->current_var_class_category = none_vcc;
laurent@377:
lbessard@111: return NULL;
lbessard@111: }
lbessard@111:
lbessard@111: void *visit(var1_init_decl_c *symbol) {
lbessard@111: TRACE("var1_init_decl_c");
lbessard@111:
lbessard@111: /* Start off by setting the current_var_type_symbol and
lbessard@111: * current_var_init_symbol private variables...
lbessard@111: */
lbessard@111: update_var_type_symbol(symbol->spec_init);
lbessard@111:
lbessard@111: /* now to produce the c equivalent... */
lbessard@111: declare_variables(symbol->var1_list);
lbessard@111:
lbessard@111: /* Values no longer in scope, and therefore no longer used.
lbessard@111: * Make an effort to keep them set to NULL when not in use
lbessard@111: * in order to catch bugs as soon as possible...
lbessard@111: */
lbessard@111: reset_var_type_symbol();
lbessard@111:
lbessard@111: return NULL;
lbessard@111: }
lbessard@111:
laurent@206: void *visit(en_param_declaration_c *symbol) {
laurent@206: TRACE("en_param_declaration_c");
laurent@206:
laurent@206: /* Start off by setting the current_var_type_symbol and
laurent@206: * current_var_init_symbol private variables...
laurent@206: */
laurent@377: update_var_type_symbol(symbol->type);
laurent@206:
laurent@206: /* now to produce the c equivalent... */
laurent@206: declare_variable(symbol->name);
laurent@206:
laurent@206: /* Values no longer in scope, and therefore no longer used.
laurent@206: * Make an effort to keep them set to NULL when not in use
laurent@206: * in order to catch bugs as soon as possible...
laurent@206: */
laurent@206: reset_var_type_symbol();
laurent@206:
laurent@206: return NULL;
laurent@206: }
laurent@206:
laurent@206: void *visit(eno_param_declaration_c *symbol) {
laurent@206: TRACE("eno_param_declaration_c");
laurent@206:
laurent@206: /* Start off by setting the current_var_type_symbol and
laurent@206: * current_var_init_symbol private variables...
laurent@206: */
laurent@377: update_var_type_symbol(symbol->type);
laurent@206:
laurent@206: /* now to produce the c equivalent... */
laurent@206: declare_variable(symbol->name);
laurent@206:
laurent@206: /* Values no longer in scope, and therefore no longer used.
laurent@206: * Make an effort to keep them set to NULL when not in use
laurent@206: * in order to catch bugs as soon as possible...
laurent@206: */
laurent@206: reset_var_type_symbol();
laurent@206:
laurent@206: return NULL;
laurent@206: }
laurent@206:
lbessard@121: /********************************/
lbessard@121: /* B 1.3.3 - Derived data types */
lbessard@121: /********************************/
lbessard@121: void *visit(data_type_declaration_c *symbol) {
lbessard@121: return NULL;
lbessard@121: }
lbessard@121:
lbessard@160: void *visit(structure_element_declaration_list_c *symbol) {
lbessard@160: for(int i = 0; i < symbol->n; i++) {
lbessard@160: symbol->elements[i]->accept(*this);
lbessard@160: }
lbessard@160: return NULL;
lbessard@160: }
lbessard@160:
lbessard@160: void *visit(structure_element_declaration_c *symbol) {
lbessard@160: /* Start off by setting the current_var_type_symbol and
lbessard@160: * current_var_init_symbol private variables...
lbessard@160: */
lbessard@160: update_var_type_symbol(symbol->spec_init);
lbessard@160:
lbessard@160: /* now to produce the c equivalent... */
lbessard@160: declare_variable(symbol->structure_element_name);
lbessard@160:
lbessard@160: /* Values no longer in scope, and therefore no longer used.
lbessard@160: * Make an effort to keep them set to NULL when not in use
lbessard@160: * in order to catch bugs as soon as possible...
lbessard@160: */
lbessard@160: reset_var_type_symbol();
lbessard@160:
lbessard@160: return NULL;
lbessard@160: }
lbessard@160:
lbessard@111: /**************************************/
lbessard@111: /* B.1.5 - Program organization units */
lbessard@111: /**************************************/
lbessard@111:
lbessard@121: /***********************/
lbessard@121: /* B 1.5.1 - Functions */
lbessard@121: /***********************/
lbessard@121: void *visit(function_declaration_c *symbol) {
lbessard@121: return NULL;
lbessard@121: }
lbessard@121:
lbessard@111: /*****************************/
lbessard@111: /* B 1.5.2 - Function Blocks */
lbessard@111: /*****************************/
lbessard@111: void *visit(function_block_declaration_c *symbol) {
lbessard@121: if (current_declarationtype == variables_dt && configuration_defined) {
lbessard@121: symbol->var_declarations->accept(*this);
lbessard@121: symbol->fblock_body->accept(*this);
lbessard@121: }
lbessard@111: return NULL;
lbessard@111: }
lbessard@111:
lbessard@111: /**********************/
lbessard@111: /* B 1.5.3 - Programs */
lbessard@111: /**********************/
lbessard@111: void *visit(program_declaration_c *symbol) {
lbessard@121: if (current_declarationtype == variables_dt && configuration_defined) {
lbessard@121: symbol->var_declarations->accept(*this);
lbessard@121: symbol->function_block_body->accept(*this);
lbessard@121: }
lbessard@111: return NULL;
lbessard@111: }
lbessard@111:
lbessard@111: /**********************************************/
lbessard@111: /* B 1.6 - Sequential function chart elements */
lbessard@111: /**********************************************/
lbessard@111:
lbessard@111: /* | sequential_function_chart sfc_network */
lbessard@111: //SYM_LIST(sequential_function_chart_c)
lbessard@111: void *visit(sequential_function_chart_c *symbol) {
lbessard@111: step_number = 0;
lbessard@111: transition_number = 0;
lbessard@111: action_number = 0;
lbessard@111: for(int i = 0; i < symbol->n; i++) {
lbessard@111: symbol->elements[i]->accept(*this);
lbessard@111: }
lbessard@111: return NULL;
lbessard@111: }
lbessard@111:
lbessard@111: /* INITIAL_STEP step_name ':' action_association_list END_STEP */
lbessard@111: //SYM_REF2(initial_step_c, step_name, action_association_list)
lbessard@111: void *visit(initial_step_c *symbol) {
lbessard@111: print_var_number();
lbessard@115: s4o.print(";VAR;");
lbessard@111: print_symbol_list();
lbessard@111: symbol->step_name->accept(*this);
lbessard@111: s4o.print(".X;");
lbessard@111: print_symbol_list();
lbessard@141: s4o.print("__step_list[");
lbessard@111: print_step_number();
laurent@229: s4o.print("].state;BOOL;\n");
lbessard@111: step_number++;
lbessard@111: return NULL;
lbessard@111: }
lbessard@111:
lbessard@111: /* STEP step_name ':' action_association_list END_STEP */
lbessard@111: //SYM_REF2(step_c, step_name, action_association_list)
lbessard@111: void *visit(step_c *symbol) {
lbessard@111: print_var_number();
lbessard@115: s4o.print(";VAR;");
lbessard@111: print_symbol_list();
lbessard@111: symbol->step_name->accept(*this);
lbessard@111: s4o.print(".X;");
lbessard@111: print_symbol_list();
lbessard@141: s4o.print("__step_list[");
lbessard@111: print_step_number();
laurent@229: s4o.print("].state;BOOL;\n");
lbessard@111: step_number++;
lbessard@111: return NULL;
lbessard@111: }
lbessard@111:
lbessard@111: /* TRANSITION [transition_name] ['(' PRIORITY ASSIGN integer ')']
lbessard@111: * FROM steps TO steps
lbessard@111: * transition_condition
lbessard@111: * END_TRANSITION
lbessard@111: */
lbessard@111: /* transition_name -> may be NULL ! */
lbessard@111: /* integer -> may be NULL ! */
lbessard@111: //SYM_REF5(transition_c, transition_name, integer, from_steps, to_steps, transition_condition)
lbessard@111: void *visit(transition_c *symbol) {
lbessard@111: print_var_number();
lbessard@115: s4o.print(";VAR;");
lbessard@111: print_symbol_list();
lbessard@111: symbol->from_steps->accept(*this);
lbessard@111: s4o.print("->");
lbessard@111: symbol->to_steps->accept(*this);
lbessard@111: s4o.print(";");
lbessard@111: print_symbol_list();
lbessard@141: s4o.print("__debug_transition_list[");
lbessard@111: print_transition_number();
laurent@229: s4o.print("];BOOL;\n");
lbessard@111: transition_number++;
lbessard@111: return NULL;
lbessard@111: }
lbessard@111:
lbessard@111: /* step_name | '(' step_name_list ')' */
lbessard@111: /* step_name -> may be NULL ! */
lbessard@111: /* step_name_list -> may be NULL ! */
lbessard@111: //SYM_REF2(steps_c, step_name, step_name_list)
lbessard@111: void *visit(steps_c *symbol) {
lbessard@111: if (symbol->step_name != NULL)
lbessard@111: symbol->step_name->accept(*this);
lbessard@111: if (symbol->step_name_list != NULL)
lbessard@111: symbol->step_name_list->accept(*this);
lbessard@111: return NULL;
lbessard@111: }
lbessard@111:
lbessard@111: /* | step_name_list ',' step_name */
lbessard@111: //SYM_LIST(step_name_list_c)
lbessard@111: void *visit(step_name_list_c *symbol) {
lbessard@111: for(int i = 0; i < symbol->n; i++) {
lbessard@111: symbol->elements[i]->accept(*this);
lbessard@111: if (i < symbol->n - 1)
lbessard@111: s4o.print(",");
lbessard@111: }
lbessard@111: return NULL;
lbessard@111: }
lbessard@111:
lbessard@111: /* ACTION action_name ':' function_block_body END_ACTION */
lbessard@111: //SYM_REF2(action_c, action_name, function_block_body)
lbessard@111: void *visit(action_c *symbol) {
lbessard@111: print_var_number();
lbessard@115: s4o.print(";VAR;");
lbessard@111: print_symbol_list();
lbessard@111: symbol->action_name->accept(*this);
lbessard@111: s4o.print(".Q;");
lbessard@111: print_symbol_list();
lbessard@141: s4o.print("__action_list[");
lbessard@111: print_action_number();
laurent@229: s4o.print("].state;BOOL;\n");
lbessard@111: action_number++;
lbessard@111: return NULL;
lbessard@111: }
lbessard@111:
lbessard@111:
lbessard@111: /**************************************/
lbessard@111: /* B.1.7 - Configuration elements */
lbessard@111: /**************************************/
lbessard@111:
lbessard@111: /* PROGRAM [RETAIN | NON_RETAIN] program_name [WITH task_name] ':' program_type_name ['(' prog_conf_elements ')'] */
lbessard@111: //SYM_REF6(program_configuration_c, retain_option, program_name, task_name, program_type_name, prog_conf_elements, unused)
lbessard@111: void *visit(program_configuration_c *symbol) {
lbessard@111:
lbessard@121: switch (current_declarationtype) {
lbessard@121: case programs_dt:
lbessard@121: print_var_number();
lbessard@121: s4o.print(";");
lbessard@121: print_symbol_list();
lbessard@121: symbol->program_name->accept(*this);
lbessard@121: s4o.print(";");
lbessard@121: symbol->program_type_name->accept(*this);
lbessard@121: s4o.print(";\n");
lbessard@121: break;
lbessard@121: case variables_dt:
lbessard@121: /* Start off by setting the current_var_type_symbol and
lbessard@121: * current_var_init_symbol private variables...
lbessard@121: */
lbessard@160: update_var_type_symbol(symbol->program_type_name);
lbessard@121:
lbessard@160: declare_variable(symbol->program_name);
lbessard@121:
lbessard@121: /* Values no longer in scope, and therefore no longer used.
lbessard@121: * Make an effort to keep them set to NULL when not in use
lbessard@121: * in order to catch bugs as soon as possible...
lbessard@121: */
lbessard@121: reset_var_type_symbol();
lbessard@121:
lbessard@121: break;
lbessard@121: default:
lbessard@121: break;
lbessard@121: }
lbessard@111:
lbessard@111: return NULL;
lbessard@111: }
lbessard@111:
lbessard@111: /* CONFIGURATION configuration_name
lbessard@111: * optional_global_var_declarations
lbessard@111: * (resource_declaration_list | single_resource_declaration)
lbessard@111: * optional_access_declarations
lbessard@111: * optional_instance_specific_initializations
lbessard@111: * END_CONFIGURATION
lbessard@111: */
lbessard@111: //SYM_REF5(configuration_declaration_c, configuration_name, global_var_declarations, resource_declarations, access_declarations, instance_specific_initializations)
lbessard@111: void *visit(configuration_declaration_c *symbol) {
lbessard@111: SYMBOL *current_name;
lbessard@111: current_name = new SYMBOL;
lbessard@111: current_name->symbol = symbol->configuration_name;
lbessard@111: current_symbol_list.push_back(*current_name);
lbessard@121: configuration_defined = true;
etisserant@135:
etisserant@135: switch (current_declarationtype) {
etisserant@135: case variables_dt:
etisserant@135: if (symbol->global_var_declarations != NULL)
etisserant@135: symbol->global_var_declarations->accept(*this);
etisserant@135: break;
etisserant@135: default:
etisserant@135: break;
etisserant@135: }
etisserant@135:
lbessard@111: symbol->resource_declarations->accept(*this);
lbessard@111: current_symbol_list.pop_back();
lbessard@121: configuration_defined = false;
lbessard@111: return NULL;
lbessard@111: }
lbessard@111:
lbessard@111: /* RESOURCE resource_name ON resource_type_name
lbessard@111: * optional_global_var_declarations
lbessard@111: * single_resource_declaration
lbessard@111: * END_RESOURCE
lbessard@111: */
lbessard@111: //SYM_REF4(resource_declaration_c, resource_name, resource_type_name, global_var_declarations, resource_declaration)
lbessard@111: void *visit(resource_declaration_c *symbol) {
lbessard@111: SYMBOL *current_name;
lbessard@111: current_name = new SYMBOL;
lbessard@111: current_name->symbol = symbol->resource_name;
lbessard@111: current_symbol_list.push_back(*current_name);
etisserant@135:
etisserant@135: switch (current_declarationtype) {
etisserant@135: case variables_dt:
etisserant@135: if (symbol->global_var_declarations != NULL)
etisserant@135: symbol->global_var_declarations->accept(*this);
etisserant@135: break;
etisserant@135: default:
etisserant@135: break;
etisserant@135: }
etisserant@135:
lbessard@111:
lbessard@111: symbol->resource_declaration->accept(*this);
lbessard@111:
lbessard@111: current_symbol_list.pop_back();
lbessard@111: return NULL;
lbessard@111: }
lbessard@111:
lbessard@111: /* task_configuration_list program_configuration_list */
lbessard@111: //SYM_REF2(single_resource_declaration_c, task_configuration_list, program_configuration_list)
lbessard@111: void *visit(single_resource_declaration_c *symbol) {
lbessard@111: symbol->program_configuration_list->accept(*this);
lbessard@111: return NULL;
lbessard@111: }
lbessard@111:
lbessard@111:
lbessard@111: /*************************************/
lbessard@111: /* B 2.1 - Instructions and operands */
lbessard@111: /*************************************/
lbessard@111: void *visit(instruction_list_c *symbol) {
lbessard@111: return NULL;
lbessard@111: }
lbessard@111:
lbessard@111: /************************/
lbessard@111: /* B 3.2 - Statements */
lbessard@111: /************************/
lbessard@111: void *visit(statement_list_c *symbol) {
lbessard@111: return NULL;
lbessard@111: }
lbessard@111:
lbessard@111: };