stage4/generate_c/generate_c.cc
author mjsousa
Sun, 06 Jul 2014 16:54:53 +0100
changeset 907 c3edb882a4b2
parent 906 b225af94405f
child 908 9e8e1ba5ca46
permissions -rw-r--r--
code re-organisation. Preparing for the changes to come in the next commit (one C file for each POU)
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"
873
dea39ef02847 Add limited support for the REF() operator (defined in v3 of IEC 61131-3)
mjsousa
parents: 872
diff changeset
   135
dea39ef02847 Add limited support for the REF() operator (defined in v3 of IEC 61131-3)
mjsousa
parents: 872
diff changeset
   136
#define GET_VAR_REF "__GET_VAR_REF"
dea39ef02847 Add limited support for the REF() operator (defined in v3 of IEC 61131-3)
mjsousa
parents: 872
diff changeset
   137
#define GET_EXTERNAL_REF "__GET_EXTERNAL_REF"
dea39ef02847 Add limited support for the REF() operator (defined in v3 of IEC 61131-3)
mjsousa
parents: 872
diff changeset
   138
#define GET_EXTERNAL_FB_REF "__GET_EXTERNAL_FB_REF"
dea39ef02847 Add limited support for the REF() operator (defined in v3 of IEC 61131-3)
mjsousa
parents: 872
diff changeset
   139
#define GET_LOCATED_REF "__GET_LOCATED_REF"
dea39ef02847 Add limited support for the REF() operator (defined in v3 of IEC 61131-3)
mjsousa
parents: 872
diff changeset
   140
217
f5dfadf5de54 Adding support for declare, init, get and set macros
laurent
parents: 210
diff changeset
   141
#define GET_VAR_BY_REF "__GET_VAR_BY_REF"
f5dfadf5de54 Adding support for declare, init, get and set macros
laurent
parents: 210
diff changeset
   142
#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
   143
#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
   144
#define GET_LOCATED_BY_REF "__GET_LOCATED_BY_REF"
f5dfadf5de54 Adding support for declare, init, get and set macros
laurent
parents: 210
diff changeset
   145
f5dfadf5de54 Adding support for declare, init, get and set macros
laurent
parents: 210
diff changeset
   146
/* Variable setter symbol for accessor macros */
f5dfadf5de54 Adding support for declare, init, get and set macros
laurent
parents: 210
diff changeset
   147
#define SET_VAR "__SET_VAR"
f5dfadf5de54 Adding support for declare, init, get and set macros
laurent
parents: 210
diff changeset
   148
#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
   149
#define SET_EXTERNAL_FB "__SET_EXTERNAL_FB"
217
f5dfadf5de54 Adding support for declare, init, get and set macros
laurent
parents: 210
diff changeset
   150
#define SET_LOCATED "__SET_LOCATED"
f5dfadf5de54 Adding support for declare, init, get and set macros
laurent
parents: 210
diff changeset
   151
396
155560bfe837 Fixing bug with external variables refering to global variables defined in configurations
laurent
parents: 392
diff changeset
   152
/* 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
   153
#define INITIAL_VALUE "__INITIAL_VALUE"
70
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
   154
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
   155
/* Generate a name for a temporary variable.
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
   156
 * Each new name generated is appended a different number,
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
   157
 * starting off from 0.
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
   158
 * After calling reset(), the names will start off again from 0.
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
   159
 */
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
   160
#define VAR_LEADER "__"
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
   161
#define TEMP_VAR VAR_LEADER "TMP_"
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
   162
#define SOURCE_VAR VAR_LEADER "SRC_"
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
   163
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
   164
/* 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
   165
#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
   166
214d3fdee596 fixing C code generation of return_statement_c and exit_statement_c
Mario de Sousa <msousa@fe.up.pt>
parents: 279
diff changeset
   167
217
f5dfadf5de54 Adding support for declare, init, get and set macros
laurent
parents: 210
diff changeset
   168
/***********************************************************************/
f5dfadf5de54 Adding support for declare, init, get and set macros
laurent
parents: 210
diff changeset
   169
/***********************************************************************/
f5dfadf5de54 Adding support for declare, init, get and set macros
laurent
parents: 210
diff changeset
   170
/***********************************************************************/
f5dfadf5de54 Adding support for declare, init, get and set macros
laurent
parents: 210
diff changeset
   171
/***********************************************************************/
f5dfadf5de54 Adding support for declare, init, get and set macros
laurent
parents: 210
diff changeset
   172
882
18a39a545ed9 Disable stage4 options with on windows since getsuboptr isn't supported in mingw
Edouard Tisserant
parents: 878
diff changeset
   173
18a39a545ed9 Disable stage4 options with on windows since getsuboptr isn't supported in mingw
Edouard Tisserant
parents: 878
diff changeset
   174
static int generate_line_directives__ = 0;
18a39a545ed9 Disable stage4 options with on windows since getsuboptr isn't supported in mingw
Edouard Tisserant
parents: 878
diff changeset
   175
18a39a545ed9 Disable stage4 options with on windows since getsuboptr isn't supported in mingw
Edouard Tisserant
parents: 878
diff changeset
   176
#ifdef __unix__
878
89eb85bab58f Make generation of #line directives optional.
mjsousa
parents: 873
diff changeset
   177
/* Parse command line options passed from main.c !! */
89eb85bab58f Make generation of #line directives optional.
mjsousa
parents: 873
diff changeset
   178
#include <stdlib.h> // for getsybopt()
89eb85bab58f Make generation of #line directives optional.
mjsousa
parents: 873
diff changeset
   179
int  stage4_parse_options(char *options) {
89eb85bab58f Make generation of #line directives optional.
mjsousa
parents: 873
diff changeset
   180
  enum {                    LINE_OPT = 0             /*, SOME_OTHER_OPT, YET_ANOTHER_OPT */};
89eb85bab58f Make generation of #line directives optional.
mjsousa
parents: 873
diff changeset
   181
  char *const token[] = { /*[LINE_OPT]=*/(char *)"l" /*, SOME_OTHER_OPT, ...             */, NULL };
89eb85bab58f Make generation of #line directives optional.
mjsousa
parents: 873
diff changeset
   182
  /* unfortunately, the above commented out syntax for array initialization is valid in C, but not in C++ */
89eb85bab58f Make generation of #line directives optional.
mjsousa
parents: 873
diff changeset
   183
  
89eb85bab58f Make generation of #line directives optional.
mjsousa
parents: 873
diff changeset
   184
  char *subopts = options;
89eb85bab58f Make generation of #line directives optional.
mjsousa
parents: 873
diff changeset
   185
  char *value;
89eb85bab58f Make generation of #line directives optional.
mjsousa
parents: 873
diff changeset
   186
  int opt;
89eb85bab58f Make generation of #line directives optional.
mjsousa
parents: 873
diff changeset
   187
89eb85bab58f Make generation of #line directives optional.
mjsousa
parents: 873
diff changeset
   188
  while (*subopts != '\0') {
89eb85bab58f Make generation of #line directives optional.
mjsousa
parents: 873
diff changeset
   189
    switch (getsubopt(&subopts, token, &value)) {
89eb85bab58f Make generation of #line directives optional.
mjsousa
parents: 873
diff changeset
   190
      case LINE_OPT: generate_line_directives__  = 1; break;
89eb85bab58f Make generation of #line directives optional.
mjsousa
parents: 873
diff changeset
   191
      default      : fprintf(stderr, "Unrecognized option: -O %s\n", value); return -1; break;
89eb85bab58f Make generation of #line directives optional.
mjsousa
parents: 873
diff changeset
   192
     }
89eb85bab58f Make generation of #line directives optional.
mjsousa
parents: 873
diff changeset
   193
  }     
89eb85bab58f Make generation of #line directives optional.
mjsousa
parents: 873
diff changeset
   194
  return 0;
89eb85bab58f Make generation of #line directives optional.
mjsousa
parents: 873
diff changeset
   195
}
89eb85bab58f Make generation of #line directives optional.
mjsousa
parents: 873
diff changeset
   196
89eb85bab58f Make generation of #line directives optional.
mjsousa
parents: 873
diff changeset
   197
89eb85bab58f Make generation of #line directives optional.
mjsousa
parents: 873
diff changeset
   198
void stage4_print_options(void) {
89eb85bab58f Make generation of #line directives optional.
mjsousa
parents: 873
diff changeset
   199
  printf("          (options must be separated by commas. Example: 'l,w,x')\n"); 
89eb85bab58f Make generation of #line directives optional.
mjsousa
parents: 873
diff changeset
   200
  printf("      l : insert '#line' directives in generated C code.\n"); 
89eb85bab58f Make generation of #line directives optional.
mjsousa
parents: 873
diff changeset
   201
}
882
18a39a545ed9 Disable stage4 options with on windows since getsuboptr isn't supported in mingw
Edouard Tisserant
parents: 878
diff changeset
   202
#else /* not __unix__ */
18a39a545ed9 Disable stage4 options with on windows since getsuboptr isn't supported in mingw
Edouard Tisserant
parents: 878
diff changeset
   203
/* getsubopt isn't supported with mingw, 
18a39a545ed9 Disable stage4 options with on windows since getsuboptr isn't supported in mingw
Edouard Tisserant
parents: 878
diff changeset
   204
 *  then stage4 options aren't available on windows*/
18a39a545ed9 Disable stage4 options with on windows since getsuboptr isn't supported in mingw
Edouard Tisserant
parents: 878
diff changeset
   205
void stage4_print_options(void) {}
18a39a545ed9 Disable stage4 options with on windows since getsuboptr isn't supported in mingw
Edouard Tisserant
parents: 878
diff changeset
   206
int  stage4_parse_options(char *options) {}
18a39a545ed9 Disable stage4 options with on windows since getsuboptr isn't supported in mingw
Edouard Tisserant
parents: 878
diff changeset
   207
#endif 
878
89eb85bab58f Make generation of #line directives optional.
mjsousa
parents: 873
diff changeset
   208
89eb85bab58f Make generation of #line directives optional.
mjsousa
parents: 873
diff changeset
   209
/***********************************************************************/
89eb85bab58f Make generation of #line directives optional.
mjsousa
parents: 873
diff changeset
   210
/***********************************************************************/
89eb85bab58f Make generation of #line directives optional.
mjsousa
parents: 873
diff changeset
   211
/***********************************************************************/
89eb85bab58f Make generation of #line directives optional.
mjsousa
parents: 873
diff changeset
   212
/***********************************************************************/
89eb85bab58f Make generation of #line directives optional.
mjsousa
parents: 873
diff changeset
   213
217
f5dfadf5de54 Adding support for declare, init, get and set macros
laurent
parents: 210
diff changeset
   214
#include "generate_c_base.cc"
f5dfadf5de54 Adding support for declare, init, get and set macros
laurent
parents: 210
diff changeset
   215
#include "generate_c_typedecl.cc"
f5dfadf5de54 Adding support for declare, init, get and set macros
laurent
parents: 210
diff changeset
   216
#include "generate_c_sfcdecl.cc"
f5dfadf5de54 Adding support for declare, init, get and set macros
laurent
parents: 210
diff changeset
   217
#include "generate_c_vardecl.cc"
f5dfadf5de54 Adding support for declare, init, get and set macros
laurent
parents: 210
diff changeset
   218
#include "generate_c_configbody.cc"
f5dfadf5de54 Adding support for declare, init, get and set macros
laurent
parents: 210
diff changeset
   219
#include "generate_location_list.cc"
f5dfadf5de54 Adding support for declare, init, get and set macros
laurent
parents: 210
diff changeset
   220
#include "generate_var_list.cc"
f5dfadf5de54 Adding support for declare, init, get and set macros
laurent
parents: 210
diff changeset
   221
f5dfadf5de54 Adding support for declare, init, get and set macros
laurent
parents: 210
diff changeset
   222
/***********************************************************************/
f5dfadf5de54 Adding support for declare, init, get and set macros
laurent
parents: 210
diff changeset
   223
/***********************************************************************/
f5dfadf5de54 Adding support for declare, init, get and set macros
laurent
parents: 210
diff changeset
   224
/***********************************************************************/
f5dfadf5de54 Adding support for declare, init, get and set macros
laurent
parents: 210
diff changeset
   225
/***********************************************************************/
f5dfadf5de54 Adding support for declare, init, get and set macros
laurent
parents: 210
diff changeset
   226
350
2c3c4dc34979 Support for semantic verification of calls to standard functions.
Mario de Sousa <msousa@fe.up.pt>
parents: 330
diff changeset
   227
2c3c4dc34979 Support for semantic verification of calls to standard functions.
Mario de Sousa <msousa@fe.up.pt>
parents: 330
diff changeset
   228
#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
   229
2c3c4dc34979 Support for semantic verification of calls to standard functions.
Mario de Sousa <msousa@fe.up.pt>
parents: 330
diff changeset
   230
2c3c4dc34979 Support for semantic verification of calls to standard functions.
Mario de Sousa <msousa@fe.up.pt>
parents: 330
diff changeset
   231
/***********************************************************************/
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
/***********************************************************************/
2c3c4dc34979 Support for semantic verification of calls to standard functions.
Mario de Sousa <msousa@fe.up.pt>
parents: 330
diff changeset
   235
2c3c4dc34979 Support for semantic verification of calls to standard functions.
Mario de Sousa <msousa@fe.up.pt>
parents: 330
diff changeset
   236
/* 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
   237
/* 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
   238
 * 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
   239
 * 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
   240
 *   for e.g.; 
2c3c4dc34979 Support for semantic verification of calls to standard functions.
Mario de Sousa <msousa@fe.up.pt>
parents: 330
diff changeset
   241
 *     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
   242
 *     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
   243
 *     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
   244
 */
2c3c4dc34979 Support for semantic verification of calls to standard functions.
Mario de Sousa <msousa@fe.up.pt>
parents: 330
diff changeset
   245
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
   246
  private:
2c3c4dc34979 Support for semantic verification of calls to standard functions.
Mario de Sousa <msousa@fe.up.pt>
parents: 330
diff changeset
   247
    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
   248
    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
   249
2c3c4dc34979 Support for semantic verification of calls to standard functions.
Mario de Sousa <msousa@fe.up.pt>
parents: 330
diff changeset
   250
    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
   251
      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
   252
        /* 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
   253
        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
   254
        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
   255
        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
   256
          s4o.print("__");
2c3c4dc34979 Support for semantic verification of calls to standard functions.
Mario de Sousa <msousa@fe.up.pt>
parents: 330
diff changeset
   257
          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
   258
        }  
2c3c4dc34979 Support for semantic verification of calls to standard functions.
Mario de Sousa <msousa@fe.up.pt>
parents: 330
diff changeset
   259
      }
2c3c4dc34979 Support for semantic verification of calls to standard functions.
Mario de Sousa <msousa@fe.up.pt>
parents: 330
diff changeset
   260
    }
2c3c4dc34979 Support for semantic verification of calls to standard functions.
Mario de Sousa <msousa@fe.up.pt>
parents: 330
diff changeset
   261
    
2c3c4dc34979 Support for semantic verification of calls to standard functions.
Mario de Sousa <msousa@fe.up.pt>
parents: 330
diff changeset
   262
  public:
2c3c4dc34979 Support for semantic verification of calls to standard functions.
Mario de Sousa <msousa@fe.up.pt>
parents: 330
diff changeset
   263
    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
   264
      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
   265
      {current_type = NULL;}
2c3c4dc34979 Support for semantic verification of calls to standard functions.
Mario de Sousa <msousa@fe.up.pt>
parents: 330
diff changeset
   266
2c3c4dc34979 Support for semantic verification of calls to standard functions.
Mario de Sousa <msousa@fe.up.pt>
parents: 330
diff changeset
   267
    /**************************************/
2c3c4dc34979 Support for semantic verification of calls to standard functions.
Mario de Sousa <msousa@fe.up.pt>
parents: 330
diff changeset
   268
    /* 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
   269
    /**************************************/
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
    /* 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
   272
    /***********************/
2c3c4dc34979 Support for semantic verification of calls to standard functions.
Mario de Sousa <msousa@fe.up.pt>
parents: 330
diff changeset
   273
    /*   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
   274
    /* | 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
   275
    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
   276
      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
   277
      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
   278
      return NULL;
2c3c4dc34979 Support for semantic verification of calls to standard functions.
Mario de Sousa <msousa@fe.up.pt>
parents: 330
diff changeset
   279
    }
2c3c4dc34979 Support for semantic verification of calls to standard functions.
Mario de Sousa <msousa@fe.up.pt>
parents: 330
diff changeset
   280
2c3c4dc34979 Support for semantic verification of calls to standard functions.
Mario de Sousa <msousa@fe.up.pt>
parents: 330
diff changeset
   281
    /* 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
   282
    //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
   283
    
2c3c4dc34979 Support for semantic verification of calls to standard functions.
Mario de Sousa <msousa@fe.up.pt>
parents: 330
diff changeset
   284
    /* 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
   285
    //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
   286
        
2c3c4dc34979 Support for semantic verification of calls to standard functions.
Mario de Sousa <msousa@fe.up.pt>
parents: 330
diff changeset
   287
    /* 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
   288
    //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
   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(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
   291
      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
   292
      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
   293
      current_type = NULL; 
2c3c4dc34979 Support for semantic verification of calls to standard functions.
Mario de Sousa <msousa@fe.up.pt>
parents: 330
diff changeset
   294
      return NULL;
2c3c4dc34979 Support for semantic verification of calls to standard functions.
Mario de Sousa <msousa@fe.up.pt>
parents: 330
diff changeset
   295
    }
2c3c4dc34979 Support for semantic verification of calls to standard functions.
Mario de Sousa <msousa@fe.up.pt>
parents: 330
diff changeset
   296
    
2c3c4dc34979 Support for semantic verification of calls to standard functions.
Mario de Sousa <msousa@fe.up.pt>
parents: 330
diff changeset
   297
    /* 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
   298
    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
   299
2c3c4dc34979 Support for semantic verification of calls to standard functions.
Mario de Sousa <msousa@fe.up.pt>
parents: 330
diff changeset
   300
    /* 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
   301
    //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
   302
    
2c3c4dc34979 Support for semantic verification of calls to standard functions.
Mario de Sousa <msousa@fe.up.pt>
parents: 330
diff changeset
   303
    /* 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
   304
    //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
   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(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
   307
      /* 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
   308
      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
   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
    /* 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
   314
     * 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
   315
     */
2c3c4dc34979 Support for semantic verification of calls to standard functions.
Mario de Sousa <msousa@fe.up.pt>
parents: 330
diff changeset
   316
    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
   317
2c3c4dc34979 Support for semantic verification of calls to standard functions.
Mario de Sousa <msousa@fe.up.pt>
parents: 330
diff changeset
   318
    /* 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
   319
    /* 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
   320
    /* 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
   321
     * 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
   322
     */
2c3c4dc34979 Support for semantic verification of calls to standard functions.
Mario de Sousa <msousa@fe.up.pt>
parents: 330
diff changeset
   323
    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
   324
2c3c4dc34979 Support for semantic verification of calls to standard functions.
Mario de Sousa <msousa@fe.up.pt>
parents: 330
diff changeset
   325
    /* 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
   326
    /* 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
   327
    /* 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
   328
     * 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
   329
     */
2c3c4dc34979 Support for semantic verification of calls to standard functions.
Mario de Sousa <msousa@fe.up.pt>
parents: 330
diff changeset
   330
    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
   331
2c3c4dc34979 Support for semantic verification of calls to standard functions.
Mario de Sousa <msousa@fe.up.pt>
parents: 330
diff changeset
   332
    /* 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
   333
    /* 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
   334
    /* 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
   335
     * 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
   336
     */
2c3c4dc34979 Support for semantic verification of calls to standard functions.
Mario de Sousa <msousa@fe.up.pt>
parents: 330
diff changeset
   337
    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
   338
2c3c4dc34979 Support for semantic verification of calls to standard functions.
Mario de Sousa <msousa@fe.up.pt>
parents: 330
diff changeset
   339
    /* 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
   340
    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
   341
2c3c4dc34979 Support for semantic verification of calls to standard functions.
Mario de Sousa <msousa@fe.up.pt>
parents: 330
diff changeset
   342
    /* 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
   343
    //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
   344
2c3c4dc34979 Support for semantic verification of calls to standard functions.
Mario de Sousa <msousa@fe.up.pt>
parents: 330
diff changeset
   345
    /* 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
   346
    //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
   347
2c3c4dc34979 Support for semantic verification of calls to standard functions.
Mario de Sousa <msousa@fe.up.pt>
parents: 330
diff changeset
   348
    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
   349
      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
   350
      return NULL;
2c3c4dc34979 Support for semantic verification of calls to standard functions.
Mario de Sousa <msousa@fe.up.pt>
parents: 330
diff changeset
   351
    }
2c3c4dc34979 Support for semantic verification of calls to standard functions.
Mario de Sousa <msousa@fe.up.pt>
parents: 330
diff changeset
   352
2c3c4dc34979 Support for semantic verification of calls to standard functions.
Mario de Sousa <msousa@fe.up.pt>
parents: 330
diff changeset
   353
    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
   354
      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
   355
      return NULL;
2c3c4dc34979 Support for semantic verification of calls to standard functions.
Mario de Sousa <msousa@fe.up.pt>
parents: 330
diff changeset
   356
    }
2c3c4dc34979 Support for semantic verification of calls to standard functions.
Mario de Sousa <msousa@fe.up.pt>
parents: 330
diff changeset
   357
2c3c4dc34979 Support for semantic verification of calls to standard functions.
Mario de Sousa <msousa@fe.up.pt>
parents: 330
diff changeset
   358
    /* 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
   359
    /* 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
   360
    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
   361
2c3c4dc34979 Support for semantic verification of calls to standard functions.
Mario de Sousa <msousa@fe.up.pt>
parents: 330
diff changeset
   362
    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
   363
      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
   364
      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
   365
      current_type = NULL; 
2c3c4dc34979 Support for semantic verification of calls to standard functions.
Mario de Sousa <msousa@fe.up.pt>
parents: 330
diff changeset
   366
      return NULL;
2c3c4dc34979 Support for semantic verification of calls to standard functions.
Mario de Sousa <msousa@fe.up.pt>
parents: 330
diff changeset
   367
    }
2c3c4dc34979 Support for semantic verification of calls to standard functions.
Mario de Sousa <msousa@fe.up.pt>
parents: 330
diff changeset
   368
2c3c4dc34979 Support for semantic verification of calls to standard functions.
Mario de Sousa <msousa@fe.up.pt>
parents: 330
diff changeset
   369
    /* 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
   370
    /* 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
   371
    /* 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
   372
     *   STRING [ 42 ]
2c3c4dc34979 Support for semantic verification of calls to standard functions.
Mario de Sousa <msousa@fe.up.pt>
parents: 330
diff changeset
   373
     */
2c3c4dc34979 Support for semantic verification of calls to standard functions.
Mario de Sousa <msousa@fe.up.pt>
parents: 330
diff changeset
   374
    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
   375
2c3c4dc34979 Support for semantic verification of calls to standard functions.
Mario de Sousa <msousa@fe.up.pt>
parents: 330
diff changeset
   376
    /* 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
   377
    /* 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
   378
    /* 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
   379
     *   WSTRING [ 42 ]
2c3c4dc34979 Support for semantic verification of calls to standard functions.
Mario de Sousa <msousa@fe.up.pt>
parents: 330
diff changeset
   380
     */
2c3c4dc34979 Support for semantic verification of calls to standard functions.
Mario de Sousa <msousa@fe.up.pt>
parents: 330
diff changeset
   381
    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
   382
};
2c3c4dc34979 Support for semantic verification of calls to standard functions.
Mario de Sousa <msousa@fe.up.pt>
parents: 330
diff changeset
   383
    
2c3c4dc34979 Support for semantic verification of calls to standard functions.
Mario de Sousa <msousa@fe.up.pt>
parents: 330
diff changeset
   384
2c3c4dc34979 Support for semantic verification of calls to standard functions.
Mario de Sousa <msousa@fe.up.pt>
parents: 330
diff changeset
   385
/***********************************************************************/
2c3c4dc34979 Support for semantic verification of calls to standard functions.
Mario de Sousa <msousa@fe.up.pt>
parents: 330
diff changeset
   386
/***********************************************************************/
2c3c4dc34979 Support for semantic verification of calls to standard functions.
Mario de Sousa <msousa@fe.up.pt>
parents: 330
diff changeset
   387
/***********************************************************************/
2c3c4dc34979 Support for semantic verification of calls to standard functions.
Mario de Sousa <msousa@fe.up.pt>
parents: 330
diff changeset
   388
/***********************************************************************/
2c3c4dc34979 Support for semantic verification of calls to standard functions.
Mario de Sousa <msousa@fe.up.pt>
parents: 330
diff changeset
   389
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
   390
/* 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
   391
/* 'complex' means that it is either a strcuture or an array!               */
863
06820d03a433 Fix bug: correctly generate code when accessing external variables declared inside FBs as a structured variable (realvar := fb1.fb2.extvar1.realvar)
Mario de Sousa <msousa@fe.up.pt>
parents: 854
diff changeset
   392
class analyse_variable_c: public search_visitor_c {
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
   393
  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
   394
    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
   395
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
  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
   397
    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
   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
    static bool is_complex_type(symbol_c *symbol) {
863
06820d03a433 Fix bug: correctly generate code when accessing external variables declared inside FBs as a structured variable (realvar := fb1.fb2.extvar1.realvar)
Mario de Sousa <msousa@fe.up.pt>
parents: 854
diff changeset
   400
      if (NULL == symbol) ERROR;
872
3d682f87c870 Remove assertion being failed by IL labels (IL labels do not yet have specific datatypes).
mjsousa
parents: 864
diff changeset
   401
      if (!get_datatype_info_c::is_type_valid     (symbol->datatype)) return false;
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
   402
      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
   403
              || 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
   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
863
06820d03a433 Fix bug: correctly generate code when accessing external variables declared inside FBs as a structured variable (realvar := fb1.fb2.extvar1.realvar)
Mario de Sousa <msousa@fe.up.pt>
parents: 854
diff changeset
   407
    
06820d03a433 Fix bug: correctly generate code when accessing external variables declared inside FBs as a structured variable (realvar := fb1.fb2.extvar1.realvar)
Mario de Sousa <msousa@fe.up.pt>
parents: 854
diff changeset
   408
  private:
06820d03a433 Fix bug: correctly generate code when accessing external variables declared inside FBs as a structured variable (realvar := fb1.fb2.extvar1.realvar)
Mario de Sousa <msousa@fe.up.pt>
parents: 854
diff changeset
   409
    symbol_c *last_fb, *first_non_fb_identifier;
06820d03a433 Fix bug: correctly generate code when accessing external variables declared inside FBs as a structured variable (realvar := fb1.fb2.extvar1.realvar)
Mario de Sousa <msousa@fe.up.pt>
parents: 854
diff changeset
   410
06820d03a433 Fix bug: correctly generate code when accessing external variables declared inside FBs as a structured variable (realvar := fb1.fb2.extvar1.realvar)
Mario de Sousa <msousa@fe.up.pt>
parents: 854
diff changeset
   411
  public:  
06820d03a433 Fix bug: correctly generate code when accessing external variables declared inside FBs as a structured variable (realvar := fb1.fb2.extvar1.realvar)
Mario de Sousa <msousa@fe.up.pt>
parents: 854
diff changeset
   412
    /* returns the first element (from left to right) in a structured variable that is not a FB, i.e. is either a structure or an array! */
06820d03a433 Fix bug: correctly generate code when accessing external variables declared inside FBs as a structured variable (realvar := fb1.fb2.extvar1.realvar)
Mario de Sousa <msousa@fe.up.pt>
parents: 854
diff changeset
   413
    /* eg:
06820d03a433 Fix bug: correctly generate code when accessing external variables declared inside FBs as a structured variable (realvar := fb1.fb2.extvar1.realvar)
Mario de Sousa <msousa@fe.up.pt>
parents: 854
diff changeset
   414
     *      fb1.fb2.fb3.real       returns ??????
06820d03a433 Fix bug: correctly generate code when accessing external variables declared inside FBs as a structured variable (realvar := fb1.fb2.extvar1.realvar)
Mario de Sousa <msousa@fe.up.pt>
parents: 854
diff changeset
   415
     *      fb1.fb2.struct1.real   returns struct1
06820d03a433 Fix bug: correctly generate code when accessing external variables declared inside FBs as a structured variable (realvar := fb1.fb2.extvar1.realvar)
Mario de Sousa <msousa@fe.up.pt>
parents: 854
diff changeset
   416
     *      struct1.real           returns struct1
06820d03a433 Fix bug: correctly generate code when accessing external variables declared inside FBs as a structured variable (realvar := fb1.fb2.extvar1.realvar)
Mario de Sousa <msousa@fe.up.pt>
parents: 854
diff changeset
   417
     */
06820d03a433 Fix bug: correctly generate code when accessing external variables declared inside FBs as a structured variable (realvar := fb1.fb2.extvar1.realvar)
Mario de Sousa <msousa@fe.up.pt>
parents: 854
diff changeset
   418
    static symbol_c *find_first_nonfb(symbol_c *symbol) {
06820d03a433 Fix bug: correctly generate code when accessing external variables declared inside FBs as a structured variable (realvar := fb1.fb2.extvar1.realvar)
Mario de Sousa <msousa@fe.up.pt>
parents: 854
diff changeset
   419
      if (NULL == singleton_)       singleton_ = new analyse_variable_c();
06820d03a433 Fix bug: correctly generate code when accessing external variables declared inside FBs as a structured variable (realvar := fb1.fb2.extvar1.realvar)
Mario de Sousa <msousa@fe.up.pt>
parents: 854
diff changeset
   420
      if (NULL == singleton_)       ERROR;
06820d03a433 Fix bug: correctly generate code when accessing external variables declared inside FBs as a structured variable (realvar := fb1.fb2.extvar1.realvar)
Mario de Sousa <msousa@fe.up.pt>
parents: 854
diff changeset
   421
      if (NULL == symbol)           ERROR;
06820d03a433 Fix bug: correctly generate code when accessing external variables declared inside FBs as a structured variable (realvar := fb1.fb2.extvar1.realvar)
Mario de Sousa <msousa@fe.up.pt>
parents: 854
diff changeset
   422
      
06820d03a433 Fix bug: correctly generate code when accessing external variables declared inside FBs as a structured variable (realvar := fb1.fb2.extvar1.realvar)
Mario de Sousa <msousa@fe.up.pt>
parents: 854
diff changeset
   423
      singleton_->last_fb                 = NULL;
06820d03a433 Fix bug: correctly generate code when accessing external variables declared inside FBs as a structured variable (realvar := fb1.fb2.extvar1.realvar)
Mario de Sousa <msousa@fe.up.pt>
parents: 854
diff changeset
   424
      singleton_->first_non_fb_identifier = NULL;
06820d03a433 Fix bug: correctly generate code when accessing external variables declared inside FBs as a structured variable (realvar := fb1.fb2.extvar1.realvar)
Mario de Sousa <msousa@fe.up.pt>
parents: 854
diff changeset
   425
      return (symbol_c *)symbol->accept(*singleton_);
06820d03a433 Fix bug: correctly generate code when accessing external variables declared inside FBs as a structured variable (realvar := fb1.fb2.extvar1.realvar)
Mario de Sousa <msousa@fe.up.pt>
parents: 854
diff changeset
   426
    }
06820d03a433 Fix bug: correctly generate code when accessing external variables declared inside FBs as a structured variable (realvar := fb1.fb2.extvar1.realvar)
Mario de Sousa <msousa@fe.up.pt>
parents: 854
diff changeset
   427
    
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
   428
    /* 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
   429
    /* 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
   430
     *      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
   431
     *      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
   432
     *      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
   433
     */
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
   434
    static bool contains_complex_type(symbol_c *symbol) {
863
06820d03a433 Fix bug: correctly generate code when accessing external variables declared inside FBs as a structured variable (realvar := fb1.fb2.extvar1.realvar)
Mario de Sousa <msousa@fe.up.pt>
parents: 854
diff changeset
   435
      if (NULL == symbol) ERROR;
06820d03a433 Fix bug: correctly generate code when accessing external variables declared inside FBs as a structured variable (realvar := fb1.fb2.extvar1.realvar)
Mario de Sousa <msousa@fe.up.pt>
parents: 854
diff changeset
   436
      if (!get_datatype_info_c::is_type_valid(symbol->datatype)) ERROR;
06820d03a433 Fix bug: correctly generate code when accessing external variables declared inside FBs as a structured variable (realvar := fb1.fb2.extvar1.realvar)
Mario de Sousa <msousa@fe.up.pt>
parents: 854
diff changeset
   437
      
06820d03a433 Fix bug: correctly generate code when accessing external variables declared inside FBs as a structured variable (realvar := fb1.fb2.extvar1.realvar)
Mario de Sousa <msousa@fe.up.pt>
parents: 854
diff changeset
   438
      symbol_c *first_non_fb = (symbol_c *)find_first_nonfb(symbol);
06820d03a433 Fix bug: correctly generate code when accessing external variables declared inside FBs as a structured variable (realvar := fb1.fb2.extvar1.realvar)
Mario de Sousa <msousa@fe.up.pt>
parents: 854
diff changeset
   439
      return is_complex_type(first_non_fb->datatype);
06820d03a433 Fix bug: correctly generate code when accessing external variables declared inside FBs as a structured variable (realvar := fb1.fb2.extvar1.realvar)
Mario de Sousa <msousa@fe.up.pt>
parents: 854
diff changeset
   440
    }
06820d03a433 Fix bug: correctly generate code when accessing external variables declared inside FBs as a structured variable (realvar := fb1.fb2.extvar1.realvar)
Mario de Sousa <msousa@fe.up.pt>
parents: 854
diff changeset
   441
    
06820d03a433 Fix bug: correctly generate code when accessing external variables declared inside FBs as a structured variable (realvar := fb1.fb2.extvar1.realvar)
Mario de Sousa <msousa@fe.up.pt>
parents: 854
diff changeset
   442
    
06820d03a433 Fix bug: correctly generate code when accessing external variables declared inside FBs as a structured variable (realvar := fb1.fb2.extvar1.realvar)
Mario de Sousa <msousa@fe.up.pt>
parents: 854
diff changeset
   443
    /* returns the datatype of the variable returned by find_first_nonfb() */
06820d03a433 Fix bug: correctly generate code when accessing external variables declared inside FBs as a structured variable (realvar := fb1.fb2.extvar1.realvar)
Mario de Sousa <msousa@fe.up.pt>
parents: 854
diff changeset
   444
    /* eg:
06820d03a433 Fix bug: correctly generate code when accessing external variables declared inside FBs as a structured variable (realvar := fb1.fb2.extvar1.realvar)
Mario de Sousa <msousa@fe.up.pt>
parents: 854
diff changeset
   445
     *      fb1.fb2.fb3.real       returns ??????
06820d03a433 Fix bug: correctly generate code when accessing external variables declared inside FBs as a structured variable (realvar := fb1.fb2.extvar1.realvar)
Mario de Sousa <msousa@fe.up.pt>
parents: 854
diff changeset
   446
     *      fb1.fb2.struct1.real   returns datatype of struct1
06820d03a433 Fix bug: correctly generate code when accessing external variables declared inside FBs as a structured variable (realvar := fb1.fb2.extvar1.realvar)
Mario de Sousa <msousa@fe.up.pt>
parents: 854
diff changeset
   447
     *      struct1.real           returns datatype of struct1
06820d03a433 Fix bug: correctly generate code when accessing external variables declared inside FBs as a structured variable (realvar := fb1.fb2.extvar1.realvar)
Mario de Sousa <msousa@fe.up.pt>
parents: 854
diff changeset
   448
     */
06820d03a433 Fix bug: correctly generate code when accessing external variables declared inside FBs as a structured variable (realvar := fb1.fb2.extvar1.realvar)
Mario de Sousa <msousa@fe.up.pt>
parents: 854
diff changeset
   449
    static search_var_instance_decl_c::vt_t first_nonfb_vardecltype(symbol_c *symbol, symbol_c *scope) {
06820d03a433 Fix bug: correctly generate code when accessing external variables declared inside FBs as a structured variable (realvar := fb1.fb2.extvar1.realvar)
Mario de Sousa <msousa@fe.up.pt>
parents: 854
diff changeset
   450
      if (NULL == symbol) ERROR;
06820d03a433 Fix bug: correctly generate code when accessing external variables declared inside FBs as a structured variable (realvar := fb1.fb2.extvar1.realvar)
Mario de Sousa <msousa@fe.up.pt>
parents: 854
diff changeset
   451
      if (!get_datatype_info_c::is_type_valid(symbol->datatype)) ERROR;
06820d03a433 Fix bug: correctly generate code when accessing external variables declared inside FBs as a structured variable (realvar := fb1.fb2.extvar1.realvar)
Mario de Sousa <msousa@fe.up.pt>
parents: 854
diff changeset
   452
      
06820d03a433 Fix bug: correctly generate code when accessing external variables declared inside FBs as a structured variable (realvar := fb1.fb2.extvar1.realvar)
Mario de Sousa <msousa@fe.up.pt>
parents: 854
diff changeset
   453
      symbol_c *first_non_fb = (symbol_c *)find_first_nonfb(symbol);
06820d03a433 Fix bug: correctly generate code when accessing external variables declared inside FBs as a structured variable (realvar := fb1.fb2.extvar1.realvar)
Mario de Sousa <msousa@fe.up.pt>
parents: 854
diff changeset
   454
      if (NULL != singleton_->last_fb) {
06820d03a433 Fix bug: correctly generate code when accessing external variables declared inside FBs as a structured variable (realvar := fb1.fb2.extvar1.realvar)
Mario de Sousa <msousa@fe.up.pt>
parents: 854
diff changeset
   455
        scope = singleton_->last_fb->datatype;
06820d03a433 Fix bug: correctly generate code when accessing external variables declared inside FBs as a structured variable (realvar := fb1.fb2.extvar1.realvar)
Mario de Sousa <msousa@fe.up.pt>
parents: 854
diff changeset
   456
        symbol = singleton_->first_non_fb_identifier;
06820d03a433 Fix bug: correctly generate code when accessing external variables declared inside FBs as a structured variable (realvar := fb1.fb2.extvar1.realvar)
Mario de Sousa <msousa@fe.up.pt>
parents: 854
diff changeset
   457
      }
06820d03a433 Fix bug: correctly generate code when accessing external variables declared inside FBs as a structured variable (realvar := fb1.fb2.extvar1.realvar)
Mario de Sousa <msousa@fe.up.pt>
parents: 854
diff changeset
   458
      
06820d03a433 Fix bug: correctly generate code when accessing external variables declared inside FBs as a structured variable (realvar := fb1.fb2.extvar1.realvar)
Mario de Sousa <msousa@fe.up.pt>
parents: 854
diff changeset
   459
      search_var_instance_decl_c search_var_instance_decl(scope);
06820d03a433 Fix bug: correctly generate code when accessing external variables declared inside FBs as a structured variable (realvar := fb1.fb2.extvar1.realvar)
Mario de Sousa <msousa@fe.up.pt>
parents: 854
diff changeset
   460
      
06820d03a433 Fix bug: correctly generate code when accessing external variables declared inside FBs as a structured variable (realvar := fb1.fb2.extvar1.realvar)
Mario de Sousa <msousa@fe.up.pt>
parents: 854
diff changeset
   461
      return search_var_instance_decl.get_vartype(symbol);
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
   462
    }
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
   463
    
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
   464
    
853
818c4ac5d64d Fix bug-fix of previous commit.
Mario de Sousa <msousa@fe.up.pt>
parents: 852
diff changeset
   465
    /*********************/
818c4ac5d64d Fix bug-fix of previous commit.
Mario de Sousa <msousa@fe.up.pt>
parents: 852
diff changeset
   466
    /* B 1.4 - Variables */
818c4ac5d64d Fix bug-fix of previous commit.
Mario de Sousa <msousa@fe.up.pt>
parents: 852
diff changeset
   467
    /*********************/
818c4ac5d64d Fix bug-fix of previous commit.
Mario de Sousa <msousa@fe.up.pt>
parents: 852
diff changeset
   468
    void *visit(symbolic_variable_c *symbol) {
863
06820d03a433 Fix bug: correctly generate code when accessing external variables declared inside FBs as a structured variable (realvar := fb1.fb2.extvar1.realvar)
Mario de Sousa <msousa@fe.up.pt>
parents: 854
diff changeset
   469
      if (!get_datatype_info_c::is_type_valid    (symbol->datatype)) ERROR;
06820d03a433 Fix bug: correctly generate code when accessing external variables declared inside FBs as a structured variable (realvar := fb1.fb2.extvar1.realvar)
Mario de Sousa <msousa@fe.up.pt>
parents: 854
diff changeset
   470
      if (!get_datatype_info_c::is_function_block(symbol->datatype)) {
06820d03a433 Fix bug: correctly generate code when accessing external variables declared inside FBs as a structured variable (realvar := fb1.fb2.extvar1.realvar)
Mario de Sousa <msousa@fe.up.pt>
parents: 854
diff changeset
   471
         first_non_fb_identifier = symbol; 
06820d03a433 Fix bug: correctly generate code when accessing external variables declared inside FBs as a structured variable (realvar := fb1.fb2.extvar1.realvar)
Mario de Sousa <msousa@fe.up.pt>
parents: 854
diff changeset
   472
         return (void *)symbol;
06820d03a433 Fix bug: correctly generate code when accessing external variables declared inside FBs as a structured variable (realvar := fb1.fb2.extvar1.realvar)
Mario de Sousa <msousa@fe.up.pt>
parents: 854
diff changeset
   473
      }
06820d03a433 Fix bug: correctly generate code when accessing external variables declared inside FBs as a structured variable (realvar := fb1.fb2.extvar1.realvar)
Mario de Sousa <msousa@fe.up.pt>
parents: 854
diff changeset
   474
      last_fb = symbol;
853
818c4ac5d64d Fix bug-fix of previous commit.
Mario de Sousa <msousa@fe.up.pt>
parents: 852
diff changeset
   475
      return NULL;
818c4ac5d64d Fix bug-fix of previous commit.
Mario de Sousa <msousa@fe.up.pt>
parents: 852
diff changeset
   476
    }
818c4ac5d64d Fix bug-fix of previous commit.
Mario de Sousa <msousa@fe.up.pt>
parents: 852
diff changeset
   477
    
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
   478
    /*************************************/
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
   479
    /* 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
   480
    /*************************************/
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
   481
    
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
   482
    // 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
   483
    void *visit(structured_variable_c *symbol) {
863
06820d03a433 Fix bug: correctly generate code when accessing external variables declared inside FBs as a structured variable (realvar := fb1.fb2.extvar1.realvar)
Mario de Sousa <msousa@fe.up.pt>
parents: 854
diff changeset
   484
      symbol_c *res = (symbol_c *)symbol->record_variable->accept(*this);
06820d03a433 Fix bug: correctly generate code when accessing external variables declared inside FBs as a structured variable (realvar := fb1.fb2.extvar1.realvar)
Mario de Sousa <msousa@fe.up.pt>
parents: 854
diff changeset
   485
      if (NULL != res) return res;
06820d03a433 Fix bug: correctly generate code when accessing external variables declared inside FBs as a structured variable (realvar := fb1.fb2.extvar1.realvar)
Mario de Sousa <msousa@fe.up.pt>
parents: 854
diff changeset
   486
      
06820d03a433 Fix bug: correctly generate code when accessing external variables declared inside FBs as a structured variable (realvar := fb1.fb2.extvar1.realvar)
Mario de Sousa <msousa@fe.up.pt>
parents: 854
diff changeset
   487
      if (!get_datatype_info_c::is_type_valid    (symbol->datatype)) ERROR;
06820d03a433 Fix bug: correctly generate code when accessing external variables declared inside FBs as a structured variable (realvar := fb1.fb2.extvar1.realvar)
Mario de Sousa <msousa@fe.up.pt>
parents: 854
diff changeset
   488
      if (!get_datatype_info_c::is_function_block(symbol->datatype)) {
06820d03a433 Fix bug: correctly generate code when accessing external variables declared inside FBs as a structured variable (realvar := fb1.fb2.extvar1.realvar)
Mario de Sousa <msousa@fe.up.pt>
parents: 854
diff changeset
   489
         first_non_fb_identifier = symbol->field_selector; 
06820d03a433 Fix bug: correctly generate code when accessing external variables declared inside FBs as a structured variable (realvar := fb1.fb2.extvar1.realvar)
Mario de Sousa <msousa@fe.up.pt>
parents: 854
diff changeset
   490
         return (void *)symbol;
06820d03a433 Fix bug: correctly generate code when accessing external variables declared inside FBs as a structured variable (realvar := fb1.fb2.extvar1.realvar)
Mario de Sousa <msousa@fe.up.pt>
parents: 854
diff changeset
   491
      }
06820d03a433 Fix bug: correctly generate code when accessing external variables declared inside FBs as a structured variable (realvar := fb1.fb2.extvar1.realvar)
Mario de Sousa <msousa@fe.up.pt>
parents: 854
diff changeset
   492
06820d03a433 Fix bug: correctly generate code when accessing external variables declared inside FBs as a structured variable (realvar := fb1.fb2.extvar1.realvar)
Mario de Sousa <msousa@fe.up.pt>
parents: 854
diff changeset
   493
      last_fb = symbol;      
06820d03a433 Fix bug: correctly generate code when accessing external variables declared inside FBs as a structured variable (realvar := fb1.fb2.extvar1.realvar)
Mario de Sousa <msousa@fe.up.pt>
parents: 854
diff changeset
   494
      return NULL;      
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
   495
    }
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
   496
    
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
   497
    /*  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
   498
    //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
   499
    void *visit(array_variable_c *symbol) {
863
06820d03a433 Fix bug: correctly generate code when accessing external variables declared inside FBs as a structured variable (realvar := fb1.fb2.extvar1.realvar)
Mario de Sousa <msousa@fe.up.pt>
parents: 854
diff changeset
   500
      void *res = symbol->subscripted_variable->accept(*this);
06820d03a433 Fix bug: correctly generate code when accessing external variables declared inside FBs as a structured variable (realvar := fb1.fb2.extvar1.realvar)
Mario de Sousa <msousa@fe.up.pt>
parents: 854
diff changeset
   501
      if (NULL != res) return res;
06820d03a433 Fix bug: correctly generate code when accessing external variables declared inside FBs as a structured variable (realvar := fb1.fb2.extvar1.realvar)
Mario de Sousa <msousa@fe.up.pt>
parents: 854
diff changeset
   502
      return (void *)symbol;      
06820d03a433 Fix bug: correctly generate code when accessing external variables declared inside FBs as a structured variable (realvar := fb1.fb2.extvar1.realvar)
Mario de Sousa <msousa@fe.up.pt>
parents: 854
diff changeset
   503
    }
06820d03a433 Fix bug: correctly generate code when accessing external variables declared inside FBs as a structured variable (realvar := fb1.fb2.extvar1.realvar)
Mario de Sousa <msousa@fe.up.pt>
parents: 854
diff changeset
   504
06820d03a433 Fix bug: correctly generate code when accessing external variables declared inside FBs as a structured variable (realvar := fb1.fb2.extvar1.realvar)
Mario de Sousa <msousa@fe.up.pt>
parents: 854
diff changeset
   505
    
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
   506
};
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
   507
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
   508
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
   509
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
   510
/***********************************************************************/
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
   511
/***********************************************************************/
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
   512
/***********************************************************************/
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
   513
/***********************************************************************/
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
   514
350
2c3c4dc34979 Support for semantic verification of calls to standard functions.
Mario de Sousa <msousa@fe.up.pt>
parents: 330
diff changeset
   515
70
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
   516
#include "generate_c_st.cc"
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
   517
#include "generate_c_il.cc"
217
f5dfadf5de54 Adding support for declare, init, get and set macros
laurent
parents: 210
diff changeset
   518
#include "generate_c_inlinefcall.cc"
70
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
   519
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
   520
/***********************************************************************/
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
   521
/***********************************************************************/
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
   522
/***********************************************************************/
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
   523
/***********************************************************************/
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
   524
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
   525
#define MILLISECOND 1000000
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
   526
#define SECOND 1000 * MILLISECOND
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
   527
594
c8092e909886 Clean up code (remove parsing of integers in stage 4).
Mario de Sousa <msousa@fe.up.pt>
parents: 592
diff changeset
   528
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
   529
  if (NULL == symbol) return 0;
70
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
   530
  
594
c8092e909886 Clean up code (remove parsing of integers in stage 4).
Mario de Sousa <msousa@fe.up.pt>
parents: 592
diff changeset
   531
  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
   532
  duration_c *duration = dynamic_cast<duration_c *>(symbol);
70
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
   533
  
632
76c3d707ffa1 Adding error message when task interval value is not supported
Laurent Bessard
parents: 631
diff changeset
   534
  if ((NULL == interval) && (NULL == duration))
631
1a4f5ce62962 Adding error message when task interval value is not supported
Laurent Bessard
parents: 625
diff changeset
   535
  	  {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
   536
c8092e909886 Clean up code (remove parsing of integers in stage 4).
Mario de Sousa <msousa@fe.up.pt>
parents: 592
diff changeset
   537
  if (NULL != duration) {
70
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
   538
    /* 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
   539
    if (duration->neg != NULL)
631
1a4f5ce62962 Adding error message when task interval value is not supported
Laurent Bessard
parents: 625
diff changeset
   540
      {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
   541
    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
   542
  }
c8092e909886 Clean up code (remove parsing of integers in stage 4).
Mario de Sousa <msousa@fe.up.pt>
parents: 592
diff changeset
   543
c8092e909886 Clean up code (remove parsing of integers in stage 4).
Mario de Sousa <msousa@fe.up.pt>
parents: 592
diff changeset
   544
  if (NULL != interval) {
547
dab341e80664 Fix parsing os TIME literals & rename the extract_integer() function.
mjsousa <msousa@fe.up.pt>
parents: 522
diff changeset
   545
    /* 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
   546
      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
   547
      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
   548
      /*
c8092e909886 Clean up code (remove parsing of integers in stage 4).
Mario de Sousa <msousa@fe.up.pt>
parents: 592
diff changeset
   549
      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
   550
      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
   551
      */
c8092e909886 Clean up code (remove parsing of integers in stage 4).
Mario de Sousa <msousa@fe.up.pt>
parents: 592
diff changeset
   552
      
c8092e909886 Clean up code (remove parsing of integers in stage 4).
Mario de Sousa <msousa@fe.up.pt>
parents: 592
diff changeset
   553
      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
   554
        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
   555
        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
   556
        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
   557
        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
   558
        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
   559
      }
547
dab341e80664 Fix parsing os TIME literals & rename the extract_integer() function.
mjsousa <msousa@fe.up.pt>
parents: 522
diff changeset
   560
   
594
c8092e909886 Clean up code (remove parsing of integers in stage 4).
Mario de Sousa <msousa@fe.up.pt>
parents: 592
diff changeset
   561
      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
   562
        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
   563
        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
   564
        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
   565
        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
   566
        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
   567
      }
c8092e909886 Clean up code (remove parsing of integers in stage 4).
Mario de Sousa <msousa@fe.up.pt>
parents: 592
diff changeset
   568
c8092e909886 Clean up code (remove parsing of integers in stage 4).
Mario de Sousa <msousa@fe.up.pt>
parents: 592
diff changeset
   569
      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
   570
        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
   571
        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
   572
        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
   573
        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
   574
        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
   575
      }
c8092e909886 Clean up code (remove parsing of integers in stage 4).
Mario de Sousa <msousa@fe.up.pt>
parents: 592
diff changeset
   576
c8092e909886 Clean up code (remove parsing of integers in stage 4).
Mario de Sousa <msousa@fe.up.pt>
parents: 592
diff changeset
   577
      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
   578
        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
   579
        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
   580
        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
   581
        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
   582
        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
   583
      }
c8092e909886 Clean up code (remove parsing of integers in stage 4).
Mario de Sousa <msousa@fe.up.pt>
parents: 592
diff changeset
   584
c8092e909886 Clean up code (remove parsing of integers in stage 4).
Mario de Sousa <msousa@fe.up.pt>
parents: 592
diff changeset
   585
      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
   586
        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
   587
        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
   588
        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
   589
        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
   590
        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
   591
      }
c8092e909886 Clean up code (remove parsing of integers in stage 4).
Mario de Sousa <msousa@fe.up.pt>
parents: 592
diff changeset
   592
c8092e909886 Clean up code (remove parsing of integers in stage 4).
Mario de Sousa <msousa@fe.up.pt>
parents: 592
diff changeset
   593
      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
   594
      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
   595
  };
c8092e909886 Clean up code (remove parsing of integers in stage 4).
Mario de Sousa <msousa@fe.up.pt>
parents: 592
diff changeset
   596
  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
   597
  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
   598
}
70
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
/***********************************************************************/
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
   602
/***********************************************************************/
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
   603
/***********************************************************************/
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
   604
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
   605
class calculate_common_ticktime_c: public iterator_visitor_c {
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
   606
  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
   607
    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
   608
    unsigned long long least_common_ticktime;
70
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
   609
    
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
   610
  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
   611
    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
   612
      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
   613
      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
   614
    }
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
   615
    
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
   616
    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
   617
      unsigned long long c = a % b;
70
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
   618
      if (c == 0)
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
   619
        return b;
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
   620
      else
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
   621
        return euclide(b, c);
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
   622
    }
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
   623
    
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
   624
    void update_ticktime(unsigned long long time) {
70
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
   625
      if (common_ticktime == 0)
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
   626
        common_ticktime = time;
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
   627
      else if (time > common_ticktime)
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
   628
        common_ticktime = euclide(time, common_ticktime);
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
   629
      else
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
   630
        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
   631
      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
   632
        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
   633
      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
   634
        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
   635
    }
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
   636
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
   637
    unsigned long long get_common_ticktime(void) {
70
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
   638
      return common_ticktime;
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
   639
    }
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
   640
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
   641
    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
   642
      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
   643
      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
   644
        ERROR;
237
cece842c7417 Adding support for using arrays in POU interface
laurent
parents: 234
diff changeset
   645
      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
   646
    }
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
   647
70
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
   648
/*  TASK task_name task_initialization */
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
   649
//SYM_REF2(task_configuration_c, task_name, task_initialization)  
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
   650
    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
   651
      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
   652
    	  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
   653
    	  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
   654
    	  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
   655
      }
70
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
   656
      return NULL;
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
   657
    }
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
   658
};    
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
   659
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
   660
/***********************************************************************/
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
   661
/***********************************************************************/
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
   662
/***********************************************************************/
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
   663
/***********************************************************************/
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
   664
217
f5dfadf5de54 Adding support for declare, init, get and set macros
laurent
parents: 210
diff changeset
   665
/* 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
   666
class generate_c_SFC_IL_ST_c: public null_visitor_c {
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
   667
  private:
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
   668
    stage4out_c *s4o_ptr;
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
   669
    symbol_c *scope;
217
f5dfadf5de54 Adding support for declare, init, get and set macros
laurent
parents: 210
diff changeset
   670
    symbol_c *fbname;
70
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
   671
    const char *variable_prefix;
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
   672
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
   673
  public:
217
f5dfadf5de54 Adding support for declare, init, get and set macros
laurent
parents: 210
diff changeset
   674
    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
   675
    
0a1204bcc9af starting to add proper header file with declaration of standard functions
Mario de Sousa <msousa@fe.up.pt>
parents: 262
diff changeset
   676
    /********************/
0a1204bcc9af starting to add proper header file with declaration of standard functions
Mario de Sousa <msousa@fe.up.pt>
parents: 262
diff changeset
   677
    /* 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
   678
    /********************/
0a1204bcc9af starting to add proper header file with declaration of standard functions
Mario de Sousa <msousa@fe.up.pt>
parents: 262
diff changeset
   679
    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
   680
    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
   681
    
70
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
   682
    /*********************************************/
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
   683
    /* B.1.6  Sequential function chart elements */
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
   684
    /*********************************************/
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
   685
    /*| sequential_function_chart sfc_network*/
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
   686
    void *visit(sequential_function_chart_c * symbol);
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
   687
    
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
   688
    /****************************************/
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
   689
    /* B.2 - Language IL (Instruction List) */
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
   690
    /****************************************/
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
   691
    
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
   692
    /***********************************/
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
   693
    /* B 2.1 Instructions and Operands */
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
   694
    /***********************************/
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
   695
    /*| instruction_list il_instruction */
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
   696
    void *visit(instruction_list_c *symbol);
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
   697
    
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
   698
    /* Remainder implemented in generate_c_il_c... */
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
   699
    
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
   700
    /***************************************/
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
   701
    /* B.3 - Language ST (Structured Text) */
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
   702
    /***************************************/
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
   703
    /***********************/
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
   704
    /* B 3.1 - Expressions */
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
   705
    /***********************/
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
   706
    /* Implemented in generate_c_st_c */
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
   707
    
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
   708
    /********************/
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
   709
    /* B 3.2 Statements */
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
   710
    /********************/
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
   711
    void *visit(statement_list_c *symbol);
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
   712
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
   713
/* Remainder implemented in generate_c_st_c... */
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
   714
};
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
   715
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
   716
#include "generate_c_sfc.cc"
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
   717
217
f5dfadf5de54 Adding support for declare, init, get and set macros
laurent
parents: 210
diff changeset
   718
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
   719
  if (NULL == scope) ERROR;
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
   720
  this->s4o_ptr = s4o_ptr;
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
   721
  this->scope = scope;
217
f5dfadf5de54 Adding support for declare, init, get and set macros
laurent
parents: 210
diff changeset
   722
  this->fbname = name;
70
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
   723
  this->variable_prefix = variable_prefix;
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
   724
}
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
   725
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
   726
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
   727
  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
   728
  generate_c_sfc.generate(symbol);
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
   729
  return NULL;
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
   730
}
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
   731
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
   732
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
   733
  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
   734
  generate_c_il.generate(symbol);
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
   735
  return NULL;
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
   736
}
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
   737
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
   738
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
   739
  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
   740
  generate_c_st.generate(symbol);
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
   741
  return NULL;
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
   742
}
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
   743
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
   744
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
   745
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
   746
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
   747
/***********************************************************************/
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
   748
/***********************************************************************/
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
   749
/***********************************************************************/
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
   750
/***********************************************************************/
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
   751
/***********************************************************************/
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
   752
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
   753
377
60b012b7793f Adding support for compiling direct array specification inside variable declaration
laurent
parents: 355
diff changeset
   754
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
   755
  public:
60b012b7793f Adding support for compiling direct array specification inside variable declaration
laurent
parents: 355
diff changeset
   756
    typedef enum {
60b012b7793f Adding support for compiling direct array specification inside variable declaration
laurent
parents: 355
diff changeset
   757
      none_im,
60b012b7793f Adding support for compiling direct array specification inside variable declaration
laurent
parents: 355
diff changeset
   758
      arrayname_im,
661
f537c3315f83 Minor changes needed to build with pedantic flag.
Manuele Conti <conti.ma@alice.it>
parents: 624
diff changeset
   759
      arraydeclaration_im
377
60b012b7793f Adding support for compiling direct array specification inside variable declaration
laurent
parents: 355
diff changeset
   760
    } inlinearray_mode_t;
60b012b7793f Adding support for compiling direct array specification inside variable declaration
laurent
parents: 355
diff changeset
   761
60b012b7793f Adding support for compiling direct array specification inside variable declaration
laurent
parents: 355
diff changeset
   762
  private:
60b012b7793f Adding support for compiling direct array specification inside variable declaration
laurent
parents: 355
diff changeset
   763
    std::map<std::string, int> inline_array_defined;
60b012b7793f Adding support for compiling direct array specification inside variable declaration
laurent
parents: 355
diff changeset
   764
    std::string current_array_name;
60b012b7793f Adding support for compiling direct array specification inside variable declaration
laurent
parents: 355
diff changeset
   765
    inlinearray_mode_t current_mode;
60b012b7793f Adding support for compiling direct array specification inside variable declaration
laurent
parents: 355
diff changeset
   766
60b012b7793f Adding support for compiling direct array specification inside variable declaration
laurent
parents: 355
diff changeset
   767
  public:
906
b225af94405f Remove un-used parameter from class constructor.
mjsousa
parents: 902
diff changeset
   768
    generate_c_datatypes_c(stage4out_c *s4o_incl_ptr)
860
7669a8d43c11 Code cleanup (part 2): generate_typedecl_c now only prints to POUS.h !
mjsousa
parents: 856
diff changeset
   769
      : generate_c_typedecl_c(s4o_incl_ptr) {
377
60b012b7793f Adding support for compiling direct array specification inside variable declaration
laurent
parents: 355
diff changeset
   770
      current_mode = none_im;
60b012b7793f Adding support for compiling direct array specification inside variable declaration
laurent
parents: 355
diff changeset
   771
    };
60b012b7793f Adding support for compiling direct array specification inside variable declaration
laurent
parents: 355
diff changeset
   772
    virtual ~generate_c_datatypes_c(void) {
60b012b7793f Adding support for compiling direct array specification inside variable declaration
laurent
parents: 355
diff changeset
   773
      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
   774
        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
   775
      }
60b012b7793f Adding support for compiling direct array specification inside variable declaration
laurent
parents: 355
diff changeset
   776
    }
60b012b7793f Adding support for compiling direct array specification inside variable declaration
laurent
parents: 355
diff changeset
   777
60b012b7793f Adding support for compiling direct array specification inside variable declaration
laurent
parents: 355
diff changeset
   778
    /*************************/
60b012b7793f Adding support for compiling direct array specification inside variable declaration
laurent
parents: 355
diff changeset
   779
    /* B.1 - Common elements */
60b012b7793f Adding support for compiling direct array specification inside variable declaration
laurent
parents: 355
diff changeset
   780
    /*************************/
60b012b7793f Adding support for compiling direct array specification inside variable declaration
laurent
parents: 355
diff changeset
   781
    /*******************************************/
60b012b7793f Adding support for compiling direct array specification inside variable declaration
laurent
parents: 355
diff changeset
   782
    /* B 1.1 - Letters, digits and identifiers */
60b012b7793f Adding support for compiling direct array specification inside variable declaration
laurent
parents: 355
diff changeset
   783
    /*******************************************/
60b012b7793f Adding support for compiling direct array specification inside variable declaration
laurent
parents: 355
diff changeset
   784
    void *visit(identifier_c *symbol) {
60b012b7793f Adding support for compiling direct array specification inside variable declaration
laurent
parents: 355
diff changeset
   785
      switch (current_mode) {
60b012b7793f Adding support for compiling direct array specification inside variable declaration
laurent
parents: 355
diff changeset
   786
        case arrayname_im:
60b012b7793f Adding support for compiling direct array specification inside variable declaration
laurent
parents: 355
diff changeset
   787
          current_array_name += symbol->value;
60b012b7793f Adding support for compiling direct array specification inside variable declaration
laurent
parents: 355
diff changeset
   788
          break;
60b012b7793f Adding support for compiling direct array specification inside variable declaration
laurent
parents: 355
diff changeset
   789
        case arraydeclaration_im:
60b012b7793f Adding support for compiling direct array specification inside variable declaration
laurent
parents: 355
diff changeset
   790
          s4o_incl.print(symbol->value);
60b012b7793f Adding support for compiling direct array specification inside variable declaration
laurent
parents: 355
diff changeset
   791
          break;
60b012b7793f Adding support for compiling direct array specification inside variable declaration
laurent
parents: 355
diff changeset
   792
        default:
60b012b7793f Adding support for compiling direct array specification inside variable declaration
laurent
parents: 355
diff changeset
   793
          return generate_c_base_c::visit(symbol);
60b012b7793f Adding support for compiling direct array specification inside variable declaration
laurent
parents: 355
diff changeset
   794
          break;
60b012b7793f Adding support for compiling direct array specification inside variable declaration
laurent
parents: 355
diff changeset
   795
      }
60b012b7793f Adding support for compiling direct array specification inside variable declaration
laurent
parents: 355
diff changeset
   796
      return NULL;
60b012b7793f Adding support for compiling direct array specification inside variable declaration
laurent
parents: 355
diff changeset
   797
    }
60b012b7793f Adding support for compiling direct array specification inside variable declaration
laurent
parents: 355
diff changeset
   798
60b012b7793f Adding support for compiling direct array specification inside variable declaration
laurent
parents: 355
diff changeset
   799
    /**********************/
60b012b7793f Adding support for compiling direct array specification inside variable declaration
laurent
parents: 355
diff changeset
   800
    /* B.1.3 - Data types */
60b012b7793f Adding support for compiling direct array specification inside variable declaration
laurent
parents: 355
diff changeset
   801
    /**********************/
60b012b7793f Adding support for compiling direct array specification inside variable declaration
laurent
parents: 355
diff changeset
   802
    /***********************************/
60b012b7793f Adding support for compiling direct array specification inside variable declaration
laurent
parents: 355
diff changeset
   803
    /* B 1.3.1 - Elementary Data Types */
60b012b7793f Adding support for compiling direct array specification inside variable declaration
laurent
parents: 355
diff changeset
   804
    /***********************************/
60b012b7793f Adding support for compiling direct array specification inside variable declaration
laurent
parents: 355
diff changeset
   805
60b012b7793f Adding support for compiling direct array specification inside variable declaration
laurent
parents: 355
diff changeset
   806
    #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
   807
    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
   808
      switch (current_mode) {\
31553c22f318 Adding support for declaring function block instances as global and external variables
Laurent Bessard
parents: 636
diff changeset
   809
        case arrayname_im:\
31553c22f318 Adding support for declaring function block instances as global and external variables
Laurent Bessard
parents: 636
diff changeset
   810
          current_array_name += datatype_name;\
31553c22f318 Adding support for declaring function block instances as global and external variables
Laurent Bessard
parents: 636
diff changeset
   811
          break;\
377
60b012b7793f Adding support for compiling direct array specification inside variable declaration
laurent
parents: 355
diff changeset
   812
        case arraydeclaration_im:\
60b012b7793f Adding support for compiling direct array specification inside variable declaration
laurent
parents: 355
diff changeset
   813
          s4o_incl.print(datatype_name);\
60b012b7793f Adding support for compiling direct array specification inside variable declaration
laurent
parents: 355
diff changeset
   814
          break;\
706
31553c22f318 Adding support for declaring function block instances as global and external variables
Laurent Bessard
parents: 636
diff changeset
   815
        default:\
31553c22f318 Adding support for declaring function block instances as global and external variables
Laurent Bessard
parents: 636
diff changeset
   816
          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
   817
          break;\
31553c22f318 Adding support for declaring function block instances as global and external variables
Laurent Bessard
parents: 636
diff changeset
   818
      }\
31553c22f318 Adding support for declaring function block instances as global and external variables
Laurent Bessard
parents: 636
diff changeset
   819
      return NULL;\
31553c22f318 Adding support for declaring function block instances as global and external variables
Laurent Bessard
parents: 636
diff changeset
   820
    }
377
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
    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
   823
    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
   824
    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
   825
    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
   826
    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
   827
    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
   828
    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
   829
    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
   830
    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
   831
    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
   832
    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
   833
    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
   834
    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
   835
    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
   836
    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
   837
    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
   838
    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
   839
    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
   840
    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
   841
    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
   842
    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
   843
60b012b7793f Adding support for compiling direct array specification inside variable declaration
laurent
parents: 355
diff changeset
   844
    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
   845
    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
   846
    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
   847
    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
   848
    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
   849
    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
   850
    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
   851
    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
   852
    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
   853
    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
   854
    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
   855
    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
   856
    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
   857
    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
   858
    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
   859
    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
   860
    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
   861
    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
   862
    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
   863
    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
   864
    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
   865
635
a20a70021d37 Adding support for direct array declaration in structure element declaration
Laurent Bessard
parents: 632
diff changeset
   866
    /***********************************/
a20a70021d37 Adding support for direct array declaration in structure element declaration
Laurent Bessard
parents: 632
diff changeset
   867
    /* B 1.3.2 - Generic Data Types    */
a20a70021d37 Adding support for direct array declaration in structure element declaration
Laurent Bessard
parents: 632
diff changeset
   868
    /***********************************/
a20a70021d37 Adding support for direct array declaration in structure element declaration
Laurent Bessard
parents: 632
diff changeset
   869
706
31553c22f318 Adding support for declaring function block instances as global and external variables
Laurent Bessard
parents: 636
diff changeset
   870
    /*  structure_type_name ':' structure_specification */
31553c22f318 Adding support for declaring function block instances as global and external variables
Laurent Bessard
parents: 636
diff changeset
   871
    //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
   872
    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
   873
      current_mode = arraydeclaration_im;
a20a70021d37 Adding support for direct array declaration in structure element declaration
Laurent Bessard
parents: 632
diff changeset
   874
      symbol->structure_specification->accept(*this);
a20a70021d37 Adding support for direct array declaration in structure element declaration
Laurent Bessard
parents: 632
diff changeset
   875
      current_mode = arrayname_im;
a20a70021d37 Adding support for direct array declaration in structure element declaration
Laurent Bessard
parents: 632
diff changeset
   876
      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
   877
      current_mode = none_im;
31553c22f318 Adding support for declaring function block instances as global and external variables
Laurent Bessard
parents: 636
diff changeset
   878
      return NULL;
31553c22f318 Adding support for declaring function block instances as global and external variables
Laurent Bessard
parents: 636
diff changeset
   879
    }
635
a20a70021d37 Adding support for direct array declaration in structure element declaration
Laurent Bessard
parents: 632
diff changeset
   880
a20a70021d37 Adding support for direct array declaration in structure element declaration
Laurent Bessard
parents: 632
diff changeset
   881
    /* helper symbol for structure_declaration */
a20a70021d37 Adding support for direct array declaration in structure element declaration
Laurent Bessard
parents: 632
diff changeset
   882
    /* 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
   883
    /* structure_element_declaration_list structure_element_declaration ';' */
a20a70021d37 Adding support for direct array declaration in structure element declaration
Laurent Bessard
parents: 632
diff changeset
   884
    //SYM_LIST(structure_element_declaration_list_c)
a20a70021d37 Adding support for direct array declaration in structure element declaration
Laurent Bessard
parents: 632
diff changeset
   885
    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
   886
      switch (current_mode) {
706
31553c22f318 Adding support for declaring function block instances as global and external variables
Laurent Bessard
parents: 636
diff changeset
   887
        case arraydeclaration_im:
31553c22f318 Adding support for declaring function block instances as global and external variables
Laurent Bessard
parents: 636
diff changeset
   888
          iterator_visitor_c::visit(symbol);
31553c22f318 Adding support for declaring function block instances as global and external variables
Laurent Bessard
parents: 636
diff changeset
   889
          break;
635
a20a70021d37 Adding support for direct array declaration in structure element declaration
Laurent Bessard
parents: 632
diff changeset
   890
        default:
706
31553c22f318 Adding support for declaring function block instances as global and external variables
Laurent Bessard
parents: 636
diff changeset
   891
          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
   892
          break;
635
a20a70021d37 Adding support for direct array declaration in structure element declaration
Laurent Bessard
parents: 632
diff changeset
   893
      }
a20a70021d37 Adding support for direct array declaration in structure element declaration
Laurent Bessard
parents: 632
diff changeset
   894
      return NULL;
a20a70021d37 Adding support for direct array declaration in structure element declaration
Laurent Bessard
parents: 632
diff changeset
   895
    }
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
    /*  structure_element_name ':' spec_init */
a20a70021d37 Adding support for direct array declaration in structure element declaration
Laurent Bessard
parents: 632
diff changeset
   898
    //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
   899
    void *visit(structure_element_declaration_c *symbol) {
a20a70021d37 Adding support for direct array declaration in structure element declaration
Laurent Bessard
parents: 632
diff changeset
   900
      switch (current_mode) {
706
31553c22f318 Adding support for declaring function block instances as global and external variables
Laurent Bessard
parents: 636
diff changeset
   901
        case arraydeclaration_im:
31553c22f318 Adding support for declaring function block instances as global and external variables
Laurent Bessard
parents: 636
diff changeset
   902
          {
31553c22f318 Adding support for declaring function block instances as global and external variables
Laurent Bessard
parents: 636
diff changeset
   903
            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
   904
            if (spec_init != NULL) {
31553c22f318 Adding support for declaring function block instances as global and external variables
Laurent Bessard
parents: 636
diff changeset
   905
              symbol->spec_init->accept(*this);
31553c22f318 Adding support for declaring function block instances as global and external variables
Laurent Bessard
parents: 636
diff changeset
   906
            }
31553c22f318 Adding support for declaring function block instances as global and external variables
Laurent Bessard
parents: 636
diff changeset
   907
          }
31553c22f318 Adding support for declaring function block instances as global and external variables
Laurent Bessard
parents: 636
diff changeset
   908
          break;
31553c22f318 Adding support for declaring function block instances as global and external variables
Laurent Bessard
parents: 636
diff changeset
   909
        default:
31553c22f318 Adding support for declaring function block instances as global and external variables
Laurent Bessard
parents: 636
diff changeset
   910
          generate_c_typedecl_c::visit(symbol);
635
a20a70021d37 Adding support for direct array declaration in structure element declaration
Laurent Bessard
parents: 632
diff changeset
   911
          break;
a20a70021d37 Adding support for direct array declaration in structure element declaration
Laurent Bessard
parents: 632
diff changeset
   912
      }
a20a70021d37 Adding support for direct array declaration in structure element declaration
Laurent Bessard
parents: 632
diff changeset
   913
      return NULL;
a20a70021d37 Adding support for direct array declaration in structure element declaration
Laurent Bessard
parents: 632
diff changeset
   914
    }
a20a70021d37 Adding support for direct array declaration in structure element declaration
Laurent Bessard
parents: 632
diff changeset
   915
377
60b012b7793f Adding support for compiling direct array specification inside variable declaration
laurent
parents: 355
diff changeset
   916
    /******************************************/
60b012b7793f Adding support for compiling direct array specification inside variable declaration
laurent
parents: 355
diff changeset
   917
    /* B 1.4.3 - Declaration & Initialization */
60b012b7793f Adding support for compiling direct array specification inside variable declaration
laurent
parents: 355
diff changeset
   918
    /******************************************/
60b012b7793f Adding support for compiling direct array specification inside variable declaration
laurent
parents: 355
diff changeset
   919
60b012b7793f Adding support for compiling direct array specification inside variable declaration
laurent
parents: 355
diff changeset
   920
    void *visit(input_declarations_c *symbol) {
60b012b7793f Adding support for compiling direct array specification inside variable declaration
laurent
parents: 355
diff changeset
   921
      symbol->input_declaration_list->accept(*this);
60b012b7793f Adding support for compiling direct array specification inside variable declaration
laurent
parents: 355
diff changeset
   922
      return NULL;
60b012b7793f Adding support for compiling direct array specification inside variable declaration
laurent
parents: 355
diff changeset
   923
    }
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
    void *visit(edge_declaration_c *symbol) {
60b012b7793f Adding support for compiling direct array specification inside variable declaration
laurent
parents: 355
diff changeset
   926
      return NULL;
60b012b7793f Adding support for compiling direct array specification inside variable declaration
laurent
parents: 355
diff changeset
   927
    }
60b012b7793f Adding support for compiling direct array specification inside variable declaration
laurent
parents: 355
diff changeset
   928
60b012b7793f Adding support for compiling direct array specification inside variable declaration
laurent
parents: 355
diff changeset
   929
    void *visit(en_param_declaration_c *symbol) {
60b012b7793f Adding support for compiling direct array specification inside variable declaration
laurent
parents: 355
diff changeset
   930
      return NULL;
60b012b7793f Adding support for compiling direct array specification inside variable declaration
laurent
parents: 355
diff changeset
   931
    }
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
    void *visit(eno_param_declaration_c *symbol) {
60b012b7793f Adding support for compiling direct array specification inside variable declaration
laurent
parents: 355
diff changeset
   934
      return NULL;
60b012b7793f Adding support for compiling direct array specification inside variable declaration
laurent
parents: 355
diff changeset
   935
    }
60b012b7793f Adding support for compiling direct array specification inside variable declaration
laurent
parents: 355
diff changeset
   936
60b012b7793f Adding support for compiling direct array specification inside variable declaration
laurent
parents: 355
diff changeset
   937
    void *visit(var1_init_decl_c *symbol) {
60b012b7793f Adding support for compiling direct array specification inside variable declaration
laurent
parents: 355
diff changeset
   938
      return NULL;
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
60b012b7793f Adding support for compiling direct array specification inside variable declaration
laurent
parents: 355
diff changeset
   941
    /*  var1_list ':' array_spec_init */
60b012b7793f Adding support for compiling direct array specification inside variable declaration
laurent
parents: 355
diff changeset
   942
    // 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
   943
    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
   944
      current_mode = arraydeclaration_im;
377
60b012b7793f Adding support for compiling direct array specification inside variable declaration
laurent
parents: 355
diff changeset
   945
      symbol->array_spec_init->accept(*this);
60b012b7793f Adding support for compiling direct array specification inside variable declaration
laurent
parents: 355
diff changeset
   946
      current_mode = none_im;
60b012b7793f Adding support for compiling direct array specification inside variable declaration
laurent
parents: 355
diff changeset
   947
      return NULL;
60b012b7793f Adding support for compiling direct array specification inside variable declaration
laurent
parents: 355
diff changeset
   948
    }
60b012b7793f Adding support for compiling direct array specification inside variable declaration
laurent
parents: 355
diff changeset
   949
60b012b7793f Adding support for compiling direct array specification inside variable declaration
laurent
parents: 355
diff changeset
   950
    /* array_specification [ASSIGN array_initialization] */
60b012b7793f Adding support for compiling direct array specification inside variable declaration
laurent
parents: 355
diff changeset
   951
    /* array_initialization may be NULL ! */
60b012b7793f Adding support for compiling direct array specification inside variable declaration
laurent
parents: 355
diff changeset
   952
    void *visit(array_spec_init_c *symbol) {
60b012b7793f Adding support for compiling direct array specification inside variable declaration
laurent
parents: 355
diff changeset
   953
      switch (current_mode) {
706
31553c22f318 Adding support for declaring function block instances as global and external variables
Laurent Bessard
parents: 636
diff changeset
   954
        case arraydeclaration_im:
856
d80971552535 Fix bug - correctly declare struct members whose type is a directly defined array (e.g.: STRUCT x: ARRAY of XXX; END_STRUCT)
mjsousa
parents: 854
diff changeset
   955
          {
d80971552535 Fix bug - correctly declare struct members whose type is a directly defined array (e.g.: STRUCT x: ARRAY of XXX; END_STRUCT)
mjsousa
parents: 854
diff changeset
   956
            array_specification_c *specification = dynamic_cast<array_specification_c*>(symbol->array_specification);
d80971552535 Fix bug - correctly declare struct members whose type is a directly defined array (e.g.: STRUCT x: ARRAY of XXX; END_STRUCT)
mjsousa
parents: 854
diff changeset
   957
            if (specification != NULL)
d80971552535 Fix bug - correctly declare struct members whose type is a directly defined array (e.g.: STRUCT x: ARRAY of XXX; END_STRUCT)
mjsousa
parents: 854
diff changeset
   958
              symbol->array_specification->accept(*this);
d80971552535 Fix bug - correctly declare struct members whose type is a directly defined array (e.g.: STRUCT x: ARRAY of XXX; END_STRUCT)
mjsousa
parents: 854
diff changeset
   959
          }
d80971552535 Fix bug - correctly declare struct members whose type is a directly defined array (e.g.: STRUCT x: ARRAY of XXX; END_STRUCT)
mjsousa
parents: 854
diff changeset
   960
          break;
706
31553c22f318 Adding support for declaring function block instances as global and external variables
Laurent Bessard
parents: 636
diff changeset
   961
        case arrayname_im:
31553c22f318 Adding support for declaring function block instances as global and external variables
Laurent Bessard
parents: 636
diff changeset
   962
          {
31553c22f318 Adding support for declaring function block instances as global and external variables
Laurent Bessard
parents: 636
diff changeset
   963
            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
   964
            if (specification != NULL)
60b012b7793f Adding support for compiling direct array specification inside variable declaration
laurent
parents: 355
diff changeset
   965
              symbol->array_specification->accept(*this);
856
d80971552535 Fix bug - correctly declare struct members whose type is a directly defined array (e.g.: STRUCT x: ARRAY of XXX; END_STRUCT)
mjsousa
parents: 854
diff changeset
   966
            identifier_c *name = dynamic_cast<identifier_c*>(symbol->array_specification);
d80971552535 Fix bug - correctly declare struct members whose type is a directly defined array (e.g.: STRUCT x: ARRAY of XXX; END_STRUCT)
mjsousa
parents: 854
diff changeset
   967
            if (name != NULL)
d80971552535 Fix bug - correctly declare struct members whose type is a directly defined array (e.g.: STRUCT x: ARRAY of XXX; END_STRUCT)
mjsousa
parents: 854
diff changeset
   968
              s4o_incl.print(name->value);
377
60b012b7793f Adding support for compiling direct array specification inside variable declaration
laurent
parents: 355
diff changeset
   969
          }
60b012b7793f Adding support for compiling direct array specification inside variable declaration
laurent
parents: 355
diff changeset
   970
          break;
706
31553c22f318 Adding support for declaring function block instances as global and external variables
Laurent Bessard
parents: 636
diff changeset
   971
        default:
31553c22f318 Adding support for declaring function block instances as global and external variables
Laurent Bessard
parents: 636
diff changeset
   972
          return generate_c_typedecl_c::visit(symbol);
377
60b012b7793f Adding support for compiling direct array specification inside variable declaration
laurent
parents: 355
diff changeset
   973
          break;
60b012b7793f Adding support for compiling direct array specification inside variable declaration
laurent
parents: 355
diff changeset
   974
      }
60b012b7793f Adding support for compiling direct array specification inside variable declaration
laurent
parents: 355
diff changeset
   975
      return NULL;
60b012b7793f Adding support for compiling direct array specification inside variable declaration
laurent
parents: 355
diff changeset
   976
    }
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
    /* 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
   979
    void *visit(array_specification_c *symbol) {
60b012b7793f Adding support for compiling direct array specification inside variable declaration
laurent
parents: 355
diff changeset
   980
      switch (current_mode) {
635
a20a70021d37 Adding support for direct array declaration in structure element declaration
Laurent Bessard
parents: 632
diff changeset
   981
        case arraydeclaration_im:
377
60b012b7793f Adding support for compiling direct array specification inside variable declaration
laurent
parents: 355
diff changeset
   982
          {
706
31553c22f318 Adding support for declaring function block instances as global and external variables
Laurent Bessard
parents: 636
diff changeset
   983
            current_mode = arrayname_im;
377
60b012b7793f Adding support for compiling direct array specification inside variable declaration
laurent
parents: 355
diff changeset
   984
            std::map<std::string,int>::iterator definition;
60b012b7793f Adding support for compiling direct array specification inside variable declaration
laurent
parents: 355
diff changeset
   985
            current_array_name = "__";
60b012b7793f Adding support for compiling direct array specification inside variable declaration
laurent
parents: 355
diff changeset
   986
            symbol->non_generic_type_name->accept(*this);
60b012b7793f Adding support for compiling direct array specification inside variable declaration
laurent
parents: 355
diff changeset
   987
            symbol->array_subrange_list->accept(*this);
635
a20a70021d37 Adding support for direct array declaration in structure element declaration
Laurent Bessard
parents: 632
diff changeset
   988
            current_mode = arraydeclaration_im;
377
60b012b7793f Adding support for compiling direct array specification inside variable declaration
laurent
parents: 355
diff changeset
   989
60b012b7793f Adding support for compiling direct array specification inside variable declaration
laurent
parents: 355
diff changeset
   990
            definition = inline_array_defined.find(current_array_name);
60b012b7793f Adding support for compiling direct array specification inside variable declaration
laurent
parents: 355
diff changeset
   991
            if (definition == inline_array_defined.end()) {
60b012b7793f Adding support for compiling direct array specification inside variable declaration
laurent
parents: 355
diff changeset
   992
              s4o_incl.print("__DECLARE_ARRAY_TYPE(");
60b012b7793f Adding support for compiling direct array specification inside variable declaration
laurent
parents: 355
diff changeset
   993
              s4o_incl.print(current_array_name);
60b012b7793f Adding support for compiling direct array specification inside variable declaration
laurent
parents: 355
diff changeset
   994
              s4o_incl.print(",");
60b012b7793f Adding support for compiling direct array specification inside variable declaration
laurent
parents: 355
diff changeset
   995
              symbol->non_generic_type_name->accept(*this);
60b012b7793f Adding support for compiling direct array specification inside variable declaration
laurent
parents: 355
diff changeset
   996
              s4o_incl.print(",");
60b012b7793f Adding support for compiling direct array specification inside variable declaration
laurent
parents: 355
diff changeset
   997
              symbol->array_subrange_list->accept(*this);
60b012b7793f Adding support for compiling direct array specification inside variable declaration
laurent
parents: 355
diff changeset
   998
              s4o_incl.print(")\n\n");
60b012b7793f Adding support for compiling direct array specification inside variable declaration
laurent
parents: 355
diff changeset
   999
60b012b7793f Adding support for compiling direct array specification inside variable declaration
laurent
parents: 355
diff changeset
  1000
              inline_array_defined[current_array_name] = 0;
60b012b7793f Adding support for compiling direct array specification inside variable declaration
laurent
parents: 355
diff changeset
  1001
            }
60b012b7793f Adding support for compiling direct array specification inside variable declaration
laurent
parents: 355
diff changeset
  1002
          }
60b012b7793f Adding support for compiling direct array specification inside variable declaration
laurent
parents: 355
diff changeset
  1003
          break;
635
a20a70021d37 Adding support for direct array declaration in structure element declaration
Laurent Bessard
parents: 632
diff changeset
  1004
        case arrayname_im:
a20a70021d37 Adding support for direct array declaration in structure element declaration
Laurent Bessard
parents: 632
diff changeset
  1005
          {
706
31553c22f318 Adding support for declaring function block instances as global and external variables
Laurent Bessard
parents: 636
diff changeset
  1006
              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
  1007
              current_array_name = "__";
31553c22f318 Adding support for declaring function block instances as global and external variables
Laurent Bessard
parents: 636
diff changeset
  1008
              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
  1009
              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
  1010
              s4o_incl.print(current_array_name);
635
a20a70021d37 Adding support for direct array declaration in structure element declaration
Laurent Bessard
parents: 632
diff changeset
  1011
          }
a20a70021d37 Adding support for direct array declaration in structure element declaration
Laurent Bessard
parents: 632
diff changeset
  1012
          break;
377
60b012b7793f Adding support for compiling direct array specification inside variable declaration
laurent
parents: 355
diff changeset
  1013
        default:
60b012b7793f Adding support for compiling direct array specification inside variable declaration
laurent
parents: 355
diff changeset
  1014
          return generate_c_typedecl_c::visit(symbol);
60b012b7793f Adding support for compiling direct array specification inside variable declaration
laurent
parents: 355
diff changeset
  1015
          break;
60b012b7793f Adding support for compiling direct array specification inside variable declaration
laurent
parents: 355
diff changeset
  1016
      }
60b012b7793f Adding support for compiling direct array specification inside variable declaration
laurent
parents: 355
diff changeset
  1017
      return NULL;
60b012b7793f Adding support for compiling direct array specification inside variable declaration
laurent
parents: 355
diff changeset
  1018
    }
60b012b7793f Adding support for compiling direct array specification inside variable declaration
laurent
parents: 355
diff changeset
  1019
60b012b7793f Adding support for compiling direct array specification inside variable declaration
laurent
parents: 355
diff changeset
  1020
    /*  signed_integer DOTDOT signed_integer */
60b012b7793f Adding support for compiling direct array specification inside variable declaration
laurent
parents: 355
diff changeset
  1021
    //SYM_REF2(subrange_c, lower_limit, upper_limit)
60b012b7793f Adding support for compiling direct array specification inside variable declaration
laurent
parents: 355
diff changeset
  1022
    void *visit(subrange_c *symbol) {
60b012b7793f Adding support for compiling direct array specification inside variable declaration
laurent
parents: 355
diff changeset
  1023
      switch (current_mode) {
60b012b7793f Adding support for compiling direct array specification inside variable declaration
laurent
parents: 355
diff changeset
  1024
        case arrayname_im:
60b012b7793f Adding support for compiling direct array specification inside variable declaration
laurent
parents: 355
diff changeset
  1025
          current_array_name += "_";
60b012b7793f Adding support for compiling direct array specification inside variable declaration
laurent
parents: 355
diff changeset
  1026
          {
60b012b7793f Adding support for compiling direct array specification inside variable declaration
laurent
parents: 355
diff changeset
  1027
            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
  1028
            ss << symbol->dimension;
377
60b012b7793f Adding support for compiling direct array specification inside variable declaration
laurent
parents: 355
diff changeset
  1029
            current_array_name += ss.str();
60b012b7793f Adding support for compiling direct array specification inside variable declaration
laurent
parents: 355
diff changeset
  1030
          }
60b012b7793f Adding support for compiling direct array specification inside variable declaration
laurent
parents: 355
diff changeset
  1031
          break;
60b012b7793f Adding support for compiling direct array specification inside variable declaration
laurent
parents: 355
diff changeset
  1032
        case arraydeclaration_im:
60b012b7793f Adding support for compiling direct array specification inside variable declaration
laurent
parents: 355
diff changeset
  1033
          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
  1034
          s4o_incl.print(symbol->dimension);
377
60b012b7793f Adding support for compiling direct array specification inside variable declaration
laurent
parents: 355
diff changeset
  1035
          s4o_incl.print("]");
60b012b7793f Adding support for compiling direct array specification inside variable declaration
laurent
parents: 355
diff changeset
  1036
        default:
60b012b7793f Adding support for compiling direct array specification inside variable declaration
laurent
parents: 355
diff changeset
  1037
          generate_c_typedecl_c::visit(symbol);
60b012b7793f Adding support for compiling direct array specification inside variable declaration
laurent
parents: 355
diff changeset
  1038
          break;
60b012b7793f Adding support for compiling direct array specification inside variable declaration
laurent
parents: 355
diff changeset
  1039
      }
60b012b7793f Adding support for compiling direct array specification inside variable declaration
laurent
parents: 355
diff changeset
  1040
      return NULL;
60b012b7793f Adding support for compiling direct array specification inside variable declaration
laurent
parents: 355
diff changeset
  1041
    }
60b012b7793f Adding support for compiling direct array specification inside variable declaration
laurent
parents: 355
diff changeset
  1042
60b012b7793f Adding support for compiling direct array specification inside variable declaration
laurent
parents: 355
diff changeset
  1043
    /*  var1_list ':' initialized_structure */
60b012b7793f Adding support for compiling direct array specification inside variable declaration
laurent
parents: 355
diff changeset
  1044
    // 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
  1045
    void *visit(structured_var_init_decl_c *symbol) {
60b012b7793f Adding support for compiling direct array specification inside variable declaration
laurent
parents: 355
diff changeset
  1046
      return NULL;
60b012b7793f Adding support for compiling direct array specification inside variable declaration
laurent
parents: 355
diff changeset
  1047
    }
60b012b7793f Adding support for compiling direct array specification inside variable declaration
laurent
parents: 355
diff changeset
  1048
60b012b7793f Adding support for compiling direct array specification inside variable declaration
laurent
parents: 355
diff changeset
  1049
    /* 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
  1050
    /* structure_initialization -> may be NULL ! */
60b012b7793f Adding support for compiling direct array specification inside variable declaration
laurent
parents: 355
diff changeset
  1051
    void *visit(fb_name_decl_c *symbol) {
60b012b7793f Adding support for compiling direct array specification inside variable declaration
laurent
parents: 355
diff changeset
  1052
      return NULL;
60b012b7793f Adding support for compiling direct array specification inside variable declaration
laurent
parents: 355
diff changeset
  1053
    }
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
    /* 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
  1056
    /* option -> may be NULL ! */
60b012b7793f Adding support for compiling direct array specification inside variable declaration
laurent
parents: 355
diff changeset
  1057
    void *visit(output_declarations_c *symbol) {
60b012b7793f Adding support for compiling direct array specification inside variable declaration
laurent
parents: 355
diff changeset
  1058
      symbol->var_init_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_IN_OUT var_declaration_list END_VAR */
60b012b7793f Adding support for compiling direct array specification inside variable declaration
laurent
parents: 355
diff changeset
  1063
    void *visit(input_output_declarations_c *symbol) {
60b012b7793f Adding support for compiling direct array specification inside variable declaration
laurent
parents: 355
diff changeset
  1064
      symbol->var_declaration_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
    /*  var1_list ':' array_specification */
60b012b7793f Adding support for compiling direct array specification inside variable declaration
laurent
parents: 355
diff changeset
  1069
    //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
  1070
    void *visit(array_var_declaration_c *symbol) {
60b012b7793f Adding support for compiling direct array specification inside variable declaration
laurent
parents: 355
diff changeset
  1071
      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
  1072
      if (specification != NULL) {
635
a20a70021d37 Adding support for direct array declaration in structure element declaration
Laurent Bessard
parents: 632
diff changeset
  1073
        current_mode = arraydeclaration_im;
377
60b012b7793f Adding support for compiling direct array specification inside variable declaration
laurent
parents: 355
diff changeset
  1074
        symbol->array_specification->accept(*this);
60b012b7793f Adding support for compiling direct array specification inside variable declaration
laurent
parents: 355
diff changeset
  1075
        current_mode = none_im;
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
      return NULL;
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
624
c2546c6e0cfa Moving function to correct location (formating only).
Mario de Sousa <msousa@fe.up.pt>
parents: 623
diff changeset
  1080
    /*  var1_list ':' structure_type_name */
c2546c6e0cfa Moving function to correct location (formating only).
Mario de Sousa <msousa@fe.up.pt>
parents: 623
diff changeset
  1081
    //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
  1082
    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
  1083
      return NULL;
c2546c6e0cfa Moving function to correct location (formating only).
Mario de Sousa <msousa@fe.up.pt>
parents: 623
diff changeset
  1084
    }
c2546c6e0cfa Moving function to correct location (formating only).
Mario de Sousa <msousa@fe.up.pt>
parents: 623
diff changeset
  1085
377
60b012b7793f Adding support for compiling direct array specification inside variable declaration
laurent
parents: 355
diff changeset
  1086
    /* VAR [CONSTANT] var_init_decl_list END_VAR */
60b012b7793f Adding support for compiling direct array specification inside variable declaration
laurent
parents: 355
diff changeset
  1087
    /* option -> may be NULL ! */
60b012b7793f Adding support for compiling direct array specification inside variable declaration
laurent
parents: 355
diff changeset
  1088
    /* helper symbol for input_declarations */
60b012b7793f Adding support for compiling direct array specification inside variable declaration
laurent
parents: 355
diff changeset
  1089
    void *visit(var_declarations_c *symbol) {
60b012b7793f Adding support for compiling direct array specification inside variable declaration
laurent
parents: 355
diff changeset
  1090
      symbol->var_init_decl_list->accept(*this);
60b012b7793f Adding support for compiling direct array specification inside variable declaration
laurent
parents: 355
diff changeset
  1091
      return NULL;
60b012b7793f Adding support for compiling direct array specification inside variable declaration
laurent
parents: 355
diff changeset
  1092
    }
60b012b7793f Adding support for compiling direct array specification inside variable declaration
laurent
parents: 355
diff changeset
  1093
60b012b7793f Adding support for compiling direct array specification inside variable declaration
laurent
parents: 355
diff changeset
  1094
    /*  VAR RETAIN var_init_decl_list END_VAR */
60b012b7793f Adding support for compiling direct array specification inside variable declaration
laurent
parents: 355
diff changeset
  1095
    void *visit(retentive_var_declarations_c *symbol) {
60b012b7793f Adding support for compiling direct array specification inside variable declaration
laurent
parents: 355
diff changeset
  1096
      symbol->var_init_decl_list->accept(*this);
60b012b7793f Adding support for compiling direct array specification inside variable declaration
laurent
parents: 355
diff changeset
  1097
      return NULL;
60b012b7793f Adding support for compiling direct array specification inside variable declaration
laurent
parents: 355
diff changeset
  1098
    }
60b012b7793f Adding support for compiling direct array specification inside variable declaration
laurent
parents: 355
diff changeset
  1099
60b012b7793f Adding support for compiling direct array specification inside variable declaration
laurent
parents: 355
diff changeset
  1100
    /*  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
  1101
    /* option -> may be NULL ! */
60b012b7793f Adding support for compiling direct array specification inside variable declaration
laurent
parents: 355
diff changeset
  1102
    //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
  1103
    void *visit(located_var_declarations_c *symbol) {
60b012b7793f Adding support for compiling direct array specification inside variable declaration
laurent
parents: 355
diff changeset
  1104
      symbol->located_var_decl_list->accept(*this);
60b012b7793f Adding support for compiling direct array specification inside variable declaration
laurent
parents: 355
diff changeset
  1105
      return NULL;
60b012b7793f Adding support for compiling direct array specification inside variable declaration
laurent
parents: 355
diff changeset
  1106
    }
60b012b7793f Adding support for compiling direct array specification inside variable declaration
laurent
parents: 355
diff changeset
  1107
60b012b7793f Adding support for compiling direct array specification inside variable declaration
laurent
parents: 355
diff changeset
  1108
    /*  [variable_name] location ':' located_var_spec_init */
60b012b7793f Adding support for compiling direct array specification inside variable declaration
laurent
parents: 355
diff changeset
  1109
    /* variable_name -> may be NULL ! */
60b012b7793f Adding support for compiling direct array specification inside variable declaration
laurent
parents: 355
diff changeset
  1110
    //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
  1111
    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
  1112
      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
  1113
      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
  1114
        current_mode = arraydeclaration_im;
31553c22f318 Adding support for declaring function block instances as global and external variables
Laurent Bessard
parents: 636
diff changeset
  1115
        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
  1116
        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
  1117
      }
377
60b012b7793f Adding support for compiling direct array specification inside variable declaration
laurent
parents: 355
diff changeset
  1118
      return NULL;
60b012b7793f Adding support for compiling direct array specification inside variable declaration
laurent
parents: 355
diff changeset
  1119
    }
60b012b7793f Adding support for compiling direct array specification inside variable declaration
laurent
parents: 355
diff changeset
  1120
60b012b7793f Adding support for compiling direct array specification inside variable declaration
laurent
parents: 355
diff changeset
  1121
    /*| VAR_EXTERNAL [CONSTANT] external_declaration_list END_VAR */
60b012b7793f Adding support for compiling direct array specification inside variable declaration
laurent
parents: 355
diff changeset
  1122
    /* option -> may be NULL ! */
60b012b7793f Adding support for compiling direct array specification inside variable declaration
laurent
parents: 355
diff changeset
  1123
    //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
  1124
    void *visit(external_var_declarations_c *symbol) {
60b012b7793f Adding support for compiling direct array specification inside variable declaration
laurent
parents: 355
diff changeset
  1125
      symbol->external_declaration_list->accept(*this);
60b012b7793f Adding support for compiling direct array specification inside variable declaration
laurent
parents: 355
diff changeset
  1126
      return NULL;
60b012b7793f Adding support for compiling direct array specification inside variable declaration
laurent
parents: 355
diff changeset
  1127
    }
60b012b7793f Adding support for compiling direct array specification inside variable declaration
laurent
parents: 355
diff changeset
  1128
60b012b7793f Adding support for compiling direct array specification inside variable declaration
laurent
parents: 355
diff changeset
  1129
    /*  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
  1130
    //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
  1131
    void *visit(external_declaration_c *symbol) {
60b012b7793f Adding support for compiling direct array specification inside variable declaration
laurent
parents: 355
diff changeset
  1132
      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
  1133
      if (array_specification != NULL) {
635
a20a70021d37 Adding support for direct array declaration in structure element declaration
Laurent Bessard
parents: 632
diff changeset
  1134
        current_mode = arraydeclaration_im;
377
60b012b7793f Adding support for compiling direct array specification inside variable declaration
laurent
parents: 355
diff changeset
  1135
        symbol->specification->accept(*this);
60b012b7793f Adding support for compiling direct array specification inside variable declaration
laurent
parents: 355
diff changeset
  1136
        current_mode = none_im;
60b012b7793f Adding support for compiling direct array specification inside variable declaration
laurent
parents: 355
diff changeset
  1137
      }
60b012b7793f Adding support for compiling direct array specification inside variable declaration
laurent
parents: 355
diff changeset
  1138
      return NULL;
60b012b7793f Adding support for compiling direct array specification inside variable declaration
laurent
parents: 355
diff changeset
  1139
    }
60b012b7793f Adding support for compiling direct array specification inside variable declaration
laurent
parents: 355
diff changeset
  1140
60b012b7793f Adding support for compiling direct array specification inside variable declaration
laurent
parents: 355
diff changeset
  1141
    /*| 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
  1142
    /* option -> may be NULL ! */
60b012b7793f Adding support for compiling direct array specification inside variable declaration
laurent
parents: 355
diff changeset
  1143
    // 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
  1144
    void *visit(global_var_declarations_c *symbol) {
60b012b7793f Adding support for compiling direct array specification inside variable declaration
laurent
parents: 355
diff changeset
  1145
      symbol->global_var_decl_list->accept(*this);
60b012b7793f Adding support for compiling direct array specification inside variable declaration
laurent
parents: 355
diff changeset
  1146
      return NULL;
60b012b7793f Adding support for compiling direct array specification inside variable declaration
laurent
parents: 355
diff changeset
  1147
    }
60b012b7793f Adding support for compiling direct array specification inside variable declaration
laurent
parents: 355
diff changeset
  1148
60b012b7793f Adding support for compiling direct array specification inside variable declaration
laurent
parents: 355
diff changeset
  1149
    /*| 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
  1150
    /* type_specification ->may be NULL ! */
60b012b7793f Adding support for compiling direct array specification inside variable declaration
laurent
parents: 355
diff changeset
  1151
    // 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
  1152
    void *visit(global_var_decl_c *symbol) {
60b012b7793f Adding support for compiling direct array specification inside variable declaration
laurent
parents: 355
diff changeset
  1153
      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
  1154
      if (array_spec_init != NULL) {
635
a20a70021d37 Adding support for direct array declaration in structure element declaration
Laurent Bessard
parents: 632
diff changeset
  1155
        current_mode = arraydeclaration_im;
377
60b012b7793f Adding support for compiling direct array specification inside variable declaration
laurent
parents: 355
diff changeset
  1156
        symbol->type_specification->accept(*this);
60b012b7793f Adding support for compiling direct array specification inside variable declaration
laurent
parents: 355
diff changeset
  1157
        current_mode = none_im;
60b012b7793f Adding support for compiling direct array specification inside variable declaration
laurent
parents: 355
diff changeset
  1158
      }
60b012b7793f Adding support for compiling direct array specification inside variable declaration
laurent
parents: 355
diff changeset
  1159
      return NULL;
60b012b7793f Adding support for compiling direct array specification inside variable declaration
laurent
parents: 355
diff changeset
  1160
    }
60b012b7793f Adding support for compiling direct array specification inside variable declaration
laurent
parents: 355
diff changeset
  1161
60b012b7793f Adding support for compiling direct array specification inside variable declaration
laurent
parents: 355
diff changeset
  1162
    void *visit(function_var_decls_c *symbol) {
60b012b7793f Adding support for compiling direct array specification inside variable declaration
laurent
parents: 355
diff changeset
  1163
      symbol->decl_list->accept(*this);
60b012b7793f Adding support for compiling direct array specification inside variable declaration
laurent
parents: 355
diff changeset
  1164
      return NULL;
60b012b7793f Adding support for compiling direct array specification inside variable declaration
laurent
parents: 355
diff changeset
  1165
    }
60b012b7793f Adding support for compiling direct array specification inside variable declaration
laurent
parents: 355
diff changeset
  1166
60b012b7793f Adding support for compiling direct array specification inside variable declaration
laurent
parents: 355
diff changeset
  1167
    /*****************************/
60b012b7793f Adding support for compiling direct array specification inside variable declaration
laurent
parents: 355
diff changeset
  1168
    /* B 1.5.2 - Function Blocks */
60b012b7793f Adding support for compiling direct array specification inside variable declaration
laurent
parents: 355
diff changeset
  1169
    /*****************************/
60b012b7793f Adding support for compiling direct array specification inside variable declaration
laurent
parents: 355
diff changeset
  1170
60b012b7793f Adding support for compiling direct array specification inside variable declaration
laurent
parents: 355
diff changeset
  1171
    /*  VAR_TEMP temp_var_decl_list END_VAR */
60b012b7793f Adding support for compiling direct array specification inside variable declaration
laurent
parents: 355
diff changeset
  1172
    void *visit(temp_var_decls_c *symbol) {
60b012b7793f Adding support for compiling direct array specification inside variable declaration
laurent
parents: 355
diff changeset
  1173
      symbol->var_decl_list->accept(*this);
60b012b7793f Adding support for compiling direct array specification inside variable declaration
laurent
parents: 355
diff changeset
  1174
      return NULL;
60b012b7793f Adding support for compiling direct array specification inside variable declaration
laurent
parents: 355
diff changeset
  1175
    }
60b012b7793f Adding support for compiling direct array specification inside variable declaration
laurent
parents: 355
diff changeset
  1176
60b012b7793f Adding support for compiling direct array specification inside variable declaration
laurent
parents: 355
diff changeset
  1177
    /*  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
  1178
    void *visit(non_retentive_var_decls_c *symbol) {
60b012b7793f Adding support for compiling direct array specification inside variable declaration
laurent
parents: 355
diff changeset
  1179
      symbol->var_decl_list->accept(*this);
60b012b7793f Adding support for compiling direct array specification inside variable declaration
laurent
parents: 355
diff changeset
  1180
      return NULL;
60b012b7793f Adding support for compiling direct array specification inside variable declaration
laurent
parents: 355
diff changeset
  1181
    }
60b012b7793f Adding support for compiling direct array specification inside variable declaration
laurent
parents: 355
diff changeset
  1182
60b012b7793f Adding support for compiling direct array specification inside variable declaration
laurent
parents: 355
diff changeset
  1183
};
60b012b7793f Adding support for compiling direct array specification inside variable declaration
laurent
parents: 355
diff changeset
  1184
60b012b7793f Adding support for compiling direct array specification inside variable declaration
laurent
parents: 355
diff changeset
  1185
60b012b7793f Adding support for compiling direct array specification inside variable declaration
laurent
parents: 355
diff changeset
  1186
60b012b7793f Adding support for compiling direct array specification inside variable declaration
laurent
parents: 355
diff changeset
  1187
60b012b7793f Adding support for compiling direct array specification inside variable declaration
laurent
parents: 355
diff changeset
  1188
/***********************************************************************/
60b012b7793f Adding support for compiling direct array specification inside variable declaration
laurent
parents: 355
diff changeset
  1189
/***********************************************************************/
60b012b7793f Adding support for compiling direct array specification inside variable declaration
laurent
parents: 355
diff changeset
  1190
/***********************************************************************/
60b012b7793f Adding support for compiling direct array specification inside variable declaration
laurent
parents: 355
diff changeset
  1191
/***********************************************************************/
60b012b7793f Adding support for compiling direct array specification inside variable declaration
laurent
parents: 355
diff changeset
  1192
/***********************************************************************/
60b012b7793f Adding support for compiling direct array specification inside variable declaration
laurent
parents: 355
diff changeset
  1193
907
c3edb882a4b2 code re-organisation. Preparing for the changes to come in the next commit (one C file for each POU)
mjsousa
parents: 906
diff changeset
  1194
class generate_c_pous_c {  
c3edb882a4b2 code re-organisation. Preparing for the changes to come in the next commit (one C file for each POU)
mjsousa
parents: 906
diff changeset
  1195
  /* NOTE: This is NOT a visistor class!!
c3edb882a4b2 code re-organisation. Preparing for the changes to come in the next commit (one C file for each POU)
mjsousa
parents: 906
diff changeset
  1196
   * 
c3edb882a4b2 code re-organisation. Preparing for the changes to come in the next commit (one C file for each POU)
mjsousa
parents: 906
diff changeset
  1197
   *       Actually, it does not even really need to be a class. It is simply a collection of similar functions!!
c3edb882a4b2 code re-organisation. Preparing for the changes to come in the next commit (one C file for each POU)
mjsousa
parents: 906
diff changeset
  1198
   */ 
c3edb882a4b2 code re-organisation. Preparing for the changes to come in the next commit (one C file for each POU)
mjsousa
parents: 906
diff changeset
  1199
267
0a1204bcc9af starting to add proper header file with declaration of standard functions
Mario de Sousa <msousa@fe.up.pt>
parents: 262
diff changeset
  1200
  private:
907
c3edb882a4b2 code re-organisation. Preparing for the changes to come in the next commit (one C file for each POU)
mjsousa
parents: 906
diff changeset
  1201
    static void print_end_of_block_label(stage4out_c &s4o) {
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
  1202
      /* 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
  1203
       * 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
  1204
       * 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
  1205
       */
214d3fdee596 fixing C code generation of return_statement_c and exit_statement_c
Mario de Sousa <msousa@fe.up.pt>
parents: 279
diff changeset
  1206
      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
  1207
      /* 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
  1208
      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
  1209
      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
  1210
      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
  1211
      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
  1212
      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
  1213
214d3fdee596 fixing C code generation of return_statement_c and exit_statement_c
Mario de Sousa <msousa@fe.up.pt>
parents: 279
diff changeset
  1214
      /* 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
  1215
      /* 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
  1216
      /* 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
  1217
      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
  1218
      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
  1219
      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
  1220
      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
  1221
      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
  1222
    }
214d3fdee596 fixing C code generation of return_statement_c and exit_statement_c
Mario de Sousa <msousa@fe.up.pt>
parents: 279
diff changeset
  1223
  
214d3fdee596 fixing C code generation of return_statement_c and exit_statement_c
Mario de Sousa <msousa@fe.up.pt>
parents: 279
diff changeset
  1224
907
c3edb882a4b2 code re-organisation. Preparing for the changes to come in the next commit (one C file for each POU)
mjsousa
parents: 906
diff changeset
  1225
    /*************/
c3edb882a4b2 code re-organisation. Preparing for the changes to come in the next commit (one C file for each POU)
mjsousa
parents: 906
diff changeset
  1226
    /* Functions */
c3edb882a4b2 code re-organisation. Preparing for the changes to come in the next commit (one C file for each POU)
mjsousa
parents: 906
diff changeset
  1227
    /*************/
70
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  1228
  public:
907
c3edb882a4b2 code re-organisation. Preparing for the changes to come in the next commit (one C file for each POU)
mjsousa
parents: 906
diff changeset
  1229
    /* NOTE: The following function will be called twice:
c3edb882a4b2 code re-organisation. Preparing for the changes to come in the next commit (one C file for each POU)
mjsousa
parents: 906
diff changeset
  1230
     *         1st time:  s4o will reference the .h file, and print_declaration=true
c3edb882a4b2 code re-organisation. Preparing for the changes to come in the next commit (one C file for each POU)
mjsousa
parents: 906
diff changeset
  1231
     *                     Here, we generate the function prototypes...
c3edb882a4b2 code re-organisation. Preparing for the changes to come in the next commit (one C file for each POU)
mjsousa
parents: 906
diff changeset
  1232
     *         2nd time:  s4o will reference the .c file, and print_declaration=false
c3edb882a4b2 code re-organisation. Preparing for the changes to come in the next commit (one C file for each POU)
mjsousa
parents: 906
diff changeset
  1233
     *                     Here we generate the source code!
c3edb882a4b2 code re-organisation. Preparing for the changes to come in the next commit (one C file for each POU)
mjsousa
parents: 906
diff changeset
  1234
     */
c3edb882a4b2 code re-organisation. Preparing for the changes to come in the next commit (one C file for each POU)
mjsousa
parents: 906
diff changeset
  1235
    /*   FUNCTION derived_function_name ':' elementary_type_name io_OR_function_var_declarations_list function_body END_FUNCTION */
c3edb882a4b2 code re-organisation. Preparing for the changes to come in the next commit (one C file for each POU)
mjsousa
parents: 906
diff changeset
  1236
    /* | FUNCTION derived_function_name ':' derived_type_name io_OR_function_var_declarations_list function_body END_FUNCTION */
c3edb882a4b2 code re-organisation. Preparing for the changes to come in the next commit (one C file for each POU)
mjsousa
parents: 906
diff changeset
  1237
    static void handle_function(function_declaration_c *symbol, stage4out_c &s4o, bool print_declaration) {
c3edb882a4b2 code re-organisation. Preparing for the changes to come in the next commit (one C file for each POU)
mjsousa
parents: 906
diff changeset
  1238
      generate_c_vardecl_c *vardecl = NULL;
c3edb882a4b2 code re-organisation. Preparing for the changes to come in the next commit (one C file for each POU)
mjsousa
parents: 906
diff changeset
  1239
      generate_c_base_c     print_base(&s4o);
c3edb882a4b2 code re-organisation. Preparing for the changes to come in the next commit (one C file for each POU)
mjsousa
parents: 906
diff changeset
  1240
      
c3edb882a4b2 code re-organisation. Preparing for the changes to come in the next commit (one C file for each POU)
mjsousa
parents: 906
diff changeset
  1241
      TRACE("function_declaration_c");
c3edb882a4b2 code re-organisation. Preparing for the changes to come in the next commit (one C file for each POU)
mjsousa
parents: 906
diff changeset
  1242
    
c3edb882a4b2 code re-organisation. Preparing for the changes to come in the next commit (one C file for each POU)
mjsousa
parents: 906
diff changeset
  1243
      /* (A) Function declaration... */
c3edb882a4b2 code re-organisation. Preparing for the changes to come in the next commit (one C file for each POU)
mjsousa
parents: 906
diff changeset
  1244
      /* (A.1) Function return type */
c3edb882a4b2 code re-organisation. Preparing for the changes to come in the next commit (one C file for each POU)
mjsousa
parents: 906
diff changeset
  1245
      s4o.print("// FUNCTION\n");
c3edb882a4b2 code re-organisation. Preparing for the changes to come in the next commit (one C file for each POU)
mjsousa
parents: 906
diff changeset
  1246
      symbol->type_name->accept(print_base); /* return type */
c3edb882a4b2 code re-organisation. Preparing for the changes to come in the next commit (one C file for each POU)
mjsousa
parents: 906
diff changeset
  1247
      s4o.print(" ");
c3edb882a4b2 code re-organisation. Preparing for the changes to come in the next commit (one C file for each POU)
mjsousa
parents: 906
diff changeset
  1248
      /* (A.2) Function name */
c3edb882a4b2 code re-organisation. Preparing for the changes to come in the next commit (one C file for each POU)
mjsousa
parents: 906
diff changeset
  1249
      symbol->derived_function_name->accept(print_base);
c3edb882a4b2 code re-organisation. Preparing for the changes to come in the next commit (one C file for each POU)
mjsousa
parents: 906
diff changeset
  1250
      s4o.print("(");
c3edb882a4b2 code re-organisation. Preparing for the changes to come in the next commit (one C file for each POU)
mjsousa
parents: 906
diff changeset
  1251
    
c3edb882a4b2 code re-organisation. Preparing for the changes to come in the next commit (one C file for each POU)
mjsousa
parents: 906
diff changeset
  1252
      /* (A.3) Function parameters */
c3edb882a4b2 code re-organisation. Preparing for the changes to come in the next commit (one C file for each POU)
mjsousa
parents: 906
diff changeset
  1253
      s4o.indent_right();
c3edb882a4b2 code re-organisation. Preparing for the changes to come in the next commit (one C file for each POU)
mjsousa
parents: 906
diff changeset
  1254
      vardecl = new generate_c_vardecl_c(&s4o,
c3edb882a4b2 code re-organisation. Preparing for the changes to come in the next commit (one C file for each POU)
mjsousa
parents: 906
diff changeset
  1255
                                         generate_c_vardecl_c::finterface_vf,
c3edb882a4b2 code re-organisation. Preparing for the changes to come in the next commit (one C file for each POU)
mjsousa
parents: 906
diff changeset
  1256
                                         generate_c_vardecl_c::input_vt    |
c3edb882a4b2 code re-organisation. Preparing for the changes to come in the next commit (one C file for each POU)
mjsousa
parents: 906
diff changeset
  1257
                                         generate_c_vardecl_c::output_vt   |
c3edb882a4b2 code re-organisation. Preparing for the changes to come in the next commit (one C file for each POU)
mjsousa
parents: 906
diff changeset
  1258
                                         generate_c_vardecl_c::inoutput_vt |
c3edb882a4b2 code re-organisation. Preparing for the changes to come in the next commit (one C file for each POU)
mjsousa
parents: 906
diff changeset
  1259
                                         generate_c_vardecl_c::en_vt       |
c3edb882a4b2 code re-organisation. Preparing for the changes to come in the next commit (one C file for each POU)
mjsousa
parents: 906
diff changeset
  1260
                                         generate_c_vardecl_c::eno_vt);
c3edb882a4b2 code re-organisation. Preparing for the changes to come in the next commit (one C file for each POU)
mjsousa
parents: 906
diff changeset
  1261
      vardecl->print(symbol->var_declarations_list);
c3edb882a4b2 code re-organisation. Preparing for the changes to come in the next commit (one C file for each POU)
mjsousa
parents: 906
diff changeset
  1262
      delete vardecl;
c3edb882a4b2 code re-organisation. Preparing for the changes to come in the next commit (one C file for each POU)
mjsousa
parents: 906
diff changeset
  1263
      
c3edb882a4b2 code re-organisation. Preparing for the changes to come in the next commit (one C file for each POU)
mjsousa
parents: 906
diff changeset
  1264
      s4o.indent_left();
c3edb882a4b2 code re-organisation. Preparing for the changes to come in the next commit (one C file for each POU)
mjsousa
parents: 906
diff changeset
  1265
      
c3edb882a4b2 code re-organisation. Preparing for the changes to come in the next commit (one C file for each POU)
mjsousa
parents: 906
diff changeset
  1266
      s4o.print(")");
c3edb882a4b2 code re-organisation. Preparing for the changes to come in the next commit (one C file for each POU)
mjsousa
parents: 906
diff changeset
  1267
      
c3edb882a4b2 code re-organisation. Preparing for the changes to come in the next commit (one C file for each POU)
mjsousa
parents: 906
diff changeset
  1268
      /* If we only want the declaration/prototype, then return!! */
c3edb882a4b2 code re-organisation. Preparing for the changes to come in the next commit (one C file for each POU)
mjsousa
parents: 906
diff changeset
  1269
      if (print_declaration) 
c3edb882a4b2 code re-organisation. Preparing for the changes to come in the next commit (one C file for each POU)
mjsousa
parents: 906
diff changeset
  1270
        {s4o.print(";\n"); return;}
c3edb882a4b2 code re-organisation. Preparing for the changes to come in the next commit (one C file for each POU)
mjsousa
parents: 906
diff changeset
  1271
      
c3edb882a4b2 code re-organisation. Preparing for the changes to come in the next commit (one C file for each POU)
mjsousa
parents: 906
diff changeset
  1272
      /* continue generating the function definition/code... */
c3edb882a4b2 code re-organisation. Preparing for the changes to come in the next commit (one C file for each POU)
mjsousa
parents: 906
diff changeset
  1273
      s4o.print("\n" + s4o.indent_spaces + "{\n");
c3edb882a4b2 code re-organisation. Preparing for the changes to come in the next commit (one C file for each POU)
mjsousa
parents: 906
diff changeset
  1274
    
c3edb882a4b2 code re-organisation. Preparing for the changes to come in the next commit (one C file for each POU)
mjsousa
parents: 906
diff changeset
  1275
      /* (B) Function local variable declaration */
c3edb882a4b2 code re-organisation. Preparing for the changes to come in the next com