stage4/generate_c/generate_c.cc
author mjsousa
Sun, 11 Jan 2015 19:44:37 +0000
changeset 987 562b67922966
parent 965 c9eeb67ba939
child 1007 afb3974f8fb3
child 1011 76175defb87b
permissions -rw-r--r--
Let get_datatype_info_c handle variable sized arrays, even if constant folding is not yet done.
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;
882
18a39a545ed9 Disable stage4 options with on windows since getsuboptr isn't supported in mingw
Edouard Tisserant
parents: 878
diff changeset
   181
18a39a545ed9 Disable stage4 options with on windows since getsuboptr isn't supported in mingw
Edouard Tisserant
parents: 878
diff changeset
   182
#ifdef __unix__
878
89eb85bab58f Make generation of #line directives optional.
mjsousa
parents: 873
diff changeset
   183
/* Parse command line options passed from main.c !! */
89eb85bab58f Make generation of #line directives optional.
mjsousa
parents: 873
diff changeset
   184
#include <stdlib.h> // for getsybopt()
89eb85bab58f Make generation of #line directives optional.
mjsousa
parents: 873
diff changeset
   185
int  stage4_parse_options(char *options) {
908
9e8e1ba5ca46 Add option to place each POU in a distinct .c and .h file pair.
mjsousa
parents: 907
diff changeset
   186
  enum {                    LINE_OPT = 0            ,  SEPTFILE_OPT              /*, SOME_OTHER_OPT, YET_ANOTHER_OPT */};
9e8e1ba5ca46 Add option to place each POU in a distinct .c and .h file pair.
mjsousa
parents: 907
diff changeset
   187
  char *const token[] = { /*[LINE_OPT]=*/(char *)"l",/*SEPTFILE_OPT*/(char *)"p" /*, SOME_OTHER_OPT, ...             */, NULL };
878
89eb85bab58f Make generation of #line directives optional.
mjsousa
parents: 873
diff changeset
   188
  /* 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
   189
  
89eb85bab58f Make generation of #line directives optional.
mjsousa
parents: 873
diff changeset
   190
  char *subopts = options;
89eb85bab58f Make generation of #line directives optional.
mjsousa
parents: 873
diff changeset
   191
  char *value;
89eb85bab58f Make generation of #line directives optional.
mjsousa
parents: 873
diff changeset
   192
  int opt;
89eb85bab58f Make generation of #line directives optional.
mjsousa
parents: 873
diff changeset
   193
89eb85bab58f Make generation of #line directives optional.
mjsousa
parents: 873
diff changeset
   194
  while (*subopts != '\0') {
89eb85bab58f Make generation of #line directives optional.
mjsousa
parents: 873
diff changeset
   195
    switch (getsubopt(&subopts, token, &value)) {
908
9e8e1ba5ca46 Add option to place each POU in a distinct .c and .h file pair.
mjsousa
parents: 907
diff changeset
   196
      case     LINE_OPT: generate_line_directives__  = 1; break;
9e8e1ba5ca46 Add option to place each POU in a distinct .c and .h file pair.
mjsousa
parents: 907
diff changeset
   197
      case SEPTFILE_OPT: generate_pou_filepairs__    = 1; break;
9e8e1ba5ca46 Add option to place each POU in a distinct .c and .h file pair.
mjsousa
parents: 907
diff changeset
   198
      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
   199
     }
89eb85bab58f Make generation of #line directives optional.
mjsousa
parents: 873
diff changeset
   200
  }     
89eb85bab58f Make generation of #line directives optional.
mjsousa
parents: 873
diff changeset
   201
  return 0;
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
89eb85bab58f Make generation of #line directives optional.
mjsousa
parents: 873
diff changeset
   204
89eb85bab58f Make generation of #line directives optional.
mjsousa
parents: 873
diff changeset
   205
void stage4_print_options(void) {
89eb85bab58f Make generation of #line directives optional.
mjsousa
parents: 873
diff changeset
   206
  printf("          (options must be separated by commas. Example: 'l,w,x')\n"); 
89eb85bab58f Make generation of #line directives optional.
mjsousa
parents: 873
diff changeset
   207
  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
   208
  printf("      p : place each POU in a separate pair of files (<pou_name>.c, <pou_name>.h).\n"); 
878
89eb85bab58f Make generation of #line directives optional.
mjsousa
parents: 873
diff changeset
   209
}
882
18a39a545ed9 Disable stage4 options with on windows since getsuboptr isn't supported in mingw
Edouard Tisserant
parents: 878
diff changeset
   210
#else /* not __unix__ */
18a39a545ed9 Disable stage4 options with on windows since getsuboptr isn't supported in mingw
Edouard Tisserant
parents: 878
diff changeset
   211
/* 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
   212
 *  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
   213
void stage4_print_options(void) {}
18a39a545ed9 Disable stage4 options with on windows since getsuboptr isn't supported in mingw
Edouard Tisserant
parents: 878
diff changeset
   214
int  stage4_parse_options(char *options) {}
18a39a545ed9 Disable stage4 options with on windows since getsuboptr isn't supported in mingw
Edouard Tisserant
parents: 878
diff changeset
   215
#endif 
878
89eb85bab58f Make generation of #line directives optional.
mjsousa
parents: 873
diff changeset
   216
89eb85bab58f Make generation of #line directives optional.
mjsousa
parents: 873
diff changeset
   217
/***********************************************************************/
89eb85bab58f Make generation of #line directives optional.
mjsousa
parents: 873
diff changeset
   218
/***********************************************************************/
89eb85bab58f Make generation of #line directives optional.
mjsousa
parents: 873
diff changeset
   219
/***********************************************************************/
89eb85bab58f Make generation of #line directives optional.
mjsousa
parents: 873
diff changeset
   220
/***********************************************************************/
89eb85bab58f Make generation of #line directives optional.
mjsousa
parents: 873
diff changeset
   221
217
f5dfadf5de54 Adding support for declare, init, get and set macros
laurent
parents: 210
diff changeset
   222
#include "generate_c_base.cc"
f5dfadf5de54 Adding support for declare, init, get and set macros
laurent
parents: 210
diff changeset
   223
#include "generate_c_typedecl.cc"
f5dfadf5de54 Adding support for declare, init, get and set macros
laurent
parents: 210
diff changeset
   224
#include "generate_c_sfcdecl.cc"
f5dfadf5de54 Adding support for declare, init, get and set macros
laurent
parents: 210
diff changeset
   225
#include "generate_c_vardecl.cc"
f5dfadf5de54 Adding support for declare, init, get and set macros
laurent
parents: 210
diff changeset
   226
#include "generate_c_configbody.cc"
f5dfadf5de54 Adding support for declare, init, get and set macros
laurent
parents: 210
diff changeset
   227
#include "generate_location_list.cc"
f5dfadf5de54 Adding support for declare, init, get and set macros
laurent
parents: 210
diff changeset
   228
#include "generate_var_list.cc"
f5dfadf5de54 Adding support for declare, init, get and set macros
laurent
parents: 210
diff changeset
   229
f5dfadf5de54 Adding support for declare, init, get and set macros
laurent
parents: 210
diff changeset
   230
/***********************************************************************/
f5dfadf5de54 Adding support for declare, init, get and set macros
laurent
parents: 210
diff changeset
   231
/***********************************************************************/
f5dfadf5de54 Adding support for declare, init, get and set macros
laurent
parents: 210
diff changeset
   232
/***********************************************************************/
f5dfadf5de54 Adding support for declare, init, get and set macros
laurent
parents: 210
diff changeset
   233
/***********************************************************************/
f5dfadf5de54 Adding support for declare, init, get and set macros
laurent
parents: 210
diff changeset
   234
350
2c3c4dc34979 Support for semantic verification of calls to standard functions.
Mario de Sousa <msousa@fe.up.pt>
parents: 330
diff changeset
   235
2c3c4dc34979 Support for semantic verification of calls to standard functions.
Mario de Sousa <msousa@fe.up.pt>
parents: 330
diff changeset
   236
#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
   237
2c3c4dc34979 Support for semantic verification of calls to standard functions.
Mario de Sousa <msousa@fe.up.pt>
parents: 330
diff changeset
   238
2c3c4dc34979 Support for semantic verification of calls to standard functions.
Mario de Sousa <msousa@fe.up.pt>
parents: 330
diff changeset
   239
/***********************************************************************/
2c3c4dc34979 Support for semantic verification of calls to standard functions.
Mario de Sousa <msousa@fe.up.pt>
parents: 330
diff changeset
   240
/***********************************************************************/
2c3c4dc34979 Support for semantic verification of calls to standard functions.
Mario de Sousa <msousa@fe.up.pt>
parents: 330
diff changeset
   241
/***********************************************************************/
2c3c4dc34979 Support for semantic verification of calls to standard functions.
Mario de Sousa <msousa@fe.up.pt>
parents: 330
diff changeset
   242
/***********************************************************************/
2c3c4dc34979 Support for semantic verification of calls to standard functions.
Mario de Sousa <msousa@fe.up.pt>
parents: 330
diff changeset
   243
2c3c4dc34979 Support for semantic verification of calls to standard functions.
Mario de Sousa <msousa@fe.up.pt>
parents: 330
diff changeset
   244
/* 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
   245
/* 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
   246
 * 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
   247
 * 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
   248
 *   for e.g.; 
2c3c4dc34979 Support for semantic verification of calls to standard functions.
Mario de Sousa <msousa@fe.up.pt>
parents: 330
diff changeset
   249
 *     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
   250
 *     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
   251
 *     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
   252
 */
945
477393b00f95 Add support for relaxed datatype model for array datatypes.
mjsousa
parents: 933
diff changeset
   253
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
   254
  private:
2c3c4dc34979 Support for semantic verification of calls to standard functions.
Mario de Sousa <msousa@fe.up.pt>
parents: 330
diff changeset
   255
    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
   256
    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
   257
2c3c4dc34979 Support for semantic verification of calls to standard functions.
Mario de Sousa <msousa@fe.up.pt>
parents: 330
diff changeset
   258
    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
   259
      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
   260
        /* 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
   261
        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
   262
        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
   263
        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
   264
          s4o.print("__");
2c3c4dc34979 Support for semantic verification of calls to standard functions.
Mario de Sousa <msousa@fe.up.pt>
parents: 330
diff changeset
   265
          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
   266
        }  
2c3c4dc34979 Support for semantic verification of calls to standard functions.
Mario de Sousa <msousa@fe.up.pt>
parents: 330
diff changeset
   267
      }
2c3c4dc34979 Support for semantic verification of calls to standard functions.
Mario de Sousa <msousa@fe.up.pt>
parents: 330
diff changeset
   268
    }
2c3c4dc34979 Support for semantic verification of calls to standard functions.
Mario de Sousa <msousa@fe.up.pt>
parents: 330
diff changeset
   269
    
2c3c4dc34979 Support for semantic verification of calls to standard functions.
Mario de Sousa <msousa@fe.up.pt>
parents: 330
diff changeset
   270
  public:
2c3c4dc34979 Support for semantic verification of calls to standard functions.
Mario de Sousa <msousa@fe.up.pt>
parents: 330
diff changeset
   271
    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
   272
      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
   273
      {current_type = NULL;}
2c3c4dc34979 Support for semantic verification of calls to standard functions.
Mario de Sousa <msousa@fe.up.pt>
parents: 330
diff changeset
   274
2c3c4dc34979 Support for semantic verification of calls to standard functions.
Mario de Sousa <msousa@fe.up.pt>
parents: 330
diff changeset
   275
    /**************************************/
2c3c4dc34979 Support for semantic verification of calls to standard functions.
Mario de Sousa <msousa@fe.up.pt>
parents: 330
diff changeset
   276
    /* 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
   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
    /* 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
   280
    /***********************/
2c3c4dc34979 Support for semantic verification of calls to standard functions.
Mario de Sousa <msousa@fe.up.pt>
parents: 330
diff changeset
   281
    /*   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
   282
    /* | 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
   283
    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
   284
      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
   285
      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
   286
      return NULL;
2c3c4dc34979 Support for semantic verification of calls to standard functions.
Mario de Sousa <msousa@fe.up.pt>
parents: 330
diff changeset
   287
    }
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
    /* 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
   290
    //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
   291
    
2c3c4dc34979 Support for semantic verification of calls to standard functions.
Mario de Sousa <msousa@fe.up.pt>
parents: 330
diff changeset
   292
    /* 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
   293
    //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
   294
        
2c3c4dc34979 Support for semantic verification of calls to standard functions.
Mario de Sousa <msousa@fe.up.pt>
parents: 330
diff changeset
   295
    /* already handled by iterator base class (note that generate_c_base_c inherits from iterator_c) */
2c3c4dc34979 Support for semantic verification of calls to standard functions.
Mario de Sousa <msousa@fe.up.pt>
parents: 330
diff changeset
   296
    //void *visit(input_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
   297
2c3c4dc34979 Support for semantic verification of calls to standard functions.
Mario de Sousa <msousa@fe.up.pt>
parents: 330
diff changeset
   298
    void *visit(edge_declaration_c *symbol) {
2c3c4dc34979 Support for semantic verification of calls to standard functions.
Mario de Sousa <msousa@fe.up.pt>
parents: 330
diff changeset
   299
      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
   300
      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
   301
      current_type = NULL; 
2c3c4dc34979 Support for semantic verification of calls to standard functions.
Mario de Sousa <msousa@fe.up.pt>
parents: 330
diff changeset
   302
      return NULL;
2c3c4dc34979 Support for semantic verification of calls to standard functions.
Mario de Sousa <msousa@fe.up.pt>
parents: 330
diff changeset
   303
    }
2c3c4dc34979 Support for semantic verification of calls to standard functions.
Mario de Sousa <msousa@fe.up.pt>
parents: 330
diff changeset
   304
    
2c3c4dc34979 Support for semantic verification of calls to standard functions.
Mario de Sousa <msousa@fe.up.pt>
parents: 330
diff changeset
   305
    /* 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
   306
    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
   307
2c3c4dc34979 Support for semantic verification of calls to standard functions.
Mario de Sousa <msousa@fe.up.pt>
parents: 330
diff changeset
   308
    /* 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
   309
    //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
   310
    
2c3c4dc34979 Support for semantic verification of calls to standard functions.
Mario de Sousa <msousa@fe.up.pt>
parents: 330
diff changeset
   311
    /* 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
   312
    //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
   313
2c3c4dc34979 Support for semantic verification of calls to standard functions.
Mario de Sousa <msousa@fe.up.pt>
parents: 330
diff changeset
   314
    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
   315
      /* 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
   316
      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
   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
    /* 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
   320
    /* 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
   321
    /* 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
   322
     * 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
   323
     */
2c3c4dc34979 Support for semantic verification of calls to standard functions.
Mario de Sousa <msousa@fe.up.pt>
parents: 330
diff changeset
   324
    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
   325
2c3c4dc34979 Support for semantic verification of calls to standard functions.
Mario de Sousa <msousa@fe.up.pt>
parents: 330
diff changeset
   326
    /* 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
   327
    /* 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
   328
    /* 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
   329
     * 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
   330
     */
2c3c4dc34979 Support for semantic verification of calls to standard functions.
Mario de Sousa <msousa@fe.up.pt>
parents: 330
diff changeset
   331
    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
   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_array_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(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
   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_structured_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(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
   346
2c3c4dc34979 Support for semantic verification of calls to standard functions.
Mario de Sousa <msousa@fe.up.pt>
parents: 330
diff changeset
   347
    /* 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
   348
    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
   349
2c3c4dc34979 Support for semantic verification of calls to standard functions.
Mario de Sousa <msousa@fe.up.pt>
parents: 330
diff changeset
   350
    /* 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
   351
    //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
   352
2c3c4dc34979 Support for semantic verification of calls to standard functions.
Mario de Sousa <msousa@fe.up.pt>
parents: 330
diff changeset
   353
    /* 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
   354
    //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
   355
2c3c4dc34979 Support for semantic verification of calls to standard functions.
Mario de Sousa <msousa@fe.up.pt>
parents: 330
diff changeset
   356
    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
   357
      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
   358
      return NULL;
2c3c4dc34979 Support for semantic verification of calls to standard functions.
Mario de Sousa <msousa@fe.up.pt>
parents: 330
diff changeset
   359
    }
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
    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
   362
      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
   363
      return NULL;
2c3c4dc34979 Support for semantic verification of calls to standard functions.
Mario de Sousa <msousa@fe.up.pt>
parents: 330
diff changeset
   364
    }
2c3c4dc34979 Support for semantic verification of calls to standard functions.
Mario de Sousa <msousa@fe.up.pt>
parents: 330
diff changeset
   365
2c3c4dc34979 Support for semantic verification of calls to standard functions.
Mario de Sousa <msousa@fe.up.pt>
parents: 330
diff changeset
   366
    /* 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
   367
    /* 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
   368
    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
   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(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
   371
      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
   372
      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
   373
      current_type = NULL; 
2c3c4dc34979 Support for semantic verification of calls to standard functions.
Mario de Sousa <msousa@fe.up.pt>
parents: 330
diff changeset
   374
      return NULL;
2c3c4dc34979 Support for semantic verification of calls to standard functions.
Mario de Sousa <msousa@fe.up.pt>
parents: 330
diff changeset
   375
    }
2c3c4dc34979 Support for semantic verification of calls to standard functions.
Mario de Sousa <msousa@fe.up.pt>
parents: 330
diff changeset
   376
2c3c4dc34979 Support for semantic verification of calls to standard functions.
Mario de Sousa <msousa@fe.up.pt>
parents: 330
diff changeset
   377
    /* 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
   378
    /* 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
   379
    /* 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
   380
     *   STRING [ 42 ]
2c3c4dc34979 Support for semantic verification of calls to standard functions.
Mario de Sousa <msousa@fe.up.pt>
parents: 330
diff changeset
   381
     */
2c3c4dc34979 Support for semantic verification of calls to standard functions.
Mario de Sousa <msousa@fe.up.pt>
parents: 330
diff changeset
   382
    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
   383
2c3c4dc34979 Support for semantic verification of calls to standard functions.
Mario de Sousa <msousa@fe.up.pt>
parents: 330
diff changeset
   384
    /* 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
   385
    /* 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
   386
    /* 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
   387
     *   WSTRING [ 42 ]
2c3c4dc34979 Support for semantic verification of calls to standard functions.
Mario de Sousa <msousa@fe.up.pt>
parents: 330
diff changeset
   388
     */
2c3c4dc34979 Support for semantic verification of calls to standard functions.
Mario de Sousa <msousa@fe.up.pt>
parents: 330
diff changeset
   389
    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
   390
};
2c3c4dc34979 Support for semantic verification of calls to standard functions.
Mario de Sousa <msousa@fe.up.pt>
parents: 330
diff changeset
   391
    
2c3c4dc34979 Support for semantic verification of calls to standard functions.
Mario de Sousa <msousa@fe.up.pt>
parents: 330
diff changeset
   392
2c3c4dc34979 Support for semantic verification of calls to standard functions.
Mario de Sousa <msousa@fe.up.pt>
parents: 330
diff changeset
   393
/***********************************************************************/
2c3c4dc34979 Support for semantic verification of calls to standard functions.
Mario de Sousa <msousa@fe.up.pt>
parents: 330
diff changeset
   394
/***********************************************************************/
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
/***********************************************************************/
2c3c4dc34979 Support for semantic verification of calls to standard functions.
Mario de Sousa <msousa@fe.up.pt>
parents: 330
diff changeset
   397
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
   398
/* 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
   399
/* '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
   400
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
   401
  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
   402
    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
   403
efb44e892582 Fix bug: allow use, as lvalues, structures/arrays inside FBs (e.g. fb1.struct1.r := 33.3).
Mario de Sousa <msousa@fe.up.pt>
parents: 816
diff changeset
   404
  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
   405
    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
   406
    
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
   407
    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
   408
      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
   409
      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
   410
      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
   411
              || 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
   412
             );
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
    }
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
   414
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
   415
    
06820d03a433 Fix bug: correctly generate code when accessing external variables declared inside FBs as a structured variable (realvar := fb1.fb2.extvar1.realvar)
Mario de Sousa <msousa@fe.up.pt>
parents: 854
diff changeset
   416
  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
   417
    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
   418
06820d03a433 Fix bug: correctly generate code when accessing external variables declared inside FBs as a structured variable (realvar := fb1.fb2.extvar1.realvar)
Mario de Sousa <msousa@fe.up.pt>
parents: 854
diff changeset
   419
  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
   420
    /* 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
   421
    /* 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
   422
     *      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
   423
     *      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
   424
     *      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
   425
     */
06820d03a433 Fix bug: correctly generate code when accessing external variables declared inside FBs as a structured variable (realvar := fb1.fb2.extvar1.realvar)
Mario de Sousa <msousa@fe.up.pt>
parents: 854
diff changeset
   426
    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
   427
      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
   428
      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
   429
      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
   430
      
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
      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
   432
      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
   433
      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
   434
    }
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
    
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
   436
    /* 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
   437
    /* 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
   438
     *      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
   439
     *      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
   440
     *      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
   441
     */
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
   442
    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
   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
      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
   445
      
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
      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
   447
      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
   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
    
06820d03a433 Fix bug: correctly generate code when accessing external variables declared inside FBs as a structured variable (realvar := fb1.fb2.extvar1.realvar)
Mario de Sousa <msousa@fe.up.pt>
parents: 854
diff changeset
   450
    
06820d03a433 Fix bug: correctly generate code when accessing external variables declared inside FBs as a structured variable (realvar := fb1.fb2.extvar1.realvar)
Mario de Sousa <msousa@fe.up.pt>
parents: 854
diff changeset
   451
    /* 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
   452
    /* 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
   453
     *      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
   454
     *      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
   455
     *      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
   456
     */
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
    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
   458
      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
   459
      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
   460
      
06820d03a433 Fix bug: correctly generate code when accessing external variables declared inside FBs as a structured variable (realvar := fb1.fb2.extvar1.realvar)
Mario de Sousa <msousa@fe.up.pt>
parents: 854
diff changeset
   461
      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
   462
      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
   463
        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
   464
        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
   465
      }
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
      
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
      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
   468
      
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
      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
   470
    }
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
   471
    
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
   472
    
853
818c4ac5d64d Fix bug-fix of previous commit.
Mario de Sousa <msousa@fe.up.pt>
parents: 852
diff changeset
   473
    /*********************/
818c4ac5d64d Fix bug-fix of previous commit.
Mario de Sousa <msousa@fe.up.pt>
parents: 852
diff changeset
   474
    /* B 1.4 - Variables */
818c4ac5d64d Fix bug-fix of previous commit.
Mario de Sousa <msousa@fe.up.pt>
parents: 852
diff changeset
   475
    /*********************/
818c4ac5d64d Fix bug-fix of previous commit.
Mario de Sousa <msousa@fe.up.pt>
parents: 852
diff changeset
   476
    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
   477
      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
   478
      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
   479
         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
   480
         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
   481
      }
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
      last_fb = symbol;
853
818c4ac5d64d Fix bug-fix of previous commit.
Mario de Sousa <msousa@fe.up.pt>
parents: 852
diff changeset
   483
      return NULL;
818c4ac5d64d Fix bug-fix of previous commit.
Mario de Sousa <msousa@fe.up.pt>
parents: 852
diff changeset
   484
    }
818c4ac5d64d Fix bug-fix of previous commit.
Mario de Sousa <msousa@fe.up.pt>
parents: 852
diff changeset
   485
    
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
   486
    /*************************************/
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
   487
    /* 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
   488
    /*************************************/
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
   489
    
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
   490
    // 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
   491
    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
   492
      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
   493
      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
   494
      
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
      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
   496
      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
   497
         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
   498
         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
   499
      }
06820d03a433 Fix bug: correctly generate code when accessing external variables declared inside FBs as a structured variable (realvar := fb1.fb2.extvar1.realvar)
Mario de Sousa <msousa@fe.up.pt>
parents: 854
diff changeset
   500
06820d03a433 Fix bug: correctly generate code when accessing external variables declared inside FBs as a structured variable (realvar := fb1.fb2.extvar1.realvar)
Mario de Sousa <msousa@fe.up.pt>
parents: 854
diff changeset
   501
      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
   502
      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
   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
    
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
    /*  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
   506
    //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
   507
    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
   508
      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
   509
      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
   510
      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
   511
    }
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
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
    
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
   514
};
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
   515
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
   516
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
   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
/***********************************************************************/
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
/***********************************************************************/
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
/***********************************************************************/
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
   522
350
2c3c4dc34979 Support for semantic verification of calls to standard functions.
Mario de Sousa <msousa@fe.up.pt>
parents: 330
diff changeset
   523
70
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
   524
#include "generate_c_st.cc"
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
   525
#include "generate_c_il.cc"
217
f5dfadf5de54 Adding support for declare, init, get and set macros
laurent
parents: 210
diff changeset
   526
#include "generate_c_inlinefcall.cc"
70
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
   527
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
   528
/***********************************************************************/
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
   529
/***********************************************************************/
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
   530
/***********************************************************************/
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
   531
/***********************************************************************/
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
   532
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
   533
#define MILLISECOND 1000000
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
   534
#define SECOND 1000 * MILLISECOND
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
   535
594
c8092e909886 Clean up code (remove parsing of integers in stage 4).
Mario de Sousa <msousa@fe.up.pt>
parents: 592
diff changeset
   536
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
   537
  if (NULL == symbol) return 0;
70
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
   538
  
594
c8092e909886 Clean up code (remove parsing of integers in stage 4).
Mario de Sousa <msousa@fe.up.pt>
parents: 592
diff changeset
   539
  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
   540
  duration_c *duration = dynamic_cast<duration_c *>(symbol);
70
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
   541
  
632
76c3d707ffa1 Adding error message when task interval value is not supported
Laurent Bessard
parents: 631
diff changeset
   542
  if ((NULL == interval) && (NULL == duration))
631
1a4f5ce62962 Adding error message when task interval value is not supported
Laurent Bessard
parents: 625
diff changeset
   543
  	  {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
   544
c8092e909886 Clean up code (remove parsing of integers in stage 4).
Mario de Sousa <msousa@fe.up.pt>
parents: 592
diff changeset
   545
  if (NULL != duration) {
70
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
   546
    /* 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
   547
    if (duration->neg != NULL)
631
1a4f5ce62962 Adding error message when task interval value is not supported
Laurent Bessard
parents: 625
diff changeset
   548
      {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
   549
    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
   550
  }
c8092e909886 Clean up code (remove parsing of integers in stage 4).
Mario de Sousa <msousa@fe.up.pt>
parents: 592
diff changeset
   551
c8092e909886 Clean up code (remove parsing of integers in stage 4).
Mario de Sousa <msousa@fe.up.pt>
parents: 592
diff changeset
   552
  if (NULL != interval) {
547
dab341e80664 Fix parsing os TIME literals & rename the extract_integer() function.
mjsousa <msousa@fe.up.pt>
parents: 522
diff changeset
   553
    /* 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
   554
      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
   555
      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
   556
      /*
c8092e909886 Clean up code (remove parsing of integers in stage 4).
Mario de Sousa <msousa@fe.up.pt>
parents: 592
diff changeset
   557
      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
   558
      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
   559
      */
c8092e909886 Clean up code (remove parsing of integers in stage 4).
Mario de Sousa <msousa@fe.up.pt>
parents: 592
diff changeset
   560
      
c8092e909886 Clean up code (remove parsing of integers in stage 4).
Mario de Sousa <msousa@fe.up.pt>
parents: 592
diff changeset
   561
      if (NULL != interval->milliseconds) {
c8092e909886 Clean up code (remove parsing of integers in stage 4).
Mario de Sousa <msousa@fe.up.pt>
parents: 592
diff changeset
   562
        if      (VALID_CVALUE( int64, interval->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
   563
        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
   564
        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
   565
        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
   566
        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
   567
      }
547
dab341e80664 Fix parsing os TIME literals & rename the extract_integer() function.
mjsousa <msousa@fe.up.pt>
parents: 522
diff changeset
   568
   
594
c8092e909886 Clean up code (remove parsing of integers in stage 4).
Mario de Sousa <msousa@fe.up.pt>
parents: 592
diff changeset
   569
      if (NULL != interval->seconds     ) {
c8092e909886 Clean up code (remove parsing of integers in stage 4).
Mario de Sousa <msousa@fe.up.pt>
parents: 592
diff changeset
   570
        if      (VALID_CVALUE( int64, interval->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
   571
        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
   572
        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
   573
        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
   574
        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
   575
      }
c8092e909886 Clean up code (remove parsing of integers in stage 4).
Mario de Sousa <msousa@fe.up.pt>
parents: 592
diff changeset
   576
c8092e909886 Clean up code (remove parsing of integers in stage 4).
Mario de Sousa <msousa@fe.up.pt>
parents: 592
diff changeset
   577
      if (NULL != interval->minutes     ) {
c8092e909886 Clean up code (remove parsing of integers in stage 4).
Mario de Sousa <msousa@fe.up.pt>
parents: 592
diff changeset
   578
        if      (VALID_CVALUE( int64, interval->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
   579
        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
   580
        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
   581
        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
   582
        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
   583
      }
c8092e909886 Clean up code (remove parsing of integers in stage 4).
Mario de Sousa <msousa@fe.up.pt>
parents: 592
diff changeset
   584
c8092e909886 Clean up code (remove parsing of integers in stage 4).
Mario de Sousa <msousa@fe.up.pt>
parents: 592
diff changeset
   585
      if (NULL != interval->hours       ) {
c8092e909886 Clean up code (remove parsing of integers in stage 4).
Mario de Sousa <msousa@fe.up.pt>
parents: 592
diff changeset
   586
        if      (VALID_CVALUE( int64, interval->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
   587
        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
   588
        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
   589
        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
   590
        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
   591
      }
c8092e909886 Clean up code (remove parsing of integers in stage 4).
Mario de Sousa <msousa@fe.up.pt>
parents: 592
diff changeset
   592
c8092e909886 Clean up code (remove parsing of integers in stage 4).
Mario de Sousa <msousa@fe.up.pt>
parents: 592
diff changeset
   593
      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
   594
        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
   595
        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
   596
        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
   597
        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
   598
        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
   599
      }
c8092e909886 Clean up code (remove parsing of integers in stage 4).
Mario de Sousa <msousa@fe.up.pt>
parents: 592
diff changeset
   600
c8092e909886 Clean up code (remove parsing of integers in stage 4).
Mario de Sousa <msousa@fe.up.pt>
parents: 592
diff changeset
   601
      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
   602
      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
   603
  };
c8092e909886 Clean up code (remove parsing of integers in stage 4).
Mario de Sousa <msousa@fe.up.pt>
parents: 592
diff changeset
   604
  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
   605
  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
   606
}
70
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
   607
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
   608
/***********************************************************************/
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
   609
/***********************************************************************/
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
   610
/***********************************************************************/
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
   611
/***********************************************************************/
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
   612
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
   613
class calculate_common_ticktime_c: public iterator_visitor_c {
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
   614
  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
   615
    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
   616
    unsigned long long least_common_ticktime;
70
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
   617
    
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
   618
  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
   619
    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
   620
      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
   621
      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
   622
    }
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
   623
    
8387cac2aba6 Adding support for forcing tick count to return to zero as the same time than all tasks firing are synchronized
laurent
parents: 202
diff changeset
   624
    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
   625
      unsigned long long c = a % b;
70
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
   626
      if (c == 0)
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
   627
        return b;
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
   628
      else
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
   629
        return euclide(b, c);
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
   630
    }
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
   631
    
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
   632
    void update_ticktime(unsigned long long time) {
70
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
   633
      if (common_ticktime == 0)
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
   634
        common_ticktime = time;
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
   635
      else if (time > common_ticktime)
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
   636
        common_ticktime = euclide(time, common_ticktime);
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
   637
      else
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
   638
        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
   639
      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
   640
        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
   641
      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
   642
        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
   643
    }
8387cac2aba6 Adding support for forcing tick count to return to zero as the same time than all tasks firing are synchronized
laurent
parents: 202
diff changeset
   644
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
   645
    unsigned long long get_common_ticktime(void) {
70
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
   646
      return common_ticktime;
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
   647
    }
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
   648
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
   649
    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
   650
      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
   651
      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
   652
        ERROR;
237
cece842c7417 Adding support for using arrays in POU interface
laurent
parents: 234
diff changeset
   653
      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
   654
    }
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
70
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
   656
/*  TASK task_name task_initialization */
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
   657
//SYM_REF2(task_configuration_c, task_name, task_initialization)  
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
   658
    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
   659
      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
   660
    	  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
   661
    	  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
   662
    	  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
   663
      }
70
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
   664
      return NULL;
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
   665
    }
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
   666
};    
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
   667
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
   668
/***********************************************************************/
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
   669
/***********************************************************************/
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
   670
/***********************************************************************/
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
   671
/***********************************************************************/
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
   672
217
f5dfadf5de54 Adding support for declare, init, get and set macros
laurent
parents: 210
diff changeset
   673
/* 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
   674
class generate_c_SFC_IL_ST_c: public null_visitor_c {
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
   675
  private:
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
   676
    stage4out_c *s4o_ptr;
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
   677
    symbol_c *scope;
217
f5dfadf5de54 Adding support for declare, init, get and set macros
laurent
parents: 210
diff changeset
   678
    symbol_c *fbname;
70
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
   679
    const char *variable_prefix;
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
   680
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
   681
  public:
217
f5dfadf5de54 Adding support for declare, init, get and set macros
laurent
parents: 210
diff changeset
   682
    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
   683
    
0a1204bcc9af starting to add proper header file with declaration of standard functions
Mario de Sousa <msousa@fe.up.pt>
parents: 262
diff changeset
   684
    /********************/
0a1204bcc9af starting to add proper header file with declaration of standard functions
Mario de Sousa <msousa@fe.up.pt>
parents: 262
diff changeset
   685
    /* 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
   686
    /********************/
0a1204bcc9af starting to add proper header file with declaration of standard functions
Mario de Sousa <msousa@fe.up.pt>
parents: 262
diff changeset
   687
    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
   688
    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
   689
    
70
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
   690
    /*********************************************/
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
   691
    /* B.1.6  Sequential function chart elements */
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
   692
    /*********************************************/
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
   693
    /*| sequential_function_chart sfc_network*/
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
   694
    void *visit(sequential_function_chart_c * symbol);
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
   695
    
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
   696
    /****************************************/
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
   697
    /* B.2 - Language IL (Instruction List) */
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
   698
    /****************************************/
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
   699
    
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
   700
    /***********************************/
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
   701
    /* B 2.1 Instructions and Operands */
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
   702
    /***********************************/
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
   703
    /*| instruction_list il_instruction */
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
   704
    void *visit(instruction_list_c *symbol);
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
   705
    
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
   706
    /* Remainder implemented in generate_c_il_c... */
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
   707
    
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
   708
    /***************************************/
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
   709
    /* B.3 - Language ST (Structured Text) */
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
   710
    /***************************************/
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
   711
    /***********************/
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
   712
    /* B 3.1 - Expressions */
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
   713
    /***********************/
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
   714
    /* Implemented in generate_c_st_c */
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
   715
    
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
   716
    /********************/
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
   717
    /* B 3.2 Statements */
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
   718
    /********************/
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
   719
    void *visit(statement_list_c *symbol);
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
   720
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
   721
/* Remainder implemented in generate_c_st_c... */
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
   722
};
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
   723
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
   724
#include "generate_c_sfc.cc"
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
   725
217
f5dfadf5de54 Adding support for declare, init, get and set macros
laurent
parents: 210
diff changeset
   726
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
   727
  if (NULL == scope) ERROR;
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
   728
  this->s4o_ptr = s4o_ptr;
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
   729
  this->scope = scope;
217
f5dfadf5de54 Adding support for declare, init, get and set macros
laurent
parents: 210
diff changeset
   730
  this->fbname = name;
70
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
   731
  this->variable_prefix = variable_prefix;
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
   732
}
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
   733
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
   734
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
   735
  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
   736
  generate_c_sfc.generate(symbol);
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
   737
  return NULL;
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
   738
}
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
   739
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
   740
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
   741
  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
   742
  generate_c_il.generate(symbol);
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
   743
  return NULL;
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
   744
}
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
   745
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
   746
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
   747
  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
   748
  generate_c_st.generate(symbol);
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
   749
  return NULL;
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
   750
}
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
   751
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
   752
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
   753
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
   754
913
1c74da17cb61 Implicitly defined array datatypes use new naming method (greatly simplifies stage 4 code).
mjsousa
parents: 908
diff changeset
   755
1c74da17cb61 Implicitly defined array datatypes use new naming method (greatly simplifies stage 4 code).
mjsousa
parents: 908
diff changeset
   756
1c74da17cb61 Implicitly defined array datatypes use new naming method (greatly simplifies stage 4 code).
mjsousa
parents: 908
diff changeset
   757
1c74da17cb61 Implicitly defined array datatypes use new naming method (greatly simplifies stage 4 code).
mjsousa
parents: 908
diff changeset
   758
1c74da17cb61 Implicitly defined array datatypes use new naming method (greatly simplifies stage 4 code).
mjsousa
parents: 908
diff changeset
   759
377
60b012b7793f Adding support for compiling direct array specification inside variable declaration
laurent
parents: 355
diff changeset
   760
/***********************************************************************/
60b012b7793f Adding support for compiling direct array specification inside variable declaration
laurent
parents: 355
diff changeset
   761
/***********************************************************************/
60b012b7793f Adding support for compiling direct array specification inside variable declaration
laurent
parents: 355
diff changeset
   762
/***********************************************************************/
60b012b7793f Adding support for compiling direct array specification inside variable declaration
laurent
parents: 355
diff changeset
   763
/***********************************************************************/
60b012b7793f Adding support for compiling direct array specification inside variable declaration
laurent
parents: 355
diff changeset
   764
/***********************************************************************/
60b012b7793f Adding support for compiling direct array specification inside variable declaration
laurent
parents: 355
diff changeset
   765
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
   766
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
   767
  /* 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
   768
   * 
c3edb882a4b2 code re-organisation. Preparing for the changes to come in the next commit (one C file for each POU)
mjsousa
parents: 906
diff changeset
   769
   *       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
   770
   */ 
c3edb882a4b2 code re-organisation. Preparing for the changes to come in the next commit (one C file for each POU)
mjsousa
parents: 906
diff changeset
   771
267
0a1204bcc9af starting to add proper header file with declaration of standard functions
Mario de Sousa <msousa@fe.up.pt>
parents: 262
diff changeset
   772
  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
   773
    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
   774
      /* 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
   775
       * 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
   776
       * 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
   777
       */
214d3fdee596 fixing C code generation of return_statement_c and exit_statement_c
Mario de Sousa <msousa@fe.up.pt>
parents: 279
diff changeset
   778
      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
   779
      /* 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
   780
      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
   781
      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
   782
      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
   783
      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
   784
      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
   785
214d3fdee596 fixing C code generation of return_statement_c and exit_statement_c
Mario de Sousa <msousa@fe.up.pt>
parents: 279
diff changeset
   786
      /* 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
   787
      /* 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
   788
      /* 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
   789
      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
   790
      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
   791
      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
   792
      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
   793
      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
   794
    }
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
  
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
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
   797
    /*************/
c3edb882a4b2 code re-organisation. Preparing for the changes to come in the next commit (one C file for each POU)
mjsousa
parents: 906
diff changeset
   798
    /* 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
   799
    /*************/
70
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
   800
  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
   801
    /* 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
   802
     *         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
   803
     *                     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
   804
     *         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
   805
     *                     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
   806
     */
c3edb882a4b2 code re-organisation. Preparing for the changes to come in the next commit (one C file for each POU)
mjsousa
parents: 906
diff changeset
   807
    /*   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
   808
    /* | 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
   809
    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
   810
      generate_c_vardecl_c          *vardecl = NULL;
477393b00f95 Add support for relaxed datatype model for array datatypes.
mjsousa
parents: 933
diff changeset
   811
      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
   812
      
c3edb882a4b2 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
      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
   814
    
c3edb882a4b2 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
      /* (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
   816
      /* (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
   817
      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
   818
      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
   819
      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
   820
      /* (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
   821
      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
   822
      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
   823
    
c3edb882a4b2 code re-organisation. Preparing for the changes to come in the next commit (one C file for each POU)
mjsousa
parents: 906
diff changeset
   824
      /* (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
   825
      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
   826
      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
   827
                                         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
   828
                                         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
   829
                                         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
   830
                                         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
   831
                                         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
   832
                                         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
   833
      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
   834
      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
   835
      
c3edb882a4b2 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.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
   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
      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
   839
      
c3edb882a4b2 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
      /* 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
   841
      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
   842
        {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
   843
      
c3edb882a4b2 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
      /* 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
   845
      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
   846
    
c3edb882a4b2 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
      /* (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
   848
      /* (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
   849
      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
   850
      
c3edb882a4b2 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
      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
   852
                    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
   853
                    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
   854
                    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
   855
                    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
   856
                    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
   857
      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
   858
      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
   859
    
c3edb882a4b2 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
      /* (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
   861
      /* It will have the same name as the function itself! */
c3edb882a4b2 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
      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
   863
      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
   864
      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
   865
      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
   866
      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
   867
      {
c3edb882a4b2 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
        /* get the default value of this variable's 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
   869
        symbol_c *default_value = type_initial_value_c::get(symbol->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
   870
        if (default_value == NULL) ERROR;
c3edb882a4b2 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
        initialization_analyzer_c initialization_analyzer(default_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
   872
        switch (initialization_analyzer.get_initialization_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
   873
          case initialization_analyzer_c::struct_it:
c3edb882a4b2 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
            {
c3edb882a4b2 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
              generate_c_structure_initialization_c *structure_initialization = new generate_c_structure_initialization_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
   876
              structure_initialization->init_structure_default(symbol->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
   877
              structure_initialization->init_structure_values(default_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
   878
              delete structure_initialization;
c3edb882a4b2 code re-organisation. Preparing for the changes to come in the next commit (one C file for each POU)
mjsousa
parents: 906
diff changeset
   879
            }
c3edb882a4b2 code re-organisation. Preparing for the changes to come in the next commit (one C file for each POU)
mjsousa
parents: 906
diff changeset
   880
            break;
c3edb882a4b2 code re-organisation. Preparing for the changes to come in the next commit (one C file for each POU)
mjsousa
parents: 906
diff changeset
   881
          case initialization_analyzer_c::array_it:
c3edb882a4b2 code re-organisation. Preparing for the changes to come in the next commit (one C file for each POU)
mjsousa
parents: 906
diff changeset
   882
            {
c3edb882a4b2 code re-organisation. Preparing for the changes to come in the next commit (one C file for each POU)
mjsousa
parents: 906
diff changeset
   883
              generate_c_array_initialization_c *array_initialization = new generate_c_array_initialization_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
   884
              array_initialization->init_array_size(symbol->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
   885
              array_initialization->init_array_values(default_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
   886
              delete array_initialization;
c3edb882a4b2 code re-organisation. Preparing for the changes to come in the next commit (one C file for each POU)
mjsousa
parents: 906
diff changeset
   887
            }
c3edb882a4b2 code re-organisation. Preparing for the changes to come in the next commit (one C file for each POU)
mjsousa
parents: 906
diff changeset
   888
            break;
c3edb882a4b2 code re-organisation. Preparing for the changes to come in the next commit (one C file for each POU)
mjsousa
parents: 906
diff changeset
   889
          default:
c3edb882a4b2 code re-organisation. Preparing for the changes to come in the next commit (one C file for each POU)
mjsousa
parents: 906
diff changeset
   890
            default_value->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
   891
            break;
c3edb882a4b2 code re-organisation. Preparing for the changes to come in the next commit (one C file for each POU)
mjsousa
parents: 906
diff changeset
   892
        }
c3edb882a4b2 code re-organisation. Preparing for the changes to come in the next commit (one C file for each POU)
mjsousa
parents: 906
diff changeset
   893
      }
c3edb882a4b2 code re-organisation. Preparing for the changes to come in the next commit (one C file for each POU)
mjsousa
parents: 906
diff changeset
   894
      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
   895
      
c3edb882a4b2 code re-organisation. Preparing for the changes to come in the next commit (one C file for each POU)
mjsousa
parents: 906
diff changeset
   896
      s4o.print(s4o.indent_spaces + "// Control execution\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
   897
      s4o.print(s4o.indent_spaces + "if (!EN) {\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
   898
      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
   899
      s4o.print(s4o.indent_spaces + "if (__ENO != NULL) {\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
   900
      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
   901
      s4o.print(s4o.indent_spaces + "*__ENO = __BOOL_LITERAL(FALSE);\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
   902
      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
   903
      s4o.print(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
   904
      s4o.print(s4o.indent_spaces + "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
   905
      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
   906
      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
   907
      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
   908
      s4o.print(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
   909
    
c3edb882a4b2 code re-organisation. Preparing for the changes to come in the next commit (one C file for each POU)
mjsousa
parents: 906
diff changeset
   910
      /* (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
   911
      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
   912
      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
   913
      
c3edb882a4b2 code re-organisation. Preparing for the changes to come in the next commit (one C file for each POU)
mjsousa
parents: 906
diff changeset
   914
      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
   915
      
c3edb882a4b2 code re-organisation. Preparing for the changes to come in the next commit (one C file for each POU)
mjsousa
parents: 906
diff changeset
   916
      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
   917
                    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
   918
                    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
   919
                    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
   920
                    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
   921
      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
   922
      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
   923
      
c3edb882a4b2 code re-organisation. Preparing for the changes to come in the next commit (one C file for each POU)
mjsousa
parents: 906
diff changeset
   924
      s4o.print(s4o.indent_spaces + "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
   925
      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
   926
      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
   927
      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
   928
      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
   929
    
c3edb882a4b2 code re-organisation. Preparing for the changes to come in the next commit (one C file for each POU)
mjsousa
parents: 906
diff changeset
   930
      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
   931
    }
c3edb882a4b2 code re-organisation. Preparing for the changes to come in the next commit (one C file for each POU)
mjsousa
parents: 906
diff changeset
   932
    
c3edb882a4b2 code re-organisation. Preparing for the changes to come in the next commit (one C file for each POU)
mjsousa
parents: 906
diff changeset
   933
    
c3edb882a4b2 code re-organisation. Preparing for the changes to come in the next commit (one C file for each POU)
mjsousa
parents: 906
diff changeset
   934
    /*******************/
c3edb882a4b2 code re-organisation. Preparing for the changes to come in the next commit (one C file for each POU)
mjsousa
parents: 906
diff changeset
   935
    /* 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
   936
    /*******************/
c3edb882a4b2 code re-organisation. Preparing for the changes to come in the next commit (one C file for each POU)
mjsousa
parents: 906
diff changeset
   937
  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
   938
    /* 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
   939
     *         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
   940
     *                     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
   941
     *         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
   942
     *                     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
   943
     */
c3edb882a4b2 code re-organisation. Preparing for the changes to come in the next commit (one C file for each POU)
mjsousa
parents: 906
diff changeset
   944
    /*  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
   945
    //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
   946
    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
   947
      generate_c_vardecl_c          *vardecl;
477393b00f95 Add support for relaxed datatype model for array datatypes.
mjsousa
parents: 933
diff changeset
   948
      generate_c_sfcdecl_c          *sfcdecl;
477393b00f95 Add support for relaxed datatype model for array datatypes.
mjsousa
parents: 933
diff changeset
   949
      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
   950
      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
   951
    
c3edb882a4b2 code re-organisation. Preparing for the changes to come in the next commit (one C file for each POU)
mjsousa
parents: 906
diff changeset
   952
      /* (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
   953
      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
   954
        /* (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
   955
        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
   956
        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
   957
        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
   958
        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
   959
        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
   960
c3edb882a4b2 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
        /* (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
   962
        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
   963
        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
   964
                                           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
   965
                                           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
   966
                                           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
   967
                                           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
   968
                                           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
   969
                                           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
   970
        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
   971
        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
   972
        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
   973
c3edb882a4b2 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
        /* (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
   975
        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
   976
        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
   977
                                           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
   978
                                           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
   979
                                           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
   980
                                           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
   981
                                           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
   982
        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
   983
        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
   984
        
c3edb882a4b2 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
        /* (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
   986
        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
   987
        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
   988
        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
   989
        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
   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
        /* (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
   992
        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
   993
        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
   994
        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
   995
        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
   996
      }
c3edb882a4b2 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
      
c3edb882a4b2 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
      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
   999
        /* (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
  1000
        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
  1001
        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
  1002
        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
  1003
      }
c3edb882a4b2 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
      
c3edb882a4b2 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
      /* (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
  1006
      /* (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
  1007
      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
  1008
      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
  1009
      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
  1010
      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
  1011
    
c3edb882a4b2 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
      /* 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
  1013
      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
  1014
      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
  1015
      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
  1016
      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
  1017
c3edb882a4b2 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
      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
  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
      } 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
  1021
        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
  1022
        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
  1023
      
c3edb882a4b2 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
        /* (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
  1025
        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
  1026
        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
  1027
                                           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
  1028
                                           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
  1029
                                           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
  1030
                                           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
  1031
                                           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
  1032
                                           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
  1033
                                           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
  1034
                                           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
  1035
                                           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
  1036
        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
  1037
        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
  1038
        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
  1039
            
c3edb882a4b2 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
        /* (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
  1041
        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
  1042
        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
  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
        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
  1045
        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
  1046
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
  1047
        /* (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
  1048
        /* (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
  1049
        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
  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
        /* (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
  1052
        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
  1053
        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
  1054
      }
c3edb882a4b2 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
      
c3edb882a4b2 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
      /* (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
  1057
      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
  1058
      /* 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
  1059
      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
  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(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
  1062
      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
  1063
      /* 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
  1064
      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
  1065
      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
  1066
      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
  1067
      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
  1068
c3edb882a4b2 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
      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
  1070
        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
  1071
      } 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
  1072
        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
  1073
        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
  1074
      
c3edb882a4b2 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
        s4o.print(s4o.indent_spaces + "// Control execution\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
  1076
        s4o.print(s4o.indent_spaces + "if (!");
c3edb882a4b2 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
        s4o.print(GET_VAR);
c3edb882a4b2 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
        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
  1079
        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
  1080
        s4o.print("->EN)) {\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
  1081
        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
  1082
        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
  1083
        s4o.print(SET_VAR);
c3edb882a4b2 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
        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
  1085
        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
  1086
        s4o.print("->,ENO,,__BOOL_LITERAL(FALSE));\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
  1087
        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
  1088
        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
  1089
        s4o.print(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
  1090
        s4o.print(s4o.indent_spaces + "else {\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
  1091
        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
  1092
        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
  1093
        s4o.print(SET_VAR);
c3edb882a4b2 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
        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
  1095
        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
  1096
        s4o.print("->,ENO,,__BOOL_LITERAL(TRUE));\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
  1097
        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
  1098
        s4o.print(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
  1099
      
c3edb882a4b2 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
        /* (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
  1101
        /* 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
  1102
        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
  1103
        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
  1104
                                           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
  1105
                                           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
  1106
        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
  1107
        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
  1108
        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
  1109
      
c3edb882a4b2 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
        /* (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
  1111
        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
  1112
        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
  1113
        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
  1114
        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
  1115
        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
  1116
        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
  1117
        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
  1118
        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
  1119
        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
  1120
      
c3edb882a4b2 code re-organisation. Preparing for the changes to come in the next commit (one C file for each POU)
mjsousa
parents: 906
diff changeset
  1121
        /* (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
  1122
        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
  1123
        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
  1124
      
c3edb882a4b2 code re-organisation. Preparing for the changes to come in the next commit (one C file for each POU)
mjsousa
parents: 906
diff changeset
  1125
        /* (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
  1126
        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
  1127
        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
  1128
      
c3edb882a4b2 code re-organisation. Preparing for the changes to come in the next commit (one C file for each POU)
mjsousa
parents: 906
diff changeset
  1129
        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
  1130
        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
  1131
      }
c3edb882a4b2 code re-organisation. Preparing for the changes to come in the next commit (one C file for each POU)
mjsousa
parents: 906
diff changeset
  1132
      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
  1133
    }
c3edb882a4b2 code re-organisation. Preparing for the changes to come in the next commit (one C file for each POU)
mjsousa
parents: 906
diff changeset
  1134
    
c3edb882a4b2 code re-organisation. Preparing for the changes to come in the next commit (one C file for each POU)
mjsousa
parents: 906
diff changeset
  1135
    
c3edb882a4b2 code re-organisation. Preparing for the changes to come in the next commit (one C file for each POU)
mjsousa
parents: 906
diff changeset
  1136
    /************/
c3edb882a4b2 code re-organisation. Preparing for the changes to come in the next commit (one C file for each POU)
mjsousa
parents: 906
diff changeset
  1137
    /* 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
  1138
    /************/
c3edb882a4b2 code re-organisation. Preparing for the changes to come in the next commit (one C file for each POU)
mjsousa
parents: 906
diff changeset
  1139
  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
  1140
    /* 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
  1141
     *         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
  1142
     *                     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
  1143
     *         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
  1144
     *                     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
  1145
     */
c3edb882a4b2 code re-organisation. Preparing for the changes to come in the next commit (one C file for each POU)
mjsousa
parents: 906
diff changeset
  1146
    /*  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
  1147
    //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
  1148
    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
  1149
      generate_c_vardecl_c          *vardecl;
477393b00f95 Add support for relaxed datatype model for array datatypes.
mjsousa
parents: 933
diff changeset
  1150
      generate_c_sfcdecl_c          *sfcdecl;
477393b00f95 Add support for relaxed datatype model for array datatypes.
mjsousa
parents: 933
diff changeset
  1151
      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
  1152
      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
  1153
    
c3edb882a4b2 code re-organisation. Preparing for the changes to come in the next commit (one C file for each POU)
mjsousa
parents: 906
diff changeset
  1154
      /* (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
  1155
      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
  1156
        /* (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
  1157
        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
  1158
        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
  1159
        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
  1160
        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
  1161
        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
  1162
      
c3edb882a4b2 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
        /* (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
  1164
        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
  1165
        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
  1166
                                           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
  1167
                                           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
  1168
                                           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
  1169
                                           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
  1170
        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
  1171
        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
  1172
        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
  1173
  
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
  1174
        /* (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
  1175
        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
  1176
        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
  1177
                      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
  1178
                      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
  1179
                      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
  1180
                      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
  1181
                      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
  1182
        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
  1183
        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
  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
        /* (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
  1186
        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
  1187
        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
  1188
        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
  1189
        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
  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
        /* (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
  1192
        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
  1193
        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
  1194
        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
  1195
        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
  1196
      }
c3edb882a4b2 code re-organisation. Preparing for the changes to come in the next commit (one C file for each POU)
mjsousa
parents: 906
diff changeset
  1197
      
c3edb882a4b2 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
      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
  1199
        /* (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
  1200
        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
  1201
        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
  1202
        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
  1203
      }
c3edb882a4b2 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
    
c3edb882a4b2 code re-organisation. Preparing for the changes to come in the next commit (one C file for each POU)
mjsousa
parents: 906
diff changeset
  1205
      /* (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
  1206
      /* (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
  1207
      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
  1208
      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
  1209
      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
  1210
      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
  1211
    
c3edb882a4b2 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
      /* 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
  1213
      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
  1214
      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
  1215
      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
  1216
      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
  1217
c3edb882a4b2 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
      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
  1219
        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
  1220
      } 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
  1221
        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
  1222
        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
  1223
      
c3edb882a4b2 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
        /* (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
  1225
        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
  1226
        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
  1227
                                           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
  1228
                                           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
  1229
                                           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
  1230
                                           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
  1231
                                           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
  1232
                                           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
  1233
                                           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
  1234
        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
  1235
        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
  1236
        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
  1237
      
c3edb882a4b2 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
        /* (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
  1239
        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
  1240
        sfcdecl->generate(symbol->function_block_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
  1241
        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
  1242
      
c3edb882a4b2 code re-organisation. Preparing for the changes to come in the next commit (one C file for each POU)
mjsousa
parents: 906
diff changeset
  1243
        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
  1244
        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
  1245
      }
c3edb882a4b2 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
      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
  1248
        /* (C) Function with PROGRAM 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
  1249
        /* (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
  1250
        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
  1251
        sfcdecl->generate(symbol->function_block_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
  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
        /* (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
  1254
        sfcdecl->generate(symbol->function_block_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
  1255
        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
  1256
      }
c3edb882a4b2 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
      
c3edb882a4b2 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
      /* (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
  1259
      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
  1260
      /* 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
  1261
      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
  1262
      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
  1263
      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
  1264
      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
  1265
      /* 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
  1266
      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
  1267
      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
  1268
      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
  1269
      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
  1270
c3edb882a4b2 code re-organisation. Preparing for the changes to come in the next commit (one C file for each POU)
mjsousa
parents: 906
diff changeset
  1271
      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
  1272
        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
  1273
      } 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
  1274
        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
  1275
        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
  1276
          
c3edb882a4b2 code re-organisation. Preparing for the changes to come in the next commit (one C file for each POU)
mjsousa
parents: 906
diff changeset
  1277
        /* (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
  1278
        /* 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
  1279
        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
  1280
        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
  1281
                                           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
  1282
                                           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
  1283
        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
  1284
        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
  1285
        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
  1286
      
c3edb882a4b2 code re-organisation. Preparing for the changes to come in the next commit (one C file for each POU)
mjsousa
parents: 906
diff changeset
  1287
        /* (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
  1288
        generate_c_SFC_IL_ST_c generate_c_code(&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
  1289
        symbol->function_block_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
  1290
        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
  1291
        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
  1292
        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
  1293
        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
  1294
        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
  1295
        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
  1296
        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
  1297
      
c3edb882a4b2 code re-organisation. Preparing for the changes to come in the next commit (one C file for each POU)
mjsousa
parents: 906
diff changeset
  1298
        /* (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
  1299
        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
  1300
        sfcdecl->generate(symbol->function_block_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
  1301
        
c3edb882a4b2 code re-organisation. Preparing for the changes to come in the next commit (one C file for each POU)
mjsousa
parents: 906
diff changeset
  1302
        /* (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
  1303
        sfcdecl->generate(symbol->function_block_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
  1304
        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
  1305
      
c3edb882a4b2 code re-organisation. Preparing for the changes to come in the next commit (one C file for each POU)
mjsousa
parents: 906
diff changeset
  1306
        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
  1307
        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
  1308
      }  
c3edb882a4b2 code re-organisation. Preparing for the changes to come in the next commit (one C file for each POU)
mjsousa
parents: 906
diff changeset
  1309
      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
  1310
    }
70
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  1311
}; /* generate_c_pous_c */
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  1312
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
  1313
    
70
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  1314
/***********************************************************************/
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  1315
/***********************************************************************/
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  1316
/***********************************************************************/
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  1317
/***********************************************************************/
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  1318
/***********************************************************************/
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  1319
/***********************************************************************/
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  1320
/***********************************************************************/
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  1321
/***********************************************************************/
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  1322
945
477393b00f95 Add support for relaxed datatype model for array datatypes.
mjsousa
parents: 933
diff changeset
  1323
class generate_c_config_c: public generate_c_base_and_typeid_c {
267
0a1204bcc9af starting to add proper header file with declaration of standard functions
Mario de Sousa <msousa@fe.up.pt>
parents: 262
diff changeset
  1324
    private:
860
7669a8d43c11 Code cleanup (part 2): generate_typedecl_c now only prints to POUS.h !
mjsousa
parents: 856
diff changeset
  1325
    stage4out_c &s4o_incl;
396
155560bfe837 Fixing bug with external variables refering to global variables defined in configurations
laurent
parents: 392
diff changeset
  1326
    
70
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  1327
    public:
396
155560bfe837 Fixing bug with external variables refering to global variables defined in configurations
laurent
parents: 392
diff changeset
  1328
    generate_c_config_c(stage4out_c *s4o_ptr, stage4out_c *s4o_incl_ptr)
945
477393b00f95 Add support for relaxed datatype model for array datatypes.
mjsousa
parents: 933
diff changeset
  1329
      : generate_c_base_and_typeid_c(s4o_ptr), s4o_incl(*s4o_incl_ptr) {
267
0a1204bcc9af starting to add proper header file with declaration of standard functions
Mario de Sousa <msousa@fe.up.pt>
parents: 262
diff changeset
  1330
    };
377
60b012b7793f Adding support for compiling direct array specification inside variable declaration
laurent
parents: 355
diff changeset
  1331
70
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  1332
    virtual ~generate_c_config_c(void) {}
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  1333
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  1334
    typedef enum {
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  1335
      initprotos_dt,
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  1336
      initdeclare_dt,
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  1337
      runprotos_dt,
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  1338
      rundeclare_dt
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  1339
    } declaretype_t;
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  1340
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  1341
    declaretype_t wanted_declaretype;
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  1342
267
0a1204bcc9af starting to add proper header file with declaration of standard functions
Mario de Sousa <msousa@fe.up.pt>
parents: 262
diff changeset
  1343
    
0a1204bcc9af starting to add proper header file with declaration of standard functions
Mario de Sousa <msousa@fe.up.pt>
parents: 262
diff changeset
  1344
public:
0a1204bcc9af starting to add proper header file with declaration of standard functions
Mario de Sousa <msousa@fe.up.pt>
parents: 262
diff changeset
  1345
/********************/
0a1204bcc9af starting to add proper header file with declaration of standard functions
Mario de Sousa <msousa@fe.up.pt>
parents: 262
diff changeset
  1346
/* 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
  1347
/********************/
396
155560bfe837 Fixing bug with external variables refering to global variables defined in configurations
laurent
parents: 392
diff changeset
  1348
void *visit(enable_code_generation_pragma_c * symbol)   {
860
7669a8d43c11 Code cleanup (part 2): generate_typedecl_c now only prints to POUS.h !
mjsousa
parents: 856
diff changeset
  1349
    s4o.enable_output();
7669a8d43c11 Code cleanup (part 2): generate_typedecl_c now only prints to POUS.h !
mjsousa
parents: 856
diff changeset
  1350
    s4o_incl.enable_output();
396
155560bfe837 Fixing bug with external variables refering to global variables defined in configurations
laurent
parents: 392
diff changeset
  1351
    return NULL;
155560bfe837 Fixing bug with external variables refering to global variables defined in configurations
laurent
parents: 392
diff changeset
  1352
}
155560bfe837 Fixing bug with external variables refering to global variables defined in configurations
laurent
parents: 392
diff changeset
  1353
155560bfe837 Fixing bug with external variables refering to global variables defined in configurations
laurent
parents: 392
diff changeset
  1354
void *visit(disable_code_generation_pragma_c * symbol)  {
860
7669a8d43c11 Code cleanup (part 2): generate_typedecl_c now only prints to POUS.h !
mjsousa
parents: 856
diff changeset
  1355
    s4o.disable_output();
7669a8d43c11 Code cleanup (part 2): generate_typedecl_c now only prints to POUS.h !
mjsousa
parents: 856
diff changeset
  1356
    s4o_incl.disable_output();    
396
155560bfe837 Fixing bug with external variables refering to global variables defined in configurations
laurent
parents: 392
diff changeset
  1357
    return NULL;
155560bfe837 Fixing bug with external variables refering to global variables defined in configurations
laurent
parents: 392
diff changeset
  1358
}
267
0a1204bcc9af starting to add proper header file with declaration of standard functions
Mario de Sousa <msousa@fe.up.pt>
parents: 262
diff changeset
  1359
    
0a1204bcc9af starting to add proper header file with declaration of standard functions
Mario de Sousa <msousa@fe.up.pt>
parents: 262
diff changeset
  1360
    
70
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  1361
/********************************/
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  1362
/* B 1.7 Configuration elements */
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  1363
/********************************/
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  1364
/*
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  1365
CONFIGURATION configuration_name
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  1366
   optional_global_var_declarations
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  1367
   (resource_declaration_list | single_resource_declaration)
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  1368
   optional_access_declarations
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  1369
   optional_instance_specific_initializations
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  1370
END_CONFIGURATION
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  1371
*/
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  1372
/*
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  1373
SYM_REF6(configuration_declaration_c, configuration_name, global_var_declarations, resource_declarations, access_declarations, instance_specific_initializations, unused)
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  1374
*/
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  1375
void *visit(configuration_declaration_c *symbol) {
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  1376
  generate_c_vardecl_c *vardecl;
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  1377
  
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  1378
  /* Insert the header... */
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  1379
  s4o.print("/*******************************************/\n");
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  1380
  s4o.print("/*     FILE GENERATED BY iec2c             */\n");
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  1381
  s4o.print("/* Editing this file is not recommended... */\n");
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  1382
  s4o.print("/*******************************************/\n\n");
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  1383
  s4o.print("#include \"iec_std_lib.h\"\n\n");
257
90782e241346 Huge change.
Mario de Sousa <msousa@fe.up.pt>
parents: 202
diff changeset
  1384
  s4o.print("#include \"accessor.h\"\n\n"); 
377
60b012b7793f Adding support for compiling direct array specification inside variable declaration
laurent
parents: 355
diff changeset
  1385
  s4o.print("#include \"POUS.h\"\n\n");
250
5d2927300e2c Adding missing support for accessors and retain in configuration files (Bug and fix reported by Manuele Conti)
laurent
parents: 248
diff changeset
  1386
70
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  1387
  /* (A) configuration declaration... */
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  1388
  /* (A.1) configuration name in comment */
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  1389
  s4o.print("// CONFIGURATION ");
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  1390
  symbol->configuration_name->accept(*this);
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  1391
  s4o.print("\n");
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  1392
  
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  1393
  /* (A.2) Global variables */
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  1394
  vardecl = new generate_c_vardecl_c(&s4o,
202
da1a8186f86f Initial (very rough) version of semantic checker (stage3)
Catarina Boucinha <ccb@fe.up.pt>
parents: 189
diff changeset
  1395
                                     generate_c_vardecl_c::local_vf,
392
9b88b8b6bccd Fixing generated code for global variables. Adding support for defining global variables with complex type
laurent
parents: 381
diff changeset
  1396
                                     generate_c_vardecl_c::global_vt,
9b88b8b6bccd Fixing generated code for global variables. Adding support for defining global variables with complex type
laurent
parents: 381
diff changeset
  1397
                                     symbol->configuration_name);
70
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  1398
  vardecl->print(symbol);
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  1399
  delete vardecl;
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  1400
  s4o.print("\n");
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  1401
396
155560bfe837 Fixing bug with external variables refering to global variables defined in configurations
laurent
parents: 392
diff changeset
  1402
  /* (A.3) Declare global prototypes in include file */
155560bfe837 Fixing bug with external variables refering to global variables defined in configurations
laurent
parents: 392
diff changeset
  1403
  vardecl = new generate_c_vardecl_c(&s4o_incl,
155560bfe837 Fixing bug with external variables refering to global variables defined in configurations
laurent
parents: 392
diff changeset
  1404
                                     generate_c_vardecl_c::globalprototype_vf,
155560bfe837 Fixing bug with external variables refering to global variables defined in configurations
laurent
parents: 392
diff changeset
  1405
                                     generate_c_vardecl_c::global_vt,
155560bfe837 Fixing bug with external variables refering to global variables defined in configurations
laurent
parents: 392
diff changeset
  1406
                                     symbol->configuration_name);
155560bfe837 Fixing bug with external variables refering to global variables defined in configurations
laurent
parents: 392
diff changeset
  1407
  vardecl->print(symbol);
155560bfe837 Fixing bug with external variables refering to global variables defined in configurations
laurent
parents: 392
diff changeset
  1408
  delete vardecl;
155560bfe837 Fixing bug with external variables refering to global variables defined in configurations
laurent
parents: 392
diff changeset
  1409
  s4o_incl.print("\n");
155560bfe837 Fixing bug with external variables refering to global variables defined in configurations
laurent
parents: 392
diff changeset
  1410
70
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  1411
  /* (B) Initialisation Function */
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  1412
  /* (B.1) Ressources initialisation protos... */
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  1413
  wanted_declaretype = initprotos_dt;
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  1414
  symbol->resource_declarations->accept(*this);
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  1415
  s4o.print("\n");
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  1416
  
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  1417
  /* (B.2) Initialisation function name... */
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  1418
  s4o.print(s4o.indent_spaces + "void config");
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  1419
  s4o.print(FB_INIT_SUFFIX);
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  1420
  s4o.print("(void) {\n");
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  1421
  s4o.indent_right();
250
5d2927300e2c Adding missing support for accessors and retain in configuration files (Bug and fix reported by Manuele Conti)
laurent
parents: 248
diff changeset
  1422
  s4o.print(s4o.indent_spaces);
255
86ef2244aef1 Modify code generated for avoiding warning while compiling when configuration or resource don't have any global variable
laurent
parents: 250
diff changeset
  1423
  s4o.print("BOOL retain;\n");
86ef2244aef1 Modify code generated for avoiding warning while compiling when configuration or resource don't have any global variable
laurent
parents: 250
diff changeset
  1424
  s4o.print(s4o.indent_spaces);
86ef2244aef1 Modify code generated for avoiding warning while compiling when configuration or resource don't have any global variable
laurent
parents: 250
diff changeset
  1425
  s4o.print("retain = 0;\n");
70
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  1426
  
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  1427
  /* (B.3) Global variables initializations... */
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  1428
  s4o.print(s4o.indent_spaces);
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  1429
  vardecl = new generate_c_vardecl_c(&s4o,
202
da1a8186f86f Initial (very rough) version of semantic checker (stage3)
Catarina Boucinha <ccb@fe.up.pt>
parents: 189
diff changeset
  1430
                                     generate_c_vardecl_c::constructorinit_vf,
537
199bdfe36166 Fix code generation about __INIT_GLOBAL_LOCATED.
Conti Manuele <manuele.conti@alice.it>
parents: 522
diff changeset
  1431
                                     generate_c_vardecl_c::global_vt,
199bdfe36166 Fix code generation about __INIT_GLOBAL_LOCATED.
Conti Manuele <manuele.conti@alice.it>
parents: 522
diff changeset
  1432
                                     symbol->configuration_name);
70
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  1433
  vardecl->print(symbol);
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  1434
  delete vardecl;
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  1435
  s4o.print("\n");
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  1436
  
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  1437
  /* (B.3) Resources initializations... */
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  1438
  wanted_declaretype = initdeclare_dt;
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  1439
  symbol->resource_declarations->accept(*this);
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  1440
  
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  1441
  s4o.indent_left();
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  1442
  s4o.print(s4o.indent_spaces + "}\n\n");
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  1443
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  1444
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  1445
  /* (C) Run Function*/
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  1446
  /* (C.1) Resources run functions protos... */
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  1447
  wanted_declaretype = runprotos_dt;
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  1448
  symbol->resource_declarations->accept(*this);
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  1449
  s4o.print("\n");
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  1450
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  1451
  /* (C.2) Run function name... */
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  1452
  s4o.print(s4o.indent_spaces + "void config");
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  1453
  s4o.print(FB_RUN_SUFFIX);
210
8387cac2aba6 Adding support for forcing tick count to return to zero as the same time than all tasks firing are synchronized
laurent
parents: 202
diff changeset
  1454
  s4o.print("(unsigned long tick) {\n");
70
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  1455
  s4o.indent_right();
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  1456
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  1457
  /* (C.3) Resources initializations... */
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  1458
  wanted_declaretype = rundeclare_dt;
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  1459
  symbol->resource_declarations->accept(*this);
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  1460
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  1461
  /* (C.3) Close Public Function body */
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  1462
  s4o.indent_left();
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  1463
  s4o.print(s4o.indent_spaces + "}\n");
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  1464
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  1465
  return NULL;
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  1466
}
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  1467
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  1468
void *visit(resource_declaration_c *symbol) {
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  1469
  if (wanted_declaretype == initprotos_dt || wanted_declaretype == runprotos_dt) {
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  1470
    s4o.print(s4o.indent_spaces + "void ");
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  1471
    symbol->resource_name->accept(*this);
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  1472
    if (wanted_declaretype == initprotos_dt) {
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  1473
      s4o.print(FB_INIT_SUFFIX);
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  1474
      s4o.print("(void);\n");
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  1475
    }
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  1476
    else {
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  1477
      s4o.print(FB_RUN_SUFFIX);
210
8387cac2aba6 Adding support for forcing tick count to return to zero as the same time than all tasks firing are synchronized
laurent
parents: 202
diff changeset
  1478
      s4o.print("(unsigned long tick);\n");
70
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  1479
    }
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  1480
  }
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  1481
  if (wanted_declaretype == initdeclare_dt || wanted_declaretype == rundeclare_dt) {
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  1482
    s4o.print(s4o.indent_spaces);
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  1483
    symbol->resource_name->accept(*this);
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  1484
    if (wanted_declaretype == initdeclare_dt) {
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  1485
      s4o.print(FB_INIT_SUFFIX);
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  1486
      s4o.print("();\n");
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  1487
    }
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  1488
    else {
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  1489
      s4o.print(FB_RUN_SUFFIX);
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  1490
      s4o.print("(tick);\n");
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  1491
    }
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  1492
  }
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  1493
  return NULL;
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  1494
}
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  1495
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  1496
void *visit(single_resource_declaration_c *symbol) {
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  1497
  if (wanted_declaretype == initprotos_dt || wanted_declaretype == runprotos_dt) {
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  1498
    s4o.print(s4o.indent_spaces + "void RESOURCE");
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  1499
    if (wanted_declaretype == initprotos_dt) {
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  1500
      s4o.print(FB_INIT_SUFFIX);
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  1501
      s4o.print("(void);\n");
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  1502
    }
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  1503
    else {
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  1504
      s4o.print(FB_RUN_SUFFIX);
210
8387cac2aba6 Adding support for forcing tick count to return to zero as the same time than all tasks firing are synchronized
laurent
parents: 202
diff changeset
  1505
      s4o.print("(unsigned long tick);\n");
70
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  1506
    }
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  1507
  }
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  1508
  if (wanted_declaretype == initdeclare_dt || wanted_declaretype == rundeclare_dt) {
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  1509
    s4o.print(s4o.indent_spaces + "RESOURCE");
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  1510
    if (wanted_declaretype == initdeclare_dt) {
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  1511
      s4o.print(FB_INIT_SUFFIX);
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  1512
      s4o.print("();\n");
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  1513
    }
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  1514
    else {
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  1515
      s4o.print(FB_RUN_SUFFIX);
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  1516
      s4o.print("(tick);\n");
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  1517
    }
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  1518
  }
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  1519
  return NULL;
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  1520
}
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  1521
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  1522
};
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  1523
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  1524
/***********************************************************************/
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  1525
/***********************************************************************/
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  1526
/***********************************************************************/
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  1527
/***********************************************************************/
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  1528
/***********************************************************************/
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  1529
/***********************************************************************/
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  1530
/***********************************************************************/
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  1531
/***********************************************************************/
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  1532
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  1533
945
477393b00f95 Add support for relaxed datatype model for array datatypes.
mjsousa
parents: 933
diff changeset
  1534
class generate_c_resources_c: public generate_c_base_and_typeid_c {
70
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  1535
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  1536
  search_var_instance_decl_c *search_config_instance;
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  1537
  search_var_instance_decl_c *search_resource_instance;
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  1538
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  1539
  private:
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  1540
    /* The name of the resource curretnly being processed... */
396
155560bfe837 Fixing bug with external variables refering to global variables defined in configurations
laurent
parents: 392
diff changeset
  1541
    symbol_c *current_configuration;
70
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  1542
    symbol_c *current_resource_name;
184
16495e10f69a Adding support for single resource scheduling
lbessard
parents: 181
diff changeset
  1543
    symbol_c *current_task_name;
70
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  1544
    symbol_c *current_global_vars;
396
155560bfe837 Fixing bug with external variables refering to global variables defined in configurations
laurent
parents: 392
diff changeset
  1545
    bool configuration_name;
267
0a1204bcc9af starting to add proper header file with declaration of standard functions
Mario de Sousa <msousa@fe.up.pt>
parents: 262
diff changeset
  1546
    stage4out_c *s4o_ptr;
70
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  1547
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  1548
  public:
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  1549
    generate_c_resources_c(stage4out_c *s4o_ptr, symbol_c *config_scope, symbol_c *resource_scope, unsigned long time)
945
477393b00f95 Add support for relaxed datatype model for array datatypes.
mjsousa
parents: 933
diff changeset
  1550
      : generate_c_base_and_typeid_c(s4o_ptr) {
396
155560bfe837 Fixing bug with external variables refering to global variables defined in configurations
laurent
parents: 392
diff changeset
  1551
      current_configuration = config_scope;
202
da1a8186f86f Initial (very rough) version of semantic checker (stage3)
Catarina Boucinha <ccb@fe.up.pt>
parents: 189
diff changeset
  1552
      search_config_instance   = new search_var_instance_decl_c(config_scope);
70
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  1553
      search_resource_instance = new search_var_instance_decl_c(resource_scope);
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  1554
      common_ticktime = time;
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  1555
      current_resource_name = NULL;
184
16495e10f69a Adding support for single resource scheduling
lbessard
parents: 181
diff changeset
  1556
      current_task_name = NULL;
70
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  1557
      current_global_vars = NULL;
396
155560bfe837 Fixing bug with external variables refering to global variables defined in configurations
laurent
parents: 392
diff changeset
  1558
      configuration_name = false;
267
0a1204bcc9af starting to add proper header file with declaration of standard functions
Mario de Sousa <msousa@fe.up.pt>
parents: 262
diff changeset
  1559
      generate_c_resources_c::s4o_ptr = s4o_ptr;
70
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  1560
    };
267
0a1204bcc9af starting to add proper header file with declaration of standard functions
Mario de Sousa <msousa@fe.up.pt>
parents: 262
diff changeset
  1561
70
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  1562
    virtual ~generate_c_resources_c(void) {
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  1563
      delete search_config_instance;
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  1564
      delete search_resource_instance;
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  1565
    }
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  1566
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  1567
    typedef enum {
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  1568
      declare_dt,
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  1569
      init_dt,
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  1570
      run_dt
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  1571
    } declaretype_t;
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  1572
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  1573
    declaretype_t wanted_declaretype;
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  1574
594
c8092e909886 Clean up code (remove parsing of integers in stage 4).
Mario de Sousa <msousa@fe.up.pt>
parents: 592
diff changeset
  1575
    unsigned long long common_ticktime;
70
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  1576
    
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  1577
    const char *current_program_name;
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  1578
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  1579
    typedef enum {
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  1580
      assign_at,
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  1581
      send_at
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  1582
    } assigntype_t;
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  1583
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  1584
    assigntype_t wanted_assigntype;
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  1585
221
c6aed7e5f070 Adding support for flags on Function Block variables for marking which variable must be debugged, retained or is forced
laurent
parents: 217
diff changeset
  1586
    /* the qualifier of variables that need to be processed... */
c6aed7e5f070 Adding support for flags on Function Block variables for marking which variable must be debugged, retained or is forced
laurent
parents: 217
diff changeset
  1587
    static const unsigned int none_vq        = 0x0000;
c6aed7e5f070 Adding support for flags on Function Block variables for marking which variable must be debugged, retained or is forced
laurent
parents: 217
diff changeset
  1588
    static const unsigned int constant_vq    = 0x0001;  // CONSTANT
c6aed7e5f070 Adding support for flags on Function Block variables for marking which variable must be debugged, retained or is forced
laurent
parents: 217
diff changeset
  1589
    static const unsigned int retain_vq      = 0x0002;  // RETAIN
c6aed7e5f070 Adding support for flags on Function Block variables for marking which variable must be debugged, retained or is forced
laurent
parents: 217
diff changeset
  1590
    static const unsigned int non_retain_vq  = 0x0004;  // NON_RETAIN
c6aed7e5f070 Adding support for flags on Function Block variables for marking which variable must be debugged, retained or is forced
laurent
parents: 217
diff changeset
  1591
c6aed7e5f070 Adding support for flags on Function Block variables for marking which variable must be debugged, retained or is forced
laurent
parents: 217
diff changeset
  1592
    /* variable used to store the qualifier of program currently being processed... */
c6aed7e5f070 Adding support for flags on Function Block variables for marking which variable must be debugged, retained or is forced
laurent
parents: 217
diff changeset
  1593
    unsigned int current_varqualifier;
c6aed7e5f070 Adding support for flags on Function Block variables for marking which variable must be debugged, retained or is forced
laurent
parents: 217
diff changeset
  1594
c6aed7e5f070 Adding support for flags on Function Block variables for marking which variable must be debugged, retained or is forced
laurent
parents: 217
diff changeset
  1595
    void *print_retain(void) {
377
60b012b7793f Adding support for compiling direct array specification inside variable declaration
laurent
parents: 355
diff changeset
  1596
      s4o.print(",");
221
c6aed7e5f070 Adding support for flags on Function Block variables for marking which variable must be debugged, retained or is forced
laurent
parents: 217
diff changeset
  1597
      switch (current_varqualifier) {
377
60b012b7793f Adding support for compiling direct array specification inside variable declaration
laurent
parents: 355
diff changeset
  1598
        case retain_vq:
221
c6aed7e5f070 Adding support for flags on Function Block variables for marking which variable must be debugged, retained or is forced
laurent
parents: 217
diff changeset
  1599
          s4o.print("1");
c6aed7e5f070 Adding support for flags on Function Block variables for marking which variable must be debugged, retained or is forced
laurent
parents: 217
diff changeset
  1600
          break;
c6aed7e5f070 Adding support for flags on Function Block variables for marking which variable must be debugged, retained or is forced
laurent
parents: 217
diff changeset
  1601
        case non_retain_vq:
c6aed7e5f070 Adding support for flags on Function Block variables for marking which variable must be debugged, retained or is forced
laurent
parents: 217
diff changeset
  1602
          s4o.print("0");
c6aed7e5f070 Adding support for flags on Function Block variables for marking which variable must be debugged, retained or is forced
laurent
parents: 217
diff changeset
  1603
          break;
377
60b012b7793f Adding support for compiling direct array specification inside variable declaration
laurent
parents: 355
diff changeset
  1604
        default:
60b012b7793f Adding support for compiling direct array specification inside variable declaration
laurent
parents: 355
diff changeset
  1605
          s4o.print("retain");
60b012b7793f Adding support for compiling direct array specification inside variable declaration
laurent
parents: 355
diff changeset
  1606
          break;
221
c6aed7e5f070 Adding support for flags on Function Block variables for marking which variable must be debugged, retained or is forced
laurent
parents: 217
diff changeset
  1607
      }
c6aed7e5f070 Adding support for flags on Function Block variables for marking which variable must be debugged, retained or is forced
laurent
parents: 217
diff changeset
  1608
      return NULL;
c6aed7e5f070 Adding support for flags on Function Block variables for marking which variable must be debugged, retained or is forced
laurent
parents: 217
diff changeset
  1609
    }
c6aed7e5f070 Adding support for flags on Function Block variables for marking which variable must be debugged, retained or is forced
laurent
parents: 217
diff changeset
  1610
396
155560bfe837 Fixing bug with external variables refering to global variables defined in configurations
laurent
parents: 392
diff changeset
  1611
    /*************************/
155560bfe837 Fixing bug with external variables refering to global variables defined in configurations
laurent
parents: 392
diff changeset
  1612
    /* B.1 - Common elements */
155560bfe837 Fixing bug with external variables refering to global variables defined in configurations
laurent
parents: 392
diff changeset
  1613
    /*************************/
155560bfe837 Fixing bug with external variables refering to global variables defined in configurations
laurent
parents: 392
diff changeset
  1614
    /*******************************************/
155560bfe837 Fixing bug with external variables refering to global variables defined in configurations
laurent
parents: 392
diff changeset
  1615
    /* B 1.1 - Letters, digits and identifiers */
155560bfe837 Fixing bug with external variables refering to global variables defined in configurations
laurent
parents: 392
diff changeset
  1616
    /*******************************************/
155560bfe837 Fixing bug with external variables refering to global variables defined in configurations
laurent
parents: 392
diff changeset
  1617
    void *visit(identifier_c *symbol) {
958
7474d2cd1d6e Add a new pou_typename_c object to the AST to store references to previously declared Functions, FB, and Programs.
mjsousa
parents: 945
diff changeset
  1618
      if (configuration_name)  s4o.print(symbol->value);
7474d2cd1d6e Add a new pou_typename_c object to the AST to store references to previously declared Functions, FB, and Programs.
mjsousa
parents: 945
diff changeset
  1619
      else                     generate_c_base_c::visit(symbol);
7474d2cd1d6e Add a new pou_typename_c object to the AST to store references to previously declared Functions, FB, and Programs.
mjsousa
parents: 945
diff changeset
  1620
      return NULL;
396
155560bfe837 Fixing bug with external variables refering to global variables defined in configurations
laurent
parents: 392
diff changeset
  1621
    }
267
0a1204bcc9af starting to add proper header file with declaration of standard functions
Mario de Sousa <msousa@fe.up.pt>
parents: 262
diff changeset
  1622
0a1204bcc9af starting to add proper header file with declaration of standard functions
Mario de Sousa <msousa@fe.up.pt>
parents: 262
diff changeset
  1623
    /********************/
0a1204bcc9af starting to add proper header file with declaration of standard functions
Mario de Sousa <msousa@fe.up.pt>
parents: 262
diff changeset
  1624
    /* 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
  1625
    /********************/
0a1204bcc9af starting to add proper header file with declaration of standard functions
Mario de Sousa <msousa@fe.up.pt>
parents: 262
diff changeset
  1626
    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
  1627
    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
  1628
    
0a1204bcc9af starting to add proper header file with declaration of standard functions
Mario de Sousa <msousa@fe.up.pt>
parents: 262
diff changeset
  1629
221
c6aed7e5f070 Adding support for flags on Function Block variables for marking which variable must be debugged, retained or is forced
laurent
parents: 217
diff changeset
  1630
    /******************************************/
c6aed7e5f070 Adding support for flags on Function Block variables for marking which variable must be debugged, retained or is forced
laurent
parents: 217
diff changeset
  1631
    /* B 1.4.3 - Declaration & Initialisation */
c6aed7e5f070 Adding support for flags on Function Block variables for marking which variable must be debugged, retained or is forced
laurent
parents: 217
diff changeset
  1632
    /******************************************/
c6aed7e5f070 Adding support for flags on Function Block variables for marking which variable must be debugged, retained or is forced
laurent
parents: 217
diff changeset
  1633
c6aed7e5f070 Adding support for flags on Function Block variables for marking which variable must be debugged, retained or is forced
laurent
parents: 217
diff changeset
  1634
    void *visit(constant_option_c *symbol) {
c6aed7e5f070 Adding support for flags on Function Block variables for marking which variable must be debugged, retained or is forced
laurent
parents: 217
diff changeset
  1635
      current_varqualifier = constant_vq;
c6aed7e5f070 Adding support for flags on Function Block variables for marking which variable must be debugged, retained or is forced
laurent
parents: 217
diff changeset
  1636
      return NULL;
c6aed7e5f070 Adding support for flags on Function Block variables for marking which variable must be debugged, retained or is forced
laurent
parents: 217
diff changeset
  1637
    }
c6aed7e5f070 Adding support for flags on Function Block variables for marking which variable must be debugged, retained or is forced
laurent
parents: 217
diff changeset
  1638
c6aed7e5f070 Adding support for flags on Function Block variables for marking which variable must be debugged, retained or is forced
laurent
parents: 217
diff changeset
  1639
    void *visit(retain_option_c *symbol) {
c6aed7e5f070 Adding support for flags on Function Block variables for marking which variable must be debugged, retained or is forced
laurent
parents: 217
diff changeset
  1640
      current_varqualifier = retain_vq;
c6aed7e5f070 Adding support for flags on Function Block variables for marking which variable must be debugged, retained or is forced
laurent
parents: 217
diff changeset
  1641
      return NULL;
c6aed7e5f070 Adding support for flags on Function Block variables for marking which variable must be debugged, retained or is forced
laurent
parents: 217
diff changeset
  1642
    }
c6aed7e5f070 Adding support for flags on Function Block variables for marking which variable must be debugged, retained or is forced
laurent
parents: 217
diff changeset
  1643
c6aed7e5f070 Adding support for flags on Function Block variables for marking which variable must be debugged, retained or is forced
laurent
parents: 217
diff changeset
  1644
    void *visit(non_retain_option_c *symbol) {
c6aed7e5f070 Adding support for flags on Function Block variables for marking which variable must be debugged, retained or is forced
laurent
parents: 217
diff changeset
  1645
      current_varqualifier = non_retain_vq;
c6aed7e5f070 Adding support for flags on Function Block variables for marking which variable must be debugged, retained or is forced
laurent
parents: 217
diff changeset
  1646
      return NULL;
c6aed7e5f070 Adding support for flags on Function Block variables for marking which variable must be debugged, retained or is forced
laurent
parents: 217
diff changeset
  1647
    }
c6aed7e5f070 Adding support for flags on Function Block variables for marking which variable must be debugged, retained or is forced
laurent
parents: 217
diff changeset
  1648
396
155560bfe837 Fixing bug with external variables refering to global variables defined in configurations
laurent
parents: 392
diff changeset
  1649
    /********************************/
155560bfe837 Fixing bug with external variables refering to global variables defined in configurations
laurent
parents: 392
diff changeset
  1650
    /* B 1.7 Configuration elements */
155560bfe837 Fixing bug with external variables refering to global variables defined in configurations
laurent
parents: 392
diff changeset
  1651
    /********************************/
155560bfe837 Fixing bug with external variables refering to global variables defined in configurations
laurent
parents: 392
diff changeset
  1652
155560bfe837 Fixing bug with external variables refering to global variables defined in configurations
laurent
parents: 392
diff changeset
  1653
    void *visit(configuration_declaration_c *symbol) {
155560bfe837 Fixing bug with external variables refering to global variables defined in configurations
laurent
parents: 392
diff changeset
  1654
      return symbol->configuration_name->accept(*this);
155560bfe837 Fixing bug with external variables refering to global variables defined in configurations
laurent
parents: 392
diff changeset
  1655
    }
70
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  1656
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  1657
/*
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  1658
RESOURCE resource_name ON resource_type_name
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  1659
   optional_global_var_declarations
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  1660
   single_resource_declaration
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  1661
END_RESOURCE
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  1662
*/
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  1663
// SYM_REF4(resource_declaration_c, resource_name, resource_type_name, global_var_declarations, resource_declaration)
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  1664
    void *visit(resource_declaration_c *symbol) {
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  1665
      current_resource_name = symbol->resource_name;
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  1666
      current_global_vars = symbol->global_var_declarations;
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  1667
      
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  1668
      symbol->resource_declaration->accept(*this);
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  1669
      
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  1670
      current_resource_name = NULL;
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  1671
      current_global_vars = NULL;
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  1672
      return NULL;
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  1673
    }
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  1674
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  1675
/* task_configuration_list program_configuration_list */
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  1676
// SYM_REF2(single_resource_declaration_c, task_configuration_list, program_configuration_list)
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  1677
    void *visit(single_resource_declaration_c *symbol) {
202
da1a8186f86f Initial (very rough) version of semantic checker (stage3)
Catarina Boucinha <ccb@fe.up.pt>
parents: 189
diff changeset
  1678
      bool single_resource = current_resource_name == NULL;
70
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  1679
      if (single_resource)
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  1680
        current_resource_name = new identifier_c("RESOURCE");
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  1681
      generate_c_vardecl_c *vardecl;
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  1682
      
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  1683
      /* Insert the header... */
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  1684
      s4o.print("/*******************************************/\n");
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  1685
      s4o.print("/*     FILE GENERATED BY iec2c             */\n");
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  1686
      s4o.print("/* Editing this file is not recommended... */\n");
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  1687
      s4o.print("/*******************************************/\n\n");
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  1688
      s4o.print("#include \"iec_std_lib.h\"\n\n");
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  1689
      
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  1690
      /* (A) resource declaration... */
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  1691
      /* (A.1) resource name in comment */
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  1692
      s4o.print("// RESOURCE ");
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  1693
      current_resource_name->accept(*this);
120
74640e3c7f53 Bug with D and L action qualifier and timing management in SFC generated fixed
lbessard
parents: 112
diff changeset
  1694
      s4o.print("\n\n");
74640e3c7f53 Bug with D and L action qualifier and timing management in SFC generated fixed
lbessard
parents: 112
diff changeset
  1695
      
237
cece842c7417 Adding support for using arrays in POU interface
laurent
parents: 234
diff changeset
  1696
      s4o.print("extern unsigned long long common_ticktime__;\n\n");
217
f5dfadf5de54 Adding support for declare, init, get and set macros
laurent
parents: 210
diff changeset
  1697
396
155560bfe837 Fixing bug with external variables refering to global variables defined in configurations
laurent
parents: 392
diff changeset
  1698
      s4o.print("#include \"accessor.h\"\n");
397
85151b2f35ca Adding Common_Ticktime to informations printed in VARIABLES.csv file
laurent
parents: 396
diff changeset
  1699
      s4o.print("#include \"POUS.h\"\n\n");
396
155560bfe837 Fixing bug with external variables refering to global variables defined in configurations
laurent
parents: 392
diff changeset
  1700
      s4o.print("#include \"");
155560bfe837 Fixing bug with external variables refering to global variables defined in configurations
laurent
parents: 392
diff changeset
  1701
      configuration_name = true;
155560bfe837 Fixing bug with external variables refering to global variables defined in configurations
laurent
parents: 392
diff changeset
  1702
      current_configuration->accept(*this);
155560bfe837 Fixing bug with external variables refering to global variables defined in configurations
laurent
parents: 392
diff changeset
  1703
      configuration_name = false;
155560bfe837 Fixing bug with external variables refering to global variables defined in configurations
laurent
parents: 392
diff changeset
  1704
      s4o.print(".h\"\n");
217
f5dfadf5de54 Adding support for declare, init, get and set macros
laurent
parents: 210
diff changeset
  1705
70
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  1706
      /* (A.2) Global variables... */
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  1707
      if (current_global_vars != NULL) {
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  1708
        vardecl = new generate_c_vardecl_c(&s4o,
202
da1a8186f86f Initial (very rough) version of semantic checker (stage3)
Catarina Boucinha <ccb@fe.up.pt>
parents: 189
diff changeset
  1709
                                           generate_c_vardecl_c::local_vf,
da1a8186f86f Initial (very rough) version of semantic checker (stage3)
Catarina Boucinha <ccb@fe.up.pt>
parents: 189
diff changeset
  1710
                                           generate_c_vardecl_c::global_vt,
da1a8186f86f Initial (very rough) version of semantic checker (stage3)
Catarina Boucinha <ccb@fe.up.pt>
parents: 189
diff changeset
  1711
                                           current_resource_name);
70
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  1712
        vardecl->print(current_global_vars);
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  1713
        delete vardecl;
120
74640e3c7f53 Bug with D and L action qualifier and timing management in SFC generated fixed
lbessard
parents: 112
diff changeset
  1714
        s4o.print("\n");
70
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  1715
      }
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  1716
      
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  1717
      /* (A.3) POUs inclusion */
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  1718
      s4o.print("#include \"POUS.c\"\n\n");
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  1719
      
184
16495e10f69a Adding support for single resource scheduling
lbessard
parents: 181
diff changeset
  1720
      wanted_declaretype = declare_dt;
16495e10f69a Adding support for single resource scheduling
lbessard
parents: 181
diff changeset
  1721
      
70
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  1722
      /* (A.4) Resource programs declaration... */
184
16495e10f69a Adding support for single resource scheduling
lbessard
parents: 181
diff changeset
  1723
      symbol->task_configuration_list->accept(*this);
16495e10f69a Adding support for single resource scheduling
lbessard
parents: 181
diff changeset
  1724
      
16495e10f69a Adding support for single resource scheduling
lbessard
parents: 181
diff changeset
  1725
      /* (A.5) Resource programs declaration... */
70
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  1726
      symbol->program_configuration_list->accept(*this);
184
16495e10f69a Adding support for single resource scheduling
lbessard
parents: 181
diff changeset
  1727
      
70
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  1728
      s4o.print("\n");
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  1729
      
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  1730
      /* (B) resource initialisation function... */
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  1731
      /* (B.1) initialisation function name... */
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  1732
      s4o.print("void ");
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  1733
      current_resource_name->accept(*this);
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  1734
      s4o.print(FB_INIT_SUFFIX);
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  1735
      s4o.print("(void) {\n");
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  1736
      s4o.indent_right();
221
c6aed7e5f070 Adding support for flags on Function Block variables for marking which variable must be debugged, retained or is forced
laurent
parents: 217
diff changeset
  1737
      s4o.print(s4o.indent_spaces);
255
86ef2244aef1 Modify code generated for avoiding warning while compiling when configuration or resource don't have any global variable
laurent
parents: 250
diff changeset
  1738
      s4o.print("BOOL retain;\n");
86ef2244aef1 Modify code generated for avoiding warning while compiling when configuration or resource don't have any global variable
laurent
parents: 250
diff changeset
  1739
      s4o.print(s4o.indent_spaces);
86ef2244aef1 Modify code generated for avoiding warning while compiling when configuration or resource don't have any global variable
laurent
parents: 250
diff changeset
  1740
      s4o.print("retain = 0;\n");
70
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  1741
      
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  1742
      /* (B.2) Global variables initialisations... */
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  1743
      if (current_global_vars != NULL) {
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  1744
        s4o.print(s4o.indent_spaces);
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  1745
        vardecl = new generate_c_vardecl_c(&s4o,
202
da1a8186f86f Initial (very rough) version of semantic checker (stage3)
Catarina Boucinha <ccb@fe.up.pt>
parents: 189
diff changeset
  1746
                                           generate_c_vardecl_c::constructorinit_vf,
241
0ba6d614573e Bug with code generation of global located variables in resource fixed thanks to Mario
laurent
parents: 237
diff changeset
  1747
                                           generate_c_vardecl_c::global_vt,
0ba6d614573e Bug with code generation of global located variables in resource fixed thanks to Mario
laurent
parents: 237
diff changeset
  1748
                                           current_resource_name);
70
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  1749
        vardecl->print(current_global_vars);
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  1750
        delete vardecl;
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  1751
      }
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  1752
      s4o.print("\n");
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  1753
      
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  1754
      wanted_declaretype = init_dt;
184
16495e10f69a Adding support for single resource scheduling
lbessard
parents: 181
diff changeset
  1755
      
16495e10f69a Adding support for single resource scheduling
lbessard
parents: 181
diff changeset
  1756
      /* (B.3) Tasks initialisations... */
16495e10f69a Adding support for single resource scheduling
lbessard
parents: 181
diff changeset
  1757
      symbol->task_configuration_list->accept(*this);
16495e10f69a Adding support for single resource scheduling
lbessard
parents: 181
diff changeset
  1758
      
16495e10f69a Adding support for single resource scheduling
lbessard
parents: 181
diff changeset
  1759
      /* (B.4) Resource programs initialisations... */
70
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  1760
      symbol->program_configuration_list->accept(*this);
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  1761
      
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  1762
      s4o.indent_left();
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  1763
      s4o.print("}\n\n");
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  1764
      
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  1765
      /* (C) Resource run function... */
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  1766
      /* (C.1) Run function name... */
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  1767
      s4o.print("void ");
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  1768
      current_resource_name->accept(*this);
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  1769
      s4o.print(FB_RUN_SUFFIX);
210
8387cac2aba6 Adding support for forcing tick count to return to zero as the same time than all tasks firing are synchronized
laurent
parents: 202
diff changeset
  1770
      s4o.print("(unsigned long tick) {\n");
70
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  1771
      s4o.indent_right();
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  1772
      
184
16495e10f69a Adding support for single resource scheduling
lbessard
parents: 181
diff changeset
  1773
      wanted_declaretype = run_dt;
16495e10f69a Adding support for single resource scheduling
lbessard
parents: 181
diff changeset
  1774
      
70
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  1775
      /* (C.2) Task management... */
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  1776
      symbol->task_configuration_list->accept(*this);
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  1777
      
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  1778
      /* (C.3) Program run declaration... */
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  1779
      symbol->program_configuration_list->accept(*this);
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  1780
      
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  1781
      s4o.indent_left();
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  1782
      s4o.print("}\n\n");
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  1783
      
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  1784
      if (single_resource) {
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  1785
        delete current_resource_name;
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  1786
        current_resource_name = NULL;
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  1787
      }
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  1788
      return NULL;
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  1789
    }
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  1790
    
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  1791
/*  PROGRAM [RETAIN | NON_RETAIN] program_name [WITH task_name] ':' program_type_name ['(' prog_conf_elements ')'] */
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  1792
//SYM_REF6(program_configuration_c, retain_option, program_name, task_name, program_type_name, prog_conf_elements, unused)
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  1793
    void *visit(program_configuration_c *symbol) {
184
16495e10f69a Adding support for single resource scheduling
lbessard
parents: 181
diff changeset
  1794
      switch (wanted_declaretype) {
16495e10f69a Adding support for single resource scheduling
lbessard
parents: 181
diff changeset
  1795
        case declare_dt:
70
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  1796
          s4o.print(s4o.indent_spaces);
184
16495e10f69a Adding support for single resource scheduling
lbessard
parents: 181
diff changeset
  1797
          symbol->program_type_name->accept(*this);
16495e10f69a Adding support for single resource scheduling
lbessard
parents: 181
diff changeset
  1798
          s4o.print(" ");
16495e10f69a Adding support for single resource scheduling
lbessard
parents: 181
diff changeset
  1799
          current_resource_name->accept(*this);
16495e10f69a Adding support for single resource scheduling
lbessard
parents: 181
diff changeset
  1800
          s4o.print("__");
16495e10f69a Adding support for single resource scheduling
lbessard
parents: 181
diff changeset
  1801
          symbol->program_name->accept(*this);
16495e10f69a Adding support for single resource scheduling
lbessard
parents: 181
diff changeset
  1802
          s4o.print(";\n#define ");
16495e10f69a Adding support for single resource scheduling
lbessard
parents: 181
diff changeset
  1803
          symbol->program_name->accept(*this);
16495e10f69a Adding support for single resource scheduling
lbessard
parents: 181
diff changeset
  1804
          s4o.print(" ");
16495e10f69a Adding support for single resource scheduling
lbessard
parents: 181
diff changeset
  1805
          current_resource_name->accept(*this);
16495e10f69a Adding support for single resource scheduling
lbessard
parents: 181
diff changeset
  1806
          s4o.print("__");
16495e10f69a Adding support for single resource scheduling
lbessard
parents: 181
diff changeset
  1807
          symbol->program_name->accept(*this);
16495e10f69a Adding support for single resource scheduling
lbessard
parents: 181
diff changeset
  1808
          s4o.print("\n");
16495e10f69a Adding support for single resource scheduling
lbessard
parents: 181
diff changeset
  1809
          break;
16495e10f69a Adding support for single resource scheduling
lbessard
parents: 181
diff changeset
  1810
        case init_dt:
221
c6aed7e5f070 Adding support for flags on Function Block variables for marking which variable must be debugged, retained or is forced
laurent
parents: 217
diff changeset
  1811
          if (symbol->retain_option != NULL)
377
60b012b7793f Adding support for compiling direct array specification inside variable declaration
laurent
parents: 355
diff changeset
  1812
            symbol->retain_option->accept(*this);
184
16495e10f69a Adding support for single resource scheduling
lbessard
parents: 181
diff changeset
  1813
          s4o.print(s4o.indent_spaces);
16495e10f69a Adding support for single resource scheduling
lbessard
parents: 181
diff changeset
  1814
          symbol->program_type_name->accept(*this);
16495e10f69a Adding support for single resource scheduling
lbessard
parents: 181
diff changeset
  1815
          s4o.print(FB_INIT_SUFFIX);
16495e10f69a Adding support for single resource scheduling
lbessard
parents: 181
diff changeset
  1816
          s4o.print("(&");
16495e10f69a Adding support for single resource scheduling
lbessard
parents: 181
diff changeset
  1817
          symbol->program_name->accept(*this);
221
c6aed7e5f070 Adding support for flags on Function Block variables for marking which variable must be debugged, retained or is forced
laurent
parents: 217
diff changeset
  1818
          print_retain();
184
16495e10f69a Adding support for single resource scheduling
lbessard
parents: 181
diff changeset
  1819
          s4o.print(");\n");
16495e10f69a Adding support for single resource scheduling
lbessard
parents: 181
diff changeset
  1820
          break;
958
7474d2cd1d6e Add a new pou_typename_c object to the AST to store references to previously declared Functions, FB, and Programs.
mjsousa
parents: 945
diff changeset
  1821
        case run_dt: 
7474d2cd1d6e Add a new pou_typename_c object to the AST to store references to previously declared Functions, FB, and Programs.
mjsousa
parents: 945
diff changeset
  1822
          { identifier_c *tmp_id = dynamic_cast<identifier_c*>(symbol->program_name);
7474d2cd1d6e Add a new pou_typename_c object to the AST to store references to previously declared Functions, FB, and Programs.
mjsousa
parents: 945
diff changeset
  1823
            if (NULL == tmp_id) ERROR;
7474d2cd1d6e Add a new pou_typename_c object to the AST to store references to previously declared Functions, FB, and Programs.
mjsousa
parents: 945
diff changeset
  1824
            current_program_name = tmp_id->value;
7474d2cd1d6e Add a new pou_typename_c object to the AST to store references to previously declared Functions, FB, and Programs.
mjsousa
parents: 945
diff changeset
  1825
	  }
184
16495e10f69a Adding support for single resource scheduling
lbessard
parents: 181
diff changeset
  1826
          if (symbol->task_name != NULL) {
16495e10f69a Adding support for single resource scheduling
lbessard
parents: 181
diff changeset
  1827
            s4o.print(s4o.indent_spaces);
16495e10f69a Adding support for single resource scheduling
lbessard
parents: 181
diff changeset
  1828
            s4o.print("if (");
16495e10f69a Adding support for single resource scheduling
lbessard
parents: 181
diff changeset
  1829
            symbol->task_name->accept(*this);
16495e10f69a Adding support for single resource scheduling
lbessard
parents: 181
diff changeset
  1830
            s4o.print(") {\n");
16495e10f69a Adding support for single resource scheduling
lbessard
parents: 181
diff changeset
  1831
            s4o.indent_right(); 
16495e10f69a Adding support for single resource scheduling
lbessard
parents: 181
diff changeset
  1832
          }
70
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  1833
        
184
16495e10f69a Adding support for single resource scheduling
lbessard
parents: 181
diff changeset
  1834
          wanted_assigntype = assign_at;
16495e10f69a Adding support for single resource scheduling
lbessard
parents: 181
diff changeset
  1835
          if (symbol->prog_conf_elements != NULL)
16495e10f69a Adding support for single resource scheduling
lbessard
parents: 181
diff changeset
  1836
            symbol->prog_conf_elements->accept(*this);
16495e10f69a Adding support for single resource scheduling
lbessard
parents: 181
diff changeset
  1837
          
16495e10f69a Adding support for single resource scheduling
lbessard
parents: 181
diff changeset
  1838
          s4o.print(s4o.indent_spaces);
16495e10f69a Adding support for single resource scheduling
lbessard
parents: 181
diff changeset
  1839
          symbol->program_type_name->accept(*this);
16495e10f69a Adding support for single resource scheduling
lbessard
parents: 181
diff changeset
  1840
          s4o.print(FB_FUNCTION_SUFFIX);
16495e10f69a Adding support for single resource scheduling
lbessard
parents: 181
diff changeset
  1841
          s4o.print("(&");
16495e10f69a Adding support for single resource scheduling
lbessard
parents: 181
diff changeset
  1842
          symbol->program_name->accept(*this);
16495e10f69a Adding support for single resource scheduling
lbessard
parents: 181
diff changeset
  1843
          s4o.print(");\n");
16495e10f69a Adding support for single resource scheduling
lbessard
parents: 181
diff changeset
  1844
          
16495e10f69a Adding support for single resource scheduling
lbessard
parents: 181
diff changeset
  1845
          wanted_assigntype = send_at;
16495e10f69a Adding support for single resource scheduling
lbessard
parents: 181
diff changeset
  1846
          if (symbol->prog_conf_elements != NULL)
16495e10f69a Adding support for single resource scheduling
lbessard
parents: 181
diff changeset
  1847
            symbol->prog_conf_elements->accept(*this);
16495e10f69a Adding support for single resource scheduling
lbessard
parents: 181
diff changeset
  1848
          
16495e10f69a Adding support for single resource scheduling
lbessard
parents: 181
diff changeset
  1849
          if (symbol->task_name != NULL) {
16495e10f69a Adding support for single resource scheduling
lbessard
parents: 181
diff changeset
  1850
            s4o.indent_left();
16495e10f69a Adding support for single resource scheduling
lbessard
parents: 181
diff changeset
  1851
            s4o.print(s4o.indent_spaces + "}\n");
16495e10f69a Adding support for single resource scheduling
lbessard
parents: 181
diff changeset
  1852
          }
16495e10f69a Adding support for single resource scheduling
lbessard
parents: 181
diff changeset
  1853
          break;
16495e10f69a Adding support for single resource scheduling
lbessard
parents: 181
diff changeset
  1854
        default:
16495e10f69a Adding support for single resource scheduling
lbessard
parents: 181
diff changeset
  1855
          break;
70
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  1856
      }
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  1857
      return NULL;
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  1858
    }
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  1859
    
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  1860
/*  TASK task_name task_initialization */
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  1861
//SYM_REF2(task_configuration_c, task_name, task_initialization)
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  1862
    void *visit(task_configuration_c *symbol) {
184
16495e10f69a Adding support for single resource scheduling
lbessard
parents: 181
diff changeset
  1863
      current_task_name = symbol->task_name;
16495e10f69a Adding support for single resource scheduling
lbessard
parents: 181
diff changeset
  1864
      switch (wanted_declaretype) {
16495e10f69a Adding support for single resource scheduling
lbessard
parents: 181
diff changeset
  1865
        case declare_dt:
16495e10f69a Adding support for single resource scheduling
lbessard
parents: 181
diff changeset
  1866
          s4o.print(s4o.indent_spaces + "BOOL ");
16495e10f69a Adding support for single resource scheduling
lbessard
parents: 181
diff changeset
  1867
          current_task_name->accept(*this);
16495e10f69a Adding support for single resource scheduling
lbessard
parents: 181
diff changeset
  1868
          s4o.print(";\n");
16495e10f69a Adding support for single resource scheduling
lbessard
parents: 181
diff changeset
  1869
          symbol->task_initialization->accept(*this);
16495e10f69a Adding support for single resource scheduling
lbessard
parents: 181
diff changeset
  1870
          break;
16495e10f69a Adding support for single resource scheduling
lbessard
parents: 181
diff changeset
  1871
        case init_dt:
16495e10f69a Adding support for single resource scheduling
lbessard
parents: 181
diff changeset
  1872
          s4o.print(s4o.indent_spaces);
16495e10f69a Adding support for single resource scheduling
lbessard
parents: 181
diff changeset
  1873
          current_task_name->accept(*this);
16495e10f69a Adding support for single resource scheduling
lbessard
parents: 181
diff changeset
  1874
          s4o.print(" = __BOOL_LITERAL(FALSE);\n");
16495e10f69a Adding support for single resource scheduling
lbessard
parents: 181
diff changeset
  1875
          symbol->task_initialization->accept(*this);
16495e10f69a Adding support for single resource scheduling
lbessard
parents: 181
diff changeset
  1876
          break;
16495e10f69a Adding support for single resource scheduling
lbessard
parents: 181
diff changeset
  1877
        case run_dt:
16495e10f69a Adding support for single resource scheduling
lbessard
parents: 181
diff changeset
  1878
          symbol->task_initialization->accept(*this);
16495e10f69a Adding support for single resource scheduling
lbessard
parents: 181
diff changeset
  1879
          break;
16495e10f69a Adding support for single resource scheduling
lbessard
parents: 181
diff changeset
  1880
        default:
16495e10f69a Adding support for single resource scheduling
lbessard
parents: 181
diff changeset
  1881
          break;
16495e10f69a Adding support for single resource scheduling
lbessard
parents: 181
diff changeset
  1882
      }
16495e10f69a Adding support for single resource scheduling
lbessard
parents: 181
diff changeset
  1883
      current_task_name = NULL;
70
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  1884
      return NULL;
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  1885
    }
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  1886
    
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  1887
/*  '(' [SINGLE ASSIGN data_source ','] [INTERVAL ASSIGN data_source ','] PRIORITY ASSIGN integer ')' */
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  1888
//SYM_REF4(task_initialization_c, single_data_source, interval_data_source, priority_data_source, unused)
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  1889
    void *visit(task_initialization_c *symbol) {
184
16495e10f69a Adding support for single resource scheduling
lbessard
parents: 181
diff changeset
  1890
      switch (wanted_declaretype) {
16495e10f69a Adding support for single resource scheduling
lbessard
parents: 181
diff changeset
  1891
        case declare_dt:
16495e10f69a Adding support for single resource scheduling
lbessard
parents: 181
diff changeset
  1892
          if (symbol->single_data_source != NULL) {
16495e10f69a Adding support for single resource scheduling
lbessard
parents: 181
diff changeset
  1893
            s4o.print(s4o.indent_spaces + "R_TRIG ");
16495e10f69a Adding support for single resource scheduling
lbessard
parents: 181
diff changeset
  1894
            current_task_name->accept(*this);
16495e10f69a Adding support for single resource scheduling
lbessard
parents: 181
diff changeset
  1895
            s4o.print("_R_TRIG;\n");
16495e10f69a Adding support for single resource scheduling
lbessard
parents: 181
diff changeset
  1896
          }
16495e10f69a Adding support for single resource scheduling
lbessard
parents: 181
diff changeset
  1897
          break;
16495e10f69a Adding support for single resource scheduling
lbessard
parents: 181
diff changeset
  1898
        case init_dt:
16495e10f69a Adding support for single resource scheduling
lbessard
parents: 181
diff changeset
  1899
          if (symbol->single_data_source != NULL) {
16495e10f69a Adding support for single resource scheduling
lbessard
parents: 181
diff changeset
  1900
            s4o.print(s4o.indent_spaces + "R_TRIG");
16495e10f69a Adding support for single resource scheduling
lbessard
parents: 181
diff changeset
  1901
            s4o.print(FB_INIT_SUFFIX);
16495e10f69a Adding support for single resource scheduling
lbessard
parents: 181
diff changeset
  1902
            s4o.print("(&");
16495e10f69a Adding support for single resource scheduling
lbessard
parents: 181
diff changeset
  1903
            current_task_name->accept(*this);
248
9cb18ec14fa2 Task single parameter code generation broken after addition of accessors fixed.
laurent
parents: 244
diff changeset
  1904
            s4o.print("_R_TRIG, retain);\n");
184
16495e10f69a Adding support for single resource scheduling
lbessard
parents: 181
diff changeset
  1905
          }
16495e10f69a Adding support for single resource scheduling
lbessard
parents: 181
diff changeset
  1906
          break;
16495e10f69a Adding support for single resource scheduling
lbessard
parents: 181
diff changeset
  1907
        case run_dt:
16495e10f69a Adding support for single resource scheduling
lbessard
parents: 181
diff changeset
  1908
          if (symbol->single_data_source != NULL) {
16495e10f69a Adding support for single resource scheduling
lbessard
parents: 181
diff changeset
  1909
            symbol_c *config_var_decl = NULL;
16495e10f69a Adding support for single resource scheduling
lbessard
parents: 181
diff changeset
  1910
            symbol_c *res_var_decl = NULL;
392
9b88b8b6bccd Fixing generated code for global variables. Adding support for defining global variables with complex type
laurent
parents: 381
diff changeset
  1911
            s4o.print(s4o.indent_spaces + "{");
184
16495e10f69a Adding support for single resource scheduling
lbessard
parents: 181
diff changeset
  1912
            symbol_c *current_var_reference = ((global_var_reference_c *)(symbol->single_data_source))->global_var_name;
16495e10f69a Adding support for single resource scheduling
lbessard
parents: 181
diff changeset
  1913
            res_var_decl = search_resource_instance->get_decl(current_var_reference);
16495e10f69a Adding support for single resource scheduling
lbessard
parents: 181
diff changeset
  1914
            if (res_var_decl == NULL) {
16495e10f69a Adding support for single resource scheduling
lbessard
parents: 181
diff changeset
  1915
              config_var_decl = search_config_instance->get_decl(current_var_reference);
16495e10f69a Adding support for single resource scheduling
lbessard
parents: 181
diff changeset
  1916
              if (config_var_decl == NULL)
16495e10f69a Adding support for single resource scheduling
lbessard
parents: 181
diff changeset
  1917
                ERROR;
16495e10f69a Adding support for single resource scheduling
lbessard
parents: 181
diff changeset
  1918
              config_var_decl->accept(*this);
16495e10f69a Adding support for single resource scheduling
lbessard
parents: 181
diff changeset
  1919
            }
248
9cb18ec14fa2 Task single parameter code generation broken after addition of accessors fixed.
laurent
parents: 244
diff changeset
  1920
            else {
392
9b88b8b6bccd Fixing generated code for global variables. Adding support for defining global variables with complex type
laurent
parents: 381
diff changeset
  1921
              res_var_decl->accept(*this);
248
9cb18ec14fa2 Task single parameter code generation broken after addition of accessors fixed.
laurent
parents: 244
diff changeset
  1922
            }
392
9b88b8b6bccd Fixing generated code for global variables. Adding support for defining global variables with complex type
laurent
parents: 381
diff changeset
  1923
            s4o.print("* ");
9b88b8b6bccd Fixing generated code for global variables. Adding support for defining global variables with complex type
laurent
parents: 381
diff changeset
  1924
            symbol->single_data_source->accept(*this);
9b88b8b6bccd Fixing generated code for global variables. Adding support for defining global variables with complex type
laurent
parents: 381
diff changeset
  1925
            s4o.print(" = __GET_GLOBAL_");
9b88b8b6bccd Fixing generated code for global variables. Adding support for defining global variables with complex type
laurent
parents: 381
diff changeset
  1926
            symbol->single_data_source->accept(*this);
9b88b8b6bccd Fixing generated code for global variables. Adding support for defining global variables with complex type
laurent
parents: 381
diff changeset
  1927
            s4o.print("();");
248
9cb18ec14fa2 Task single parameter code generation broken after addition of accessors fixed.
laurent
parents: 244
diff changeset
  1928
            s4o.print(SET_VAR);
9cb18ec14fa2 Task single parameter code generation broken after addition of accessors fixed.
laurent
parents: 244
diff changeset
  1929
            s4o.print("(");
184
16495e10f69a Adding support for single resource scheduling
lbessard
parents: 181
diff changeset
  1930
            current_task_name->accept(*this);
885
b2604fc6d25c Change order of SET_xxx() macros. (this will allow me to simplify the print_setter() methods later on)
mjsousa
parents: 878
diff changeset
  1931
            s4o.print("_R_TRIG.,CLK,, *");
184
16495e10f69a Adding support for single resource scheduling
lbessard
parents: 181
diff changeset
  1932
            symbol->single_data_source->accept(*this);
392
9b88b8b6bccd Fixing generated code for global variables. Adding support for defining global variables with complex type
laurent
parents: 381
diff changeset
  1933
            s4o.print(");}\n");
184
16495e10f69a Adding support for single resource scheduling
lbessard
parents: 181
diff changeset
  1934
            s4o.print(s4o.indent_spaces + "R_TRIG");
16495e10f69a Adding support for single resource scheduling
lbessard
parents: 181
diff changeset
  1935
            s4o.print(FB_FUNCTION_SUFFIX);
16495e10f69a Adding support for single resource scheduling
lbessard
parents: 181
diff changeset
  1936
            s4o.print("(&");
16495e10f69a Adding support for single resource scheduling
lbessard
parents: 181
diff changeset
  1937
            current_task_name->accept(*this);
16495e10f69a Adding support for single resource scheduling
lbessard
parents: 181
diff changeset
  1938
            s4o.print("_R_TRIG);\n");
16495e10f69a Adding support for single resource scheduling
lbessard
parents: 181
diff changeset
  1939
            s4o.print(s4o.indent_spaces);
16495e10f69a Adding support for single resource scheduling
lbessard
parents: 181
diff changeset
  1940
            current_task_name->accept(*this);
16495e10f69a Adding support for single resource scheduling
lbessard
parents: 181
diff changeset
  1941
            s4o.print(" = ");
248
9cb18ec14fa2 Task single parameter code generation broken after addition of accessors fixed.
laurent
parents: 244
diff changeset
  1942
            s4o.print(GET_VAR);
9cb18ec14fa2 Task single parameter code generation broken after addition of accessors fixed.
laurent
parents: 244
diff changeset
  1943
            s4o.print("(");
184
16495e10f69a Adding support for single resource scheduling
lbessard
parents: 181
diff changeset
  1944
            current_task_name->accept(*this);
248
9cb18ec14fa2 Task single parameter code generation broken after addition of accessors fixed.
laurent
parents: 244
diff changeset
  1945
            s4o.print("_R_TRIG.Q)");
184
16495e10f69a Adding support for single resource scheduling
lbessard
parents: 181
diff changeset
  1946
          }
16495e10f69a Adding support for single resource scheduling
lbessard
parents: 181
diff changeset
  1947
          else {
16495e10f69a Adding support for single resource scheduling
lbessard
parents: 181
diff changeset
  1948
            s4o.print(s4o.indent_spaces);
16495e10f69a Adding support for single resource scheduling
lbessard
parents: 181
diff changeset
  1949
            current_task_name->accept(*this);
16495e10f69a Adding support for single resource scheduling
lbessard
parents: 181
diff changeset
  1950
            s4o.print(" = ");
16495e10f69a Adding support for single resource scheduling
lbessard
parents: 181
diff changeset
  1951
            if (symbol->interval_data_source != NULL) {
594
c8092e909886 Clean up code (remove parsing of integers in stage 4).
Mario de Sousa <msousa@fe.up.pt>
parents: 592
diff changeset
  1952
              unsigned long long int time = calculate_time(symbol->interval_data_source);
184
16495e10f69a Adding support for single resource scheduling
lbessard
parents: 181
diff changeset
  1953
              if (time != 0) {
16495e10f69a Adding support for single resource scheduling
lbessard
parents: 181
diff changeset
  1954
                s4o.print("!(tick % ");
594
c8092e909886 Clean up code (remove parsing of integers in stage 4).
Mario de Sousa <msousa@fe.up.pt>
parents: 592
diff changeset
  1955
                s4o.print(time / common_ticktime);
184
16495e10f69a Adding support for single resource scheduling
lbessard
parents: 181
diff changeset
  1956
                s4o.print(")");
16495e10f69a Adding support for single resource scheduling
lbessard
parents: 181
diff changeset
  1957
              }
16495e10f69a Adding support for single resource scheduling
lbessard
parents: 181
diff changeset
  1958
              else
16495e10f69a Adding support for single resource scheduling
lbessard
parents: 181
diff changeset
  1959
                s4o.print("1");
16495e10f69a Adding support for single resource scheduling
lbessard
parents: 181
diff changeset
  1960
            }
16495e10f69a Adding support for single resource scheduling
lbessard
parents: 181
diff changeset
  1961
            else 
16495e10f69a Adding support for single resource scheduling
lbessard
parents: 181
diff changeset
  1962
              s4o.print("1");
16495e10f69a Adding support for single resource scheduling
lbessard
parents: 181
diff changeset
  1963
          }
16495e10f69a Adding support for single resource scheduling
lbessard
parents: 181
diff changeset
  1964
          s4o.print(";\n");
16495e10f69a Adding support for single resource scheduling
lbessard
parents: 181
diff changeset
  1965
          break;
16495e10f69a Adding support for single resource scheduling
lbessard
parents: 181
diff changeset
  1966
        default:
16495e10f69a Adding support for single resource scheduling
lbessard
parents: 181
diff changeset
  1967
          break;
70
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  1968
      }
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  1969
      return NULL;
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  1970
    }
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  1971
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  1972
/*  any_symbolic_variable ASSIGN prog_data_source */
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  1973
//SYM_REF2(prog_cnxn_assign_c, symbolic_variable, prog_data_source)
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  1974
    void *visit(prog_cnxn_assign_c *symbol) {
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  1975
      if (wanted_assigntype == assign_at) {
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  1976
        symbol_c *var_decl;
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  1977
        unsigned int vartype = 0;
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  1978
        symbol_c *current_var_reference = ((global_var_reference_c *)(symbol->prog_data_source))->global_var_name;
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  1979
        var_decl = search_resource_instance->get_decl(current_var_reference);
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  1980
        if (var_decl == NULL) {
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  1981
          var_decl = search_config_instance->get_decl(current_var_reference);
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  1982
          if (var_decl == NULL)
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  1983
            ERROR;
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  1984
          else
417
d48f53715f77 Re-write of stage3 code (done by Manuele and I), re-write of search_varfb_instance_type_c (done by myself), and several other bug fixes.
Mario de Sousa <msousa@fe.up.pt>
parents: 397
diff changeset
  1985
            vartype = search_config_instance->get_vartype(current_var_reference);
70
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  1986
        }
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  1987
        else
417
d48f53715f77 Re-write of stage3 code (done by Manuele and I), re-write of search_varfb_instance_type_c (done by myself), and several other bug fixes.
Mario de Sousa <msousa@fe.up.pt>
parents: 397
diff changeset
  1988
          vartype = search_resource_instance->get_vartype(current_var_reference);
70
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  1989
        
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  1990
        s4o.print(s4o.indent_spaces + "{extern ");
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  1991
        var_decl->accept(*this);
202
da1a8186f86f Initial (very rough) version of semantic checker (stage3)
Catarina Boucinha <ccb@fe.up.pt>
parents: 189
diff changeset
  1992
        s4o.print(" *");
70
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  1993
        symbol->prog_data_source->accept(*this);
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  1994
        s4o.print("; ");
202
da1a8186f86f Initial (very rough) version of semantic checker (stage3)
Catarina Boucinha <ccb@fe.up.pt>
parents: 189
diff changeset
  1995
        s4o.printupper(current_program_name);
70
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  1996
        s4o.print(".");
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  1997
        symbol->symbolic_variable->accept(*this);
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  1998
        s4o.print(" = ");
506
2b4e69c7ff8b Fix typo in comparison expression.
Mario de Sousa <msousa@fe.up.pt>
parents: 498
diff changeset
  1999
        if (vartype == search_var_instance_decl_c::global_vt)
70
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  2000
          s4o.print("*");
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  2001
        symbol->prog_data_source->accept(*this);
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  2002
        s4o.print(";}\n");
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  2003
      }
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  2004
      return NULL;
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  2005
    }
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  2006
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  2007
/* any_symbolic_variable SENDTO data_sink */
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  2008
//SYM_REF2(prog_cnxn_sendto_c, symbolic_variable, data_sink)
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  2009
    void *visit(prog_cnxn_sendto_c *symbol) {
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  2010
      if (wanted_assigntype == send_at) {
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  2011
        symbol_c *var_decl;
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  2012
        unsigned int vartype = 0;
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  2013
        symbol_c *current_var_reference = ((global_var_reference_c *)(symbol->data_sink))->global_var_name;
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  2014
        var_decl = search_resource_instance->get_decl(current_var_reference);
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  2015
        if (var_decl == NULL) {
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  2016
          var_decl = search_config_instance->get_decl(current_var_reference);
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  2017
          if (var_decl == NULL)
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  2018
            ERROR;
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  2019
          else
417
d48f53715f77 Re-write of stage3 code (done by Manuele and I), re-write of search_varfb_instance_type_c (done by myself), and several other bug fixes.
Mario de Sousa <msousa@fe.up.pt>
parents: 397
diff changeset
  2020
            vartype = search_config_instance->get_vartype(current_var_reference);
70
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  2021
        }
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  2022
        else
417
d48f53715f77 Re-write of stage3 code (done by Manuele and I), re-write of search_varfb_instance_type_c (done by myself), and several other bug fixes.
Mario de Sousa <msousa@fe.up.pt>
parents: 397
diff changeset
  2023
          vartype = search_resource_instance->get_vartype(current_var_reference);
70
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  2024
        
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  2025
        s4o.print(s4o.indent_spaces + "{extern ");
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  2026
        var_decl->accept(*this);
202
da1a8186f86f Initial (very rough) version of semantic checker (stage3)
Catarina Boucinha <ccb@fe.up.pt>
parents: 189
diff changeset
  2027
        s4o.print(" *");
70
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  2028
        symbol->data_sink->accept(*this);
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  2029
        s4o.print("; ");
506
2b4e69c7ff8b Fix typo in comparison expression.
Mario de Sousa <msousa@fe.up.pt>
parents: 498
diff changeset
  2030
        if (vartype == search_var_instance_decl_c::global_vt)
70
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  2031
          s4o.print("*");
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  2032
        symbol->data_sink->accept(*this);
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  2033
        s4o.print(" = ");
202
da1a8186f86f Initial (very rough) version of semantic checker (stage3)
Catarina Boucinha <ccb@fe.up.pt>
parents: 189
diff changeset
  2034
        s4o.printupper(current_program_name);
70
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  2035
        s4o.print(".");
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  2036
        symbol->symbolic_variable->accept(*this);
202
da1a8186f86f Initial (very rough) version of semantic checker (stage3)
Catarina Boucinha <ccb@fe.up.pt>
parents: 189
diff changeset
  2037
        s4o.print(";};\n");
70
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  2038
      }
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  2039
      return NULL;
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  2040
    }
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  2041
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  2042
};
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  2043
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  2044
/***********************************************************************/
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  2045
/***********************************************************************/
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  2046
/***********************************************************************/
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  2047
/***********************************************************************/
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  2048
/***********************************************************************/
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  2049
/***********************************************************************/
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  2050
/***********************************************************************/
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  2051
/***********************************************************************/
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  2052
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  2053
class generate_c_c: public iterator_visitor_c {
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  2054
  protected:
913
1c74da17cb61 Implicitly defined array datatypes use new naming method (greatly simplifies stage 4 code).
mjsousa
parents: 908
diff changeset
  2055
    stage4out_c                      &s4o;
1c74da17cb61 Implicitly defined array datatypes use new naming method (greatly simplifies stage 4 code).
mjsousa
parents: 908
diff changeset
  2056
    stage4out_c                  pous_s4o;
1c74da17cb61 Implicitly defined array datatypes use new naming method (greatly simplifies stage 4 code).
mjsousa
parents: 908
diff changeset
  2057
    stage4out_c             pous_incl_s4o;
1c74da17cb61 Implicitly defined array datatypes use new naming method (greatly simplifies stage 4 code).
mjsousa
parents: 908
diff changeset
  2058
    stage4out_c     located_variables_s4o;
1c74da17cb61 Implicitly defined array datatypes use new naming method (greatly simplifies stage 4 code).
mjsousa
parents: 908
diff changeset
  2059
    stage4out_c             variables_s4o;
1c74da17cb61 Implicitly defined array datatypes use new naming method (greatly simplifies stage 4 code).
mjsousa
parents: 908
diff changeset
  2060
    
945
477393b00f95 Add support for relaxed datatype model for array datatypes.
mjsousa
parents: 933
diff changeset
  2061
    generate_c_typedecl_c          generate_c_typedecl;
477393b00f95 Add support for relaxed datatype model for array datatypes.
mjsousa
parents: 933
diff changeset
  2062
    generate_c_implicit_typedecl_c generate_c_implicit_typedecl;
477393b00f95 Add support for relaxed datatype model for array datatypes.
mjsousa
parents: 933
diff changeset
  2063
    generate_c_pous_c              generate_c_pous;
913
1c74da17cb61 Implicitly defined array datatypes use new naming method (greatly simplifies stage 4 code).
mjsousa
parents: 908
diff changeset
  2064
    
1c74da17cb61 Implicitly defined array datatypes use new naming method (greatly simplifies stage 4 code).
mjsousa
parents: 908
diff changeset
  2065
    symbol_c   *current_configuration;
70
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  2066
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  2067
    const char *current_name;
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  2068
    const char *current_builddir;
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  2069
908
9e8e1ba5ca46 Add option to place each POU in a distinct .c and .h file pair.
mjsousa
parents: 907
diff changeset
  2070
    bool        allow_output;
9e8e1ba5ca46 Add option to place each POU in a distinct .c and .h file pair.
mjsousa
parents: 907
diff changeset
  2071
    
237
cece842c7417 Adding support for using arrays in POU interface
laurent
parents: 234
diff changeset
  2072
    unsigned long long common_ticktime;
70
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  2073
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  2074
  public:
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  2075
    generate_c_c(stage4out_c *s4o_ptr, const char *builddir): 
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  2076
            s4o(*s4o_ptr),
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  2077
            pous_s4o(builddir, "POUS", "c"),
121
9e8ce092e169 Adding support for POU struct definition in POUS.h
lbessard
parents: 120
diff changeset
  2078
            pous_incl_s4o(builddir, "POUS", "h"),
70
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  2079
            located_variables_s4o(builddir, "LOCATED_VARIABLES","h"),
112
0c8d1b0c957a changed VARIABLES.h in VARIABLES.cvs
etisserant
parents: 111
diff changeset
  2080
            variables_s4o(builddir, "VARIABLES","csv"),
945
477393b00f95 Add support for relaxed datatype model for array datatypes.
mjsousa
parents: 933
diff changeset
  2081
            generate_c_typedecl         (&pous_incl_s4o),
477393b00f95 Add support for relaxed datatype model for array datatypes.
mjsousa
parents: 933
diff changeset
  2082
            generate_c_implicit_typedecl(&pous_incl_s4o, &generate_c_typedecl)
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
  2083
    {
70
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  2084
      current_builddir = builddir;
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  2085
      current_configuration = NULL;
908
9e8e1ba5ca46 Add option to place each POU in a distinct .c and .h file pair.
mjsousa
parents: 907
diff changeset
  2086
      allow_output = true;
70
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  2087
    }
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  2088
            
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  2089
    ~generate_c_c(void) {}
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  2090
267
0a1204bcc9af starting to add proper header file with declaration of standard functions
Mario de Sousa <msousa@fe.up.pt>
parents: 262
diff changeset
  2091
0a1204bcc9af starting to add proper header file with declaration of standard functions
Mario de Sousa <msousa@fe.up.pt>
parents: 262
diff changeset
  2092
0a1204bcc9af starting to add proper header file with declaration of standard functions
Mario de Sousa <msousa@fe.up.pt>
parents: 262
diff changeset
  2093
/********************/
0a1204bcc9af starting to add proper header file with declaration of standard functions
Mario de Sousa <msousa@fe.up.pt>
parents: 262
diff changeset
  2094
/* 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
  2095
/********************/
0a1204bcc9af starting to add proper header file with declaration of standard functions
Mario de Sousa <msousa@fe.up.pt>
parents: 262
diff changeset
  2096
    void *visit(enable_code_generation_pragma_c * symbol)  {
0a1204bcc9af starting to add proper header file with declaration of standard functions
Mario de Sousa <msousa@fe.up.pt>
parents: 262
diff changeset
  2097
      s4o                  .enable_output();  
0a1204bcc9af starting to add proper header file with declaration of standard functions
Mario de Sousa <msousa@fe.up.pt>
parents: 262
diff changeset
  2098
      pous_s4o             .enable_output();  
0a1204bcc9af starting to add proper header file with declaration of standard functions
Mario de Sousa <msousa@fe.up.pt>
parents: 262
diff changeset
  2099
      pous_incl_s4o        .enable_output();  
0a1204bcc9af starting to add proper header file with declaration of standard functions
Mario de Sousa <msousa@fe.up.pt>
parents: 262
diff changeset
  2100
      located_variables_s4o.enable_output();  
0a1204bcc9af starting to add proper header file with declaration of standard functions
Mario de Sousa <msousa@fe.up.pt>
parents: 262
diff changeset
  2101
      variables_s4o        .enable_output();  
908
9e8e1ba5ca46 Add option to place each POU in a distinct .c and .h file pair.
mjsousa
parents: 907
diff changeset
  2102
      allow_output = true;      
267
0a1204bcc9af starting to add proper header file with declaration of standard functions
Mario de Sousa <msousa@fe.up.pt>
parents: 262
diff changeset
  2103
      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
  2104
    }
0a1204bcc9af starting to add proper header file with declaration of standard functions
Mario de Sousa <msousa@fe.up.pt>
parents: 262
diff changeset
  2105
    
0a1204bcc9af starting to add proper header file with declaration of standard functions
Mario de Sousa <msousa@fe.up.pt>
parents: 262
diff changeset
  2106
    void *visit(disable_code_generation_pragma_c * symbol)  {
0a1204bcc9af starting to add proper header file with declaration of standard functions
Mario de Sousa <msousa@fe.up.pt>
parents: 262
diff changeset
  2107
      s4o                  .disable_output();  
0a1204bcc9af starting to add proper header file with declaration of standard functions
Mario de Sousa <msousa@fe.up.pt>
parents: 262
diff changeset
  2108
      pous_s4o             .disable_output();  
0a1204bcc9af starting to add proper header file with declaration of standard functions
Mario de Sousa <msousa@fe.up.pt>
parents: 262
diff changeset
  2109
      pous_incl_s4o        .disable_output();  
0a1204bcc9af starting to add proper header file with declaration of standard functions
Mario de Sousa <msousa@fe.up.pt>
parents: 262
diff changeset
  2110
      located_variables_s4o.disable_output();  
0a1204bcc9af starting to add proper header file with declaration of standard functions
Mario de Sousa <msousa@fe.up.pt>
parents: 262
diff changeset
  2111
      variables_s4o        .disable_output();  
908
9e8e1ba5ca46 Add option to place each POU in a distinct .c and .h file pair.
mjsousa
parents: 907
diff changeset
  2112
      allow_output = false;      
267
0a1204bcc9af starting to add proper header file with declaration of standard functions
Mario de Sousa <msousa@fe.up.pt>
parents: 262
diff changeset
  2113
      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
  2114
    } 
0a1204bcc9af starting to add proper header file with declaration of standard functions
Mario de Sousa <msousa@fe.up.pt>
parents: 262
diff changeset
  2115
0a1204bcc9af starting to add proper header file with declaration of standard functions
Mario de Sousa <msousa@fe.up.pt>
parents: 262
diff changeset
  2116
70
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  2117
/***************************/
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  2118
/* B 0 - Programming Model */
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  2119
/***************************/
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  2120
    void *visit(library_c *symbol) {
917
5344b1fc826b Ass include of iec_std_lib.h in POUS.h file.
mjsousa
parents: 916
diff changeset
  2121
      pous_incl_s4o.print("#ifndef __POUS_H\n#define __POUS_H\n\n#include \"accessor.h\"\n#include \"iec_std_lib.h\"\n\n");
377
60b012b7793f Adding support for compiling direct array specification inside variable declaration
laurent
parents: 355
diff changeset
  2122
60b012b7793f Adding support for compiling direct array specification inside variable declaration
laurent
parents: 355
diff changeset
  2123
      for(int i = 0; i < symbol->n; i++) {
60b012b7793f Adding support for compiling direct array specification inside variable declaration
laurent
parents: 355
diff changeset
  2124
        symbol->elements[i]->accept(*this);
60b012b7793f Adding support for compiling direct array specification inside variable declaration
laurent
parents: 355
diff changeset
  2125
      }
60b012b7793f Adding support for compiling direct array specification inside variable declaration
laurent
parents: 355
diff changeset
  2126
121
9e8ce092e169 Adding support for POU struct definition in POUS.h
lbessard
parents: 120
diff changeset
  2127
      pous_incl_s4o.print("#endif //__POUS_H\n");
9e8ce092e169 Adding support for POU struct definition in POUS.h
lbessard
parents: 120
diff changeset
  2128
      
9e8ce092e169 Adding support for POU struct definition in POUS.h
lbessard
parents: 120
diff changeset
  2129
      generate_var_list_c generate_var_list(&variables_s4o, symbol);
9e8ce092e169 Adding support for POU struct definition in POUS.h
lbessard
parents: 120
diff changeset
  2130
      generate_var_list.generate_programs(symbol);
9e8ce092e169 Adding support for POU struct definition in POUS.h
lbessard
parents: 120
diff changeset
  2131
      generate_var_list.generate_variables(symbol);
397
85151b2f35ca Adding Common_Ticktime to informations printed in VARIABLES.csv file
laurent
parents: 396
diff changeset
  2132
      variables_s4o.print("\n// Ticktime\n");
85151b2f35ca Adding Common_Ticktime to informations printed in VARIABLES.csv file
laurent
parents: 396
diff changeset
  2133
      variables_s4o.print_long_long_integer(common_ticktime, false);
85151b2f35ca Adding Common_Ticktime to informations printed in VARIABLES.csv file
laurent
parents: 396
diff changeset
  2134
      variables_s4o.print("\n");
85151b2f35ca Adding Common_Ticktime to informations printed in VARIABLES.csv file
laurent
parents: 396
diff changeset
  2135
98
d0cdf1d00b74 Adding support for derived data types.
lbessard
parents: 70
diff changeset
  2136
      generate_location_list_c generate_location_list(&located_variables_s4o);
d0cdf1d00b74 Adding support for derived data types.
lbessard
parents: 70
diff changeset
  2137
      symbol->accept(generate_location_list);
70
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  2138
      return NULL;
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  2139
    }
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  2140
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  2141
/*************************/
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  2142
/* B.1 - Common elements */
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  2143
/*************************/
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  2144
/*******************************************/
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  2145
/* B 1.1 - Letters, digits and identifiers */
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  2146
/*******************************************/
958
7474d2cd1d6e Add a new pou_typename_c object to the AST to store references to previously declared Functions, FB, and Programs.
mjsousa
parents: 945
diff changeset
  2147
    void *visit(identifier_c *symbol) {current_name = symbol->value; return NULL;}
7474d2cd1d6e Add a new pou_typename_c object to the AST to store references to previously declared Functions, FB, and Programs.
mjsousa
parents: 945
diff changeset
  2148
    /* In the derived datatype and POUs declarations, the names are stored as identfier_c, so the following visitors are not required! */
7474d2cd1d6e Add a new pou_typename_c object to the AST to store references to previously declared Functions, FB, and Programs.
mjsousa
parents: 945
diff changeset
  2149
    void *visit(derived_datatype_identifier_c *symbol) {ERROR; return NULL;}
7474d2cd1d6e Add a new pou_typename_c object to the AST to store references to previously declared Functions, FB, and Programs.
mjsousa
parents: 945
diff changeset
  2150
    void *visit(         poutype_identifier_c *symbol) {ERROR; return NULL;}
7474d2cd1d6e Add a new pou_typename_c object to the AST to store references to previously declared Functions, FB, and Programs.
mjsousa
parents: 945
diff changeset
  2151
    
70
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  2152
98
d0cdf1d00b74 Adding support for derived data types.
lbessard
parents: 70
diff changeset
  2153
/********************************/
d0cdf1d00b74 Adding support for derived data types.
lbessard
parents: 70
diff changeset
  2154
/* B 1.3.3 - Derived data types */
d0cdf1d00b74 Adding support for derived data types.
lbessard
parents: 70
diff changeset
  2155
/********************************/
d0cdf1d00b74 Adding support for derived data types.
lbessard
parents: 70
diff changeset
  2156
    /*  TYPE type_declaration_list END_TYPE */
913
1c74da17cb61 Implicitly defined array datatypes use new naming method (greatly simplifies stage 4 code).
mjsousa
parents: 908
diff changeset
  2157
//   void *visit(data_type_declaration_c *symbol)  // handled by iterator_visitor_c
1c74da17cb61 Implicitly defined array datatypes use new naming method (greatly simplifies stage 4 code).
mjsousa
parents: 908
diff changeset
  2158
1c74da17cb61 Implicitly defined array datatypes use new naming method (greatly simplifies stage 4 code).
mjsousa
parents: 908
diff changeset
  2159
    /* helper symbol for data_type_declaration */
1c74da17cb61 Implicitly defined array datatypes use new naming method (greatly simplifies stage 4 code).
mjsousa
parents: 908
diff changeset
  2160
    void *visit(type_declaration_list_c *symbol) {
1c74da17cb61 Implicitly defined array datatypes use new naming method (greatly simplifies stage 4 code).
mjsousa
parents: 908
diff changeset
  2161
      for(int i = 0; i < symbol->n; i++) {
945
477393b00f95 Add support for relaxed datatype model for array datatypes.
mjsousa
parents: 933
diff changeset
  2162
        symbol->elements[i]->accept(generate_c_implicit_typedecl);
913
1c74da17cb61 Implicitly defined array datatypes use new naming method (greatly simplifies stage 4 code).
mjsousa
parents: 908
diff changeset
  2163
        symbol->elements[i]->accept(generate_c_typedecl);
1c74da17cb61 Implicitly defined array datatypes use new naming method (greatly simplifies stage 4 code).
mjsousa
parents: 908
diff changeset
  2164
      }
98
d0cdf1d00b74 Adding support for derived data types.
lbessard
parents: 70
diff changeset
  2165
      return NULL;
d0cdf1d00b74 Adding support for derived data types.
lbessard
parents: 70
diff changeset
  2166
    }
d0cdf1d00b74 Adding support for derived data types.
lbessard
parents: 70
diff changeset
  2167
70
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  2168
/**************************************/
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  2169
/* B.1.5 - Program organization units */
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  2170
/**************************************/
958
7474d2cd1d6e Add a new pou_typename_c object to the AST to store references to previously declared Functions, FB, and Programs.
mjsousa
parents: 945
diff changeset
  2171
/* WARNING: The following code is buggy when generating an independent pair of files for each POU, as the
7474d2cd1d6e Add a new pou_typename_c object to the AST to store references to previously declared Functions, FB, and Programs.
mjsousa
parents: 945
diff changeset
  2172
 *          specially created stage4out_c (s4o_c and s4o_h) will not comply with the enable/disable_code_generation_pragma_c
7474d2cd1d6e Add a new pou_typename_c object to the AST to store references to previously declared Functions, FB, and Programs.
mjsousa
parents: 945
diff changeset
  2173
 */
918
e9bde0aa93ed for option '-Op' (generate <pouname>.h/c): add '#include <pouname>.h' to the .c file, and '#ifdef <pouname>_H' to the .h file
mjsousa
parents: 917
diff changeset
  2174
#define handle_pou(fname,pname) \
908
9e8e1ba5ca46 Add option to place each POU in a distinct .c and .h file pair.
mjsousa
parents: 907
diff changeset
  2175
      if (!allow_output) return NULL;\
9e8e1ba5ca46 Add option to place each POU in a distinct .c and .h file pair.
mjsousa
parents: 907
diff changeset
  2176
      if (generate_pou_filepairs__) {\
945
477393b00f95 Add support for relaxed datatype model for array datatypes.
mjsousa
parents: 933
diff changeset
  2177
        const char *pou_name = get_datatype_info_c::get_id_str(pname);\
918
e9bde0aa93ed for option '-Op' (generate <pouname>.h/c): add '#include <pouname>.h' to the .c file, and '#ifdef <pouname>_H' to the .h file
mjsousa
parents: 917
diff changeset
  2178
        stage4out_c s4o_c(current_builddir, pou_name, "c");\
e9bde0aa93ed for option '-Op' (generate <pouname>.h/c): add '#include <pouname>.h' to the .c file, and '#ifdef <pouname>_H' to the .h file
mjsousa
parents: 917
diff changeset
  2179
        stage4out_c s4o_h(current_builddir, pou_name, "h");\
e9bde0aa93ed for option '-Op' (generate <pouname>.h/c): add '#include <pouname>.h' to the .c file, and '#ifdef <pouname>_H' to the .h file
mjsousa
parents: 917
diff changeset
  2180
        s4o_c.print("#include \""); s4o_c.print(pou_name); s4o_c.print(".h\"\n");\
e9bde0aa93ed for option '-Op' (generate <pouname>.h/c): add '#include <pouname>.h' to the .c file, and '#ifdef <pouname>_H' to the .h file
mjsousa
parents: 917
diff changeset
  2181
        s4o_h.print("#ifndef __");  s4o_h.print(pou_name); s4o_h.print("_H\n");\
e9bde0aa93ed for option '-Op' (generate <pouname>.h/c): add '#include <pouname>.h' to the .c file, and '#ifdef <pouname>_H' to the .h file
mjsousa
parents: 917
diff changeset
  2182
        s4o_h.print("#define __");  s4o_h.print(pou_name); s4o_h.print("_H\n");\
945
477393b00f95 Add support for relaxed datatype model for array datatypes.
mjsousa
parents: 933
diff changeset
  2183
        generate_c_implicit_typedecl_c generate_c_implicit_typedecl__(&s4o_h);\
477393b00f95 Add support for relaxed datatype model for array datatypes.
mjsousa
parents: 933
diff changeset
  2184
        symbol->accept(generate_c_implicit_typedecl__); /* generate implicitly delcared datatypes (arrays and ref_to) */\
908
9e8e1ba5ca46 Add option to place each POU in a distinct .c and .h file pair.
mjsousa
parents: 907
diff changeset
  2185
        generate_c_pous_c::fname(symbol, s4o_h, true); /* generate the <pou_name>.h file */\
9e8e1ba5ca46 Add option to place each POU in a distinct .c and .h file pair.
mjsousa
parents: 907
diff changeset
  2186
        generate_c_pous_c::fname(symbol, s4o_c, false);/* generate the <pou_name>.c file */\
918
e9bde0aa93ed for option '-Op' (generate <pouname>.h/c): add '#include <pouname>.h' to the .c file, and '#ifdef <pouname>_H' to the .h file
mjsousa
parents: 917
diff changeset
  2187
        s4o_h.print("#endif /* __");  s4o_h.print(pou_name); s4o_h.print("_H */\n");\
908
9e8e1ba5ca46 Add option to place each POU in a distinct .c and .h file pair.
mjsousa
parents: 907
diff changeset
  2188
        /* add #include directives to the POUS.h and POUS.c files... */\
9e8e1ba5ca46 Add option to place each POU in a distinct .c and .h file pair.
mjsousa
parents: 907
diff changeset
  2189
        pous_incl_s4o.print("#include \"");\
9e8e1ba5ca46 Add option to place each POU in a distinct .c and .h file pair.
mjsousa
parents: 907
diff changeset
  2190
        pous_s4o.     print("#include \"");\
918
e9bde0aa93ed for option '-Op' (generate <pouname>.h/c): add '#include <pouname>.h' to the .c file, and '#ifdef <pouname>_H' to the .h file
mjsousa
parents: 917
diff changeset
  2191
        pous_incl_s4o.print(pou_name);\
e9bde0aa93ed for option '-Op' (generate <pouname>.h/c): add '#include <pouname>.h' to the .c file, and '#ifdef <pouname>_H' to the .h file
mjsousa
parents: 917
diff changeset
  2192
        pous_s4o.     print(pou_name);\
908
9e8e1ba5ca46 Add option to place each POU in a distinct .c and .h file pair.
mjsousa
parents: 907
diff changeset
  2193
        pous_incl_s4o.print(".h\"\n");\
9e8e1ba5ca46 Add option to place each POU in a distinct .c and .h file pair.
mjsousa
parents: 907
diff changeset
  2194
        pous_s4o.     print(".c\"\n");\
9e8e1ba5ca46 Add option to place each POU in a distinct .c and .h file pair.
mjsousa
parents: 907
diff changeset
  2195
      } else {\
945
477393b00f95 Add support for relaxed datatype model for array datatypes.
mjsousa
parents: 933
diff changeset
  2196
        symbol->accept(generate_c_implicit_typedecl);\
908
9e8e1ba5ca46 Add option to place each POU in a distinct .c and .h file pair.
mjsousa
parents: 907
diff changeset
  2197
        generate_c_pous_c::fname(symbol, pous_incl_s4o, true);\
9e8e1ba5ca46 Add option to place each POU in a distinct .c and .h file pair.
mjsousa
parents: 907
diff changeset
  2198
        generate_c_pous_c::fname(symbol, pous_s4o,      false);\
9e8e1ba5ca46 Add option to place each POU in a distinct .c and .h file pair.
mjsousa
parents: 907
diff changeset
  2199
      }
9e8e1ba5ca46 Add option to place each POU in a distinct .c and .h file pair.
mjsousa
parents: 907
diff changeset
  2200
70
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  2201
/***********************/
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  2202
/* B 1.5.1 - Functions */
908
9e8e1ba5ca46 Add option to place each POU in a distinct .c and .h file pair.
mjsousa
parents: 907
diff changeset
  2203
/***********************/      
70
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  2204
    void *visit(function_declaration_c *symbol) {
918
e9bde0aa93ed for option '-Op' (generate <pouname>.h/c): add '#include <pouname>.h' to the .c file, and '#ifdef <pouname>_H' to the .h file
mjsousa
parents: 917
diff changeset
  2205
      handle_pou(handle_function,symbol->derived_function_name)
377
60b012b7793f Adding support for compiling direct array specification inside variable declaration
laurent
parents: 355
diff changeset
  2206
      return NULL;
70
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  2207
    }
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  2208
    
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  2209
/*****************************/
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  2210
/* B 1.5.2 - Function Blocks */
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  2211
/*****************************/
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  2212
    void *visit(function_block_declaration_c *symbol) {
918
e9bde0aa93ed for option '-Op' (generate <pouname>.h/c): add '#include <pouname>.h' to the .c file, and '#ifdef <pouname>_H' to the .h file
mjsousa
parents: 917
diff changeset
  2213
      handle_pou(handle_function_block,symbol->fblock_name)
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
  2214
      return NULL;
70
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  2215
    }
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  2216
    
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  2217
/**********************/
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  2218
/* B 1.5.3 - Programs */
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  2219
/**********************/    
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  2220
    void *visit(program_declaration_c *symbol) {
918
e9bde0aa93ed for option '-Op' (generate <pouname>.h/c): add '#include <pouname>.h' to the .c file, and '#ifdef <pouname>_H' to the .h file
mjsousa
parents: 917
diff changeset
  2221
      handle_pou(handle_program,symbol->program_type_name)
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
  2222
      return NULL;
70
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  2223
    }
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  2224
    
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  2225
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  2226
/********************************/
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  2227
/* B 1.7 Configuration elements */
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  2228
/********************************/
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  2229
    void *visit(configuration_declaration_c *symbol) {
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
  2230
      if (symbol->global_var_declarations != NULL)
945
477393b00f95 Add support for relaxed datatype model for array datatypes.
mjsousa
parents: 933
diff changeset
  2231
        symbol->global_var_declarations->accept(generate_c_implicit_typedecl);
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
  2232
      static int configuration_count = 0;
c3edb882a4b2 code re-organisation. Preparing for the changes to come in the next commit (one C file for each POU)
mjsousa
parents: 906
diff changeset
  2233
c3edb882a4b2 code re-organisation. Preparing for the changes to come in the next commit (one C file for each POU)
mjsousa
parents: 906
diff changeset
  2234
      if (configuration_count++) {
c3edb882a4b2 code re-organisation. Preparing for the changes to come in the next commit (one C file for each POU)
mjsousa
parents: 906
diff changeset
  2235
        /* the first configuration is the one we will use!! */
c3edb882a4b2 code re-organisation. Preparing for the changes to come in the next commit (one C file for each POU)
mjsousa
parents: 906
diff changeset
  2236
        STAGE4_ERROR(symbol, symbol, "A previous CONFIGURATION has already been declared (C code generation currently only allows a single configuration).");
c3edb882a4b2 code re-organisation. Preparing for the changes to come in the next commit (one C file for each POU)
mjsousa
parents: 906
diff changeset
  2237
        ERROR;
c3edb882a4b2 code re-organisation. Preparing for the changes to come in the next commit (one C file for each POU)
mjsousa
parents: 906
diff changeset
  2238
      }
c3edb882a4b2 code re-organisation. Preparing for the changes to come in the next commit (one C file for each POU)
mjsousa
parents: 906
diff changeset
  2239
c3edb882a4b2 code re-organisation. Preparing for the changes to come in the next commit (one C file for each POU)
mjsousa
parents: 906
diff changeset
  2240
      current_configuration = 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
  2241
c3edb882a4b2 code re-organisation. Preparing for the changes to come in the next commit (one C file for each POU)
mjsousa
parents: 906
diff changeset
  2242
      {
c3edb882a4b2 code re-organisation. Preparing for the changes to come in the next commit (one C file for each POU)
mjsousa
parents: 906
diff changeset
  2243
        calculate_common_ticktime_c calculate_common_ticktime;
c3edb882a4b2 code re-organisation. Preparing for the changes to come in the next commit (one C file for each POU)
mjsousa
parents: 906
diff changeset
  2244
        symbol->accept(calculate_common_ticktime);
c3edb882a4b2 code re-organisation. Preparing for the changes to come in the next commit (one C file for each POU)
mjsousa
parents: 906
diff changeset
  2245
        common_ticktime = calculate_common_ticktime.get_common_ticktime();
c3edb882a4b2 code re-organisation. Preparing for the changes to come in the next commit (one C file for each POU)
mjsousa
parents: 906
diff changeset
  2246
        if (common_ticktime == 0) {
c3edb882a4b2 code re-organisation. Preparing for the changes to come in the next commit (one C file for each POU)
mjsousa
parents: 906
diff changeset
  2247
          STAGE4_ERROR(symbol, symbol, "You must define at least one periodic task (to set cycle period)!");
c3edb882a4b2 code re-organisation. Preparing for the changes to come in the next commit (one C file for each POU)
mjsousa
parents: 906
diff changeset
  2248
          ERROR;
c3edb882a4b2 code re-organisation. Preparing for the changes to come in the next commit (one C file for each POU)
mjsousa
parents: 906
diff changeset
  2249
        }
c3edb882a4b2 code re-organisation. Preparing for the changes to come in the next commit (one C file for each POU)
mjsousa
parents: 906
diff changeset
  2250
c3edb882a4b2 code re-organisation. Preparing for the changes to come in the next commit (one C file for each POU)
mjsousa
parents: 906
diff changeset
  2251
        symbol->configuration_name->accept(*this);
c3edb882a4b2 code re-organisation. Preparing for the changes to come in the next commit (one C file for each POU)
mjsousa
parents: 906
diff changeset
  2252
        
c3edb882a4b2 code re-organisation. Preparing for the changes to come in the next commit (one C file for each POU)
mjsousa
parents: 906
diff changeset
  2253
        stage4out_c config_s4o(current_builddir, current_name, "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
  2254
        stage4out_c config_incl_s4o(current_builddir, current_name, "h");
c3edb882a4b2 code re-organisation. Preparing for the changes to come in the next commit (one C file for each POU)
mjsousa
parents: 906
diff changeset
  2255
        generate_c_config_c generate_c_config(&config_s4o, &config_incl_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
  2256
        symbol->accept(generate_c_config);
c3edb882a4b2 code re-organisation. Preparing for the changes to come in the next commit (one C file for each POU)
mjsousa
parents: 906
diff changeset
  2257
c3edb882a4b2 code re-organisation. Preparing for the changes to come in the next commit (one C file for each POU)
mjsousa
parents: 906
diff changeset
  2258
        config_s4o.print("unsigned long long common_ticktime__ = ");
c3edb882a4b2 code re-organisation. Preparing for the changes to come in the next commit (one C file for each POU)
mjsousa
parents: 906
diff changeset
  2259
        config_s4o.print_long_long_integer(common_ticktime);
c3edb882a4b2 code re-organisation. Preparing for the changes to come in the next commit (one C file for each POU)
mjsousa
parents: 906
diff changeset
  2260
        config_s4o.print("; /*ns*/\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
  2261
        config_s4o.print("unsigned long greatest_tick_count__ = ");
c3edb882a4b2 code re-organisation. Preparing for the changes to come in the next commit (one C file for each POU)
mjsousa
parents: 906
diff changeset
  2262
        config_s4o.print_long_integer(calculate_common_ticktime.get_greatest_tick_count());
c3edb882a4b2 code re-organisation. Preparing for the changes to come in the next commit (one C file for each POU)
mjsousa
parents: 906
diff changeset
  2263
        config_s4o.print("; /*tick*/\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
  2264
      }
c3edb882a4b2 code re-organisation. Preparing for the changes to come in the next commit (one C file for each POU)
mjsousa
parents: 906
diff changeset
  2265
c3edb882a4b2 code re-organisation. Preparing for the changes to come in the next commit (one C file for each POU)
mjsousa
parents: 906
diff changeset
  2266
      symbol->resource_declarations->accept(*this);
c3edb882a4b2 code re-organisation. Preparing for the changes to come in the next commit (one C file for each POU)
mjsousa
parents: 906
diff changeset
  2267
c3edb882a4b2 code re-organisation. Preparing for the changes to come in the next commit (one C file for each POU)
mjsousa
parents: 906
diff changeset
  2268
      current_configuration = NULL;
377
60b012b7793f Adding support for compiling direct array specification inside variable declaration
laurent
parents: 355
diff changeset
  2269
      return NULL;
60b012b7793f Adding support for compiling direct array specification inside variable declaration
laurent
parents: 355
diff changeset
  2270
    }
60b012b7793f Adding support for compiling direct array specification inside variable declaration
laurent
parents: 355
diff changeset
  2271
60b012b7793f Adding support for compiling direct array specification inside variable declaration
laurent
parents: 355
diff changeset
  2272
    void *visit(resource_declaration_c *symbol) {
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
  2273
      if (symbol->global_var_declarations != NULL)
945
477393b00f95 Add support for relaxed datatype model for array datatypes.
mjsousa
parents: 933
diff changeset
  2274
        symbol->global_var_declarations->accept(generate_c_implicit_typedecl);
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
  2275
      symbol->resource_name->accept(*this);
c3edb882a4b2 code re-organisation. Preparing for the changes to come in the next commit (one C file for each POU)
mjsousa
parents: 906
diff changeset
  2276
      stage4out_c resources_s4o(current_builddir, current_name, "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
  2277
      generate_c_resources_c generate_c_resources(&resources_s4o, current_configuration, symbol, common_ticktime);
c3edb882a4b2 code re-organisation. Preparing for the changes to come in the next commit (one C file for each POU)
mjsousa
parents: 906
diff changeset
  2278
      symbol->accept(generate_c_resources);
202
da1a8186f86f Initial (very rough) version of semantic checker (stage3)
Catarina Boucinha <ccb@fe.up.pt>
parents: 189
diff changeset
  2279
      return NULL;
70
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  2280
    }
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  2281
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  2282
    void *visit(single_resource_declaration_c *symbol) {
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
  2283
      stage4out_c resources_s4o(current_builddir, "RESOURCE", "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
  2284
      generate_c_resources_c generate_c_resources(&resources_s4o, current_configuration, symbol, common_ticktime);
c3edb882a4b2 code re-organisation. Preparing for the changes to come in the next commit (one C file for each POU)
mjsousa
parents: 906
diff changeset
  2285
      symbol->accept(generate_c_resources);
202
da1a8186f86f Initial (very rough) version of semantic checker (stage3)
Catarina Boucinha <ccb@fe.up.pt>
parents: 189
diff changeset
  2286
      return NULL;
70
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  2287
    }
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  2288
    
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  2289
};
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  2290
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  2291
/***********************************************************************/
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  2292
/***********************************************************************/
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  2293
/***********************************************************************/
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  2294
/***********************************************************************/
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  2295
/***********************************************************************/
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  2296
/***********************************************************************/
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  2297
/***********************************************************************/
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  2298
/***********************************************************************/
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  2299
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  2300
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  2301
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  2302
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  2303
visitor_c *new_code_generator(stage4out_c *s4o, const char *builddir)  {return new generate_c_c(s4o, builddir);}
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  2304
void delete_code_generator(visitor_c *code_generator) {delete code_generator;}
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  2305
e1f0ebd2d9ec Change generate_cc to generate_c
lbessard
parents:
diff changeset
  2306