stage4/generate_c/generate_c.cc
author Mario de Sousa <msousa@fe.up.pt>
Fri, 20 Oct 2017 18:49:59 +0100
changeset 1064 1ac77681946f
parent 1062 814acf353c69
child 1072 2dc67df52e59
permissions -rw-r--r--
Abort compilation when finding R_EDGE or F_EDGE
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! */
965
c9eeb67ba939 Small code re-organization of how const values are stored in symbol_c (can now be accessed through member functions, instead of macros)
mjsousa
parents: 958
diff changeset
    56
#define VALID_CVALUE(dtype, symbol)           ((symbol)->const_value._##dtype.is_valid())
c9eeb67ba939 Small code re-organization of how const values are stored in symbol_c (can now be accessed through member functions, instead of macros)
mjsousa
parents: 958
diff changeset
    57
#define GET_CVALUE(dtype, symbol)             ((symbol)->const_value._##dtype.get()) 
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
933
76324f461aed Add support for de-referencing of REF_TO datatypes (Note: dereferencing of arrays and structs not yet supported!)
mjsousa
parents: 930
diff changeset
   141
#define GET_VAR_DREF "__GET_VAR_DREF"
76324f461aed Add support for de-referencing of REF_TO datatypes (Note: dereferencing of arrays and structs not yet supported!)
mjsousa
parents: 930
diff changeset
   142
#define GET_EXTERNAL_DREF "__GET_EXTERNAL_DREF"
76324f461aed Add support for de-referencing of REF_TO datatypes (Note: dereferencing of arrays and structs not yet supported!)
mjsousa
parents: 930
diff changeset
   143
#define GET_EXTERNAL_FB_DREF "__GET_EXTERNAL_FB_DREF"
76324f461aed Add support for de-referencing of REF_TO datatypes (Note: dereferencing of arrays and structs not yet supported!)
mjsousa
parents: 930
diff changeset
   144
#define GET_LOCATED_DREF "__GET_LOCATED_DREF"
76324f461aed Add support for de-referencing of REF_TO datatypes (Note: dereferencing of arrays and structs not yet supported!)
mjsousa
parents: 930
diff changeset
   145
217
f5dfadf5de54 Adding support for declare, init, get and set macros
laurent
parents: 210
diff changeset
   146
#define GET_VAR_BY_REF "__GET_VAR_BY_REF"
f5dfadf5de54 Adding support for declare, init, get and set macros
laurent
parents: 210
diff changeset
   147
#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
   148
#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
   149
#define GET_LOCATED_BY_REF "__GET_LOCATED_BY_REF"
f5dfadf5de54 Adding support for declare, init, get and set macros
laurent
parents: 210
diff changeset
   150
f5dfadf5de54 Adding support for declare, init, get and set macros
laurent
parents: 210
diff changeset
   151
/* Variable setter symbol for accessor macros */
f5dfadf5de54 Adding support for declare, init, get and set macros
laurent
parents: 210
diff changeset
   152
#define SET_VAR "__SET_VAR"
f5dfadf5de54 Adding support for declare, init, get and set macros
laurent
parents: 210
diff changeset
   153
#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
   154
#define SET_EXTERNAL_FB "__SET_EXTERNAL_FB"
217
f5dfadf5de54 Adding support for declare, init, get and set macros
laurent
parents: 210
diff changeset
   155
#define SET_LOCATED "__SET_LOCATED"
f5dfadf5de54 Adding support for declare, init, get and set macros
laurent
parents: 210
diff changeset
   156
396
155560bfe837 Fixing bug with external variables refering to global variables defined in configurations
laurent
parents: 392
diff changeset
   157
/* 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
   158
#define INITIAL_VALUE "__INITIAL_VALUE"
70
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
   159
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
   160
/* Generate a name for a temporary variable.
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
   161
 * Each new name generated is appended a different number,
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
   162
 * starting off from 0.
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
   163
 * After calling reset(), the names will start off again from 0.
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
   164
 */
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
   165
#define VAR_LEADER "__"
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
   166
#define TEMP_VAR VAR_LEADER "TMP_"
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
   167
#define SOURCE_VAR VAR_LEADER "SRC_"
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
   168
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
   169
/* 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
   170
#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
   171
214d3fdee596 fixing C code generation of return_statement_c and exit_statement_c
Mario de Sousa <msousa@fe.up.pt>
parents: 279
diff changeset
   172
217
f5dfadf5de54 Adding support for declare, init, get and set macros
laurent
parents: 210
diff changeset
   173
/***********************************************************************/
f5dfadf5de54 Adding support for declare, init, get and set macros
laurent
parents: 210
diff changeset
   174
/***********************************************************************/
f5dfadf5de54 Adding support for declare, init, get and set macros
laurent
parents: 210
diff changeset
   175
/***********************************************************************/
f5dfadf5de54 Adding support for declare, init, get and set macros
laurent
parents: 210
diff changeset
   176
/***********************************************************************/
f5dfadf5de54 Adding support for declare, init, get and set macros
laurent
parents: 210
diff changeset
   177
882
18a39a545ed9 Disable stage4 options with on windows since getsuboptr isn't supported in mingw
Edouard Tisserant
parents: 878
diff changeset
   178
18a39a545ed9 Disable stage4 options with on windows since getsuboptr isn't supported in mingw
Edouard Tisserant
parents: 878
diff changeset
   179
static int generate_line_directives__ = 0;
908
9e8e1ba5ca46 Add option to place each POU in a distinct .c and .h file pair.
mjsousa
parents: 907
diff changeset
   180
static int generate_pou_filepairs__   = 0;
1060
01c48180af05 make generating backup/restore functions a command line option (off by default).
Mario de Sousa <msousa@fe.up.pt>
parents: 1059
diff changeset
   181
static int generate_plc_state_backup_fuctions__ = 0;
882
18a39a545ed9 Disable stage4 options with on windows since getsuboptr isn't supported in mingw
Edouard Tisserant
parents: 878
diff changeset
   182
18a39a545ed9 Disable stage4 options with on windows since getsuboptr isn't supported in mingw
Edouard Tisserant
parents: 878
diff changeset
   183
#ifdef __unix__
878
89eb85bab58f Make generation of #line directives optional.
mjsousa
parents: 873
diff changeset
   184
/* Parse command line options passed from main.c !! */
1060
01c48180af05 make generating backup/restore functions a command line option (off by default).
Mario de Sousa <msousa@fe.up.pt>
parents: 1059
diff changeset
   185
#include <stdlib.h> // for getsubopt()
878
89eb85bab58f Make generation of #line directives optional.
mjsousa
parents: 873
diff changeset
   186
int  stage4_parse_options(char *options) {
1060
01c48180af05 make generating backup/restore functions a command line option (off by default).
Mario de Sousa <msousa@fe.up.pt>
parents: 1059
diff changeset
   187
  enum {LINE_OPT = 0,  
01c48180af05 make generating backup/restore functions a command line option (off by default).
Mario de Sousa <msousa@fe.up.pt>
parents: 1059
diff changeset
   188
        SEPTFILE_OPT,
01c48180af05 make generating backup/restore functions a command line option (off by default).
Mario de Sousa <msousa@fe.up.pt>
parents: 1059
diff changeset
   189
        BACKUP_OPT    /* option to generate function to backup and restore internal PLC state */
01c48180af05 make generating backup/restore functions a command line option (off by default).
Mario de Sousa <msousa@fe.up.pt>
parents: 1059
diff changeset
   190
        /*, SOME_OTHER_OPT, YET_ANOTHER_OPT */};
01c48180af05 make generating backup/restore functions a command line option (off by default).
Mario de Sousa <msousa@fe.up.pt>
parents: 1059
diff changeset
   191
  char *const token[] = {
01c48180af05 make generating backup/restore functions a command line option (off by default).
Mario de Sousa <msousa@fe.up.pt>
parents: 1059
diff changeset
   192
        /*       LINE_OPT*/(char *)"l",
01c48180af05 make generating backup/restore functions a command line option (off by default).
Mario de Sousa <msousa@fe.up.pt>
parents: 1059
diff changeset
   193
        /*   SEPTFILE_OPT*/(char *)"p",
01c48180af05 make generating backup/restore functions a command line option (off by default).
Mario de Sousa <msousa@fe.up.pt>
parents: 1059
diff changeset
   194
        /*     BACKUP_OPT*/(char *)"b",
01c48180af05 make generating backup/restore functions a command line option (off by default).
Mario de Sousa <msousa@fe.up.pt>
parents: 1059
diff changeset
   195
        /* SOME_OTHER_OPT, ...             */
01c48180af05 make generating backup/restore functions a command line option (off by default).
Mario de Sousa <msousa@fe.up.pt>
parents: 1059
diff changeset
   196
        NULL };
878
89eb85bab58f Make generation of #line directives optional.
mjsousa
parents: 873
diff changeset
   197
  /* 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
   198
  
89eb85bab58f Make generation of #line directives optional.
mjsousa
parents: 873
diff changeset
   199
  char *subopts = options;
89eb85bab58f Make generation of #line directives optional.
mjsousa
parents: 873
diff changeset
   200
  char *value;
89eb85bab58f Make generation of #line directives optional.
mjsousa
parents: 873
diff changeset
   201
  int opt;
89eb85bab58f Make generation of #line directives optional.
mjsousa
parents: 873
diff changeset
   202
89eb85bab58f Make generation of #line directives optional.
mjsousa
parents: 873
diff changeset
   203
  while (*subopts != '\0') {
89eb85bab58f Make generation of #line directives optional.
mjsousa
parents: 873
diff changeset
   204
    switch (getsubopt(&subopts, token, &value)) {
1060
01c48180af05 make generating backup/restore functions a command line option (off by default).
Mario de Sousa <msousa@fe.up.pt>
parents: 1059
diff changeset
   205
      case     LINE_OPT: generate_line_directives__            = 1; break;
01c48180af05 make generating backup/restore functions a command line option (off by default).
Mario de Sousa <msousa@fe.up.pt>
parents: 1059
diff changeset
   206
      case SEPTFILE_OPT: generate_pou_filepairs__              = 1; break;
01c48180af05 make generating backup/restore functions a command line option (off by default).
Mario de Sousa <msousa@fe.up.pt>
parents: 1059
diff changeset
   207
      case   BACKUP_OPT: generate_plc_state_backup_fuctions__  = 1; break;
908
9e8e1ba5ca46 Add option to place each POU in a distinct .c and .h file pair.
mjsousa
parents: 907
diff changeset
   208
      default          : fprintf(stderr, "Unrecognized option: -O %s\n", value); return -1; break;
878
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
  return 0;
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
89eb85bab58f Make generation of #line directives optional.
mjsousa
parents: 873
diff changeset
   214
89eb85bab58f Make generation of #line directives optional.
mjsousa
parents: 873
diff changeset
   215
void stage4_print_options(void) {
89eb85bab58f Make generation of #line directives optional.
mjsousa
parents: 873
diff changeset
   216
  printf("          (options must be separated by commas. Example: 'l,w,x')\n"); 
89eb85bab58f Make generation of #line directives optional.
mjsousa
parents: 873
diff changeset
   217
  printf("      l : insert '#line' directives in generated C code.\n"); 
908
9e8e1ba5ca46 Add option to place each POU in a distinct .c and .h file pair.
mjsousa
parents: 907
diff changeset
   218
  printf("      p : place each POU in a separate pair of files (<pou_name>.c, <pou_name>.h).\n"); 
1060
01c48180af05 make generating backup/restore functions a command line option (off by default).
Mario de Sousa <msousa@fe.up.pt>
parents: 1059
diff changeset
   219
  printf("      b : generate functions to backup and restore internal PLC state.\n"); 
878
89eb85bab58f Make generation of #line directives optional.
mjsousa
parents: 873
diff changeset
   220
}
882
18a39a545ed9 Disable stage4 options with on windows since getsuboptr isn't supported in mingw
Edouard Tisserant
parents: 878
diff changeset
   221
#else /* not __unix__ */
18a39a545ed9 Disable stage4 options with on windows since getsuboptr isn't supported in mingw
Edouard Tisserant
parents: 878
diff changeset
   222
/* 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
   223
 *  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
   224
void stage4_print_options(void) {}
1061
f762b43c8fad fix initialization of variable (was not following ISO C++ rules)
Mario de Sousa <msousa@fe.up.pt>
parents: 1060
diff changeset
   225
int  stage4_parse_options(char *options) {return 0;}
882
18a39a545ed9 Disable stage4 options with on windows since getsuboptr isn't supported in mingw
Edouard Tisserant
parents: 878
diff changeset
   226
#endif 
878
89eb85bab58f Make generation of #line directives optional.
mjsousa
parents: 873
diff changeset
   227
89eb85bab58f Make generation of #line directives optional.
mjsousa
parents: 873
diff changeset
   228
/***********************************************************************/
89eb85bab58f Make generation of #line directives optional.
mjsousa
parents: 873
diff changeset
   229
/***********************************************************************/
89eb85bab58f Make generation of #line directives optional.
mjsousa
parents: 873
diff changeset
   230
/***********************************************************************/
89eb85bab58f Make generation of #line directives optional.
mjsousa
parents: 873
diff changeset
   231
/***********************************************************************/
89eb85bab58f Make generation of #line directives optional.
mjsousa
parents: 873
diff changeset
   232
217
f5dfadf5de54 Adding support for declare, init, get and set macros
laurent
parents: 210
diff changeset
   233
#include "generate_c_base.cc"
f5dfadf5de54 Adding support for declare, init, get and set macros
laurent
parents: 210
diff changeset
   234
#include "generate_c_typedecl.cc"
f5dfadf5de54 Adding support for declare, init, get and set macros
laurent
parents: 210
diff changeset
   235
#include "generate_c_sfcdecl.cc"
f5dfadf5de54 Adding support for declare, init, get and set macros
laurent
parents: 210
diff changeset
   236
#include "generate_c_vardecl.cc"
f5dfadf5de54 Adding support for declare, init, get and set macros
laurent
parents: 210
diff changeset
   237
#include "generate_c_configbody.cc"
f5dfadf5de54 Adding support for declare, init, get and set macros
laurent
parents: 210
diff changeset
   238
#include "generate_location_list.cc"
f5dfadf5de54 Adding support for declare, init, get and set macros
laurent
parents: 210
diff changeset
   239
#include "generate_var_list.cc"
f5dfadf5de54 Adding support for declare, init, get and set macros
laurent
parents: 210
diff changeset
   240
f5dfadf5de54 Adding support for declare, init, get and set macros
laurent
parents: 210
diff changeset
   241
/***********************************************************************/
f5dfadf5de54 Adding support for declare, init, get and set macros
laurent
parents: 210
diff changeset
   242
/***********************************************************************/
f5dfadf5de54 Adding support for declare, init, get and set macros
laurent
parents: 210
diff changeset
   243
/***********************************************************************/
f5dfadf5de54 Adding support for declare, init, get and set macros
laurent
parents: 210
diff changeset
   244
/***********************************************************************/
f5dfadf5de54 Adding support for declare, init, get and set macros
laurent
parents: 210
diff changeset
   245
350
2c3c4dc34979 Support for semantic verification of calls to standard functions.
Mario de Sousa <msousa@fe.up.pt>
parents: 330
diff changeset
   246
2c3c4dc34979 Support for semantic verification of calls to standard functions.
Mario de Sousa <msousa@fe.up.pt>
parents: 330
diff changeset
   247
#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
   248
2c3c4dc34979 Support for semantic verification of calls to standard functions.
Mario de Sousa <msousa@fe.up.pt>
parents: 330
diff changeset
   249
2c3c4dc34979 Support for semantic verification of calls to standard functions.
Mario de Sousa <msousa@fe.up.pt>
parents: 330
diff changeset
   250
/***********************************************************************/
2c3c4dc34979 Support for semantic verification of calls to standard functions.
Mario de Sousa <msousa@fe.up.pt>
parents: 330
diff changeset
   251
/***********************************************************************/
2c3c4dc34979 Support for semantic verification of calls to standard functions.
Mario de Sousa <msousa@fe.up.pt>
parents: 330
diff changeset
   252
/***********************************************************************/
2c3c4dc34979 Support for semantic verification of calls to standard functions.
Mario de Sousa <msousa@fe.up.pt>
parents: 330
diff changeset
   253
/***********************************************************************/
2c3c4dc34979 Support for semantic verification of calls to standard functions.
Mario de Sousa <msousa@fe.up.pt>
parents: 330
diff changeset
   254
2c3c4dc34979 Support for semantic verification of calls to standard functions.
Mario de Sousa <msousa@fe.up.pt>
parents: 330
diff changeset
   255
/* 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
   256
/* 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
   257
 * 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
   258
 * 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
   259
 *   for e.g.; 
2c3c4dc34979 Support for semantic verification of calls to standard functions.
Mario de Sousa <msousa@fe.up.pt>
parents: 330
diff changeset
   260
 *     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
   261
 *     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
   262
 *     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
   263
 */
945
477393b00f95 Add support for relaxed datatype model for array datatypes.
mjsousa
parents: 933
diff changeset
   264
class print_function_parameter_data_types_c: public generate_c_base_and_typeid_c {
350
2c3c4dc34979 Support for semantic verification of calls to standard functions.
Mario de Sousa <msousa@fe.up.pt>
parents: 330
diff changeset
   265
  private:
2c3c4dc34979 Support for semantic verification of calls to standard functions.
Mario de Sousa <msousa@fe.up.pt>
parents: 330
diff changeset
   266
    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
   267
    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
   268
2c3c4dc34979 Support for semantic verification of calls to standard functions.
Mario de Sousa <msousa@fe.up.pt>
parents: 330
diff changeset
   269
    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
   270
      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
   271
        /* 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
   272
        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
   273
        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
   274
        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
   275
          s4o.print("__");
2c3c4dc34979 Support for semantic verification of calls to standard functions.
Mario de Sousa <msousa@fe.up.pt>
parents: 330
diff changeset
   276
          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
   277
        }  
2c3c4dc34979 Support for semantic verification of calls to standard functions.
Mario de Sousa <msousa@fe.up.pt>
parents: 330
diff changeset
   278
      }
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
  public:
2c3c4dc34979 Support for semantic verification of calls to standard functions.
Mario de Sousa <msousa@fe.up.pt>
parents: 330
diff changeset
   282
    print_function_parameter_data_types_c(stage4out_c *s4o_ptr): 
945
477393b00f95 Add support for relaxed datatype model for array datatypes.
mjsousa
parents: 933
diff changeset
   283
      generate_c_base_and_typeid_c(s4o_ptr)
350
2c3c4dc34979 Support for semantic verification of calls to standard functions.
Mario de Sousa <msousa@fe.up.pt>
parents: 330
diff changeset
   284
      {current_type = NULL;}
2c3c4dc34979 Support for semantic verification of calls to standard functions.
Mario de Sousa <msousa@fe.up.pt>
parents: 330
diff changeset
   285
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
    /* 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
   288
    /**************************************/
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
    /* 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
   291
    /***********************/
2c3c4dc34979 Support for semantic verification of calls to standard functions.
Mario de Sousa <msousa@fe.up.pt>
parents: 330
diff changeset
   292
    /*   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
   293
    /* | 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
   294
    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
   295
      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
   296
      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
   297
      return NULL;
2c3c4dc34979 Support for semantic verification of calls to standard functions.
Mario de Sousa <msousa@fe.up.pt>
parents: 330
diff changeset
   298
    }
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(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
   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(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
   305
        
2c3c4dc34979 Support for semantic verification of calls to standard functions.
Mario de Sousa <msousa@fe.up.pt>
parents: 330
diff changeset
   306
    /* 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
   307
    //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
   308
2c3c4dc34979 Support for semantic verification of calls to standard functions.
Mario de Sousa <msousa@fe.up.pt>
parents: 330
diff changeset
   309
    void *visit(edge_declaration_c *symbol) {
1064
1ac77681946f Abort compilation when finding R_EDGE or F_EDGE
Mario de Sousa <msousa@fe.up.pt>
parents: 1062
diff changeset
   310
      {STAGE4_ERROR(symbol, symbol, "R_EDGE and F_EDGE declarations are not currently supported"); ERROR;}
1ac77681946f Abort compilation when finding R_EDGE or F_EDGE
Mario de Sousa <msousa@fe.up.pt>
parents: 1062
diff changeset
   311
      /* 
350
2c3c4dc34979 Support for semantic verification of calls to standard functions.
Mario de Sousa <msousa@fe.up.pt>
parents: 330
diff changeset
   312
      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
   313
      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
   314
      current_type = NULL; 
1064
1ac77681946f Abort compilation when finding R_EDGE or F_EDGE
Mario de Sousa <msousa@fe.up.pt>
parents: 1062
diff changeset
   315
      */
350
2c3c4dc34979 Support for semantic verification of calls to standard functions.
Mario de Sousa <msousa@fe.up.pt>
parents: 330
diff changeset
   316
      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
    
2c3c4dc34979 Support for semantic verification of calls to standard functions.
Mario de Sousa <msousa@fe.up.pt>
parents: 330
diff changeset
   319
    /* 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
   320
    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
   321
2c3c4dc34979 Support for semantic verification of calls to standard functions.
Mario de Sousa <msousa@fe.up.pt>
parents: 330
diff changeset
   322
    /* 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
   323
    //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
   324
    
2c3c4dc34979 Support for semantic verification of calls to standard functions.
Mario de Sousa <msousa@fe.up.pt>
parents: 330
diff changeset
   325
    /* 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
   326
    //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
   327
2c3c4dc34979 Support for semantic verification of calls to standard functions.
Mario de Sousa <msousa@fe.up.pt>
parents: 330
diff changeset
   328
    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
   329
      /* 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
   330
      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
   331
    }
2c3c4dc34979 Support for semantic verification of calls to standard functions.
Mario de Sousa <msousa@fe.up.pt>
parents: 330
diff changeset
   332
2c3c4dc34979 Support for semantic verification of calls to standard functions.
Mario de Sousa <msousa@fe.up.pt>
parents: 330
diff changeset
   333
    /* 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
   334
    /* 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
   335
    /* 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
   336
     * 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
   337
     */
2c3c4dc34979 Support for semantic verification of calls to standard functions.
Mario de Sousa <msousa@fe.up.pt>
parents: 330
diff changeset
   338
    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
   339
2c3c4dc34979 Support for semantic verification of calls to standard functions.
Mario de Sousa <msousa@fe.up.pt>
parents: 330
diff changeset
   340
    /* 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
   341
    /* 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
   342
    /* 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
   343
     * 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
   344
     */
2c3c4dc34979 Support for semantic verification of calls to standard functions.
Mario de Sousa <msousa@fe.up.pt>
parents: 330
diff changeset
   345
    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
   346
2c3c4dc34979 Support for semantic verification of calls to standard functions.
Mario de Sousa <msousa@fe.up.pt>
parents: 330
diff changeset
   347
    /* 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
   348
    /* 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
   349
    /* 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
   350
     * 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
   351
     */
2c3c4dc34979 Support for semantic verification of calls to standard functions.
Mario de Sousa <msousa@fe.up.pt>
parents: 330
diff changeset
   352
    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
   353
2c3c4dc34979 Support for semantic verification of calls to standard functions.
Mario de Sousa <msousa@fe.up.pt>
parents: 330
diff changeset
   354
    /* 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
   355
    /* 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
   356
    /* 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
   357
     * 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
   358
     */
2c3c4dc34979 Support for semantic verification of calls to standard functions.
Mario de Sousa <msousa@fe.up.pt>
parents: 330
diff changeset
   359
    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
   360
2c3c4dc34979 Support for semantic verification of calls to standard functions.
Mario de Sousa <msousa@fe.up.pt>
parents: 330
diff changeset
   361
    /* 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
   362
    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
   363
2c3c4dc34979 Support for semantic verification of calls to standard functions.
Mario de Sousa <msousa@fe.up.pt>
parents: 330
diff changeset
   364
    /* 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
   365
    //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
   366
2c3c4dc34979 Support for semantic verification of calls to standard functions.
Mario de Sousa <msousa@fe.up.pt>
parents: 330
diff changeset
   367
    /* 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
   368
    //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
   369
2c3c4dc34979 Support for semantic verification of calls to standard functions.
Mario de Sousa <msousa@fe.up.pt>
parents: 330
diff changeset
   370
    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
   371
      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
   372
      return NULL;
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
2c3c4dc34979 Support for semantic verification of calls to standard functions.
Mario de Sousa <msousa@fe.up.pt>
parents: 330
diff changeset
   375
    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
   376
      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
   377
      return NULL;
2c3c4dc34979 Support for semantic verification of calls to standard functions.
Mario de Sousa <msousa@fe.up.pt>
parents: 330
diff changeset
   378
    }
2c3c4dc34979 Support for semantic verification of calls to standard functions.
Mario de Sousa <msousa@fe.up.pt>
parents: 330
diff changeset
   379
2c3c4dc34979 Support for semantic verification of calls to standard functions.
Mario de Sousa <msousa@fe.up.pt>
parents: 330
diff changeset
   380
    /* 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
   381
    /* 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
   382
    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
   383
2c3c4dc34979 Support for semantic verification of calls to standard functions.
Mario de Sousa <msousa@fe.up.pt>
parents: 330
diff changeset
   384
    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
   385
      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
   386
      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
   387
      current_type = NULL; 
2c3c4dc34979 Support for semantic verification of calls to standard functions.
Mario de Sousa <msousa@fe.up.pt>
parents: 330
diff changeset
   388
      return NULL;
2c3c4dc34979 Support for semantic verification of calls to standard functions.
Mario de Sousa <msousa@fe.up.pt>
parents: 330
diff changeset
   389
    }
2c3c4dc34979 Support for semantic verification of calls to standard functions.
Mario de Sousa <msousa@fe.up.pt>
parents: 330
diff changeset
   390
2c3c4dc34979 Support for semantic verification of calls to standard functions.
Mario de Sousa <msousa@fe.up.pt>
parents: 330
diff changeset
   391
    /* 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
   392
    /* 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
   393
    /* 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
   394
     *   STRING [ 42 ]
2c3c4dc34979 Support for semantic verification of calls to standard functions.
Mario de Sousa <msousa@fe.up.pt>
parents: 330
diff changeset
   395
     */
2c3c4dc34979 Support for semantic verification of calls to standard functions.
Mario de Sousa <msousa@fe.up.pt>
parents: 330
diff changeset
   396
    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
   397
2c3c4dc34979 Support for semantic verification of calls to standard functions.
Mario de Sousa <msousa@fe.up.pt>
parents: 330
diff changeset
   398
    /* 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
   399
    /* 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
   400
    /* 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
   401
     *   WSTRING [ 42 ]
2c3c4dc34979 Support for semantic verification of calls to standard functions.
Mario de Sousa <msousa@fe.up.pt>
parents: 330
diff changeset
   402
     */
2c3c4dc34979 Support for semantic verification of calls to standard functions.
Mario de Sousa <msousa@fe.up.pt>
parents: 330
diff changeset
   403
    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
   404
};
2c3c4dc34979 Support for semantic verification of calls to standard functions.
Mario de Sousa <msousa@fe.up.pt>
parents: 330
diff changeset
   405
    
2c3c4dc34979 Support for semantic verification of calls to standard functions.
Mario de Sousa <msousa@fe.up.pt>
parents: 330
diff changeset
   406
2c3c4dc34979 Support for semantic verification of calls to standard functions.
Mario de Sousa <msousa@fe.up.pt>
parents: 330
diff changeset
   407
/***********************************************************************/
2c3c4dc34979 Support for semantic verification of calls to standard functions.
Mario de Sousa <msousa@fe.up.pt>
parents: 330
diff changeset
   408
/***********************************************************************/
2c3c4dc34979 Support for semantic verification of calls to standard functions.
Mario de Sousa <msousa@fe.up.pt>
parents: 330
diff changeset
   409
/***********************************************************************/
2c3c4dc34979 Support for semantic verification of calls to standard functions.
Mario de Sousa <msousa@fe.up.pt>
parents: 330
diff changeset
   410
/***********************************************************************/
2c3c4dc34979 Support for semantic verification of calls to standard functions.
Mario de Sousa <msousa@fe.up.pt>
parents: 330
diff changeset
   411
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
   412
/* 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
   413
/* '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
   414
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
   415
  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
   416
    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
   417
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
   418
  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
   419
    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
   420
    
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
   421
    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
   422
      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
   423
      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
   424
      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
   425
              || 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
   426
             );
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
   427
    }
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
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
   429
    
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
   430
  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
   431
    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
   432
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
   433
  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
   434
    /* 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
   435
    /* 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
   436
     *      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
   437
     *      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
   438
     *      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
   439
     */
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
    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
   441
      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
   442
      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
   443
      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
   444
      
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
      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
   446
      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
   447
      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
   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
    
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
   450
    /* 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
   451
    /* 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
   452
     *      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
   453
     *      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
   454
     *      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
   455
     */
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
   456
    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
   457
      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
   458
      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
   459
      
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
      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
   461
      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
   462
    }
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
   463
    
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
   464
    
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
   465
    /* 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
   466
    /* 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
   467
     *      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
   468
     *      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
   469
     *      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
   470
     */
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
    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
   472
      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
   473
      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
   474
      
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
   475
      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
   476
      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
   477
        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
   478
        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
   479
      }
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
   480
      
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
   481
      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
   482
      
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
   483
      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
   484
    }
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
   485
    
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
   486
    
853
818c4ac5d64d Fix bug-fix of previous commit.
Mario de Sousa <msousa@fe.up.pt>
parents: 852
diff changeset
   487
    /*********************/
818c4ac5d64d Fix bug-fix of previous commit.
Mario de Sousa <msousa@fe.up.pt>
parents: 852
diff changeset
   488
    /* B 1.4 - Variables */
818c4ac5d64d Fix bug-fix of previous commit.
Mario de Sousa <msousa@fe.up.pt>
parents: 852
diff changeset
   489
    /*********************/
818c4ac5d64d Fix bug-fix of previous commit.
Mario de Sousa <msousa@fe.up.pt>
parents: 852
diff changeset
   490
    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
   491
      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
   492
      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
   493
         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
   494
         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
   495
      }
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
   496
      last_fb = symbol;
853
818c4ac5d64d Fix bug-fix of previous commit.
Mario de Sousa <msousa@fe.up.pt>
parents: 852
diff changeset
   497
      return NULL;
818c4ac5d64d Fix bug-fix of previous commit.
Mario de Sousa <msousa@fe.up.pt>
parents: 852
diff changeset
   498
    }
818c4ac5d64d Fix bug-fix of previous commit.
Mario de Sousa <msousa@fe.up.pt>
parents: 852
diff changeset
   499
    
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
   500
    /*************************************/
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
   501
    /* 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
   502
    /*************************************/
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
   503
    
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
   504
    // 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
   505
    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
   506
      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
   507
      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
   508
      
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
   509
      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
   510
      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
   511
         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
   512
         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
   513
      }
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
   514
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
   515
      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
   516
      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
   517
    }
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
   518
    
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
   519
    /*  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
   520
    //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
   521
    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
   522
      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
   523
      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
   524
      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
   525
    }
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
   526
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
   527
    
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
   528
};
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
   529
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
   530
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
   531
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
   532
/***********************************************************************/
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
   533
/***********************************************************************/
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
   534
/***********************************************************************/
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
   535
/***********************************************************************/
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
   536
350
2c3c4dc34979 Support for semantic verification of calls to standard functions.
Mario de Sousa <msousa@fe.up.pt>
parents: 330
diff changeset
   537
70
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
   538
#include "generate_c_st.cc"
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
   539
#include "generate_c_il.cc"
217
f5dfadf5de54 Adding support for declare, init, get and set macros
laurent
parents: 210
diff changeset
   540
#include "generate_c_inlinefcall.cc"
70
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
   541
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
   542
/***********************************************************************/
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
   543
/***********************************************************************/
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
   544
/***********************************************************************/
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
   545
/***********************************************************************/
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
   546
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
   547
#define MILLISECOND 1000000
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
   548
#define SECOND 1000 * MILLISECOND
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
   549
594
c8092e909886 Clean up code (remove parsing of integers in stage 4).
Mario de Sousa <msousa@fe.up.pt>
parents: 592
diff changeset
   550
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
   551
  if (NULL == symbol) return 0;
70
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
   552
  
594
c8092e909886 Clean up code (remove parsing of integers in stage 4).
Mario de Sousa <msousa@fe.up.pt>
parents: 592
diff changeset
   553
  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
   554
  duration_c *duration = dynamic_cast<duration_c *>(symbol);
70
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
   555
  
632
76c3d707ffa1 Adding error message when task interval value is not supported
Laurent Bessard
parents: 631
diff changeset
   556
  if ((NULL == interval) && (NULL == duration))
631
1a4f5ce62962 Adding error message when task interval value is not supported
Laurent Bessard
parents: 625
diff changeset
   557
  	  {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
   558
c8092e909886 Clean up code (remove parsing of integers in stage 4).
Mario de Sousa <msousa@fe.up.pt>
parents: 592
diff changeset
   559
  if (NULL != duration) {
70
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
   560
    /* 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
   561
    if (duration->neg != NULL)
631
1a4f5ce62962 Adding error message when task interval value is not supported
Laurent Bessard
parents: 625
diff changeset
   562
      {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
   563
    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
   564
  }
c8092e909886 Clean up code (remove parsing of integers in stage 4).
Mario de Sousa <msousa@fe.up.pt>
parents: 592
diff changeset
   565
c8092e909886 Clean up code (remove parsing of integers in stage 4).
Mario de Sousa <msousa@fe.up.pt>
parents: 592
diff changeset
   566
  if (NULL != interval) {
547
dab341e80664 Fix parsing os TIME literals & rename the extract_integer() function.
mjsousa <msousa@fe.up.pt>
parents: 522
diff changeset
   567
    /* 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
   568
      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
   569
      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
   570
      /*
c8092e909886 Clean up code (remove parsing of integers in stage 4).
Mario de Sousa <msousa@fe.up.pt>
parents: 592
diff changeset
   571
      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
   572
      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
   573
      */
c8092e909886 Clean up code (remove parsing of integers in stage 4).
Mario de Sousa <msousa@fe.up.pt>
parents: 592
diff changeset
   574
      
c8092e909886 Clean up code (remove parsing of integers in stage 4).
Mario de Sousa <msousa@fe.up.pt>
parents: 592
diff changeset
   575
      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
   576
        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
   577
        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
   578
        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
   579
        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
   580
        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
   581
      }
547
dab341e80664 Fix parsing os TIME literals & rename the extract_integer() function.
mjsousa <msousa@fe.up.pt>
parents: 522
diff changeset
   582
   
594
c8092e909886 Clean up code (remove parsing of integers in stage 4).
Mario de Sousa <msousa@fe.up.pt>
parents: 592
diff changeset
   583
      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
   584
        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
   585
        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
   586
        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
   587
        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
   588
        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
   589
      }
c8092e909886 Clean up code (remove parsing of integers in stage 4).
Mario de Sousa <msousa@fe.up.pt>
parents: 592
diff changeset
   590
c8092e909886 Clean up code (remove parsing of integers in stage 4).
Mario de Sousa <msousa@fe.up.pt>
parents: 592
diff changeset
   591
      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
   592
        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
   593
        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
   594
        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
   595
        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
   596
        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
   597
      }
c8092e909886 Clean up code (remove parsing of integers in stage 4).
Mario de Sousa <msousa@fe.up.pt>
parents: 592
diff changeset
   598
c8092e909886 Clean up code (remove parsing of integers in stage 4).
Mario de Sousa <msousa@fe.up.pt>
parents: 592
diff changeset
   599
      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
   600
        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
   601
        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
   602
        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
   603
        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
   604
        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
   605
      }
c8092e909886 Clean up code (remove parsing of integers in stage 4).
Mario de Sousa <msousa@fe.up.pt>
parents: 592
diff changeset
   606
c8092e909886 Clean up code (remove parsing of integers in stage 4).
Mario de Sousa <msousa@fe.up.pt>
parents: 592
diff changeset
   607
      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
   608
        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
   609
        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
   610
        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
   611
        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
   612
        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
   613
      }
c8092e909886 Clean up code (remove parsing of integers in stage 4).
Mario de Sousa <msousa@fe.up.pt>
parents: 592
diff changeset
   614
c8092e909886 Clean up code (remove parsing of integers in stage 4).
Mario de Sousa <msousa@fe.up.pt>
parents: 592
diff changeset
   615
      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
   616
      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
   617
  };
c8092e909886 Clean up code (remove parsing of integers in stage 4).
Mario de Sousa <msousa@fe.up.pt>
parents: 592
diff changeset
   618
  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
   619
  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
   620
}
70
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
   621
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
   622
/***********************************************************************/
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
   623
/***********************************************************************/
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
   624
/***********************************************************************/
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
   625
/***********************************************************************/
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
   626
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
   627
class calculate_common_ticktime_c: public iterator_visitor_c {
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
   628
  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
   629
    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
   630
    unsigned long long least_common_ticktime;
70
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
   631
    
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
   632
  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
   633
    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
   634
      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
   635
      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
   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
    
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
   638
    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
   639
      unsigned long long c = a % b;
70
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
   640
      if (c == 0)
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
   641
        return b;
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
   642
      else
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
   643
        return euclide(b, c);
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
   644
    }
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
   645
    
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
    void update_ticktime(unsigned long long time) {
70
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
   647
      if (common_ticktime == 0)
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
   648
        common_ticktime = time;
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
   649
      else if (time > common_ticktime)
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
   650
        common_ticktime = euclide(time, common_ticktime);
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
   651
      else
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
   652
        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
   653
      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
   654
        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
   655
      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
   656
        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
   657
    }
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
   658
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
   659
    unsigned long long get_common_ticktime(void) {
70
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
   660
      return common_ticktime;
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
   661
    }
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
   662
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
   663
    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
   664
      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
   665
      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
   666
        ERROR;
237
cece842c7417 Adding support for using arrays in POU interface
laurent
parents: 234
diff changeset
   667
      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
   668
    }
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
   669
70
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
   670
/*  TASK task_name task_initialization */
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
   671
//SYM_REF2(task_configuration_c, task_name, task_initialization)  
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
   672
    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
   673
      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
   674
    	  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
   675
    	  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
   676
    	  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
   677
      }
70
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
   678
      return NULL;
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
   679
    }
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
   680
};    
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
   681
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
   682
/***********************************************************************/
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
   683
/***********************************************************************/
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
   684
/***********************************************************************/
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
   685
/***********************************************************************/
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
   686
217
f5dfadf5de54 Adding support for declare, init, get and set macros
laurent
parents: 210
diff changeset
   687
/* 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
   688
class generate_c_SFC_IL_ST_c: public null_visitor_c {
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
   689
  private:
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
   690
    stage4out_c *s4o_ptr;
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
   691
    symbol_c *scope;
217
f5dfadf5de54 Adding support for declare, init, get and set macros
laurent
parents: 210
diff changeset
   692
    symbol_c *fbname;
70
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
   693
    const char *variable_prefix;
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
   694
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
   695
  public:
217
f5dfadf5de54 Adding support for declare, init, get and set macros
laurent
parents: 210
diff changeset
   696
    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
   697
    
0a1204bcc9af starting to add proper header file with declaration of standard functions
Mario de Sousa <msousa@fe.up.pt>
parents: 262
diff changeset
   698
    /********************/
0a1204bcc9af starting to add proper header file with declaration of standard functions
Mario de Sousa <msousa@fe.up.pt>
parents: 262
diff changeset
   699
    /* 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
   700
    /********************/
0a1204bcc9af starting to add proper header file with declaration of standard functions
Mario de Sousa <msousa@fe.up.pt>
parents: 262
diff changeset
   701
    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
   702
    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
   703
    
70
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
   704
    /*********************************************/
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
   705
    /* B.1.6  Sequential function chart elements */
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
   706
    /*********************************************/
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
   707
    /*| sequential_function_chart sfc_network*/
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
   708
    void *visit(sequential_function_chart_c * symbol);
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
   709
    
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
   710
    /****************************************/
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
   711
    /* B.2 - Language IL (Instruction List) */
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
   712
    /****************************************/
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
   713
    
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
   714
    /***********************************/
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
   715
    /* B 2.1 Instructions and Operands */
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
   716
    /***********************************/
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
   717
    /*| instruction_list il_instruction */
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
   718
    void *visit(instruction_list_c *symbol);
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
   719
    
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
   720
    /* Remainder implemented in generate_c_il_c... */
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
   721
    
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
   722
    /***************************************/
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
   723
    /* B.3 - Language ST (Structured Text) */
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
    /* B 3.1 - Expressions */
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
   727
    /***********************/
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
   728
    /* Implemented in generate_c_st_c */
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
   729
    
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
   730
    /********************/
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
   731
    /* B 3.2 Statements */
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
   732
    /********************/
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
   733
    void *visit(statement_list_c *symbol);
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
   734
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
   735
/* Remainder implemented in generate_c_st_c... */
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
#include "generate_c_sfc.cc"
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
   739
217
f5dfadf5de54 Adding support for declare, init, get and set macros
laurent
parents: 210
diff changeset
   740
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
   741
  if (NULL == scope) ERROR;
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
   742
  this->s4o_ptr = s4o_ptr;
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
   743
  this->scope = scope;
217
f5dfadf5de54 Adding support for declare, init, get and set macros
laurent
parents: 210
diff changeset
   744
  this->fbname = name;
70
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
   745
  this->variable_prefix = variable_prefix;
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
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
   749
  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
   750
  generate_c_sfc.generate(symbol);
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
   751
  return NULL;
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
   752
}
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
   753
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
   754
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
   755
  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
   756
  generate_c_il.generate(symbol);
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
   757
  return NULL;
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
   758
}
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
   759
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
   760
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
   761
  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
   762
  generate_c_st.generate(symbol);
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
   763
  return NULL;
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
   764
}
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
   765
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
   766
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
   767
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
   768
913
1c74da17cb61 Implicitly defined array datatypes use new naming method (greatly simplifies stage 4 code).
mjsousa
parents: 908
diff changeset
   769
1c74da17cb61 Implicitly defined array datatypes use new naming method (greatly simplifies stage 4 code).
mjsousa
parents: 908
diff changeset
   770
1c74da17cb61 Implicitly defined array datatypes use new naming method (greatly simplifies stage 4 code).
mjsousa
parents: 908
diff changeset
   771
1c74da17cb61 Implicitly defined array datatypes use new naming method (greatly simplifies stage 4 code).
mjsousa
parents: 908
diff changeset
   772
1c74da17cb61 Implicitly defined array datatypes use new naming method (greatly simplifies stage 4 code).
mjsousa
parents: 908
diff changeset
   773
377
60b012b7793f Adding support for compiling direct array specification inside variable declaration
laurent
parents: 355
diff changeset
   774
/***********************************************************************/
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
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
   780
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
   781
  /* 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
   782
   * 
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
   783
   *       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
   784
   */ 
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
   785
267
0a1204bcc9af starting to add proper header file with declaration of standard functions
Mario de Sousa <msousa@fe.up.pt>
parents: 262
diff changeset
   786
  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
   787
    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
   788
      /* 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
   789
       * 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
   790
       * 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
   791
       */
214d3fdee596 fixing C code generation of return_statement_c and exit_statement_c
Mario de Sousa <msousa@fe.up.pt>
parents: 279
diff changeset
   792
      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
   793
      /* 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
   794
      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
   795
      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
   796
      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
   797
      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
   798
      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
   799
214d3fdee596 fixing C code generation of return_statement_c and exit_statement_c
Mario de Sousa <msousa@fe.up.pt>
parents: 279
diff changeset
   800
      /* 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
   801
      /* 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
   802
      /* 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
   803
      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
   804
      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
   805
      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
   806
      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
   807
      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
   808
    }
214d3fdee596 fixing C code generation of return_statement_c and exit_statement_c
Mario de Sousa <msousa@fe.up.pt>
parents: 279
diff changeset
   809
  
214d3fdee596 fixing C code generation of return_statement_c and exit_statement_c
Mario de Sousa <msousa@fe.up.pt>
parents: 279
diff changeset
   810
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
   811
    /*************/
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
   812
    /* 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
   813
    /*************/
70
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
   814
  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
   815
    /* 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
   816
     *         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
   817
     *                     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
   818
     *         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
   819
     *                     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
   820
     */
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
   821
    /*   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
   822
    /* | 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
   823
    static void handle_function(function_declaration_c *symbol, stage4out_c &s4o, bool print_declaration) {
945
477393b00f95 Add support for relaxed datatype model for array datatypes.
mjsousa
parents: 933
diff changeset
   824
      generate_c_vardecl_c          *vardecl = NULL;
477393b00f95 Add support for relaxed datatype model for array datatypes.
mjsousa
parents: 933
diff changeset
   825
      generate_c_base_and_typeid_c   print_base(&s4o);
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
   826
      
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
   827
      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
   828
    
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
   829
      /* (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
   830
      /* (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
   831
      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
   832
      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
   833
      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
   834
      /* (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
   835
      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
   836
      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
   837
    
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
   838
      /* (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
   839
      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
   840
      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
   841
                                         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
   842
                                         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
   843
                                         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
   844
                                         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
   845
                                         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
   846
                                         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
   847
      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
   848
      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
   849
      
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
   850
      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
   851
      
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
   852
      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
   853
      
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
   854
      /* 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
   855
      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
   856
        {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
   857
      
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
   858
      /* 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
   859
      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
   860
    
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
   861
      /* (B) Function local variable 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
   862
      /* (B.1) Variables declared in ST 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
   863
      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
   864
      
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
   865
      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
   866
                    generate_c_vardecl_c::localinit_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
   867
                    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
   868
                    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
   869
                    generate_c_vardecl_c::private_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
   870
                    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
   871
      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
   872
      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
   873
    
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
   874
      /* (B.2) Temporary variable for function's return value */
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
   875
      /* It will have the same name as the function itself! */
1016
91bef6704b44 Add support for functions returning VOID (i.e. non-standard extension, allowing functions that do not return any data)
mjsousa
parents: 1011
diff changeset
   876
      /* NOTE: matiec supports a non-standard syntax, in which functions do not return a value
91bef6704b44 Add support for functions returning VOID (i.e. non-standard extension, allowing functions that do not return any data)
mjsousa
parents: 1011
diff changeset
   877
       *       (declared as returning the special non-standard datatype VOID)
91bef6704b44 Add support for functions returning VOID (i.e. non-standard extension, allowing functions that do not return any data)
mjsousa
parents: 1011
diff changeset
   878
       *       e.g.:   FUNCTION foo: VOID
91bef6704b44 Add support for functions returning VOID (i.e. non-standard extension, allowing functions that do not return any data)
mjsousa
parents: 1011
diff changeset
   879
       *                ...
91bef6704b44 Add support for functions returning VOID (i.e. non-standard extension, allowing functions that do not return any data)
mjsousa
parents: 1011
diff changeset
   880
       *               END_FUNCTION
91bef6704b44 Add support for functions returning VOID (i.e. non-standard extension, allowing functions that do not return any data)
mjsousa
parents: 1011
diff changeset
   881
       *       
91bef6704b44 Add support for functions returning VOID (i.e. non-standard extension, allowing functions that do not return any data)
mjsousa
parents: 1011
diff changeset
   882
       *       These functions cannot return any value, so they do not need a variable to
91bef6704b44 Add support for functions returning VOID (i.e. non-standard extension, allowing functions that do not return any data)
mjsousa
parents: 1011
diff changeset
   883
       *       store the return value.
91bef6704b44 Add support for functions returning VOID (i.e. non-standard extension, allowing functions that do not return any data)
mjsousa
parents: 1011
diff changeset
   884
       *       Note that any attemot to sto a value in the implicit variable
91bef6704b44 Add support for functions returning VOID (i.e. non-standard extension, allowing functions that do not return any data)
mjsousa
parents: 1011
diff changeset
   885
       *       e.g.:   FUNCTION foo: VOID
91bef6704b44 Add support for functions returning VOID (i.e. non-standard extension, allowing functions that do not return any data)
mjsousa
parents: 1011
diff changeset
   886
       *                ...
91bef6704b44 Add support for functions returning VOID (i.e. non-standard extension, allowing functions that do not return any data)
mjsousa
parents: 1011
diff changeset
   887
       *                 foo := 42;
91bef6704b44 Add support for functions returning VOID (i.e. non-standard extension, allowing functions that do not return any data)
mjsousa
parents: 1011
diff changeset
   888
       *               END_FUNCTION
91bef6704b44 Add support for functions returning VOID (i.e. non-standard extension, allowing functions that do not return any data)
mjsousa
parents: 1011
diff changeset
   889
       *       will always return a datatype incompatilibiyt error in stage 3 of matiec, 
91bef6704b44 Add support for functions returning VOID (i.e. non-standard extension, allowing functions that do not return any data)
mjsousa
parents: 1011
diff changeset
   890
       *       so it is safe for stage 4 to assume that this return variable will never be needed
91bef6704b44 Add support for functions returning VOID (i.e. non-standard extension, allowing functions that do not return any data)
mjsousa
parents: 1011
diff changeset
   891
       *       if the function's return type is VOID.
91bef6704b44 Add support for functions returning VOID (i.e. non-standard extension, allowing functions that do not return any data)
mjsousa
parents: 1011
diff changeset
   892
       */
91bef6704b44 Add support for functions returning VOID (i.e. non-standard extension, allowing functions that do not return any data)
mjsousa
parents: 1011
diff changeset
   893
      if (!get_datatype_info_c::is_VOID(symbol->type_name->datatype)) { // only print return variable if return datatype is not VOID
91bef6704b44 Add support for functions returning VOID (i.e. non-standard extension, allowing functions that do not return any data)
mjsousa
parents: 1011
diff changeset
   894
        s4o.print(s4o.indent_spaces);
91bef6704b44 Add support for functions returning VOID (i.e. non-standard extension, allowing functions that do not return any data)
mjsousa
parents: 1011
diff changeset
   895
        symbol->type_name->accept(print_base); /* return type */
91bef6704b44 Add support for functions returning VOID (i.e. non-standard extension, allowing functions that do not return any data)
mjsousa
parents: 1011
diff changeset
   896
        s4o.print(" ");
91bef6704b44 Add support for functions returning VOID (i.e. non-standard extension, allowing functions that do not return any data)
mjsousa
parents: 1011
diff changeset
   897
        symbol->derived_function_name->accept(print_base);
91bef6704b44 Add support for functions returning VOID (i.e. non-standard extension, allowing functions that do not return any data)
mjsousa
parents: 1011
diff changeset
   898
        s4o.print(" = ");
91bef6704b44 Add support for functions returning VOID (i.e. non-standard extension, allowing functions that do not return any data)
mjsousa
parents: 1011
diff changeset
   899
        {
91bef6704b44 Add support for functions returning VOID (i.e. non-standard extension, allowing functions that do not return any data)
mjsousa
parents: 1011
diff changeset
   900
          /* get the default value of this variable's type */
91bef6704b44 Add support for functions returning VOID (i.e. non-standard extension, allowing functions that do not return any data)
mjsousa
parents: 1011
diff changeset
   901
          symbol_c *default_value = type_initial_value_c::get(symbol->type_name);
91bef6704b44 Add support for functions returning VOID (i.e. non-standard extension, allowing functions that do not return any data)
mjsousa
parents: 1011
diff changeset
   902
          if (default_value == NULL) ERROR;
91bef6704b44 Add support for functions returning VOID (i.e. non-standard extension, allowing functions that do not return any data)
mjsousa
parents: 1011
diff changeset
   903
          initialization_analyzer_c initialization_analyzer(default_value);
91bef6704b44 Add support for functions returning VOID (i.e. non-standard extension, allowing functions that do not return any data)
mjsousa
parents: 1011
diff changeset
   904
          switch (initialization_analyzer.get_initialization_type()) {
91bef6704b44 Add support for functions returning VOID (i.e. non-standard extension, allowing functions that do not return any data)
mjsousa
parents: 1011
diff changeset
   905
            case initialization_analyzer_c::struct_it:
91bef6704b44 Add support for functions returning VOID (i.e. non-standard extension, allowing functions that do not return any data)
mjsousa
parents: 1011
diff changeset
   906
              {
91bef6704b44 Add support for functions returning VOID (i.e. non-standard extension, allowing functions that do not return any data)
mjsousa
parents: 1011
diff changeset
   907
                generate_c_structure_initialization_c *structure_initialization = new generate_c_structure_initialization_c(&s4o);
91bef6704b44 Add support for functions returning VOID (i.e. non-standard extension, allowing functions that do not return any data)
mjsousa
parents: 1011
diff changeset
   908
                structure_initialization->init_structure_default(symbol->type_name);
91bef6704b44 Add support for functions returning VOID (i.e. non-standard extension, allowing functions that do not return any data)
mjsousa
parents: 1011
diff changeset
   909
                structure_initialization->init_structure_values(default_value);
91bef6704b44 Add support for functions returning VOID (i.e. non-standard extension, allowing functions that do not return any data)
mjsousa
parents: 1011
diff changeset
   910
                delete structure_initialization;
91bef6704b44 Add support for functions returning VOID (i.e. non-standard extension, allowing functions that do not return any data)
mjsousa
parents: 1011
diff changeset
   911
              }
91bef6704b44 Add support for functions returning VOID (i.e. non-standard extension, allowing functions that do not return any data)
mjsousa
parents: 1011
diff changeset
   912
              break;
91bef6704b44 Add support for functions returning VOID (i.e. non-standard extension, allowing functions that do not return any data)
mjsousa
parents: 1011
diff changeset
   913
            case initialization_analyzer_c::array_it:
91bef6704b44 Add support for functions returning VOID (i.e. non-standard extension, allowing functions that do not return any data)
mjsousa
parents: 1011
diff changeset
   914
              {
91bef6704b44 Add support for functions returning VOID (i.e. non-standard extension, allowing functions that do not return any data)
mjsousa
parents: 1011
diff changeset
   915
                generate_c_array_initialization_c *array_initialization = new generate_c_array_initialization_c(&s4o);
91bef6704b44 Add support for functions returning VOID (i.e. non-standard extension, allowing functions that do not return any data)
mjsousa
parents: 1011
diff changeset
   916
                array_initialization->init_array_size(symbol->type_name);
91bef6704b44 Add support for functions returning VOID (i.e. non-standard extension, allowing functions that do not return any data)
mjsousa
parents: 1011
diff changeset
   917
                array_initialization->init_array_values(default_value);
91bef6704b44 Add support for functions returning VOID (i.e. non-standard extension, allowing functions that do not return any data)
mjsousa
parents: 1011
diff changeset
   918
                delete array_initialization;
91bef6704b44 Add support for functions returning VOID (i.e. non-standard extension, allowing functions that do not return any data)
mjsousa
parents: 1011
diff changeset
   919
              }
91bef6704b44 Add support for functions returning VOID (i.e. non-standard extension, allowing functions that do not return any data)
mjsousa
parents: 1011
diff changeset
   920
              break;
91bef6704b44 Add support for functions returning VOID (i.e. non-standard extension, allowing functions that do not return any data)
mjsousa
parents: 1011
diff changeset
   921
            default:
91bef6704b44 Add support for functions returning VOID (i.e. non-standard extension, allowing functions that do not return any data)
mjsousa
parents: 1011
diff changeset
   922
              default_value->accept(print_base);
91bef6704b44 Add support for functions returning VOID (i.e. non-standard extension, allowing functions that do not return any data)
mjsousa
parents: 1011
diff changeset
   923
              break;
91bef6704b44 Add support for functions returning VOID (i.e. non-standard extension, allowing functions that do not return any data)
mjsousa
parents: 1011
diff changeset
   924
          }
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
   925
        }
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
   926
      }
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
   927
      s4o.print(";\n\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
   928
      
1011
76175defb87b Add option to not add the EN and ENO parameters to every function and FB (generated C code becomes smaller, and uses less memory for function invocations)
mjsousa
parents: 965
diff changeset
   929
      
76175defb87b Add option to not add the EN and ENO parameters to every function and FB (generated C code becomes smaller, and uses less memory for function invocations)
mjsousa
parents: 965
diff changeset
   930
      // Only generate the code that controls the execution of the function's body if the
76175defb87b Add option to not add the EN and ENO parameters to every function and FB (generated C code becomes smaller, and uses less memory for function invocations)
mjsousa
parents: 965
diff changeset
   931
      // function contains a declaration of both the EN and ENO variables
76175defb87b Add option to not add the EN and ENO parameters to every function and FB (generated C code becomes smaller, and uses less memory for function invocations)
mjsousa
parents: 965
diff changeset
   932
      search_var_instance_decl_c search_var(symbol);
76175defb87b Add option to not add the EN and ENO parameters to every function and FB (generated C code becomes smaller, and uses less memory for function invocations)
mjsousa
parents: 965
diff changeset
   933
      identifier_c  en_var("EN");
76175defb87b Add option to not add the EN and ENO parameters to every function and FB (generated C code becomes smaller, and uses less memory for function invocations)
mjsousa
parents: 965
diff changeset
   934
      identifier_c eno_var("ENO");
76175defb87b Add option to not add the EN and ENO parameters to every function and FB (generated C code becomes smaller, and uses less memory for function invocations)
mjsousa
parents: 965
diff changeset
   935
      if (   (search_var.get_vartype(& en_var) == search_var_instance_decl_c::input_vt)
76175defb87b Add option to not add the EN and ENO parameters to every function and FB (generated C code becomes smaller, and uses less memory for function invocations)
mjsousa
parents: 965
diff changeset
   936
          && (search_var.get_vartype(&eno_var) == search_var_instance_decl_c::output_vt)) {
76175defb87b Add option to not add the EN and ENO parameters to every function and FB (generated C code becomes smaller, and uses less memory for function invocations)
mjsousa
parents: 965
diff changeset
   937
        s4o.print(s4o.indent_spaces + "// Control execution\n");
76175defb87b Add option to not add the EN and ENO parameters to every function and FB (generated C code becomes smaller, and uses less memory for function invocations)
mjsousa
parents: 965
diff changeset
   938
        s4o.print(s4o.indent_spaces + "if (!EN) {\n");
76175defb87b Add option to not add the EN and ENO parameters to every function and FB (generated C code becomes smaller, and uses less memory for function invocations)
mjsousa
parents: 965
diff changeset
   939
        s4o.indent_right();
76175defb87b Add option to not add the EN and ENO parameters to every function and FB (generated C code becomes smaller, and uses less memory for function invocations)
mjsousa
parents: 965
diff changeset
   940
        s4o.print(s4o.indent_spaces + "if (__ENO != NULL) {\n");
76175defb87b Add option to not add the EN and ENO parameters to every function and FB (generated C code becomes smaller, and uses less memory for function invocations)
mjsousa
parents: 965
diff changeset
   941
        s4o.indent_right();
76175defb87b Add option to not add the EN and ENO parameters to every function and FB (generated C code becomes smaller, and uses less memory for function invocations)
mjsousa
parents: 965
diff changeset
   942
        s4o.print(s4o.indent_spaces + "*__ENO = __BOOL_LITERAL(FALSE);\n");
76175defb87b Add option to not add the EN and ENO parameters to every function and FB (generated C code becomes smaller, and uses less memory for function invocations)
mjsousa
parents: 965
diff changeset
   943
        s4o.indent_left();
76175defb87b Add option to not add the EN and ENO parameters to every function and FB (generated C code becomes smaller, and uses less memory for function invocations)
mjsousa
parents: 965
diff changeset
   944
        s4o.print(s4o.indent_spaces + "}\n");
1016
91bef6704b44 Add support for functions returning VOID (i.e. non-standard extension, allowing functions that do not return any data)
mjsousa
parents: 1011
diff changeset
   945
        if (!get_datatype_info_c::is_VOID(symbol->type_name->datatype)) { // only print return variable if return datatype is not VOID
91bef6704b44 Add support for functions returning VOID (i.e. non-standard extension, allowing functions that do not return any data)
mjsousa
parents: 1011
diff changeset
   946
          s4o.print(s4o.indent_spaces + "return ");
91bef6704b44 Add support for functions returning VOID (i.e. non-standard extension, allowing functions that do not return any data)
mjsousa
parents: 1011
diff changeset
   947
          symbol->derived_function_name->accept(print_base);
91bef6704b44 Add support for functions returning VOID (i.e. non-standard extension, allowing functions that do not return any data)
mjsousa
parents: 1011
diff changeset
   948
          s4o.print(";\n");
91bef6704b44 Add support for functions returning VOID (i.e. non-standard extension, allowing functions that do not return any data)
mjsousa
parents: 1011
diff changeset
   949
        }
1011
76175defb87b Add option to not add the EN and ENO parameters to every function and FB (generated C code becomes smaller, and uses less memory for function invocations)
mjsousa
parents: 965
diff changeset
   950
        s4o.indent_left();
76175defb87b Add option to not add the EN and ENO parameters to every function and FB (generated C code becomes smaller, and uses less memory for function invocations)
mjsousa
parents: 965
diff changeset
   951
        s4o.print(s4o.indent_spaces + "}\n");
76175defb87b Add option to not add the EN and ENO parameters to every function and FB (generated C code becomes smaller, and uses less memory for function invocations)
mjsousa
parents: 965
diff changeset
   952
      }
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
   953
    
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
   954
      /* (C) Function body */
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
   955
      generate_c_SFC_IL_ST_c generate_c_code(&s4o, symbol->derived_function_name, symbol);
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
   956
      symbol->function_body->accept(generate_c_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
   957
      
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
   958
      print_end_of_block_label(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
   959
      
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
   960
      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
   961
                    generate_c_vardecl_c::foutputassign_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
   962
                    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
   963
                    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
   964
                    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
   965
      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
   966
      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
   967
      
1016
91bef6704b44 Add support for functions returning VOID (i.e. non-standard extension, allowing functions that do not return any data)
mjsousa
parents: 1011
diff changeset
   968
      if (!get_datatype_info_c::is_VOID(symbol->type_name->datatype)) { // only print 'return <fname>' if return datatype is not VOID
91bef6704b44 Add support for functions returning VOID (i.e. non-standard extension, allowing functions that do not return any data)
mjsousa
parents: 1011
diff changeset
   969
        s4o.print(s4o.indent_spaces + "return ");
91bef6704b44 Add support for functions returning VOID (i.e. non-standard extension, allowing functions that do not return any data)
mjsousa
parents: 1011
diff changeset
   970
        symbol->derived_function_name->accept(print_base);
91bef6704b44 Add support for functions returning VOID (i.e. non-standard extension, allowing functions that do not return any data)
mjsousa
parents: 1011
diff changeset
   971
        s4o.print(";\n");
91bef6704b44 Add support for functions returning VOID (i.e. non-standard extension, allowing functions that do not return any data)
mjsousa
parents: 1011
diff changeset
   972
      }
91bef6704b44 Add support for functions returning VOID (i.e. non-standard extension, allowing functions that do not return any data)
mjsousa
parents: 1011
diff changeset
   973
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
   974
      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
   975
      s4o.print(s4o.indent_spaces + "}\n\n\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
   976
    
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
   977
      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
   978
    }
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
   979
    
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
   980
    
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
   981
    /*******************/
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
   982
    /* Function Blocks */
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
   983
    /*******************/
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
   984
  public:
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
   985
    /* 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
   986
     *         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
   987
     *                     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
   988
     *         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
   989
     *                     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
   990
     */
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
   991
    /*  FUNCTION_BLOCK derived_function_block_name io_OR_other_var_declarations function_block_body END_FUNCTION_BLOCK */
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
   992
    //SYM_REF4(function_block_declaration_c, fblock_name, var_declarations, fblock_body, unused)
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
   993
    static void handle_function_block(function_block_declaration_c *symbol, stage4out_c &s4o, bool print_declaration) {
945
477393b00f95 Add support for relaxed datatype model for array datatypes.
mjsousa
parents: 933
diff changeset
   994
      generate_c_vardecl_c          *vardecl;
477393b00f95 Add support for relaxed datatype model for array datatypes.
mjsousa
parents: 933
diff changeset
   995
      generate_c_sfcdecl_c          *sfcdecl;
477393b00f95 Add support for relaxed datatype model for array datatypes.
mjsousa
parents: 933
diff changeset
   996
      generate_c_base_and_typeid_c   print_base(&s4o);
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
   997
      TRACE("function_block_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
   998
    
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
   999
      /* (A) Function Block data structure 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
  1000
      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
  1001
        /* (A.1) Data structure 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
  1002
        s4o.print("// FUNCTION_BLOCK ");
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
  1003
        symbol->fblock_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
  1004
        s4o.print("\n// Data part\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
  1005
        s4o.print("typedef struct {\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
  1006
        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
  1007
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
  1008
        /* (A.2) Public variables: i.e. the 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
  1009
        s4o.print(s4o.indent_spaces + "// FB Interface - IN, OUT, IN_OUT variables\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
  1010
        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
  1011
                                           generate_c_vardecl_c::local_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
  1012
                                           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
  1013
                                           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
  1014
                                           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
  1015
                                           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
  1016
                                           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
  1017
        vardecl->print(symbol->var_declarations);
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
  1018
        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
  1019
        s4o.print("\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
  1020
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
  1021
        /* (A.3) Private internal variables */
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
  1022
        s4o.print(s4o.indent_spaces + "// FB private variables - TEMP, private and located variables\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
  1023
        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
  1024
                                           generate_c_vardecl_c::local_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
  1025
                                           generate_c_vardecl_c::temp_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
  1026
                                           generate_c_vardecl_c::private_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
  1027
                                           generate_c_vardecl_c::located_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
  1028
                                           generate_c_vardecl_c::external_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
  1029
        vardecl->print(symbol->var_declarations);
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
  1030
        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
  1031
        
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
  1032
        /* (A.4) Generate private internal variables for SFC */
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
  1033
        sfcdecl = new generate_c_sfcdecl_c(&s4o, symbol);
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
  1034
        sfcdecl->generate(symbol->fblock_body, generate_c_sfcdecl_c::sfcdecl_sd);
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
  1035
        delete sfcdecl;
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
  1036
        s4o.print("\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
  1037
      
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
  1038
        /* (A.5) Function Block data structure type 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
  1039
        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
  1040
        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
  1041
        symbol->fblock_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
  1042
        s4o.print(";\n\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
  1043
      }
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
  1044
      
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
  1045
      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
  1046
        /* (A.6) Function Block inline function declaration for function invocation */
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
  1047
        generate_c_inlinefcall_c *inlinedecl = new generate_c_inlinefcall_c(&s4o, symbol->fblock_name, symbol, FB_FUNCTION_PARAM"->");
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
  1048
        symbol->fblock_body->accept(*inlinedecl);
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
  1049
        delete inlinedecl;
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
  1050
      }
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
  1051
      
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
  1052
      /* (B) Constructor */
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
  1053
      /* (B.1) Constructor 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
  1054
      s4o.print(s4o.indent_spaces + "void ");
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
  1055
      symbol->fblock_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
  1056
      s4o.print(FB_INIT_SUFFIX);
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
  1057
      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
  1058
    
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
  1059
      /* first and only parameter is a pointer to the data */
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
  1060
      symbol->fblock_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
  1061
      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
  1062
      s4o.print(FB_FUNCTION_PARAM);
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
  1063
      s4o.print(", BOOL retain)");
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
  1064
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
  1065
      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
  1066
        s4o.print(";\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
  1067
      } else {
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
  1068
        s4o.print(" {\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
  1069
        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
  1070
      
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
  1071
        /* (B.2) Member initializations... */
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
  1072
        s4o.print(s4o.indent_spaces);
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
  1073
        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
  1074
                                           generate_c_vardecl_c::constructorinit_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
  1075
                                           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
  1076
                                           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
  1077
                                           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
  1078
                                           generate_c_vardecl_c::private_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
  1079
                                           generate_c_vardecl_c::located_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
  1080
                                           generate_c_vardecl_c::external_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
  1081
                                           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
  1082
                                           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
  1083
        vardecl->print(symbol->var_declarations, NULL, FB_FUNCTION_PARAM"->");
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
  1084
        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
  1085
        s4o.print("\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
  1086
            
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
  1087
        /* (B.3) Generate private internal variables for SFC */
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
  1088
        sfcdecl = new generate_c_sfcdecl_c(&s4o, symbol, FB_FUNCTION_PARAM"->");
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
  1089
        sfcdecl->generate(symbol->fblock_body, generate_c_sfcdecl_c::sfcinit_sd);
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
  1090
      
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
  1091
        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
  1092
        s4o.print(s4o.indent_spaces + "}\n\n");
920
4369ce5e687f Fix bug (introduced a few commits ago) when generating SFC actions that are mapped onto variables --> Make generate_sfcdecl_c stateless (i.e. does not depend on order by which it is called).
mjsousa
parents: 918
diff changeset
  1093
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
  1094
        /* (C) Function with FB body */
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
  1095
        /* (C.1) Step definitions */
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
  1096
        sfcdecl->generate(symbol->fblock_body, generate_c_sfcdecl_c::stepdef_sd);
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
  1097
      
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
  1098
        /* (C.2) Action definitions */
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
  1099
        sfcdecl->generate(symbol->fblock_body, generate_c_sfcdecl_c::actiondef_sd);
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
  1100
        delete sfcdecl;
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
  1101
      }
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
  1102
      
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
  1103
      /* (C.3) 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
  1104
      s4o.print("// Code part\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
  1105
      /* function interface */
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
  1106
      s4o.print("void ");
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
  1107
      symbol->fblock_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
  1108
      s4o.print(FB_FUNCTION_SUFFIX);
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
  1109
      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
  1110
      /* first and only parameter is a pointer to the data */
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
  1111
      symbol->fblock_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
  1112
      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
  1113
      s4o.print(FB_FUNCTION_PARAM);
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
  1114
      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
  1115
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
  1116
      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
  1117
        s4o.print(";\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
  1118
      } else {
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
  1119
        s4o.print(" {\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
  1120
        s4o.indent_right();
1011
76175defb87b Add option to not add the EN and ENO parameters to every function and FB (generated C code becomes smaller, and uses less memory for function invocations)
mjsousa
parents: 965
diff changeset
  1121
76175defb87b Add option to not add the EN and ENO parameters to every function and FB (generated C code becomes smaller, and uses less memory for function invocations)
mjsousa
parents: 965
diff changeset
  1122
        // Only generate the code that controls the execution of the function's body if the
76175defb87b Add option to not add the EN and ENO parameters to every function and FB (generated C code becomes smaller, and uses less memory for function invocations)
mjsousa
parents: 965
diff changeset
  1123
        // function contains a declaration of both the EN and ENO variables
76175defb87b Add option to not add the EN and ENO parameters to every function and FB (generated C code becomes smaller, and uses less memory for function invocations)
mjsousa
parents: 965
diff changeset
  1124
        search_var_instance_decl_c search_var(symbol);
76175defb87b Add option to not add the EN and ENO parameters to every function and FB (generated C code becomes smaller, and uses less memory for function invocations)
mjsousa
parents: 965
diff changeset
  1125
        identifier_c  en_var("EN");
76175defb87b Add option to not add the EN and ENO parameters to every function and FB (generated C code becomes smaller, and uses less memory for function invocations)
mjsousa
parents: 965
diff changeset
  1126
        identifier_c eno_var("ENO");
76175defb87b Add option to not add the EN and ENO parameters to every function and FB (generated C code becomes smaller, and uses less memory for function invocations)
mjsousa
parents: 965
diff changeset
  1127
        if (   (search_var.get_vartype(& en_var) == search_var_instance_decl_c::input_vt)
76175defb87b Add option to not add the EN and ENO parameters to every function and FB (generated C code becomes smaller, and uses less memory for function invocations)
mjsousa
parents: 965
diff changeset
  1128
            && (search_var.get_vartype(&eno_var) == search_var_instance_decl_c::output_vt)) {
76175defb87b Add option to not add the EN and ENO parameters to every function and FB (generated C code becomes smaller, and uses less memory for function invocations)
mjsousa
parents: 965
diff changeset
  1129
76175defb87b Add option to not add the EN and ENO parameters to every function and FB (generated C code becomes smaller, and uses less memory for function invocations)
mjsousa
parents: 965
diff changeset
  1130
          s4o.print(s4o.indent_spaces + "// Control execution\n");
76175defb87b Add option to not add the EN and ENO parameters to every function and FB (generated C code becomes smaller, and uses less memory for function invocations)
mjsousa
parents: 965
diff changeset
  1131
          s4o.print(s4o.indent_spaces + "if (!");
76175defb87b Add option to not add the EN and ENO parameters to every function and FB (generated C code becomes smaller, and uses less memory for function invocations)
mjsousa
parents: 965
diff changeset
  1132
          s4o.print(GET_VAR);
76175defb87b Add option to not add the EN and ENO parameters to every function and FB (generated C code becomes smaller, and uses less memory for function invocations)
mjsousa
parents: 965
diff changeset
  1133
          s4o.print("(");
76175defb87b Add option to not add the EN and ENO parameters to every function and FB (generated C code becomes smaller, and uses less memory for function invocations)
mjsousa
parents: 965
diff changeset
  1134
          s4o.print(FB_FUNCTION_PARAM);
76175defb87b Add option to not add the EN and ENO parameters to every function and FB (generated C code becomes smaller, and uses less memory for function invocations)
mjsousa
parents: 965
diff changeset
  1135
          s4o.print("->EN)) {\n");
76175defb87b Add option to not add the EN and ENO parameters to every function and FB (generated C code becomes smaller, and uses less memory for function invocations)
mjsousa
parents: 965
diff changeset
  1136
          s4o.indent_right();
76175defb87b Add option to not add the EN and ENO parameters to every function and FB (generated C code becomes smaller, and uses less memory for function invocations)
mjsousa
parents: 965
diff changeset
  1137
          s4o.print(s4o.indent_spaces);
76175defb87b Add option to not add the EN and ENO parameters to every function and FB (generated C code becomes smaller, and uses less memory for function invocations)
mjsousa
parents: 965
diff changeset
  1138
          s4o.print(SET_VAR);
76175defb87b Add option to not add the EN and ENO parameters to every function and FB (generated C code becomes smaller, and uses less memory for function invocations)
mjsousa
parents: 965
diff changeset
  1139
          s4o.print("(");
76175defb87b Add option to not add the EN and ENO parameters to every function and FB (generated C code becomes smaller, and uses less memory for function invocations)
mjsousa
parents: 965
diff changeset
  1140
          s4o.print(FB_FUNCTION_PARAM);
76175defb87b Add option to not add the EN and ENO parameters to every function and FB (generated C code becomes smaller, and uses less memory for function invocations)
mjsousa
parents: 965
diff changeset
  1141
          s4o.print("->,ENO,,__BOOL_LITERAL(FALSE));\n");
76175defb87b Add option to not add the EN and ENO parameters to every function and FB (generated C code becomes smaller, and uses less memory for function invocations)
mjsousa
parents: 965
diff changeset
  1142
          s4o.print(s4o.indent_spaces + "return;\n");
76175defb87b Add option to not add the EN and ENO parameters to every function and FB (generated C code becomes smaller, and uses less memory for function invocations)
mjsousa
parents: 965
diff changeset
  1143
          s4o.indent_left();
76175defb87b Add option to not add the EN and ENO parameters to every function and FB (generated C code becomes smaller, and uses less memory for function invocations)
mjsousa
parents: 965
diff changeset
  1144
          s4o.print(s4o.indent_spaces + "}\n");
76175defb87b Add option to not add the EN and ENO parameters to every function and FB (generated C code becomes smaller, and uses less memory for function invocations)
mjsousa
parents: 965
diff changeset
  1145
          s4o.print(s4o.indent_spaces + "else {\n");
76175defb87b Add option to not add the EN and ENO parameters to every function and FB (generated C code becomes smaller, and uses less memory for function invocations)
mjsousa
parents: 965
diff changeset
  1146
          s4o.indent_right();
76175defb87b Add option to not add the EN and ENO parameters to every function and FB (generated C code becomes smaller, and uses less memory for function invocations)
mjsousa
parents: 965
diff changeset
  1147
          s4o.print(s4o.indent_spaces);
76175defb87b Add option to not add the EN and ENO parameters to every function and FB (generated C code becomes smaller, and uses less memory for function invocations)
mjsousa
parents: 965
diff changeset
  1148
          s4o.print(SET_VAR);
76175defb87b Add option to not add the EN and ENO parameters to every function and FB (generated C code becomes smaller, and uses less memory for function invocations)
mjsousa
parents: 965
diff changeset
  1149
          s4o.print("(");
76175defb87b Add option to not add the EN and ENO parameters to every function and FB (generated C code becomes smaller, and uses less memory for function invocations)
mjsousa
parents: 965
diff changeset
  1150
          s4o.print(FB_FUNCTION_PARAM);
76175defb87b Add option to not add the EN and ENO parameters to every function and FB (generated C code becomes smaller, and uses less memory for function invocations)
mjsousa
parents: 965
diff changeset
  1151
          s4o.print("->,ENO,,__BOOL_LITERAL(TRUE));\n");
76175defb87b Add option to not add the EN and ENO parameters to every function and FB (generated C code becomes smaller, and uses less memory for function invocations)
mjsousa
parents: 965
diff changeset
  1152
          s4o.indent_left();
76175defb87b Add option to not add the EN and ENO parameters to every function and FB (generated C code becomes smaller, and uses less memory for function invocations)
mjsousa
parents: 965
diff changeset
  1153
          s4o.print(s4o.indent_spaces + "}\n");
76175defb87b Add option to not add the EN and ENO parameters to every function and FB (generated C code becomes smaller, and uses less memory for function invocations)
mjsousa
parents: 965
diff changeset
  1154
        }
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
  1155
      
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
  1156
        /* (C.4) Initialize TEMP variables */
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
  1157
        /* function body */
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
  1158
        s4o.print(s4o.indent_spaces + "// Initialise TEMP variables\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
  1159
        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
  1160
                                           generate_c_vardecl_c::init_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
  1161
                                           generate_c_vardecl_c::temp_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
  1162
        vardecl->print(symbol->var_declarations, NULL,  FB_FUNCTION_PARAM"->");
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
  1163
        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
  1164
        s4o.print("\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
  1165
      
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
  1166
        /* (C.5) Function 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
  1167
        generate_c_SFC_IL_ST_c generate_c_code(&s4o, symbol->fblock_name, symbol, FB_FUNCTION_PARAM"->");
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
  1168
        symbol->fblock_body->accept(generate_c_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
  1169
        print_end_of_block_label(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
  1170
        s4o.print(s4o.indent_spaces + "return;\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
  1171
        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
  1172
        s4o.print(s4o.indent_spaces + "} // ");
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
  1173
        symbol->fblock_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
  1174
        s4o.print(FB_FUNCTION_SUFFIX);
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
  1175
        s4o.print(s4o.indent_spaces + "() \n\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
  1176
      
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
  1177
        /* (C.6) Step undefinitions */
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
  1178
        sfcdecl = new generate_c_sfcdecl_c(&s4o, symbol, FB_FUNCTION_PARAM"->");
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
  1179
        sfcdecl->generate(symbol->fblock_body, generate_c_sfcdecl_c::stepundef_sd);
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
  1180
      
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
  1181
        /* (C.7) Action undefinitions */
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
  1182
        sfcdecl->generate(symbol->fblock_body, generate_c_sfcdecl_c::actionundef_sd);
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
  1183
        delete sfcdecl;
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
  1184
      
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
  1185
        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
  1186
        s4o.print("\n\n\n\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
  1187
      }
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
  1188
      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
  1189
    }
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
  1190
    
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
  1191
    
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
  1192
    /************/
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
  1193
    /* Programs */
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
    /************/
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
  public:
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
    /* 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
  1197
     *         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
  1198
     *                     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
  1199
     *         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
  1200
     *                     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
  1201
     */
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
  1202
    /*  PROGRAM program_type_name program_var_declarations_list function_block_body END_PROGRAM */
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
  1203
    //SYM_REF4(program_declaration_c, program_type_name, var_declarations, function_block_body, unused)
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
  1204
    static void handle_program(program_declaration_c *symbol, stage4out_c &s4o, bool print_declaration) {
945
477393b00f95 Add support for relaxed datatype model for array datatypes.
mjsousa
parents: 933
diff changeset
  1205
      generate_c_vardecl_c          *vardecl;
477393b00f95 Add support for relaxed datatype model for array datatypes.
mjsousa
parents: 933
diff changeset
  1206
      generate_c_sfcdecl_c          *sfcdecl;
477393b00f95 Add support for relaxed datatype model for array datatypes.
mjsousa
parents: 933
diff changeset
  1207
      generate_c_base_and_typeid_c   print_base(&s4o);
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
  1208
      TRACE("program_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
  1209
    
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
  1210
      /* (A) Program data structure 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
  1211
      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
  1212
        /* (A.1) Data structure 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
  1213
        s4o.print("// PROGRAM ");
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
  1214
        symbol->program_type_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
  1215
        s4o.print("\n// Data part\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
  1216
        s4o.print("typedef struct {\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
  1217
        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
  1218
      
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
  1219
        /* (A.2) Public variables: i.e. the program 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
  1220
        s4o.print(s4o.indent_spaces + "// PROGRAM Interface - IN, OUT, IN_OUT variables\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
  1221
        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
  1222
                                           generate_c_vardecl_c::local_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
  1223
                                           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
  1224
                                           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
  1225
                                           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
  1226
        vardecl->print(symbol->var_declarations);
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
        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
  1228
        s4o.print("\n");
146
eef5e62048c7 Adding support for EN/ENO params in function and function blocks (standard function not supported yet)
lbessard
parents: 145
diff changeset
  1229
  
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
  1230
        /* (A.3) Private internal variables */
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
        s4o.print(s4o.indent_spaces + "// PROGRAM private variables - TEMP, private and located variables\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
  1232
        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
  1233
                      generate_c_vardecl_c::local_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
  1234
                      generate_c_vardecl_c::temp_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
  1235
                      generate_c_vardecl_c::private_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
  1236
                      generate_c_vardecl_c::located_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
  1237
                      generate_c_vardecl_c::external_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
  1238
        vardecl->print(symbol->var_declarations);
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
        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
  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
        /* (A.4) Generate private internal variables for SFC */
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
        sfcdecl = new generate_c_sfcdecl_c(&s4o, symbol);
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
        sfcdecl->generate(symbol->function_block_body, generate_c_sfcdecl_c::sfcdecl_sd);
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
        delete sfcdecl;
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("\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
        
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
        /* (A.5) Program data structure type 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
  1248
        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
  1249
        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
  1250
        symbol->program_type_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
  1251
        s4o.print(";\n\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
  1252
      }
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
      
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
      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
  1255
        /* (A.6) Function Block inline function declaration for function invocation */
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_inlinefcall_c *inlinedecl = new generate_c_inlinefcall_c(&s4o, symbol->program_type_name, symbol, FB_FUNCTION_PARAM"->");
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
        symbol->function_block_body->accept(*inlinedecl);
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
        delete inlinedecl;
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
      }
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
    
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
      /* (B) Constructor */
c3edb882a4b2 code re-organisation. Preparing for the changes to come in the next commit (one C file for each POU)
mjsousa
parents: 906
diff