lbessard@111: /*
lbessard@111:  * (c) 2007 Mario de Sousa and Laurent Bessard
lbessard@111:  *
lbessard@111:  * Offered to the public under the terms of the GNU General Public License
lbessard@111:  * as published by the Free Software Foundation; either version 2 of the
lbessard@111:  * License, or (at your option) any later version.
lbessard@111:  *
lbessard@111:  * This program is distributed in the hope that it will be useful, but
lbessard@111:  * WITHOUT ANY WARRANTY; without even the implied warranty of
lbessard@111:  * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU General
lbessard@111:  * Public License for more details.
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: 
lbessard@111: /*
lbessard@111:  * An IEC 61131-3 IL and ST compiler.
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: 
lbessard@111: /*
lbessard@111:  * This is one of the versions available for the 4th stage.
lbessard@111:  *
lbessard@111:  * This 4th stage generates a c++ source program equivalent
lbessard@111:  * to the IL and ST code.
lbessard@111:  */
lbessard@111: 
lbessard@111: //#include <stdio.h>  /* required for NULL */
lbessard@111: //#include <string>
lbessard@111: //#include <iostream>
lbessard@111: 
lbessard@111: //#include "../../util/symtable.hh"
lbessard@111: 
lbessard@111: 
lbessard@111: 
lbessard@111: 
lbessard@111: typedef struct
lbessard@111: {
lbessard@111:   symbol_c *symbol;
lbessard@111: } SYMBOL;
lbessard@111: 
lbessard@111: 
lbessard@111: 
lbessard@111: 
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:
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 {
lbessard@160:       none_vtc,
lbessard@160:       variable_vtc,
lbessard@160:       pointer_vtc,
lbessard@160:       array_vtc,
lbessard@160:       structure_vtc,
lbessard@160:       function_block_vtc
lbessard@160:     } vartypecategory_t;
lbessard@160:     
lbessard@160:     vartypecategory_t current_var_type_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<SYMBOL> current_symbol_list;
lbessard@111:     search_base_type_c search_base_type;
lbessard@111:     search_fb_typedecl_c *search_fb_typedecl;
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) {
lbessard@111:       search_fb_typedecl = new search_fb_typedecl_c(scope);
lbessard@121:       current_var_number = 0;
lbessard@160:       current_var_type_symbol = current_var_type_name = NULL;
lbessard@121:       current_declarationtype = none_dt;
lbessard@160:       current_var_type_category = none_vtc;
lbessard@111:     }
lbessard@111:     
lbessard@111:     ~generate_var_list_c(void) {
lbessard@111:       delete search_fb_typedecl;
lbessard@111:     }
lbessard@111:     
lbessard@160:     void update_var_type_symbol(symbol_c *symbol) {
lbessard@160:       
lbessard@160:       this->current_var_type_name = spec_init_sperator_c::get_spec(symbol);
lbessard@166:       if (this->current_var_type_name == NULL) {
lbessard@166:         std::list<SYMBOL>::iterator pt;
lbessard@166:         for(pt = current_symbol_list.begin(); pt != current_symbol_list.end(); pt++) {
lbessard@166:           fprintf(stderr, "%s.", ((identifier_c*)(pt->symbol))->value);
lbessard@166:         }
lbessard@111:         ERROR;
lbessard@166:       }
lbessard@111:       
lbessard@160:       this->current_var_type_symbol = search_fb_typedecl->get_decl(this->current_var_type_name);
lbessard@160:       if (this->current_var_type_symbol != NULL)
lbessard@160:         this->current_var_type_category = function_block_vtc;
lbessard@160:       else {
lbessard@160:         this->current_var_type_symbol = (symbol_c *)(this->current_var_type_name->accept(search_base_type));
lbessard@160:         
lbessard@160:         structure_element_declaration_list_c *structure_symbol = dynamic_cast<structure_element_declaration_list_c *>(this->current_var_type_symbol);
lbessard@160:         if (structure_symbol != NULL)
lbessard@160:           this->current_var_type_category = structure_vtc;
lbessard@160:         else
lbessard@160:           this->current_var_type_category = variable_vtc;
lbessard@160:       }
lbessard@160:       
lbessard@111:       if (this->current_var_type_symbol == NULL)
lbessard@111:         ERROR;
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<list_c *>(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) {
lbessard@157:       print_var_number();
lbessard@157:       s4o.print(";");
lbessard@160:       switch (this->current_var_type_category) {
lbessard@160:         case pointer_vtc:
lbessard@160:           s4o.print("PT");
lbessard@160:           break;
lbessard@160:         case array_vtc:
lbessard@160:           s4o.print("ARRAY");
lbessard@160:           break;
lbessard@160:         case structure_vtc:
lbessard@160:           s4o.print("STRUCT");
lbessard@160:           break;
lbessard@160:         case function_block_vtc:
lbessard@160:           s4o.print("FB");
lbessard@160:           break;
lbessard@160:         default:
lbessard@160:           s4o.print("VAR");
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(";");
lbessard@160:       switch (this->current_var_type_category) {
lbessard@160:         case structure_vtc:
lbessard@160:         case function_block_vtc:
lbessard@160:           this->current_var_type_name->accept(*this);
lbessard@160:           s4o.print(";\n");
lbessard@160:           SYMBOL *current_name;
lbessard@160:           current_name = new SYMBOL;
lbessard@160:           current_name->symbol = 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();
lbessard@160:           break;
lbessard@160:         case 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:     }
lbessard@111:     
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<SYMBOL>::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: 
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:         
lbessard@160:         if (symbol->variable_name != NULL) {
lbessard@160:           this->current_var_type_category = pointer_vtc;
lbessard@160:           declare_variable(symbol->variable_name);
lbessard@160:         }
lbessard@111:         
lbessard@111:         current_var_type_symbol = NULL;
lbessard@111:         return NULL;
lbessard@111:     }
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:       
lbessard@160:       this->current_var_type_category = array_vtc;
laurent@221:       //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: 
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@221:       //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:     
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:       
lbessard@160:       /* now to produce the c equivalent... */
lbessard@160:       if (this->current_var_type_category == variable_vtc)
lbessard@160:         this->current_var_type_category = pointer_vtc;
lbessard@160:       declare_variable(symbol->global_var_name);
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_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) {
lbessard@195:       if (symbol->global_var_name != NULL) {
lbessard@160:         this->current_var_type_category = pointer_vtc;
lbessard@160:         declare_variable(symbol->global_var_name);
lbessard@195:       }
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@206:       this->current_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@206:       this->current_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();
lbessard@111:       s4o.print("].state;STEP;\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();
lbessard@111:       s4o.print("].state;STEP;\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();
lbessard@111:       s4o.print("];TRANSITION;\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();
lbessard@111:       s4o.print("].state;ACTION;\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: };