stage4/generate_c/generate_c.cc
author Mario de Sousa <msousa@fe.up.pt>
Thu, 19 Dec 2013 19:38:29 +0000
changeset 852 efb44e892582
parent 816 dcd861dda04a
child 853 818c4ac5d64d
permissions -rw-r--r--
Fix bug: allow use, as lvalues, structures/arrays inside FBs (e.g. fb1.struct1.r := 33.3).
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
852
efb44e892582 Fix bug: allow use, as lvalues, structures/arrays inside FBs (e.g. fb1.struct1.r := 33.3).
Mario de Sousa <msousa@fe.up.pt>
parents: 816
diff changeset
   343
/* A helper class that analyses if the datatype of a variable is 'complex'. */
efb44e892582 Fix bug: allow use, as lvalues, structures/arrays inside FBs (e.g. fb1.struct1.r := 33.3).
Mario de Sousa <msousa@fe.up.pt>
parents: 816
diff changeset
   344
/* 'complex' means that it is either a strcuture or an array!               */
efb44e892582 Fix bug: allow use, as lvalues, structures/arrays inside FBs (e.g. fb1.struct1.r := 33.3).
Mario de Sousa <msousa@fe.up.pt>
parents: 816
diff changeset
   345
class analyse_variable_c: public null_visitor_c {
efb44e892582 Fix bug: allow use, as lvalues, structures/arrays inside FBs (e.g. fb1.struct1.r := 33.3).
Mario de Sousa <msousa@fe.up.pt>
parents: 816
diff changeset
   346
  private:
efb44e892582 Fix bug: allow use, as lvalues, structures/arrays inside FBs (e.g. fb1.struct1.r := 33.3).
Mario de Sousa <msousa@fe.up.pt>
parents: 816
diff changeset
   347
    static analyse_variable_c *singleton_;
efb44e892582 Fix bug: allow use, as lvalues, structures/arrays inside FBs (e.g. fb1.struct1.r := 33.3).
Mario de Sousa <msousa@fe.up.pt>
parents: 816
diff changeset
   348
    bool   contains_complex_type_res;
efb44e892582 Fix bug: allow use, as lvalues, structures/arrays inside FBs (e.g. fb1.struct1.r := 33.3).
Mario de Sousa <msousa@fe.up.pt>
parents: 816
diff changeset
   349
efb44e892582 Fix bug: allow use, as lvalues, structures/arrays inside FBs (e.g. fb1.struct1.r := 33.3).
Mario de Sousa <msousa@fe.up.pt>
parents: 816
diff changeset
   350
  public:
efb44e892582 Fix bug: allow use, as lvalues, structures/arrays inside FBs (e.g. fb1.struct1.r := 33.3).
Mario de Sousa <msousa@fe.up.pt>
parents: 816
diff changeset
   351
    analyse_variable_c(void) {};
efb44e892582 Fix bug: allow use, as lvalues, structures/arrays inside FBs (e.g. fb1.struct1.r := 33.3).
Mario de Sousa <msousa@fe.up.pt>
parents: 816
diff changeset
   352
    
efb44e892582 Fix bug: allow use, as lvalues, structures/arrays inside FBs (e.g. fb1.struct1.r := 33.3).
Mario de Sousa <msousa@fe.up.pt>
parents: 816
diff changeset
   353
    static bool is_complex_type(symbol_c *symbol) {
efb44e892582 Fix bug: allow use, as lvalues, structures/arrays inside FBs (e.g. fb1.struct1.r := 33.3).
Mario de Sousa <msousa@fe.up.pt>
parents: 816
diff changeset
   354
      if (NULL == symbol)           ERROR;
efb44e892582 Fix bug: allow use, as lvalues, structures/arrays inside FBs (e.g. fb1.struct1.r := 33.3).
Mario de Sousa <msousa@fe.up.pt>
parents: 816
diff changeset
   355
      if (NULL == symbol->datatype) ERROR;
efb44e892582 Fix bug: allow use, as lvalues, structures/arrays inside FBs (e.g. fb1.struct1.r := 33.3).
Mario de Sousa <msousa@fe.up.pt>
parents: 816
diff changeset
   356
      return (   get_datatype_info_c::is_structure(symbol->datatype) 
efb44e892582 Fix bug: allow use, as lvalues, structures/arrays inside FBs (e.g. fb1.struct1.r := 33.3).
Mario de Sousa <msousa@fe.up.pt>
parents: 816
diff changeset
   357
              || get_datatype_info_c::is_array    (symbol->datatype) 
efb44e892582 Fix bug: allow use, as lvalues, structures/arrays inside FBs (e.g. fb1.struct1.r := 33.3).
Mario de Sousa <msousa@fe.up.pt>
parents: 816
diff changeset
   358
             );
efb44e892582 Fix bug: allow use, as lvalues, structures/arrays inside FBs (e.g. fb1.struct1.r := 33.3).
Mario de Sousa <msousa@fe.up.pt>
parents: 816
diff changeset
   359
    }
efb44e892582 Fix bug: allow use, as lvalues, structures/arrays inside FBs (e.g. fb1.struct1.r := 33.3).
Mario de Sousa <msousa@fe.up.pt>
parents: 816
diff changeset
   360
efb44e892582 Fix bug: allow use, as lvalues, structures/arrays inside FBs (e.g. fb1.struct1.r := 33.3).
Mario de Sousa <msousa@fe.up.pt>
parents: 816
diff changeset
   361
    /* returns true if a strcutured variable (e.g. fb1.fb2.strcut1.real) contains a structure or array */
efb44e892582 Fix bug: allow use, as lvalues, structures/arrays inside FBs (e.g. fb1.struct1.r := 33.3).
Mario de Sousa <msousa@fe.up.pt>
parents: 816
diff changeset
   362
    /* eg:
efb44e892582 Fix bug: allow use, as lvalues, structures/arrays inside FBs (e.g. fb1.struct1.r := 33.3).
Mario de Sousa <msousa@fe.up.pt>
parents: 816
diff changeset
   363
     *      fb1.fb2.fb3.real       returns FALSE
efb44e892582 Fix bug: allow use, as lvalues, structures/arrays inside FBs (e.g. fb1.struct1.r := 33.3).
Mario de Sousa <msousa@fe.up.pt>
parents: 816
diff changeset
   364
     *      fb1.fb2.struct1.real   returns TRUE
efb44e892582 Fix bug: allow use, as lvalues, structures/arrays inside FBs (e.g. fb1.struct1.r := 33.3).
Mario de Sousa <msousa@fe.up.pt>
parents: 816
diff changeset
   365
     *      struct1.real           returns TRUE
efb44e892582 Fix bug: allow use, as lvalues, structures/arrays inside FBs (e.g. fb1.struct1.r := 33.3).
Mario de Sousa <msousa@fe.up.pt>
parents: 816
diff changeset
   366
     */
efb44e892582 Fix bug: allow use, as lvalues, structures/arrays inside FBs (e.g. fb1.struct1.r := 33.3).
Mario de Sousa <msousa@fe.up.pt>
parents: 816
diff changeset
   367
    static bool contains_complex_type(symbol_c *symbol) {
efb44e892582 Fix bug: allow use, as lvalues, structures/arrays inside FBs (e.g. fb1.struct1.r := 33.3).
Mario de Sousa <msousa@fe.up.pt>
parents: 816
diff changeset
   368
      if (NULL == singleton_)       singleton_ = new analyse_variable_c();
efb44e892582 Fix bug: allow use, as lvalues, structures/arrays inside FBs (e.g. fb1.struct1.r := 33.3).
Mario de Sousa <msousa@fe.up.pt>
parents: 816
diff changeset
   369
      if (NULL == singleton_)       ERROR;
efb44e892582 Fix bug: allow use, as lvalues, structures/arrays inside FBs (e.g. fb1.struct1.r := 33.3).
Mario de Sousa <msousa@fe.up.pt>
parents: 816
diff changeset
   370
      if (NULL == symbol)           ERROR;
efb44e892582 Fix bug: allow use, as lvalues, structures/arrays inside FBs (e.g. fb1.struct1.r := 33.3).
Mario de Sousa <msousa@fe.up.pt>
parents: 816
diff changeset
   371
      if (NULL == symbol->datatype) ERROR;
efb44e892582 Fix bug: allow use, as lvalues, structures/arrays inside FBs (e.g. fb1.struct1.r := 33.3).
Mario de Sousa <msousa@fe.up.pt>
parents: 816
diff changeset
   372
      
efb44e892582 Fix bug: allow use, as lvalues, structures/arrays inside FBs (e.g. fb1.struct1.r := 33.3).
Mario de Sousa <msousa@fe.up.pt>
parents: 816
diff changeset
   373
      singleton_->contains_complex_type_res = false;
efb44e892582 Fix bug: allow use, as lvalues, structures/arrays inside FBs (e.g. fb1.struct1.r := 33.3).
Mario de Sousa <msousa@fe.up.pt>
parents: 816
diff changeset
   374
      symbol->accept(*singleton_);
efb44e892582 Fix bug: allow use, as lvalues, structures/arrays inside FBs (e.g. fb1.struct1.r := 33.3).
Mario de Sousa <msousa@fe.up.pt>
parents: 816
diff changeset
   375
      return singleton_->contains_complex_type_res;
efb44e892582 Fix bug: allow use, as lvalues, structures/arrays inside FBs (e.g. fb1.struct1.r := 33.3).
Mario de Sousa <msousa@fe.up.pt>
parents: 816
diff changeset
   376
    }
efb44e892582 Fix bug: allow use, as lvalues, structures/arrays inside FBs (e.g. fb1.struct1.r := 33.3).
Mario de Sousa <msousa@fe.up.pt>
parents: 816
diff changeset
   377
    
efb44e892582 Fix bug: allow use, as lvalues, structures/arrays inside FBs (e.g. fb1.struct1.r := 33.3).
Mario de Sousa <msousa@fe.up.pt>
parents: 816
diff changeset
   378
    
efb44e892582 Fix bug: allow use, as lvalues, structures/arrays inside FBs (e.g. fb1.struct1.r := 33.3).
Mario de Sousa <msousa@fe.up.pt>
parents: 816
diff changeset
   379
    /*************************************/
efb44e892582 Fix bug: allow use, as lvalues, structures/arrays inside FBs (e.g. fb1.struct1.r := 33.3).
Mario de Sousa <msousa@fe.up.pt>
parents: 816
diff changeset
   380
    /* B.1.4.2   Multi-element Variables */
efb44e892582 Fix bug: allow use, as lvalues, structures/arrays inside FBs (e.g. fb1.struct1.r := 33.3).
Mario de Sousa <msousa@fe.up.pt>
parents: 816
diff changeset
   381
    /*************************************/
efb44e892582 Fix bug: allow use, as lvalues, structures/arrays inside FBs (e.g. fb1.struct1.r := 33.3).
Mario de Sousa <msousa@fe.up.pt>
parents: 816
diff changeset
   382
    
efb44e892582 Fix bug: allow use, as lvalues, structures/arrays inside FBs (e.g. fb1.struct1.r := 33.3).
Mario de Sousa <msousa@fe.up.pt>
parents: 816
diff changeset
   383
    // SYM_REF2(structured_variable_c, record_variable, field_selector)
efb44e892582 Fix bug: allow use, as lvalues, structures/arrays inside FBs (e.g. fb1.struct1.r := 33.3).
Mario de Sousa <msousa@fe.up.pt>
parents: 816
diff changeset
   384
    void *visit(structured_variable_c *symbol) {
efb44e892582 Fix bug: allow use, as lvalues, structures/arrays inside FBs (e.g. fb1.struct1.r := 33.3).
Mario de Sousa <msousa@fe.up.pt>
parents: 816
diff changeset
   385
      symbol->record_variable->accept(*this);
efb44e892582 Fix bug: allow use, as lvalues, structures/arrays inside FBs (e.g. fb1.struct1.r := 33.3).
Mario de Sousa <msousa@fe.up.pt>
parents: 816
diff changeset
   386
      /* do not set the contains_complex_type_res to TRUE if this structured_variable_c is accessing a FB instance! */
efb44e892582 Fix bug: allow use, as lvalues, structures/arrays inside FBs (e.g. fb1.struct1.r := 33.3).
Mario de Sousa <msousa@fe.up.pt>
parents: 816
diff changeset
   387
      contains_complex_type_res |= get_datatype_info_c::is_structure(symbol->datatype);
efb44e892582 Fix bug: allow use, as lvalues, structures/arrays inside FBs (e.g. fb1.struct1.r := 33.3).
Mario de Sousa <msousa@fe.up.pt>
parents: 816
diff changeset
   388
      return NULL;
efb44e892582 Fix bug: allow use, as lvalues, structures/arrays inside FBs (e.g. fb1.struct1.r := 33.3).
Mario de Sousa <msousa@fe.up.pt>
parents: 816
diff changeset
   389
    }
efb44e892582 Fix bug: allow use, as lvalues, structures/arrays inside FBs (e.g. fb1.struct1.r := 33.3).
Mario de Sousa <msousa@fe.up.pt>
parents: 816
diff changeset
   390
    
efb44e892582 Fix bug: allow use, as lvalues, structures/arrays inside FBs (e.g. fb1.struct1.r := 33.3).
Mario de Sousa <msousa@fe.up.pt>
parents: 816
diff changeset
   391
    /*  subscripted_variable '[' subscript_list ']' */
efb44e892582 Fix bug: allow use, as lvalues, structures/arrays inside FBs (e.g. fb1.struct1.r := 33.3).
Mario de Sousa <msousa@fe.up.pt>
parents: 816
diff changeset
   392
    //SYM_REF2(array_variable_c, subscripted_variable, subscript_list)
efb44e892582 Fix bug: allow use, as lvalues, structures/arrays inside FBs (e.g. fb1.struct1.r := 33.3).
Mario de Sousa <msousa@fe.up.pt>
parents: 816
diff changeset
   393
    void *visit(array_variable_c *symbol) {
efb44e892582 Fix bug: allow use, as lvalues, structures/arrays inside FBs (e.g. fb1.struct1.r := 33.3).
Mario de Sousa <msousa@fe.up.pt>
parents: 816
diff changeset
   394
      contains_complex_type_res |= true;
efb44e892582 Fix bug: allow use, as lvalues, structures/arrays inside FBs (e.g. fb1.struct1.r := 33.3).
Mario de Sousa <msousa@fe.up.pt>
parents: 816
diff changeset
   395
      return NULL;
efb44e892582 Fix bug: allow use, as lvalues, structures/arrays inside FBs (e.g. fb1.struct1.r := 33.3).
Mario de Sousa <msousa@fe.up.pt>
parents: 816
diff changeset
   396
    }
efb44e892582 Fix bug: allow use, as lvalues, structures/arrays inside FBs (e.g. fb1.struct1.r := 33.3).
Mario de Sousa <msousa@fe.up.pt>
parents: 816
diff changeset
   397
efb44e892582 Fix bug: allow use, as lvalues, structures/arrays inside FBs (e.g. fb1.struct1.r := 33.3).
Mario de Sousa <msousa@fe.up.pt>
parents: 816
diff changeset
   398
};
efb44e892582 Fix bug: allow use, as lvalues, structures/arrays inside FBs (e.g. fb1.struct1.r := 33.3).
Mario de Sousa <msousa@fe.up.pt>
parents: 816
diff changeset
   399
efb44e892582 Fix bug: allow use, as lvalues, structures/arrays inside FBs (e.g. fb1.struct1.r := 33.3).
Mario de Sousa <msousa@fe.up.pt>
parents: 816
diff changeset
   400
analyse_variable_c *analyse_variable_c::singleton_ = NULL;
efb44e892582 Fix bug: allow use, as lvalues, structures/arrays inside FBs (e.g. fb1.struct1.r := 33.3).
Mario de Sousa <msousa@fe.up.pt>
parents: 816
diff changeset
   401
efb44e892582 Fix bug: allow use, as lvalues, structures/arrays inside FBs (e.g. fb1.struct1.r := 33.3).
Mario de Sousa <msousa@fe.up.pt>
parents: 816
diff changeset
   402
/***********************************************************************/
efb44e892582 Fix bug: allow use, as lvalues, structures/arrays inside FBs (e.g. fb1.struct1.r := 33.3).
Mario de Sousa <msousa@fe.up.pt>
parents: 816
diff changeset
   403
/***********************************************************************/
efb44e892582 Fix bug: allow use, as lvalues, structures/arrays inside FBs (e.g. fb1.struct1.r := 33.3).
Mario de Sousa <msousa@fe.up.pt>
parents: 816
diff changeset
   404
/***********************************************************************/
efb44e892582 Fix bug: allow use, as lvalues, structures/arrays inside FBs (e.g. fb1.struct1.r := 33.3).
Mario de Sousa <msousa@fe.up.pt>
parents: 816
diff changeset
   405
/***********************************************************************/
efb44e892582 Fix bug: allow use, as lvalues, structures/arrays inside FBs (e.g. fb1.struct1.r := 33.3).
Mario de Sousa <msousa@fe.up.pt>
parents: 816
diff changeset
   406
350
2c3c4dc34979 Support for semantic verification of calls to standard functions.
Mario de Sousa <msousa@fe.up.pt>
parents: 330
diff changeset
   407
70
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
   408
#include "generate_c_st.cc"
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
   409
#include "generate_c_il.cc"
217
f5dfadf5de54 Adding support for declare, init, get and set macros
laurent
parents: 210
diff changeset
   410
#include "generate_c_inlinefcall.cc"
70
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
   411
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
   412
/***********************************************************************/
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
   413
/***********************************************************************/
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
   414
/***********************************************************************/
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
   415
/***********************************************************************/
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
   416
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
   417
#define MILLISECOND 1000000
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
   418
#define SECOND 1000 * MILLISECOND
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
   419
594
c8092e909886 Clean up code (remove parsing of integers in stage 4).
Mario de Sousa <msousa@fe.up.pt>
parents: 592
diff changeset
   420
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
   421
  if (NULL == symbol) return 0;
70
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
   422
  
594
c8092e909886 Clean up code (remove parsing of integers in stage 4).
Mario de Sousa <msousa@fe.up.pt>
parents: 592
diff changeset
   423
  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
   424
  duration_c *duration = dynamic_cast<duration_c *>(symbol);
70
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
   425
  
632
76c3d707ffa1 Adding error message when task interval value is not supported
Laurent Bessard
parents: 631
diff changeset
   426
  if ((NULL == interval) && (NULL == duration))
631
1a4f5ce62962 Adding error message when task interval value is not supported
Laurent Bessard
parents: 625
diff changeset
   427
  	  {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
   428
c8092e909886 Clean up code (remove parsing of integers in stage 4).
Mario de Sousa <msousa@fe.up.pt>
parents: 592
diff changeset
   429
  if (NULL != duration) {
70
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
   430
    /* 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
   431
    if (duration->neg != NULL)
631
1a4f5ce62962 Adding error message when task interval value is not supported
Laurent Bessard
parents: 625
diff changeset
   432
      {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
   433
    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
   434
  }
c8092e909886 Clean up code (remove parsing of integers in stage 4).
Mario de Sousa <msousa@fe.up.pt>
parents: 592
diff changeset
   435
c8092e909886 Clean up code (remove parsing of integers in stage 4).
Mario de Sousa <msousa@fe.up.pt>
parents: 592
diff changeset
   436
  if (NULL != interval) {
547
dab341e80664 Fix parsing os TIME literals & rename the extract_integer() function.
mjsousa <msousa@fe.up.pt>
parents: 522
diff changeset
   437
    /* 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
   438
      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
   439
      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
   440
      /*
c8092e909886 Clean up code (remove parsing of integers in stage 4).
Mario de Sousa <msousa@fe.up.pt>
parents: 592
diff changeset
   441
      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
   442
      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
   443
      */
c8092e909886 Clean up code (remove parsing of integers in stage 4).
Mario de Sousa <msousa@fe.up.pt>
parents: 592
diff changeset
   444
      
c8092e909886 Clean up code (remove parsing of integers in stage 4).
Mario de Sousa <msousa@fe.up.pt>
parents: 592
diff changeset
   445
      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
   446
        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
   447
        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
   448
        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
   449
        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
   450
        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
   451
      }
547
dab341e80664 Fix parsing os TIME literals & rename the extract_integer() function.
mjsousa <msousa@fe.up.pt>
parents: 522
diff changeset
   452
   
594
c8092e909886 Clean up code (remove parsing of integers in stage 4).
Mario de Sousa <msousa@fe.up.pt>
parents: 592
diff changeset
   453
      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
   454
        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
   455
        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
   456
        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
   457
        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
   458
        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
   459
      }
c8092e909886 Clean up code (remove parsing of integers in stage 4).
Mario de Sousa <msousa@fe.up.pt>
parents: 592
diff changeset
   460
c8092e909886 Clean up code (remove parsing of integers in stage 4).
Mario de Sousa <msousa@fe.up.pt>
parents: 592
diff changeset
   461
      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
   462
        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
   463
        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
   464
        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
   465
        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
   466
        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
   467
      }
c8092e909886 Clean up code (remove parsing of integers in stage 4).
Mario de Sousa <msousa@fe.up.pt>
parents: 592
diff changeset
   468
c8092e909886 Clean up code (remove parsing of integers in stage 4).
Mario de Sousa <msousa@fe.up.pt>
parents: 592
diff changeset
   469
      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
   470
        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
   471
        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
   472
        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
   473
        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
   474
        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
   475
      }
c8092e909886 Clean up code (remove parsing of integers in stage 4).
Mario de Sousa <msousa@fe.up.pt>
parents: 592
diff changeset
   476
c8092e909886 Clean up code (remove parsing of integers in stage 4).
Mario de Sousa <msousa@fe.up.pt>
parents: 592
diff changeset
   477
      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
   478
        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
   479
        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
   480
        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
   481
        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
   482
        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
   483
      }
c8092e909886 Clean up code (remove parsing of integers in stage 4).
Mario de Sousa <msousa@fe.up.pt>
parents: 592
diff changeset
   484
c8092e909886 Clean up code (remove parsing of integers in stage 4).
Mario de Sousa <msousa@fe.up.pt>
parents: 592
diff changeset
   485
      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
   486
      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
   487
  };
c8092e909886 Clean up code (remove parsing of integers in stage 4).
Mario de Sousa <msousa@fe.up.pt>
parents: 592
diff changeset
   488
  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
   489
  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
   490
}
70
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
   491
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
   492
/***********************************************************************/
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
   493
/***********************************************************************/
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
   494
/***********************************************************************/
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
   495
/***********************************************************************/
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
   496
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
   497
class calculate_common_ticktime_c: public iterator_visitor_c {
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
   498
  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
   499
    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
   500
    unsigned long long least_common_ticktime;
70
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
   501
    
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
   502
  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
   503
    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
   504
      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
   505
      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
   506
    }
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
   507
    
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
   508
    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
   509
      unsigned long long c = a % b;
70
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
   510
      if (c == 0)
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
   511
        return b;
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
   512
      else
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
   513
        return euclide(b, c);
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
   514
    }
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
   515
    
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
   516
    void update_ticktime(unsigned long long time) {
70
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
   517
      if (common_ticktime == 0)
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
   518
        common_ticktime = time;
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
   519
      else if (time > common_ticktime)
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
   520
        common_ticktime = euclide(time, common_ticktime);
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
   521
      else
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
   522
        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
   523
      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
   524
        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
   525
      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
   526
        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
   527
    }
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
   528
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
   529
    unsigned long long get_common_ticktime(void) {
70
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
   530
      return common_ticktime;
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
   531
    }
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
   532
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
   533
    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
   534
      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
   535
      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
   536
        ERROR;
237
cece842c7417 Adding support for using arrays in POU interface
laurent
parents: 234
diff changeset
   537
      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
   538
    }
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
   539
70
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
   540
/*  TASK task_name task_initialization */
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
   541
//SYM_REF2(task_configuration_c, task_name, task_initialization)  
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
   542
    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
   543
      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
   544
    	  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
   545
    	  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
   546
    	  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
   547
      }
70
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
   548
      return NULL;
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
   549
    }
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
   550
};    
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
   551
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
/***********************************************************************/
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
   555
/***********************************************************************/
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
   556
217
f5dfadf5de54 Adding support for declare, init, get and set macros
laurent
parents: 210
diff changeset
   557
/* 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
   558
class generate_c_SFC_IL_ST_c: public null_visitor_c {
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
   559
  private:
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
   560
    stage4out_c *s4o_ptr;
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
   561
    symbol_c *scope;
217
f5dfadf5de54 Adding support for declare, init, get and set macros
laurent
parents: 210
diff changeset
   562
    symbol_c *fbname;
70
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
   563
    const char *variable_prefix;
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
   564
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
   565
  public:
217
f5dfadf5de54 Adding support for declare, init, get and set macros
laurent
parents: 210
diff changeset
   566
    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
   567
    
0a1204bcc9af starting to add proper header file with declaration of standard functions
Mario de Sousa <msousa@fe.up.pt>
parents: 262
diff changeset
   568
    /********************/
0a1204bcc9af starting to add proper header file with declaration of standard functions
Mario de Sousa <msousa@fe.up.pt>
parents: 262
diff changeset
   569
    /* 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
   570
    /********************/
0a1204bcc9af starting to add proper header file with declaration of standard functions
Mario de Sousa <msousa@fe.up.pt>
parents: 262
diff changeset
   571
    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
   572
    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
   573
    
70
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
   574
    /*********************************************/
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
   575
    /* B.1.6  Sequential function chart elements */
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
   576
    /*********************************************/
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
   577
    /*| sequential_function_chart sfc_network*/
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
   578
    void *visit(sequential_function_chart_c * symbol);
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
    /* B.2 - Language IL (Instruction List) */
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
   582
    /****************************************/
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
   583
    
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
   584
    /***********************************/
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
   585
    /* B 2.1 Instructions and Operands */
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
   586
    /***********************************/
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
   587
    /*| instruction_list il_instruction */
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
   588
    void *visit(instruction_list_c *symbol);
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
   589
    
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
   590
    /* Remainder implemented in generate_c_il_c... */
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
   591
    
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
   592
    /***************************************/
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
   593
    /* B.3 - Language ST (Structured Text) */
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
   594
    /***************************************/
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
   595
    /***********************/
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
   596
    /* B 3.1 - Expressions */
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
   597
    /***********************/
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
   598
    /* Implemented in generate_c_st_c */
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
   599
    
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
   600
    /********************/
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
   601
    /* B 3.2 Statements */
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
   602
    /********************/
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
   603
    void *visit(statement_list_c *symbol);
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
   604
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
   605
/* Remainder implemented in generate_c_st_c... */
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
   606
};
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
   607
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
   608
#include "generate_c_sfc.cc"
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
   609
217
f5dfadf5de54 Adding support for declare, init, get and set macros
laurent
parents: 210
diff changeset
   610
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
   611
  if (NULL == scope) ERROR;
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
   612
  this->s4o_ptr = s4o_ptr;
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
   613
  this->scope = scope;
217
f5dfadf5de54 Adding support for declare, init, get and set macros
laurent
parents: 210
diff changeset
   614
  this->fbname = name;
70
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
   615
  this->variable_prefix = variable_prefix;
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
   616
}
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
   617
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
   618
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
   619
  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
   620
  generate_c_sfc.generate(symbol);
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
   621
  return NULL;
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
   622
}
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
   623
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
   624
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
   625
  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
   626
  generate_c_il.generate(symbol);
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
   627
  return NULL;
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
   628
}
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
   629
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
   630
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
   631
  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
   632
  generate_c_st.generate(symbol);
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
   633
  return NULL;
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
   634
}
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
   635
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
   636
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
   637
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
   638
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
   639
/***********************************************************************/
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
   640
/***********************************************************************/
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
   641
/***********************************************************************/
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
   642
/***********************************************************************/
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
   643
/***********************************************************************/
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
   644
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
   645
377
60b012b7793f Adding support for compiling direct array specification inside variable declaration
laurent
parents: 355
diff changeset
   646
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
   647
  public:
60b012b7793f Adding support for compiling direct array specification inside variable declaration
laurent
parents: 355
diff changeset
   648
    typedef enum {
60b012b7793f Adding support for compiling direct array specification inside variable declaration
laurent
parents: 355
diff changeset
   649
      none_im,
60b012b7793f Adding support for compiling direct array specification inside variable declaration
laurent
parents: 355
diff changeset
   650
      arrayname_im,
661
f537c3315f83 Minor changes needed to build with pedantic flag.
Manuele Conti <conti.ma@alice.it>
parents: 624
diff changeset
   651
      arraydeclaration_im
377
60b012b7793f Adding support for compiling direct array specification inside variable declaration
laurent
parents: 355
diff changeset
   652
    } inlinearray_mode_t;
60b012b7793f Adding support for compiling direct array specification inside variable declaration
laurent
parents: 355
diff changeset
   653
60b012b7793f Adding support for compiling direct array specification inside variable declaration
laurent
parents: 355
diff changeset
   654
  private:
60b012b7793f Adding support for compiling direct array specification inside variable declaration
laurent
parents: 355
diff changeset
   655
    stage4out_c *s4o_ptr;
60b012b7793f Adding support for compiling direct array specification inside variable declaration
laurent
parents: 355
diff changeset
   656
    std::map<std::string, int> inline_array_defined;
60b012b7793f Adding support for compiling direct array specification inside variable declaration
laurent
parents: 355
diff changeset
   657
    std::string current_array_name;
60b012b7793f Adding support for compiling direct array specification inside variable declaration
laurent
parents: 355
diff changeset
   658
    inlinearray_mode_t current_mode;
60b012b7793f Adding support for compiling direct array specification inside variable declaration
laurent
parents: 355
diff changeset
   659
60b012b7793f Adding support for compiling direct array specification inside variable declaration
laurent
parents: 355
diff changeset
   660
  public:
60b012b7793f Adding support for compiling direct array specification inside variable declaration
laurent
parents: 355
diff changeset
   661
    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
   662
      : 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
   663
      generate_c_datatypes_c::s4o_ptr = s4o_ptr;
60b012b7793f Adding support for compiling direct array specification inside variable declaration
laurent
parents: 355
diff changeset
   664
      current_mode = none_im;
60b012b7793f Adding support for compiling direct array specification inside variable declaration
laurent
parents: 355
diff changeset
   665
    };
60b012b7793f Adding support for compiling direct array specification inside variable declaration
laurent
parents: 355
diff changeset
   666
    virtual ~generate_c_datatypes_c(void) {
60b012b7793f Adding support for compiling direct array specification inside variable declaration
laurent
parents: 355
diff changeset
   667
      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
   668
        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
   669
      }
60b012b7793f Adding support for compiling direct array specification inside variable declaration
laurent
parents: 355
diff changeset
   670
    }
60b012b7793f Adding support for compiling direct array specification inside variable declaration
laurent
parents: 355
diff changeset
   671
60b012b7793f Adding support for compiling direct array specification inside variable declaration
laurent
parents: 355
diff changeset
   672
    /*************************/
60b012b7793f Adding support for compiling direct array specification inside variable declaration
laurent
parents: 355
diff changeset
   673
    /* B.1 - Common elements */
60b012b7793f Adding support for compiling direct array specification inside variable declaration
laurent
parents: 355
diff changeset
   674
    /*************************/
60b012b7793f Adding support for compiling direct array specification inside variable declaration
laurent
parents: 355
diff changeset
   675
    /*******************************************/
60b012b7793f Adding support for compiling direct array specification inside variable declaration
laurent
parents: 355
diff changeset
   676
    /* B 1.1 - Letters, digits and identifiers */
60b012b7793f Adding support for compiling direct array specification inside variable declaration
laurent
parents: 355
diff changeset
   677
    /*******************************************/
60b012b7793f Adding support for compiling direct array specification inside variable declaration
laurent
parents: 355
diff changeset
   678
    void *visit(identifier_c *symbol) {
60b012b7793f Adding support for compiling direct array specification inside variable declaration
laurent
parents: 355
diff changeset
   679
      switch (current_mode) {
60b012b7793f Adding support for compiling direct array specification inside variable declaration
laurent
parents: 355
diff changeset
   680
        case arrayname_im:
60b012b7793f Adding support for compiling direct array specification inside variable declaration
laurent
parents: 355
diff changeset
   681
          current_array_name += symbol->value;
60b012b7793f Adding support for compiling direct array specification inside variable declaration
laurent
parents: 355
diff changeset
   682
          break;
60b012b7793f Adding support for compiling direct array specification inside variable declaration
laurent
parents: 355
diff changeset
   683
        case arraydeclaration_im:
60b012b7793f Adding support for compiling direct array specification inside variable declaration
laurent
parents: 355
diff changeset
   684
          s4o_incl.print(symbol->value);
60b012b7793f Adding support for compiling direct array specification inside variable declaration
laurent
parents: 355
diff changeset
   685
          break;
60b012b7793f Adding support for compiling direct array specification inside variable declaration
laurent
parents: 355
diff changeset
   686
        default:
60b012b7793f Adding support for compiling direct array specification inside variable declaration
laurent
parents: 355
diff changeset
   687
          return generate_c_base_c::visit(symbol);
60b012b7793f Adding support for compiling direct array specification inside variable declaration
laurent
parents: 355
diff changeset
   688
          break;
60b012b7793f Adding support for compiling direct array specification inside variable declaration
laurent
parents: 355
diff changeset
   689
      }
60b012b7793f Adding support for compiling direct array specification inside variable declaration
laurent
parents: 355
diff changeset
   690
      return NULL;
60b012b7793f Adding support for compiling direct array specification inside variable declaration
laurent
parents: 355
diff changeset
   691
    }
60b012b7793f Adding support for compiling direct array specification inside variable declaration
laurent
parents: 355
diff changeset
   692
60b012b7793f Adding support for compiling direct array specification inside variable declaration
laurent
parents: 355
diff changeset
   693
    /**********************/
60b012b7793f Adding support for compiling direct array specification inside variable declaration
laurent
parents: 355
diff changeset
   694
    /* B.1.3 - Data types */
60b012b7793f Adding support for compiling direct array specification inside variable declaration
laurent
parents: 355
diff changeset
   695
    /**********************/
60b012b7793f Adding support for compiling direct array specification inside variable declaration
laurent
parents: 355
diff changeset
   696
    /***********************************/
60b012b7793f Adding support for compiling direct array specification inside variable declaration
laurent
parents: 355
diff changeset
   697
    /* B 1.3.1 - Elementary Data Types */
60b012b7793f Adding support for compiling direct array specification inside variable declaration
laurent
parents: 355
diff changeset
   698
    /***********************************/
60b012b7793f Adding support for compiling direct array specification inside variable declaration
laurent
parents: 355
diff changeset
   699
60b012b7793f Adding support for compiling direct array specification inside variable declaration
laurent
parents: 355
diff changeset
   700
    #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
   701
    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
   702
      switch (current_mode) {\
31553c22f318 Adding support for declaring function block instances as global and external variables
Laurent Bessard
parents: 636
diff changeset
   703
        case arrayname_im:\
31553c22f318 Adding support for declaring function block instances as global and external variables
Laurent Bessard
parents: 636
diff changeset
   704
          current_array_name += datatype_name;\
31553c22f318 Adding support for declaring function block instances as global and external variables
Laurent Bessard
parents: 636
diff changeset
   705
          break;\
377
60b012b7793f Adding support for compiling direct array specification inside variable declaration
laurent
parents: 355
diff changeset
   706
        case arraydeclaration_im:\
60b012b7793f Adding support for compiling direct array specification inside variable declaration
laurent
parents: 355
diff changeset
   707
          s4o_incl.print(datatype_name);\
60b012b7793f Adding support for compiling direct array specification inside variable declaration
laurent
parents: 355
diff changeset
   708
          break;\
706
31553c22f318 Adding support for declaring function block instances as global and external variables
Laurent Bessard
parents: 636
diff changeset
   709
        default:\
31553c22f318 Adding support for declaring function block instances as global and external variables
Laurent Bessard
parents: 636
diff changeset
   710
          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
   711
          break;\
31553c22f318 Adding support for declaring function block instances as global and external variables
Laurent Bessard
parents: 636
diff changeset
   712
      }\
31553c22f318 Adding support for declaring function block instances as global and external variables
Laurent Bessard
parents: 636
diff changeset
   713
      return NULL;\
31553c22f318 Adding support for declaring function block instances as global and external variables
Laurent Bessard
parents: 636
diff changeset
   714
    }
377
60b012b7793f Adding support for compiling direct array specification inside variable declaration
laurent
parents: 355
diff changeset
   715
60b012b7793f Adding support for compiling direct array specification inside variable declaration
laurent
parents: 355
diff changeset
   716
    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
   717
    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
   718
    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
   719
    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
   720
    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
   721
    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
   722
    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
   723
    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
   724
    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
   725
    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
   726
    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
   727
    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
   728
    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
   729
    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
   730
    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
   731
    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
   732
    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
   733
    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
   734
    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
   735
    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
   736
    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
   737
60b012b7793f Adding support for compiling direct array specification inside variable declaration
laurent
parents: 355
diff changeset
   738
    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
   739
    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
   740
    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
   741
    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
   742
    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
   743
    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
   744
    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
   745
    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
   746
    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
   747
    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
   748
    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
   749
    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
   750
    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
   751
    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
   752
    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
   753
    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
   754
    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
   755
    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
   756
    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
   757
    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
   758
    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
   759
635
a20a70021d37 Adding support for direct array declaration in structure element declaration
Laurent Bessard
parents: 632
diff changeset
   760
    /***********************************/
a20a70021d37 Adding support for direct array declaration in structure element declaration
Laurent Bessard
parents: 632
diff changeset
   761
    /* B 1.3.2 - Generic Data Types    */
a20a70021d37 Adding support for direct array declaration in structure element declaration
Laurent Bessard
parents: 632
diff changeset
   762
    /***********************************/
a20a70021d37 Adding support for direct array declaration in structure element declaration
Laurent Bessard
parents: 632
diff changeset
   763
706
31553c22f318 Adding support for declaring function block instances as global and external variables
Laurent Bessard
parents: 636
diff changeset
   764
    /*  structure_type_name ':' structure_specification */
31553c22f318 Adding support for declaring function block instances as global and external variables
Laurent Bessard
parents: 636
diff changeset
   765
    //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
   766
    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
   767
      current_mode = arraydeclaration_im;
a20a70021d37 Adding support for direct array declaration in structure element declaration
Laurent Bessard
parents: 632
diff changeset
   768
      symbol->structure_specification->accept(*this);
a20a70021d37 Adding support for direct array declaration in structure element declaration
Laurent Bessard
parents: 632
diff changeset
   769
      current_mode = arrayname_im;
a20a70021d37 Adding support for direct array declaration in structure element declaration
Laurent Bessard
parents: 632
diff changeset
   770
      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
   771
      current_mode = none_im;
31553c22f318 Adding support for declaring function block instances as global and external variables
Laurent Bessard
parents: 636
diff changeset
   772
      return NULL;
31553c22f318 Adding support for declaring function block instances as global and external variables
Laurent Bessard
parents: 636
diff changeset
   773
    }
635
a20a70021d37 Adding support for direct array declaration in structure element declaration
Laurent Bessard
parents: 632
diff changeset
   774
a20a70021d37 Adding support for direct array declaration in structure element declaration
Laurent Bessard
parents: 632
diff changeset
   775
    /* helper symbol for structure_declaration */
a20a70021d37 Adding support for direct array declaration in structure element declaration
Laurent Bessard
parents: 632
diff changeset
   776
    /* 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
   777
    /* structure_element_declaration_list structure_element_declaration ';' */
a20a70021d37 Adding support for direct array declaration in structure element declaration
Laurent Bessard
parents: 632
diff changeset
   778
    //SYM_LIST(structure_element_declaration_list_c)
a20a70021d37 Adding support for direct array declaration in structure element declaration
Laurent Bessard
parents: 632
diff changeset
   779
    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
   780
      switch (current_mode) {
706
31553c22f318 Adding support for declaring function block instances as global and external variables
Laurent Bessard
parents: 636
diff changeset
   781
        case arraydeclaration_im:
31553c22f318 Adding support for declaring function block instances as global and external variables
Laurent Bessard
parents: 636
diff changeset
   782
          iterator_visitor_c::visit(symbol);
31553c22f318 Adding support for declaring function block instances as global and external variables
Laurent Bessard
parents: 636
diff changeset
   783
          break;
635
a20a70021d37 Adding support for direct array declaration in structure element declaration
Laurent Bessard
parents: 632
diff changeset
   784
        default:
706
31553c22f318 Adding support for declaring function block instances as global and external variables
Laurent Bessard
parents: 636
diff changeset
   785
          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
   786
          break;
635
a20a70021d37 Adding support for direct array declaration in structure element declaration
Laurent Bessard
parents: 632
diff changeset
   787
      }
a20a70021d37 Adding support for direct array declaration in structure element declaration
Laurent Bessard
parents: 632
diff changeset
   788
      return NULL;
a20a70021d37 Adding support for direct array declaration in structure element declaration
Laurent Bessard
parents: 632
diff changeset
   789
    }
a20a70021d37 Adding support for direct array declaration in structure element declaration
Laurent Bessard
parents: 632
diff changeset
   790
a20a70021d37 Adding support for direct array declaration in structure element declaration
Laurent Bessard
parents: 632
diff changeset
   791
    /*  structure_element_name ':' spec_init */
a20a70021d37 Adding support for direct array declaration in structure element declaration
Laurent Bessard
parents: 632
diff changeset
   792
    //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
   793
    void *visit(structure_element_declaration_c *symbol) {
a20a70021d37 Adding support for direct array declaration in structure element declaration
Laurent Bessard
parents: 632
diff changeset
   794
      switch (current_mode) {
706
31553c22f318 Adding support for declaring function block instances as global and external variables
Laurent Bessard
parents: 636
diff changeset
   795
        case arraydeclaration_im:
31553c22f318 Adding support for declaring function block instances as global and external variables
Laurent Bessard
parents: 636
diff changeset
   796
          {
31553c22f318 Adding support for declaring function block instances as global and external variables
Laurent Bessard
parents: 636
diff changeset
   797
            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
   798
            if (spec_init != NULL) {
31553c22f318 Adding support for declaring function block instances as global and external variables
Laurent Bessard
parents: 636
diff changeset
   799
              symbol->spec_init->accept(*this);
31553c22f318 Adding support for declaring function block instances as global and external variables
Laurent Bessard
parents: 636
diff changeset
   800
            }
31553c22f318 Adding support for declaring function block instances as global and external variables
Laurent Bessard
parents: 636
diff changeset
   801
          }
31553c22f318 Adding support for declaring function block instances as global and external variables
Laurent Bessard
parents: 636
diff changeset
   802
          break;
31553c22f318 Adding support for declaring function block instances as global and external variables
Laurent Bessard
parents: 636
diff changeset
   803
        default:
31553c22f318 Adding support for declaring function block instances as global and external variables
Laurent Bessard
parents: 636
diff changeset
   804
          generate_c_typedecl_c::visit(symbol);
635
a20a70021d37 Adding support for direct array declaration in structure element declaration
Laurent Bessard
parents: 632
diff changeset
   805
          break;
a20a70021d37 Adding support for direct array declaration in structure element declaration
Laurent Bessard
parents: 632
diff changeset
   806
      }
a20a70021d37 Adding support for direct array declaration in structure element declaration
Laurent Bessard
parents: 632
diff changeset
   807
      return NULL;
a20a70021d37 Adding support for direct array declaration in structure element declaration
Laurent Bessard
parents: 632
diff changeset
   808
    }
a20a70021d37 Adding support for direct array declaration in structure element declaration
Laurent Bessard
parents: 632
diff changeset
   809
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
    /* B 1.4.3 - Declaration & Initialization */
60b012b7793f Adding support for compiling direct array specification inside variable declaration
laurent
parents: 355
diff changeset
   812
    /******************************************/
60b012b7793f Adding support for compiling direct array specification inside variable declaration
laurent
parents: 355
diff changeset
   813
60b012b7793f Adding support for compiling direct array specification inside variable declaration
laurent
parents: 355
diff changeset
   814
    void *visit(input_declarations_c *symbol) {
60b012b7793f Adding support for compiling direct array specification inside variable declaration
laurent
parents: 355
diff changeset
   815
      symbol->input_declaration_list->accept(*this);
60b012b7793f Adding support for compiling direct array specification inside variable declaration
laurent
parents: 355
diff changeset
   816
      return NULL;
60b012b7793f Adding support for compiling direct array specification inside variable declaration
laurent
parents: 355
diff changeset
   817
    }
60b012b7793f Adding support for compiling direct array specification inside variable declaration
laurent
parents: 355
diff changeset
   818
60b012b7793f Adding support for compiling direct array specification inside variable declaration
laurent
parents: 355
diff changeset
   819
    void *visit(edge_declaration_c *symbol) {
60b012b7793f Adding support for compiling direct array specification inside variable declaration
laurent
parents: 355
diff changeset
   820
      return NULL;
60b012b7793f Adding support for compiling direct array specification inside variable declaration
laurent
parents: 355
diff changeset
   821
    }
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
    void *visit(en_param_declaration_c *symbol) {
60b012b7793f Adding support for compiling direct array specification inside variable declaration
laurent
parents: 355
diff changeset
   824
      return NULL;
60b012b7793f Adding support for compiling direct array specification inside variable declaration
laurent
parents: 355
diff changeset
   825
    }
60b012b7793f Adding support for compiling direct array specification inside variable declaration
laurent
parents: 355
diff changeset
   826
60b012b7793f Adding support for compiling direct array specification inside variable declaration
laurent
parents: 355
diff changeset
   827
    void *visit(eno_param_declaration_c *symbol) {
60b012b7793f Adding support for compiling direct array specification inside variable declaration
laurent
parents: 355
diff changeset
   828
      return NULL;
60b012b7793f Adding support for compiling direct array specification inside variable declaration
laurent
parents: 355
diff changeset
   829
    }
60b012b7793f Adding support for compiling direct array specification inside variable declaration
laurent
parents: 355
diff changeset
   830
60b012b7793f Adding support for compiling direct array specification inside variable declaration
laurent
parents: 355
diff changeset
   831
    void *visit(var1_init_decl_c *symbol) {
60b012b7793f Adding support for compiling direct array specification inside variable declaration
laurent
parents: 355
diff changeset
   832
      return NULL;
60b012b7793f Adding support for compiling direct array specification inside variable declaration
laurent
parents: 355
diff changeset
   833
    }
60b012b7793f Adding support for compiling direct array specification inside variable declaration
laurent
parents: 355
diff changeset
   834
60b012b7793f Adding support for compiling direct array specification inside variable declaration
laurent
parents: 355
diff changeset
   835
    /*  var1_list ':' array_spec_init */
60b012b7793f Adding support for compiling direct array specification inside variable declaration
laurent
parents: 355
diff changeset
   836
    // 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
   837
    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
   838
      current_mode = arraydeclaration_im;
377
60b012b7793f Adding support for compiling direct array specification inside variable declaration
laurent
parents: 355
diff changeset
   839
      symbol->array_spec_init->accept(*this);
60b012b7793f Adding support for compiling direct array specification inside variable declaration
laurent
parents: 355
diff changeset
   840
      current_mode = none_im;
60b012b7793f Adding support for compiling direct array specification inside variable declaration
laurent
parents: 355
diff changeset
   841
      return NULL;
60b012b7793f Adding support for compiling direct array specification inside variable declaration
laurent
parents: 355
diff changeset
   842
    }
60b012b7793f Adding support for compiling direct array specification inside variable declaration
laurent
parents: 355
diff changeset
   843
60b012b7793f Adding support for compiling direct array specification inside variable declaration
laurent
parents: 355
diff changeset
   844
    /* array_specification [ASSIGN array_initialization] */
60b012b7793f Adding support for compiling direct array specification inside variable declaration
laurent
parents: 355
diff changeset
   845
    /* array_initialization may be NULL ! */
60b012b7793f Adding support for compiling direct array specification inside variable declaration
laurent
parents: 355
diff changeset
   846
    void *visit(array_spec_init_c *symbol) {
60b012b7793f Adding support for compiling direct array specification inside variable declaration
laurent
parents: 355
diff changeset
   847
      switch (current_mode) {
706
31553c22f318 Adding support for declaring function block instances as global and external variables
Laurent Bessard
parents: 636
diff changeset
   848
        case arraydeclaration_im:
31553c22f318 Adding support for declaring function block instances as global and external variables
Laurent Bessard
parents: 636
diff changeset
   849
        case arrayname_im:
31553c22f318 Adding support for declaring function block instances as global and external variables
Laurent Bessard
parents: 636
diff changeset
   850
          {
31553c22f318 Adding support for declaring function block instances as global and external variables
Laurent Bessard
parents: 636
diff changeset
   851
            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
   852
            if (specification != NULL)
60b012b7793f Adding support for compiling direct array specification inside variable declaration
laurent
parents: 355
diff changeset
   853
              symbol->array_specification->accept(*this);
60b012b7793f Adding support for compiling direct array specification inside variable declaration
laurent
parents: 355
diff changeset
   854
          }
60b012b7793f Adding support for compiling direct array specification inside variable declaration
laurent
parents: 355
diff changeset
   855
          break;
706
31553c22f318 Adding support for declaring function block instances as global and external variables
Laurent Bessard
parents: 636
diff changeset
   856
        default:
31553c22f318 Adding support for declaring function block instances as global and external variables
Laurent Bessard
parents: 636
diff changeset
   857
          return generate_c_typedecl_c::visit(symbol);
377
60b012b7793f Adding support for compiling direct array specification inside variable declaration
laurent
parents: 355
diff changeset
   858
          break;
60b012b7793f Adding support for compiling direct array specification inside variable declaration
laurent
parents: 355
diff changeset
   859
      }
60b012b7793f Adding support for compiling direct array specification inside variable declaration
laurent
parents: 355
diff changeset
   860
      return NULL;
60b012b7793f Adding support for compiling direct array specification inside variable declaration
laurent
parents: 355
diff changeset
   861
    }
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
    /* 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
   864
    void *visit(array_specification_c *symbol) {
60b012b7793f Adding support for compiling direct array specification inside variable declaration
laurent
parents: 355
diff changeset
   865
      switch (current_mode) {
635
a20a70021d37 Adding support for direct array declaration in structure element declaration
Laurent Bessard
parents: 632
diff changeset
   866
        case arraydeclaration_im:
377
60b012b7793f Adding support for compiling direct array specification inside variable declaration
laurent
parents: 355
diff changeset
   867
          {
706
31553c22f318 Adding support for declaring function block instances as global and external variables
Laurent Bessard
parents: 636
diff changeset
   868
            current_mode = arrayname_im;
377
60b012b7793f Adding support for compiling direct array specification inside variable declaration
laurent
parents: 355
diff changeset
   869
            std::map<std::string,int>::iterator definition;
60b012b7793f Adding support for compiling direct array specification inside variable declaration
laurent
parents: 355
diff changeset
   870
            current_array_name = "__";
60b012b7793f Adding support for compiling direct array specification inside variable declaration
laurent
parents: 355
diff changeset
   871
            symbol->non_generic_type_name->accept(*this);
60b012b7793f Adding support for compiling direct array specification inside variable declaration
laurent
parents: 355
diff changeset
   872
            symbol->array_subrange_list->accept(*this);
635
a20a70021d37 Adding support for direct array declaration in structure element declaration
Laurent Bessard
parents: 632
diff changeset
   873
            current_mode = arraydeclaration_im;
377
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
            definition = inline_array_defined.find(current_array_name);
60b012b7793f Adding support for compiling direct array specification inside variable declaration
laurent
parents: 355
diff changeset
   876
            if (definition == inline_array_defined.end()) {
60b012b7793f Adding support for compiling direct array specification inside variable declaration
laurent
parents: 355
diff changeset
   877
              s4o_incl.print("__DECLARE_ARRAY_TYPE(");
60b012b7793f Adding support for compiling direct array specification inside variable declaration
laurent
parents: 355
diff changeset
   878
              s4o_incl.print(current_array_name);
60b012b7793f Adding support for compiling direct array specification inside variable declaration
laurent
parents: 355
diff changeset
   879
              s4o_incl.print(",");
60b012b7793f Adding support for compiling direct array specification inside variable declaration
laurent
parents: 355
diff changeset
   880
              symbol->non_generic_type_name->accept(*this);
60b012b7793f Adding support for compiling direct array specification inside variable declaration
laurent
parents: 355
diff changeset
   881
              s4o_incl.print(",");
60b012b7793f Adding support for compiling direct array specification inside variable declaration
laurent
parents: 355
diff changeset
   882
              symbol->array_subrange_list->accept(*this);
60b012b7793f Adding support for compiling direct array specification inside variable declaration
laurent
parents: 355
diff changeset
   883
              s4o_incl.print(")\n\n");
60b012b7793f Adding support for compiling direct array specification inside variable declaration
laurent
parents: 355
diff changeset
   884
60b012b7793f Adding support for compiling direct array specification inside variable declaration
laurent
parents: 355
diff changeset
   885
              inline_array_defined[current_array_name] = 0;
60b012b7793f Adding support for compiling direct array specification inside variable declaration
laurent
parents: 355
diff changeset
   886
            }
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
          break;
635
a20a70021d37 Adding support for direct array declaration in structure element declaration
Laurent Bessard
parents: 632
diff changeset
   889
        case arrayname_im:
a20a70021d37 Adding support for direct array declaration in structure element declaration
Laurent Bessard
parents: 632
diff changeset
   890
          {
706
31553c22f318 Adding support for declaring function block instances as global and external variables
Laurent Bessard
parents: 636
diff changeset
   891
              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
   892
              current_array_name = "__";
31553c22f318 Adding support for declaring function block instances as global and external variables
Laurent Bessard
parents: 636
diff changeset
   893
              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
   894
              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
   895
              s4o_incl.print(current_array_name);
635
a20a70021d37 Adding support for direct array declaration in structure element declaration
Laurent Bessard
parents: 632
diff changeset
   896
          }
a20a70021d37 Adding support for direct array declaration in structure element declaration
Laurent Bessard
parents: 632
diff changeset
   897
          break;
377
60b012b7793f Adding support for compiling direct array specification inside variable declaration
laurent
parents: 355
diff changeset
   898
        default:
60b012b7793f Adding support for compiling direct array specification inside variable declaration
laurent
parents: 355
diff changeset
   899
          return generate_c_typedecl_c::visit(symbol);
60b012b7793f Adding support for compiling direct array specification inside variable declaration
laurent
parents: 355
diff changeset
   900
          break;
60b012b7793f Adding support for compiling direct array specification inside variable declaration
laurent
parents: 355
diff changeset
   901
      }
60b012b7793f Adding support for compiling direct array specification inside variable declaration
laurent
parents: 355
diff changeset
   902
      return NULL;
60b012b7793f Adding support for compiling direct array specification inside variable declaration
laurent
parents: 355
diff changeset
   903
    }
60b012b7793f Adding support for compiling direct array specification inside variable declaration
laurent
parents: 355
diff changeset
   904
60b012b7793f Adding support for compiling direct array specification inside variable declaration
laurent
parents: 355
diff changeset
   905
    /*  signed_integer DOTDOT signed_integer */
60b012b7793f Adding support for compiling direct array specification inside variable declaration
laurent
parents: 355
diff changeset
   906
    //SYM_REF2(subrange_c, lower_limit, upper_limit)
60b012b7793f Adding support for compiling direct array specification inside variable declaration
laurent
parents: 355
diff changeset
   907
    void *visit(subrange_c *symbol) {
60b012b7793f Adding support for compiling direct array specification inside variable declaration
laurent
parents: 355
diff changeset
   908
      switch (current_mode) {
60b012b7793f Adding support for compiling direct array specification inside variable declaration
laurent
parents: 355
diff changeset
   909
        case arrayname_im:
60b012b7793f Adding support for compiling direct array specification inside variable declaration
laurent
parents: 355
diff changeset
   910
          current_array_name += "_";
60b012b7793f Adding support for compiling direct array specification inside variable declaration
laurent
parents: 355
diff changeset
   911
          {
60b012b7793f Adding support for compiling direct array specification inside variable declaration
laurent
parents: 355
diff changeset
   912
            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
   913
            ss << symbol->dimension;
377
60b012b7793f Adding support for compiling direct array specification inside variable declaration
laurent
parents: 355
diff changeset
   914
            current_array_name += ss.str();
60b012b7793f Adding support for compiling direct array specification inside variable declaration
laurent
parents: 355
diff changeset
   915
          }
60b012b7793f Adding support for compiling direct array specification inside variable declaration
laurent
parents: 355
diff changeset
   916
          break;
60b012b7793f Adding support for compiling direct array specification inside variable declaration
laurent
parents: 355
diff changeset
   917
        case arraydeclaration_im:
60b012b7793f Adding support for compiling direct array specification inside variable declaration
laurent
parents: 355
diff changeset
   918
          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
   919
          s4o_incl.print(symbol->dimension);
377
60b012b7793f Adding support for compiling direct array specification inside variable declaration
laurent
parents: 355
diff changeset
   920
          s4o_incl.print("]");
60b012b7793f Adding support for compiling direct array specification inside variable declaration
laurent
parents: 355
diff changeset
   921
        default:
60b012b7793f Adding support for compiling direct array specification inside variable declaration
laurent
parents: 355
diff changeset
   922
          generate_c_typedecl_c::visit(symbol);
60b012b7793f Adding support for compiling direct array specification inside variable declaration
laurent
parents: 355
diff changeset
   923
          break;
60b012b7793f Adding support for compiling direct array specification inside variable declaration
laurent
parents: 355
diff changeset
   924
      }
60b012b7793f Adding support for compiling direct array specification inside variable declaration
laurent
parents: 355
diff changeset
   925
      return NULL;
60b012b7793f Adding support for compiling direct array specification inside variable declaration
laurent
parents: 355
diff changeset
   926
    }
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
    /*  var1_list ':' initialized_structure */
60b012b7793f Adding support for compiling direct array specification inside variable declaration
laurent
parents: 355
diff changeset
   929
    // 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
   930
    void *visit(structured_var_init_decl_c *symbol) {
60b012b7793f Adding support for compiling direct array specification inside variable declaration
laurent
parents: 355
diff changeset
   931
      return NULL;
60b012b7793f Adding support for compiling direct array specification inside variable declaration
laurent
parents: 355
diff changeset
   932
    }
60b012b7793f Adding support for compiling direct array specification inside variable declaration
laurent
parents: 355
diff changeset
   933
60b012b7793f Adding support for compiling direct array specification inside variable declaration
laurent
parents: 355
diff changeset
   934
    /* 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
   935
    /* structure_initialization -> may be NULL ! */
60b012b7793f Adding support for compiling direct array specification inside variable declaration
laurent
parents: 355
diff changeset
   936
    void *visit(fb_name_decl_c *symbol) {
60b012b7793f Adding support for compiling direct array specification inside variable declaration
laurent
parents: 355
diff changeset
   937
      return NULL;
60b012b7793f Adding support for compiling direct array specification inside variable declaration
laurent
parents: 355
diff changeset
   938
    }
60b012b7793f Adding support for compiling direct array specification inside variable declaration
laurent
parents: 355
diff changeset
   939
60b012b7793f Adding support for compiling direct array specification inside variable declaration
laurent
parents: 355
diff changeset
   940
    /* 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
   941
    /* option -> may be NULL ! */
60b012b7793f Adding support for compiling direct array specification inside variable declaration
laurent
parents: 355
diff changeset
   942
    void *visit(output_declarations_c *symbol) {
60b012b7793f Adding support for compiling direct array specification inside variable declaration
laurent
parents: 355
diff changeset
   943
      symbol->var_init_decl_list->accept(*this);
60b012b7793f Adding support for compiling direct array specification inside variable declaration
laurent
parents: 355
diff changeset
   944
      return NULL;
60b012b7793f Adding support for compiling direct array specification inside variable declaration
laurent
parents: 355
diff changeset
   945
    }
60b012b7793f Adding support for compiling direct array specification inside variable declaration
laurent
parents: 355
diff changeset
   946
60b012b7793f Adding support for compiling direct array specification inside variable declaration
laurent
parents: 355
diff changeset
   947
    /*  VAR_IN_OUT var_declaration_list END_VAR */
60b012b7793f Adding support for compiling direct array specification inside variable declaration
laurent
parents: 355
diff changeset
   948
    void *visit(input_output_declarations_c *symbol) {
60b012b7793f Adding support for compiling direct array specification inside variable declaration
laurent
parents: 355
diff changeset
   949
      symbol->var_declaration_list->accept(*this);
60b012b7793f Adding support for compiling direct array specification inside variable declaration
laurent
parents: 355
diff changeset
   950
      return NULL;
60b012b7793f Adding support for compiling direct array specification inside variable declaration
laurent
parents: 355
diff changeset
   951
    }
60b012b7793f Adding support for compiling direct array specification inside variable declaration
laurent
parents: 355
diff changeset
   952
60b012b7793f Adding support for compiling direct array specification inside variable declaration
laurent
parents: 355
diff changeset
   953
    /*  var1_list ':' array_specification */
60b012b7793f Adding support for compiling direct array specification inside variable declaration
laurent
parents: 355
diff changeset
   954
    //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
   955
    void *visit(array_var_declaration_c *symbol) {
60b012b7793f Adding support for compiling direct array specification inside variable declaration
laurent
parents: 355
diff changeset
   956
      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
   957
      if (specification != NULL) {
635
a20a70021d37 Adding support for direct array declaration in structure element declaration
Laurent Bessard
parents: 632
diff changeset
   958
        current_mode = arraydeclaration_im;
377
60b012b7793f Adding support for compiling direct array specification inside variable declaration
laurent
parents: 355
diff changeset
   959
        symbol->array_specification->accept(*this);
60b012b7793f Adding support for compiling direct array specification inside variable declaration
laurent
parents: 355
diff changeset
   960
        current_mode = none_im;
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
      return NULL;
60b012b7793f Adding support for compiling direct array specification inside variable declaration
laurent
parents: 355
diff changeset
   963
    }
60b012b7793f Adding support for compiling direct array specification inside variable declaration
laurent
parents: 355
diff changeset
   964
624
c2546c6e0cfa Moving function to correct location (formating only).
Mario de Sousa <msousa@fe.up.pt>
parents: 623
diff changeset
   965
    /*  var1_list ':' structure_type_name */
c2546c6e0cfa Moving function to correct location (formating only).
Mario de Sousa <msousa@fe.up.pt>
parents: 623
diff changeset
   966
    //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
   967
    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
   968
      return NULL;
c2546c6e0cfa Moving function to correct location (formating only).
Mario de Sousa <msousa@fe.up.pt>
parents: 623
diff changeset
   969
    }
c2546c6e0cfa Moving function to correct location (formating only).
Mario de Sousa <msousa@fe.up.pt>
parents: 623
diff changeset
   970
377
60b012b7793f Adding support for compiling direct array specification inside variable declaration
laurent
parents: 355
diff changeset
   971
    /* VAR [CONSTANT] var_init_decl_list END_VAR */
60b012b7793f Adding support for compiling direct array specification inside variable declaration
laurent
parents: 355
diff changeset
   972
    /* option -> may be NULL ! */
60b012b7793f Adding support for compiling direct array specification inside variable declaration
laurent
parents: 355
diff changeset
   973
    /* helper symbol for input_declarations */
60b012b7793f Adding support for compiling direct array specification inside variable declaration
laurent
parents: 355
diff changeset
   974
    void *visit(var_declarations_c *symbol) {
60b012b7793f Adding support for compiling direct array specification inside variable declaration
laurent
parents: 355
diff changeset
   975
      symbol->var_init_decl_list->accept(*this);
60b012b7793f Adding support for compiling direct array specification inside variable declaration
laurent
parents: 355
diff changeset
   976
      return NULL;
60b012b7793f Adding support for compiling direct array specification inside variable declaration
laurent
parents: 355
diff changeset
   977
    }
60b012b7793f Adding support for compiling direct array specification inside variable declaration
laurent
parents: 355
diff changeset
   978
60b012b7793f Adding support for compiling direct array specification inside variable declaration
laurent
parents: 355
diff changeset
   979
    /*  VAR RETAIN var_init_decl_list END_VAR */
60b012b7793f Adding support for compiling direct array specification inside variable declaration
laurent
parents: 355
diff changeset
   980
    void *visit(retentive_var_declarations_c *symbol) {
60b012b7793f Adding support for compiling direct array specification inside variable declaration
laurent
parents: 355
diff changeset
   981
      symbol->var_init_decl_list->accept(*this);
60b012b7793f Adding support for compiling direct array specification inside variable declaration
laurent
parents: 355
diff changeset
   982
      return NULL;
60b012b7793f Adding support for compiling direct array specification inside variable declaration
laurent
parents: 355
diff changeset
   983
    }
60b012b7793f Adding support for compiling direct array specification inside variable declaration
laurent
parents: 355
diff changeset
   984
60b012b7793f Adding support for compiling direct array specification inside variable declaration
laurent
parents: 355
diff changeset
   985
    /*  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
   986
    /* option -> may be NULL ! */
60b012b7793f Adding support for compiling direct array specification inside variable declaration
laurent
parents: 355
diff changeset
   987
    //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
   988
    void *visit(located_var_declarations_c *symbol) {
60b012b7793f Adding support for compiling direct array specification inside variable declaration
laurent
parents: 355
diff changeset
   989
      symbol->located_var_decl_list->accept(*this);
60b012b7793f Adding support for compiling direct array specification inside variable declaration
laurent
parents: 355
diff changeset
   990
      return NULL;
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
60b012b7793f Adding support for compiling direct array specification inside variable declaration
laurent
parents: 355
diff changeset
   993
    /*  [variable_name] location ':' located_var_spec_init */
60b012b7793f Adding support for compiling direct array specification inside variable declaration
laurent
parents: 355
diff changeset
   994
    /* variable_name -> may be NULL ! */
60b012b7793f Adding support for compiling direct array specification inside variable declaration
laurent
parents: 355
diff changeset
   995
    //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
   996
    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
   997
      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
   998
      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
   999
        current_mode = arraydeclaration_im;
31553c22f318 Adding support for declaring function block instances as global and external variables
Laurent Bessard
parents: 636
diff changeset
  1000
        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
  1001
        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
  1002
      }
377
60b012b7793f Adding support for compiling direct array specification inside variable declaration
laurent
parents: 355
diff changeset
  1003
      return NULL;
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
    /*| VAR_EXTERNAL [CONSTANT] external_declaration_list END_VAR */
60b012b7793f Adding support for compiling direct array specification inside variable declaration
laurent
parents: 355
diff changeset
  1007
    /* option -> may be NULL ! */
60b012b7793f Adding support for compiling direct array specification inside variable declaration
laurent
parents: 355
diff changeset
  1008
    //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
  1009
    void *visit(external_var_declarations_c *symbol) {
60b012b7793f Adding support for compiling direct array specification inside variable declaration
laurent
parents: 355
diff changeset
  1010
      symbol->external_declaration_list->accept(*this);
60b012b7793f Adding support for compiling direct array specification inside variable declaration
laurent
parents: 355
diff changeset
  1011
      return NULL;
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
    /*  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
  1015
    //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
  1016
    void *visit(external_declaration_c *symbol) {
60b012b7793f Adding support for compiling direct array specification inside variable declaration
laurent
parents: 355
diff changeset
  1017
      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
  1018
      if (array_specification != NULL) {
635
a20a70021d37 Adding support for direct array declaration in structure element declaration
Laurent Bessard
parents: 632
diff changeset
  1019
        current_mode = arraydeclaration_im;
377
60b012b7793f Adding support for compiling direct array specification inside variable declaration
laurent
parents: 355
diff changeset
  1020
        symbol->specification->accept(*this);
60b012b7793f Adding support for compiling direct array specification inside variable declaration
laurent
parents: 355
diff changeset
  1021
        current_mode = none_im;
60b012b7793f Adding support for compiling direct array specification inside variable declaration
laurent
parents: 355
diff changeset
  1022
      }
60b012b7793f Adding support for compiling direct array specification inside variable declaration
laurent
parents: 355
diff changeset
  1023
      return NULL;
60b012b7793f Adding support for compiling direct array specification inside variable declaration
laurent
parents: 355
diff changeset
  1024
    }
60b012b7793f Adding support for compiling direct array specification inside variable declaration
laurent
parents: 355
diff changeset
  1025
60b012b7793f Adding support for compiling direct array specification inside variable declaration
laurent
parents: 355
diff changeset
  1026
    /*| 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
  1027
    /* option -> may be NULL ! */
60b012b7793f Adding support for compiling direct array specification inside variable declaration
laurent
parents: 355
diff changeset
  1028
    // 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
  1029
    void *visit(global_var_declarations_c *symbol) {
60b012b7793f Adding support for compiling direct array specification inside variable declaration
laurent
parents: 355
diff changeset
  1030
      symbol->global_var_decl_list->accept(*this);
60b012b7793f Adding support for compiling direct array specification inside variable declaration
laurent
parents: 355
diff changeset
  1031
      return NULL;
60b012b7793f Adding support for compiling direct array specification inside variable declaration
laurent
parents: 355
diff changeset
  1032
    }
60b012b7793f Adding support for compiling direct array specification inside variable declaration
laurent
parents: 355
diff changeset
  1033
60b012b7793f Adding support for compiling direct array specification inside variable declaration
laurent
parents: 355
diff changeset
  1034
    /*| 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
  1035
    /* type_specification ->may be NULL ! */
60b012b7793f Adding support for compiling direct array specification inside variable declaration
laurent
parents: 355
diff changeset
  1036
    // 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
  1037
    void *visit(global_var_decl_c *symbol) {
60b012b7793f Adding support for compiling direct array specification inside variable declaration
laurent
parents: 355
diff changeset
  1038
      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
  1039
      if (array_spec_init != NULL) {
635
a20a70021d37 Adding support for direct array declaration in structure element declaration
Laurent Bessard
parents: 632
diff changeset
  1040
        current_mode = arraydeclaration_im;
377
60b012b7793f Adding support for compiling direct array specification inside variable declaration
laurent
parents: 355
diff changeset
  1041
        symbol->type_specification->accept(*this);
60b012b7793f Adding support for compiling direct array specification inside variable declaration
laurent
parents: 355
diff changeset
  1042
        current_mode = none_im;
60b012b7793f Adding support for compiling direct array specification inside variable declaration
laurent
parents: 355
diff changeset
  1043
      }
60b012b7793f Adding support for compiling direct array specification inside variable declaration
laurent
parents: 355
diff changeset
  1044
      return NULL;
60b012b7793f Adding support for compiling direct array specification inside variable declaration
laurent
parents: 355
diff changeset
  1045
    }
60b012b7793f Adding support for compiling direct array specification inside variable declaration
laurent
parents: 355
diff changeset
  1046
60b012b7793f Adding support for compiling direct array specification inside variable declaration
laurent
parents: 355
diff changeset
  1047
    void *visit(function_var_decls_c *symbol) {
60b012b7793f Adding support for compiling direct array specification inside variable declaration
laurent
parents: 355
diff changeset
  1048
      symbol->decl_list->accept(*this);
60b012b7793f Adding support for compiling direct array specification inside variable declaration
laurent
parents: 355
diff changeset
  1049
      return NULL;
60b012b7793f Adding support for compiling direct array specification inside variable declaration
laurent
parents: 355
diff changeset
  1050
    }
60b012b7793f Adding support for compiling direct array specification inside variable declaration
laurent
parents: 355
diff changeset
  1051
60b012b7793f Adding support for compiling direct array specification inside variable declaration
laurent
parents: 355
diff changeset
  1052
    /*****************************/
60b012b7793f Adding support for compiling direct array specification inside variable declaration
laurent
parents: 355
diff changeset
  1053
    /* B 1.5.2 - Function Blocks */
60b012b7793f Adding support for compiling direct array specification inside variable declaration
laurent
parents: 355
diff changeset
  1054
    /*****************************/
60b012b7793f Adding support for compiling direct array specification inside variable declaration
laurent
parents: 355
diff changeset
  1055
60b012b7793f Adding support for compiling direct array specification inside variable declaration
laurent
parents: 355
diff changeset
  1056
    /*  VAR_TEMP temp_var_decl_list END_VAR */
60b012b7793f Adding support for compiling direct array specification inside variable declaration
laurent
parents: 355
diff changeset
  1057
    void *visit(temp_var_decls_c *symbol) {
60b012b7793f Adding support for compiling direct array specification inside variable declaration
laurent
parents: 355
diff changeset
  1058
      symbol->var_decl_list->accept(*this);
60b012b7793f Adding support for compiling direct array specification inside variable declaration
laurent
parents: 355
diff changeset
  1059
      return NULL;
60b012b7793f Adding support for compiling direct array specification inside variable declaration
laurent
parents: 355
diff changeset
  1060
    }
60b012b7793f Adding support for compiling direct array specification inside variable declaration
laurent
parents: 355
diff changeset
  1061
60b012b7793f Adding support for compiling direct array specification inside variable declaration
laurent
parents: 355
diff changeset
  1062
    /*  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
  1063
    void *visit(non_retentive_var_decls_c *symbol) {
60b012b7793f Adding support for compiling direct array specification inside variable declaration
laurent
parents: 355
diff changeset
  1064
      symbol->var_decl_list->accept(*this);
60b012b7793f Adding support for compiling direct array specification inside variable declaration
laurent
parents: 355
diff changeset
  1065
      return NULL;
60b012b7793f Adding support for compiling direct array specification inside variable declaration
laurent
parents: 355
diff changeset
  1066
    }
60b012b7793f Adding support for compiling direct array specification inside variable declaration
laurent
parents: 355
diff changeset
  1067
60b012b7793f Adding support for compiling direct array specification inside variable declaration
laurent
parents: 355
diff changeset
  1068
};
60b012b7793f Adding support for compiling direct array specification inside variable declaration
laurent
parents: 355
diff changeset
  1069
60b012b7793f Adding support for compiling direct array specification inside variable declaration
laurent
parents: 355
diff changeset
  1070
60b012b7793f Adding support for compiling direct array specification inside variable declaration
laurent
parents: 355
diff changeset
  1071
60b012b7793f Adding support for compiling direct array specification inside variable declaration
laurent
parents: 355
diff changeset
  1072
60b012b7793f Adding support for compiling direct array specification inside variable declaration
laurent
parents: 355
diff changeset
  1073
/***********************************************************************/
60b012b7793f Adding support for compiling direct array specification inside variable declaration
laurent
parents: 355
diff changeset
  1074
/***********************************************************************/
60b012b7793f Adding support for compiling direct array specification inside variable declaration
laurent
parents: 355
diff changeset
  1075
/***********************************************************************/
60b012b7793f Adding support for compiling direct array specification inside variable declaration
laurent
parents: 355
diff changeset
  1076
/***********************************************************************/
60b012b7793f Adding support for compiling direct array specification inside variable declaration
laurent
parents: 355
diff changeset
  1077
/***********************************************************************/
60b012b7793f Adding support for compiling direct array specification inside variable declaration
laurent
parents: 355
diff changeset
  1078
60b012b7793f Adding support for compiling direct array specification inside variable declaration
laurent
parents: 355
diff changeset
  1079
70
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  1080
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
  1081
  private:
0a1204bcc9af starting to add proper header file with declaration of standard functions
Mario de Sousa <msousa@fe.up.pt>
parents: 262
diff changeset
  1082
    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
  1083
    
70
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  1084
  public:
121
9e8ce092e169 Adding support for POU struct definition in POUS.h
lbessard
parents: 120
diff changeset
  1085
    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
  1086
      : 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
  1087
      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
  1088
    };
70
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  1089
    virtual ~generate_c_pous_c(void) {}
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  1090
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
  1091
  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
  1092
    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
  1093
      /* 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
  1094
       * 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
  1095
       * 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
  1096
       */
214d3fdee596 fixing C code generation of return_statement_c and exit_statement_c
Mario de Sousa <msousa@fe.up.pt>
parents: 279
diff changeset
  1097
      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
  1098
      /* 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
  1099
      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
  1100
      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
  1101
      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
  1102
      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
  1103
      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
  1104
214d3fdee596 fixing C code generation of return_statement_c and exit_statement_c
Mario de Sousa <msousa@fe.up.pt>
parents: 279
diff changeset
  1105
      /* 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
  1106
      /* 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
  1107
      /* 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
  1108
      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
  1109
      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
  1110
      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
  1111
      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
  1112
      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
  1113
    }
214d3fdee596 fixing C code generation of return_statement_c and exit_statement_c
Mario de Sousa <msousa@fe.up.pt>
parents: 279
diff changeset
  1114
  
214d3fdee596 fixing C code generation of return_statement_c and exit_statement_c
Mario de Sousa <msousa@fe.up.pt>
parents: 279
diff changeset
  1115
70
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  1116
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  1117
  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
  1118
/********************/
0a1204bcc9af starting to add proper header file with declaration of standard functions
Mario de Sousa <msousa@fe.up.pt>
parents: 262
diff changeset
  1119
/* 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
  1120
/********************/
0a1204bcc9af starting to add proper header file with declaration of standard functions
Mario de Sousa <msousa@fe.up.pt>
parents: 262
diff changeset
  1121
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
  1122
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
  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 - Common elements */
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  1126
/*************************/
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  1127
/*******************************************/
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  1128
/* B 1.1 - Letters, digits and identifiers */
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  1129
/*******************************************/
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  1130
  /* done in base class(es) */
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  1131
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  1132
/*********************/
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  1133
/* B 1.2 - Constants */
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  1134
/*********************/
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  1135
  /* originally empty... */
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.2.1 - Numeric Literals */
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  1139
/******************************/
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  1140
  /* done in base class(es) */
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  1141
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  1142
/*******************************/
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  1143
/* B.1.2.2   Character Strings */
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  1144
/*******************************/
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  1145
  /* done in base class(es) */
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  1146
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  1147
/***************************/
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  1148
/* B 1.2.3 - Time Literals */
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  1149
/***************************/
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  1150
/************************/
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  1151
/* B 1.2.3.1 - Duration */
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  1152
/************************/
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  1153
  /* done in base class(es) */
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  1154
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  1155
/************************************/
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  1156
/* B 1.2.3.2 - Time of day and Date */
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  1157
/************************************/
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  1158
  /* done in base class(es) */
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  1159
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  1160
/**********************/
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  1161
/* B.1.3 - Data types */
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  1162
/**********************/
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  1163
/***********************************/
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  1164
/* B 1.3.1 - Elementary Data Types */
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  1165
/***********************************/
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  1166
  /* done in base class(es) */
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  1167
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  1168
/********************************/
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  1169
/* B.1.3.2 - Generic data types */
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  1170
/********************************/
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  1171
  /* originally empty... */
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  1172
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  1173
/********************************/
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  1174
/* B 1.3.3 - Derived data types */
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  1175
/********************************/
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  1176
  /* done in base class(es) */
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  1177
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  1178
/*********************/
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  1179
/* B 1.4 - Variables */
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  1180
/*********************/
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  1181
  /* done in base class(es) */
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  1182
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  1183
/********************************************/
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  1184
/* B.1.4.1   Directly Represented Variables */
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  1185
/********************************************/
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  1186
  /* done in base class(es) */
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  1187
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  1188
/*************************************/
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  1189
/* B.1.4.2   Multi-element Variables */
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  1190
/*************************************/
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  1191
  /* done in base class(es) */
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  1192
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  1193
/******************************************/
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  1194
/* B 1.4.3 - Declaration & Initialisation */
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  1195
/******************************************/
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  1196
  /* done in base class(es) */
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  1197
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  1198
/**************************************/
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  1199
/* B.1.5 - Program organization units */
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  1200
/**************************************/
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  1201
/***********************/
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  1202
/* B 1.5.1 - Functions */
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  1203
/***********************/
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  1204
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  1205
public:
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  1206
/*   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
  1207
/* | 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
  1208
void *visit(function_declaration_c *symbol) {
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  1209
  generate_c_vardecl_c *vardecl;
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  1210
  TRACE("function_declaration_c");
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  1211
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  1212
  /* (A) Function declaration... */
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  1213
  /* (A.1) Function return type */
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  1214
  s4o.print("// FUNCTION\n");
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  1215
  symbol->type_name->accept(*this); /* return type */
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  1216
  s4o.print(" ");
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  1217
  /* (A.2) Function name */
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  1218
  symbol->derived_function_name->accept(*this);
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  1219
  s4o.print("(");
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  1220
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  1221
  /* (A.3) Function parameters */
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  1222
  s4o.indent_right();
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  1223
  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
  1224
                                     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
  1225
                                     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
  1226
                                     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
  1227
                                     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
  1228
                                     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
  1229
                                     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
  1230
  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
  1231
  delete vardecl;
eef5e62048c7 Adding support for EN/ENO params in function and function blocks (standard function not supported yet)
lbessard
parents: 145
diff changeset
  1232
  
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
  
eef5e62048c7 Adding support for EN/ENO params in function and function blocks (standard function not supported yet)
lbessard
parents: 145
diff changeset
  1235
  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
  1236
eef5e62048c7 Adding support for EN/ENO params in function and function blocks (standard function not supported yet)
lbessard
parents: 145
diff changeset
  1237
  /* (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
  1238
  /* (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
  1239
  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
  1240
  
202
da1a8186f86f Initial (very rough) version of semantic checker (stage3)
Catarina Boucinha <ccb@fe.up.pt>
parents: 189
diff changeset
  1241
  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
  1242
                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
  1243
                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
  1244
                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
  1245
                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
  1246
                generate_c_vardecl_c::eno_vt);
70
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  1247
  vardecl->print(symbol->var_declarations_list);
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  1248
  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
  1249
eef5e62048c7 Adding support for EN/ENO params in function and function blocks (standard function not supported yet)
lbessard
parents: 145
diff changeset
  1250
  /* (B.2) Temporary variable for function's return value */
70
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  1251
  /* It will have the same name as the function itself! */
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  1252
  s4o.print(s4o.indent_spaces);
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  1253
  symbol->type_name->accept(*this); /* return type */
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  1254
  s4o.print(" ");
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  1255
  symbol->derived_function_name->accept(*this);
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  1256
  s4o.print(" = ");
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  1257
  {
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  1258
    /* 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
  1259
    symbol_c *default_value = type_initial_value_c::get(symbol->type_name);
70
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  1260
    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
  1261
    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
  1262
    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
  1263
      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
  1264
        {
746a357b8747 Fix bug when generating initial value for function return type when it is a complex type
laurent
parents: 283
diff changeset
  1265
          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
  1266
          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
  1267
          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
  1268
          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
  1269
        }
377
60b012b7793f Adding support for compiling direct array specification inside variable declaration
laurent
parents: 355
diff changeset
  1270
        break;
318
746a357b8747 Fix bug when generating initial value for function return type when it is a complex type
laurent
parents: 283
diff changeset
  1271
      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
  1272
        {
377
60b012b7793f Adding support for compiling direct array specification inside variable declaration
laurent
parents: 355
diff changeset
  1273
          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
  1274
          array_initialization->init_array_size(symbol->type_name);
60b012b7793f Adding support for compiling direct array specification inside variable declaration
laurent
parents: 355
diff changeset
  1275
          array_initialization->init_array_values(default_value);
60b012b7793f Adding support for compiling direct array specification inside variable declaration
laurent
parents: 355
diff changeset
  1276
          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
  1277
        }
377
60b012b7793f Adding support for compiling direct array specification inside variable declaration
laurent
parents: 355
diff changeset
  1278
        break;
318
746a357b8747 Fix bug when generating initial value for function return type when it is a complex type
laurent
parents: 283
diff changeset
  1279
      default:
746a357b8747 Fix bug when generating initial value for function return type when it is a complex type
laurent
parents: 283
diff changeset
  1280
        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
  1281
        break;
746a357b8747 Fix bug when generating initial value for function return type when it is a complex type
laurent
parents: 283
diff changeset
  1282
    }
70
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  1283
  }
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  1284
  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
  1285
  
eef5e62048c7 Adding support for EN/ENO params in function and function blocks (standard function not supported yet)
lbessard
parents: 145
diff changeset
  1286
  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
  1287
  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
  1288
  s4o.indent_right();
202
da1a8186f86f Initial (very rough) version of semantic checker (stage3)
Catarina Boucinha <ccb@fe.up.pt>
parents: 189
diff changeset
  1289
  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
  1290
  s4o.indent_right();
202
da1a8186f86f Initial (very rough) version of semantic checker (stage3)
Catarina Boucinha <ccb@fe.up.pt>
parents: 189
diff changeset
  1291
  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
  1292
  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
  1293
  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
  1294
  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
  1295
  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
  1296
  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
  1297
  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
  1298
  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
  1299
70
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  1300
  /* (C) Function body */
217
f5dfadf5de54 Adding support for declare, init, get and set macros
laurent
parents: 210
diff changeset
  1301
  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
  1302
  symbol->function_body->accept(generate_c_code);
145
72ae82e65dbc Adding support for ouput variables in functions
lbessard
parents: 139
diff changeset
  1303
  
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
  1304
  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
  1305
  
145
72ae82e65dbc Adding support for ouput variables in functions
lbessard
parents: 139
diff changeset
  1306
  vardecl = new generate_c_vardecl_c(&s4o,
72ae82e65dbc Adding support for ouput variables in functions
lbessard
parents: 139
diff changeset
  1307
                generate_c_vardecl_c::foutputassign_vf,
202
da1a8186f86f Initial (very rough) version of semantic checker (stage3)
Catarina Boucinha <ccb@fe&