stage4/generate_c/generate_c.cc
author Edouard Tisserant
Thu, 16 May 2013 14:37:33 +0900
changeset 818 2a3f34967cae
parent 816 dcd861dda04a
child 852 efb44e892582
permissions -rw-r--r--
Moved __INIT_* defines within type definition headers files
70
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
     1
/*
267
0a1204bcc9af starting to add proper header file with declaration of standard functions
Mario de Sousa <msousa@fe.up.pt>
parents: 262
diff changeset
     2
 *  matiec - a compiler for the programming languages defined in IEC 61131-3
70
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
     3
 *
267
0a1204bcc9af starting to add proper header file with declaration of standard functions
Mario de Sousa <msousa@fe.up.pt>
parents: 262
diff changeset
     4
 *  Copyright (C) 2003-2011  Mario de Sousa (msousa@fe.up.pt)
279
c0453b7f99df Re-generated std lib related code, with updated headers, updated all forgotten headers
Edouard Tisserant
parents: 272
diff changeset
     5
 *  Copyright (C) 2007-2011  Laurent Bessard and Edouard Tisserant
70
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
     6
 *
267
0a1204bcc9af starting to add proper header file with declaration of standard functions
Mario de Sousa <msousa@fe.up.pt>
parents: 262
diff changeset
     7
 *  This program is free software: you can redistribute it and/or modify
0a1204bcc9af starting to add proper header file with declaration of standard functions
Mario de Sousa <msousa@fe.up.pt>
parents: 262
diff changeset
     8
 *  it under the terms of the GNU General Public License as published by
0a1204bcc9af starting to add proper header file with declaration of standard functions
Mario de Sousa <msousa@fe.up.pt>
parents: 262
diff changeset
     9
 *  the Free Software Foundation, either version 3 of the License, or
0a1204bcc9af starting to add proper header file with declaration of standard functions
Mario de Sousa <msousa@fe.up.pt>
parents: 262
diff changeset
    10
 *  (at your option) any later version.
0a1204bcc9af starting to add proper header file with declaration of standard functions
Mario de Sousa <msousa@fe.up.pt>
parents: 262
diff changeset
    11
 *
0a1204bcc9af starting to add proper header file with declaration of standard functions
Mario de Sousa <msousa@fe.up.pt>
parents: 262
diff changeset
    12
 *  This program is distributed in the hope that it will be useful,
0a1204bcc9af starting to add proper header file with declaration of standard functions
Mario de Sousa <msousa@fe.up.pt>
parents: 262
diff changeset
    13
 *  but WITHOUT ANY WARRANTY; without even the implied warranty of
0a1204bcc9af starting to add proper header file with declaration of standard functions
Mario de Sousa <msousa@fe.up.pt>
parents: 262
diff changeset
    14
 *  MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
0a1204bcc9af starting to add proper header file with declaration of standard functions
Mario de Sousa <msousa@fe.up.pt>
parents: 262
diff changeset
    15
 *  GNU General Public License for more details.
0a1204bcc9af starting to add proper header file with declaration of standard functions
Mario de Sousa <msousa@fe.up.pt>
parents: 262
diff changeset
    16
 *
0a1204bcc9af starting to add proper header file with declaration of standard functions
Mario de Sousa <msousa@fe.up.pt>
parents: 262
diff changeset
    17
 *  You should have received a copy of the GNU General Public License
0a1204bcc9af starting to add proper header file with declaration of standard functions
Mario de Sousa <msousa@fe.up.pt>
parents: 262
diff changeset
    18
 *  along with this program.  If not, see <http://www.gnu.org/licenses/>.
0a1204bcc9af starting to add proper header file with declaration of standard functions
Mario de Sousa <msousa@fe.up.pt>
parents: 262
diff changeset
    19
 *
70
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
    20
 *
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
    21
 * This code is made available on the understanding that it will not be
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
    22
 * used in safety-critical situations without a full and competent review.
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
    23
 */
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
    24
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
    25
#include <string>
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
    26
#include <iostream>
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
    27
#include <sstream>
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
    28
#include <typeinfo>
111
ee31ee39eaf6 Adding structure variable list generation module
lbessard
parents: 98
diff changeset
    29
#include <list>
377
60b012b7793f Adding support for compiling direct array specification inside variable declaration
laurent
parents: 355
diff changeset
    30
#include <map>
60b012b7793f Adding support for compiling direct array specification inside variable declaration
laurent
parents: 355
diff changeset
    31
#include <sstream>
139
668a54686827 added missing includes on some platform (gentoo/gcc-4.3.1)
etisserant
parents: 138
diff changeset
    32
#include <strings.h>
70
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
    33
592
99a284cec1f2 Add 'dimension' parameter to subrange_c, fill it correctly, and use it.
Mario de Sousa <msousa@fe.up.pt>
parents: 587
diff changeset
    34
70
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
    35
#include "../../util/symtable.hh"
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
    36
#include "../../util/dsymtable.hh"
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
    37
#include "../../absyntax/visitor.hh"
181
38d6eb056260 Moving absyntax utility files out from stage4/generate_c
mario
parents: 178
diff changeset
    38
#include "../../absyntax_utils/absyntax_utils.hh"
596
4efb11e44065 Add ERROR_MSG macro && move extract_XXX() functions to constant_folding.cc
Mario de Sousa <msousa@fe.up.pt>
parents: 594
diff changeset
    39
#include "../../main.hh" // required for ERROR() and ERROR_MSG() macros.
70
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
    40
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
    41
#include "../stage4.hh"
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
    42
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
    43
//#define DEBUG
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
    44
#ifdef DEBUG
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
    45
#define TRACE(classname) printf("\n____%s____\n",classname);
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
    46
#else
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
    47
#define TRACE(classname)
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
    48
#endif
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
    49
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
    50
522
f9cff11ae622 Start having nicer stage 4 error messages.
Mario de Sousa <msousa@fe.up.pt>
parents: 506
diff changeset
    51
f9cff11ae622 Start having nicer stage 4 error messages.
Mario de Sousa <msousa@fe.up.pt>
parents: 506
diff changeset
    52
#define STAGE4_ERROR(symbol1, symbol2, ...) {stage4err("while generating C code", symbol1, symbol2, __VA_ARGS__); exit(EXIT_FAILURE);}
f9cff11ae622 Start having nicer stage 4 error messages.
Mario de Sousa <msousa@fe.up.pt>
parents: 506
diff changeset
    53
f9cff11ae622 Start having nicer stage 4 error messages.
Mario de Sousa <msousa@fe.up.pt>
parents: 506
diff changeset
    54
592
99a284cec1f2 Add 'dimension' parameter to subrange_c, fill it correctly, and use it.
Mario de Sousa <msousa@fe.up.pt>
parents: 587
diff changeset
    55
/* Macros to access the constant value of each expression (if it exists) from the annotation introduced to the symbol_c object by constant_folding_c in stage3! */
612
c062ff18d04f Constant folding for IL.
Mario de Sousa <msousa@fe.up.pt>
parents: 596
diff changeset
    56
#define VALID_CVALUE(dtype, symbol)           (symbol_c::cs_const_value == (symbol)->const_value._##dtype.status)
c062ff18d04f Constant folding for IL.
Mario de Sousa <msousa@fe.up.pt>
parents: 596
diff changeset
    57
#define GET_CVALUE(dtype, symbol)             ((symbol)->const_value._##dtype.value) 
592
99a284cec1f2 Add 'dimension' parameter to subrange_c, fill it correctly, and use it.
Mario de Sousa <msousa@fe.up.pt>
parents: 587
diff changeset
    58
99a284cec1f2 Add 'dimension' parameter to subrange_c, fill it correctly, and use it.
Mario de Sousa <msousa@fe.up.pt>
parents: 587
diff changeset
    59
522
f9cff11ae622 Start having nicer stage 4 error messages.
Mario de Sousa <msousa@fe.up.pt>
parents: 506
diff changeset
    60
70
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
    61
/***********************************************************************/
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
    62
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
    63
/* Unlike Programs and Configurations which get mapped onto C++ classes,
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
    64
 * Function Blocks are mapped onto a C structure containing the variables, and
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
    65
 * a C function containing the code in the FB's body. This is to allow direct allocation
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
    66
 * of a FB variable (which is really an instance of the C data structure) to
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
    67
 * a member of a union variable (note that classes with constructors cannot
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
    68
 * be mebers of a union), which is done in IL when loading a FB onto IL's
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
    69
 * default variable.
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
    70
 *
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
    71
 * So as not to clash the names of the C data structure and the C function,
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
    72
 * the C structure is given a name identical to that of the FB name, whereas
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
    73
 * the name of the function is the FB name with a constant string appended.
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
    74
 * The value of that constant string which is appended is defined in the following
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
    75
 * constant.
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
    76
 * In order not to clash with any variable in the IL and ST source codem the
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
    77
 * following constant should contain a double underscore, which is not allowed
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
    78
 * in IL and ST.
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
    79
 *
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
    80
 * e.g.:  FUNTION_BLOCK TEST
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
    81
 * is mapped onto a TEST data structure, and a TEST_body__ function.
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
    82
 */
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
    83
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
    84
#define FB_FUNCTION_SUFFIX "_body__"
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
    85
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
    86
/* Idem as body, but for initializer FB function */
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
    87
#define FB_INIT_SUFFIX "_init__"
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
    88
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
    89
/* Idem as body, but for run CONFIG and RESOURCE function */
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
    90
#define FB_RUN_SUFFIX "_run__"
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
    91
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
    92
/* The FB body function is passed as the only parameter a pointer to the FB data
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
    93
 * structure instance. The name of this parameter is given by the following constant.
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
    94
 * In order not to clash with any variable in the IL and ST source codem the
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
    95
 * following constant should contain a double underscore, which is not allowed
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
    96
 * in IL and ST.
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
    97
 *
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
    98
 * e.g.: the body of FUNTION_BLOCK TEST
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
    99
 * is mapped onto the C function
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
   100
 *  TEST_body__(TEST *data__)
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
   101
 */
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
   102
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
   103
#define FB_FUNCTION_PARAM "data__"
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
   104
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
   105
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
   106
#define SFC_STEP_ACTION_PREFIX "__SFC_"
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
   107
217
f5dfadf5de54 Adding support for declare, init, get and set macros
laurent
parents: 210
diff changeset
   108
f5dfadf5de54 Adding support for declare, init, get and set macros
laurent
parents: 210
diff changeset
   109
/* Variable declaration symbol for accessor macros */
f5dfadf5de54 Adding support for declare, init, get and set macros
laurent
parents: 210
diff changeset
   110
#define DECLARE_VAR "__DECLARE_VAR"
f5dfadf5de54 Adding support for declare, init, get and set macros
laurent
parents: 210
diff changeset
   111
#define DECLARE_GLOBAL "__DECLARE_GLOBAL"
706
31553c22f318 Adding support for declaring function block instances as global and external variables
Laurent Bessard
parents: 636
diff changeset
   112
#define DECLARE_GLOBAL_FB "__DECLARE_GLOBAL_FB"
217
f5dfadf5de54 Adding support for declare, init, get and set macros
laurent
parents: 210
diff changeset
   113
#define DECLARE_GLOBAL_LOCATION "__DECLARE_GLOBAL_LOCATION"
f5dfadf5de54 Adding support for declare, init, get and set macros
laurent
parents: 210
diff changeset
   114
#define DECLARE_GLOBAL_LOCATED "__DECLARE_GLOBAL_LOCATED"
f5dfadf5de54 Adding support for declare, init, get and set macros
laurent
parents: 210
diff changeset
   115
#define DECLARE_EXTERNAL "__DECLARE_EXTERNAL"
706
31553c22f318 Adding support for declaring function block instances as global and external variables
Laurent Bessard
parents: 636
diff changeset
   116
#define DECLARE_EXTERNAL_FB "__DECLARE_EXTERNAL_FB"
217
f5dfadf5de54 Adding support for declare, init, get and set macros
laurent
parents: 210
diff changeset
   117
#define DECLARE_LOCATED "__DECLARE_LOCATED"
396
155560bfe837 Fixing bug with external variables refering to global variables defined in configurations
laurent
parents: 392
diff changeset
   118
#define DECLARE_GLOBAL_PROTOTYPE "__DECLARE_GLOBAL_PROTOTYPE"
217
f5dfadf5de54 Adding support for declare, init, get and set macros
laurent
parents: 210
diff changeset
   119
f5dfadf5de54 Adding support for declare, init, get and set macros
laurent
parents: 210
diff changeset
   120
/* Variable declaration symbol for accessor macros */
f5dfadf5de54 Adding support for declare, init, get and set macros
laurent
parents: 210
diff changeset
   121
#define INIT_VAR "__INIT_VAR"
f5dfadf5de54 Adding support for declare, init, get and set macros
laurent
parents: 210
diff changeset
   122
#define INIT_GLOBAL "__INIT_GLOBAL"
706
31553c22f318 Adding support for declaring function block instances as global and external variables
Laurent Bessard
parents: 636
diff changeset
   123
#define INIT_GLOBAL_FB "__INIT_GLOBAL_FB"
217
f5dfadf5de54 Adding support for declare, init, get and set macros
laurent
parents: 210
diff changeset
   124
#define INIT_GLOBAL_LOCATED "__INIT_GLOBAL_LOCATED"
f5dfadf5de54 Adding support for declare, init, get and set macros
laurent
parents: 210
diff changeset
   125
#define INIT_EXTERNAL "__INIT_EXTERNAL"
706
31553c22f318 Adding support for declaring function block instances as global and external variables
Laurent Bessard
parents: 636
diff changeset
   126
#define INIT_EXTERNAL_FB "__INIT_EXTERNAL_FB"
217
f5dfadf5de54 Adding support for declare, init, get and set macros
laurent
parents: 210
diff changeset
   127
#define INIT_LOCATED "__INIT_LOCATED"
f5dfadf5de54 Adding support for declare, init, get and set macros
laurent
parents: 210
diff changeset
   128
#define INIT_LOCATED_VALUE "__INIT_LOCATED_VALUE"
f5dfadf5de54 Adding support for declare, init, get and set macros
laurent
parents: 210
diff changeset
   129
f5dfadf5de54 Adding support for declare, init, get and set macros
laurent
parents: 210
diff changeset
   130
/* Variable getter symbol for accessor macros */
f5dfadf5de54 Adding support for declare, init, get and set macros
laurent
parents: 210
diff changeset
   131
#define GET_VAR "__GET_VAR"
f5dfadf5de54 Adding support for declare, init, get and set macros
laurent
parents: 210
diff changeset
   132
#define GET_EXTERNAL "__GET_EXTERNAL"
706
31553c22f318 Adding support for declaring function block instances as global and external variables
Laurent Bessard
parents: 636
diff changeset
   133
#define GET_EXTERNAL_FB "__GET_EXTERNAL_FB"
217
f5dfadf5de54 Adding support for declare, init, get and set macros
laurent
parents: 210
diff changeset
   134
#define GET_LOCATED "__GET_LOCATED"
f5dfadf5de54 Adding support for declare, init, get and set macros
laurent
parents: 210
diff changeset
   135
#define GET_VAR_BY_REF "__GET_VAR_BY_REF"
f5dfadf5de54 Adding support for declare, init, get and set macros
laurent
parents: 210
diff changeset
   136
#define GET_EXTERNAL_BY_REF "__GET_EXTERNAL_BY_REF"
706
31553c22f318 Adding support for declaring function block instances as global and external variables
Laurent Bessard
parents: 636
diff changeset
   137
#define GET_EXTERNAL_FB_BY_REF "__GET_EXTERNAL_FB_BY_REF"
217
f5dfadf5de54 Adding support for declare, init, get and set macros
laurent
parents: 210
diff changeset
   138
#define GET_LOCATED_BY_REF "__GET_LOCATED_BY_REF"
f5dfadf5de54 Adding support for declare, init, get and set macros
laurent
parents: 210
diff changeset
   139
f5dfadf5de54 Adding support for declare, init, get and set macros
laurent
parents: 210
diff changeset
   140
/* Variable setter symbol for accessor macros */
f5dfadf5de54 Adding support for declare, init, get and set macros
laurent
parents: 210
diff changeset
   141
#define SET_VAR "__SET_VAR"
f5dfadf5de54 Adding support for declare, init, get and set macros
laurent
parents: 210
diff changeset
   142
#define SET_EXTERNAL "__SET_EXTERNAL"
706
31553c22f318 Adding support for declaring function block instances as global and external variables
Laurent Bessard
parents: 636
diff changeset
   143
#define SET_EXTERNAL_FB "__SET_EXTERNAL_FB"
217
f5dfadf5de54 Adding support for declare, init, get and set macros
laurent
parents: 210
diff changeset
   144
#define SET_LOCATED "__SET_LOCATED"
f5dfadf5de54 Adding support for declare, init, get and set macros
laurent
parents: 210
diff changeset
   145
396
155560bfe837 Fixing bug with external variables refering to global variables defined in configurations
laurent
parents: 392
diff changeset
   146
/* Variable initial value symbol for accessor macros */
155560bfe837 Fixing bug with external variables refering to global variables defined in configurations
laurent
parents: 392
diff changeset
   147
#define INITIAL_VALUE "__INITIAL_VALUE"
70
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
   148
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
   149
/* Generate a name for a temporary variable.
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
   150
 * Each new name generated is appended a different number,
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
   151
 * starting off from 0.
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
   152
 * After calling reset(), the names will start off again from 0.
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
   153
 */
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
   154
#define VAR_LEADER "__"
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
   155
#define TEMP_VAR VAR_LEADER "TMP_"
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
   156
#define SOURCE_VAR VAR_LEADER "SRC_"
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
   157
283
214d3fdee596 fixing C code generation of return_statement_c and exit_statement_c
Mario de Sousa <msousa@fe.up.pt>
parents: 279
diff changeset
   158
/* please see the comment before the RET_operator_c visitor for details... */
214d3fdee596 fixing C code generation of return_statement_c and exit_statement_c
Mario de Sousa <msousa@fe.up.pt>
parents: 279
diff changeset
   159
#define END_LABEL VAR_LEADER "end"
214d3fdee596 fixing C code generation of return_statement_c and exit_statement_c
Mario de Sousa <msousa@fe.up.pt>
parents: 279
diff changeset
   160
214d3fdee596 fixing C code generation of return_statement_c and exit_statement_c
Mario de Sousa <msousa@fe.up.pt>
parents: 279
diff changeset
   161
217
f5dfadf5de54 Adding support for declare, init, get and set macros
laurent
parents: 210
diff changeset
   162
/***********************************************************************/
f5dfadf5de54 Adding support for declare, init, get and set macros
laurent
parents: 210
diff changeset
   163
/***********************************************************************/
f5dfadf5de54 Adding support for declare, init, get and set macros
laurent
parents: 210
diff changeset
   164
/***********************************************************************/
f5dfadf5de54 Adding support for declare, init, get and set macros
laurent
parents: 210
diff changeset
   165
/***********************************************************************/
f5dfadf5de54 Adding support for declare, init, get and set macros
laurent
parents: 210
diff changeset
   166
f5dfadf5de54 Adding support for declare, init, get and set macros
laurent
parents: 210
diff changeset
   167
#include "generate_c_base.cc"
f5dfadf5de54 Adding support for declare, init, get and set macros
laurent
parents: 210
diff changeset
   168
#include "generate_c_typedecl.cc"
f5dfadf5de54 Adding support for declare, init, get and set macros
laurent
parents: 210
diff changeset
   169
#include "generate_c_sfcdecl.cc"
f5dfadf5de54 Adding support for declare, init, get and set macros
laurent
parents: 210
diff changeset
   170
#include "generate_c_vardecl.cc"
f5dfadf5de54 Adding support for declare, init, get and set macros
laurent
parents: 210
diff changeset
   171
#include "generate_c_configbody.cc"
f5dfadf5de54 Adding support for declare, init, get and set macros
laurent
parents: 210
diff changeset
   172
#include "generate_location_list.cc"
f5dfadf5de54 Adding support for declare, init, get and set macros
laurent
parents: 210
diff changeset
   173
#include "generate_var_list.cc"
f5dfadf5de54 Adding support for declare, init, get and set macros
laurent
parents: 210
diff changeset
   174
f5dfadf5de54 Adding support for declare, init, get and set macros
laurent
parents: 210
diff changeset
   175
/***********************************************************************/
f5dfadf5de54 Adding support for declare, init, get and set macros
laurent
parents: 210
diff changeset
   176
/***********************************************************************/
f5dfadf5de54 Adding support for declare, init, get and set macros
laurent
parents: 210
diff changeset
   177
/***********************************************************************/
f5dfadf5de54 Adding support for declare, init, get and set macros
laurent
parents: 210
diff changeset
   178
/***********************************************************************/
f5dfadf5de54 Adding support for declare, init, get and set macros
laurent
parents: 210
diff changeset
   179
350
2c3c4dc34979 Support for semantic verification of calls to standard functions.
Mario de Sousa <msousa@fe.up.pt>
parents: 330
diff changeset
   180
2c3c4dc34979 Support for semantic verification of calls to standard functions.
Mario de Sousa <msousa@fe.up.pt>
parents: 330
diff changeset
   181
#include "generate_c.hh"
2c3c4dc34979 Support for semantic verification of calls to standard functions.
Mario de Sousa <msousa@fe.up.pt>
parents: 330
diff changeset
   182
2c3c4dc34979 Support for semantic verification of calls to standard functions.
Mario de Sousa <msousa@fe.up.pt>
parents: 330
diff changeset
   183
2c3c4dc34979 Support for semantic verification of calls to standard functions.
Mario de Sousa <msousa@fe.up.pt>
parents: 330
diff changeset
   184
/***********************************************************************/
2c3c4dc34979 Support for semantic verification of calls to standard functions.
Mario de Sousa <msousa@fe.up.pt>
parents: 330
diff changeset
   185
/***********************************************************************/
2c3c4dc34979 Support for semantic verification of calls to standard functions.
Mario de Sousa <msousa@fe.up.pt>
parents: 330
diff changeset
   186
/***********************************************************************/
2c3c4dc34979 Support for semantic verification of calls to standard functions.
Mario de Sousa <msousa@fe.up.pt>
parents: 330
diff changeset
   187
/***********************************************************************/
2c3c4dc34979 Support for semantic verification of calls to standard functions.
Mario de Sousa <msousa@fe.up.pt>
parents: 330
diff changeset
   188
2c3c4dc34979 Support for semantic verification of calls to standard functions.
Mario de Sousa <msousa@fe.up.pt>
parents: 330
diff changeset
   189
/* A helper class that prints out the identifiers for function calls to overloaded functions */
2c3c4dc34979 Support for semantic verification of calls to standard functions.
Mario de Sousa <msousa@fe.up.pt>
parents: 330
diff changeset
   190
/* Given a function declaration of the function being called, it 
2c3c4dc34979 Support for semantic verification of calls to standard functions.
Mario de Sousa <msousa@fe.up.pt>
parents: 330
diff changeset
   191
 * will simply print out the returned data type,
2c3c4dc34979 Support for semantic verification of calls to standard functions.
Mario de Sousa <msousa@fe.up.pt>
parents: 330
diff changeset
   192
 * followed by the data types of all input, output, and in_out parameters.
2c3c4dc34979 Support for semantic verification of calls to standard functions.
Mario de Sousa <msousa@fe.up.pt>
parents: 330
diff changeset
   193
 *   for e.g.; 
2c3c4dc34979 Support for semantic verification of calls to standard functions.
Mario de Sousa <msousa@fe.up.pt>
parents: 330
diff changeset
   194
 *     SIN( REAL) : REAL      -> prints out ->  REAL__REAL
2c3c4dc34979 Support for semantic verification of calls to standard functions.
Mario de Sousa <msousa@fe.up.pt>
parents: 330
diff changeset
   195
 *     LEN( STRING) : INT     -> prints out ->  INT__STRING
2c3c4dc34979 Support for semantic verification of calls to standard functions.
Mario de Sousa <msousa@fe.up.pt>
parents: 330
diff changeset
   196
 *     MUL(TIME, INT) : TIME  -> prints out ->  TIME__TIME__INT
2c3c4dc34979 Support for semantic verification of calls to standard functions.
Mario de Sousa <msousa@fe.up.pt>
parents: 330
diff changeset
   197
 */
2c3c4dc34979 Support for semantic verification of calls to standard functions.
Mario de Sousa <msousa@fe.up.pt>
parents: 330
diff changeset
   198
class print_function_parameter_data_types_c: public generate_c_base_c {
2c3c4dc34979 Support for semantic verification of calls to standard functions.
Mario de Sousa <msousa@fe.up.pt>
parents: 330
diff changeset
   199
  private:
2c3c4dc34979 Support for semantic verification of calls to standard functions.
Mario de Sousa <msousa@fe.up.pt>
parents: 330
diff changeset
   200
    symbol_c *current_type;
2c3c4dc34979 Support for semantic verification of calls to standard functions.
Mario de Sousa <msousa@fe.up.pt>
parents: 330
diff changeset
   201
    bool_type_name_c tmp_bool;
2c3c4dc34979 Support for semantic verification of calls to standard functions.
Mario de Sousa <msousa@fe.up.pt>
parents: 330
diff changeset
   202
2c3c4dc34979 Support for semantic verification of calls to standard functions.
Mario de Sousa <msousa@fe.up.pt>
parents: 330
diff changeset
   203
    void print_list(symbol_c *var_list, symbol_c *data_type) { 
2c3c4dc34979 Support for semantic verification of calls to standard functions.
Mario de Sousa <msousa@fe.up.pt>
parents: 330
diff changeset
   204
      if (data_type != NULL) {
2c3c4dc34979 Support for semantic verification of calls to standard functions.
Mario de Sousa <msousa@fe.up.pt>
parents: 330
diff changeset
   205
        /* print out the data type once for every variable! */
2c3c4dc34979 Support for semantic verification of calls to standard functions.
Mario de Sousa <msousa@fe.up.pt>
parents: 330
diff changeset
   206
        list_c *list = dynamic_cast<list_c *>(var_list);
2c3c4dc34979 Support for semantic verification of calls to standard functions.
Mario de Sousa <msousa@fe.up.pt>
parents: 330
diff changeset
   207
        if (list == NULL) ERROR;  
2c3c4dc34979 Support for semantic verification of calls to standard functions.
Mario de Sousa <msousa@fe.up.pt>
parents: 330
diff changeset
   208
        for (int i=0; i < list->n; i++) {
2c3c4dc34979 Support for semantic verification of calls to standard functions.
Mario de Sousa <msousa@fe.up.pt>
parents: 330
diff changeset
   209
          s4o.print("__");
2c3c4dc34979 Support for semantic verification of calls to standard functions.
Mario de Sousa <msousa@fe.up.pt>
parents: 330
diff changeset
   210
          data_type->accept(*this);
2c3c4dc34979 Support for semantic verification of calls to standard functions.
Mario de Sousa <msousa@fe.up.pt>
parents: 330
diff changeset
   211
        }  
2c3c4dc34979 Support for semantic verification of calls to standard functions.
Mario de Sousa <msousa@fe.up.pt>
parents: 330
diff changeset
   212
      }
2c3c4dc34979 Support for semantic verification of calls to standard functions.
Mario de Sousa <msousa@fe.up.pt>
parents: 330
diff changeset
   213
    }
2c3c4dc34979 Support for semantic verification of calls to standard functions.
Mario de Sousa <msousa@fe.up.pt>
parents: 330
diff changeset
   214
    
2c3c4dc34979 Support for semantic verification of calls to standard functions.
Mario de Sousa <msousa@fe.up.pt>
parents: 330
diff changeset
   215
  public:
2c3c4dc34979 Support for semantic verification of calls to standard functions.
Mario de Sousa <msousa@fe.up.pt>
parents: 330
diff changeset
   216
    print_function_parameter_data_types_c(stage4out_c *s4o_ptr): 
2c3c4dc34979 Support for semantic verification of calls to standard functions.
Mario de Sousa <msousa@fe.up.pt>
parents: 330
diff changeset
   217
      generate_c_base_c(s4o_ptr)
2c3c4dc34979 Support for semantic verification of calls to standard functions.
Mario de Sousa <msousa@fe.up.pt>
parents: 330
diff changeset
   218
      {current_type = NULL;}
2c3c4dc34979 Support for semantic verification of calls to standard functions.
Mario de Sousa <msousa@fe.up.pt>
parents: 330
diff changeset
   219
2c3c4dc34979 Support for semantic verification of calls to standard functions.
Mario de Sousa <msousa@fe.up.pt>
parents: 330
diff changeset
   220
    /**************************************/
2c3c4dc34979 Support for semantic verification of calls to standard functions.
Mario de Sousa <msousa@fe.up.pt>
parents: 330
diff changeset
   221
    /* B.1.5 - Program organization units */
2c3c4dc34979 Support for semantic verification of calls to standard functions.
Mario de Sousa <msousa@fe.up.pt>
parents: 330
diff changeset
   222
    /**************************************/
2c3c4dc34979 Support for semantic verification of calls to standard functions.
Mario de Sousa <msousa@fe.up.pt>
parents: 330
diff changeset
   223
    /***********************/
2c3c4dc34979 Support for semantic verification of calls to standard functions.
Mario de Sousa <msousa@fe.up.pt>
parents: 330
diff changeset
   224
    /* B 1.5.1 - Functions */
2c3c4dc34979 Support for semantic verification of calls to standard functions.
Mario de Sousa <msousa@fe.up.pt>
parents: 330
diff changeset
   225
    /***********************/
2c3c4dc34979 Support for semantic verification of calls to standard functions.
Mario de Sousa <msousa@fe.up.pt>
parents: 330
diff changeset
   226
    /*   FUNCTION derived_function_name ':' elementary_type_name io_OR_function_var_declarations_list function_body END_FUNCTION */
2c3c4dc34979 Support for semantic verification of calls to standard functions.
Mario de Sousa <msousa@fe.up.pt>
parents: 330
diff changeset
   227
    /* | FUNCTION derived_function_name ':' derived_type_name io_OR_function_var_declarations_list function_body END_FUNCTION */
2c3c4dc34979 Support for semantic verification of calls to standard functions.
Mario de Sousa <msousa@fe.up.pt>
parents: 330
diff changeset
   228
    void *visit(function_declaration_c *symbol) {
2c3c4dc34979 Support for semantic verification of calls to standard functions.
Mario de Sousa <msousa@fe.up.pt>
parents: 330
diff changeset
   229
      symbol->type_name->accept(*this); /* return type */
2c3c4dc34979 Support for semantic verification of calls to standard functions.
Mario de Sousa <msousa@fe.up.pt>
parents: 330
diff changeset
   230
      symbol->var_declarations_list->accept(*this);
2c3c4dc34979 Support for semantic verification of calls to standard functions.
Mario de Sousa <msousa@fe.up.pt>
parents: 330
diff changeset
   231
      return NULL;
2c3c4dc34979 Support for semantic verification of calls to standard functions.
Mario de Sousa <msousa@fe.up.pt>
parents: 330
diff changeset
   232
    }
2c3c4dc34979 Support for semantic verification of calls to standard functions.
Mario de Sousa <msousa@fe.up.pt>
parents: 330
diff changeset
   233
2c3c4dc34979 Support for semantic verification of calls to standard functions.
Mario de Sousa <msousa@fe.up.pt>
parents: 330
diff changeset
   234
    /* already handled by iterator base class (note that generate_c_base_c inherits from iterator_c) */
2c3c4dc34979 Support for semantic verification of calls to standard functions.
Mario de Sousa <msousa@fe.up.pt>
parents: 330
diff changeset
   235
    //void *visit(var_declarations_list_c *symbol) {// iterate through list}
2c3c4dc34979 Support for semantic verification of calls to standard functions.
Mario de Sousa <msousa@fe.up.pt>
parents: 330
diff changeset
   236
    
2c3c4dc34979 Support for semantic verification of calls to standard functions.
Mario de Sousa <msousa@fe.up.pt>
parents: 330
diff changeset
   237
    /* already handled by iterator base class (note that generate_c_base_c inherits from iterator_c) */
2c3c4dc34979 Support for semantic verification of calls to standard functions.
Mario de Sousa <msousa@fe.up.pt>
parents: 330
diff changeset
   238
    //void *visit(input_declarations_c *symbol) {// iterate through list}
2c3c4dc34979 Support for semantic verification of calls to standard functions.
Mario de Sousa <msousa@fe.up.pt>
parents: 330
diff changeset
   239
        
2c3c4dc34979 Support for semantic verification of calls to standard functions.
Mario de Sousa <msousa@fe.up.pt>
parents: 330
diff changeset
   240
    /* already handled by iterator base class (note that generate_c_base_c inherits from iterator_c) */
2c3c4dc34979 Support for semantic verification of calls to standard functions.
Mario de Sousa <msousa@fe.up.pt>
parents: 330
diff changeset
   241
    //void *visit(input_declaration_list_c *symbol) {// iterate through list}
2c3c4dc34979 Support for semantic verification of calls to standard functions.
Mario de Sousa <msousa@fe.up.pt>
parents: 330
diff changeset
   242
2c3c4dc34979 Support for semantic verification of calls to standard functions.
Mario de Sousa <msousa@fe.up.pt>
parents: 330
diff changeset
   243
    void *visit(edge_declaration_c *symbol) {
2c3c4dc34979 Support for semantic verification of calls to standard functions.
Mario de Sousa <msousa@fe.up.pt>
parents: 330
diff changeset
   244
      current_type = &tmp_bool; 
2c3c4dc34979 Support for semantic verification of calls to standard functions.
Mario de Sousa <msousa@fe.up.pt>
parents: 330
diff changeset
   245
      symbol->var1_list->accept(*this);
2c3c4dc34979 Support for semantic verification of calls to standard functions.
Mario de Sousa <msousa@fe.up.pt>
parents: 330
diff changeset
   246
      current_type = NULL; 
2c3c4dc34979 Support for semantic verification of calls to standard functions.
Mario de Sousa <msousa@fe.up.pt>
parents: 330
diff changeset
   247
      return NULL;
2c3c4dc34979 Support for semantic verification of calls to standard functions.
Mario de Sousa <msousa@fe.up.pt>
parents: 330
diff changeset
   248
    }
2c3c4dc34979 Support for semantic verification of calls to standard functions.
Mario de Sousa <msousa@fe.up.pt>
parents: 330
diff changeset
   249
    
2c3c4dc34979 Support for semantic verification of calls to standard functions.
Mario de Sousa <msousa@fe.up.pt>
parents: 330
diff changeset
   250
    /* We do NOT print out EN and ENO parameters! */
2c3c4dc34979 Support for semantic verification of calls to standard functions.
Mario de Sousa <msousa@fe.up.pt>
parents: 330
diff changeset
   251
    void *visit(en_param_declaration_c *symbol) {return NULL;}
2c3c4dc34979 Support for semantic verification of calls to standard functions.
Mario de Sousa <msousa@fe.up.pt>
parents: 330
diff changeset
   252
2c3c4dc34979 Support for semantic verification of calls to standard functions.
Mario de Sousa <msousa@fe.up.pt>
parents: 330
diff changeset
   253
    /* already handled by iterator base class (note that generate_c_base_c inherits from iterator_c) */
2c3c4dc34979 Support for semantic verification of calls to standard functions.
Mario de Sousa <msousa@fe.up.pt>
parents: 330
diff changeset
   254
    //void *visit(output_declarations_c *symbol) {// iterate through list}    
2c3c4dc34979 Support for semantic verification of calls to standard functions.
Mario de Sousa <msousa@fe.up.pt>
parents: 330
diff changeset
   255
    
2c3c4dc34979 Support for semantic verification of calls to standard functions.
Mario de Sousa <msousa@fe.up.pt>
parents: 330
diff changeset
   256
    /* already handled by iterator base class (note that generate_c_base_c inherits from iterator_c) */
2c3c4dc34979 Support for semantic verification of calls to standard functions.
Mario de Sousa <msousa@fe.up.pt>
parents: 330
diff changeset
   257
    //void *visit(var_init_decl_list_c *symbol) {// iterate through list}
2c3c4dc34979 Support for semantic verification of calls to standard functions.
Mario de Sousa <msousa@fe.up.pt>
parents: 330
diff changeset
   258
2c3c4dc34979 Support for semantic verification of calls to standard functions.
Mario de Sousa <msousa@fe.up.pt>
parents: 330
diff changeset
   259
    void *visit(simple_spec_init_c *symbol) {
2c3c4dc34979 Support for semantic verification of calls to standard functions.
Mario de Sousa <msousa@fe.up.pt>
parents: 330
diff changeset
   260
      /* return the data type */
2c3c4dc34979 Support for semantic verification of calls to standard functions.
Mario de Sousa <msousa@fe.up.pt>
parents: 330
diff changeset
   261
      return symbol->simple_specification; 
2c3c4dc34979 Support for semantic verification of calls to standard functions.
Mario de Sousa <msousa@fe.up.pt>
parents: 330
diff changeset
   262
    }
2c3c4dc34979 Support for semantic verification of calls to standard functions.
Mario de Sousa <msousa@fe.up.pt>
parents: 330
diff changeset
   263
2c3c4dc34979 Support for semantic verification of calls to standard functions.
Mario de Sousa <msousa@fe.up.pt>
parents: 330
diff changeset
   264
    /* currently we do not support data types defined in the declaration itself */
2c3c4dc34979 Support for semantic verification of calls to standard functions.
Mario de Sousa <msousa@fe.up.pt>
parents: 330
diff changeset
   265
    /* For now, sugest the user define a TYPE .. END_TYPE */
2c3c4dc34979 Support for semantic verification of calls to standard functions.
Mario de Sousa <msousa@fe.up.pt>
parents: 330
diff changeset
   266
    /* NOTE: although this class may also sometimes point to a previously_declared_subrange_type_name
2c3c4dc34979 Support for semantic verification of calls to standard functions.
Mario de Sousa <msousa@fe.up.pt>
parents: 330
diff changeset
   267
     * we don't need this for now, so it is easier to just skip it allocation
2c3c4dc34979 Support for semantic verification of calls to standard functions.
Mario de Sousa <msousa@fe.up.pt>
parents: 330
diff changeset
   268
     */
2c3c4dc34979 Support for semantic verification of calls to standard functions.
Mario de Sousa <msousa@fe.up.pt>
parents: 330
diff changeset
   269
    void *visit(subrange_spec_init_c *symbol) {return NULL;}
2c3c4dc34979 Support for semantic verification of calls to standard functions.
Mario de Sousa <msousa@fe.up.pt>
parents: 330
diff changeset
   270
2c3c4dc34979 Support for semantic verification of calls to standard functions.
Mario de Sousa <msousa@fe.up.pt>
parents: 330
diff changeset
   271
    /* currently we do not support data types defined in the declaration itself */
2c3c4dc34979 Support for semantic verification of calls to standard functions.
Mario de Sousa <msousa@fe.up.pt>
parents: 330
diff changeset
   272
    /* For now, sugest the user define a TYPE .. END_TYPE */
2c3c4dc34979 Support for semantic verification of calls to standard functions.
Mario de Sousa <msousa@fe.up.pt>
parents: 330
diff changeset
   273
    /* NOTE: although this class may also sometimes point to a previously_declared_enumerated_type_name
2c3c4dc34979 Support for semantic verification of calls to standard functions.
Mario de Sousa <msousa@fe.up.pt>
parents: 330
diff changeset
   274
     * we don't need this for now, so it is easier to just skip it allocation
2c3c4dc34979 Support for semantic verification of calls to standard functions.
Mario de Sousa <msousa@fe.up.pt>
parents: 330
diff changeset
   275
     */
2c3c4dc34979 Support for semantic verification of calls to standard functions.
Mario de Sousa <msousa@fe.up.pt>
parents: 330
diff changeset
   276
    void *visit(enumerated_spec_init_c *symbol) {return NULL;}
2c3c4dc34979 Support for semantic verification of calls to standard functions.
Mario de Sousa <msousa@fe.up.pt>
parents: 330
diff changeset
   277
2c3c4dc34979 Support for semantic verification of calls to standard functions.
Mario de Sousa <msousa@fe.up.pt>
parents: 330
diff changeset
   278
    /* currently we do not support data types defined in the declaration itself */
2c3c4dc34979 Support for semantic verification of calls to standard functions.
Mario de Sousa <msousa@fe.up.pt>
parents: 330
diff changeset
   279
    /* For now, sugest the user define a TYPE .. END_TYPE */
2c3c4dc34979 Support for semantic verification of calls to standard functions.
Mario de Sousa <msousa@fe.up.pt>
parents: 330
diff changeset
   280
    /* NOTE: although this class may also sometimes point to a previously_declared_array_type_name
2c3c4dc34979 Support for semantic verification of calls to standard functions.
Mario de Sousa <msousa@fe.up.pt>
parents: 330
diff changeset
   281
     * we don't need this for now, so it is easier to just skip it allocation
2c3c4dc34979 Support for semantic verification of calls to standard functions.
Mario de Sousa <msousa@fe.up.pt>
parents: 330
diff changeset
   282
     */
2c3c4dc34979 Support for semantic verification of calls to standard functions.
Mario de Sousa <msousa@fe.up.pt>
parents: 330
diff changeset
   283
    void *visit(array_var_init_decl_c *symbol) {return NULL;}
2c3c4dc34979 Support for semantic verification of calls to standard functions.
Mario de Sousa <msousa@fe.up.pt>
parents: 330
diff changeset
   284
2c3c4dc34979 Support for semantic verification of calls to standard functions.
Mario de Sousa <msousa@fe.up.pt>
parents: 330
diff changeset
   285
    /* currently we do not support data types defined in the declaration itself */
2c3c4dc34979 Support for semantic verification of calls to standard functions.
Mario de Sousa <msousa@fe.up.pt>
parents: 330
diff changeset
   286
    /* For now, sugest the user define a TYPE .. END_TYPE */
2c3c4dc34979 Support for semantic verification of calls to standard functions.
Mario de Sousa <msousa@fe.up.pt>
parents: 330
diff changeset
   287
    /* NOTE: although this class may also sometimes point to a previously_declared_structured_type_name
2c3c4dc34979 Support for semantic verification of calls to standard functions.
Mario de Sousa <msousa@fe.up.pt>
parents: 330
diff changeset
   288
     * we don't need this for now, so it is easier to just skip it allocation
2c3c4dc34979 Support for semantic verification of calls to standard functions.
Mario de Sousa <msousa@fe.up.pt>
parents: 330
diff changeset
   289
     */
2c3c4dc34979 Support for semantic verification of calls to standard functions.
Mario de Sousa <msousa@fe.up.pt>
parents: 330
diff changeset
   290
    void *visit(structured_var_init_decl_c *symbol) {return NULL;}
2c3c4dc34979 Support for semantic verification of calls to standard functions.
Mario de Sousa <msousa@fe.up.pt>
parents: 330
diff changeset
   291
2c3c4dc34979 Support for semantic verification of calls to standard functions.
Mario de Sousa <msousa@fe.up.pt>
parents: 330
diff changeset
   292
    /* We do NOT print out EN and ENO parameters! */
2c3c4dc34979 Support for semantic verification of calls to standard functions.
Mario de Sousa <msousa@fe.up.pt>
parents: 330
diff changeset
   293
    void *visit(eno_param_declaration_c *symbol) {return NULL;}
2c3c4dc34979 Support for semantic verification of calls to standard functions.
Mario de Sousa <msousa@fe.up.pt>
parents: 330
diff changeset
   294
2c3c4dc34979 Support for semantic verification of calls to standard functions.
Mario de Sousa <msousa@fe.up.pt>
parents: 330
diff changeset
   295
    /* already handled by iterator base class (note that generate_c_base_c inherits from iterator_c) */
2c3c4dc34979 Support for semantic verification of calls to standard functions.
Mario de Sousa <msousa@fe.up.pt>
parents: 330
diff changeset
   296
    //void *visit(input_output_declarations_c *symbol) {// iterate through list}    
2c3c4dc34979 Support for semantic verification of calls to standard functions.
Mario de Sousa <msousa@fe.up.pt>
parents: 330
diff changeset
   297
2c3c4dc34979 Support for semantic verification of calls to standard functions.
Mario de Sousa <msousa@fe.up.pt>
parents: 330
diff changeset
   298
    /* already handled by iterator base class (note that generate_c_base_c inherits from iterator_c) */
2c3c4dc34979 Support for semantic verification of calls to standard functions.
Mario de Sousa <msousa@fe.up.pt>
parents: 330
diff changeset
   299
    //void *visit(var_declaration_list_c *symbol) {iterate through list}
2c3c4dc34979 Support for semantic verification of calls to standard functions.
Mario de Sousa <msousa@fe.up.pt>
parents: 330
diff changeset
   300
2c3c4dc34979 Support for semantic verification of calls to standard functions.
Mario de Sousa <msousa@fe.up.pt>
parents: 330
diff changeset
   301
    void *visit(fb_name_decl_c *symbol) {
810
d9c48ad646f1 Add a new node to the abstract symtax tree, which will let us do datatype checking of FB variable declarations using the standard algorithm, and no special cases.
Mario de Sousa <msousa@fe.up.pt>
parents: 793
diff changeset
   302
      print_list(symbol->fb_name_list, spec_init_sperator_c::get_spec(symbol->fb_spec_init)); 
350
2c3c4dc34979 Support for semantic verification of calls to standard functions.
Mario de Sousa <msousa@fe.up.pt>
parents: 330
diff changeset
   303
      return NULL;
2c3c4dc34979 Support for semantic verification of calls to standard functions.
Mario de Sousa <msousa@fe.up.pt>
parents: 330
diff changeset
   304
    }
2c3c4dc34979 Support for semantic verification of calls to standard functions.
Mario de Sousa <msousa@fe.up.pt>
parents: 330
diff changeset
   305
2c3c4dc34979 Support for semantic verification of calls to standard functions.
Mario de Sousa <msousa@fe.up.pt>
parents: 330
diff changeset
   306
    void *visit(var1_init_decl_c *symbol) {
2c3c4dc34979 Support for semantic verification of calls to standard functions.
Mario de Sousa <msousa@fe.up.pt>
parents: 330
diff changeset
   307
      print_list(symbol->var1_list, (symbol_c *)symbol->spec_init->accept(*this));
2c3c4dc34979 Support for semantic verification of calls to standard functions.
Mario de Sousa <msousa@fe.up.pt>
parents: 330
diff changeset
   308
      return NULL;
2c3c4dc34979 Support for semantic verification of calls to standard functions.
Mario de Sousa <msousa@fe.up.pt>
parents: 330
diff changeset
   309
    }
2c3c4dc34979 Support for semantic verification of calls to standard functions.
Mario de Sousa <msousa@fe.up.pt>
parents: 330
diff changeset
   310
2c3c4dc34979 Support for semantic verification of calls to standard functions.
Mario de Sousa <msousa@fe.up.pt>
parents: 330
diff changeset
   311
    /* currently we do not support data types defined in the declaration itself */
2c3c4dc34979 Support for semantic verification of calls to standard functions.
Mario de Sousa <msousa@fe.up.pt>
parents: 330
diff changeset
   312
    /* For now, sugest the user define a TYPE .. END_TYPE */
2c3c4dc34979 Support for semantic verification of calls to standard functions.
Mario de Sousa <msousa@fe.up.pt>
parents: 330
diff changeset
   313
    void *visit(array_var_declaration_c *symbol) {return NULL;}
2c3c4dc34979 Support for semantic verification of calls to standard functions.
Mario de Sousa <msousa@fe.up.pt>
parents: 330
diff changeset
   314
2c3c4dc34979 Support for semantic verification of calls to standard functions.
Mario de Sousa <msousa@fe.up.pt>
parents: 330
diff changeset
   315
    void *visit(structured_var_declaration_c *symbol) {
2c3c4dc34979 Support for semantic verification of calls to standard functions.
Mario de Sousa <msousa@fe.up.pt>
parents: 330
diff changeset
   316
      current_type = symbol->structure_type_name; 
2c3c4dc34979 Support for semantic verification of calls to standard functions.
Mario de Sousa <msousa@fe.up.pt>
parents: 330
diff changeset
   317
      symbol->var1_list->accept(*this);
2c3c4dc34979 Support for semantic verification of calls to standard functions.
Mario de Sousa <msousa@fe.up.pt>
parents: 330
diff changeset
   318
      current_type = NULL; 
2c3c4dc34979 Support for semantic verification of calls to standard functions.
Mario de Sousa <msousa@fe.up.pt>
parents: 330
diff changeset
   319
      return NULL;
2c3c4dc34979 Support for semantic verification of calls to standard functions.
Mario de Sousa <msousa@fe.up.pt>
parents: 330
diff changeset
   320
    }
2c3c4dc34979 Support for semantic verification of calls to standard functions.
Mario de Sousa <msousa@fe.up.pt>
parents: 330
diff changeset
   321
2c3c4dc34979 Support for semantic verification of calls to standard functions.
Mario de Sousa <msousa@fe.up.pt>
parents: 330
diff changeset
   322
    /* currently we do not support data types defined in the declaration itself */
2c3c4dc34979 Support for semantic verification of calls to standard functions.
Mario de Sousa <msousa@fe.up.pt>
parents: 330
diff changeset
   323
    /* For now, sugest the user define a TYPE .. END_TYPE */
2c3c4dc34979 Support for semantic verification of calls to standard functions.
Mario de Sousa <msousa@fe.up.pt>
parents: 330
diff changeset
   324
    /* Note that this class is used for fixed length strings...
2c3c4dc34979 Support for semantic verification of calls to standard functions.
Mario de Sousa <msousa@fe.up.pt>
parents: 330
diff changeset
   325
     *   STRING [ 42 ]
2c3c4dc34979 Support for semantic verification of calls to standard functions.
Mario de Sousa <msousa@fe.up.pt>
parents: 330
diff changeset
   326
     */
2c3c4dc34979 Support for semantic verification of calls to standard functions.
Mario de Sousa <msousa@fe.up.pt>
parents: 330
diff changeset
   327
    void *visit(single_byte_string_var_declaration_c *symbol) {return NULL;}
2c3c4dc34979 Support for semantic verification of calls to standard functions.
Mario de Sousa <msousa@fe.up.pt>
parents: 330
diff changeset
   328
2c3c4dc34979 Support for semantic verification of calls to standard functions.
Mario de Sousa <msousa@fe.up.pt>
parents: 330
diff changeset
   329
    /* currently we do not support data types defined in the declaration itself */
2c3c4dc34979 Support for semantic verification of calls to standard functions.
Mario de Sousa <msousa@fe.up.pt>
parents: 330
diff changeset
   330
    /* For now, sugest the user define a TYPE .. END_TYPE */
2c3c4dc34979 Support for semantic verification of calls to standard functions.
Mario de Sousa <msousa@fe.up.pt>
parents: 330
diff changeset
   331
    /* Note that this class is used for fixed length strings...
2c3c4dc34979 Support for semantic verification of calls to standard functions.
Mario de Sousa <msousa@fe.up.pt>
parents: 330
diff changeset
   332
     *   WSTRING [ 42 ]
2c3c4dc34979 Support for semantic verification of calls to standard functions.
Mario de Sousa <msousa@fe.up.pt>
parents: 330
diff changeset
   333
     */
2c3c4dc34979 Support for semantic verification of calls to standard functions.
Mario de Sousa <msousa@fe.up.pt>
parents: 330
diff changeset
   334
    void *visit(double_byte_string_var_declaration_c *symbol) {return NULL;}
2c3c4dc34979 Support for semantic verification of calls to standard functions.
Mario de Sousa <msousa@fe.up.pt>
parents: 330
diff changeset
   335
};
2c3c4dc34979 Support for semantic verification of calls to standard functions.
Mario de Sousa <msousa@fe.up.pt>
parents: 330
diff changeset
   336
    
2c3c4dc34979 Support for semantic verification of calls to standard functions.
Mario de Sousa <msousa@fe.up.pt>
parents: 330
diff changeset
   337
2c3c4dc34979 Support for semantic verification of calls to standard functions.
Mario de Sousa <msousa@fe.up.pt>
parents: 330
diff changeset
   338
/***********************************************************************/
2c3c4dc34979 Support for semantic verification of calls to standard functions.
Mario de Sousa <msousa@fe.up.pt>
parents: 330
diff changeset
   339
/***********************************************************************/
2c3c4dc34979 Support for semantic verification of calls to standard functions.
Mario de Sousa <msousa@fe.up.pt>
parents: 330
diff changeset
   340
/***********************************************************************/
2c3c4dc34979 Support for semantic verification of calls to standard functions.
Mario de Sousa <msousa@fe.up.pt>
parents: 330
diff changeset
   341
/***********************************************************************/
2c3c4dc34979 Support for semantic verification of calls to standard functions.
Mario de Sousa <msousa@fe.up.pt>
parents: 330
diff changeset
   342
2c3c4dc34979 Support for semantic verification of calls to standard functions.
Mario de Sousa <msousa@fe.up.pt>
parents: 330
diff changeset
   343
70
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
   344
#include "generate_c_st.cc"
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
   345
#include "generate_c_il.cc"
217
f5dfadf5de54 Adding support for declare, init, get and set macros
laurent
parents: 210
diff changeset
   346
#include "generate_c_inlinefcall.cc"
70
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
   347
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
   348
/***********************************************************************/
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
   349
/***********************************************************************/
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
   350
/***********************************************************************/
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
   351
/***********************************************************************/
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
   352
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
   353
#define MILLISECOND 1000000
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
   354
#define SECOND 1000 * MILLISECOND
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
   355
594
c8092e909886 Clean up code (remove parsing of integers in stage 4).
Mario de Sousa <msousa@fe.up.pt>
parents: 592
diff changeset
   356
unsigned long long calculate_time(symbol_c *symbol) {
c8092e909886 Clean up code (remove parsing of integers in stage 4).
Mario de Sousa <msousa@fe.up.pt>
parents: 592
diff changeset
   357
  if (NULL == symbol) return 0;
70
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
   358
  
594
c8092e909886 Clean up code (remove parsing of integers in stage 4).
Mario de Sousa <msousa@fe.up.pt>
parents: 592
diff changeset
   359
  interval_c *interval = dynamic_cast<interval_c *>(symbol);
c8092e909886 Clean up code (remove parsing of integers in stage 4).
Mario de Sousa <msousa@fe.up.pt>
parents: 592
diff changeset
   360
  duration_c *duration = dynamic_cast<duration_c *>(symbol);
70
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
   361
  
632
76c3d707ffa1 Adding error message when task interval value is not supported
Laurent Bessard
parents: 631
diff changeset
   362
  if ((NULL == interval) && (NULL == duration))
631
1a4f5ce62962 Adding error message when task interval value is not supported
Laurent Bessard
parents: 625
diff changeset
   363
  	  {STAGE4_ERROR(symbol, symbol, "This type of interval value is not currently supported"); ERROR;}
594
c8092e909886 Clean up code (remove parsing of integers in stage 4).
Mario de Sousa <msousa@fe.up.pt>
parents: 592
diff changeset
   364
c8092e909886 Clean up code (remove parsing of integers in stage 4).
Mario de Sousa <msousa@fe.up.pt>
parents: 592
diff changeset
   365
  if (NULL != duration) {
70
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
   366
    /* SYM_REF2(duration_c, neg, interval) */
594
c8092e909886 Clean up code (remove parsing of integers in stage 4).
Mario de Sousa <msousa@fe.up.pt>
parents: 592
diff changeset
   367
    if (duration->neg != NULL)
631
1a4f5ce62962 Adding error message when task interval value is not supported
Laurent Bessard
parents: 625
diff changeset
   368
      {STAGE4_ERROR(duration, duration, "Negative TIME literals for interval are not currently supported"); ERROR;}
594
c8092e909886 Clean up code (remove parsing of integers in stage 4).
Mario de Sousa <msousa@fe.up.pt>
parents: 592
diff changeset
   369
    return calculate_time(duration->interval);
c8092e909886 Clean up code (remove parsing of integers in stage 4).
Mario de Sousa <msousa@fe.up.pt>
parents: 592
diff changeset
   370
  }
c8092e909886 Clean up code (remove parsing of integers in stage 4).
Mario de Sousa <msousa@fe.up.pt>
parents: 592
diff changeset
   371
c8092e909886 Clean up code (remove parsing of integers in stage 4).
Mario de Sousa <msousa@fe.up.pt>
parents: 592
diff changeset
   372
  if (NULL != interval) {
547
dab341e80664 Fix parsing os TIME literals & rename the extract_integer() function.
mjsousa <msousa@fe.up.pt>
parents: 522
diff changeset
   373
    /* SYM_REF5(interval_c, days, hours, minutes, seconds, milliseconds) */
594
c8092e909886 Clean up code (remove parsing of integers in stage 4).
Mario de Sousa <msousa@fe.up.pt>
parents: 592
diff changeset
   374
      unsigned long long int time_ull = 0; 
c8092e909886 Clean up code (remove parsing of integers in stage 4).
Mario de Sousa <msousa@fe.up.pt>
parents: 592
diff changeset
   375
      long double            time_ld  = 0;
c8092e909886 Clean up code (remove parsing of integers in stage 4).
Mario de Sousa <msousa@fe.up.pt>
parents: 592
diff changeset
   376
      /*
c8092e909886 Clean up code (remove parsing of integers in stage 4).
Mario de Sousa <msousa@fe.up.pt>
parents: 592
diff changeset
   377
      const unsigned long long int MILLISECOND = 1000000;
c8092e909886 Clean up code (remove parsing of integers in stage 4).
Mario de Sousa <msousa@fe.up.pt>
parents: 592
diff changeset
   378
      const unsigned long long int      SECOND = 1000 * MILLISECOND
c8092e909886 Clean up code (remove parsing of integers in stage 4).
Mario de Sousa <msousa@fe.up.pt>
parents: 592
diff changeset
   379
      */
c8092e909886 Clean up code (remove parsing of integers in stage 4).
Mario de Sousa <msousa@fe.up.pt>
parents: 592
diff changeset
   380
      
c8092e909886 Clean up code (remove parsing of integers in stage 4).
Mario de Sousa <msousa@fe.up.pt>
parents: 592
diff changeset
   381
      if (NULL != interval->milliseconds) {
c8092e909886 Clean up code (remove parsing of integers in stage 4).
Mario de Sousa <msousa@fe.up.pt>
parents: 592
diff changeset
   382
        if      (VALID_CVALUE( int64, interval->milliseconds) &&           GET_CVALUE( int64, interval->milliseconds) < 0) ERROR; // interval elements should always be positive!
c8092e909886 Clean up code (remove parsing of integers in stage 4).
Mario de Sousa <msousa@fe.up.pt>
parents: 592
diff changeset
   383
        if      (VALID_CVALUE( int64, interval->milliseconds)) time_ull += GET_CVALUE( int64, interval->milliseconds) * MILLISECOND;
c8092e909886 Clean up code (remove parsing of integers in stage 4).
Mario de Sousa <msousa@fe.up.pt>
parents: 592
diff changeset
   384
        else if (VALID_CVALUE(uint64, interval->milliseconds)) time_ull += GET_CVALUE(uint64, interval->milliseconds) * MILLISECOND;
c8092e909886 Clean up code (remove parsing of integers in stage 4).
Mario de Sousa <msousa@fe.up.pt>
parents: 592
diff changeset
   385
        else if (VALID_CVALUE(real64, interval->milliseconds)) time_ld  += GET_CVALUE(real64, interval->milliseconds) * MILLISECOND;
c8092e909886 Clean up code (remove parsing of integers in stage 4).
Mario de Sousa <msousa@fe.up.pt>
parents: 592
diff changeset
   386
        else ERROR; // if (NULL != interval->milliseconds) is true, then it must have a valid constant value!
c8092e909886 Clean up code (remove parsing of integers in stage 4).
Mario de Sousa <msousa@fe.up.pt>
parents: 592
diff changeset
   387
      }
547
dab341e80664 Fix parsing os TIME literals & rename the extract_integer() function.
mjsousa <msousa@fe.up.pt>
parents: 522
diff changeset
   388
   
594
c8092e909886 Clean up code (remove parsing of integers in stage 4).
Mario de Sousa <msousa@fe.up.pt>
parents: 592
diff changeset
   389
      if (NULL != interval->seconds     ) {
c8092e909886 Clean up code (remove parsing of integers in stage 4).
Mario de Sousa <msousa@fe.up.pt>
parents: 592
diff changeset
   390
        if      (VALID_CVALUE( int64, interval->seconds     ) &&           GET_CVALUE( int64, interval->seconds     ) < 0) ERROR; // interval elements should always be positive!
c8092e909886 Clean up code (remove parsing of integers in stage 4).
Mario de Sousa <msousa@fe.up.pt>
parents: 592
diff changeset
   391
        if      (VALID_CVALUE( int64, interval->seconds     )) time_ull += GET_CVALUE( int64, interval->seconds     ) * SECOND;
c8092e909886 Clean up code (remove parsing of integers in stage 4).
Mario de Sousa <msousa@fe.up.pt>
parents: 592
diff changeset
   392
        else if (VALID_CVALUE(uint64, interval->seconds     )) time_ull += GET_CVALUE(uint64, interval->seconds     ) * SECOND;
c8092e909886 Clean up code (remove parsing of integers in stage 4).
Mario de Sousa <msousa@fe.up.pt>
parents: 592
diff changeset
   393
        else if (VALID_CVALUE(real64, interval->seconds     )) time_ld  += GET_CVALUE(real64, interval->seconds     ) * SECOND;
c8092e909886 Clean up code (remove parsing of integers in stage 4).
Mario de Sousa <msousa@fe.up.pt>
parents: 592
diff changeset
   394
        else ERROR; // if (NULL != interval->seconds) is true, then it must have a valid constant value!
c8092e909886 Clean up code (remove parsing of integers in stage 4).
Mario de Sousa <msousa@fe.up.pt>
parents: 592
diff changeset
   395
      }
c8092e909886 Clean up code (remove parsing of integers in stage 4).
Mario de Sousa <msousa@fe.up.pt>
parents: 592
diff changeset
   396
c8092e909886 Clean up code (remove parsing of integers in stage 4).
Mario de Sousa <msousa@fe.up.pt>
parents: 592
diff changeset
   397
      if (NULL != interval->minutes     ) {
c8092e909886 Clean up code (remove parsing of integers in stage 4).
Mario de Sousa <msousa@fe.up.pt>
parents: 592
diff changeset
   398
        if      (VALID_CVALUE( int64, interval->minutes     ) &&           GET_CVALUE( int64, interval->minutes     ) < 0) ERROR; // interval elements should always be positive!
c8092e909886 Clean up code (remove parsing of integers in stage 4).
Mario de Sousa <msousa@fe.up.pt>
parents: 592
diff changeset
   399
        if      (VALID_CVALUE( int64, interval->minutes     )) time_ull += GET_CVALUE( int64, interval->minutes     ) * SECOND * 60;
c8092e909886 Clean up code (remove parsing of integers in stage 4).
Mario de Sousa <msousa@fe.up.pt>
parents: 592
diff changeset
   400
        else if (VALID_CVALUE(uint64, interval->minutes     )) time_ull += GET_CVALUE(uint64, interval->minutes     ) * SECOND * 60;
c8092e909886 Clean up code (remove parsing of integers in stage 4).
Mario de Sousa <msousa@fe.up.pt>
parents: 592
diff changeset
   401
        else if (VALID_CVALUE(real64, interval->minutes     )) time_ld  += GET_CVALUE(real64, interval->minutes     ) * SECOND * 60;
c8092e909886 Clean up code (remove parsing of integers in stage 4).
Mario de Sousa <msousa@fe.up.pt>
parents: 592
diff changeset
   402
        else ERROR; // if (NULL != interval->minutes) is true, then it must have a valid constant value!
c8092e909886 Clean up code (remove parsing of integers in stage 4).
Mario de Sousa <msousa@fe.up.pt>
parents: 592
diff changeset
   403
      }
c8092e909886 Clean up code (remove parsing of integers in stage 4).
Mario de Sousa <msousa@fe.up.pt>
parents: 592
diff changeset
   404
c8092e909886 Clean up code (remove parsing of integers in stage 4).
Mario de Sousa <msousa@fe.up.pt>
parents: 592
diff changeset
   405
      if (NULL != interval->hours       ) {
c8092e909886 Clean up code (remove parsing of integers in stage 4).
Mario de Sousa <msousa@fe.up.pt>
parents: 592
diff changeset
   406
        if      (VALID_CVALUE( int64, interval->hours       ) &&           GET_CVALUE( int64, interval->hours       ) < 0) ERROR; // interval elements should always be positive!
c8092e909886 Clean up code (remove parsing of integers in stage 4).
Mario de Sousa <msousa@fe.up.pt>
parents: 592
diff changeset
   407
        if      (VALID_CVALUE( int64, interval->hours       )) time_ull += GET_CVALUE( int64, interval->hours       ) * SECOND * 60 * 60;
c8092e909886 Clean up code (remove parsing of integers in stage 4).
Mario de Sousa <msousa@fe.up.pt>
parents: 592
diff changeset
   408
        else if (VALID_CVALUE(uint64, interval->hours       )) time_ull += GET_CVALUE(uint64, interval->hours       ) * SECOND * 60 * 60;
c8092e909886 Clean up code (remove parsing of integers in stage 4).
Mario de Sousa <msousa@fe.up.pt>
parents: 592
diff changeset
   409
        else if (VALID_CVALUE(real64, interval->hours       )) time_ld  += GET_CVALUE(real64, interval->hours       ) * SECOND * 60 * 60;
c8092e909886 Clean up code (remove parsing of integers in stage 4).
Mario de Sousa <msousa@fe.up.pt>
parents: 592
diff changeset
   410
        else ERROR; // if (NULL != interval->hours) is true, then it must have a valid constant value!
c8092e909886 Clean up code (remove parsing of integers in stage 4).
Mario de Sousa <msousa@fe.up.pt>
parents: 592
diff changeset
   411
      }
c8092e909886 Clean up code (remove parsing of integers in stage 4).
Mario de Sousa <msousa@fe.up.pt>
parents: 592
diff changeset
   412
c8092e909886 Clean up code (remove parsing of integers in stage 4).
Mario de Sousa <msousa@fe.up.pt>
parents: 592
diff changeset
   413
      if (NULL != interval->days        ) {
c8092e909886 Clean up code (remove parsing of integers in stage 4).
Mario de Sousa <msousa@fe.up.pt>
parents: 592
diff changeset
   414
        if      (VALID_CVALUE( int64, interval->days        ) &&           GET_CVALUE( int64, interval->days        ) < 0) ERROR; // interval elements should always be positive!
c8092e909886 Clean up code (remove parsing of integers in stage 4).
Mario de Sousa <msousa@fe.up.pt>
parents: 592
diff changeset
   415
        if      (VALID_CVALUE( int64, interval->days        )) time_ull += GET_CVALUE( int64, interval->days        ) * SECOND * 60 * 60 * 24;
c8092e909886 Clean up code (remove parsing of integers in stage 4).
Mario de Sousa <msousa@fe.up.pt>
parents: 592
diff changeset
   416
        else if (VALID_CVALUE(uint64, interval->days        )) time_ull += GET_CVALUE(uint64, interval->days        ) * SECOND * 60 * 60 * 24;
c8092e909886 Clean up code (remove parsing of integers in stage 4).
Mario de Sousa <msousa@fe.up.pt>
parents: 592
diff changeset
   417
        else if (VALID_CVALUE(real64, interval->days        )) time_ld  += GET_CVALUE(real64, interval->days        ) * SECOND * 60 * 60 * 24;
c8092e909886 Clean up code (remove parsing of integers in stage 4).
Mario de Sousa <msousa@fe.up.pt>
parents: 592
diff changeset
   418
        else ERROR; // if (NULL != interval->days) is true, then it must have a valid constant value!
c8092e909886 Clean up code (remove parsing of integers in stage 4).
Mario de Sousa <msousa@fe.up.pt>
parents: 592
diff changeset
   419
      }
c8092e909886 Clean up code (remove parsing of integers in stage 4).
Mario de Sousa <msousa@fe.up.pt>
parents: 592
diff changeset
   420
c8092e909886 Clean up code (remove parsing of integers in stage 4).
Mario de Sousa <msousa@fe.up.pt>
parents: 592
diff changeset
   421
      time_ull += time_ld;
c8092e909886 Clean up code (remove parsing of integers in stage 4).
Mario de Sousa <msousa@fe.up.pt>
parents: 592
diff changeset
   422
      return time_ull;
c8092e909886 Clean up code (remove parsing of integers in stage 4).
Mario de Sousa <msousa@fe.up.pt>
parents: 592
diff changeset
   423
  };
c8092e909886 Clean up code (remove parsing of integers in stage 4).
Mario de Sousa <msousa@fe.up.pt>
parents: 592
diff changeset
   424
  ERROR; // should never reach this point!
c8092e909886 Clean up code (remove parsing of integers in stage 4).
Mario de Sousa <msousa@fe.up.pt>
parents: 592
diff changeset
   425
  return 0; // humour the compiler!
661
f537c3315f83 Minor changes needed to build with pedantic flag.
Manuele Conti <conti.ma@alice.it>
parents: 624
diff changeset
   426
}
70
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
   427
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
   428
/***********************************************************************/
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
   429
/***********************************************************************/
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
   430
/***********************************************************************/
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
   431
/***********************************************************************/
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
   432
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
   433
class calculate_common_ticktime_c: public iterator_visitor_c {
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
   434
  private:
210
8387cac2aba6 Adding support for forcing tick count to return to zero as the same time than all tasks firing are synchronized
laurent
parents: 202
diff changeset
   435
    unsigned long long common_ticktime;
8387cac2aba6 Adding support for forcing tick count to return to zero as the same time than all tasks firing are synchronized
laurent
parents: 202
diff changeset
   436
    unsigned long long least_common_ticktime;
70
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
   437
    
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
   438
  public:
210
8387cac2aba6 Adding support for forcing tick count to return to zero as the same time than all tasks firing are synchronized
laurent
parents: 202
diff changeset
   439
    calculate_common_ticktime_c(void){
8387cac2aba6 Adding support for forcing tick count to return to zero as the same time than all tasks firing are synchronized
laurent
parents: 202
diff changeset
   440
      common_ticktime = 0;
8387cac2aba6 Adding support for forcing tick count to return to zero as the same time than all tasks firing are synchronized
laurent
parents: 202
diff changeset
   441
      least_common_ticktime = 0;
8387cac2aba6 Adding support for forcing tick count to return to zero as the same time than all tasks firing are synchronized
laurent
parents: 202
diff changeset
   442
    }
8387cac2aba6 Adding support for forcing tick count to return to zero as the same time than all tasks firing are synchronized
laurent
parents: 202
diff changeset
   443
    
8387cac2aba6 Adding support for forcing tick count to return to zero as the same time than all tasks firing are synchronized
laurent
parents: 202
diff changeset
   444
    unsigned long long euclide(unsigned long long a, unsigned long long b) {
8387cac2aba6 Adding support for forcing tick count to return to zero as the same time than all tasks firing are synchronized
laurent
parents: 202
diff changeset
   445
      unsigned long long c = a % b;
70
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
   446
      if (c == 0)
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
   447
        return b;
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
   448
      else
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
   449
        return euclide(b, c);
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
   450
    }
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
   451
    
210
8387cac2aba6 Adding support for forcing tick count to return to zero as the same time than all tasks firing are synchronized
laurent
parents: 202
diff changeset
   452
    void update_ticktime(unsigned long long time) {
70
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
   453
      if (common_ticktime == 0)
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
   454
        common_ticktime = time;
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
   455
      else if (time > common_ticktime)
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
   456
        common_ticktime = euclide(time, common_ticktime);
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
   457
      else
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
   458
        common_ticktime = euclide(common_ticktime, time);
210
8387cac2aba6 Adding support for forcing tick count to return to zero as the same time than all tasks firing are synchronized
laurent
parents: 202
diff changeset
   459
      if (least_common_ticktime == 0)
8387cac2aba6 Adding support for forcing tick count to return to zero as the same time than all tasks firing are synchronized
laurent
parents: 202
diff changeset
   460
        least_common_ticktime = time;
8387cac2aba6 Adding support for forcing tick count to return to zero as the same time than all tasks firing are synchronized
laurent
parents: 202
diff changeset
   461
      else
8387cac2aba6 Adding support for forcing tick count to return to zero as the same time than all tasks firing are synchronized
laurent
parents: 202
diff changeset
   462
        least_common_ticktime = (least_common_ticktime * time) / common_ticktime;
8387cac2aba6 Adding support for forcing tick count to return to zero as the same time than all tasks firing are synchronized
laurent
parents: 202
diff changeset
   463
    }
8387cac2aba6 Adding support for forcing tick count to return to zero as the same time than all tasks firing are synchronized
laurent
parents: 202
diff changeset
   464
8387cac2aba6 Adding support for forcing tick count to return to zero as the same time than all tasks firing are synchronized
laurent
parents: 202
diff changeset
   465
    unsigned long long get_common_ticktime(void) {
70
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
   466
      return common_ticktime;
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
   467
    }
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
   468
210
8387cac2aba6 Adding support for forcing tick count to return to zero as the same time than all tasks firing are synchronized
laurent
parents: 202
diff changeset
   469
    unsigned long get_greatest_tick_count(void) {
8387cac2aba6 Adding support for forcing tick count to return to zero as the same time than all tasks firing are synchronized
laurent
parents: 202
diff changeset
   470
      unsigned long long least_common_tick = least_common_ticktime / common_ticktime;
8387cac2aba6 Adding support for forcing tick count to return to zero as the same time than all tasks firing are synchronized
laurent
parents: 202
diff changeset
   471
      if (least_common_tick >> 32)
8387cac2aba6 Adding support for forcing tick count to return to zero as the same time than all tasks firing are synchronized
laurent
parents: 202
diff changeset
   472
        ERROR;
237
cece842c7417 Adding support for using arrays in POU interface
laurent
parents: 234
diff changeset
   473
      return (unsigned long)(~(((unsigned long)-1) % (unsigned long)least_common_tick) + 1);
210
8387cac2aba6 Adding support for forcing tick count to return to zero as the same time than all tasks firing are synchronized
laurent
parents: 202
diff changeset
   474
    }
8387cac2aba6 Adding support for forcing tick count to return to zero as the same time than all tasks firing are synchronized
laurent
parents: 202
diff changeset
   475
70
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
   476
/*  TASK task_name task_initialization */
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
   477
//SYM_REF2(task_configuration_c, task_name, task_initialization)  
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
   478
    void *visit(task_initialization_c *symbol) {
816
dcd861dda04a Fixed bug when defining task with single_data_source instead of interval_data_source
Laurent Bessard
parents: 810
diff changeset
   479
      if (symbol->interval_data_source != NULL) {
dcd861dda04a Fixed bug when defining task with single_data_source instead of interval_data_source
Laurent Bessard
parents: 810
diff changeset
   480
    	  unsigned long long time = calculate_time(symbol->interval_data_source);
dcd861dda04a Fixed bug when defining task with single_data_source instead of interval_data_source
Laurent Bessard
parents: 810
diff changeset
   481
    	  if (time < 0)  ERROR;
dcd861dda04a Fixed bug when defining task with single_data_source instead of interval_data_source
Laurent Bessard
parents: 810
diff changeset
   482
    	  else           update_ticktime(time);
dcd861dda04a Fixed bug when defining task with single_data_source instead of interval_data_source
Laurent Bessard
parents: 810
diff changeset
   483
      }
70
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
   484
      return NULL;
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
   485
    }
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
   486
};    
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
   487
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
   488
/***********************************************************************/
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
   489
/***********************************************************************/
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
   490
/***********************************************************************/
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
   491
/***********************************************************************/
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
   492
217
f5dfadf5de54 Adding support for declare, init, get and set macros
laurent
parents: 210
diff changeset
   493
/* A helper class that knows how to generate code for the SFC, IL and ST languages... */
70
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
   494
class generate_c_SFC_IL_ST_c: public null_visitor_c {
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
   495
  private:
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
   496
    stage4out_c *s4o_ptr;
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
   497
    symbol_c *scope;
217
f5dfadf5de54 Adding support for declare, init, get and set macros
laurent
parents: 210
diff changeset
   498
    symbol_c *fbname;
70
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
   499
    const char *variable_prefix;
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
   500
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
   501
  public:
217
f5dfadf5de54 Adding support for declare, init, get and set macros
laurent
parents: 210
diff changeset
   502
    generate_c_SFC_IL_ST_c(stage4out_c *s4o_ptr, symbol_c *name, symbol_c *scope, const char *variable_prefix = NULL);
267
0a1204bcc9af starting to add proper header file with declaration of standard functions
Mario de Sousa <msousa@fe.up.pt>
parents: 262
diff changeset
   503
    
0a1204bcc9af starting to add proper header file with declaration of standard functions
Mario de Sousa <msousa@fe.up.pt>
parents: 262
diff changeset
   504
    /********************/
0a1204bcc9af starting to add proper header file with declaration of standard functions
Mario de Sousa <msousa@fe.up.pt>
parents: 262
diff changeset
   505
    /* 2.1.6 - Pragmas  */
0a1204bcc9af starting to add proper header file with declaration of standard functions
Mario de Sousa <msousa@fe.up.pt>
parents: 262
diff changeset
   506
    /********************/
0a1204bcc9af starting to add proper header file with declaration of standard functions
Mario de Sousa <msousa@fe.up.pt>
parents: 262
diff changeset
   507
    void *visit(enable_code_generation_pragma_c * symbol)   {s4o_ptr->enable_output();  return NULL;}
0a1204bcc9af starting to add proper header file with declaration of standard functions
Mario de Sousa <msousa@fe.up.pt>
parents: 262
diff changeset
   508
    void *visit(disable_code_generation_pragma_c * symbol)  {s4o_ptr->disable_output(); return NULL;} 
0a1204bcc9af starting to add proper header file with declaration of standard functions
Mario de Sousa <msousa@fe.up.pt>
parents: 262
diff changeset
   509
    
70
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
   510
    /*********************************************/
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
   511
    /* B.1.6  Sequential function chart elements */
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
   512
    /*********************************************/
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
   513
    /*| sequential_function_chart sfc_network*/
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
   514
    void *visit(sequential_function_chart_c * symbol);
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
   515
    
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
   516
    /****************************************/
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
   517
    /* B.2 - Language IL (Instruction List) */
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
   518
    /****************************************/
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
   519
    
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
   520
    /***********************************/
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
   521
    /* B 2.1 Instructions and Operands */
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
   522
    /***********************************/
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
   523
    /*| instruction_list il_instruction */
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
   524
    void *visit(instruction_list_c *symbol);
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
   525
    
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
   526
    /* Remainder implemented in generate_c_il_c... */
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
   527
    
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
   528
    /***************************************/
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
   529
    /* B.3 - Language ST (Structured Text) */
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
   530
    /***************************************/
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
   531
    /***********************/
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
   532
    /* B 3.1 - Expressions */
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
   533
    /***********************/
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
   534
    /* Implemented in generate_c_st_c */
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
   535
    
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
   536
    /********************/
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
   537
    /* B 3.2 Statements */
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
   538
    /********************/
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
   539
    void *visit(statement_list_c *symbol);
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
   540
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
   541
/* Remainder implemented in generate_c_st_c... */
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
   542
};
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
   543
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
   544
#include "generate_c_sfc.cc"
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
   545
217
f5dfadf5de54 Adding support for declare, init, get and set macros
laurent
parents: 210
diff changeset
   546
generate_c_SFC_IL_ST_c::generate_c_SFC_IL_ST_c(stage4out_c *s4o_ptr, symbol_c *name, symbol_c *scope, const char *variable_prefix) {
70
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
   547
  if (NULL == scope) ERROR;
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
   548
  this->s4o_ptr = s4o_ptr;
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
   549
  this->scope = scope;
217
f5dfadf5de54 Adding support for declare, init, get and set macros
laurent
parents: 210
diff changeset
   550
  this->fbname = name;
70
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
   551
  this->variable_prefix = variable_prefix;
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
   552
}
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
   553
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
   554
void *generate_c_SFC_IL_ST_c::visit(sequential_function_chart_c * symbol) {
217
f5dfadf5de54 Adding support for declare, init, get and set macros
laurent
parents: 210
diff changeset
   555
  generate_c_sfc_c generate_c_sfc(s4o_ptr, fbname, scope, variable_prefix);
70
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
   556
  generate_c_sfc.generate(symbol);
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
   557
  return NULL;
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
   558
}
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
   559
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
   560
void *generate_c_SFC_IL_ST_c::visit(instruction_list_c *symbol) {
217
f5dfadf5de54 Adding support for declare, init, get and set macros
laurent
parents: 210
diff changeset
   561
  generate_c_il_c generate_c_il(s4o_ptr, fbname, scope, variable_prefix);
70
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
   562
  generate_c_il.generate(symbol);
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
   563
  return NULL;
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
   564
}
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
   565
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
   566
void *generate_c_SFC_IL_ST_c::visit(statement_list_c *symbol) {
217
f5dfadf5de54 Adding support for declare, init, get and set macros
laurent
parents: 210
diff changeset
   567
  generate_c_st_c generate_c_st(s4o_ptr, fbname, scope, variable_prefix);
70
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
   568
  generate_c_st.generate(symbol);
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
   569
  return NULL;
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
   570
}
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
   571
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
   572
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
   573
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
   574
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
   575
/***********************************************************************/
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
   576
/***********************************************************************/
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
   577
/***********************************************************************/
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
   578
/***********************************************************************/
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
   579
/***********************************************************************/
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
   580
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
   581
377
60b012b7793f Adding support for compiling direct array specification inside variable declaration
laurent
parents: 355
diff changeset
   582
class generate_c_datatypes_c: public generate_c_typedecl_c {
60b012b7793f Adding support for compiling direct array specification inside variable declaration
laurent
parents: 355
diff changeset
   583
  public:
60b012b7793f Adding support for compiling direct array specification inside variable declaration
laurent
parents: 355
diff changeset
   584
    typedef enum {
60b012b7793f Adding support for compiling direct array specification inside variable declaration
laurent
parents: 355
diff changeset
   585
      none_im,
60b012b7793f Adding support for compiling direct array specification inside variable declaration
laurent
parents: 355
diff changeset
   586
      arrayname_im,
661
f537c3315f83 Minor changes needed to build with pedantic flag.
Manuele Conti <conti.ma@alice.it>
parents: 624
diff changeset
   587
      arraydeclaration_im
377
60b012b7793f Adding support for compiling direct array specification inside variable declaration
laurent
parents: 355
diff changeset
   588
    } inlinearray_mode_t;
60b012b7793f Adding support for compiling direct array specification inside variable declaration
laurent
parents: 355
diff changeset
   589
60b012b7793f Adding support for compiling direct array specification inside variable declaration
laurent
parents: 355
diff changeset
   590
  private:
60b012b7793f Adding support for compiling direct array specification inside variable declaration
laurent
parents: 355
diff changeset
   591
    stage4out_c *s4o_ptr;
60b012b7793f Adding support for compiling direct array specification inside variable declaration
laurent
parents: 355
diff changeset
   592
    std::map<std::string, int> inline_array_defined;
60b012b7793f Adding support for compiling direct array specification inside variable declaration
laurent
parents: 355
diff changeset
   593
    std::string current_array_name;
60b012b7793f Adding support for compiling direct array specification inside variable declaration
laurent
parents: 355
diff changeset
   594
    inlinearray_mode_t current_mode;
60b012b7793f Adding support for compiling direct array specification inside variable declaration
laurent
parents: 355
diff changeset
   595
60b012b7793f Adding support for compiling direct array specification inside variable declaration
laurent
parents: 355
diff changeset
   596
  public:
60b012b7793f Adding support for compiling direct array specification inside variable declaration
laurent
parents: 355
diff changeset
   597
    generate_c_datatypes_c(stage4out_c *s4o_ptr, stage4out_c *s4o_incl_ptr)
60b012b7793f Adding support for compiling direct array specification inside variable declaration
laurent
parents: 355
diff changeset
   598
      : generate_c_typedecl_c(s4o_ptr, s4o_incl_ptr) {
60b012b7793f Adding support for compiling direct array specification inside variable declaration
laurent
parents: 355
diff changeset
   599
      generate_c_datatypes_c::s4o_ptr = s4o_ptr;
60b012b7793f Adding support for compiling direct array specification inside variable declaration
laurent
parents: 355
diff changeset
   600
      current_mode = none_im;
60b012b7793f Adding support for compiling direct array specification inside variable declaration
laurent
parents: 355
diff changeset
   601
    };
60b012b7793f Adding support for compiling direct array specification inside variable declaration
laurent
parents: 355
diff changeset
   602
    virtual ~generate_c_datatypes_c(void) {
60b012b7793f Adding support for compiling direct array specification inside variable declaration
laurent
parents: 355
diff changeset
   603
      while (!inline_array_defined.empty()) {
706
31553c22f318 Adding support for declaring function block instances as global and external variables
Laurent Bessard
parents: 636
diff changeset
   604
        inline_array_defined.erase(inline_array_defined.begin());
377
60b012b7793f Adding support for compiling direct array specification inside variable declaration
laurent
parents: 355
diff changeset
   605
      }
60b012b7793f Adding support for compiling direct array specification inside variable declaration
laurent
parents: 355
diff changeset
   606
    }
60b012b7793f Adding support for compiling direct array specification inside variable declaration
laurent
parents: 355
diff changeset
   607
60b012b7793f Adding support for compiling direct array specification inside variable declaration
laurent
parents: 355
diff changeset
   608
    /*************************/
60b012b7793f Adding support for compiling direct array specification inside variable declaration
laurent
parents: 355
diff changeset
   609
    /* B.1 - Common elements */
60b012b7793f Adding support for compiling direct array specification inside variable declaration
laurent
parents: 355
diff changeset
   610
    /*************************/
60b012b7793f Adding support for compiling direct array specification inside variable declaration
laurent
parents: 355
diff changeset
   611
    /*******************************************/
60b012b7793f Adding support for compiling direct array specification inside variable declaration
laurent
parents: 355
diff changeset
   612
    /* B 1.1 - Letters, digits and identifiers */
60b012b7793f Adding support for compiling direct array specification inside variable declaration
laurent
parents: 355
diff changeset
   613
    /*******************************************/
60b012b7793f Adding support for compiling direct array specification inside variable declaration
laurent
parents: 355
diff changeset
   614
    void *visit(identifier_c *symbol) {
60b012b7793f Adding support for compiling direct array specification inside variable declaration
laurent
parents: 355
diff changeset
   615
      switch (current_mode) {
60b012b7793f Adding support for compiling direct array specification inside variable declaration
laurent
parents: 355
diff changeset
   616
        case arrayname_im:
60b012b7793f Adding support for compiling direct array specification inside variable declaration
laurent
parents: 355
diff changeset
   617
          current_array_name += symbol->value;
60b012b7793f Adding support for compiling direct array specification inside variable declaration
laurent
parents: 355
diff changeset
   618
          break;
60b012b7793f Adding support for compiling direct array specification inside variable declaration
laurent
parents: 355
diff changeset
   619
        case arraydeclaration_im:
60b012b7793f Adding support for compiling direct array specification inside variable declaration
laurent
parents: 355
diff changeset
   620
          s4o_incl.print(symbol->value);
60b012b7793f Adding support for compiling direct array specification inside variable declaration
laurent
parents: 355
diff changeset
   621
          break;
60b012b7793f Adding support for compiling direct array specification inside variable declaration
laurent
parents: 355
diff changeset
   622
        default:
60b012b7793f Adding support for compiling direct array specification inside variable declaration
laurent
parents: 355
diff changeset
   623
          return generate_c_base_c::visit(symbol);
60b012b7793f Adding support for compiling direct array specification inside variable declaration
laurent
parents: 355
diff changeset
   624
          break;
60b012b7793f Adding support for compiling direct array specification inside variable declaration
laurent
parents: 355
diff changeset
   625
      }
60b012b7793f Adding support for compiling direct array specification inside variable declaration
laurent
parents: 355
diff changeset
   626
      return NULL;
60b012b7793f Adding support for compiling direct array specification inside variable declaration
laurent
parents: 355
diff changeset
   627
    }
60b012b7793f Adding support for compiling direct array specification inside variable declaration
laurent
parents: 355
diff changeset
   628
60b012b7793f Adding support for compiling direct array specification inside variable declaration
laurent
parents: 355
diff changeset
   629
    /**********************/
60b012b7793f Adding support for compiling direct array specification inside variable declaration
laurent
parents: 355
diff changeset
   630
    /* B.1.3 - Data types */
60b012b7793f Adding support for compiling direct array specification inside variable declaration
laurent
parents: 355
diff changeset
   631
    /**********************/
60b012b7793f Adding support for compiling direct array specification inside variable declaration
laurent
parents: 355
diff changeset
   632
    /***********************************/
60b012b7793f Adding support for compiling direct array specification inside variable declaration
laurent
parents: 355
diff changeset
   633
    /* B 1.3.1 - Elementary Data Types */
60b012b7793f Adding support for compiling direct array specification inside variable declaration
laurent
parents: 355
diff changeset
   634
    /***********************************/
60b012b7793f Adding support for compiling direct array specification inside variable declaration
laurent
parents: 355
diff changeset
   635
60b012b7793f Adding support for compiling direct array specification inside variable declaration
laurent
parents: 355
diff changeset
   636
    #define HANDLE_ELEMENTARY_DATA_TYPE(datatype_symbol, datatype_name)\
60b012b7793f Adding support for compiling direct array specification inside variable declaration
laurent
parents: 355
diff changeset
   637
    void *visit(datatype_symbol *symbol) {\
706
31553c22f318 Adding support for declaring function block instances as global and external variables
Laurent Bessard
parents: 636
diff changeset
   638
      switch (current_mode) {\
31553c22f318 Adding support for declaring function block instances as global and external variables
Laurent Bessard
parents: 636
diff changeset
   639
        case arrayname_im:\
31553c22f318 Adding support for declaring function block instances as global and external variables
Laurent Bessard
parents: 636
diff changeset
   640
          current_array_name += datatype_name;\
31553c22f318 Adding support for declaring function block instances as global and external variables
Laurent Bessard
parents: 636
diff changeset
   641
          break;\
377
60b012b7793f Adding support for compiling direct array specification inside variable declaration
laurent
parents: 355
diff changeset
   642
        case arraydeclaration_im:\
60b012b7793f Adding support for compiling direct array specification inside variable declaration
laurent
parents: 355
diff changeset
   643
          s4o_incl.print(datatype_name);\
60b012b7793f Adding support for compiling direct array specification inside variable declaration
laurent
parents: 355
diff changeset
   644
          break;\
706
31553c22f318 Adding support for declaring function block instances as global and external variables
Laurent Bessard
parents: 636
diff changeset
   645
        default:\
31553c22f318 Adding support for declaring function block instances as global and external variables
Laurent Bessard
parents: 636
diff changeset
   646
          return generate_c_base_c::visit(symbol);\
31553c22f318 Adding support for declaring function block instances as global and external variables
Laurent Bessard
parents: 636
diff changeset
   647
          break;\
31553c22f318 Adding support for declaring function block instances as global and external variables
Laurent Bessard
parents: 636
diff changeset
   648
      }\
31553c22f318 Adding support for declaring function block instances as global and external variables
Laurent Bessard
parents: 636
diff changeset
   649
      return NULL;\
31553c22f318 Adding support for declaring function block instances as global and external variables
Laurent Bessard
parents: 636
diff changeset
   650
    }
377
60b012b7793f Adding support for compiling direct array specification inside variable declaration
laurent
parents: 355
diff changeset
   651
60b012b7793f Adding support for compiling direct array specification inside variable declaration
laurent
parents: 355
diff changeset
   652
    HANDLE_ELEMENTARY_DATA_TYPE(time_type_name_c, "TIME")
60b012b7793f Adding support for compiling direct array specification inside variable declaration
laurent
parents: 355
diff changeset
   653
    HANDLE_ELEMENTARY_DATA_TYPE(bool_type_name_c, "BOOL")
60b012b7793f Adding support for compiling direct array specification inside variable declaration
laurent
parents: 355
diff changeset
   654
    HANDLE_ELEMENTARY_DATA_TYPE(sint_type_name_c, "SINT")
60b012b7793f Adding support for compiling direct array specification inside variable declaration
laurent
parents: 355
diff changeset
   655
    HANDLE_ELEMENTARY_DATA_TYPE(int_type_name_c, "INT")
60b012b7793f Adding support for compiling direct array specification inside variable declaration
laurent
parents: 355
diff changeset
   656
    HANDLE_ELEMENTARY_DATA_TYPE(dint_type_name_c, "DINT")
60b012b7793f Adding support for compiling direct array specification inside variable declaration
laurent
parents: 355
diff changeset
   657
    HANDLE_ELEMENTARY_DATA_TYPE(lint_type_name_c, "LINT")
60b012b7793f Adding support for compiling direct array specification inside variable declaration
laurent
parents: 355
diff changeset
   658
    HANDLE_ELEMENTARY_DATA_TYPE(usint_type_name_c, "USINT")
60b012b7793f Adding support for compiling direct array specification inside variable declaration
laurent
parents: 355
diff changeset
   659
    HANDLE_ELEMENTARY_DATA_TYPE(uint_type_name_c, "UINT")
60b012b7793f Adding support for compiling direct array specification inside variable declaration
laurent
parents: 355
diff changeset
   660
    HANDLE_ELEMENTARY_DATA_TYPE(udint_type_name_c, "UDINT")
60b012b7793f Adding support for compiling direct array specification inside variable declaration
laurent
parents: 355
diff changeset
   661
    HANDLE_ELEMENTARY_DATA_TYPE(ulint_type_name_c, "ULINT")
60b012b7793f Adding support for compiling direct array specification inside variable declaration
laurent
parents: 355
diff changeset
   662
    HANDLE_ELEMENTARY_DATA_TYPE(real_type_name_c, "REAL")
60b012b7793f Adding support for compiling direct array specification inside variable declaration
laurent
parents: 355
diff changeset
   663
    HANDLE_ELEMENTARY_DATA_TYPE(lreal_type_name_c, "LREAL")
60b012b7793f Adding support for compiling direct array specification inside variable declaration
laurent
parents: 355
diff changeset
   664
    HANDLE_ELEMENTARY_DATA_TYPE(date_type_name_c, "DATE")
60b012b7793f Adding support for compiling direct array specification inside variable declaration
laurent
parents: 355
diff changeset
   665
    HANDLE_ELEMENTARY_DATA_TYPE(tod_type_name_c, "TOD")
60b012b7793f Adding support for compiling direct array specification inside variable declaration
laurent
parents: 355
diff changeset
   666
    HANDLE_ELEMENTARY_DATA_TYPE(dt_type_name_c, "DT")
60b012b7793f Adding support for compiling direct array specification inside variable declaration
laurent
parents: 355
diff changeset
   667
    HANDLE_ELEMENTARY_DATA_TYPE(byte_type_name_c, "BYTE")
60b012b7793f Adding support for compiling direct array specification inside variable declaration
laurent
parents: 355
diff changeset
   668
    HANDLE_ELEMENTARY_DATA_TYPE(word_type_name_c, "WORD")
60b012b7793f Adding support for compiling direct array specification inside variable declaration
laurent
parents: 355
diff changeset
   669
    HANDLE_ELEMENTARY_DATA_TYPE(dword_type_name_c, "DWORD")
60b012b7793f Adding support for compiling direct array specification inside variable declaration
laurent
parents: 355
diff changeset
   670
    HANDLE_ELEMENTARY_DATA_TYPE(lword_type_name_c, "LWORD")
60b012b7793f Adding support for compiling direct array specification inside variable declaration
laurent
parents: 355
diff changeset
   671
    HANDLE_ELEMENTARY_DATA_TYPE(string_type_name_c, "STRING")
60b012b7793f Adding support for compiling direct array specification inside variable declaration
laurent
parents: 355
diff changeset
   672
    HANDLE_ELEMENTARY_DATA_TYPE(wstring_type_name_c, "WSTRING")
60b012b7793f Adding support for compiling direct array specification inside variable declaration
laurent
parents: 355
diff changeset
   673
60b012b7793f Adding support for compiling direct array specification inside variable declaration
laurent
parents: 355
diff changeset
   674
    HANDLE_ELEMENTARY_DATA_TYPE(safetime_type_name_c, "TIME")
706
31553c22f318 Adding support for declaring function block instances as global and external variables
Laurent Bessard
parents: 636
diff changeset
   675
    HANDLE_ELEMENTARY_DATA_TYPE(safebool_type_name_c, "BOOL")
31553c22f318 Adding support for declaring function block instances as global and external variables
Laurent Bessard
parents: 636
diff changeset
   676
    HANDLE_ELEMENTARY_DATA_TYPE(safesint_type_name_c, "SINT")
31553c22f318 Adding support for declaring function block instances as global and external variables
Laurent Bessard
parents: 636
diff changeset
   677
    HANDLE_ELEMENTARY_DATA_TYPE(safeint_type_name_c, "INT")
31553c22f318 Adding support for declaring function block instances as global and external variables
Laurent Bessard
parents: 636
diff changeset
   678
    HANDLE_ELEMENTARY_DATA_TYPE(safedint_type_name_c, "DINT")
31553c22f318 Adding support for declaring function block instances as global and external variables
Laurent Bessard
parents: 636
diff changeset
   679
    HANDLE_ELEMENTARY_DATA_TYPE(safelint_type_name_c, "LINT")
31553c22f318 Adding support for declaring function block instances as global and external variables
Laurent Bessard
parents: 636
diff changeset
   680
    HANDLE_ELEMENTARY_DATA_TYPE(safeusint_type_name_c, "USINT")
31553c22f318 Adding support for declaring function block instances as global and external variables
Laurent Bessard
parents: 636
diff changeset
   681
    HANDLE_ELEMENTARY_DATA_TYPE(safeuint_type_name_c, "UINT")
31553c22f318 Adding support for declaring function block instances as global and external variables
Laurent Bessard
parents: 636
diff changeset
   682
    HANDLE_ELEMENTARY_DATA_TYPE(safeudint_type_name_c, "UDINT")
31553c22f318 Adding support for declaring function block instances as global and external variables
Laurent Bessard
parents: 636
diff changeset
   683
    HANDLE_ELEMENTARY_DATA_TYPE(safeulint_type_name_c, "ULINT")
31553c22f318 Adding support for declaring function block instances as global and external variables
Laurent Bessard
parents: 636
diff changeset
   684
    HANDLE_ELEMENTARY_DATA_TYPE(safereal_type_name_c, "REAL")
31553c22f318 Adding support for declaring function block instances as global and external variables
Laurent Bessard
parents: 636
diff changeset
   685
    HANDLE_ELEMENTARY_DATA_TYPE(safelreal_type_name_c, "LREAL")
31553c22f318 Adding support for declaring function block instances as global and external variables
Laurent Bessard
parents: 636
diff changeset
   686
    HANDLE_ELEMENTARY_DATA_TYPE(safedate_type_name_c, "DATE")
31553c22f318 Adding support for declaring function block instances as global and external variables
Laurent Bessard
parents: 636
diff changeset
   687
    HANDLE_ELEMENTARY_DATA_TYPE(safetod_type_name_c, "TOD")
31553c22f318 Adding support for declaring function block instances as global and external variables
Laurent Bessard
parents: 636
diff changeset
   688
    HANDLE_ELEMENTARY_DATA_TYPE(safedt_type_name_c, "DT")
31553c22f318 Adding support for declaring function block instances as global and external variables
Laurent Bessard
parents: 636
diff changeset
   689
    HANDLE_ELEMENTARY_DATA_TYPE(safebyte_type_name_c, "BYTE")
31553c22f318 Adding support for declaring function block instances as global and external variables
Laurent Bessard
parents: 636
diff changeset
   690
    HANDLE_ELEMENTARY_DATA_TYPE(safeword_type_name_c, "WORD")
31553c22f318 Adding support for declaring function block instances as global and external variables
Laurent Bessard
parents: 636
diff changeset
   691
    HANDLE_ELEMENTARY_DATA_TYPE(safedword_type_name_c, "DWORD")
31553c22f318 Adding support for declaring function block instances as global and external variables
Laurent Bessard
parents: 636
diff changeset
   692
    HANDLE_ELEMENTARY_DATA_TYPE(safelword_type_name_c, "LWORD")
31553c22f318 Adding support for declaring function block instances as global and external variables
Laurent Bessard
parents: 636
diff changeset
   693
    HANDLE_ELEMENTARY_DATA_TYPE(safestring_type_name_c, "STRING")
31553c22f318 Adding support for declaring function block instances as global and external variables
Laurent Bessard
parents: 636
diff changeset
   694
    HANDLE_ELEMENTARY_DATA_TYPE(safewstring_type_name_c, "WSTRING")
377
60b012b7793f Adding support for compiling direct array specification inside variable declaration
laurent
parents: 355
diff changeset
   695
635
a20a70021d37 Adding support for direct array declaration in structure element declaration
Laurent Bessard
parents: 632
diff changeset
   696
    /***********************************/
a20a70021d37 Adding support for direct array declaration in structure element declaration
Laurent Bessard
parents: 632
diff changeset
   697
    /* B 1.3.2 - Generic Data Types    */
a20a70021d37 Adding support for direct array declaration in structure element declaration
Laurent Bessard
parents: 632
diff changeset
   698
    /***********************************/
a20a70021d37 Adding support for direct array declaration in structure element declaration
Laurent Bessard
parents: 632
diff changeset
   699
706
31553c22f318 Adding support for declaring function block instances as global and external variables
Laurent Bessard
parents: 636
diff changeset
   700
    /*  structure_type_name ':' structure_specification */
31553c22f318 Adding support for declaring function block instances as global and external variables
Laurent Bessard
parents: 636
diff changeset
   701
    //SYM_REF2(structure_type_declaration_c, structure_type_name, structure_specification)
31553c22f318 Adding support for declaring function block instances as global and external variables
Laurent Bessard
parents: 636
diff changeset
   702
    void *visit(structure_type_declaration_c *symbol) {
635
a20a70021d37 Adding support for direct array declaration in structure element declaration
Laurent Bessard
parents: 632
diff changeset
   703
      current_mode = arraydeclaration_im;
a20a70021d37 Adding support for direct array declaration in structure element declaration
Laurent Bessard
parents: 632
diff changeset
   704
      symbol->structure_specification->accept(*this);
a20a70021d37 Adding support for direct array declaration in structure element declaration
Laurent Bessard
parents: 632
diff changeset
   705
      current_mode = arrayname_im;
a20a70021d37 Adding support for direct array declaration in structure element declaration
Laurent Bessard
parents: 632
diff changeset
   706
      generate_c_typedecl_c::visit(symbol);
706
31553c22f318 Adding support for declaring function block instances as global and external variables
Laurent Bessard
parents: 636
diff changeset
   707
      current_mode = none_im;
31553c22f318 Adding support for declaring function block instances as global and external variables
Laurent Bessard
parents: 636
diff changeset
   708
      return NULL;
31553c22f318 Adding support for declaring function block instances as global and external variables
Laurent Bessard
parents: 636
diff changeset
   709
    }
635
a20a70021d37 Adding support for direct array declaration in structure element declaration
Laurent Bessard
parents: 632
diff changeset
   710
a20a70021d37 Adding support for direct array declaration in structure element declaration
Laurent Bessard
parents: 632
diff changeset
   711
    /* helper symbol for structure_declaration */
a20a70021d37 Adding support for direct array declaration in structure element declaration
Laurent Bessard
parents: 632
diff changeset
   712
    /* structure_declaration:  STRUCT structure_element_declaration_list END_STRUCT */
a20a70021d37 Adding support for direct array declaration in structure element declaration
Laurent Bessard
parents: 632
diff changeset
   713
    /* structure_element_declaration_list structure_element_declaration ';' */
a20a70021d37 Adding support for direct array declaration in structure element declaration
Laurent Bessard
parents: 632
diff changeset
   714
    //SYM_LIST(structure_element_declaration_list_c)
a20a70021d37 Adding support for direct array declaration in structure element declaration
Laurent Bessard
parents: 632
diff changeset
   715
    void *visit(structure_element_declaration_list_c *symbol) {
a20a70021d37 Adding support for direct array declaration in structure element declaration
Laurent Bessard
parents: 632
diff changeset
   716
      switch (current_mode) {
706
31553c22f318 Adding support for declaring function block instances as global and external variables
Laurent Bessard
parents: 636
diff changeset
   717
        case arraydeclaration_im:
31553c22f318 Adding support for declaring function block instances as global and external variables
Laurent Bessard
parents: 636
diff changeset
   718
          iterator_visitor_c::visit(symbol);
31553c22f318 Adding support for declaring function block instances as global and external variables
Laurent Bessard
parents: 636
diff changeset
   719
          break;
635
a20a70021d37 Adding support for direct array declaration in structure element declaration
Laurent Bessard
parents: 632
diff changeset
   720
        default:
706
31553c22f318 Adding support for declaring function block instances as global and external variables
Laurent Bessard
parents: 636
diff changeset
   721
          generate_c_typedecl_c::visit(symbol);
31553c22f318 Adding support for declaring function block instances as global and external variables
Laurent Bessard
parents: 636
diff changeset
   722
          break;
635
a20a70021d37 Adding support for direct array declaration in structure element declaration
Laurent Bessard
parents: 632
diff changeset
   723
      }
a20a70021d37 Adding support for direct array declaration in structure element declaration
Laurent Bessard
parents: 632
diff changeset
   724
      return NULL;
a20a70021d37 Adding support for direct array declaration in structure element declaration
Laurent Bessard
parents: 632
diff changeset
   725
    }
a20a70021d37 Adding support for direct array declaration in structure element declaration
Laurent Bessard
parents: 632
diff changeset
   726
a20a70021d37 Adding support for direct array declaration in structure element declaration
Laurent Bessard
parents: 632
diff changeset
   727
    /*  structure_element_name ':' spec_init */
a20a70021d37 Adding support for direct array declaration in structure element declaration
Laurent Bessard
parents: 632
diff changeset
   728
    //SYM_REF2(structure_element_declaration_c, structure_element_name, spec_init)
a20a70021d37 Adding support for direct array declaration in structure element declaration
Laurent Bessard
parents: 632
diff changeset
   729
    void *visit(structure_element_declaration_c *symbol) {
a20a70021d37 Adding support for direct array declaration in structure element declaration
Laurent Bessard
parents: 632
diff changeset
   730
      switch (current_mode) {
706
31553c22f318 Adding support for declaring function block instances as global and external variables
Laurent Bessard
parents: 636
diff changeset
   731
        case arraydeclaration_im:
31553c22f318 Adding support for declaring function block instances as global and external variables
Laurent Bessard
parents: 636
diff changeset
   732
          {
31553c22f318 Adding support for declaring function block instances as global and external variables
Laurent Bessard
parents: 636
diff changeset
   733
            array_spec_init_c *spec_init = dynamic_cast<array_spec_init_c*>(symbol->spec_init);
31553c22f318 Adding support for declaring function block instances as global and external variables
Laurent Bessard
parents: 636
diff changeset
   734
            if (spec_init != NULL) {
31553c22f318 Adding support for declaring function block instances as global and external variables
Laurent Bessard
parents: 636
diff changeset
   735
              symbol->spec_init->accept(*this);
31553c22f318 Adding support for declaring function block instances as global and external variables
Laurent Bessard
parents: 636
diff changeset
   736
            }
31553c22f318 Adding support for declaring function block instances as global and external variables
Laurent Bessard
parents: 636
diff changeset
   737
          }
31553c22f318 Adding support for declaring function block instances as global and external variables
Laurent Bessard
parents: 636
diff changeset
   738
          break;
31553c22f318 Adding support for declaring function block instances as global and external variables
Laurent Bessard
parents: 636
diff changeset
   739
        default:
31553c22f318 Adding support for declaring function block instances as global and external variables
Laurent Bessard
parents: 636
diff changeset
   740
          generate_c_typedecl_c::visit(symbol);
635
a20a70021d37 Adding support for direct array declaration in structure element declaration
Laurent Bessard
parents: 632
diff changeset
   741
          break;
a20a70021d37 Adding support for direct array declaration in structure element declaration
Laurent Bessard
parents: 632
diff changeset
   742
      }
a20a70021d37 Adding support for direct array declaration in structure element declaration
Laurent Bessard
parents: 632
diff changeset
   743
      return NULL;
a20a70021d37 Adding support for direct array declaration in structure element declaration
Laurent Bessard
parents: 632
diff changeset
   744
    }
a20a70021d37 Adding support for direct array declaration in structure element declaration
Laurent Bessard
parents: 632
diff changeset
   745
377
60b012b7793f Adding support for compiling direct array specification inside variable declaration
laurent
parents: 355
diff changeset
   746
    /******************************************/
60b012b7793f Adding support for compiling direct array specification inside variable declaration
laurent
parents: 355
diff changeset
   747
    /* B 1.4.3 - Declaration & Initialization */
60b012b7793f Adding support for compiling direct array specification inside variable declaration
laurent
parents: 355
diff changeset
   748
    /******************************************/
60b012b7793f Adding support for compiling direct array specification inside variable declaration
laurent
parents: 355
diff changeset
   749
60b012b7793f Adding support for compiling direct array specification inside variable declaration
laurent
parents: 355
diff changeset
   750
    void *visit(input_declarations_c *symbol) {
60b012b7793f Adding support for compiling direct array specification inside variable declaration
laurent
parents: 355
diff changeset
   751
      symbol->input_declaration_list->accept(*this);
60b012b7793f Adding support for compiling direct array specification inside variable declaration
laurent
parents: 355
diff changeset
   752
      return NULL;
60b012b7793f Adding support for compiling direct array specification inside variable declaration
laurent
parents: 355
diff changeset
   753
    }
60b012b7793f Adding support for compiling direct array specification inside variable declaration
laurent
parents: 355
diff changeset
   754
60b012b7793f Adding support for compiling direct array specification inside variable declaration
laurent
parents: 355
diff changeset
   755
    void *visit(edge_declaration_c *symbol) {
60b012b7793f Adding support for compiling direct array specification inside variable declaration
laurent
parents: 355
diff changeset
   756
      return NULL;
60b012b7793f Adding support for compiling direct array specification inside variable declaration
laurent
parents: 355
diff changeset
   757
    }
60b012b7793f Adding support for compiling direct array specification inside variable declaration
laurent
parents: 355
diff changeset
   758
60b012b7793f Adding support for compiling direct array specification inside variable declaration
laurent
parents: 355
diff changeset
   759
    void *visit(en_param_declaration_c *symbol) {
60b012b7793f Adding support for compiling direct array specification inside variable declaration
laurent
parents: 355
diff changeset
   760
      return NULL;
60b012b7793f Adding support for compiling direct array specification inside variable declaration
laurent
parents: 355
diff changeset
   761
    }
60b012b7793f Adding support for compiling direct array specification inside variable declaration
laurent
parents: 355
diff changeset
   762
60b012b7793f Adding support for compiling direct array specification inside variable declaration
laurent
parents: 355
diff changeset
   763
    void *visit(eno_param_declaration_c *symbol) {
60b012b7793f Adding support for compiling direct array specification inside variable declaration
laurent
parents: 355
diff changeset
   764
      return NULL;
60b012b7793f Adding support for compiling direct array specification inside variable declaration
laurent
parents: 355
diff changeset
   765
    }
60b012b7793f Adding support for compiling direct array specification inside variable declaration
laurent
parents: 355
diff changeset
   766
60b012b7793f Adding support for compiling direct array specification inside variable declaration
laurent
parents: 355
diff changeset
   767
    void *visit(var1_init_decl_c *symbol) {
60b012b7793f Adding support for compiling direct array specification inside variable declaration
laurent
parents: 355
diff changeset
   768
      return NULL;
60b012b7793f Adding support for compiling direct array specification inside variable declaration
laurent
parents: 355
diff changeset
   769
    }
60b012b7793f Adding support for compiling direct array specification inside variable declaration
laurent
parents: 355
diff changeset
   770
60b012b7793f Adding support for compiling direct array specification inside variable declaration
laurent
parents: 355
diff changeset
   771
    /*  var1_list ':' array_spec_init */
60b012b7793f Adding support for compiling direct array specification inside variable declaration
laurent
parents: 355
diff changeset
   772
    // SYM_REF2(array_var_init_decl_c, var1_list, array_spec_init)
60b012b7793f Adding support for compiling direct array specification inside variable declaration
laurent
parents: 355
diff changeset
   773
    void *visit(array_var_init_decl_c *symbol) {
635
a20a70021d37 Adding support for direct array declaration in structure element declaration
Laurent Bessard
parents: 632
diff changeset
   774
      current_mode = arraydeclaration_im;
377
60b012b7793f Adding support for compiling direct array specification inside variable declaration
laurent
parents: 355
diff changeset
   775
      symbol->array_spec_init->accept(*this);
60b012b7793f Adding support for compiling direct array specification inside variable declaration
laurent
parents: 355
diff changeset
   776
      current_mode = none_im;
60b012b7793f Adding support for compiling direct array specification inside variable declaration
laurent
parents: 355
diff changeset
   777
      return NULL;
60b012b7793f Adding support for compiling direct array specification inside variable declaration
laurent
parents: 355
diff changeset
   778
    }
60b012b7793f Adding support for compiling direct array specification inside variable declaration
laurent
parents: 355
diff changeset
   779
60b012b7793f Adding support for compiling direct array specification inside variable declaration
laurent
parents: 355
diff changeset
   780
    /* array_specification [ASSIGN array_initialization] */
60b012b7793f Adding support for compiling direct array specification inside variable declaration
laurent
parents: 355
diff changeset
   781
    /* array_initialization may be NULL ! */
60b012b7793f Adding support for compiling direct array specification inside variable declaration
laurent
parents: 355
diff changeset
   782
    void *visit(array_spec_init_c *symbol) {
60b012b7793f Adding support for compiling direct array specification inside variable declaration
laurent
parents: 355
diff changeset
   783
      switch (current_mode) {
706
31553c22f318 Adding support for declaring function block instances as global and external variables
Laurent Bessard
parents: 636
diff changeset
   784
        case arraydeclaration_im:
31553c22f318 Adding support for declaring function block instances as global and external variables
Laurent Bessard
parents: 636
diff changeset
   785
        case arrayname_im:
31553c22f318 Adding support for declaring function block instances as global and external variables
Laurent Bessard
parents: 636
diff changeset
   786
          {
31553c22f318 Adding support for declaring function block instances as global and external variables
Laurent Bessard
parents: 636
diff changeset
   787
            array_specification_c *specification = dynamic_cast<array_specification_c*>(symbol->array_specification);
377
60b012b7793f Adding support for compiling direct array specification inside variable declaration
laurent
parents: 355
diff changeset
   788
            if (specification != NULL)
60b012b7793f Adding support for compiling direct array specification inside variable declaration
laurent
parents: 355
diff changeset
   789
              symbol->array_specification->accept(*this);
60b012b7793f Adding support for compiling direct array specification inside variable declaration
laurent
parents: 355
diff changeset
   790
          }
60b012b7793f Adding support for compiling direct array specification inside variable declaration
laurent
parents: 355
diff changeset
   791
          break;
706
31553c22f318 Adding support for declaring function block instances as global and external variables
Laurent Bessard
parents: 636
diff changeset
   792
        default:
31553c22f318 Adding support for declaring function block instances as global and external variables
Laurent Bessard
parents: 636
diff changeset
   793
          return generate_c_typedecl_c::visit(symbol);
377
60b012b7793f Adding support for compiling direct array specification inside variable declaration
laurent
parents: 355
diff changeset
   794
          break;
60b012b7793f Adding support for compiling direct array specification inside variable declaration
laurent
parents: 355
diff changeset
   795
      }
60b012b7793f Adding support for compiling direct array specification inside variable declaration
laurent
parents: 355
diff changeset
   796
      return NULL;
60b012b7793f Adding support for compiling direct array specification inside variable declaration
laurent
parents: 355
diff changeset
   797
    }
60b012b7793f Adding support for compiling direct array specification inside variable declaration
laurent
parents: 355
diff changeset
   798
60b012b7793f Adding support for compiling direct array specification inside variable declaration
laurent
parents: 355
diff changeset
   799
    /* ARRAY '[' array_subrange_list ']' OF non_generic_type_name */
60b012b7793f Adding support for compiling direct array specification inside variable declaration
laurent
parents: 355
diff changeset
   800
    void *visit(array_specification_c *symbol) {
60b012b7793f Adding support for compiling direct array specification inside variable declaration
laurent
parents: 355
diff changeset
   801
      switch (current_mode) {
635
a20a70021d37 Adding support for direct array declaration in structure element declaration
Laurent Bessard
parents: 632
diff changeset
   802
        case arraydeclaration_im:
377
60b012b7793f Adding support for compiling direct array specification inside variable declaration
laurent
parents: 355
diff changeset
   803
          {
706
31553c22f318 Adding support for declaring function block instances as global and external variables
Laurent Bessard
parents: 636
diff changeset
   804
            current_mode = arrayname_im;
377
60b012b7793f Adding support for compiling direct array specification inside variable declaration
laurent
parents: 355
diff changeset
   805
            std::map<std::string,int>::iterator definition;
60b012b7793f Adding support for compiling direct array specification inside variable declaration
laurent
parents: 355
diff changeset
   806
            current_array_name = "__";
60b012b7793f Adding support for compiling direct array specification inside variable declaration
laurent
parents: 355
diff changeset
   807
            symbol->non_generic_type_name->accept(*this);
60b012b7793f Adding support for compiling direct array specification inside variable declaration
laurent
parents: 355
diff changeset
   808
            symbol->array_subrange_list->accept(*this);
635
a20a70021d37 Adding support for direct array declaration in structure element declaration
Laurent Bessard
parents: 632
diff changeset
   809
            current_mode = arraydeclaration_im;
377
60b012b7793f Adding support for compiling direct array specification inside variable declaration
laurent
parents: 355
diff changeset
   810
60b012b7793f Adding support for compiling direct array specification inside variable declaration
laurent
parents: 355
diff changeset
   811
            definition = inline_array_defined.find(current_array_name);
60b012b7793f Adding support for compiling direct array specification inside variable declaration
laurent
parents: 355
diff changeset
   812
            if (definition == inline_array_defined.end()) {
60b012b7793f Adding support for compiling direct array specification inside variable declaration
laurent
parents: 355
diff changeset
   813
              s4o_incl.print("__DECLARE_ARRAY_TYPE(");
60b012b7793f Adding support for compiling direct array specification inside variable declaration
laurent
parents: 355
diff changeset
   814
              s4o_incl.print(current_array_name);
60b012b7793f Adding support for compiling direct array specification inside variable declaration
laurent
parents: 355
diff changeset
   815
              s4o_incl.print(",");
60b012b7793f Adding support for compiling direct array specification inside variable declaration
laurent
parents: 355
diff changeset
   816
              symbol->non_generic_type_name->accept(*this);
60b012b7793f Adding support for compiling direct array specification inside variable declaration
laurent
parents: 355
diff changeset
   817
              s4o_incl.print(",");
60b012b7793f Adding support for compiling direct array specification inside variable declaration
laurent
parents: 355
diff changeset
   818
              symbol->array_subrange_list->accept(*this);
60b012b7793f Adding support for compiling direct array specification inside variable declaration
laurent
parents: 355
diff changeset
   819
              s4o_incl.print(")\n\n");
60b012b7793f Adding support for compiling direct array specification inside variable declaration
laurent
parents: 355
diff changeset
   820
60b012b7793f Adding support for compiling direct array specification inside variable declaration
laurent
parents: 355
diff changeset
   821
              inline_array_defined[current_array_name] = 0;
60b012b7793f Adding support for compiling direct array specification inside variable declaration
laurent
parents: 355
diff changeset
   822
            }
60b012b7793f Adding support for compiling direct array specification inside variable declaration
laurent
parents: 355
diff changeset
   823
          }
60b012b7793f Adding support for compiling direct array specification inside variable declaration
laurent
parents: 355
diff changeset
   824
          break;
635
a20a70021d37 Adding support for direct array declaration in structure element declaration
Laurent Bessard
parents: 632
diff changeset
   825
        case arrayname_im:
a20a70021d37 Adding support for direct array declaration in structure element declaration
Laurent Bessard
parents: 632
diff changeset
   826
          {
706
31553c22f318 Adding support for declaring function block instances as global and external variables
Laurent Bessard
parents: 636
diff changeset
   827
              std::map<std::string,int>::iterator definition;
31553c22f318 Adding support for declaring function block instances as global and external variables
Laurent Bessard
parents: 636
diff changeset
   828
              current_array_name = "__";
31553c22f318 Adding support for declaring function block instances as global and external variables
Laurent Bessard
parents: 636
diff changeset
   829
              symbol->non_generic_type_name->accept(*this);
31553c22f318 Adding support for declaring function block instances as global and external variables
Laurent Bessard
parents: 636
diff changeset
   830
              symbol->array_subrange_list->accept(*this);
31553c22f318 Adding support for declaring function block instances as global and external variables
Laurent Bessard
parents: 636
diff changeset
   831
              s4o_incl.print(current_array_name);
635
a20a70021d37 Adding support for direct array declaration in structure element declaration
Laurent Bessard
parents: 632
diff changeset
   832
          }
a20a70021d37 Adding support for direct array declaration in structure element declaration
Laurent Bessard
parents: 632
diff changeset
   833
          break;
377
60b012b7793f Adding support for compiling direct array specification inside variable declaration
laurent
parents: 355
diff changeset
   834
        default:
60b012b7793f Adding support for compiling direct array specification inside variable declaration
laurent
parents: 355
diff changeset
   835
          return generate_c_typedecl_c::visit(symbol);
60b012b7793f Adding support for compiling direct array specification inside variable declaration
laurent
parents: 355
diff changeset
   836
          break;
60b012b7793f Adding support for compiling direct array specification inside variable declaration
laurent
parents: 355
diff changeset
   837
      }
60b012b7793f Adding support for compiling direct array specification inside variable declaration
laurent
parents: 355
diff changeset
   838
      return NULL;
60b012b7793f Adding support for compiling direct array specification inside variable declaration
laurent
parents: 355
diff changeset
   839
    }
60b012b7793f Adding support for compiling direct array specification inside variable declaration
laurent
parents: 355
diff changeset
   840
60b012b7793f Adding support for compiling direct array specification inside variable declaration
laurent
parents: 355
diff changeset
   841
    /*  signed_integer DOTDOT signed_integer */
60b012b7793f Adding support for compiling direct array specification inside variable declaration
laurent
parents: 355
diff changeset
   842
    //SYM_REF2(subrange_c, lower_limit, upper_limit)
60b012b7793f Adding support for compiling direct array specification inside variable declaration
laurent
parents: 355
diff changeset
   843
    void *visit(subrange_c *symbol) {
60b012b7793f Adding support for compiling direct array specification inside variable declaration
laurent
parents: 355
diff changeset
   844
      switch (current_mode) {
60b012b7793f Adding support for compiling direct array specification inside variable declaration
laurent
parents: 355
diff changeset
   845
        case arrayname_im:
60b012b7793f Adding support for compiling direct array specification inside variable declaration
laurent
parents: 355
diff changeset
   846
          current_array_name += "_";
60b012b7793f Adding support for compiling direct array specification inside variable declaration
laurent
parents: 355
diff changeset
   847
          {
60b012b7793f Adding support for compiling direct array specification inside variable declaration
laurent
parents: 355
diff changeset
   848
            std::stringstream ss;
592
99a284cec1f2 Add 'dimension' parameter to subrange_c, fill it correctly, and use it.
Mario de Sousa <msousa@fe.up.pt>
parents: 587
diff changeset
   849
            ss << symbol->dimension;
377
60b012b7793f Adding support for compiling direct array specification inside variable declaration
laurent
parents: 355
diff changeset
   850
            current_array_name += ss.str();
60b012b7793f Adding support for compiling direct array specification inside variable declaration
laurent
parents: 355
diff changeset
   851
          }
60b012b7793f Adding support for compiling direct array specification inside variable declaration
laurent
parents: 355
diff changeset
   852
          break;
60b012b7793f Adding support for compiling direct array specification inside variable declaration
laurent
parents: 355
diff changeset
   853
        case arraydeclaration_im:
60b012b7793f Adding support for compiling direct array specification inside variable declaration
laurent
parents: 355
diff changeset
   854
          s4o_incl.print("[");
594
c8092e909886 Clean up code (remove parsing of integers in stage 4).
Mario de Sousa <msousa@fe.up.pt>
parents: 592
diff changeset
   855
          s4o_incl.print(symbol->dimension);
377
60b012b7793f Adding support for compiling direct array specification inside variable declaration
laurent
parents: 355
diff changeset
   856
          s4o_incl.print("]");
60b012b7793f Adding support for compiling direct array specification inside variable declaration
laurent
parents: 355
diff changeset
   857
        default:
60b012b7793f Adding support for compiling direct array specification inside variable declaration
laurent
parents: 355
diff changeset
   858
          generate_c_typedecl_c::visit(symbol);
60b012b7793f Adding support for compiling direct array specification inside variable declaration
laurent
parents: 355
diff changeset
   859
          break;
60b012b7793f Adding support for compiling direct array specification inside variable declaration
laurent
parents: 355
diff changeset
   860
      }
60b012b7793f Adding support for compiling direct array specification inside variable declaration
laurent
parents: 355
diff changeset
   861
      return NULL;
60b012b7793f Adding support for compiling direct array specification inside variable declaration
laurent
parents: 355
diff changeset
   862
    }
60b012b7793f Adding support for compiling direct array specification inside variable declaration
laurent
parents: 355
diff changeset
   863
60b012b7793f Adding support for compiling direct array specification inside variable declaration
laurent
parents: 355
diff changeset
   864
    /*  var1_list ':' initialized_structure */
60b012b7793f Adding support for compiling direct array specification inside variable declaration
laurent
parents: 355
diff changeset
   865
    // SYM_REF2(structured_var_init_decl_c, var1_list, initialized_structure)
60b012b7793f Adding support for compiling direct array specification inside variable declaration
laurent
parents: 355
diff changeset
   866
    void *visit(structured_var_init_decl_c *symbol) {
60b012b7793f Adding support for compiling direct array specification inside variable declaration
laurent
parents: 355
diff changeset
   867
      return NULL;
60b012b7793f Adding support for compiling direct array specification inside variable declaration
laurent
parents: 355
diff changeset
   868
    }
60b012b7793f Adding support for compiling direct array specification inside variable declaration
laurent
parents: 355
diff changeset
   869
60b012b7793f Adding support for compiling direct array specification inside variable declaration
laurent
parents: 355
diff changeset
   870
    /* fb_name_list ':' function_block_type_name ASSIGN structure_initialization */
60b012b7793f Adding support for compiling direct array specification inside variable declaration
laurent
parents: 355
diff changeset
   871
    /* structure_initialization -> may be NULL ! */
60b012b7793f Adding support for compiling direct array specification inside variable declaration
laurent
parents: 355
diff changeset
   872
    void *visit(fb_name_decl_c *symbol) {
60b012b7793f Adding support for compiling direct array specification inside variable declaration
laurent
parents: 355
diff changeset
   873
      return NULL;
60b012b7793f Adding support for compiling direct array specification inside variable declaration
laurent
parents: 355
diff changeset
   874
    }
60b012b7793f Adding support for compiling direct array specification inside variable declaration
laurent
parents: 355
diff changeset
   875
60b012b7793f Adding support for compiling direct array specification inside variable declaration
laurent
parents: 355
diff changeset
   876
    /* VAR_OUTPUT [RETAIN | NON_RETAIN] var_init_decl_list END_VAR */
60b012b7793f Adding support for compiling direct array specification inside variable declaration
laurent
parents: 355
diff changeset
   877
    /* option -> may be NULL ! */
60b012b7793f Adding support for compiling direct array specification inside variable declaration
laurent
parents: 355
diff changeset
   878
    void *visit(output_declarations_c *symbol) {
60b012b7793f Adding support for compiling direct array specification inside variable declaration
laurent
parents: 355
diff changeset
   879
      symbol->var_init_decl_list->accept(*this);
60b012b7793f Adding support for compiling direct array specification inside variable declaration
laurent
parents: 355
diff changeset
   880
      return NULL;
60b012b7793f Adding support for compiling direct array specification inside variable declaration
laurent
parents: 355
diff changeset
   881
    }
60b012b7793f Adding support for compiling direct array specification inside variable declaration
laurent
parents: 355
diff changeset
   882
60b012b7793f Adding support for compiling direct array specification inside variable declaration
laurent
parents: 355
diff changeset
   883
    /*  VAR_IN_OUT var_declaration_list END_VAR */
60b012b7793f Adding support for compiling direct array specification inside variable declaration
laurent
parents: 355
diff changeset
   884
    void *visit(input_output_declarations_c *symbol) {
60b012b7793f Adding support for compiling direct array specification inside variable declaration
laurent
parents: 355
diff changeset
   885
      symbol->var_declaration_list->accept(*this);
60b012b7793f Adding support for compiling direct array specification inside variable declaration
laurent
parents: 355
diff changeset
   886
      return NULL;
60b012b7793f Adding support for compiling direct array specification inside variable declaration
laurent
parents: 355
diff changeset
   887
    }
60b012b7793f Adding support for compiling direct array specification inside variable declaration
laurent
parents: 355
diff changeset
   888
60b012b7793f Adding support for compiling direct array specification inside variable declaration
laurent
parents: 355
diff changeset
   889
    /*  var1_list ':' array_specification */
60b012b7793f Adding support for compiling direct array specification inside variable declaration
laurent
parents: 355
diff changeset
   890
    //SYM_REF2(array_var_declaration_c, var1_list, array_specification)
60b012b7793f Adding support for compiling direct array specification inside variable declaration
laurent
parents: 355
diff changeset
   891
    void *visit(array_var_declaration_c *symbol) {
60b012b7793f Adding support for compiling direct array specification inside variable declaration
laurent
parents: 355
diff changeset
   892
      array_specification_c *specification = dynamic_cast<array_specification_c*>(symbol->array_specification);
706
31553c22f318 Adding support for declaring function block instances as global and external variables
Laurent Bessard
parents: 636
diff changeset
   893
      if (specification != NULL) {
635
a20a70021d37 Adding support for direct array declaration in structure element declaration
Laurent Bessard
parents: 632
diff changeset
   894
        current_mode = arraydeclaration_im;
377
60b012b7793f Adding support for compiling direct array specification inside variable declaration
laurent
parents: 355
diff changeset
   895
        symbol->array_specification->accept(*this);
60b012b7793f Adding support for compiling direct array specification inside variable declaration
laurent
parents: 355
diff changeset
   896
        current_mode = none_im;
60b012b7793f Adding support for compiling direct array specification inside variable declaration
laurent
parents: 355
diff changeset
   897
      }
60b012b7793f Adding support for compiling direct array specification inside variable declaration
laurent
parents: 355
diff changeset
   898
      return NULL;
60b012b7793f Adding support for compiling direct array specification inside variable declaration
laurent
parents: 355
diff changeset
   899
    }
60b012b7793f Adding support for compiling direct array specification inside variable declaration
laurent
parents: 355
diff changeset
   900
624
c2546c6e0cfa Moving function to correct location (formating only).
Mario de Sousa <msousa@fe.up.pt>
parents: 623
diff changeset
   901
    /*  var1_list ':' structure_type_name */
c2546c6e0cfa Moving function to correct location (formating only).
Mario de Sousa <msousa@fe.up.pt>
parents: 623
diff changeset
   902
    //SYM_REF2(structured_var_declaration_c, var1_list, structure_type_name)
c2546c6e0cfa Moving function to correct location (formating only).
Mario de Sousa <msousa@fe.up.pt>
parents: 623
diff changeset
   903
    void *visit(structured_var_declaration_c *symbol) {
c2546c6e0cfa Moving function to correct location (formating only).
Mario de Sousa <msousa@fe.up.pt>
parents: 623
diff changeset
   904
      return NULL;
c2546c6e0cfa Moving function to correct location (formating only).
Mario de Sousa <msousa@fe.up.pt>
parents: 623
diff changeset
   905
    }
c2546c6e0cfa Moving function to correct location (formating only).
Mario de Sousa <msousa@fe.up.pt>
parents: 623
diff changeset
   906
377
60b012b7793f Adding support for compiling direct array specification inside variable declaration
laurent
parents: 355
diff changeset
   907
    /* VAR [CONSTANT] var_init_decl_list END_VAR */
60b012b7793f Adding support for compiling direct array specification inside variable declaration
laurent
parents: 355
diff changeset
   908
    /* option -> may be NULL ! */
60b012b7793f Adding support for compiling direct array specification inside variable declaration
laurent
parents: 355
diff changeset
   909
    /* helper symbol for input_declarations */
60b012b7793f Adding support for compiling direct array specification inside variable declaration
laurent
parents: 355
diff changeset
   910
    void *visit(var_declarations_c *symbol) {
60b012b7793f Adding support for compiling direct array specification inside variable declaration
laurent
parents: 355
diff changeset
   911
      symbol->var_init_decl_list->accept(*this);
60b012b7793f Adding support for compiling direct array specification inside variable declaration
laurent
parents: 355
diff changeset
   912
      return NULL;
60b012b7793f Adding support for compiling direct array specification inside variable declaration
laurent
parents: 355
diff changeset
   913
    }
60b012b7793f Adding support for compiling direct array specification inside variable declaration
laurent
parents: 355
diff changeset
   914
60b012b7793f Adding support for compiling direct array specification inside variable declaration
laurent
parents: 355
diff changeset
   915
    /*  VAR RETAIN var_init_decl_list END_VAR */
60b012b7793f Adding support for compiling direct array specification inside variable declaration
laurent
parents: 355
diff changeset
   916
    void *visit(retentive_var_declarations_c *symbol) {
60b012b7793f Adding support for compiling direct array specification inside variable declaration
laurent
parents: 355
diff changeset
   917
      symbol->var_init_decl_list->accept(*this);
60b012b7793f Adding support for compiling direct array specification inside variable declaration
laurent
parents: 355
diff changeset
   918
      return NULL;
60b012b7793f Adding support for compiling direct array specification inside variable declaration
laurent
parents: 355
diff changeset
   919
    }
60b012b7793f Adding support for compiling direct array specification inside variable declaration
laurent
parents: 355
diff changeset
   920
60b012b7793f Adding support for compiling direct array specification inside variable declaration
laurent
parents: 355
diff changeset
   921
    /*  VAR [CONSTANT|RETAIN|NON_RETAIN] located_var_decl_list END_VAR */
60b012b7793f Adding support for compiling direct array specification inside variable declaration
laurent
parents: 355
diff changeset
   922
    /* option -> may be NULL ! */
60b012b7793f Adding support for compiling direct array specification inside variable declaration
laurent
parents: 355
diff changeset
   923
    //SYM_REF2(located_var_declarations_c, option, located_var_decl_list)
60b012b7793f Adding support for compiling direct array specification inside variable declaration
laurent
parents: 355
diff changeset
   924
    void *visit(located_var_declarations_c *symbol) {
60b012b7793f Adding support for compiling direct array specification inside variable declaration
laurent
parents: 355
diff changeset
   925
      symbol->located_var_decl_list->accept(*this);
60b012b7793f Adding support for compiling direct array specification inside variable declaration
laurent
parents: 355
diff changeset
   926
      return NULL;
60b012b7793f Adding support for compiling direct array specification inside variable declaration
laurent
parents: 355
diff changeset
   927
    }
60b012b7793f Adding support for compiling direct array specification inside variable declaration
laurent
parents: 355
diff changeset
   928
60b012b7793f Adding support for compiling direct array specification inside variable declaration
laurent
parents: 355
diff changeset
   929
    /*  [variable_name] location ':' located_var_spec_init */
60b012b7793f Adding support for compiling direct array specification inside variable declaration
laurent
parents: 355
diff changeset
   930
    /* variable_name -> may be NULL ! */
60b012b7793f Adding support for compiling direct array specification inside variable declaration
laurent
parents: 355
diff changeset
   931
    //SYM_REF4(located_var_decl_c, variable_name, location, located_var_spec_init, unused)
60b012b7793f Adding support for compiling direct array specification inside variable declaration
laurent
parents: 355
diff changeset
   932
    void *visit(located_var_decl_c *symbol) {
381
2fd934b91ffd Fix bug in code generation of directly declared array variables that generate wrong code when using located variables in a program POU
laurent
parents: 377
diff changeset
   933
      array_spec_init_c* array_spec_init = dynamic_cast<array_spec_init_c*>(symbol->located_var_spec_init);
2fd934b91ffd Fix bug in code generation of directly declared array variables that generate wrong code when using located variables in a program POU
laurent
parents: 377
diff changeset
   934
      if (array_spec_init != NULL) {
706
31553c22f318 Adding support for declaring function block instances as global and external variables
Laurent Bessard
parents: 636
diff changeset
   935
        current_mode = arraydeclaration_im;
31553c22f318 Adding support for declaring function block instances as global and external variables
Laurent Bessard
parents: 636
diff changeset
   936
        symbol->located_var_spec_init->accept(*this);
31553c22f318 Adding support for declaring function block instances as global and external variables
Laurent Bessard
parents: 636
diff changeset
   937
        current_mode = none_im;
381
2fd934b91ffd Fix bug in code generation of directly declared array variables that generate wrong code when using located variables in a program POU
laurent
parents: 377
diff changeset
   938
      }
377
60b012b7793f Adding support for compiling direct array specification inside variable declaration
laurent
parents: 355
diff changeset
   939
      return NULL;
60b012b7793f Adding support for compiling direct array specification inside variable declaration
laurent
parents: 355
diff changeset
   940
    }
60b012b7793f Adding support for compiling direct array specification inside variable declaration
laurent
parents: 355
diff changeset
   941
60b012b7793f Adding support for compiling direct array specification inside variable declaration
laurent
parents: 355
diff changeset
   942
    /*| VAR_EXTERNAL [CONSTANT] external_declaration_list END_VAR */
60b012b7793f Adding support for compiling direct array specification inside variable declaration
laurent
parents: 355
diff changeset
   943
    /* option -> may be NULL ! */
60b012b7793f Adding support for compiling direct array specification inside variable declaration
laurent
parents: 355
diff changeset
   944
    //SYM_REF2(external_var_declarations_c, option, external_declaration_list)
60b012b7793f Adding support for compiling direct array specification inside variable declaration
laurent
parents: 355
diff changeset
   945
    void *visit(external_var_declarations_c *symbol) {
60b012b7793f Adding support for compiling direct array specification inside variable declaration
laurent
parents: 355
diff changeset
   946
      symbol->external_declaration_list->accept(*this);
60b012b7793f Adding support for compiling direct array specification inside variable declaration
laurent
parents: 355
diff changeset
   947
      return NULL;
60b012b7793f Adding support for compiling direct array specification inside variable declaration
laurent
parents: 355
diff changeset
   948
    }
60b012b7793f Adding support for compiling direct array specification inside variable declaration
laurent
parents: 355
diff changeset
   949
60b012b7793f Adding support for compiling direct array specification inside variable declaration
laurent
parents: 355
diff changeset
   950
    /*  global_var_name ':' (simple_specification|subrange_specification|enumerated_specification|array_specification|prev_declared_structure_type_name|function_block_type_name */
60b012b7793f Adding support for compiling direct array specification inside variable declaration
laurent
parents: 355
diff changeset
   951
    //SYM_REF2(external_declaration_c, global_var_name, specification)
60b012b7793f Adding support for compiling direct array specification inside variable declaration
laurent
parents: 355
diff changeset
   952
    void *visit(external_declaration_c *symbol) {
60b012b7793f Adding support for compiling direct array specification inside variable declaration
laurent
parents: 355
diff changeset
   953
      array_specification_c* array_specification = dynamic_cast<array_specification_c*>(symbol->specification);
60b012b7793f Adding support for compiling direct array specification inside variable declaration
laurent
parents: 355
diff changeset
   954
      if (array_specification != NULL) {
635
a20a70021d37 Adding support for direct array declaration in structure element declaration
Laurent Bessard
parents: 632
diff changeset
   955
        current_mode = arraydeclaration_im;
377
60b012b7793f Adding support for compiling direct array specification inside variable declaration
laurent
parents: 355
diff changeset
   956
        symbol->specification->accept(*this);
60b012b7793f Adding support for compiling direct array specification inside variable declaration
laurent
parents: 355
diff changeset
   957
        current_mode = none_im;
60b012b7793f Adding support for compiling direct array specification inside variable declaration
laurent
parents: 355
diff changeset
   958
      }
60b012b7793f Adding support for compiling direct array specification inside variable declaration
laurent
parents: 355
diff changeset
   959
      return NULL;
60b012b7793f Adding support for compiling direct array specification inside variable declaration
laurent
parents: 355
diff changeset
   960
    }
60b012b7793f Adding support for compiling direct array specification inside variable declaration
laurent
parents: 355
diff changeset
   961
60b012b7793f Adding support for compiling direct array specification inside variable declaration
laurent
parents: 355
diff changeset
   962
    /*| VAR_GLOBAL [CONSTANT|RETAIN] global_var_decl_list END_VAR */
60b012b7793f Adding support for compiling direct array specification inside variable declaration
laurent
parents: 355
diff changeset
   963
    /* option -> may be NULL ! */
60b012b7793f Adding support for compiling direct array specification inside variable declaration
laurent
parents: 355
diff changeset
   964
    // SYM_REF2(global_var_declarations_c, option, global_var_decl_list)
60b012b7793f Adding support for compiling direct array specification inside variable declaration
laurent
parents: 355
diff changeset
   965
    void *visit(global_var_declarations_c *symbol) {
60b012b7793f Adding support for compiling direct array specification inside variable declaration
laurent
parents: 355
diff changeset
   966
      symbol->global_var_decl_list->accept(*this);
60b012b7793f Adding support for compiling direct array specification inside variable declaration
laurent
parents: 355
diff changeset
   967
      return NULL;
60b012b7793f Adding support for compiling direct array specification inside variable declaration
laurent
parents: 355
diff changeset
   968
    }
60b012b7793f Adding support for compiling direct array specification inside variable declaration
laurent
parents: 355
diff changeset
   969
60b012b7793f Adding support for compiling direct array specification inside variable declaration
laurent
parents: 355
diff changeset
   970
    /*| global_var_spec ':' [located_var_spec_init|function_block_type_name] */
60b012b7793f Adding support for compiling direct array specification inside variable declaration
laurent
parents: 355
diff changeset
   971
    /* type_specification ->may be NULL ! */
60b012b7793f Adding support for compiling direct array specification inside variable declaration
laurent
parents: 355
diff changeset
   972
    // SYM_REF2(global_var_decl_c, global_var_spec, type_specification)
60b012b7793f Adding support for compiling direct array specification inside variable declaration
laurent
parents: 355
diff changeset
   973
    void *visit(global_var_decl_c *symbol) {
60b012b7793f Adding support for compiling direct array specification inside variable declaration
laurent
parents: 355
diff changeset
   974
      array_spec_init_c* array_spec_init = dynamic_cast<array_spec_init_c*>(symbol->type_specification);
60b012b7793f Adding support for compiling direct array specification inside variable declaration
laurent
parents: 355
diff changeset
   975
      if (array_spec_init != NULL) {
635
a20a70021d37 Adding support for direct array declaration in structure element declaration
Laurent Bessard
parents: 632
diff changeset
   976
        current_mode = arraydeclaration_im;
377
60b012b7793f Adding support for compiling direct array specification inside variable declaration
laurent
parents: 355
diff changeset
   977
        symbol->type_specification->accept(*this);
60b012b7793f Adding support for compiling direct array specification inside variable declaration
laurent
parents: 355
diff changeset
   978
        current_mode = none_im;
60b012b7793f Adding support for compiling direct array specification inside variable declaration
laurent
parents: 355
diff changeset
   979
      }
60b012b7793f Adding support for compiling direct array specification inside variable declaration
laurent
parents: 355
diff changeset
   980
      return NULL;
60b012b7793f Adding support for compiling direct array specification inside variable declaration
laurent
parents: 355
diff changeset
   981
    }
60b012b7793f Adding support for compiling direct array specification inside variable declaration
laurent
parents: 355
diff changeset
   982
60b012b7793f Adding support for compiling direct array specification inside variable declaration
laurent
parents: 355
diff changeset
   983
    void *visit(function_var_decls_c *symbol) {
60b012b7793f Adding support for compiling direct array specification inside variable declaration
laurent
parents: 355
diff changeset
   984
      symbol->decl_list->accept(*this);
60b012b7793f Adding support for compiling direct array specification inside variable declaration
laurent
parents: 355
diff changeset
   985
      return NULL;
60b012b7793f Adding support for compiling direct array specification inside variable declaration
laurent
parents: 355
diff changeset
   986
    }
60b012b7793f Adding support for compiling direct array specification inside variable declaration
laurent
parents: 355
diff changeset
   987
60b012b7793f Adding support for compiling direct array specification inside variable declaration
laurent
parents: 355
diff changeset
   988
    /*****************************/
60b012b7793f Adding support for compiling direct array specification inside variable declaration
laurent
parents: 355
diff changeset
   989
    /* B 1.5.2 - Function Blocks */
60b012b7793f Adding support for compiling direct array specification inside variable declaration
laurent
parents: 355
diff changeset
   990
    /*****************************/
60b012b7793f Adding support for compiling direct array specification inside variable declaration
laurent
parents: 355
diff changeset
   991
60b012b7793f Adding support for compiling direct array specification inside variable declaration
laurent
parents: 355
diff changeset
   992
    /*  VAR_TEMP temp_var_decl_list END_VAR */
60b012b7793f Adding support for compiling direct array specification inside variable declaration
laurent
parents: 355
diff changeset
   993
    void *visit(temp_var_decls_c *symbol) {
60b012b7793f Adding support for compiling direct array specification inside variable declaration
laurent
parents: 355
diff changeset
   994
      symbol->var_decl_list->accept(*this);
60b012b7793f Adding support for compiling direct array specification inside variable declaration
laurent
parents: 355
diff changeset
   995
      return NULL;
60b012b7793f Adding support for compiling direct array specification inside variable declaration
laurent
parents: 355
diff changeset
   996
    }
60b012b7793f Adding support for compiling direct array specification inside variable declaration
laurent
parents: 355
diff changeset
   997
60b012b7793f Adding support for compiling direct array specification inside variable declaration
laurent
parents: 355
diff changeset
   998
    /*  VAR NON_RETAIN var_init_decl_list END_VAR */
60b012b7793f Adding support for compiling direct array specification inside variable declaration
laurent
parents: 355
diff changeset
   999
    void *visit(non_retentive_var_decls_c *symbol) {
60b012b7793f Adding support for compiling direct array specification inside variable declaration
laurent
parents: 355
diff changeset
  1000
      symbol->var_decl_list->accept(*this);
60b012b7793f Adding support for compiling direct array specification inside variable declaration
laurent
parents: 355
diff changeset
  1001
      return NULL;
60b012b7793f Adding support for compiling direct array specification inside variable declaration
laurent
parents: 355
diff changeset
  1002
    }
60b012b7793f Adding support for compiling direct array specification inside variable declaration
laurent
parents: 355
diff changeset
  1003
60b012b7793f Adding support for compiling direct array specification inside variable declaration
laurent
parents: 355
diff changeset
  1004
};
60b012b7793f Adding support for compiling direct array specification inside variable declaration
laurent
parents: 355
diff changeset
  1005
60b012b7793f Adding support for compiling direct array specification inside variable declaration
laurent
parents: 355
diff changeset
  1006
60b012b7793f Adding support for compiling direct array specification inside variable declaration
laurent
parents: 355
diff changeset
  1007
60b012b7793f Adding support for compiling direct array specification inside variable declaration
laurent
parents: 355
diff changeset
  1008
60b012b7793f Adding support for compiling direct array specification inside variable declaration
laurent
parents: 355
diff changeset
  1009
/***********************************************************************/
60b012b7793f Adding support for compiling direct array specification inside variable declaration
laurent
parents: 355
diff changeset
  1010
/***********************************************************************/
60b012b7793f Adding support for compiling direct array specification inside variable declaration
laurent
parents: 355
diff changeset
  1011
/***********************************************************************/
60b012b7793f Adding support for compiling direct array specification inside variable declaration
laurent
parents: 355
diff changeset
  1012
/***********************************************************************/
60b012b7793f Adding support for compiling direct array specification inside variable declaration
laurent
parents: 355
diff changeset
  1013
/***********************************************************************/
60b012b7793f Adding support for compiling direct array specification inside variable declaration
laurent
parents: 355
diff changeset
  1014
60b012b7793f Adding support for compiling direct array specification inside variable declaration
laurent
parents: 355
diff changeset
  1015
70
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  1016
class generate_c_pous_c: public generate_c_typedecl_c {
267
0a1204bcc9af starting to add proper header file with declaration of standard functions
Mario de Sousa <msousa@fe.up.pt>
parents: 262
diff changeset
  1017
  private:
0a1204bcc9af starting to add proper header file with declaration of standard functions
Mario de Sousa <msousa@fe.up.pt>
parents: 262
diff changeset
  1018
    stage4out_c *s4o_ptr;
0a1204bcc9af starting to add proper header file with declaration of standard functions
Mario de Sousa <msousa@fe.up.pt>
parents: 262
diff changeset
  1019
    
70
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  1020
  public:
121
9e8ce092e169 Adding support for POU struct definition in POUS.h
lbessard
parents: 120
diff changeset
  1021
    generate_c_pous_c(stage4out_c *s4o_ptr, stage4out_c *s4o_incl_ptr)
267
0a1204bcc9af starting to add proper header file with declaration of standard functions
Mario de Sousa <msousa@fe.up.pt>
parents: 262
diff changeset
  1022
      : generate_c_typedecl_c(s4o_ptr, s4o_incl_ptr) {
0a1204bcc9af starting to add proper header file with declaration of standard functions
Mario de Sousa <msousa@fe.up.pt>
parents: 262
diff changeset
  1023
      generate_c_pous_c::s4o_ptr = s4o_ptr;
0a1204bcc9af starting to add proper header file with declaration of standard functions
Mario de Sousa <msousa@fe.up.pt>
parents: 262
diff changeset
  1024
    };
70
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  1025
    virtual ~generate_c_pous_c(void) {}
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  1026
283
214d3fdee596 fixing C code generation of return_statement_c and exit_statement_c
Mario de Sousa <msousa@fe.up.pt>
parents: 279
diff changeset
  1027
  private:
214d3fdee596 fixing C code generation of return_statement_c and exit_statement_c
Mario de Sousa <msousa@fe.up.pt>
parents: 279
diff changeset
  1028
    void print_end_of_block_label(void) {
214d3fdee596 fixing C code generation of return_statement_c and exit_statement_c
Mario de Sousa <msousa@fe.up.pt>
parents: 279
diff changeset
  1029
      /* Print and __end label for return statements!
214d3fdee596 fixing C code generation of return_statement_c and exit_statement_c
Mario de Sousa <msousa@fe.up.pt>
parents: 279
diff changeset
  1030
       * If label is not used by at least one goto, compiler will generate a warning.
214d3fdee596 fixing C code generation of return_statement_c and exit_statement_c
Mario de Sousa <msousa@fe.up.pt>
parents: 279
diff changeset
  1031
       * To work around this we introduce the useless goto.
214d3fdee596 fixing C code generation of return_statement_c and exit_statement_c
Mario de Sousa <msousa@fe.up.pt>
parents: 279
diff changeset
  1032
       */
214d3fdee596 fixing C code generation of return_statement_c and exit_statement_c
Mario de Sousa <msousa@fe.up.pt>
parents: 279
diff changeset
  1033
      s4o.print("\n");
634
736b36a83548 Added double curly braces for pragma (kept single curly braces for compatibility). Added macro def and undef surrounding pragma to simplify user code. Moved useless comment from generated code back to code generator.
Edouard Tisserant
parents: 632
diff changeset
  1034
      /* to humour the compiler, we insert a goto */
283
214d3fdee596 fixing C code generation of return_statement_c and exit_statement_c
Mario de Sousa <msousa@fe.up.pt>
parents: 279
diff changeset
  1035
      s4o.print(s4o.indent_spaces);
214d3fdee596 fixing C code generation of return_statement_c and exit_statement_c
Mario de Sousa <msousa@fe.up.pt>
parents: 279
diff changeset
  1036
      s4o.print("goto ");
214d3fdee596 fixing C code generation of return_statement_c and exit_statement_c
Mario de Sousa <msousa@fe.up.pt>
parents: 279
diff changeset
  1037
      s4o.print(END_LABEL);
214d3fdee596 fixing C code generation of return_statement_c and exit_statement_c
Mario de Sousa <msousa@fe.up.pt>
parents: 279
diff changeset
  1038
      s4o.print(";\n");
214d3fdee596 fixing C code generation of return_statement_c and exit_statement_c
Mario de Sousa <msousa@fe.up.pt>
parents: 279
diff changeset
  1039
      s4o.indent_left();
214d3fdee596 fixing C code generation of return_statement_c and exit_statement_c
Mario de Sousa <msousa@fe.up.pt>
parents: 279
diff changeset
  1040
214d3fdee596 fixing C code generation of return_statement_c and exit_statement_c
Mario de Sousa <msousa@fe.up.pt>
parents: 279
diff changeset
  1041
      /* write the label marking the end of the code block */
214d3fdee596 fixing C code generation of return_statement_c and exit_statement_c
Mario de Sousa <msousa@fe.up.pt>
parents: 279
diff changeset
  1042
      /* please see the comment before the RET_operator_c visitor for details... */
214d3fdee596 fixing C code generation of return_statement_c and exit_statement_c
Mario de Sousa <msousa@fe.up.pt>
parents: 279
diff changeset
  1043
      /* also needed for return_statement_c */
214d3fdee596 fixing C code generation of return_statement_c and exit_statement_c
Mario de Sousa <msousa@fe.up.pt>
parents: 279
diff changeset
  1044
      s4o.print("\n");
214d3fdee596 fixing C code generation of return_statement_c and exit_statement_c
Mario de Sousa <msousa@fe.up.pt>
parents: 279
diff changeset
  1045
      s4o.print(s4o.indent_spaces);
214d3fdee596 fixing C code generation of return_statement_c and exit_statement_c
Mario de Sousa <msousa@fe.up.pt>
parents: 279
diff changeset
  1046
      s4o.print(END_LABEL);
214d3fdee596 fixing C code generation of return_statement_c and exit_statement_c
Mario de Sousa <msousa@fe.up.pt>
parents: 279
diff changeset
  1047
      s4o.print(":\n");
214d3fdee596 fixing C code generation of return_statement_c and exit_statement_c
Mario de Sousa <msousa@fe.up.pt>
parents: 279
diff changeset
  1048
      s4o.indent_right();
214d3fdee596 fixing C code generation of return_statement_c and exit_statement_c
Mario de Sousa <msousa@fe.up.pt>
parents: 279
diff changeset
  1049
    }
214d3fdee596 fixing C code generation of return_statement_c and exit_statement_c
Mario de Sousa <msousa@fe.up.pt>
parents: 279
diff changeset
  1050
  
214d3fdee596 fixing C code generation of return_statement_c and exit_statement_c
Mario de Sousa <msousa@fe.up.pt>
parents: 279
diff changeset
  1051
70
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  1052
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  1053
  public:
267
0a1204bcc9af starting to add proper header file with declaration of standard functions
Mario de Sousa <msousa@fe.up.pt>
parents: 262
diff changeset
  1054
/********************/
0a1204bcc9af starting to add proper header file with declaration of standard functions
Mario de Sousa <msousa@fe.up.pt>
parents: 262
diff changeset
  1055
/* 2.1.6 - Pragmas  */
0a1204bcc9af starting to add proper header file with declaration of standard functions
Mario de Sousa <msousa@fe.up.pt>
parents: 262
diff changeset
  1056
/********************/
0a1204bcc9af starting to add proper header file with declaration of standard functions
Mario de Sousa <msousa@fe.up.pt>
parents: 262
diff changeset
  1057
void *visit(enable_code_generation_pragma_c * symbol)   {s4o_ptr->enable_output();  return NULL;}
0a1204bcc9af starting to add proper header file with declaration of standard functions
Mario de Sousa <msousa@fe.up.pt>
parents: 262
diff changeset
  1058
void *visit(disable_code_generation_pragma_c * symbol)  {s4o_ptr->disable_output(); return NULL;} 
70
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  1059
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  1060
/*************************/
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  1061
/* B.1 - Common elements */
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  1062
/*************************/
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  1063
/*******************************************/
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  1064
/* B 1.1 - Letters, digits and identifiers */
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  1065
/*******************************************/
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  1066
  /* done in base class(es) */
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  1067
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  1068
/*********************/
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  1069
/* B 1.2 - Constants */
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  1070
/*********************/
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  1071
  /* originally empty... */
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  1072
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  1073
/******************************/
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  1074
/* B 1.2.1 - Numeric Literals */
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  1075
/******************************/
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  1076
  /* done in base class(es) */
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  1077
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  1078
/*******************************/
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  1079
/* B.1.2.2   Character Strings */
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  1080
/*******************************/
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  1081
  /* done in base class(es) */
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  1082
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  1083
/***************************/
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  1084
/* B 1.2.3 - Time Literals */
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  1085
/***************************/
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  1086
/************************/
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  1087
/* B 1.2.3.1 - Duration */
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  1088
/************************/
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  1089
  /* done in base class(es) */
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  1090
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  1091
/************************************/
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  1092
/* B 1.2.3.2 - Time of day and Date */
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  1093
/************************************/
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  1094
  /* done in base class(es) */
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  1095
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  1096
/**********************/
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  1097
/* B.1.3 - Data types */
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  1098
/**********************/
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  1099
/***********************************/
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  1100
/* B 1.3.1 - Elementary Data Types */
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  1101
/***********************************/
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  1102
  /* done in base class(es) */
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  1103
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  1104
/********************************/
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  1105
/* B.1.3.2 - Generic data types */
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  1106
/********************************/
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  1107
  /* originally empty... */
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  1108
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  1109
/********************************/
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  1110
/* B 1.3.3 - Derived data types */
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  1111
/********************************/
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  1112
  /* done in base class(es) */
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  1113
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  1114
/*********************/
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  1115
/* B 1.4 - Variables */
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  1116
/*********************/
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  1117
  /* done in base class(es) */
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  1118
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  1119
/********************************************/
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  1120
/* B.1.4.1   Directly Represented Variables */
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  1121
/********************************************/
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  1122
  /* done in base class(es) */
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  1123
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  1124
/*************************************/
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  1125
/* B.1.4.2   Multi-element Variables */
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  1126
/*************************************/
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  1127
  /* done in base class(es) */
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  1128
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  1129
/******************************************/
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  1130
/* B 1.4.3 - Declaration & Initialisation */
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  1131
/******************************************/
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  1132
  /* done in base class(es) */
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  1133
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  1134
/**************************************/
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  1135
/* B.1.5 - Program organization units */
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  1136
/**************************************/
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  1137
/***********************/
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  1138
/* B 1.5.1 - Functions */
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  1139
/***********************/
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  1140
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  1141
public:
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  1142
/*   FUNCTION derived_function_name ':' elementary_type_name io_OR_function_var_declarations_list function_body END_FUNCTION */
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  1143
/* | FUNCTION derived_function_name ':' derived_type_name io_OR_function_var_declarations_list function_body END_FUNCTION */
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  1144
void *visit(function_declaration_c *symbol) {
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  1145
  generate_c_vardecl_c *vardecl;
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  1146
  TRACE("function_declaration_c");
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  1147
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  1148
  /* (A) Function declaration... */
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  1149
  /* (A.1) Function return type */
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  1150
  s4o.print("// FUNCTION\n");
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  1151
  symbol->type_name->accept(*this); /* return type */
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  1152
  s4o.print(" ");
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  1153
  /* (A.2) Function name */
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  1154
  symbol->derived_function_name->accept(*this);
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  1155
  s4o.print("(");
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  1156
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  1157
  /* (A.3) Function parameters */
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  1158
  s4o.indent_right();
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  1159
  vardecl = new generate_c_vardecl_c(&s4o,
202
da1a8186f86f Initial (very rough) version of semantic checker (stage3)
Catarina Boucinha <ccb@fe.up.pt>
parents: 189
diff changeset
  1160
                                     generate_c_vardecl_c::finterface_vf,
da1a8186f86f Initial (very rough) version of semantic checker (stage3)
Catarina Boucinha <ccb@fe.up.pt>
parents: 189
diff changeset
  1161
                                     generate_c_vardecl_c::input_vt    |
da1a8186f86f Initial (very rough) version of semantic checker (stage3)
Catarina Boucinha <ccb@fe.up.pt>
parents: 189
diff changeset
  1162
                                     generate_c_vardecl_c::output_vt   |
da1a8186f86f Initial (very rough) version of semantic checker (stage3)
Catarina Boucinha <ccb@fe.up.pt>
parents: 189
diff changeset
  1163
                                     generate_c_vardecl_c::inoutput_vt |
da1a8186f86f Initial (very rough) version of semantic checker (stage3)
Catarina Boucinha <ccb@fe.up.pt>
parents: 189
diff changeset
  1164
                                     generate_c_vardecl_c::en_vt       |
da1a8186f86f Initial (very rough) version of semantic checker (stage3)
Catarina Boucinha <ccb@fe.up.pt>
parents: 189
diff changeset
  1165
                                     generate_c_vardecl_c::eno_vt);
146
eef5e62048c7 Adding support for EN/ENO params in function and function blocks (standard function not supported yet)
lbessard
parents: 145
diff changeset
  1166
  vardecl->print(symbol->var_declarations_list);
eef5e62048c7 Adding support for EN/ENO params in function and function blocks (standard function not supported yet)
lbessard
parents: 145
diff changeset
  1167
  delete vardecl;
eef5e62048c7 Adding support for EN/ENO params in function and function blocks (standard function not supported yet)
lbessard
parents: 145
diff changeset
  1168
  
eef5e62048c7 Adding support for EN/ENO params in function and function blocks (standard function not supported yet)
lbessard
parents: 145
diff changeset
  1169
  s4o.indent_left();
eef5e62048c7 Adding support for EN/ENO params in function and function blocks (standard function not supported yet)
lbessard
parents: 145
diff changeset
  1170
  
eef5e62048c7 Adding support for EN/ENO params in function and function blocks (standard function not supported yet)
lbessard
parents: 145
diff changeset
  1171
  s4o.print(")\n" + s4o.indent_spaces + "{\n");
eef5e62048c7 Adding support for EN/ENO params in function and function blocks (standard function not supported yet)
lbessard
parents: 145
diff changeset
  1172
eef5e62048c7 Adding support for EN/ENO params in function and function blocks (standard function not supported yet)
lbessard
parents: 145
diff changeset
  1173
  /* (B) Function local variable declaration */
eef5e62048c7 Adding support for EN/ENO params in function and function blocks (standard function not supported yet)
lbessard
parents: 145
diff changeset
  1174
  /* (B.1) Variables declared in ST source code */
eef5e62048c7 Adding support for EN/ENO params in function and function blocks (standard function not supported yet)
lbessard
parents: 145
diff changeset
  1175
  s4o.indent_right();
eef5e62048c7 Adding support for EN/ENO params in function and function blocks (standard function not supported yet)
lbessard
parents: 145
diff changeset
  1176
  
202
da1a8186f86f Initial (very rough) version of semantic checker (stage3)
Catarina Boucinha <ccb@fe.up.pt>
parents: 189
diff changeset
  1177
  vardecl = new generate_c_vardecl_c(&s4o,
da1a8186f86f Initial (very rough) version of semantic checker (stage3)
Catarina Boucinha <ccb@fe.up.pt>
parents: 189
diff changeset
  1178
                generate_c_vardecl_c::localinit_vf,
da1a8186f86f Initial (very rough) version of semantic checker (stage3)
Catarina Boucinha <ccb@fe.up.pt>
parents: 189
diff changeset
  1179
                generate_c_vardecl_c::output_vt   |
146
eef5e62048c7 Adding support for EN/ENO params in function and function blocks (standard function not supported yet)
lbessard
parents: 145
diff changeset
  1180
                generate_c_vardecl_c::inoutput_vt |
202
da1a8186f86f Initial (very rough) version of semantic checker (stage3)
Catarina Boucinha <ccb@fe.up.pt>
parents: 189
diff changeset
  1181
                generate_c_vardecl_c::private_vt  |
da1a8186f86f Initial (very rough) version of semantic checker (stage3)
Catarina Boucinha <ccb@fe.up.pt>
parents: 189
diff changeset
  1182
                generate_c_vardecl_c::eno_vt);
70
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  1183
  vardecl->print(symbol->var_declarations_list);
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  1184
  delete vardecl;
146
eef5e62048c7 Adding support for EN/ENO params in function and function blocks (standard function not supported yet)
lbessard
parents: 145
diff changeset
  1185
eef5e62048c7 Adding support for EN/ENO params in function and function blocks (standard function not supported yet)
lbessard
parents: 145
diff changeset
  1186
  /* (B.2) Temporary variable for function's return value */
70
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  1187
  /* It will have the same name as the function itself! */
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  1188
  s4o.print(s4o.indent_spaces);
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  1189
  symbol->type_name->accept(*this); /* return type */
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  1190
  s4o.print(" ");
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  1191
  symbol->derived_function_name->accept(*this);
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  1192
  s4o.print(" = ");
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  1193
  {
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  1194
    /* get the default value of this variable's type */
762
a3d917474ae4 Small code cleanup.
Mario de Sousa <msousa@fe.up.pt>
parents: 667
diff changeset
  1195
    symbol_c *default_value = type_initial_value_c::get(symbol->type_name);
70
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  1196
    if (default_value == NULL) ERROR;
318
746a357b8747 Fix bug when generating initial value for function return type when it is a complex type
laurent
parents: 283
diff changeset
  1197
    initialization_analyzer_c initialization_analyzer(default_value);
746a357b8747 Fix bug when generating initial value for function return type when it is a complex type
laurent
parents: 283
diff changeset
  1198
    switch (initialization_analyzer.get_initialization_type()) {
746a357b8747 Fix bug when generating initial value for function return type when it is a complex type
laurent
parents: 283
diff changeset
  1199
      case initialization_analyzer_c::struct_it:
746a357b8747 Fix bug when generating initial value for function return type when it is a complex type
laurent
parents: 283
diff changeset
  1200
        {
746a357b8747 Fix bug when generating initial value for function return type when it is a complex type
laurent
parents: 283
diff changeset
  1201
          generate_c_structure_initialization_c *structure_initialization = new generate_c_structure_initialization_c(&s4o);
746a357b8747 Fix bug when generating initial value for function return type when it is a complex type
laurent
parents: 283
diff changeset
  1202
          structure_initialization->init_structure_default(symbol->type_name);
746a357b8747 Fix bug when generating initial value for function return type when it is a complex type
laurent
parents: 283
diff changeset
  1203
          structure_initialization->init_structure_values(default_value);
746a357b8747 Fix bug when generating initial value for function return type when it is a complex type
laurent
parents: 283
diff changeset
  1204
          delete structure_initialization;
746a357b8747 Fix bug when generating initial value for function return type when it is a complex type
laurent
parents: 283
diff changeset
  1205
        }
377
60b012b7793f Adding support for compiling direct array specification inside variable declaration
laurent
parents: 355
diff changeset
  1206
        break;
318
746a357b8747 Fix bug when generating initial value for function return type when it is a complex type
laurent
parents: 283
diff changeset
  1207
      case initialization_analyzer_c::array_it:
746a357b8747 Fix bug when generating initial value for function return type when it is a complex type
laurent
parents: 283
diff changeset
  1208
        {
377
60b012b7793f Adding support for compiling direct array specification inside variable declaration
laurent
parents: 355
diff changeset
  1209
          generate_c_array_initialization_c *array_initialization = new generate_c_array_initialization_c(&s4o);
60b012b7793f Adding support for compiling direct array specification inside variable declaration
laurent
parents: 355
diff changeset
  1210
          array_initialization->init_array_size(symbol->type_name);
60b012b7793f Adding support for compiling direct array specification inside variable declaration
laurent
parents: 355
diff changeset
  1211
          array_initialization->init_array_values(default_value);
60b012b7793f Adding support for compiling direct array specification inside variable declaration
laurent
parents: 355
diff changeset
  1212
          delete array_initialization;
318
746a357b8747 Fix bug when generating initial value for function return type when it is a complex type
laurent
parents: 283
diff changeset
  1213
        }
377
60b012b7793f Adding support for compiling direct array specification inside variable declaration
laurent
parents: 355
diff changeset
  1214
        break;
318
746a357b8747 Fix bug when generating initial value for function return type when it is a complex type
laurent
parents: 283
diff changeset
  1215
      default:
746a357b8747 Fix bug when generating initial value for function return type when it is a complex type
laurent
parents: 283
diff changeset
  1216
        default_value->accept(*this);
746a357b8747 Fix bug when generating initial value for function return type when it is a complex type
laurent
parents: 283
diff changeset
  1217
        break;
746a357b8747 Fix bug when generating initial value for function return type when it is a complex type
laurent
parents: 283
diff changeset
  1218
    }
70
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  1219
  }
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  1220
  s4o.print(";\n\n");
146
eef5e62048c7 Adding support for EN/ENO params in function and function blocks (standard function not supported yet)
lbessard
parents: 145
diff changeset
  1221
  
eef5e62048c7 Adding support for EN/ENO params in function and function blocks (standard function not supported yet)
lbessard
parents: 145
diff changeset
  1222
  s4o.print(s4o.indent_spaces + "// Control execution\n");
eef5e62048c7 Adding support for EN/ENO params in function and function blocks (standard function not supported yet)
lbessard
parents: 145
diff changeset
  1223
  s4o.print(s4o.indent_spaces + "if (!EN) {\n");
eef5e62048c7 Adding support for EN/ENO params in function and function blocks (standard function not supported yet)
lbessard
parents: 145
diff changeset
  1224
  s4o.indent_right();
202
da1a8186f86f Initial (very rough) version of semantic checker (stage3)
Catarina Boucinha <ccb@fe.up.pt>
parents: 189
diff changeset
  1225
  s4o.print(s4o.indent_spaces + "if (__ENO != NULL) {\n");
146
eef5e62048c7 Adding support for EN/ENO params in function and function blocks (standard function not supported yet)
lbessard
parents: 145
diff changeset
  1226
  s4o.indent_right();
202
da1a8186f86f Initial (very rough) version of semantic checker (stage3)
Catarina Boucinha <ccb@fe.up.pt>
parents: 189
diff changeset
  1227
  s4o.print(s4o.indent_spaces + "*__ENO = __BOOL_LITERAL(FALSE);\n");
146
eef5e62048c7 Adding support for EN/ENO params in function and function blocks (standard function not supported yet)
lbessard
parents: 145
diff changeset
  1228
  s4o.indent_left();
eef5e62048c7 Adding support for EN/ENO params in function and function blocks (standard function not supported yet)
lbessard
parents: 145
diff changeset
  1229
  s4o.print(s4o.indent_spaces + "}\n");
eef5e62048c7 Adding support for EN/ENO params in function and function blocks (standard function not supported yet)
lbessard
parents: 145
diff changeset
  1230
  s4o.print(s4o.indent_spaces + "return ");
eef5e62048c7 Adding support for EN/ENO params in function and function blocks (standard function not supported yet)
lbessard
parents: 145
diff changeset
  1231
  symbol->derived_function_name->accept(*this);
eef5e62048c7 Adding support for EN/ENO params in function and function blocks (standard function not supported yet)
lbessard
parents: 145
diff changeset
  1232
  s4o.print(";\n");
eef5e62048c7 Adding support for EN/ENO params in function and function blocks (standard function not supported yet)
lbessard
parents: 145
diff changeset
  1233
  s4o.indent_left();
eef5e62048c7 Adding support for EN/ENO params in function and function blocks (standard function not supported yet)
lbessard
parents: 145
diff changeset
  1234
  s4o.print(s4o.indent_spaces + "}\n");
202
da1a8186f86f Initial (very rough) version of semantic checker (stage3)
Catarina Boucinha <ccb@fe.up.pt>
parents: 189
diff changeset
  1235
70
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  1236
  /* (C) Function body */
217
f5dfadf5de54 Adding support for declare, init, get and set macros
laurent
parents: 210
diff changeset
  1237
  generate_c_SFC_IL_ST_c generate_c_code(&s4o, symbol->derived_function_name, symbol);
70
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  1238
  symbol->function_body->accept(generate_c_code);
145
72ae82e65dbc Adding support for ouput variables in functions
lbessard
parents: 139
diff changeset
  1239
  
283
214d3fdee596 fixing C code generation of return_statement_c and exit_statement_c
Mario de Sousa <msousa@fe.up.pt>
parents: 279
diff changeset
  1240
  print_end_of_block_label();
214d3fdee596 fixing C code generation of return_statement_c and exit_statement_c
Mario de Sousa <msousa@fe.up.pt>
parents: 279
diff changeset
  1241
  
145
72ae82e65dbc Adding support for ouput variables in functions
lbessard
parents: 139
diff changeset
  1242
  vardecl = new generate_c_vardecl_c(&s4o,
72ae82e65dbc Adding support for ouput variables in functions
lbessard
parents: 139
diff changeset
  1243
                generate_c_vardecl_c::foutputassign_vf,
202
da1a8186f86f Initial (very rough) version of semantic checker (stage3)
Catarina Boucinha <ccb@fe.up.pt>
parents: 189
diff changeset
  1244
                generate_c_vardecl_c::output_vt   |
da1a8186f86f Initial (very rough) version of semantic checker (stage3)
Catarina Boucinha <ccb@fe.up.pt>
parents: 189
diff changeset
  1245
                generate_c_vardecl_c::inoutput_vt |
da1a8186f86f Initial (very rough) version of semantic checker (stage3)
Catarina Boucinha <ccb@fe.up.pt>
parents: 189
diff changeset
  1246
                generate_c_vardecl_c::eno_vt);
145
72ae82e65dbc Adding support for ouput variables in functions
lbessard
parents: 139
diff changeset
  1247
  vardecl->print(symbol->var_declarations_list);
72ae82e65dbc Adding support for ouput variables in functions
lbessard
parents: 139
diff changeset
  1248
  delete vardecl;
72ae82e65dbc Adding support for ouput variables in functions
lbessard
parents: 139
diff changeset
  1249
  
70
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  1250
  s4o.print(s4o.indent_spaces + "return ");
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  1251
  symbol->derived_function_name->accept(*this);
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  1252
  s4o.print(";\n");
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  1253
  s4o.indent_left();
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  1254
  s4o.print(s4o.indent_spaces + "}\n\n\n");
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  1255
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  1256
  return NULL;
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  1257
}
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  1258
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  1259
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  1260
/* The remaining var_declarations_list_c, function_var_decls_c
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  1261
 * and var2_init_decl_list_c are handled in the generate_c_vardecl_c class
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  1262
 */
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  1263
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  1264
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  1265
/*****************************/
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  1266
/* B 1.5.2 - Function Blocks */
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  1267
/*****************************/
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  1268
public:
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  1269
/*  FUNCTION_BLOCK derived_function_block_name io_OR_other_var_declarations function_block_body END_FUNCTION_BLOCK */
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  1270
//SYM_REF4(function_block_declaration_c, fblock_name, var_declarations, fblock_body, unused)
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  1271
void *visit(function_block_declaration_c *symbol) {
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  1272
  generate_c_vardecl_c *vardecl;
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  1273
  generate_c_sfcdecl_c *sfcdecl;
121
9e8ce092e169 Adding support for POU struct definition in POUS.h
lbessard
parents: 120
diff changeset
  1274
  generate_c_typedecl_c *typedecl;
234
e4d31cd0e6d8 Using function_call_iterator in generate_c_inlinefcall instead of creating a new visitor
laurent
parents: 231
diff changeset
  1275
  generate_c_inlinefcall_c *inlinedecl;
70
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  1276
  TRACE("function_block_declaration_c");
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  1277
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  1278
  /* (A) Function Block data structure declaration... */
121
9e8ce092e169 Adding support for POU struct definition in POUS.h
lbessard
parents: 120
diff changeset
  1279
  typedecl = new generate_c_typedecl_c(&s4o_incl);
70
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  1280
  /* (A.1) Data structure declaration */
121
9e8ce092e169 Adding support for POU struct definition in POUS.h
lbessard
parents: 120
diff changeset
  1281
  s4o_incl.print("// FUNCTION_BLOCK ");
9e8ce092e169 Adding support for POU struct definition in POUS.h
lbessard
parents: 120
diff changeset
  1282
  symbol->fblock_name->accept(*typedecl);
9e8ce092e169 Adding support for POU struct definition in POUS.h
lbessard
parents: 120
diff changeset
  1283
  s4o_incl.print("\n// Data part\n");
9e8ce092e169 Adding support for POU struct definition in POUS.h
lbessard
parents: 120
diff changeset
  1284
  s4o_incl.print("typedef struct {\n");
9e8ce092e169 Adding support for POU struct definition in POUS.h
lbessard
parents: 120
diff changeset
  1285
  s4o_incl.indent_right();
70
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  1286
  /* (A.2) Public variables: i.e. the function parameters... */
121
9e8ce092e169 Adding support for POU struct definition in POUS.h
lbessard
parents: 120
diff changeset
  1287
  s4o_incl.print(s4o_incl.indent_spaces + "// FB Interface - IN, OUT, IN_OUT variables\n");
9e8ce092e169 Adding support for POU struct definition in POUS.h
lbessard
parents: 120
diff changeset
  1288
  vardecl = new generate_c_vardecl_c(&s4o_incl,
202
da1a8186f86f Initial (very rough) version of semantic checker (stage3)
Catarina Boucinha <ccb@fe.up.pt>
parents: 189
diff changeset
  1289
                                     generate_c_vardecl_c::local_vf,
da1a8186f86f Initial (very rough) version of semantic checker (stage3)
Catarina Boucinha <ccb@fe.up.pt>
parents: 189
diff changeset
  1290
                                     generate_c_vardecl_c::input_vt    |
da1a8186f86f Initial (very rough) version of semantic checker (stage3)
Catarina Boucinha <ccb@fe.up.pt>
parents: 189
diff changeset
  1291
                                     generate_c_vardecl_c::output_vt   |
da1a8186f86f Initial (very rough) version of semantic checker (stage3)
Catarina Boucinha <ccb@fe.up.pt>
parents: 189
diff changeset
  1292
                                     generate_c_vardecl_c::inoutput_vt |
da1a8186f86f Initial (very rough) version of semantic checker (stage3)
Catarina Boucinha <ccb@fe.up.pt>
parents: 189
diff changeset
  1293
                                     generate_c_vardecl_c::en_vt       |
da1a8186f86f Initial (very rough) version of semantic checker (stage3)
Catarina Boucinha <ccb@fe.up.pt>
parents: 189
diff changeset
  1294
                                     generate_c_vardecl_c::eno_vt);
70
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  1295
  vardecl->print(symbol->var_declarations);
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  1296
  delete vardecl;
121
9e8ce092e169 Adding support for POU struct definition in POUS.h
lbessard
parents: 120
diff changeset
  1297
  s4o_incl.print("\n");
70
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  1298
  /* (A.3) Private internal variables */
121
9e8ce092e169 Adding support for POU struct definition in POUS.h
lbessard
parents: 120
diff changeset
  1299
  s4o_incl.print(s4o_incl.indent_spaces + "// FB private variables - TEMP, private and located variables\n");
9e8ce092e169 Adding support for POU struct definition in POUS.h
lbessard
parents: 120
diff changeset
  1300
  vardecl = new generate_c_vardecl_c(&s4o_incl,
202
da1a8186f86f Initial (very rough) version of semantic checker (stage3)
Catarina Boucinha <ccb@fe.up.pt>
parents: 189
diff changeset
  1301
                                     generate_c_vardecl_c::local_vf,
da1a8186f86f Initial (very rough) version of semantic checker (stage3)
Catarina Boucinha <ccb@fe.up.pt>
parents: 189
diff changeset
  1302
                                     generate_c_vardecl_c::temp_vt    |
da1a8186f86f Initial (very rough) version of semantic checker (stage3)
Catarina Boucinha <ccb@fe.up.pt>
parents: 189
diff changeset
  1303
                                     generate_c_vardecl_c::private_vt |
da1a8186f86f Initial (very rough) version of semantic checker (stage3)
Catarina Boucinha <ccb@fe.up.pt>
parents: 189
diff changeset
  1304
                                     generate_c_vardecl_c::located_vt |
da1a8186f86f Initial (very rough) version of semantic checker (stage3)
Catarina Boucinha <ccb@fe.up.pt>
parents: 189
diff changeset
  1305
                                     generate_c_vardecl_c::external_vt);
70
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  1306
  vardecl->print(symbol->var_declarations);
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  1307
  delete vardecl;
146
eef5e62048c7 Adding support for EN/ENO params in function and function blocks (standard function not supported yet)
lbessard
parents: 145
diff changeset
  1308
  
70
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  1309
  /* (A.4) Generate private internal variables for SFC */
244
3a478229db8b Adding support for generating code for variable in step action association instead of action
laurent
parents: 241
diff changeset
  1310
  sfcdecl = new generate_c_sfcdecl_c(&s4o_incl, symbol);
3a478229db8b Adding support for generating code for variable in step action association instead of action
laurent
parents: 241
diff changeset
  1311
  sfcdecl->generate(symbol->fblock_body, generate_c_sfcdecl_c::sfcdecl_sd);
70
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  1312
  delete sfcdecl;
121
9e8ce092e169 Adding support for POU struct definition in POUS.h
lbessard
parents: 120
diff changeset
  1313
  s4o_incl.print("\n");
244
3a478229db8b Adding support for generating code for variable in step action association instead of action
laurent
parents: 241
diff changeset
  1314
70
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  1315
  /* (A.5) Function Block data structure type name. */
121
9e8ce092e169 Adding support for POU struct definition in POUS.h
lbessard
parents: 120
diff changeset
  1316
  s4o_incl.indent_left();
9e8ce092e169 Adding support for POU struct definition in POUS.h
lbessard
parents: 120
diff changeset
  1317
  s4o_incl.print("} ");
9e8ce092e169 Adding support for POU struct definition in POUS.h
lbessard
parents: 120
diff changeset
  1318
  symbol->fblock_name->accept(*typedecl);
9e8ce092e169 Adding support for POU struct definition in POUS.h
lbessard
parents: 120
diff changeset
  1319
  s4o_incl.print(";\n\n");
9e8ce092e169 Adding support for POU struct definition in POUS.h
lbessard
parents: 120
diff changeset
  1320
  delete typedecl;
70
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  1321
217
f5dfadf5de54 Adding support for declare, init, get and set macros
laurent
parents: 210
diff changeset
  1322
  /* (A.6) Function Block inline function declaration for function invocation */
234
e4d31cd0e6d8 Using function_call_iterator in generate_c_inlinefcall instead of creating a new visitor
laurent
parents: 231
diff changeset
  1323
  inlinedecl = new generate_c_inlinefcall_c(&s4o, symbol->fblock_name, symbol, FB_FUNCTION_PARAM"->");
337
9a2262fb7994 Fix bug with inline function call in POU programmed in IL
laurent
parents: 330
diff changeset
  1324
  symbol->fblock_body->accept(*inlinedecl);
234
e4d31cd0e6d8 Using function_call_iterator in generate_c_inlinefcall instead of creating a new visitor
laurent
parents: 231
diff changeset
  1325
  delete inlinedecl;
217
f5dfadf5de54 Adding support for declare, init, get and set macros
laurent
parents: 210
diff changeset
  1326
70
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  1327
  /* (B) Constructor */
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  1328
  /* (B.1) Constructor name... */
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  1329
  s4o.print(s4o.indent_spaces + "void ");
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  1330
  symbol->fblock_name->accept(*this);
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  1331
  s4o.print(FB_INIT_SUFFIX);
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  1332
  s4o.print("(");
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  1333
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  1334
  /* first and only parameter is a pointer to the data */
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  1335
  symbol->fblock_name->accept(*this);
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  1336
  s4o.print(" *");
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  1337
  s4o.print(FB_FUNCTION_PARAM);
221
c6aed7e5f070 Adding support for flags on Function Block variables for marking which variable must be debugged, retained or is forced
laurent
parents: 217
diff changeset
  1338
  s4o.print(", BOOL retain) {\n");
70
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  1339
  s4o.indent_right();
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  1340
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  1341
  /* (B.2) Member initializations... */
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  1342
  s4o.print(s4o.indent_spaces);
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  1343
  vardecl = new generate_c_vardecl_c(&s4o,
202
da1a8186f86f Initial (very rough) version of semantic checker (stage3)
Catarina Boucinha <ccb@fe.up.pt>
parents: 189
diff changeset
  1344
                                     generate_c_vardecl_c::constructorinit_vf,
da1a8186f86f Initial (very rough) version of semantic checker (stage3)
Catarina Boucinha <ccb@fe.up.pt>
parents: 189
diff changeset
  1345
                                     generate_c_vardecl_c::input_vt    |
da1a8186f86f Initial (very rough) version of semantic checker (stage3)
Catarina Boucinha <ccb@fe.up.pt>
parents: 189
diff changeset
  1346
                                     generate_c_vardecl_c::output_vt   |
da1a8186f86f Initial (very rough) version of semantic checker (stage3)
Catarina Boucinha <ccb@fe.up.pt>
parents: 189
diff changeset
  1347
                                     generate_c_vardecl_c::inoutput_vt |
da1a8186f86f Initial (very rough) version of semantic checker (stage3)
Catarina Boucinha <ccb@fe.up.pt>
parents: 189
diff changeset
  1348
                                     generate_c_vardecl_c::private_vt  |
da1a8186f86f Initial (very rough) version of semantic checker (stage3)
Catarina Boucinha <ccb@fe.up.pt>
parents: 189
diff changeset
  1349
                                     generate_c_vardecl_c::located_vt  |
da1a8186f86f Initial (very rough) version of semantic checker (stage3)
Catarina Boucinha <ccb@fe.up.pt>
parents: 189
diff changeset
  1350
                                     generate_c_vardecl_c::external_vt |
da1a8186f86f Initial (very rough) version of semantic checker (stage3)
Catarina Boucinha <ccb@fe.up.pt>
parents: 189
diff changeset
  1351
                                     generate_c_vardecl_c::en_vt       |
da1a8186f86f Initial (very rough) version of semantic checker (stage3)
Catarina Boucinha <ccb@fe.up.pt>
parents: 189
diff changeset
  1352
                                     generate_c_vardecl_c::eno_vt);
70
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  1353
  vardecl->print(symbol->var_declarations, NULL, FB_FUNCTION_PARAM"->");
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  1354
  delete vardecl;
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  1355
  s4o.print("\n");
244
3a478229db8b Adding support for generating code for variable in step action association instead of action
laurent
parents: 241
diff changeset
  1356
3a478229db8b Adding support for generating code for variable in step action association instead of action
laurent
parents: 241
diff changeset
  1357
  sfcdecl = new generate_c_sfcdecl_c(&s4o, symbol, FB_FUNCTION_PARAM"->");
3a478229db8b Adding support for generating code for variable in step action association instead of action
laurent
parents: 241
diff changeset
  1358
70
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  1359
  /* (B.3) Generate private internal variables for SFC */
244
3a478229db8b Adding support for generating code for variable in step action association instead of action
laurent
parents: 241
diff changeset
  1360
  sfcdecl->generate(symbol->fblock_body, generate_c_sfcdecl_c::sfcinit_sd);
3a478229db8b Adding support for generating code for variable in step action association instead of action
laurent
parents: 241
diff changeset
  1361
70
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  1362
  s4o.indent_left();
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  1363
  s4o.print(s4o.indent_spaces + "}\n\n");
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  1364
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  1365
  
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  1366
  /* (C) Function with FB body */
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  1367
  /* (C.1) Step definitions */
244
3a478229db8b Adding support for generating code for variable in step action association instead of action
laurent
parents: 241
diff changeset
  1368
  sfcdecl->generate(symbol->fblock_body, generate_c_sfcdecl_c::stepdef_sd);
70
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  1369
  
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  1370
  /* (C.2) Action definitions */
244
3a478229db8b Adding support for generating code for variable in step action association instead of action
laurent
parents: 241
diff changeset
  1371
  sfcdecl->generate(symbol->fblock_body, generate_c_sfcdecl_c::actiondef_sd);
3a478229db8b Adding support for generating code for variable in step action association instead of action
laurent
parents: 241
diff changeset
  1372
70
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  1373
  /* (C.3) Function declaration */
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  1374
  s4o.print("// Code part\n");
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  1375
  /* function interface */
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  1376
  s4o.print("void ");
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  1377
  symbol->fblock_name->accept(*this);
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  1378
  s4o.print(FB_FUNCTION_SUFFIX);
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  1379
  s4o.print("(");
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  1380
  /* first and only parameter is a pointer to the data */
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  1381
  symbol->fblock_name->accept(*this);
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  1382
  s4o.print(" *");
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  1383
  s4o.print(FB_FUNCTION_PARAM);
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  1384
  s4o.print(") {\n");
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  1385
  s4o.indent_right();
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  1386
146
eef5e62048c7 Adding support for EN/ENO params in function and function blocks (standard function not supported yet)
lbessard
parents: 145
diff changeset
  1387
  s4o.print(s4o.indent_spaces + "// Control execution\n");
eef5e62048c7 Adding support for EN/ENO params in function and function blocks (standard function not supported yet)
lbessard
parents: 145
diff changeset
  1388
  s4o.print(s4o.indent_spaces + "if (!");
217
f5dfadf5de54 Adding support for declare, init, get and set macros
laurent
parents: 210
diff changeset
  1389
  s4o.print(GET_VAR);
f5dfadf5de54 Adding support for declare, init, get and set macros
laurent
parents: 210
diff changeset
  1390
  s4o.print("(");
146
eef5e62048c7 Adding support for EN/ENO params in function and function blocks (standard function not supported yet)
lbessard
parents: 145
diff changeset
  1391
  s4o.print(FB_FUNCTION_PARAM);
217
f5dfadf5de54 Adding support for declare, init, get and set macros
laurent
parents: 210
diff changeset
  1392
  s4o.print("->EN)) {\n");
146
eef5e62048c7 Adding support for EN/ENO params in function and function blocks (standard function not supported yet)
lbessard
parents: 145
diff changeset
  1393
  s4o.indent_right();
eef5e62048c7 Adding support for EN/ENO params in function and function blocks (standard function not supported yet)
lbessard
parents: 145
diff changeset
  1394
  s4o.print(s4o.indent_spaces);
217
f5dfadf5de54 Adding support for declare, init, get and set macros
laurent
parents: 210
diff changeset
  1395
  s4o.print(SET_VAR);
f5dfadf5de54 Adding support for declare, init, get and set macros
laurent
parents: 210
diff changeset
  1396
  s4o.print("(");
146
eef5e62048c7 Adding support for EN/ENO params in function and function blocks (standard function not supported yet)
lbessard
parents: 145
diff changeset
  1397
  s4o.print(FB_FUNCTION_PARAM);
392
9b88b8b6bccd Fixing generated code for global variables. Adding support for defining global variables with complex type
laurent
parents: 381
diff changeset
  1398
  s4o.print("->,ENO,__BOOL_LITERAL(FALSE));\n");
146
eef5e62048c7 Adding support for EN/ENO params in function and function blocks (standard function not supported yet)
lbessard
parents: 145
diff changeset
  1399
  s4o.print(s4o.indent_spaces + "return;\n");
eef5e62048c7 Adding support for EN/ENO params in function and function blocks (standard function not supported yet)
lbessard
parents: 145
diff changeset
  1400
  s4o.indent_left();
eef5e62048c7 Adding support for EN/ENO params in function and function blocks (standard function not supported yet)
lbessard
parents: 145
diff changeset
  1401
  s4o.print(s4o.indent_spaces + "}\n");
eef5e62048c7 Adding support for EN/ENO params in function and function blocks (standard function not supported yet)
lbessard
parents: 145
diff changeset
  1402
  s4o.print(s4o.indent_spaces + "else {\n");
eef5e62048c7 Adding support for EN/ENO params in function and function blocks (standard function not supported yet)
lbessard
parents: 145
diff changeset
  1403
  s4o.indent_right();
eef5e62048c7 Adding support for EN/ENO params in function and function blocks (standard function not supported yet)
lbessard
parents: 145
diff changeset
  1404
  s4o.print(s4o.indent_spaces);
217
f5dfadf5de54 Adding support for declare, init, get and set macros
laurent
parents: 210
diff changeset
  1405
  s4o.print(SET_VAR);
f5dfadf5de54 Adding support for declare, init, get and set macros
laurent
parents: 210
diff changeset
  1406
  s4o.print("(");
146
eef5e62048c7 Adding support for EN/ENO params in function and function blocks (standard function not supported yet)
lbessard
parents: 145
diff changeset
  1407
  s4o.print(FB_FUNCTION_PARAM);
392
9b88b8b6bccd Fixing generated code for global variables. Adding support for defining global variables with complex type
laurent
parents: 381
diff changeset
  1408
  s4o.print("->,ENO,__BOOL_LITERAL(TRUE));\n");
146
eef5e62048c7 Adding support for EN/ENO params in function and function blocks (standard function not supported yet)
lbessard
parents: 145
diff changeset
  1409
  s4o.indent_left();
eef5e62048c7 Adding support for EN/ENO params in function and function blocks (standard function not supported yet)
lbessard
parents: 145
diff changeset
  1410
  s4o.print(s4o.indent_spaces + "}\n");
eef5e62048c7 Adding support for EN/ENO params in function and function blocks (standard function not supported yet)
lbessard
parents: 145
diff changeset
  1411
70
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  1412
  /* (C.4) Initialize TEMP variables */
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  1413
  /* function body */
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  1414
  s4o.print(s4o.indent_spaces + "// Initialise TEMP variables\n");
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  1415
  vardecl = new generate_c_vardecl_c(&s4o,
202
da1a8186f86f Initial (very rough) version of semantic checker (stage3)
Catarina Boucinha <ccb@fe.up.pt>
parents: 189
diff changeset
  1416
                                     generate_c_vardecl_c::init_vf,
da1a8186f86f Initial (very rough) version of semantic checker (stage3)
Catarina Boucinha <ccb@fe.up.pt>
parents: 189
diff changeset
  1417
                                     generate_c_vardecl_c::temp_vt);
70
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  1418
  vardecl->print(symbol->var_declarations, NULL,  FB_FUNCTION_PARAM"->");
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  1419
  delete vardecl;
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  1420
  s4o.print("\n");
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  1421
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  1422
  /* (C.5) Function code */
217
f5dfadf5de54 Adding support for declare, init, get and set macros
laurent
parents: 210
diff changeset
  1423
  generate_c_SFC_IL_ST_c generate_c_code(&s4o, symbol->fblock_name, symbol, FB_FUNCTION_PARAM"->");
70
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  1424
  symbol->fblock_body->accept(generate_c_code);
283
214d3fdee596 fixing C code generation of return_statement_c and exit_statement_c
Mario de Sousa <msousa@fe.up.pt>
parents: 279
diff changeset
  1425
  print_end_of_block_label();
330
d2facfcf485a Fix warning on nop statement at the end of function_block and program generated code
laurent
parents: 318
diff changeset
  1426
  s4o.print(s4o.indent_spaces + "return;\n");
70
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  1427
  s4o.indent_left();
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  1428
  s4o.print(s4o.indent_spaces + "} // ");
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  1429
  symbol->fblock_name->accept(*this);
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  1430
  s4o.print(FB_FUNCTION_SUFFIX);
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  1431
  s4o.print(s4o.indent_spaces + "() \n\n");
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  1432
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  1433
  /* (C.6) Step undefinitions */
244
3a478229db8b Adding support for generating code for variable in step action association instead of action
laurent
parents: 241
diff changeset
  1434
  sfcdecl->generate(symbol->fblock_body, generate_c_sfcdecl_c::stepundef_sd);
3a478229db8b Adding support for generating code for variable in step action association instead of action
laurent
parents: 241
diff changeset
  1435
70
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  1436
  /* (C.7) Action undefinitions */
244
3a478229db8b Adding support for generating code for variable in step action association instead of action
laurent
parents: 241
diff changeset
  1437
  sfcdecl->generate(symbol->fblock_body, generate_c_sfcdecl_c::actionundef_sd);
3a478229db8b Adding support for generating code for variable in step action association instead of action
laurent
parents: 241
diff changeset
  1438
70
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  1439
  delete sfcdecl;
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  1440
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  1441
  s4o.indent_left();
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  1442
  s4o.print("\n\n\n\n");
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  1443
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  1444
  return NULL;
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  1445
}
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  1446
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  1447
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  1448
/* The remaining temp_var_decls_c, temp_var_decls_list_c
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  1449
 * and non_retentive_var_decls_c are handled in the generate_c_vardecl_c class
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  1450
 */
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  1451
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  1452
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  1453
/**********************/
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  1454
/* B 1.5.3 - Programs */
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  1455
/**********************/
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  1456
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  1457
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  1458
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  1459
public:
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  1460
/*  PROGRAM program_type_name program_var_declarations_list function_block_body END_PROGRAM */
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  1461
//SYM_REF4(program_declaration_c, program_type_name, var_declarations, function_block_body, unused)
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  1462
void *visit(program_declaration_c *symbol) {
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  1463
  generate_c_vardecl_c *vardecl;
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  1464
  generate_c_sfcdecl_c *sfcdecl;
121
9e8ce092e169 Adding support for POU struct definition in POUS.h
lbessard
parents: 120
diff changeset
  1465
  generate_c_typedecl_c *typedecl;
234
e4d31cd0e6d8 Using function_call_iterator in generate_c_inlinefcall instead of creating a new visitor
laurent
parents: 231
diff changeset
  1466
  generate_c_inlinefcall_c *inlinedecl;
70
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  1467
  TRACE("program_declaration_c");
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  1468
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  1469
  /* (A) Program data structure declaration... */
121
9e8ce092e169 Adding support for POU struct definition in POUS.h
lbessard
parents: 120
diff changeset
  1470
  typedecl = new generate_c_typedecl_c(&s4o_incl);
70
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  1471
  /* (A.1) Data structure declaration */
121
9e8ce092e169 Adding support for POU struct definition in POUS.h
lbessard
parents: 120
diff changeset
  1472
  s4o_incl.print("// PROGRAM ");
9e8ce092e169 Adding support for POU struct definition in POUS.h
lbessard
parents: 120
diff changeset
  1473
  symbol->program_type_name->accept(*typedecl);
9e8ce092e169 Adding support for POU struct definition in POUS.h
lbessard
parents: 120
diff changeset
  1474
  s4o_incl.print("\n// Data part\n");
9e8ce092e169 Adding support for POU struct definition in POUS.h
lbessard
parents: 120
diff changeset
  1475
  s4o_incl.print("typedef struct {\n");
9e8ce092e169 Adding support for POU struct definition in POUS.h
lbessard
parents: 120
diff changeset
  1476
  s4o_incl.indent_right();
70
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  1477
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  1478
  /* (A.2) Public variables: i.e. the program parameters... */
121
9e8ce092e169 Adding support for POU struct definition in POUS.h
lbessard
parents: 120
diff changeset
  1479
  s4o_incl.print(s4o_incl.indent_spaces + "// PROGRAM Interface - IN, OUT, IN_OUT variables\n");
9e8ce092e169 Adding support for POU struct definition in POUS.h
lbessard
parents: 120
diff changeset
  1480
  vardecl = new generate_c_vardecl_c(&s4o_incl,
202
da1a8186f86f Initial (very rough) version of semantic checker (stage3)
Catarina Boucinha <ccb@fe.up.pt>
parents: 189
diff changeset
  1481
                                     generate_c_vardecl_c::local_vf,
da1a8186f86f Initial (very rough) version of semantic checker (stage3)
Catarina Boucinha <ccb@fe.up.pt>
parents: 189
diff changeset
  1482
                                     generate_c_vardecl_c::input_vt  |
da1a8186f86f Initial (very rough) version of semantic checker (stage3)
Catarina Boucinha <ccb@fe.up.pt>
parents: 189
diff changeset
  1483
                                     generate_c_vardecl_c::output_vt |
da1a8186f86f Initial (very rough) version of semantic checker (stage3)
Catarina Boucinha <ccb@fe.up.pt>
parents: 189
diff changeset
  1484
                                     generate_c_vardecl_c::inoutput_vt);
70
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  1485
  vardecl->print(symbol->var_declarations);
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  1486
  delete vardecl;
121
9e8ce092e169 Adding support for POU struct definition in POUS.h
lbessard
parents: 120
diff changeset
  1487
  s4o_incl.print("\n");
70
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  1488
  /* (A.3) Private internal variables */
121
9e8ce092e169 Adding support for POU struct definition in POUS.h
lbessard
parents: 120
diff changeset
  1489
  s4o_incl.print(s4o_incl.indent_spaces + "// PROGRAM private variables - TEMP, private and located variables\n");
9e8ce092e169 Adding support for POU struct definition in POUS.h
lbessard
parents: 120
diff changeset
  1490
  vardecl = new generate_c_vardecl_c(&s4o_incl,
70
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  1491
                generate_c_vardecl_c::local_vf,
202
da1a8186f86f Initial (very rough) version of semantic checker (stage3)
Catarina Boucinha <ccb@fe.up.pt>
parents: 189
diff changeset
  1492
                generate_c_vardecl_c::temp_vt    |
70
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  1493
                generate_c_vardecl_c::private_vt |
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  1494
                generate_c_vardecl_c::located_vt |
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  1495
                generate_c_vardecl_c::external_vt);
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  1496
  vardecl->print(symbol->var_declarations);
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  1497
  delete vardecl;
244
3a478229db8b Adding support for generating code for variable in step action association instead of action
laurent
parents: 241
diff changeset
  1498
70
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  1499
  /* (A.4) Generate private internal variables for SFC */
244
3a478229db8b Adding support for generating code for variable in step action association instead of action
laurent
parents: 241
diff changeset
  1500
  sfcdecl = new generate_c_sfcdecl_c(&s4o_incl, symbol);
3a478229db8b Adding support for generating code for variable in step action association instead of action
laurent
parents: 241
diff changeset
  1501
  sfcdecl->generate(symbol->function_block_body, generate_c_sfcdecl_c::sfcdecl_sd);
70
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  1502
  delete sfcdecl;
244
3a478229db8b Adding support for generating code for variable in step action association instead of action
laurent
parents: 241
diff changeset
  1503
  s4o_incl.print("\n");
70
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  1504
  
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  1505
  /* (A.5) Program data structure type name. */
121
9e8ce092e169 Adding support for POU struct definition in POUS.h
lbessard
parents: 120
diff changeset
  1506
  s4o_incl.indent_left();
9e8ce092e169 Adding support for POU struct definition in POUS.h
lbessard
parents: 120
diff changeset
  1507
  s4o_incl.print("} ");
9e8ce092e169 Adding support for POU struct definition in POUS.h
lbessard
parents: 120
diff changeset
  1508
  symbol->program_type_name->accept(*typedecl);
9e8ce092e169 Adding support for POU struct definition in POUS.h
lbessard
parents: 120
diff changeset
  1509
  s4o_incl.print(";\n\n");
9e8ce092e169 Adding support for POU struct definition in POUS.h
lbessard
parents: 120
diff changeset
  1510
  delete typedecl;
70
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  1511
217
f5dfadf5de54 Adding support for declare, init, get and set macros
laurent
parents: 210
diff changeset
  1512
  /* (A.6) Function Block inline function declaration for function invocation */
234
e4d31cd0e6d8 Using function_call_iterator in generate_c_inlinefcall instead of creating a new visitor
laurent
parents: 231
diff changeset
  1513
  inlinedecl = new generate_c_inlinefcall_c(&s4o, symbol->program_type_name, symbol, FB_FUNCTION_PARAM"->");
337
9a2262fb7994 Fix bug with inline function call in POU programmed in IL
laurent
parents: 330
diff changeset
  1514
  symbol->function_block_body->accept(*inlinedecl);
234
e4d31cd0e6d8 Using function_call_iterator in generate_c_inlinefcall instead of creating a new visitor
laurent
parents: 231
diff changeset
  1515
  delete inlinedecl;
217
f5dfadf5de54 Adding support for declare, init, get and set macros
laurent
parents: 210
diff changeset
  1516
70
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  1517
  /* (B) Constructor */
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  1518
  /* (B.1) Constructor name... */
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  1519
  s4o.print(s4o.indent_spaces + "void ");
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  1520
  symbol->program_type_name->accept(*this);
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  1521
  s4o.print(FB_INIT_SUFFIX);
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  1522
  s4o.print("(");
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  1523
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  1524
  /* first and only parameter is a pointer to the data */
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  1525
  symbol->program_type_name->accept(*this);
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  1526
  s4o.print(" *");
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  1527
  s4o.print(FB_FUNCTION_PARAM);
221
c6aed7e5f070 Adding support for flags on Function Block variables for marking which variable must be debugged, retained or is forced
laurent
parents: 217
diff changeset
  1528
  s4o.print(", BOOL retain) {\n");
70
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  1529
  s4o.indent_right();
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  1530
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  1531
  /* (B.2) Member initializations... */
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  1532
  s4o.print(s4o.indent_spaces);
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  1533
  vardecl = new generate_c_vardecl_c(&s4o,
202
da1a8186f86f Initial (very rough) version of semantic checker (stage3)
Catarina Boucinha <ccb@fe.up.pt>
parents: 189
diff changeset
  1534
                                     generate_c_vardecl_c::constructorinit_vf,
da1a8186f86f Initial (very rough) version of semantic checker (stage3)
Catarina Boucinha <ccb@fe.up.pt>
parents: 189
diff changeset
  1535
                                     generate_c_vardecl_c::input_vt    |
da1a8186f86f Initial (very rough) version of semantic checker (stage3)
Catarina Boucinha <ccb@fe.up.pt>
parents: 189
diff changeset
  1536
                                     generate_c_vardecl_c::output_vt   |
da1a8186f86f Initial (very rough) version of semantic checker (stage3)
Catarina Boucinha <ccb@fe.up.pt>
parents: 189
diff changeset
  1537
                                     generate_c_vardecl_c::inoutput_vt |
da1a8186f86f Initial (very rough) version of semantic checker (stage3)
Catarina Boucinha <ccb@fe.up.pt>
parents: 189
diff changeset
  1538
                                     generate_c_vardecl_c::private_vt  |
da1a8186f86f Initial (very rough) version of semantic checker (stage3)
Catarina Boucinha <ccb@fe.up.pt>
parents: 189
diff changeset
  1539
                                     generate_c_vardecl_c::located_vt  |
da1a8186f86f Initial (very rough) version of semantic checker (stage3)
Catarina Boucinha <ccb@fe.up.pt>
parents: 189
diff changeset
  1540
                                     generate_c_vardecl_c::external_vt);
70
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  1541
  vardecl->print(symbol->var_declarations, NULL,  FB_FUNCTION_PARAM"->");
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  1542
  delete vardecl;
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  1543
  s4o.print("\n");
244
3a478229db8b Adding support for generating code for variable in step action association instead of action
laurent
parents: 241
diff changeset
  1544
3a478229db8b Adding support for generating code for variable in step action association instead of action
laurent
parents: 241
diff changeset
  1545
  sfcdecl = new generate_c_sfcdecl_c(&s4o, symbol, FB_FUNCTION_PARAM"->");
3a478229db8b Adding support for generating code for variable in step action association instead of action
laurent
parents: 241
diff changeset
  1546
70
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  1547
  /* (B.3) Generate private internal variables for SFC */
244
3a478229db8b Adding support for generating code for variable in step action association instead of action
laurent
parents: 241
diff changeset
  1548
  sfcdecl->generate(symbol->function_block_body, generate_c_sfcdecl_c::sfcinit_sd);
70
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  1549
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  1550
  s4o.indent_left();
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  1551
  s4o.print(s4o.indent_spaces + "}\n\n");
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  1552
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  1553
  /* (C) Function with PROGRAM body */
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  1554
  /* (C.1) Step definitions */
244
3a478229db8b Adding support for generating code for variable in step action association instead of action
laurent
parents: 241
diff changeset
  1555
  sfcdecl->generate(symbol->function_block_body, generate_c_sfcdecl_c::stepdef_sd);
70
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  1556
  
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  1557
  /* (C.2) Action definitions */
244
3a478229db8b Adding support for generating code for variable in step action association instead of action
laurent
parents: 241
diff changeset
  1558
  sfcdecl->generate(symbol->function_block_body, generate_c_sfcdecl_c::actiondef_sd);
70
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  1559
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  1560
  /* (C.3) Function declaration */
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  1561
  s4o.print("// Code part\n");
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  1562
  /* function interface */
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  1563
  s4o.print("void ");
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  1564
  symbol->program_type_name->accept(*this);
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  1565
  s4o.print(FB_FUNCTION_SUFFIX);
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  1566
  s4o.print("(");
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  1567
  /* first and only parameter is a pointer to the data */
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  1568
  symbol->program_type_name->accept(*this);
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  1569
  s4o.print(" *");
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  1570
  s4o.print(FB_FUNCTION_PARAM);
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  1571
  s4o.print(") {\n");
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  1572
  s4o.indent_right();
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  1573
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  1574
  /* (C.4) Initialize TEMP variables */
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  1575
  /* function body */
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  1576
  s4o.print(s4o.indent_spaces + "// Initialise TEMP variables\n");
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  1577
  vardecl = new generate_c_vardecl_c(&s4o,
202
da1a8186f86f Initial (very rough) version of semantic checker (stage3)
Catarina Boucinha <ccb@fe.up.pt>
parents: 189
diff changeset
  1578
                                     generate_c_vardecl_c::init_vf,
da1a8186f86f Initial (very rough) version of semantic checker (stage3)
Catarina Boucinha <ccb@fe.up.pt>
parents: 189
diff changeset
  1579
                                     generate_c_vardecl_c::temp_vt);
70
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  1580
  vardecl->print(symbol->var_declarations, NULL,  FB_FUNCTION_PARAM"->");
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  1581
  delete vardecl;
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  1582
  s4o.print("\n");
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  1583
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  1584
  /* (C.5) Function code */
217
f5dfadf5de54 Adding support for declare, init, get and set macros
laurent
parents: 210
diff changeset
  1585
  generate_c_SFC_IL_ST_c generate_c_code(&s4o, symbol->program_type_name, symbol, FB_FUNCTION_PARAM"->");
70
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  1586
  symbol->function_block_body->accept(generate_c_code);
283
214d3fdee596 fixing C code generation of return_statement_c and exit_statement_c
Mario de Sousa <msousa@fe.up.pt>
parents: 279
diff changeset
  1587
  print_end_of_block_label();
330
d2facfcf485a Fix warning on nop statement at the end of function_block and program generated code
laurent
parents: 318
diff changeset
  1588
  s4o.print(s4o.indent_spaces + "return;\n");
70
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  1589
  s4o.indent_left();
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  1590
  s4o.print(s4o.indent_spaces + "} // ");
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  1591
  symbol->program_type_name->accept(*this);
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  1592
  s4o.print(FB_FUNCTION_SUFFIX);
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  1593
  s4o.print(s4o.indent_spaces + "() \n\n");
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  1594
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  1595
  /* (C.6) Step undefinitions */
244
3a478229db8b Adding support for generating code for variable in step action association instead of action
laurent
parents: 241
diff changeset
  1596
  sfcdecl->generate(symbol->function_block_body, generate_c_sfcdecl_c::stepundef_sd);
3a478229db8b Adding support for generating code for variable in step action association instead of action
laurent
parents: 241
diff changeset
  1597
  
3a478229db8b Adding support for generating code for variable in step action association instead of action
laurent
parents: 241
diff changeset
  1598
  /* (C.7) Action undefinitions */
3a478229db8b Adding support for generating code for variable in step action association instead of action
laurent
parents: 241
diff changeset
  1599
  sfcdecl->generate(symbol->function_block_body, generate_c_sfcdecl_c::actionundef_sd);
3a478229db8b Adding support for generating code for variable in step action association instead of action
laurent
parents: 241
diff changeset
  1600
  
70
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  1601
  delete sfcdecl;
244
3a478229db8b Adding support for generating code for variable in step action association instead of action
laurent
parents: 241
diff changeset
  1602
70
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  1603
  s4o.indent_left();
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  1604
  s4o.print("\n\n\n\n");
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  1605
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  1606
  return NULL;
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  1607
}
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  1608
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  1609
}; /* generate_c_pous_c */
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  1610
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  1611
/***********************************************************************/
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  1612
/***********************************************************************/
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  1613
/***********************************************************************/
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  1614
/***********************************************************************/
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  1615
/***********************************************************************/
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  1616
/***********************************************************************/
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  1617
/***********************************************************************/
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  1618
/***********************************************************************/
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  1619
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  1620
class generate_c_config_c: public generate_c_typedecl_c {
267
0a1204bcc9af starting to add proper header file with declaration of standard functions
Mario de Sousa <msousa@fe.up.pt>
parents: 262
diff changeset
  1621
    private:
0a1204bcc9af starting to add proper header file with declaration of standard functions
Mario de Sousa <msousa@fe.up.pt>
parents: 262
diff changeset
  1622
    stage4out_c *s4o_ptr;
396
155560bfe837 Fixing bug with external variables refering to global variables defined in configurations
laurent
parents: 392
diff changeset
  1623
    stage4out_c *s4o_incl_ptr;
155560bfe837 Fixing bug with external variables refering to global variables defined in configurations
laurent
parents: 392
diff changeset
  1624
    
70
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  1625
    public:
396
155560bfe837 Fixing bug with external variables refering to global variables defined in configurations
laurent
parents: 392
diff changeset
  1626
    generate_c_config_c(stage4out_c *s4o_ptr, stage4out_c *s4o_incl_ptr)
155560bfe837 Fixing bug with external variables refering to global variables defined in configurations
laurent
parents: 392
diff changeset
  1627
      : generate_c_typedecl_c(s4o_ptr, s4o_incl_ptr) {
267
0a1204bcc9af starting to add proper header file with declaration of standard functions
Mario de Sousa <msousa@fe.up.pt>
parents: 262
diff changeset
  1628
      generate_c_config_c::s4o_ptr = s4o_ptr;
396
155560bfe837 Fixing bug with external variables refering to global variables defined in configurations
laurent
parents: 392
diff changeset
  1629
      generate_c_config_c::s4o_incl_ptr = s4o_incl_ptr;
267
0a1204bcc9af starting to add proper header file with declaration of standard functions
Mario de Sousa <msousa@fe.up.pt>
parents: 262
diff changeset
  1630
    };
377
60b012b7793f Adding support for compiling direct array specification inside variable declaration
laurent
parents: 355
diff changeset
  1631
70
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  1632
    virtual ~generate_c_config_c(void) {}
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  1633
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  1634
    typedef enum {
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  1635
      initprotos_dt,
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  1636
      initdeclare_dt,
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  1637
      runprotos_dt,
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  1638
      rundeclare_dt
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  1639
    } declaretype_t;
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  1640
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  1641
    declaretype_t wanted_declaretype;
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  1642
267
0a1204bcc9af starting to add proper header file with declaration of standard functions
Mario de Sousa <msousa@fe.up.pt>
parents: 262
diff changeset
  1643
    
0a1204bcc9af starting to add proper header file with declaration of standard functions
Mario de Sousa <msousa@fe.up.pt>
parents: 262
diff changeset
  1644
public:
0a1204bcc9af starting to add proper header file with declaration of standard functions
Mario de Sousa <msousa@fe.up.pt>
parents: 262
diff changeset
  1645
/********************/
0a1204bcc9af starting to add proper header file with declaration of standard functions
Mario de Sousa <msousa@fe.up.pt>
parents: 262
diff changeset
  1646
/* 2.1.6 - Pragmas  */
0a1204bcc9af starting to add proper header file with declaration of standard functions
Mario de Sousa <msousa@fe.up.pt>
parents: 262
diff changeset
  1647
/********************/
396
155560bfe837 Fixing bug with external variables refering to global variables defined in configurations
laurent
parents: 392
diff changeset
  1648
void *visit(enable_code_generation_pragma_c * symbol)   {
155560bfe837 Fixing bug with external variables refering to global variables defined in configurations
laurent
parents: 392
diff changeset
  1649
    s4o_ptr->enable_output();
155560bfe837 Fixing bug with external variables refering to global variables defined in configurations
laurent
parents: 392
diff changeset
  1650
    s4o_incl_ptr->enable_output();
155560bfe837 Fixing bug with external variables refering to global variables defined in configurations
laurent
parents: 392
diff changeset
  1651
    return NULL;
155560bfe837 Fixing bug with external variables refering to global variables defined in configurations
laurent
parents: 392
diff changeset
  1652
}
155560bfe837 Fixing bug with external variables refering to global variables defined in configurations
laurent
parents: 392
diff changeset
  1653
155560bfe837 Fixing bug with external variables refering to global variables defined in configurations
laurent
parents: 392
diff changeset
  1654
void *visit(disable_code_generation_pragma_c * symbol)  {
155560bfe837 Fixing bug with external variables refering to global variables defined in configurations
laurent
parents: 392
diff changeset
  1655
    s4o_ptr->disable_output();
155560bfe837 Fixing bug with external variables refering to global variables defined in configurations
laurent
parents: 392
diff changeset
  1656
    s4o_incl_ptr->disable_output();    
155560bfe837 Fixing bug with external variables refering to global variables defined in configurations
laurent
parents: 392
diff changeset
  1657
    return NULL;
155560bfe837 Fixing bug with external variables refering to global variables defined in configurations
laurent
parents: 392
diff changeset
  1658
}
267
0a1204bcc9af starting to add proper header file with declaration of standard functions
Mario de Sousa <msousa@fe.up.pt>
parents: 262
diff changeset
  1659
    
0a1204bcc9af starting to add proper header file with declaration of standard functions
Mario de Sousa <msousa@fe.up.pt>
parents: 262
diff changeset
  1660
    
70
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  1661
/********************************/
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  1662
/* B 1.7 Configuration elements */
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  1663
/********************************/
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  1664
/*
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  1665
CONFIGURATION configuration_name
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  1666
   optional_global_var_declarations
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  1667
   (resource_declaration_list | single_resource_declaration)
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  1668
   optional_access_declarations
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  1669
   optional_instance_specific_initializations
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  1670
END_CONFIGURATION
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  1671
*/
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  1672
/*
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  1673
SYM_REF6(configuration_declaration_c, configuration_name, global_var_declarations, resource_declarations, access_declarations, instance_specific_initializations, unused)
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  1674
*/
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  1675
void *visit(configuration_declaration_c *symbol) {
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  1676
  generate_c_vardecl_c *vardecl;
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  1677
  
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  1678
  /* Insert the header... */
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  1679
  s4o.print("/*******************************************/\n");
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  1680
  s4o.print("/*     FILE GENERATED BY iec2c             */\n");
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  1681
  s4o.print("/* Editing this file is not recommended... */\n");
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  1682
  s4o.print("/*******************************************/\n\n");
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  1683
  s4o.print("#include \"iec_std_lib.h\"\n\n");
257
90782e241346 Huge change.
Mario de Sousa <msousa@fe.up.pt>
parents: 202
diff changeset
  1684
  s4o.print("#include \"accessor.h\"\n\n"); 
377
60b012b7793f Adding support for compiling direct array specification inside variable declaration
laurent
parents: 355
diff changeset
  1685
  s4o.print("#include \"POUS.h\"\n\n");
250
5d2927300e2c Adding missing support for accessors and retain in configuration files (Bug and fix reported by Manuele Conti)
laurent
parents: 248
diff changeset
  1686
70
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  1687
  /* (A) configuration declaration... */
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  1688
  /* (A.1) configuration name in comment */
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  1689
  s4o.print("// CONFIGURATION ");
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  1690
  symbol->configuration_name->accept(*this);
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  1691
  s4o.print("\n");
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  1692
  
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  1693
  /* (A.2) Global variables */
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  1694
  vardecl = new generate_c_vardecl_c(&s4o,
202
da1a8186f86f Initial (very rough) version of semantic checker (stage3)
Catarina Boucinha <ccb@fe.up.pt>
parents: 189
diff changeset
  1695
                                     generate_c_vardecl_c::local_vf,
392
9b88b8b6bccd Fixing generated code for global variables. Adding support for defining global variables with complex type
laurent
parents: 381
diff changeset
  1696
                                     generate_c_vardecl_c::global_vt,
9b88b8b6bccd Fixing generated code for global variables. Adding support for defining global variables with complex type
laurent
parents: 381
diff changeset
  1697
                                     symbol->configuration_name);
70
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  1698
  vardecl->print(symbol);
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  1699
  delete vardecl;
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  1700
  s4o.print("\n");
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  1701
396
155560bfe837 Fixing bug with external variables refering to global variables defined in configurations
laurent
parents: 392
diff changeset
  1702
  /* (A.3) Declare global prototypes in include file */
155560bfe837 Fixing bug with external variables refering to global variables defined in configurations
laurent
parents: 392
diff changeset
  1703
  vardecl = new generate_c_vardecl_c(&s4o_incl,
155560bfe837 Fixing bug with external variables refering to global variables defined in configurations
laurent
parents: 392
diff changeset
  1704
                                     generate_c_vardecl_c::globalprototype_vf,
155560bfe837 Fixing bug with external variables refering to global variables defined in configurations
laurent
parents: 392
diff changeset
  1705
                                     generate_c_vardecl_c::global_vt,
155560bfe837 Fixing bug with external variables refering to global variables defined in configurations
laurent
parents: 392
diff changeset
  1706
                                     symbol->configuration_name);
155560bfe837 Fixing bug with external variables refering to global variables defined in configurations
laurent
parents: 392
diff changeset
  1707
  vardecl->print(symbol);
155560bfe837 Fixing bug with external variables refering to global variables defined in configurations
laurent
parents: 392
diff changeset
  1708
  delete vardecl;
155560bfe837 Fixing bug with external variables refering to global variables defined in configurations
laurent
parents: 392
diff changeset
  1709
  s4o_incl.print("\n");
155560bfe837 Fixing bug with external variables refering to global variables defined in configurations
laurent
parents: 392
diff changeset
  1710
70
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  1711
  /* (B) Initialisation Function */
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  1712
  /* (B.1) Ressources initialisation protos... */
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  1713
  wanted_declaretype = initprotos_dt;
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  1714
  symbol->resource_declarations->accept(*this);
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  1715
  s4o.print("\n");
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  1716
  
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  1717
  /* (B.2) Initialisation function name... */
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  1718
  s4o.print(s4o.indent_spaces + "void config");
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  1719
  s4o.print(FB_INIT_SUFFIX);
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  1720
  s4o.print("(void) {\n");
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  1721
  s4o.indent_right();
250
5d2927300e2c Adding missing support for accessors and retain in configuration files (Bug and fix reported by Manuele Conti)
laurent
parents: 248
diff changeset
  1722
  s4o.print(s4o.indent_spaces);
255
86ef2244aef1 Modify code generated for avoiding warning while compiling when configuration or resource don't have any global variable
laurent
parents: 250
diff changeset
  1723
  s4o.print("BOOL retain;\n");
86ef2244aef1 Modify code generated for avoiding warning while compiling when configuration or resource don't have any global variable
laurent
parents: 250
diff changeset
  1724
  s4o.print(s4o.indent_spaces);
86ef2244aef1 Modify code generated for avoiding warning while compiling when configuration or resource don't have any global variable
laurent
parents: 250
diff changeset
  1725
  s4o.print("retain = 0;\n");
70
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  1726
  
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  1727
  /* (B.3) Global variables initializations... */
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  1728
  s4o.print(s4o.indent_spaces);
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  1729
  vardecl = new generate_c_vardecl_c(&s4o,
202
da1a8186f86f Initial (very rough) version of semantic checker (stage3)
Catarina Boucinha <ccb@fe.up.pt>
parents: 189
diff changeset
  1730
                                     generate_c_vardecl_c::constructorinit_vf,
537
199bdfe36166 Fix code generation about __INIT_GLOBAL_LOCATED.
Conti Manuele <manuele.conti@alice.it>
parents: 522
diff changeset
  1731
                                     generate_c_vardecl_c::global_vt,
199bdfe36166 Fix code generation about __INIT_GLOBAL_LOCATED.
Conti Manuele <manuele.conti@alice.it>
parents: 522
diff changeset
  1732
                                     symbol->configuration_name);
70
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  1733
  vardecl->print(symbol);
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  1734
  delete vardecl;
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  1735
  s4o.print("\n");
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  1736
  
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  1737
  /* (B.3) Resources initializations... */
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  1738
  wanted_declaretype = initdeclare_dt;
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  1739
  symbol->resource_declarations->accept(*this);
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  1740
  
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  1741
  s4o.indent_left();
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  1742
  s4o.print(s4o.indent_spaces + "}\n\n");
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  1743
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  1744
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  1745
  /* (C) Run Function*/
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  1746
  /* (C.1) Resources run functions protos... */
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  1747
  wanted_declaretype = runprotos_dt;
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  1748
  symbol->resource_declarations->accept(*this);
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  1749
  s4o.print("\n");
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  1750
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  1751
  /* (C.2) Run function name... */
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  1752
  s4o.print(s4o.indent_spaces + "void config");
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  1753
  s4o.print(FB_RUN_SUFFIX);
210
8387cac2aba6 Adding support for forcing tick count to return to zero as the same time than all tasks firing are synchronized
laurent
parents: 202
diff changeset
  1754
  s4o.print("(unsigned long tick) {\n");
70
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  1755
  s4o.indent_right();
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  1756
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  1757
  /* (C.3) Resources initializations... */
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  1758
  wanted_declaretype = rundeclare_dt;
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  1759
  symbol->resource_declarations->accept(*this);
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  1760
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  1761
  /* (C.3) Close Public Function body */
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  1762
  s4o.indent_left();
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  1763
  s4o.print(s4o.indent_spaces + "}\n");
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  1764
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  1765
  return NULL;
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  1766
}
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  1767
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  1768
void *visit(resource_declaration_c *symbol) {
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  1769
  if (wanted_declaretype == initprotos_dt || wanted_declaretype == runprotos_dt) {
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  1770
    s4o.print(s4o.indent_spaces + "void ");
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  1771
    symbol->resource_name->accept(*this);
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  1772
    if (wanted_declaretype == initprotos_dt) {
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  1773
      s4o.print(FB_INIT_SUFFIX);
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  1774
      s4o.print("(void);\n");
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  1775
    }
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  1776
    else {
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  1777
      s4o.print(FB_RUN_SUFFIX);
210
8387cac2aba6 Adding support for forcing tick count to return to zero as the same time than all tasks firing are synchronized
laurent
parents: 202
diff changeset
  1778
      s4o.print("(unsigned long tick);\n");
70
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  1779
    }
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  1780
  }
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  1781
  if (wanted_declaretype == initdeclare_dt || wanted_declaretype == rundeclare_dt) {
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  1782
    s4o.print(s4o.indent_spaces);
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  1783
    symbol->resource_name->accept(*this);
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  1784
    if (wanted_declaretype == initdeclare_dt) {
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  1785
      s4o.print(FB_INIT_SUFFIX);
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  1786
      s4o.print("();\n");
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  1787
    }
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  1788
    else {
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  1789
      s4o.print(FB_RUN_SUFFIX);
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  1790
      s4o.print("(tick);\n");
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  1791
    }
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  1792
  }
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  1793
  return NULL;
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  1794
}
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  1795
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  1796
void *visit(single_resource_declaration_c *symbol) {
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  1797
  if (wanted_declaretype == initprotos_dt || wanted_declaretype == runprotos_dt) {
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  1798
    s4o.print(s4o.indent_spaces + "void RESOURCE");
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  1799
    if (wanted_declaretype == initprotos_dt) {
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  1800
      s4o.print(FB_INIT_SUFFIX);
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  1801
      s4o.print("(void);\n");
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  1802
    }
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  1803
    else {
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  1804
      s4o.print(FB_RUN_SUFFIX);
210
8387cac2aba6 Adding support for forcing tick count to return to zero as the same time than all tasks firing are synchronized
laurent
parents: 202
diff changeset
  1805
      s4o.print("(unsigned long tick);\n");
70
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  1806
    }
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  1807
  }
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  1808
  if (wanted_declaretype == initdeclare_dt || wanted_declaretype == rundeclare_dt) {
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  1809
    s4o.print(s4o.indent_spaces + "RESOURCE");
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  1810
    if (wanted_declaretype == initdeclare_dt) {
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  1811
      s4o.print(FB_INIT_SUFFIX);
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  1812
      s4o.print("();\n");
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  1813
    }
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  1814
    else {
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  1815
      s4o.print(FB_RUN_SUFFIX);
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  1816
      s4o.print("(tick);\n");
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  1817
    }
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  1818
  }
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  1819
  return NULL;
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  1820
}
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  1821
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  1822
};
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  1823
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  1824
/***********************************************************************/
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  1825
/***********************************************************************/
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  1826
/***********************************************************************/
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  1827
/***********************************************************************/
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  1828
/***********************************************************************/
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  1829
/***********************************************************************/
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  1830
/***********************************************************************/
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  1831
/***********************************************************************/
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  1832
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  1833
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  1834
class generate_c_resources_c: public generate_c_typedecl_c {
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  1835
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  1836
  search_var_instance_decl_c *search_config_instance;
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  1837
  search_var_instance_decl_c *search_resource_instance;
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  1838
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  1839
  private:
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  1840
    /* The name of the resource curretnly being processed... */
396
155560bfe837 Fixing bug with external variables refering to global variables defined in configurations
laurent
parents: 392
diff changeset
  1841
    symbol_c *current_configuration;
70
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  1842
    symbol_c *current_resource_name;
184
16495e10f69a Adding support for single resource scheduling
lbessard
parents: 181
diff changeset
  1843
    symbol_c *current_task_name;
70
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  1844
    symbol_c *current_global_vars;
396
155560bfe837 Fixing bug with external variables refering to global variables defined in configurations
laurent
parents: 392
diff changeset
  1845
    bool configuration_name;
267
0a1204bcc9af starting to add proper header file with declaration of standard functions
Mario de Sousa <msousa@fe.up.pt>
parents: 262
diff changeset
  1846
    stage4out_c *s4o_ptr;
70
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  1847
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  1848
  public:
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  1849
    generate_c_resources_c(stage4out_c *s4o_ptr, symbol_c *config_scope, symbol_c *resource_scope, unsigned long time)
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  1850
      : generate_c_typedecl_c(s4o_ptr) {
396
155560bfe837 Fixing bug with external variables refering to global variables defined in configurations
laurent
parents: 392
diff changeset
  1851
      current_configuration = config_scope;
202
da1a8186f86f Initial (very rough) version of semantic checker (stage3)
Catarina Boucinha <ccb@fe.up.pt>
parents: 189
diff changeset
  1852
      search_config_instance   = new search_var_instance_decl_c(config_scope);
70
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  1853
      search_resource_instance = new search_var_instance_decl_c(resource_scope);
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  1854
      common_ticktime = time;
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  1855
      current_resource_name = NULL;
184
16495e10f69a Adding support for single resource scheduling
lbessard
parents: 181
diff changeset
  1856
      current_task_name = NULL;
70
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  1857
      current_global_vars = NULL;
396
155560bfe837 Fixing bug with external variables refering to global variables defined in configurations
laurent
parents: 392
diff changeset
  1858
      configuration_name = false;
267
0a1204bcc9af starting to add proper header file with declaration of standard functions
Mario de Sousa <msousa@fe.up.pt>
parents: 262
diff changeset
  1859
      generate_c_resources_c::s4o_ptr = s4o_ptr;
70
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  1860
    };
267
0a1204bcc9af starting to add proper header file with declaration of standard functions
Mario de Sousa <msousa@fe.up.pt>
parents: 262
diff changeset
  1861
70
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  1862
    virtual ~generate_c_resources_c(void) {
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  1863
      delete search_config_instance;
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  1864
      delete search_resource_instance;
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  1865
    }
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  1866
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  1867
    typedef enum {
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  1868
      declare_dt,
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  1869
      init_dt,
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  1870
      run_dt
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  1871
    } declaretype_t;
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  1872
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  1873
    declaretype_t wanted_declaretype;
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  1874
594
c8092e909886 Clean up code (remove parsing of integers in stage 4).
Mario de Sousa <msousa@fe.up.pt>
parents: 592
diff changeset
  1875
    unsigned long long common_ticktime;
70
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  1876
    
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  1877
    const char *current_program_name;
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  1878
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  1879
    typedef enum {
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  1880
      assign_at,
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  1881
      send_at
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  1882
    } assigntype_t;
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  1883
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  1884
    assigntype_t wanted_assigntype;
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  1885
221
c6aed7e5f070 Adding support for flags on Function Block variables for marking which variable must be debugged, retained or is forced
laurent
parents: 217
diff changeset
  1886
    /* the qualifier of variables that need to be processed... */
c6aed7e5f070 Adding support for flags on Function Block variables for marking which variable must be debugged, retained or is forced
laurent
parents: 217
diff changeset
  1887
    static const unsigned int none_vq        = 0x0000;
c6aed7e5f070 Adding support for flags on Function Block variables for marking which variable must be debugged, retained or is forced
laurent
parents: 217
diff changeset
  1888
    static const unsigned int constant_vq    = 0x0001;  // CONSTANT
c6aed7e5f070 Adding support for flags on Function Block variables for marking which variable must be debugged, retained or is forced
laurent
parents: 217
diff changeset
  1889
    static const unsigned int retain_vq      = 0x0002;  // RETAIN
c6aed7e5f070 Adding support for flags on Function Block variables for marking which variable must be debugged, retained or is forced
laurent
parents: 217
diff changeset
  1890
    static const unsigned int non_retain_vq  = 0x0004;  // NON_RETAIN
c6aed7e5f070 Adding support for flags on Function Block variables for marking which variable must be debugged, retained or is forced
laurent
parents: 217
diff changeset
  1891
c6aed7e5f070 Adding support for flags on Function Block variables for marking which variable must be debugged, retained or is forced
laurent
parents: 217
diff changeset
  1892
    /* variable used to store the qualifier of program currently being processed... */
c6aed7e5f070 Adding support for flags on Function Block variables for marking which variable must be debugged, retained or is forced
laurent
parents: 217
diff changeset
  1893
    unsigned int current_varqualifier;
c6aed7e5f070 Adding support for flags on Function Block variables for marking which variable must be debugged, retained or is forced
laurent
parents: 217
diff changeset
  1894
c6aed7e5f070 Adding support for flags on Function Block variables for marking which variable must be debugged, retained or is forced
laurent
parents: 217
diff changeset
  1895
    void *print_retain(void) {
377
60b012b7793f Adding support for compiling direct array specification inside variable declaration
laurent
parents: 355
diff changeset
  1896
      s4o.print(",");
221
c6aed7e5f070 Adding support for flags on Function Block variables for marking which variable must be debugged, retained or is forced
laurent
parents: 217
diff changeset
  1897
      switch (current_varqualifier) {
377
60b012b7793f Adding support for compiling direct array specification inside variable declaration
laurent
parents: 355
diff changeset
  1898
        case retain_vq:
221
c6aed7e5f070 Adding support for flags on Function Block variables for marking which variable must be debugged, retained or is forced
laurent
parents: 217
diff changeset
  1899
          s4o.print("1");
c6aed7e5f070 Adding support for flags on Function Block variables for marking which variable must be debugged, retained or is forced
laurent
parents: 217
diff changeset
  1900
          break;
c6aed7e5f070 Adding support for flags on Function Block variables for marking which variable must be debugged, retained or is forced
laurent
parents: 217
diff changeset
  1901
        case non_retain_vq:
c6aed7e5f070 Adding support for flags on Function Block variables for marking which variable must be debugged, retained or is forced
laurent
parents: 217
diff changeset
  1902
          s4o.print("0");
c6aed7e5f070 Adding support for flags on Function Block variables for marking which variable must be debugged, retained or is forced
laurent
parents: 217
diff changeset
  1903
          break;
377
60b012b7793f Adding support for compiling direct array specification inside variable declaration
laurent
parents: 355
diff changeset
  1904
        default:
60b012b7793f Adding support for compiling direct array specification inside variable declaration
laurent
parents: 355
diff changeset
  1905
          s4o.print("retain");
60b012b7793f Adding support for compiling direct array specification inside variable declaration
laurent
parents: 355
diff changeset
  1906
          break;
221
c6aed7e5f070 Adding support for flags on Function Block variables for marking which variable must be debugged, retained or is forced
laurent
parents: 217
diff changeset
  1907
      }
c6aed7e5f070 Adding support for flags on Function Block variables for marking which variable must be debugged, retained or is forced
laurent
parents: 217
diff changeset
  1908
      return NULL;
c6aed7e5f070 Adding support for flags on Function Block variables for marking which variable must be debugged, retained or is forced
laurent
parents: 217
diff changeset
  1909
    }
c6aed7e5f070 Adding support for flags on Function Block variables for marking which variable must be debugged, retained or is forced
laurent
parents: 217
diff changeset
  1910
396
155560bfe837 Fixing bug with external variables refering to global variables defined in configurations
laurent
parents: 392
diff changeset
  1911
    /*************************/
155560bfe837 Fixing bug with external variables refering to global variables defined in configurations
laurent
parents: 392
diff changeset
  1912
    /* B.1 - Common elements */
155560bfe837 Fixing bug with external variables refering to global variables defined in configurations
laurent
parents: 392
diff changeset
  1913
    /*************************/
155560bfe837 Fixing bug with external variables refering to global variables defined in configurations
laurent
parents: 392
diff changeset
  1914
    /*******************************************/
155560bfe837 Fixing bug with external variables refering to global variables defined in configurations
laurent
parents: 392
diff changeset
  1915
    /* B 1.1 - Letters, digits and identifiers */
155560bfe837 Fixing bug with external variables refering to global variables defined in configurations
laurent
parents: 392
diff changeset
  1916
    /*******************************************/
155560bfe837 Fixing bug with external variables refering to global variables defined in configurations
laurent
parents: 392
diff changeset
  1917
    
155560bfe837 Fixing bug with external variables refering to global variables defined in configurations
laurent
parents: 392
diff changeset
  1918
    void *visit(identifier_c *symbol) {
155560bfe837 Fixing bug with external variables refering to global variables defined in configurations
laurent
parents: 392
diff changeset
  1919
        if (configuration_name)
155560bfe837 Fixing bug with external variables refering to global variables defined in configurations
laurent
parents: 392
diff changeset
  1920
          s4o.print(symbol->value);
155560bfe837 Fixing bug with external variables refering to global variables defined in configurations
laurent
parents: 392
diff changeset
  1921
        else
155560bfe837 Fixing bug with external variables refering to global variables defined in configurations
laurent
parents: 392
diff changeset
  1922
          generate_c_base_c::visit(symbol);
155560bfe837 Fixing bug with external variables refering to global variables defined in configurations
laurent
parents: 392
diff changeset
  1923
        return NULL;
155560bfe837 Fixing bug with external variables refering to global variables defined in configurations
laurent
parents: 392
diff changeset
  1924
    }
267
0a1204bcc9af starting to add proper header file with declaration of standard functions
Mario de Sousa <msousa@fe.up.pt>
parents: 262
diff changeset
  1925
0a1204bcc9af starting to add proper header file with declaration of standard functions
Mario de Sousa <msousa@fe.up.pt>
parents: 262
diff changeset
  1926
    /********************/
0a1204bcc9af starting to add proper header file with declaration of standard functions
Mario de Sousa <msousa@fe.up.pt>
parents: 262
diff changeset
  1927
    /* 2.1.6 - Pragmas  */
0a1204bcc9af starting to add proper header file with declaration of standard functions
Mario de Sousa <msousa@fe.up.pt>
parents: 262
diff changeset
  1928
    /********************/
0a1204bcc9af starting to add proper header file with declaration of standard functions
Mario de Sousa <msousa@fe.up.pt>
parents: 262
diff changeset
  1929
    void *visit(enable_code_generation_pragma_c * symbol)   {s4o_ptr->enable_output();  return NULL;}
0a1204bcc9af starting to add proper header file with declaration of standard functions
Mario de Sousa <msousa@fe.up.pt>
parents: 262
diff changeset
  1930
    void *visit(disable_code_generation_pragma_c * symbol)  {s4o_ptr->disable_output(); return NULL;} 
0a1204bcc9af starting to add proper header file with declaration of standard functions
Mario de Sousa <msousa@fe.up.pt>
parents: 262
diff changeset
  1931
    
0a1204bcc9af starting to add proper header file with declaration of standard functions
Mario de Sousa <msousa@fe.up.pt>
parents: 262
diff changeset
  1932
221
c6aed7e5f070 Adding support for flags on Function Block variables for marking which variable must be debugged, retained or is forced
laurent
parents: 217
diff changeset
  1933
    /******************************************/
c6aed7e5f070 Adding support for flags on Function Block variables for marking which variable must be debugged, retained or is forced
laurent
parents: 217
diff changeset
  1934
    /* B 1.4.3 - Declaration & Initialisation */
c6aed7e5f070 Adding support for flags on Function Block variables for marking which variable must be debugged, retained or is forced
laurent
parents: 217
diff changeset
  1935
    /******************************************/
c6aed7e5f070 Adding support for flags on Function Block variables for marking which variable must be debugged, retained or is forced
laurent
parents: 217
diff changeset
  1936
c6aed7e5f070 Adding support for flags on Function Block variables for marking which variable must be debugged, retained or is forced
laurent
parents: 217
diff changeset
  1937
    void *visit(constant_option_c *symbol) {
c6aed7e5f070 Adding support for flags on Function Block variables for marking which variable must be debugged, retained or is forced
laurent
parents: 217
diff changeset
  1938
      current_varqualifier = constant_vq;
c6aed7e5f070 Adding support for flags on Function Block variables for marking which variable must be debugged, retained or is forced
laurent
parents: 217
diff changeset
  1939
      return NULL;
c6aed7e5f070 Adding support for flags on Function Block variables for marking which variable must be debugged, retained or is forced
laurent
parents: 217
diff changeset
  1940
    }
c6aed7e5f070 Adding support for flags on Function Block variables for marking which variable must be debugged, retained or is forced
laurent
parents: 217
diff changeset
  1941
c6aed7e5f070 Adding support for flags on Function Block variables for marking which variable must be debugged, retained or is forced
laurent
parents: 217
diff changeset
  1942
    void *visit(retain_option_c *symbol) {
c6aed7e5f070 Adding support for flags on Function Block variables for marking which variable must be debugged, retained or is forced
laurent
parents: 217
diff changeset
  1943
      current_varqualifier = retain_vq;
c6aed7e5f070 Adding support for flags on Function Block variables for marking which variable must be debugged, retained or is forced
laurent
parents: 217
diff changeset
  1944
      return NULL;
c6aed7e5f070 Adding support for flags on Function Block variables for marking which variable must be debugged, retained or is forced
laurent
parents: 217
diff changeset
  1945
    }
c6aed7e5f070 Adding support for flags on Function Block variables for marking which variable must be debugged, retained or is forced
laurent
parents: 217
diff changeset
  1946
c6aed7e5f070 Adding support for flags on Function Block variables for marking which variable must be debugged, retained or is forced
laurent
parents: 217
diff changeset
  1947
    void *visit(non_retain_option_c *symbol) {
c6aed7e5f070 Adding support for flags on Function Block variables for marking which variable must be debugged, retained or is forced
laurent
parents: 217
diff changeset
  1948
      current_varqualifier = non_retain_vq;
c6aed7e5f070 Adding support for flags on Function Block variables for marking which variable must be debugged, retained or is forced
laurent
parents: 217
diff changeset
  1949
      return NULL;
c6aed7e5f070 Adding support for flags on Function Block variables for marking which variable must be debugged, retained or is forced
laurent
parents: 217
diff changeset
  1950
    }
c6aed7e5f070 Adding support for flags on Function Block variables for marking which variable must be debugged, retained or is forced
laurent
parents: 217
diff changeset
  1951
396
155560bfe837 Fixing bug with external variables refering to global variables defined in configurations
laurent
parents: 392
diff changeset
  1952
    /********************************/
155560bfe837 Fixing bug with external variables refering to global variables defined in configurations
laurent
parents: 392
diff changeset
  1953
    /* B 1.7 Configuration elements */
155560bfe837 Fixing bug with external variables refering to global variables defined in configurations
laurent
parents: 392
diff changeset
  1954
    /********************************/
155560bfe837 Fixing bug with external variables refering to global variables defined in configurations
laurent
parents: 392
diff changeset
  1955
155560bfe837 Fixing bug with external variables refering to global variables defined in configurations
laurent
parents: 392
diff changeset
  1956
    void *visit(configuration_declaration_c *symbol) {
155560bfe837 Fixing bug with external variables refering to global variables defined in configurations
laurent
parents: 392
diff changeset
  1957
      return symbol->configuration_name->accept(*this);
155560bfe837 Fixing bug with external variables refering to global variables defined in configurations
laurent
parents: 392
diff changeset
  1958
    }
70
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  1959
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  1960
/*
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  1961
RESOURCE resource_name ON resource_type_name
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  1962
   optional_global_var_declarations
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  1963
   single_resource_declaration
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  1964
END_RESOURCE
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  1965
*/
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  1966
// SYM_REF4(resource_declaration_c, resource_name, resource_type_name, global_var_declarations, resource_declaration)
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  1967
    void *visit(resource_declaration_c *symbol) {
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  1968
      current_resource_name = symbol->resource_name;
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  1969
      current_global_vars = symbol->global_var_declarations;
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  1970
      
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  1971
      symbol->resource_declaration->accept(*this);
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  1972
      
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  1973
      current_resource_name = NULL;
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  1974
      current_global_vars = NULL;
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  1975
      return NULL;
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  1976
    }
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  1977
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  1978
/* task_configuration_list program_configuration_list */
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  1979
// SYM_REF2(single_resource_declaration_c, task_configuration_list, program_configuration_list)
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  1980
    void *visit(single_resource_declaration_c *symbol) {
202
da1a8186f86f Initial (very rough) version of semantic checker (stage3)
Catarina Boucinha <ccb@fe.up.pt>
parents: 189
diff changeset
  1981
      bool single_resource = current_resource_name == NULL;
70
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  1982
      if (single_resource)
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  1983
        current_resource_name = new identifier_c("RESOURCE");
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  1984
      generate_c_vardecl_c *vardecl;
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  1985
      
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  1986
      /* Insert the header... */
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  1987
      s4o.print("/*******************************************/\n");
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  1988
      s4o.print("/*     FILE GENERATED BY iec2c             */\n");
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  1989
      s4o.print("/* Editing this file is not recommended... */\n");
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  1990
      s4o.print("/*******************************************/\n\n");
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  1991
      s4o.print("#include \"iec_std_lib.h\"\n\n");
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  1992
      
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  1993
      /* (A) resource declaration... */
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  1994
      /* (A.1) resource name in comment */
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  1995
      s4o.print("// RESOURCE ");
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  1996
      current_resource_name->accept(*this);
120
74640e3c7f53 Bug with D and L action qualifier and timing management in SFC generated fixed
lbessard
parents: 112
diff changeset
  1997
      s4o.print("\n\n");
74640e3c7f53 Bug with D and L action qualifier and timing management in SFC generated fixed
lbessard
parents: 112
diff changeset
  1998
      
237
cece842c7417 Adding support for using arrays in POU interface
laurent
parents: 234
diff changeset
  1999
      s4o.print("extern unsigned long long common_ticktime__;\n\n");
217
f5dfadf5de54 Adding support for declare, init, get and set macros
laurent
parents: 210
diff changeset
  2000
396
155560bfe837 Fixing bug with external variables refering to global variables defined in configurations
laurent
parents: 392
diff changeset
  2001
      s4o.print("#include \"accessor.h\"\n");
397
85151b2f35ca Adding Common_Ticktime to informations printed in VARIABLES.csv file
laurent
parents: 396
diff changeset
  2002
      s4o.print("#include \"POUS.h\"\n\n");
396
155560bfe837 Fixing bug with external variables refering to global variables defined in configurations
laurent
parents: 392
diff changeset
  2003
      s4o.print("#include \"");
155560bfe837 Fixing bug with external variables refering to global variables defined in configurations
laurent
parents: 392
diff changeset
  2004
      configuration_name = true;
155560bfe837 Fixing bug with external variables refering to global variables defined in configurations
laurent
parents: 392
diff changeset
  2005
      current_configuration->accept(*this);
155560bfe837 Fixing bug with external variables refering to global variables defined in configurations
laurent
parents: 392
diff changeset
  2006
      configuration_name = false;
155560bfe837 Fixing bug with external variables refering to global variables defined in configurations
laurent
parents: 392
diff changeset
  2007
      s4o.print(".h\"\n");
217
f5dfadf5de54 Adding support for declare, init, get and set macros
laurent
parents: 210
diff changeset
  2008
70
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  2009
      /* (A.2) Global variables... */
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  2010
      if (current_global_vars != NULL) {
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  2011
        vardecl = new generate_c_vardecl_c(&s4o,
202
da1a8186f86f Initial (very rough) version of semantic checker (stage3)
Catarina Boucinha <ccb@fe.up.pt>
parents: 189
diff changeset
  2012
                                           generate_c_vardecl_c::local_vf,
da1a8186f86f Initial (very rough) version of semantic checker (stage3)
Catarina Boucinha <ccb@fe.up.pt>
parents: 189
diff changeset
  2013
                                           generate_c_vardecl_c::global_vt,
da1a8186f86f Initial (very rough) version of semantic checker (stage3)
Catarina Boucinha <ccb@fe.up.pt>
parents: 189
diff changeset
  2014
                                           current_resource_name);
70
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  2015
        vardecl->print(current_global_vars);
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  2016
        delete vardecl;
120
74640e3c7f53 Bug with D and L action qualifier and timing management in SFC generated fixed
lbessard
parents: 112
diff changeset
  2017
        s4o.print("\n");
70
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  2018
      }
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  2019
      
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  2020
      /* (A.3) POUs inclusion */
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  2021
      s4o.print("#include \"POUS.c\"\n\n");
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  2022
      
184
16495e10f69a Adding support for single resource scheduling
lbessard
parents: 181
diff changeset
  2023
      wanted_declaretype = declare_dt;
16495e10f69a Adding support for single resource scheduling
lbessard
parents: 181
diff changeset
  2024
      
70
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  2025
      /* (A.4) Resource programs declaration... */
184
16495e10f69a Adding support for single resource scheduling
lbessard
parents: 181
diff changeset
  2026
      symbol->task_configuration_list->accept(*this);
16495e10f69a Adding support for single resource scheduling
lbessard
parents: 181
diff changeset
  2027
      
16495e10f69a Adding support for single resource scheduling
lbessard
parents: 181
diff changeset
  2028
      /* (A.5) Resource programs declaration... */
70
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  2029
      symbol->program_configuration_list->accept(*this);
184
16495e10f69a Adding support for single resource scheduling
lbessard
parents: 181
diff changeset
  2030
      
70
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  2031
      s4o.print("\n");
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  2032
      
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  2033
      /* (B) resource initialisation function... */
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  2034
      /* (B.1) initialisation function name... */
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  2035
      s4o.print("void ");
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  2036
      current_resource_name->accept(*this);
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  2037
      s4o.print(FB_INIT_SUFFIX);
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  2038
      s4o.print("(void) {\n");
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  2039
      s4o.indent_right();
221
c6aed7e5f070 Adding support for flags on Function Block variables for marking which variable must be debugged, retained or is forced
laurent
parents: 217
diff changeset
  2040
      s4o.print(s4o.indent_spaces);
255
86ef2244aef1 Modify code generated for avoiding warning while compiling when configuration or resource don't have any global variable
laurent
parents: 250
diff changeset
  2041
      s4o.print("BOOL retain;\n");
86ef2244aef1 Modify code generated for avoiding warning while compiling when configuration or resource don't have any global variable
laurent
parents: 250
diff changeset
  2042
      s4o.print(s4o.indent_spaces);
86ef2244aef1 Modify code generated for avoiding warning while compiling when configuration or resource don't have any global variable
laurent
parents: 250
diff changeset
  2043
      s4o.print("retain = 0;\n");
70
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  2044
      
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  2045
      /* (B.2) Global variables initialisations... */
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  2046
      if (current_global_vars != NULL) {
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  2047
        s4o.print(s4o.indent_spaces);
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  2048
        vardecl = new generate_c_vardecl_c(&s4o,
202
da1a8186f86f Initial (very rough) version of semantic checker (stage3)
Catarina Boucinha <ccb@fe.up.pt>
parents: 189
diff changeset
  2049
                                           generate_c_vardecl_c::constructorinit_vf,
241
0ba6d614573e Bug with code generation of global located variables in resource fixed thanks to Mario
laurent
parents: 237
diff changeset
  2050
                                           generate_c_vardecl_c::global_vt,
0ba6d614573e Bug with code generation of global located variables in resource fixed thanks to Mario
laurent
parents: 237
diff changeset
  2051
                                           current_resource_name);
70
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  2052
        vardecl->print(current_global_vars);
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  2053
        delete vardecl;
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  2054
      }
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  2055
      s4o.print("\n");
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  2056
      
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  2057
      wanted_declaretype = init_dt;
184
16495e10f69a Adding support for single resource scheduling
lbessard
parents: 181
diff changeset
  2058
      
16495e10f69a Adding support for single resource scheduling
lbessard
parents: 181
diff changeset
  2059
      /* (B.3) Tasks initialisations... */
16495e10f69a Adding support for single resource scheduling
lbessard
parents: 181
diff changeset
  2060
      symbol->task_configuration_list->accept(*this);
16495e10f69a Adding support for single resource scheduling
lbessard
parents: 181
diff changeset
  2061
      
16495e10f69a Adding support for single resource scheduling
lbessard
parents: 181
diff changeset
  2062
      /* (B.4) Resource programs initialisations... */
70
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  2063
      symbol->program_configuration_list->accept(*this);
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  2064
      
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  2065
      s4o.indent_left();
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  2066
      s4o.print("}\n\n");
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  2067
      
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  2068
      /* (C) Resource run function... */
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  2069
      /* (C.1) Run function name... */
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  2070
      s4o.print("void ");
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  2071
      current_resource_name->accept(*this);
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  2072
      s4o.print(FB_RUN_SUFFIX);
210
8387cac2aba6 Adding support for forcing tick count to return to zero as the same time than all tasks firing are synchronized
laurent
parents: 202
diff changeset
  2073
      s4o.print("(unsigned long tick) {\n");
70
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  2074
      s4o.indent_right();
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  2075
      
184
16495e10f69a Adding support for single resource scheduling
lbessard
parents: 181
diff changeset
  2076
      wanted_declaretype = run_dt;
16495e10f69a Adding support for single resource scheduling
lbessard
parents: 181
diff changeset
  2077
      
70
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  2078
      /* (C.2) Task management... */
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  2079
      symbol->task_configuration_list->accept(*this);
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  2080
      
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  2081
      /* (C.3) Program run declaration... */
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  2082
      symbol->program_configuration_list->accept(*this);
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  2083
      
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  2084
      s4o.indent_left();
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  2085
      s4o.print("}\n\n");
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  2086
      
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  2087
      if (single_resource) {
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  2088
        delete current_resource_name;
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  2089
        current_resource_name = NULL;
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  2090
      }
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  2091
      return NULL;
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  2092
    }
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  2093
    
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  2094
/*  PROGRAM [RETAIN | NON_RETAIN] program_name [WITH task_name] ':' program_type_name ['(' prog_conf_elements ')'] */
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  2095
//SYM_REF6(program_configuration_c, retain_option, program_name, task_name, program_type_name, prog_conf_elements, unused)
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  2096
    void *visit(program_configuration_c *symbol) {
184
16495e10f69a Adding support for single resource scheduling
lbessard
parents: 181
diff changeset
  2097
      switch (wanted_declaretype) {
16495e10f69a Adding support for single resource scheduling
lbessard
parents: 181
diff changeset
  2098
        case declare_dt:
70
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  2099
          s4o.print(s4o.indent_spaces);
184
16495e10f69a Adding support for single resource scheduling
lbessard
parents: 181
diff changeset
  2100
          symbol->program_type_name->accept(*this);
16495e10f69a Adding support for single resource scheduling
lbessard
parents: 181
diff changeset
  2101
          s4o.print(" ");
16495e10f69a Adding support for single resource scheduling
lbessard
parents: 181
diff changeset
  2102
          current_resource_name->accept(*this);
16495e10f69a Adding support for single resource scheduling
lbessard
parents: 181
diff changeset
  2103
          s4o.print("__");
16495e10f69a Adding support for single resource scheduling
lbessard
parents: 181
diff changeset
  2104
          symbol->program_name->accept(*this);
16495e10f69a Adding support for single resource scheduling
lbessard
parents: 181
diff changeset
  2105
          s4o.print(";\n#define ");
16495e10f69a Adding support for single resource scheduling
lbessard
parents: 181
diff changeset
  2106
          symbol->program_name->accept(*this);
16495e10f69a Adding support for single resource scheduling
lbessard
parents: 181
diff changeset
  2107
          s4o.print(" ");
16495e10f69a Adding support for single resource scheduling
lbessard
parents: 181
diff changeset
  2108
          current_resource_name->accept(*this);
16495e10f69a Adding support for single resource scheduling
lbessard
parents: 181
diff changeset
  2109
          s4o.print("__");
16495e10f69a Adding support for single resource scheduling
lbessard
parents: 181
diff changeset
  2110
          symbol->program_name->accept(*this);
16495e10f69a Adding support for single resource scheduling
lbessard
parents: 181
diff changeset
  2111
          s4o.print("\n");
16495e10f69a Adding support for single resource scheduling
lbessard
parents: 181
diff changeset
  2112
          break;
16495e10f69a Adding support for single resource scheduling
lbessard
parents: 181
diff changeset
  2113
        case init_dt:
221
c6aed7e5f070 Adding support for flags on Function Block variables for marking which variable must be debugged, retained or is forced
laurent
parents: 217
diff changeset
  2114
          if (symbol->retain_option != NULL)
377
60b012b7793f Adding support for compiling direct array specification inside variable declaration
laurent
parents: 355
diff changeset
  2115
            symbol->retain_option->accept(*this);
184
16495e10f69a Adding support for single resource scheduling
lbessard
parents: 181
diff changeset
  2116
          s4o.print(s4o.indent_spaces);
16495e10f69a Adding support for single resource scheduling
lbessard
parents: 181
diff changeset
  2117
          symbol->program_type_name->accept(*this);
16495e10f69a Adding support for single resource scheduling
lbessard
parents: 181
diff changeset
  2118
          s4o.print(FB_INIT_SUFFIX);
16495e10f69a Adding support for single resource scheduling
lbessard
parents: 181
diff changeset
  2119
          s4o.print("(&");
16495e10f69a Adding support for single resource scheduling
lbessard
parents: 181
diff changeset
  2120
          symbol->program_name->accept(*this);
221
c6aed7e5f070 Adding support for flags on Function Block variables for marking which variable must be debugged, retained or is forced
laurent
parents: 217
diff changeset
  2121
          print_retain();
184
16495e10f69a Adding support for single resource scheduling
lbessard
parents: 181
diff changeset
  2122
          s4o.print(");\n");
16495e10f69a Adding support for single resource scheduling
lbessard
parents: 181
diff changeset
  2123
          break;
16495e10f69a Adding support for single resource scheduling
lbessard
parents: 181
diff changeset
  2124
        case run_dt:
16495e10f69a Adding support for single resource scheduling
lbessard
parents: 181
diff changeset
  2125
          current_program_name = ((identifier_c*)(symbol->program_name))->value;
16495e10f69a Adding support for single resource scheduling
lbessard
parents: 181
diff changeset
  2126
          if (symbol->task_name != NULL) {
16495e10f69a Adding support for single resource scheduling
lbessard
parents: 181
diff changeset
  2127
            s4o.print(s4o.indent_spaces);
16495e10f69a Adding support for single resource scheduling
lbessard
parents: 181
diff changeset
  2128
            s4o.print("if (");
16495e10f69a Adding support for single resource scheduling
lbessard
parents: 181
diff changeset
  2129
            symbol->task_name->accept(*this);
16495e10f69a Adding support for single resource scheduling
lbessard
parents: 181
diff changeset
  2130
            s4o.print(") {\n");
16495e10f69a Adding support for single resource scheduling
lbessard
parents: 181
diff changeset
  2131
            s4o.indent_right(); 
16495e10f69a Adding support for single resource scheduling
lbessard
parents: 181
diff changeset
  2132
          }
70
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  2133
        
184
16495e10f69a Adding support for single resource scheduling
lbessard
parents: 181
diff changeset
  2134
          wanted_assigntype = assign_at;
16495e10f69a Adding support for single resource scheduling
lbessard
parents: 181
diff changeset
  2135
          if (symbol->prog_conf_elements != NULL)
16495e10f69a Adding support for single resource scheduling
lbessard
parents: 181
diff changeset
  2136
            symbol->prog_conf_elements->accept(*this);
16495e10f69a Adding support for single resource scheduling
lbessard
parents: 181
diff changeset
  2137
          
16495e10f69a Adding support for single resource scheduling
lbessard
parents: 181
diff changeset
  2138
          s4o.print(s4o.indent_spaces);
16495e10f69a Adding support for single resource scheduling
lbessard
parents: 181
diff changeset
  2139
          symbol->program_type_name->accept(*this);
16495e10f69a Adding support for single resource scheduling
lbessard
parents: 181
diff changeset
  2140
          s4o.print(FB_FUNCTION_SUFFIX);
16495e10f69a Adding support for single resource scheduling
lbessard
parents: 181
diff changeset
  2141
          s4o.print("(&");
16495e10f69a Adding support for single resource scheduling
lbessard
parents: 181
diff changeset
  2142
          symbol->program_name->accept(*this);
16495e10f69a Adding support for single resource scheduling
lbessard
parents: 181
diff changeset
  2143
          s4o.print(");\n");
16495e10f69a Adding support for single resource scheduling
lbessard
parents: 181
diff changeset
  2144
          
16495e10f69a Adding support for single resource scheduling
lbessard
parents: 181
diff changeset
  2145
          wanted_assigntype = send_at;
16495e10f69a Adding support for single resource scheduling
lbessard
parents: 181
diff changeset
  2146
          if (symbol->prog_conf_elements != NULL)
16495e10f69a Adding support for single resource scheduling
lbessard
parents: 181
diff changeset
  2147
            symbol->prog_conf_elements->accept(*this);
16495e10f69a Adding support for single resource scheduling
lbessard
parents: 181
diff changeset
  2148
          
16495e10f69a Adding support for single resource scheduling
lbessard
parents: 181
diff changeset
  2149
          if (symbol->task_name != NULL) {
16495e10f69a Adding support for single resource scheduling
lbessard
parents: 181
diff changeset
  2150
            s4o.indent_left();
16495e10f69a Adding support for single resource scheduling
lbessard
parents: 181
diff changeset
  2151
            s4o.print(s4o.indent_spaces + "}\n");
16495e10f69a Adding support for single resource scheduling
lbessard
parents: 181
diff changeset
  2152
          }
16495e10f69a Adding support for single resource scheduling
lbessard
parents: 181
diff changeset
  2153
          break;
16495e10f69a Adding support for single resource scheduling
lbessard
parents: 181
diff changeset
  2154
        default:
16495e10f69a Adding support for single resource scheduling
lbessard
parents: 181
diff changeset
  2155
          break;
70
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  2156
      }
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  2157
      return NULL;
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  2158
    }
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  2159
    
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  2160
/*  TASK task_name task_initialization */
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  2161
//SYM_REF2(task_configuration_c, task_name, task_initialization)
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  2162
    void *visit(task_configuration_c *symbol) {
184
16495e10f69a Adding support for single resource scheduling
lbessard
parents: 181
diff changeset
  2163
      current_task_name = symbol->task_name;
16495e10f69a Adding support for single resource scheduling
lbessard
parents: 181
diff changeset
  2164
      switch (wanted_declaretype) {
16495e10f69a Adding support for single resource scheduling
lbessard
parents: 181
diff changeset
  2165
        case declare_dt:
16495e10f69a Adding support for single resource scheduling
lbessard
parents: 181
diff changeset
  2166
          s4o.print(s4o.indent_spaces + "BOOL ");
16495e10f69a Adding support for single resource scheduling
lbessard
parents: 181
diff changeset
  2167
          current_task_name->accept(*this);
16495e10f69a Adding support for single resource scheduling
lbessard
parents: 181
diff changeset
  2168
          s4o.print(";\n");
16495e10f69a Adding support for single resource scheduling
lbessard
parents: 181
diff changeset
  2169
          symbol->task_initialization->accept(*this);
16495e10f69a Adding support for single resource scheduling
lbessard
parents: 181
diff changeset
  2170
          break;
16495e10f69a Adding support for single resource scheduling
lbessard
parents: 181
diff changeset
  2171
        case init_dt:
16495e10f69a Adding support for single resource scheduling
lbessard
parents: 181
diff changeset
  2172
          s4o.print(s4o.indent_spaces);
16495e10f69a Adding support for single resource scheduling
lbessard
parents: 181
diff changeset
  2173
          current_task_name->accept(*this);
16495e10f69a Adding support for single resource scheduling
lbessard
parents: 181
diff changeset
  2174
          s4o.print(" = __BOOL_LITERAL(FALSE);\n");
16495e10f69a Adding support for single resource scheduling
lbessard
parents: 181
diff changeset
  2175
          symbol->task_initialization->accept(*this);
16495e10f69a Adding support for single resource scheduling
lbessard
parents: 181
diff changeset
  2176
          break;
16495e10f69a Adding support for single resource scheduling
lbessard
parents: 181
diff changeset
  2177
        case run_dt:
16495e10f69a Adding support for single resource scheduling
lbessard
parents: 181
diff changeset
  2178
          symbol->task_initialization->accept(*this);
16495e10f69a Adding support for single resource scheduling
lbessard
parents: 181
diff changeset
  2179
          break;
16495e10f69a Adding support for single resource scheduling
lbessard
parents: 181
diff changeset
  2180
        default:
16495e10f69a Adding support for single resource scheduling
lbessard
parents: 181
diff changeset
  2181
          break;
16495e10f69a Adding support for single resource scheduling
lbessard
parents: 181
diff changeset
  2182
      }
16495e10f69a Adding support for single resource scheduling
lbessard
parents: 181
diff changeset
  2183
      current_task_name = NULL;
70
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  2184
      return NULL;
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  2185
    }
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  2186
    
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  2187
/*  '(' [SINGLE ASSIGN data_source ','] [INTERVAL ASSIGN data_source ','] PRIORITY ASSIGN integer ')' */
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  2188
//SYM_REF4(task_initialization_c, single_data_source, interval_data_source, priority_data_source, unused)
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  2189
    void *visit(task_initialization_c *symbol) {
184
16495e10f69a Adding support for single resource scheduling
lbessard
parents: 181
diff changeset
  2190
      switch (wanted_declaretype) {
16495e10f69a Adding support for single resource scheduling
lbessard
parents: 181
diff changeset
  2191
        case declare_dt:
16495e10f69a Adding support for single resource scheduling
lbessard
parents: 181
diff changeset
  2192
          if (symbol->single_data_source != NULL) {
16495e10f69a Adding support for single resource scheduling
lbessard
parents: 181
diff changeset
  2193
            s4o.print(s4o.indent_spaces + "R_TRIG ");
16495e10f69a Adding support for single resource scheduling
lbessard
parents: 181
diff changeset
  2194
            current_task_name->accept(*this);
16495e10f69a Adding support for single resource scheduling
lbessard
parents: 181
diff changeset
  2195
            s4o.print("_R_TRIG;\n");
16495e10f69a Adding support for single resource scheduling
lbessard
parents: 181
diff changeset
  2196
          }
16495e10f69a Adding support for single resource scheduling
lbessard
parents: 181
diff changeset
  2197
          break;
16495e10f69a Adding support for single resource scheduling
lbessard
parents: 181
diff changeset
  2198
        case init_dt:
16495e10f69a Adding support for single resource scheduling
lbessard
parents: 181
diff changeset
  2199
          if (symbol->single_data_source != NULL) {
16495e10f69a Adding support for single resource scheduling
lbessard
parents: 181
diff changeset
  2200
            s4o.print(s4o.indent_spaces + "R_TRIG");
16495e10f69a Adding support for single resource scheduling
lbessard
parents: 181
diff changeset
  2201
            s4o.print(FB_INIT_SUFFIX);
16495e10f69a Adding support for single resource scheduling
lbessard
parents: 181
diff changeset
  2202
            s4o.print("(&");
16495e10f69a Adding support for single resource scheduling
lbessard
parents: 181
diff changeset
  2203
            current_task_name->accept(*this);
248
9cb18ec14fa2 Task single parameter code generation broken after addition of accessors fixed.
laurent
parents: 244
diff changeset
  2204
            s4o.print("_R_TRIG, retain);\n");
184
16495e10f69a Adding support for single resource scheduling
lbessard
parents: 181
diff changeset
  2205
          }
16495e10f69a Adding support for single resource scheduling
lbessard
parents: 181
diff changeset
  2206
          break;
16495e10f69a Adding support for single resource scheduling
lbessard
parents: 181
diff changeset
  2207
        case run_dt:
16495e10f69a Adding support for single resource scheduling
lbessard
parents: 181
diff changeset
  2208
          if (symbol->single_data_source != NULL) {
16495e10f69a Adding support for single resource scheduling
lbessard
parents: 181
diff changeset
  2209
            symbol_c *config_var_decl = NULL;
16495e10f69a Adding support for single resource scheduling
lbessard
parents: 181
diff changeset
  2210
            symbol_c *res_var_decl = NULL;
392
9b88b8b6bccd Fixing generated code for global variables. Adding support for defining global variables with complex type
laurent
parents: 381
diff changeset
  2211
            s4o.print(s4o.indent_spaces + "{");
184
16495e10f69a Adding support for single resource scheduling
lbessard
parents: 181
diff changeset
  2212
            symbol_c *current_var_reference = ((global_var_reference_c *)(symbol->single_data_source))->global_var_name;
16495e10f69a Adding support for single resource scheduling
lbessard
parents: 181
diff changeset
  2213
            res_var_decl = search_resource_instance->get_decl(current_var_reference);
16495e10f69a Adding support for single resource scheduling
lbessard
parents: 181
diff changeset
  2214
            if (res_var_decl == NULL) {
16495e10f69a Adding support for single resource scheduling
lbessard
parents: 181
diff changeset
  2215
              config_var_decl = search_config_instance->get_decl(current_var_reference);
16495e10f69a Adding support for single resource scheduling
lbessard
parents: 181
diff changeset
  2216
              if (config_var_decl == NULL)
16495e10f69a Adding support for single resource scheduling
lbessard
parents: 181
diff changeset
  2217
                ERROR;
16495e10f69a Adding support for single resource scheduling
lbessard
parents: 181
diff changeset
  2218
              config_var_decl->accept(*this);
16495e10f69a Adding support for single resource scheduling
lbessard
parents: 181
diff changeset
  2219
            }
248
9cb18ec14fa2 Task single parameter code generation broken after addition of accessors fixed.
laurent
parents: 244
diff changeset
  2220
            else {
392
9b88b8b6bccd Fixing generated code for global variables. Adding support for defining global variables with complex type
laurent
parents: 381
diff changeset
  2221
              res_var_decl->accept(*this);
248
9cb18ec14fa2 Task single parameter code generation broken after addition of accessors fixed.
laurent
parents: 244
diff changeset
  2222
            }
392
9b88b8b6bccd Fixing generated code for global variables. Adding support for defining global variables with complex type
laurent
parents: 381
diff changeset
  2223
            s4o.print("* ");
9b88b8b6bccd Fixing generated code for global variables. Adding support for defining global variables with complex type
laurent
parents: 381
diff changeset
  2224
            symbol->single_data_source->accept(*this);
9b88b8b6bccd Fixing generated code for global variables. Adding support for defining global variables with complex type
laurent
parents: 381
diff changeset
  2225
            s4o.print(" = __GET_GLOBAL_");
9b88b8b6bccd Fixing generated code for global variables. Adding support for defining global variables with complex type
laurent
parents: 381
diff changeset
  2226
            symbol->single_data_source->accept(*this);
9b88b8b6bccd Fixing generated code for global variables. Adding support for defining global variables with complex type
laurent
parents: 381
diff changeset
  2227
            s4o.print("();");
248
9cb18ec14fa2 Task single parameter code generation broken after addition of accessors fixed.
laurent
parents: 244
diff changeset
  2228
            s4o.print(SET_VAR);
9cb18ec14fa2 Task single parameter code generation broken after addition of accessors fixed.
laurent
parents: 244
diff changeset
  2229
            s4o.print("(");
184
16495e10f69a Adding support for single resource scheduling
lbessard
parents: 181
diff changeset
  2230
            current_task_name->accept(*this);
392
9b88b8b6bccd Fixing generated code for global variables. Adding support for defining global variables with complex type
laurent
parents: 381
diff changeset
  2231
            s4o.print("_R_TRIG.,CLK, *");
184
16495e10f69a Adding support for single resource scheduling
lbessard
parents: 181
diff changeset
  2232
            symbol->single_data_source->accept(*this);
392
9b88b8b6bccd Fixing generated code for global variables. Adding support for defining global variables with complex type
laurent
parents: 381
diff changeset
  2233
            s4o.print(");}\n");
184
16495e10f69a Adding support for single resource scheduling
lbessard
parents: 181
diff changeset
  2234
            s4o.print(s4o.indent_spaces + "R_TRIG");
16495e10f69a Adding support for single resource scheduling
lbessard
parents: 181
diff changeset
  2235
            s4o.print(FB_FUNCTION_SUFFIX);
16495e10f69a Adding support for single resource scheduling
lbessard
parents: 181
diff changeset
  2236
            s4o.print("(&");
16495e10f69a Adding support for single resource scheduling
lbessard
parents: 181
diff changeset
  2237
            current_task_name->accept(*this);
16495e10f69a Adding support for single resource scheduling
lbessard
parents: 181
diff changeset
  2238
            s4o.print("_R_TRIG);\n");
16495e10f69a Adding support for single resource scheduling
lbessard
parents: 181
diff changeset
  2239
            s4o.print(s4o.indent_spaces);
16495e10f69a Adding support for single resource scheduling
lbessard
parents: 181
diff changeset
  2240
            current_task_name->accept(*this);
16495e10f69a Adding support for single resource scheduling
lbessard
parents: 181
diff changeset
  2241
            s4o.print(" = ");
248
9cb18ec14fa2 Task single parameter code generation broken after addition of accessors fixed.
laurent
parents: 244
diff changeset
  2242
            s4o.print(GET_VAR);
9cb18ec14fa2 Task single parameter code generation broken after addition of accessors fixed.
laurent
parents: 244
diff changeset
  2243
            s4o.print("(");
184
16495e10f69a Adding support for single resource scheduling
lbessard
parents: 181
diff changeset
  2244
            current_task_name->accept(*this);
248
9cb18ec14fa2 Task single parameter code generation broken after addition of accessors fixed.
laurent
parents: 244
diff changeset
  2245
            s4o.print("_R_TRIG.Q)");
184
16495e10f69a Adding support for single resource scheduling
lbessard
parents: 181
diff changeset
  2246
          }
16495e10f69a Adding support for single resource scheduling
lbessard
parents: 181
diff changeset
  2247
          else {
16495e10f69a Adding support for single resource scheduling
lbessard
parents: 181
diff changeset
  2248
            s4o.print(s4o.indent_spaces);
16495e10f69a Adding support for single resource scheduling
lbessard
parents: 181
diff changeset
  2249
            current_task_name->accept(*this);
16495e10f69a Adding support for single resource scheduling
lbessard
parents: 181
diff changeset
  2250
            s4o.print(" = ");
16495e10f69a Adding support for single resource scheduling
lbessard
parents: 181
diff changeset
  2251
            if (symbol->interval_data_source != NULL) {
594
c8092e909886 Clean up code (remove parsing of integers in stage 4).
Mario de Sousa <msousa@fe.up.pt>
parents: 592
diff changeset
  2252
              unsigned long long int time = calculate_time(symbol->interval_data_source);
184
16495e10f69a Adding support for single resource scheduling
lbessard
parents: 181
diff changeset
  2253
              if (time != 0) {
16495e10f69a Adding support for single resource scheduling
lbessard
parents: 181
diff changeset
  2254
                s4o.print("!(tick % ");
594
c8092e909886 Clean up code (remove parsing of integers in stage 4).
Mario de Sousa <msousa@fe.up.pt>
parents: 592
diff changeset
  2255
                s4o.print(time / common_ticktime);
184
16495e10f69a Adding support for single resource scheduling
lbessard
parents: 181
diff changeset
  2256
                s4o.print(")");
16495e10f69a Adding support for single resource scheduling
lbessard
parents: 181
diff changeset
  2257
              }
16495e10f69a Adding support for single resource scheduling
lbessard
parents: 181
diff changeset
  2258
              else
16495e10f69a Adding support for single resource scheduling
lbessard
parents: 181
diff changeset
  2259
                s4o.print("1");
16495e10f69a Adding support for single resource scheduling
lbessard
parents: 181
diff changeset
  2260
            }
16495e10f69a Adding support for single resource scheduling
lbessard
parents: 181
diff changeset
  2261
            else 
16495e10f69a Adding support for single resource scheduling
lbessard
parents: 181
diff changeset
  2262
              s4o.print("1");
16495e10f69a Adding support for single resource scheduling
lbessard
parents: 181
diff changeset
  2263
          }
16495e10f69a Adding support for single resource scheduling
lbessard
parents: 181
diff changeset
  2264
          s4o.print(";\n");
16495e10f69a Adding support for single resource scheduling
lbessard
parents: 181
diff changeset
  2265
          break;
16495e10f69a Adding support for single resource scheduling
lbessard
parents: 181
diff changeset
  2266
        default:
16495e10f69a Adding support for single resource scheduling
lbessard
parents: 181
diff changeset
  2267
          break;
70
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  2268
      }
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  2269
      return NULL;
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  2270
    }
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  2271
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  2272
/*  any_symbolic_variable ASSIGN prog_data_source */
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  2273
//SYM_REF2(prog_cnxn_assign_c, symbolic_variable, prog_data_source)
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  2274
    void *visit(prog_cnxn_assign_c *symbol) {
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  2275
      if (wanted_assigntype == assign_at) {
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  2276
        symbol_c *var_decl;
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  2277
        unsigned int vartype = 0;
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  2278
        symbol_c *current_var_reference = ((global_var_reference_c *)(symbol->prog_data_source))->global_var_name;
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  2279
        var_decl = search_resource_instance->get_decl(current_var_reference);
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  2280
        if (var_decl == NULL) {
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  2281
          var_decl = search_config_instance->get_decl(current_var_reference);
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  2282
          if (var_decl == NULL)
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  2283
            ERROR;
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  2284
          else
417
d48f53715f77 Re-write of stage3 code (done by Manuele and I), re-write of search_varfb_instance_type_c (done by myself), and several other bug fixes.
Mario de Sousa <msousa@fe.up.pt>
parents: 397
diff changeset
  2285
            vartype = search_config_instance->get_vartype(current_var_reference);
70
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  2286
        }
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  2287
        else
417
d48f53715f77 Re-write of stage3 code (done by Manuele and I), re-write of search_varfb_instance_type_c (done by myself), and several other bug fixes.
Mario de Sousa <msousa@fe.up.pt>
parents: 397
diff changeset
  2288
          vartype = search_resource_instance->get_vartype(current_var_reference);
70
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  2289
        
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  2290
        s4o.print(s4o.indent_spaces + "{extern ");
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  2291
        var_decl->accept(*this);
202
da1a8186f86f Initial (very rough) version of semantic checker (stage3)
Catarina Boucinha <ccb@fe.up.pt>
parents: 189
diff changeset
  2292
        s4o.print(" *");
70
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  2293
        symbol->prog_data_source->accept(*this);
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  2294
        s4o.print("; ");
202
da1a8186f86f Initial (very rough) version of semantic checker (stage3)
Catarina Boucinha <ccb@fe.up.pt>
parents: 189
diff changeset
  2295
        s4o.printupper(current_program_name);
70
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  2296
        s4o.print(".");
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  2297
        symbol->symbolic_variable->accept(*this);
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  2298
        s4o.print(" = ");
506
2b4e69c7ff8b Fix typo in comparison expression.
Mario de Sousa <msousa@fe.up.pt>
parents: 498
diff changeset
  2299
        if (vartype == search_var_instance_decl_c::global_vt)
70
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  2300
          s4o.print("*");
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  2301
        symbol->prog_data_source->accept(*this);
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  2302
        s4o.print(";}\n");
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  2303
      }
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  2304
      return NULL;
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  2305
    }
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  2306
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  2307
/* any_symbolic_variable SENDTO data_sink */
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  2308
//SYM_REF2(prog_cnxn_sendto_c, symbolic_variable, data_sink)
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  2309
    void *visit(prog_cnxn_sendto_c *symbol) {
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  2310
      if (wanted_assigntype == send_at) {
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  2311
        symbol_c *var_decl;
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  2312
        unsigned int vartype = 0;
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  2313
        symbol_c *current_var_reference = ((global_var_reference_c *)(symbol->data_sink))->global_var_name;
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  2314
        var_decl = search_resource_instance->get_decl(current_var_reference);
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  2315
        if (var_decl == NULL) {
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  2316
          var_decl = search_config_instance->get_decl(current_var_reference);
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  2317
          if (var_decl == NULL)
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  2318
            ERROR;
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  2319
          else
417
d48f53715f77 Re-write of stage3 code (done by Manuele and I), re-write of search_varfb_instance_type_c (done by myself), and several other bug fixes.
Mario de Sousa <msousa@fe.up.pt>
parents: 397
diff changeset
  2320
            vartype = search_config_instance->get_vartype(current_var_reference);
70
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  2321
        }
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  2322
        else
417
d48f53715f77 Re-write of stage3 code (done by Manuele and I), re-write of search_varfb_instance_type_c (done by myself), and several other bug fixes.
Mario de Sousa <msousa@fe.up.pt>
parents: 397
diff changeset
  2323
          vartype = search_resource_instance->get_vartype(current_var_reference);
70
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  2324
        
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  2325
        s4o.print(s4o.indent_spaces + "{extern ");
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  2326
        var_decl->accept(*this);
202
da1a8186f86f Initial (very rough) version of semantic checker (stage3)
Catarina Boucinha <ccb@fe.up.pt>
parents: 189
diff changeset
  2327
        s4o.print(" *");
70
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  2328
        symbol->data_sink->accept(*this);
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  2329
        s4o.print("; ");
506
2b4e69c7ff8b Fix typo in comparison expression.
Mario de Sousa <msousa@fe.up.pt>
parents: 498
diff changeset
  2330
        if (vartype == search_var_instance_decl_c::global_vt)
70
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  2331
          s4o.print("*");
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  2332
        symbol->data_sink->accept(*this);
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  2333
        s4o.print(" = ");
202
da1a8186f86f Initial (very rough) version of semantic checker (stage3)
Catarina Boucinha <ccb@fe.up.pt>
parents: 189
diff changeset
  2334
        s4o.printupper(current_program_name);
70
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  2335
        s4o.print(".");
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  2336
        symbol->symbolic_variable->accept(*this);
202
da1a8186f86f Initial (very rough) version of semantic checker (stage3)
Catarina Boucinha <ccb@fe.up.pt>
parents: 189
diff changeset
  2337
        s4o.print(";};\n");
70
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  2338
      }
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  2339
      return NULL;
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  2340
    }
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  2341
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  2342
};
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  2343
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  2344
/***********************************************************************/
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  2345
/***********************************************************************/
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  2346
/***********************************************************************/
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  2347
/***********************************************************************/
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  2348
/***********************************************************************/
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  2349
/***********************************************************************/
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  2350
/***********************************************************************/
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  2351
/***********************************************************************/
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  2352
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  2353
class generate_c_c: public iterator_visitor_c {
377
60b012b7793f Adding support for compiling direct array specification inside variable declaration
laurent
parents: 355
diff changeset
  2354
  public:
60b012b7793f Adding support for compiling direct array specification inside variable declaration
laurent
parents: 355
diff changeset
  2355
    typedef enum {
60b012b7793f Adding support for compiling direct array specification inside variable declaration
laurent
parents: 355
diff changeset
  2356
      none_gm,
60b012b7793f Adding support for compiling direct array specification inside variable declaration
laurent
parents: 355
diff changeset
  2357
      datatypes_gm,
661
f537c3315f83 Minor changes needed to build with pedantic flag.
Manuele Conti <conti.ma@alice.it>
parents: 624
diff changeset
  2358
      pous_gm
377
60b012b7793f Adding support for compiling direct array specification inside variable declaration
laurent
parents: 355
diff changeset
  2359
    } generate_mode_t;
60b012b7793f Adding support for compiling direct array specification inside variable declaration
laurent
parents: 355
diff changeset
  2360
70
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  2361
  protected:
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  2362
    stage4out_c &s4o;
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  2363
    stage4out_c pous_s4o;
121
9e8ce092e169 Adding support for POU struct definition in POUS.h
lbessard
parents: 120
diff changeset
  2364
    stage4out_c pous_incl_s4o;
70
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  2365
    stage4out_c located_variables_s4o;
111
ee31ee39eaf6 Adding structure variable list generation module
lbessard
parents: 98
diff changeset
  2366
    stage4out_c variables_s4o;
377
60b012b7793f Adding support for compiling direct array specification inside variable declaration
laurent
parents: 355
diff changeset
  2367
    generate_c_datatypes_c generate_c_datatypes;
70
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  2368
    generate_c_pous_c generate_c_pous;
111
ee31ee39eaf6 Adding structure variable list generation module
lbessard
parents: 98
diff changeset
  2369
    
70
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  2370
    symbol_c *current_configuration;
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  2371
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  2372
    const char *current_name;
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  2373
    const char *current_builddir;
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  2374
237
cece842c7417 Adding support for using arrays in POU interface
laurent
parents: 234
diff changeset
  2375
    unsigned long long common_ticktime;
70
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  2376
377
60b012b7793f Adding support for compiling direct array specification inside variable declaration
laurent
parents: 355
diff changeset
  2377
    generate_mode_t current_mode;
60b012b7793f Adding support for compiling direct array specification inside variable declaration
laurent
parents: 355
diff changeset
  2378
70
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  2379
  public:
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  2380
    generate_c_c(stage4out_c *s4o_ptr, const char *builddir): 
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  2381
            s4o(*s4o_ptr),
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  2382
            pous_s4o(builddir, "POUS", "c"),
121
9e8ce092e169 Adding support for POU struct definition in POUS.h
lbessard
parents: 120
diff changeset
  2383
            pous_incl_s4o(builddir, "POUS", "h"),
70
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  2384
            located_variables_s4o(builddir, "LOCATED_VARIABLES","h"),
112
0c8d1b0c957a changed VARIABLES.h in VARIABLES.cvs
etisserant
parents: 111
diff changeset
  2385
            variables_s4o(builddir, "VARIABLES","csv"),
377
60b012b7793f Adding support for compiling direct array specification inside variable declaration
laurent
parents: 355
diff changeset
  2386
            generate_c_datatypes(&pous_s4o, &pous_incl_s4o),
121
9e8ce092e169 Adding support for POU struct definition in POUS.h
lbessard
parents: 120
diff changeset
  2387
            generate_c_pous(&pous_s4o, &pous_incl_s4o) {
70
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  2388
      current_builddir = builddir;
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  2389
      current_configuration = NULL;
377
60b012b7793f Adding support for compiling direct array specification inside variable declaration
laurent
parents: 355
diff changeset
  2390
      current_mode = none_gm;
70
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  2391
    }
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  2392
            
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  2393
    ~generate_c_c(void) {}
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  2394
267
0a1204bcc9af starting to add proper header file with declaration of standard functions
Mario de Sousa <msousa@fe.up.pt>
parents: 262
diff changeset
  2395
0a1204bcc9af starting to add proper header file with declaration of standard functions
Mario de Sousa <msousa@fe.up.pt>
parents: 262
diff changeset
  2396
0a1204bcc9af starting to add proper header file with declaration of standard functions
Mario de Sousa <msousa@fe.up.pt>
parents: 262
diff changeset
  2397
/********************/
0a1204bcc9af starting to add proper header file with declaration of standard functions
Mario de Sousa <msousa@fe.up.pt>
parents: 262
diff changeset
  2398
/* 2.1.6 - Pragmas  */
0a1204bcc9af starting to add proper header file with declaration of standard functions
Mario de Sousa <msousa@fe.up.pt>
parents: 262
diff changeset
  2399
/********************/
0a1204bcc9af starting to add proper header file with declaration of standard functions
Mario de Sousa <msousa@fe.up.pt>
parents: 262
diff changeset
  2400
    void *visit(enable_code_generation_pragma_c * symbol)  {
0a1204bcc9af starting to add proper header file with declaration of standard functions
Mario de Sousa <msousa@fe.up.pt>
parents: 262
diff changeset
  2401
      s4o                  .enable_output();  
0a1204bcc9af starting to add proper header file with declaration of standard functions
Mario de Sousa <msousa@fe.up.pt>
parents: 262
diff changeset
  2402
      pous_s4o             .enable_output();  
0a1204bcc9af starting to add proper header file with declaration of standard functions
Mario de Sousa <msousa@fe.up.pt>
parents: 262
diff changeset
  2403
      pous_incl_s4o        .enable_output();  
0a1204bcc9af starting to add proper header file with declaration of standard functions
Mario de Sousa <msousa@fe.up.pt>
parents: 262
diff changeset
  2404
      located_variables_s4o.enable_output();  
0a1204bcc9af starting to add proper header file with declaration of standard functions
Mario de Sousa <msousa@fe.up.pt>
parents: 262
diff changeset
  2405
      variables_s4o        .enable_output();  
0a1204bcc9af starting to add proper header file with declaration of standard functions
Mario de Sousa <msousa@fe.up.pt>
parents: 262
diff changeset
  2406
      return NULL;
0a1204bcc9af starting to add proper header file with declaration of standard functions
Mario de Sousa <msousa@fe.up.pt>
parents: 262
diff changeset
  2407
    }
0a1204bcc9af starting to add proper header file with declaration of standard functions
Mario de Sousa <msousa@fe.up.pt>
parents: 262
diff changeset
  2408
    
0a1204bcc9af starting to add proper header file with declaration of standard functions
Mario de Sousa <msousa@fe.up.pt>
parents: 262
diff changeset
  2409
    void *visit(disable_code_generation_pragma_c * symbol)  {
0a1204bcc9af starting to add proper header file with declaration of standard functions
Mario de Sousa <msousa@fe.up.pt>
parents: 262
diff changeset
  2410
      s4o                  .disable_output();  
0a1204bcc9af starting to add proper header file with declaration of standard functions
Mario de Sousa <msousa@fe.up.pt>
parents: 262
diff changeset
  2411
      pous_s4o             .disable_output();  
0a1204bcc9af starting to add proper header file with declaration of standard functions
Mario de Sousa <msousa@fe.up.pt>
parents: 262
diff changeset
  2412
      pous_incl_s4o        .disable_output();  
0a1204bcc9af starting to add proper header file with declaration of standard functions
Mario de Sousa <msousa@fe.up.pt>
parents: 262
diff changeset
  2413
      located_variables_s4o.disable_output();  
0a1204bcc9af starting to add proper header file with declaration of standard functions
Mario de Sousa <msousa@fe.up.pt>
parents: 262
diff changeset
  2414
      variables_s4o        .disable_output();  
0a1204bcc9af starting to add proper header file with declaration of standard functions
Mario de Sousa <msousa@fe.up.pt>
parents: 262
diff changeset
  2415
      return NULL;
0a1204bcc9af starting to add proper header file with declaration of standard functions
Mario de Sousa <msousa@fe.up.pt>
parents: 262
diff changeset
  2416
    } 
0a1204bcc9af starting to add proper header file with declaration of standard functions
Mario de Sousa <msousa@fe.up.pt>
parents: 262
diff changeset
  2417
0a1204bcc9af starting to add proper header file with declaration of standard functions
Mario de Sousa <msousa@fe.up.pt>
parents: 262
diff changeset
  2418
70
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  2419
/***************************/
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  2420
/* B 0 - Programming Model */
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  2421
/***************************/
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  2422
    void *visit(library_c *symbol) {
217
f5dfadf5de54 Adding support for declare, init, get and set macros
laurent
parents: 210
diff changeset
  2423
      pous_incl_s4o.print("#ifndef __POUS_H\n#define __POUS_H\n\n#include \"accessor.h\"\n\n");
377
60b012b7793f Adding support for compiling direct array specification inside variable declaration
laurent
parents: 355
diff changeset
  2424
60b012b7793f Adding support for compiling direct array specification inside variable declaration
laurent
parents: 355
diff changeset
  2425
      current_mode = datatypes_gm;
70
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  2426
      for(int i = 0; i < symbol->n; i++) {
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  2427
        symbol->elements[i]->accept(*this);
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  2428
      }
377
60b012b7793f Adding support for compiling direct array specification inside variable declaration
laurent
parents: 355
diff changeset
  2429
60b012b7793f Adding support for compiling direct array specification inside variable declaration
laurent
parents: 355
diff changeset
  2430
      current_mode = pous_gm;
60b012b7793f Adding support for compiling direct array specification inside variable declaration
laurent
parents: 355
diff changeset
  2431
      for(int i = 0; i < symbol->n; i++) {
60b012b7793f Adding support for compiling direct array specification inside variable declaration
laurent
parents: 355
diff changeset
  2432
        symbol->elements[i]->accept(*this);
60b012b7793f Adding support for compiling direct array specification inside variable declaration
laurent
parents: 355
diff changeset
  2433
      }
60b012b7793f Adding support for compiling direct array specification inside variable declaration
laurent
parents: 355
diff changeset
  2434
121
9e8ce092e169 Adding support for POU struct definition in POUS.h
lbessard
parents: 120
diff changeset
  2435
      pous_incl_s4o.print("#endif //__POUS_H\n");
9e8ce092e169 Adding support for POU struct definition in POUS.h
lbessard
parents: 120
diff changeset
  2436
      
9e8ce092e169 Adding support for POU struct definition in POUS.h
lbessard
parents: 120
diff changeset
  2437
      generate_var_list_c generate_var_list(&variables_s4o, symbol);
9e8ce092e169 Adding support for POU struct definition in POUS.h
lbessard
parents: 120
diff changeset
  2438
      generate_var_list.generate_programs(symbol);
9e8ce092e169 Adding support for POU struct definition in POUS.h
lbessard
parents: 120
diff changeset
  2439
      generate_var_list.generate_variables(symbol);
397
85151b2f35ca Adding Common_Ticktime to informations printed in VARIABLES.csv file
laurent
parents: 396
diff changeset
  2440
      variables_s4o.print("\n// Ticktime\n");
85151b2f35ca Adding Common_Ticktime to informations printed in VARIABLES.csv file
laurent
parents: 396
diff changeset
  2441
      variables_s4o.print_long_long_integer(common_ticktime, false);
85151b2f35ca Adding Common_Ticktime to informations printed in VARIABLES.csv file
laurent
parents: 396
diff changeset
  2442
      variables_s4o.print("\n");
85151b2f35ca Adding Common_Ticktime to informations printed in VARIABLES.csv file
laurent
parents: 396
diff changeset
  2443
98
d0cdf1d00b74 Adding support for derived data types.
lbessard
parents: 70
diff changeset
  2444
      generate_location_list_c generate_location_list(&located_variables_s4o);
d0cdf1d00b74 Adding support for derived data types.
lbessard
parents: 70
diff changeset
  2445
      symbol->accept(generate_location_list);
70
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  2446
      return NULL;
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  2447
    }
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  2448
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  2449
/*************************/
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  2450
/* B.1 - Common elements */
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  2451
/*************************/
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  2452
/*******************************************/
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  2453
/* B 1.1 - Letters, digits and identifiers */
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  2454
/*******************************************/
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  2455
    void *visit(identifier_c *symbol) {
377
60b012b7793f Adding support for compiling direct array specification inside variable declaration
laurent
parents: 355
diff changeset
  2456
        current_name = symbol->value;
60b012b7793f Adding support for compiling direct array specification inside variable declaration
laurent
parents: 355
diff changeset
  2457
        return NULL;
70
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  2458
    }
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  2459
98
d0cdf1d00b74 Adding support for derived data types.
lbessard
parents: 70
diff changeset
  2460
/********************************/
d0cdf1d00b74 Adding support for derived data types.
lbessard
parents: 70
diff changeset
  2461
/* B 1.3.3 - Derived data types */
d0cdf1d00b74 Adding support for derived data types.
lbessard
parents: 70
diff changeset
  2462
/********************************/
d0cdf1d00b74 Adding support for derived data types.
lbessard
parents: 70
diff changeset
  2463
    /*  TYPE type_declaration_list END_TYPE */
d0cdf1d00b74 Adding support for derived data types.
lbessard
parents: 70
diff changeset
  2464
    void *visit(data_type_declaration_c *symbol) {
377
60b012b7793f Adding support for compiling direct array specification inside variable declaration
laurent
parents: 355
diff changeset
  2465
      switch (current_mode) {
60b012b7793f Adding support for compiling direct array specification inside variable declaration
laurent
parents: 355
diff changeset
  2466
        case datatypes_gm:
60b012b7793f Adding support for compiling direct array specification inside variable declaration
laurent
parents: 355
diff changeset
  2467
          symbol->accept(generate_c_datatypes);
60b012b7793f Adding support for compiling direct array specification inside variable declaration
laurent
parents: 355
diff changeset
  2468
          break;
60b012b7793f Adding support for compiling direct array specification inside variable declaration
laurent
parents: 355
diff changeset
  2469
        default:
60b012b7793f Adding support for compiling direct array specification inside variable declaration
laurent
parents: 355
diff changeset
  2470
          break;
60b012b7793f Adding support for compiling direct array specification inside variable declaration
laurent
parents: 355
diff changeset
  2471
      }
98
d0cdf1d00b74 Adding support for derived data types.
lbessard
parents: 70
diff changeset
  2472
      return NULL;
d0cdf1d00b74 Adding support for derived data types.
lbessard
parents: 70
diff changeset
  2473
    }
d0cdf1d00b74 Adding support for derived data types.
lbessard
parents: 70
diff changeset
  2474
70
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  2475
/**************************************/
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  2476
/* B.1.5 - Program organization units */
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  2477
/**************************************/
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  2478
/***********************/
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  2479
/* B 1.5.1 - Functions */
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  2480
/***********************/
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  2481
    void *visit(function_declaration_c *symbol) {
377
60b012b7793f Adding support for compiling direct array specification inside variable declaration
laurent
parents: 355
diff changeset
  2482
      switch (current_mode) {
60b012b7793f Adding support for compiling direct array specification inside variable declaration
laurent
parents: 355
diff changeset
  2483
        case datatypes_gm:
60b012b7793f Adding support for compiling direct array specification inside variable declaration
laurent
parents: 355
diff changeset
  2484
          symbol->var_declarations_list->accept(generate_c_datatypes);
60b012b7793f Adding support for compiling direct array specification inside variable declaration
laurent
parents: 355
diff changeset
  2485
          break;
60b012b7793f Adding support for compiling direct array specification inside variable declaration
laurent
parents: 355
diff changeset
  2486
        case pous_gm:
60b012b7793f Adding support for compiling direct array specification inside variable declaration
laurent
parents: 355
diff changeset
  2487
          symbol->accept(generate_c_pous);
60b012b7793f Adding support for compiling direct array specification inside variable declaration
laurent
parents: 355
diff changeset
  2488
          break;
60b012b7793f Adding support for compiling direct array specification inside variable declaration
laurent
parents: 355
diff changeset
  2489
        default:
60b012b7793f Adding support for compiling direct array specification inside variable declaration
laurent
parents: 355
diff changeset
  2490
          break;
60b012b7793f Adding support for compiling direct array specification inside variable declaration
laurent
parents: 355
diff changeset
  2491
      }
60b012b7793f Adding support for compiling direct array specification inside variable declaration
laurent
parents: 355
diff changeset
  2492
      return NULL;
70
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  2493
    }
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  2494
    
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  2495
/*****************************/
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  2496
/* B 1.5.2 - Function Blocks */
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  2497
/*****************************/
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  2498
    void *visit(function_block_declaration_c *symbol) {
377
60b012b7793f Adding support for compiling direct array specification inside variable declaration
laurent
parents: 355
diff changeset
  2499
        switch (current_mode) {
60b012b7793f Adding support for compiling direct array specification inside variable declaration
laurent
parents: 355
diff changeset
  2500
          case datatypes_gm:
60b012b7793f Adding support for compiling direct array specification inside variable declaration
laurent
parents: 355
diff changeset
  2501
            symbol->var_declarations->accept(generate_c_datatypes);
60b012b7793f Adding support for compiling direct array specification inside variable declaration
laurent
parents: 355
diff changeset
  2502
            break;
60b012b7793f Adding support for compiling direct array specification inside variable declaration
laurent
parents: 355
diff changeset
  2503
          case pous_gm:
60b012b7793f Adding support for compiling direct array specification inside variable declaration
laurent
parents: 355
diff changeset
  2504
            symbol->accept(generate_c_pous);
60b012b7793f Adding support for compiling direct array specification inside variable declaration
laurent
parents: 355
diff changeset
  2505
            break;
60b012b7793f Adding support for compiling direct array specification inside variable declaration
laurent
parents: 355
diff changeset
  2506
          default:
60b012b7793f Adding support for compiling direct array specification inside variable declaration
laurent
parents: 355
diff changeset
  2507
            break;
60b012b7793f Adding support for compiling direct array specification inside variable declaration
laurent
parents: 355
diff changeset
  2508
        }
60b012b7793f Adding support for compiling direct array specification inside variable declaration
laurent
parents: 355
diff changeset
  2509
        return NULL;
70
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  2510
    }
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  2511
    
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  2512
/**********************/
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  2513
/* B 1.5.3 - Programs */
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  2514
/**********************/    
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  2515
    void *visit(program_declaration_c *symbol) {
377
60b012b7793f Adding support for compiling direct array specification inside variable declaration
laurent
parents: 355
diff changeset
  2516
        switch (current_mode) {
60b012b7793f Adding support for compiling direct array specification inside variable declaration
laurent
parents: 355
diff changeset
  2517
          case datatypes_gm:
60b012b7793f Adding support for compiling direct array specification inside variable declaration
laurent
parents: 355
diff changeset
  2518
            symbol->var_declarations->accept(generate_c_datatypes);
60b012b7793f Adding support for compiling direct array specification inside variable declaration
laurent
parents: 355
diff changeset
  2519
            break;
60b012b7793f Adding support for compiling direct array specification inside variable declaration
laurent
parents: 355
diff changeset
  2520
          case pous_gm:
60b012b7793f Adding support for compiling direct array specification inside variable declaration
laurent
parents: 355
diff changeset
  2521
            symbol->accept(generate_c_pous);
60b012b7793f Adding support for compiling direct array specification inside variable declaration
laurent
parents: 355
diff changeset
  2522
            break;
60b012b7793f Adding support for compiling direct array specification inside variable declaration
laurent
parents: 355
diff changeset
  2523
          default:
60b012b7793f Adding support for compiling direct array specification inside variable declaration
laurent
parents: 355
diff changeset
  2524
            break;
60b012b7793f Adding support for compiling direct array specification inside variable declaration
laurent
parents: 355
diff changeset
  2525
        }
60b012b7793f Adding support for compiling direct array specification inside variable declaration
laurent
parents: 355
diff changeset
  2526
        return NULL;
70
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  2527
    }
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  2528
    
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  2529
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  2530
/********************************/
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  2531
/* B 1.7 Configuration elements */
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  2532
/********************************/
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  2533
    void *visit(configuration_declaration_c *symbol) {
377
60b012b7793f Adding support for compiling direct array specification inside variable declaration
laurent
parents: 355
diff changeset
  2534
      switch (current_mode) {
60b012b7793f Adding support for compiling direct array specification inside variable declaration
laurent
parents: 355
diff changeset
  2535
        case datatypes_gm:
60b012b7793f Adding support for compiling direct array specification inside variable declaration
laurent
parents: 355
diff changeset
  2536
          if (symbol->global_var_declarations != NULL)
60b012b7793f Adding support for compiling direct array specification inside variable declaration
laurent
parents: 355
diff changeset
  2537
            symbol->global_var_declarations->accept(generate_c_datatypes);
60b012b7793f Adding support for compiling direct array specification inside variable declaration
laurent
parents: 355
diff changeset
  2538
          break;
60b012b7793f Adding support for compiling direct array specification inside variable declaration
laurent
parents: 355
diff changeset
  2539
60b012b7793f Adding support for compiling direct array specification inside variable declaration
laurent
parents: 355
diff changeset
  2540
        case pous_gm:
60b012b7793f Adding support for compiling direct array specification inside variable declaration
laurent
parents: 355
diff changeset
  2541
          static int configuration_count = 0;
60b012b7793f Adding support for compiling direct array specification inside variable declaration
laurent
parents: 355
diff changeset
  2542
60b012b7793f Adding support for compiling direct array specification inside variable declaration
laurent
parents: 355
diff changeset
  2543
          if (configuration_count++) {
60b012b7793f Adding support for compiling direct array specification inside variable declaration
laurent
parents: 355
diff changeset
  2544
            /* the first configuration is the one we will use!! */
522
f9cff11ae622 Start having nicer stage 4 error messages.
Mario de Sousa <msousa@fe.up.pt>
parents: 506
diff changeset
  2545
            STAGE4_ERROR(symbol, symbol, "A previous CONFIGURATION has already been declared (C code generation currently only allows a single configuration).");
377
60b012b7793f Adding support for compiling direct array specification inside variable declaration
laurent
parents: 355
diff changeset
  2546
            ERROR;
60b012b7793f Adding support for compiling direct array specification inside variable declaration
laurent
parents: 355
diff changeset
  2547
          }
60b012b7793f Adding support for compiling direct array specification inside variable declaration
laurent
parents: 355
diff changeset
  2548
60b012b7793f Adding support for compiling direct array specification inside variable declaration
laurent
parents: 355
diff changeset
  2549
          current_configuration = symbol;
60b012b7793f Adding support for compiling direct array specification inside variable declaration
laurent
parents: 355
diff changeset
  2550
60b012b7793f Adding support for compiling direct array specification inside variable declaration
laurent
parents: 355
diff changeset
  2551
          {
60b012b7793f Adding support for compiling direct array specification inside variable declaration
laurent
parents: 355
diff changeset
  2552
            calculate_common_ticktime_c calculate_common_ticktime;
60b012b7793f Adding support for compiling direct array specification inside variable declaration
laurent
parents: 355
diff changeset
  2553
            symbol->accept(calculate_common_ticktime);
60b012b7793f Adding support for compiling direct array specification inside variable declaration
laurent
parents: 355
diff changeset
  2554
            common_ticktime = calculate_common_ticktime.get_common_ticktime();
60b012b7793f Adding support for compiling direct array specification inside variable declaration
laurent
parents: 355
diff changeset
  2555
            if (common_ticktime == 0) {
522
f9cff11ae622 Start having nicer stage 4 error messages.
Mario de Sousa <msousa@fe.up.pt>
parents: 506
diff changeset
  2556
              STAGE4_ERROR(symbol, symbol, "You must define at least one periodic task (to set cycle period)!");
377
60b012b7793f Adding support for compiling direct array specification inside variable declaration
laurent
parents: 355
diff changeset
  2557
              ERROR;
60b012b7793f Adding support for compiling direct array specification inside variable declaration
laurent
parents: 355
diff changeset
  2558
            }
60b012b7793f Adding support for compiling direct array specification inside variable declaration
laurent
parents: 355
diff changeset
  2559
60b012b7793f Adding support for compiling direct array specification inside variable declaration
laurent
parents: 355
diff changeset
  2560
            symbol->configuration_name->accept(*this);
396
155560bfe837 Fixing bug with external variables refering to global variables defined in configurations
laurent
parents: 392
diff changeset
  2561
            
377
60b012b7793f Adding support for compiling direct array specification inside variable declaration
laurent
parents: 355
diff changeset
  2562
            stage4out_c config_s4o(current_builddir, current_name, "c");
396
155560bfe837 Fixing bug with external variables refering to global variables defined in configurations
laurent
parents: 392
diff changeset
  2563
            stage4out_c config_incl_s4o(current_builddir, current_name, "h");
155560bfe837 Fixing bug with external variables refering to global variables defined in configurations
laurent
parents: 392
diff changeset
  2564
            generate_c_config_c generate_c_config(&config_s4o, &config_incl_s4o);
377
60b012b7793f Adding support for compiling direct array specification inside variable declaration
laurent
parents: 355
diff changeset
  2565
            symbol->accept(generate_c_config);
60b012b7793f Adding support for compiling direct array specification inside variable declaration
laurent
parents: 355
diff changeset
  2566
60b012b7793f Adding support for compiling direct array specification inside variable declaration
laurent
parents: 355
diff changeset
  2567
            config_s4o.print("unsigned long long common_ticktime__ = ");
60b012b7793f Adding support for compiling direct array specification inside variable declaration
laurent
parents: 355
diff changeset
  2568
            config_s4o.print_long_long_integer(common_ticktime);
60b012b7793f Adding support for compiling direct array specification inside variable declaration
laurent
parents: 355
diff changeset
  2569
            config_s4o.print("; /*ns*/\n");
60b012b7793f Adding support for compiling direct array specification inside variable declaration
laurent
parents: 355
diff changeset
  2570
            config_s4o.print("unsigned long greatest_tick_count__ = ");
60b012b7793f Adding support for compiling direct array specification inside variable declaration
laurent
parents: 355
diff changeset
  2571
            config_s4o.print_long_integer(calculate_common_ticktime.get_greatest_tick_count());
60b012b7793f Adding support for compiling direct array specification inside variable declaration
laurent
parents: 355
diff changeset
  2572
            config_s4o.print("; /*tick*/\n");
60b012b7793f Adding support for compiling direct array specification inside variable declaration
laurent
parents: 355
diff changeset
  2573
          }
60b012b7793f Adding support for compiling direct array specification inside variable declaration
laurent
parents: 355
diff changeset
  2574
60b012b7793f Adding support for compiling direct array specification inside variable declaration
laurent
parents: 355
diff changeset
  2575
          symbol->resource_declarations->accept(*this);
60b012b7793f Adding support for compiling direct array specification inside variable declaration
laurent
parents: 355
diff changeset
  2576
60b012b7793f Adding support for compiling direct array specification inside variable declaration
laurent
parents: 355
diff changeset
  2577
          current_configuration = NULL;
60b012b7793f Adding support for compiling direct array specification inside variable declaration
laurent
parents: 355
diff changeset
  2578
          break;
60b012b7793f Adding support for compiling direct array specification inside variable declaration
laurent
parents: 355
diff changeset
  2579
60b012b7793f Adding support for compiling direct array specification inside variable declaration
laurent
parents: 355
diff changeset
  2580
        default:
60b012b7793f Adding support for compiling direct array specification inside variable declaration
laurent
parents: 355
diff changeset
  2581
          break;
70
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  2582
      }
377
60b012b7793f Adding support for compiling direct array specification inside variable declaration
laurent
parents: 355
diff changeset
  2583
      return NULL;
60b012b7793f Adding support for compiling direct array specification inside variable declaration
laurent
parents: 355
diff changeset
  2584
    }
60b012b7793f Adding support for compiling direct array specification inside variable declaration
laurent
parents: 355
diff changeset
  2585
60b012b7793f Adding support for compiling direct array specification inside variable declaration
laurent
parents: 355
diff changeset
  2586
    void *visit(resource_declaration_c *symbol) {
60b012b7793f Adding support for compiling direct array specification inside variable declaration
laurent
parents: 355
diff changeset
  2587
      switch (current_mode) {
60b012b7793f Adding support for compiling direct array specification inside variable declaration
laurent
parents: 355
diff changeset
  2588
        case datatypes_gm:
60b012b7793f Adding support for compiling direct array specification inside variable declaration
laurent
parents: 355
diff changeset
  2589
          if (symbol->global_var_declarations != NULL)
60b012b7793f Adding support for compiling direct array specification inside variable declaration
laurent
parents: 355
diff changeset
  2590
            symbol->global_var_declarations->accept(generate_c_datatypes);
60b012b7793f Adding support for compiling direct array specification inside variable declaration
laurent
parents: 355
diff changeset
  2591
          break;
60b012b7793f Adding support for compiling direct array specification inside variable declaration
laurent
parents: 355
diff changeset
  2592
        case pous_gm:
60b012b7793f Adding support for compiling direct array specification inside variable declaration
laurent
parents: 355
diff changeset
  2593
          symbol->resource_name->accept(*this);
60b012b7793f Adding support for compiling direct array specification inside variable declaration
laurent
parents: 355
diff changeset
  2594
          {
60b012b7793f Adding support for compiling direct array specification inside variable declaration
laurent
parents: 355
diff changeset
  2595
            stage4out_c resources_s4o(current_builddir, current_name, "c");
60b012b7793f Adding support for compiling direct array specification inside variable declaration
laurent
parents: 355
diff changeset
  2596
            generate_c_resources_c generate_c_resources(&resources_s4o, current_configuration, symbol, common_ticktime);
60b012b7793f Adding support for compiling direct array specification inside variable declaration
laurent
parents: 355
diff changeset
  2597
            symbol->accept(generate_c_resources);
60b012b7793f Adding support for compiling direct array specification inside variable declaration
laurent
parents: 355
diff changeset
  2598
          }
60b012b7793f Adding support for compiling direct array specification inside variable declaration
laurent
parents: 355
diff changeset
  2599
          break;
60b012b7793f Adding support for compiling direct array specification inside variable declaration
laurent
parents: 355
diff changeset
  2600
        default:
60b012b7793f Adding support for compiling direct array specification inside variable declaration
laurent
parents: 355
diff changeset
  2601
          break;
248
9cb18ec14fa2 Task single parameter code generation broken after addition of accessors fixed.
laurent
parents: 244
diff changeset
  2602
      }
202
da1a8186f86f Initial (very rough) version of semantic checker (stage3)
Catarina Boucinha <ccb@fe.up.pt>
parents: 189
diff changeset
  2603
      return NULL;
70
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  2604
    }
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  2605
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  2606
    void *visit(single_resource_declaration_c *symbol) {
377
60b012b7793f Adding support for compiling direct array specification inside variable declaration
laurent
parents: 355
diff changeset
  2607
      switch (current_mode) {
60b012b7793f Adding support for compiling direct array specification inside variable declaration
laurent
parents: 355
diff changeset
  2608
        case pous_gm:
60b012b7793f Adding support for compiling direct array specification inside variable declaration
laurent
parents: 355
diff changeset
  2609
          {
60b012b7793f Adding support for compiling direct array specification inside variable declaration
laurent
parents: 355
diff changeset
  2610
            stage4out_c resources_s4o(current_builddir, "RESOURCE", "c");
60b012b7793f Adding support for compiling direct array specification inside variable declaration
laurent
parents: 355
diff changeset
  2611
            generate_c_resources_c generate_c_resources(&resources_s4o, current_configuration, symbol, common_ticktime);
60b012b7793f Adding support for compiling direct array specification inside variable declaration
laurent
parents: 355
diff changeset
  2612
            symbol->accept(generate_c_resources);
60b012b7793f Adding support for compiling direct array specification inside variable declaration
laurent
parents: 355
diff changeset
  2613
          }
60b012b7793f Adding support for compiling direct array specification inside variable declaration
laurent
parents: 355
diff changeset
  2614
          break;
60b012b7793f Adding support for compiling direct array specification inside variable declaration
laurent
parents: 355
diff changeset
  2615
        default:
60b012b7793f Adding support for compiling direct array specification inside variable declaration
laurent
parents: 355
diff changeset
  2616
          break;
60b012b7793f Adding support for compiling direct array specification inside variable declaration
laurent
parents: 355
diff changeset
  2617
      }
202
da1a8186f86f Initial (very rough) version of semantic checker (stage3)
Catarina Boucinha <ccb@fe.up.pt>
parents: 189
diff changeset
  2618
      return NULL;
70
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  2619
    }
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  2620
    
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  2621
};
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  2622
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  2623
/***********************************************************************/
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  2624
/***********************************************************************/
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  2625
/***********************************************************************/
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  2626
/***********************************************************************/
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  2627
/***********************************************************************/
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  2628
/***********************************************************************/
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  2629
/***********************************************************************/
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  2630
/***********************************************************************/
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  2631
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  2632
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  2633
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  2634
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  2635
visitor_c *new_code_generator(stage4out_c *s4o, const char *builddir)  {return new generate_c_c(s4o, builddir);}
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  2636
void delete_code_generator(visitor_c *code_generator) {delete code_generator;}
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  2637
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  2638