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-- |
70 | 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 | 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 | 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 | 20 |
* |
21 |
* This code is made available on the understanding that it will not be |
|
22 |
* used in safety-critical situations without a full and competent review. |
|
23 |
*/ |
|
24 |
||
25 |
#include <string> |
|
26 |
#include <iostream> |
|
27 |
#include <sstream> |
|
28 |
#include <typeinfo> |
|
111 | 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 | 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 | 35 |
#include "../../util/symtable.hh" |
36 |
#include "../../util/dsymtable.hh" |
|
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 | 40 |
|
41 |
#include "../stage4.hh" |
|
42 |
||
43 |
//#define DEBUG |
|
44 |
#ifdef DEBUG |
|
45 |
#define TRACE(classname) printf("\n____%s____\n",classname); |
|
46 |
#else |
|
47 |
#define TRACE(classname) |
|
48 |
#endif |
|
49 |
||
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 | 61 |
/***********************************************************************/ |
62 |
||
63 |
/* Unlike Programs and Configurations which get mapped onto C++ classes, |
|
64 |
* Function Blocks are mapped onto a C structure containing the variables, and |
|
65 |
* a C function containing the code in the FB's body. This is to allow direct allocation |
|
66 |
* of a FB variable (which is really an instance of the C data structure) to |
|
67 |
* a member of a union variable (note that classes with constructors cannot |
|
68 |
* be mebers of a union), which is done in IL when loading a FB onto IL's |
|
69 |
* default variable. |
|
70 |
* |
|
71 |
* So as not to clash the names of the C data structure and the C function, |
|
72 |
* the C structure is given a name identical to that of the FB name, whereas |
|
73 |
* the name of the function is the FB name with a constant string appended. |
|
74 |
* The value of that constant string which is appended is defined in the following |
|
75 |
* constant. |
|
76 |
* In order not to clash with any variable in the IL and ST source codem the |
|
77 |
* following constant should contain a double underscore, which is not allowed |
|
78 |
* in IL and ST. |
|
79 |
* |
|
80 |
* e.g.: FUNTION_BLOCK TEST |
|
81 |
* is mapped onto a TEST data structure, and a TEST_body__ function. |
|
82 |
*/ |
|
83 |
||
84 |
#define FB_FUNCTION_SUFFIX "_body__" |
|
85 |
||
86 |
/* Idem as body, but for initializer FB function */ |
|
87 |
#define FB_INIT_SUFFIX "_init__" |
|
88 |
||
89 |
/* Idem as body, but for run CONFIG and RESOURCE function */ |
|
90 |
#define FB_RUN_SUFFIX "_run__" |
|
91 |
||
92 |
/* The FB body function is passed as the only parameter a pointer to the FB data |
|
93 |
* structure instance. The name of this parameter is given by the following constant. |
|
94 |
* In order not to clash with any variable in the IL and ST source codem the |
|
95 |
* following constant should contain a double underscore, which is not allowed |
|
96 |
* in IL and ST. |
|
97 |
* |
|
98 |
* e.g.: the body of FUNTION_BLOCK TEST |
|
99 |
* is mapped onto the C function |
|
100 |
* TEST_body__(TEST *data__) |
|
101 |
*/ |
|
102 |
||
103 |
#define FB_FUNCTION_PARAM "data__" |
|
104 |
||
105 |
||
106 |
#define SFC_STEP_ACTION_PREFIX "__SFC_" |
|
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 | 159 |
|
160 |
/* Generate a name for a temporary variable. |
|
161 |
* Each new name generated is appended a different number, |
|
162 |
* starting off from 0. |
|
163 |
* After calling reset(), the names will start off again from 0. |
|
164 |
*/ |
|
165 |
#define VAR_LEADER "__" |
|
166 |
#define TEMP_VAR VAR_LEADER "TMP_" |
|
167 |
#define SOURCE_VAR VAR_LEADER "SRC_" |
|
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 | 183 |
/* Parse command line options passed from main.c !! */ |
184 |
#include <stdlib.h> // for getsybopt() |
|
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 | 188 |
/* unfortunately, the above commented out syntax for array initialization is valid in C, but not in C++ */ |
189 |
||
190 |
char *subopts = options; |
|
191 |
char *value; |
|
192 |
int opt; |
|
193 |
||
194 |
while (*subopts != '\0') { |
|
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 | 199 |
} |
200 |
} |
|
201 |
return 0; |
|
202 |
} |
|
203 |
||
204 |
||
205 |
void stage4_print_options(void) { |
|
206 |
printf(" (options must be separated by commas. Example: 'l,w,x')\n"); |
|
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 | 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 | 216 |
|
217 |
/***********************************************************************/ |
|
218 |
/***********************************************************************/ |
|
219 |
/***********************************************************************/ |
|
220 |
/***********************************************************************/ |
|
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 | 524 |
#include "generate_c_st.cc" |
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 | 527 |
|
528 |
/***********************************************************************/ |
|
529 |
/***********************************************************************/ |
|
530 |
/***********************************************************************/ |
|
531 |
/***********************************************************************/ |
|
532 |
||
533 |
#define MILLISECOND 1000000 |
|
534 |
#define SECOND 1000 * MILLISECOND |
|
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 | 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 | 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 | 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 | 607 |
|
608 |
/***********************************************************************/ |
|
609 |
/***********************************************************************/ |
|
610 |
/***********************************************************************/ |
|
611 |
/***********************************************************************/ |
|
612 |
||
613 |
class calculate_common_ticktime_c: public iterator_visitor_c { |
|
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 | 617 |
|
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 | 626 |
if (c == 0) |
627 |
return b; |
|
628 |
else |
|
629 |
return euclide(b, c); |
|
630 |
} |
|
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 | 633 |
if (common_ticktime == 0) |
634 |
common_ticktime = time; |
|
635 |
else if (time > common_ticktime) |
|
636 |
common_ticktime = euclide(time, common_ticktime); |
|
637 |
else |
|
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 | 646 |
return common_ticktime; |
647 |
} |
|
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 | 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 | 656 |
/* TASK task_name task_initialization */ |
657 |
//SYM_REF2(task_configuration_c, task_name, task_initialization) |
|
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 | 664 |
return NULL; |
665 |
} |
|
666 |
}; |
|
667 |
||
668 |
/***********************************************************************/ |
|
669 |
/***********************************************************************/ |
|
670 |
/***********************************************************************/ |
|
671 |
/***********************************************************************/ |
|
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 | 674 |
class generate_c_SFC_IL_ST_c: public null_visitor_c { |
675 |
private: |
|
676 |
stage4out_c *s4o_ptr; |
|
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 | 679 |
const char *variable_prefix; |
680 |
||
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 | 690 |
/*********************************************/ |
691 |
/* B.1.6 Sequential function chart elements */ |
|
692 |
/*********************************************/ |
|
693 |
/*| sequential_function_chart sfc_network*/ |
|
694 |
void *visit(sequential_function_chart_c * symbol); |
|
695 |
||
696 |
/****************************************/ |
|
697 |
/* B.2 - Language IL (Instruction List) */ |
|
698 |
/****************************************/ |
|
699 |
||
700 |
/***********************************/ |
|
701 |
/* B 2.1 Instructions and Operands */ |
|
702 |
/***********************************/ |
|
703 |
/*| instruction_list il_instruction */ |
|
704 |
void *visit(instruction_list_c *symbol); |
|
705 |
||
706 |
/* Remainder implemented in generate_c_il_c... */ |
|
707 |
||
708 |
/***************************************/ |
|
709 |
/* B.3 - Language ST (Structured Text) */ |
|
710 |
/***************************************/ |
|
711 |
/***********************/ |
|
712 |
/* B 3.1 - Expressions */ |
|
713 |
/***********************/ |
|
714 |
/* Implemented in generate_c_st_c */ |
|
715 |
||
716 |
/********************/ |
|
717 |
/* B 3.2 Statements */ |
|
718 |
/********************/ |
|
719 |
void *visit(statement_list_c *symbol); |
|
720 |
||
721 |
/* Remainder implemented in generate_c_st_c... */ |
|
722 |
}; |
|
723 |
||
724 |
#include "generate_c_sfc.cc" |
|
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 | 727 |
if (NULL == scope) ERROR; |
728 |
this->s4o_ptr = s4o_ptr; |
|
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 | 731 |
this->variable_prefix = variable_prefix; |
732 |
} |
|
733 |
||
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 | 736 |
generate_c_sfc.generate(symbol); |
737 |
return NULL; |
|
738 |
} |
|
739 |
||
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 | 742 |
generate_c_il.generate(symbol); |
743 |
return NULL; |
|
744 |
} |
|
745 |
||
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 | 748 |
generate_c_st.generate(symbol); |
749 |
return NULL; |
|
750 |
} |
|
751 |
||
752 |
||
753 |
||
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 | 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 | 1311 |
}; /* generate_c_pous_c */ |
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 | 1314 |
/***********************************************************************/ |
1315 |
/***********************************************************************/ |
|
1316 |
/***********************************************************************/ |
|
1317 |
/***********************************************************************/ |
|
1318 |
/***********************************************************************/ |
|
1319 |
/***********************************************************************/ |
|
1320 |
/***********************************************************************/ |
|
1321 |
/***********************************************************************/ |
|
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 | 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 | 1332 |
virtual ~generate_c_config_c(void) {} |
1333 |
||
1334 |
typedef enum { |
|
1335 |
initprotos_dt, |
|
1336 |
initdeclare_dt, |
|
1337 |
runprotos_dt, |
|
1338 |
rundeclare_dt |
|
1339 |
} declaretype_t; |
|
1340 |
||
1341 |
declaretype_t wanted_declaretype; |
|
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 | 1361 |
/********************************/ |
1362 |
/* B 1.7 Configuration elements */ |
|
1363 |
/********************************/ |
|
1364 |
/* |
|
1365 |
CONFIGURATION configuration_name |
|
1366 |
optional_global_var_declarations |
|
1367 |
(resource_declaration_list | single_resource_declaration) |
|
1368 |
optional_access_declarations |
|
1369 |
optional_instance_specific_initializations |
|
1370 |
END_CONFIGURATION |
|
1371 |
*/ |
|
1372 |
/* |
|
1373 |
SYM_REF6(configuration_declaration_c, configuration_name, global_var_declarations, resource_declarations, access_declarations, instance_specific_initializations, unused) |
|
1374 |
*/ |
|
1375 |
void *visit(configuration_declaration_c *symbol) { |
|
1376 |
generate_c_vardecl_c *vardecl; |
|
1377 |
||
1378 |
/* Insert the header... */ |
|
1379 |
s4o.print("/*******************************************/\n"); |
|
1380 |
s4o.print("/* FILE GENERATED BY iec2c */\n"); |
|
1381 |
s4o.print("/* Editing this file is not recommended... */\n"); |
|
1382 |
s4o.print("/*******************************************/\n\n"); |
|
1383 |
s4o.print("#include \"iec_std_lib.h\"\n\n"); |
|
257 | 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 | 1387 |
/* (A) configuration declaration... */ |
1388 |
/* (A.1) configuration name in comment */ |
|
1389 |
s4o.print("// CONFIGURATION "); |
|
1390 |
symbol->configuration_name->accept(*this); |
|
1391 |
s4o.print("\n"); |
|
1392 |
||
1393 |
/* (A.2) Global variables */ |
|
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 | 1398 |
vardecl->print(symbol); |
1399 |
delete vardecl; |
|
1400 |
s4o.print("\n"); |
|
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 | 1411 |
/* (B) Initialisation Function */ |
1412 |
/* (B.1) Ressources initialisation protos... */ |
|
1413 |
wanted_declaretype = initprotos_dt; |
|
1414 |
symbol->resource_declarations->accept(*this); |
|
1415 |
s4o.print("\n"); |
|
1416 |
||
1417 |
/* (B.2) Initialisation function name... */ |
|
1418 |
s4o.print(s4o.indent_spaces + "void config"); |
|
1419 |
s4o.print(FB_INIT_SUFFIX); |
|
1420 |
s4o.print("(void) {\n"); |
|
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 | 1426 |
|
1427 |
/* (B.3) Global variables initializations... */ |
|
1428 |
s4o.print(s4o.indent_spaces); |
|
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 | 1433 |
vardecl->print(symbol); |
1434 |
delete vardecl; |
|
1435 |
s4o.print("\n"); |
|
1436 |
||
1437 |
/* (B.3) Resources initializations... */ |
|
1438 |
wanted_declaretype = initdeclare_dt; |
|
1439 |
symbol->resource_declarations->accept(*this); |
|
1440 |
||
1441 |
s4o.indent_left(); |
|
1442 |
s4o.print(s4o.indent_spaces + "}\n\n"); |
|
1443 |
||
1444 |
||
1445 |
/* (C) Run Function*/ |
|
1446 |
/* (C.1) Resources run functions protos... */ |
|
1447 |
wanted_declaretype = runprotos_dt; |
|
1448 |
symbol->resource_declarations->accept(*this); |
|
1449 |
s4o.print("\n"); |
|
1450 |
||
1451 |
/* (C.2) Run function name... */ |
|
1452 |
s4o.print(s4o.indent_spaces + "void config"); |
|
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 | 1455 |
s4o.indent_right(); |
1456 |
||
1457 |
/* (C.3) Resources initializations... */ |
|
1458 |
wanted_declaretype = rundeclare_dt; |
|
1459 |
symbol->resource_declarations->accept(*this); |
|
1460 |
||
1461 |
/* (C.3) Close Public Function body */ |
|
1462 |
s4o.indent_left(); |
|
1463 |
s4o.print(s4o.indent_spaces + "}\n"); |
|
1464 |
||
1465 |
return NULL; |
|
1466 |
} |
|
1467 |
||
1468 |
void *visit(resource_declaration_c *symbol) { |
|
1469 |
if (wanted_declaretype == initprotos_dt || wanted_declaretype == runprotos_dt) { |
|
1470 |
s4o.print(s4o.indent_spaces + "void "); |
|
1471 |
symbol->resource_name->accept(*this); |
|
1472 |
if (wanted_declaretype == initprotos_dt) { |
|
1473 |
s4o.print(FB_INIT_SUFFIX); |
|
1474 |
s4o.print("(void);\n"); |
|
1475 |
} |
|
1476 |
else { |
|
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 | 1479 |
} |
1480 |
} |
|
1481 |
if (wanted_declaretype == initdeclare_dt || wanted_declaretype == rundeclare_dt) { |
|
1482 |
s4o.print(s4o.indent_spaces); |
|
1483 |
symbol->resource_name->accept(*this); |
|
1484 |
if (wanted_declaretype == initdeclare_dt) { |
|
1485 |
s4o.print(FB_INIT_SUFFIX); |
|
1486 |
s4o.print("();\n"); |
|
1487 |
} |
|
1488 |
else { |
|
1489 |
s4o.print(FB_RUN_SUFFIX); |
|
1490 |
s4o.print("(tick);\n"); |
|
1491 |
} |
|
1492 |
} |
|
1493 |
return NULL; |
|
1494 |
} |
|
1495 |
||
1496 |
void *visit(single_resource_declaration_c *symbol) { |
|
1497 |
if (wanted_declaretype == initprotos_dt || wanted_declaretype == runprotos_dt) { |
|
1498 |
s4o.print(s4o.indent_spaces + "void RESOURCE"); |
|
1499 |
if (wanted_declaretype == initprotos_dt) { |
|
1500 |
s4o.print(FB_INIT_SUFFIX); |
|
1501 |
s4o.print("(void);\n"); |
|
1502 |
} |
|
1503 |
else { |
|
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 | 1506 |
} |
1507 |
} |
|
1508 |
if (wanted_declaretype == initdeclare_dt || wanted_declaretype == rundeclare_dt) { |
|
1509 |
s4o.print(s4o.indent_spaces + "RESOURCE"); |
|
1510 |
if (wanted_declaretype == initdeclare_dt) { |
|
1511 |
s4o.print(FB_INIT_SUFFIX); |
|
1512 |
s4o.print("();\n"); |
|
1513 |
} |
|
1514 |
else { |
|
1515 |
s4o.print(FB_RUN_SUFFIX); |
|
1516 |
s4o.print("(tick);\n"); |
|
1517 |
} |
|
1518 |
} |
|
1519 |
return NULL; |
|
1520 |
} |
|
1521 |
||
1522 |
}; |
|
1523 |
||
1524 |
/***********************************************************************/ |
|
1525 |
/***********************************************************************/ |
|
1526 |
/***********************************************************************/ |
|
1527 |
/***********************************************************************/ |
|
1528 |
/***********************************************************************/ |
|
1529 |
/***********************************************************************/ |
|
1530 |
/***********************************************************************/ |
|
1531 |
/***********************************************************************/ |
|
1532 |
||
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 | 1535 |
|
1536 |
search_var_instance_decl_c *search_config_instance; |
|
1537 |
search_var_instance_decl_c *search_resource_instance; |
|
1538 |
||
1539 |
private: |
|
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 | 1542 |
symbol_c *current_resource_name; |
184 | 1543 |
symbol_c *current_task_name; |
70 | 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 | 1547 |
|
1548 |
public: |
|
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 | 1553 |
search_resource_instance = new search_var_instance_decl_c(resource_scope); |
1554 |
common_ticktime = time; |
|
1555 |
current_resource_name = NULL; |
|
184 | 1556 |
current_task_name = NULL; |
70 | 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 | 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 | 1562 |
virtual ~generate_c_resources_c(void) { |
1563 |
delete search_config_instance; |
|
1564 |
delete search_resource_instance; |
|
1565 |
} |
|
1566 |
||
1567 |
typedef enum { |
|
1568 |
declare_dt, |
|
1569 |
init_dt, |
|
1570 |
run_dt |
|
1571 |
} declaretype_t; |
|
1572 |
||
1573 |
declaretype_t wanted_declaretype; |
|
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 | 1576 |
|
1577 |
const char *current_program_name; |
|
1578 |
||
1579 |
typedef enum { |
|
1580 |
assign_at, |
|
1581 |
send_at |
|
1582 |
} assigntype_t; |
|
1583 |
||
1584 |
assigntype_t wanted_assigntype; |
|
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 | 1656 |
|
1657 |
/* |
|
1658 |
RESOURCE resource_name ON resource_type_name |
|
1659 |
optional_global_var_declarations |
|
1660 |
single_resource_declaration |
|
1661 |
END_RESOURCE |
|
1662 |
*/ |
|
1663 |
// SYM_REF4(resource_declaration_c, resource_name, resource_type_name, global_var_declarations, resource_declaration) |
|
1664 |
void *visit(resource_declaration_c *symbol) { |
|
1665 |
current_resource_name = symbol->resource_name; |
|
1666 |
current_global_vars = symbol->global_var_declarations; |
|
1667 |
||
1668 |
symbol->resource_declaration->accept(*this); |
|
1669 |
||
1670 |
current_resource_name = NULL; |
|
1671 |
current_global_vars = NULL; |
|
1672 |
return NULL; |
|
1673 |
} |
|
1674 |
||
1675 |
/* task_configuration_list program_configuration_list */ |
|
1676 |
// SYM_REF2(single_resource_declaration_c, task_configuration_list, program_configuration_list) |
|
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 | 1679 |
if (single_resource) |
1680 |
current_resource_name = new identifier_c("RESOURCE"); |
|
1681 |
generate_c_vardecl_c *vardecl; |
|
1682 |
||
1683 |
/* Insert the header... */ |
|
1684 |
s4o.print("/*******************************************/\n"); |
|
1685 |
s4o.print("/* FILE GENERATED BY iec2c */\n"); |
|
1686 |
s4o.print("/* Editing this file is not recommended... */\n"); |
|
1687 |
s4o.print("/*******************************************/\n\n"); |
|
1688 |
s4o.print("#include \"iec_std_lib.h\"\n\n"); |
|
1689 |
||
1690 |
/* (A) resource declaration... */ |
|
1691 |
/* (A.1) resource name in comment */ |
|
1692 |
s4o.print("// RESOURCE "); |
|
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 | 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 | 1706 |
/* (A.2) Global variables... */ |
1707 |
if (current_global_vars != NULL) { |
|
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 | 1712 |
vardecl->print(current_global_vars); |
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 | 1715 |
} |
1716 |
||
1717 |
/* (A.3) POUs inclusion */ |
|
1718 |
s4o.print("#include \"POUS.c\"\n\n"); |
|
1719 |
||
184 | 1720 |
wanted_declaretype = declare_dt; |
1721 |
||
70 | 1722 |
/* (A.4) Resource programs declaration... */ |
184 | 1723 |
symbol->task_configuration_list->accept(*this); |
1724 |
||
1725 |
/* (A.5) Resource programs declaration... */ |
|
70 | 1726 |
symbol->program_configuration_list->accept(*this); |
184 | 1727 |
|
70 | 1728 |
s4o.print("\n"); |
1729 |
||
1730 |
/* (B) resource initialisation function... */ |
|
1731 |
/* (B.1) initialisation function name... */ |
|
1732 |
s4o.print("void "); |
|
1733 |
current_resource_name->accept(*this); |
|
1734 |
s4o.print(FB_INIT_SUFFIX); |
|
1735 |
s4o.print("(void) {\n"); |
|
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 | 1741 |
|
1742 |
/* (B.2) Global variables initialisations... */ |
|
1743 |
if (current_global_vars != NULL) { |
|
1744 |
s4o.print(s4o.indent_spaces); |
|
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 | 1749 |
vardecl->print(current_global_vars); |
1750 |
delete vardecl; |
|
1751 |
} |
|
1752 |
s4o.print("\n"); |
|
1753 |
||
1754 |
wanted_declaretype = init_dt; |
|
184 | 1755 |
|
1756 |
/* (B.3) Tasks initialisations... */ |
|
1757 |
symbol->task_configuration_list->accept(*this); |
|
1758 |
||
1759 |
/* (B.4) Resource programs initialisations... */ |
|
70 | 1760 |
symbol->program_configuration_list->accept(*this); |
1761 |
||
1762 |
s4o.indent_left(); |
|
1763 |
s4o.print("}\n\n"); |
|
1764 |
||
1765 |
/* (C) Resource run function... */ |
|
1766 |
/* (C.1) Run function name... */ |
|
1767 |
s4o.print("void "); |
|
1768 |
current_resource_name->accept(*this); |
|
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 | 1771 |
s4o.indent_right(); |
1772 |
||
184 | 1773 |
wanted_declaretype = run_dt; |
1774 |
||
70 | 1775 |
/* (C.2) Task management... */ |
1776 |
symbol->task_configuration_list->accept(*this); |
|
1777 |
||
1778 |
/* (C.3) Program run declaration... */ |
|
1779 |
symbol->program_configuration_list->accept(*this); |
|
1780 |
||
1781 |
s4o.indent_left(); |
|
1782 |
s4o.print("}\n\n"); |
|
1783 |
||
1784 |
if (single_resource) { |
|
1785 |
delete current_resource_name; |
|
1786 |
current_resource_name = NULL; |
|
1787 |
} |
|
1788 |
return NULL; |
|
1789 |
} |
|
1790 |
||
1791 |
/* PROGRAM [RETAIN | NON_RETAIN] program_name [WITH task_name] ':' program_type_name ['(' prog_conf_elements ')'] */ |
|
1792 |
//SYM_REF6(program_configuration_c, retain_option, program_name, task_name, program_type_name, prog_conf_elements, unused) |
|
1793 |
void *visit(program_configuration_c *symbol) { |
|
184 | 1794 |
switch (wanted_declaretype) { |
1795 |
case declare_dt: |
|
70 | 1796 |
s4o.print(s4o.indent_spaces); |
184 | 1797 |
symbol->program_type_name->accept(*this); |
1798 |
s4o.print(" "); |
|
1799 |
current_resource_name->accept(*this); |
|
1800 |
s4o.print("__"); |
|
1801 |
symbol->program_name->accept(*this); |
|
1802 |
s4o.print(";\n#define "); |
|
1803 |
symbol->program_name->accept(*this); |
|
1804 |
s4o.print(" "); |
|
1805 |
current_resource_name->accept(*this); |
|
1806 |
s4o.print("__"); |
|
1807 |
symbol->program_name->accept(*this); |
|
1808 |
s4o.print("\n"); |
|
1809 |
break; |
|
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 | 1813 |
s4o.print(s4o.indent_spaces); |
1814 |
symbol->program_type_name->accept(*this); |
|
1815 |
s4o.print(FB_INIT_SUFFIX); |
|
1816 |
s4o.print("(&"); |
|
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 | 1819 |
s4o.print(");\n"); |
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 | 1826 |
if (symbol->task_name != NULL) { |
1827 |
s4o.print(s4o.indent_spaces); |
|
1828 |
s4o.print("if ("); |
|
1829 |
symbol->task_name->accept(*this); |
|
1830 |
s4o.print(") {\n"); |
|
1831 |
s4o.indent_right(); |
|
1832 |
} |
|
70 | 1833 |
|
184 | 1834 |
wanted_assigntype = assign_at; |
1835 |
if (symbol->prog_conf_elements != NULL) |
|
1836 |
symbol->prog_conf_elements->accept(*this); |
|
1837 |
||
1838 |
s4o.print(s4o.indent_spaces); |
|
1839 |
symbol->program_type_name->accept(*this); |
|
1840 |
s4o.print(FB_FUNCTION_SUFFIX); |
|
1841 |
s4o.print("(&"); |
|
1842 |
symbol->program_name->accept(*this); |
|
1843 |
s4o.print(");\n"); |
|
1844 |
||
1845 |
wanted_assigntype = send_at; |
|
1846 |
if (symbol->prog_conf_elements != NULL) |
|
1847 |
symbol->prog_conf_elements->accept(*this); |
|
1848 |
||
1849 |
if (symbol->task_name != NULL) { |
|
1850 |
s4o.indent_left(); |
|
1851 |
s4o.print(s4o.indent_spaces + "}\n"); |
|
1852 |
} |
|
1853 |
break; |
|
1854 |
default: |
|
1855 |
break; |
|
70 | 1856 |
} |
1857 |
return NULL; |
|
1858 |
} |
|
1859 |
||
1860 |
/* TASK task_name task_initialization */ |
|
1861 |
//SYM_REF2(task_configuration_c, task_name, task_initialization) |
|
1862 |
void *visit(task_configuration_c *symbol) { |
|
184 | 1863 |
current_task_name = symbol->task_name; |
1864 |
switch (wanted_declaretype) { |
|
1865 |
case declare_dt: |
|
1866 |
s4o.print(s4o.indent_spaces + "BOOL "); |
|
1867 |
current_task_name->accept(*this); |
|
1868 |
s4o.print(";\n"); |
|
1869 |
symbol->task_initialization->accept(*this); |
|
1870 |
break; |
|
1871 |
case init_dt: |
|
1872 |
s4o.print(s4o.indent_spaces); |
|
1873 |
current_task_name->accept(*this); |
|
1874 |
s4o.print(" = __BOOL_LITERAL(FALSE);\n"); |
|
1875 |
symbol->task_initialization->accept(*this); |
|
1876 |
break; |
|
1877 |
case run_dt: |
|
1878 |
symbol->task_initialization->accept(*this); |
|
1879 |
break; |
|
1880 |
default: |
|
1881 |
break; |
|
1882 |
} |
|
1883 |
current_task_name = NULL; |
|
70 | 1884 |
return NULL; |
1885 |
} |
|
1886 |
||
1887 |
/* '(' [SINGLE ASSIGN data_source ','] [INTERVAL ASSIGN data_source ','] PRIORITY ASSIGN integer ')' */ |
|
1888 |
//SYM_REF4(task_initialization_c, single_data_source, interval_data_source, priority_data_source, unused) |
|
1889 |
void *visit(task_initialization_c *symbol) { |
|
184 | 1890 |
switch (wanted_declaretype) { |
1891 |
case declare_dt: |
|
1892 |
if (symbol->single_data_source != NULL) { |
|
1893 |
s4o.print(s4o.indent_spaces + "R_TRIG "); |
|
1894 |
current_task_name->accept(*this); |
|
1895 |
s4o.print("_R_TRIG;\n"); |
|
1896 |
} |
|
1897 |
break; |
|
1898 |
case init_dt: |
|
1899 |
if (symbol->single_data_source != NULL) { |
|
1900 |
s4o.print(s4o.indent_spaces + "R_TRIG"); |
|
1901 |
s4o.print(FB_INIT_SUFFIX); |
|
1902 |
s4o.print("(&"); |
|
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 | 1905 |
} |
1906 |
break; |
|
1907 |
case run_dt: |
|
1908 |
if (symbol->single_data_source != NULL) { |
|
1909 |
symbol_c *config_var_decl = NULL; |
|
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 | 1912 |
symbol_c *current_var_reference = ((global_var_reference_c *)(symbol->single_data_source))->global_var_name; |
1913 |
res_var_decl = search_resource_instance->get_decl(current_var_reference); |
|
1914 |
if (res_var_decl == NULL) { |
|
1915 |
config_var_decl = search_config_instance->get_decl(current_var_reference); |
|
1916 |
if (config_var_decl == NULL) |
|
1917 |
ERROR; |
|
1918 |
config_var_decl->accept(*this); |
|
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 | 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 | 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 | 1934 |
s4o.print(s4o.indent_spaces + "R_TRIG"); |
1935 |
s4o.print(FB_FUNCTION_SUFFIX); |
|
1936 |
s4o.print("(&"); |
|
1937 |
current_task_name->accept(*this); |
|
1938 |
s4o.print("_R_TRIG);\n"); |
|
1939 |
s4o.print(s4o.indent_spaces); |
|
1940 |
current_task_name->accept(*this); |
|
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 | 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 | 1946 |
} |
1947 |
else { |
|
1948 |
s4o.print(s4o.indent_spaces); |
|
1949 |
current_task_name->accept(*this); |
|
1950 |
s4o.print(" = "); |
|
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 | 1953 |
if (time != 0) { |
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 | 1956 |
s4o.print(")"); |
1957 |
} |
|
1958 |
else |
|
1959 |
s4o.print("1"); |
|
1960 |
} |
|
1961 |
else |
|
1962 |
s4o.print("1"); |
|
1963 |
} |
|
1964 |
s4o.print(";\n"); |
|
1965 |
break; |
|
1966 |
default: |
|
1967 |
break; |
|
70 | 1968 |
} |
1969 |
return NULL; |
|
1970 |
} |
|
1971 |
||
1972 |
/* any_symbolic_variable ASSIGN prog_data_source */ |
|
1973 |
//SYM_REF2(prog_cnxn_assign_c, symbolic_variable, prog_data_source) |
|
1974 |
void *visit(prog_cnxn_assign_c *symbol) { |
|
1975 |
if (wanted_assigntype == assign_at) { |
|
1976 |
symbol_c *var_decl; |
|
1977 |
unsigned int vartype = 0; |
|
1978 |
symbol_c *current_var_reference = ((global_var_reference_c *)(symbol->prog_data_source))->global_var_name; |
|
1979 |
var_decl = search_resource_instance->get_decl(current_var_reference); |
|
1980 |
if (var_decl == NULL) { |
|
1981 |
var_decl = search_config_instance->get_decl(current_var_reference); |
|
1982 |
if (var_decl == NULL) |
|
1983 |
ERROR; |
|
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 | 1986 |
} |
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 | 1989 |
|
1990 |
s4o.print(s4o.indent_spaces + "{extern "); |
|
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 | 1993 |
symbol->prog_data_source->accept(*this); |
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 | 1996 |
s4o.print("."); |
1997 |
symbol->symbolic_variable->accept(*this); |
|
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 | 2000 |
s4o.print("*"); |
2001 |
symbol->prog_data_source->accept(*this); |
|
2002 |
s4o.print(";}\n"); |
|
2003 |
} |
|
2004 |
return NULL; |
|
2005 |
} |
|
2006 |
||
2007 |
/* any_symbolic_variable SENDTO data_sink */ |
|
2008 |
//SYM_REF2(prog_cnxn_sendto_c, symbolic_variable, data_sink) |
|
2009 |
void *visit(prog_cnxn_sendto_c *symbol) { |
|
2010 |
if (wanted_assigntype == send_at) { |
|
2011 |
symbol_c *var_decl; |
|
2012 |
unsigned int vartype = 0; |
|
2013 |
symbol_c *current_var_reference = ((global_var_reference_c *)(symbol->data_sink))->global_var_name; |
|
2014 |
var_decl = search_resource_instance->get_decl(current_var_reference); |
|
2015 |
if (var_decl == NULL) { |
|
2016 |
var_decl = search_config_instance->get_decl(current_var_reference); |
|
2017 |
if (var_decl == NULL) |
|
2018 |
ERROR; |
|
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 | 2021 |
} |
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 | 2024 |
|
2025 |
s4o.print(s4o.indent_spaces + "{extern "); |
|
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 | 2028 |
symbol->data_sink->accept(*this); |
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 | 2031 |
s4o.print("*"); |
2032 |
symbol->data_sink->accept(*this); |
|
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 | 2035 |
s4o.print("."); |
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 | 2038 |
} |
2039 |
return NULL; |
|
2040 |
} |
|
2041 |
||
2042 |
}; |
|
2043 |
||
2044 |
/***********************************************************************/ |
|
2045 |
/***********************************************************************/ |
|
2046 |
/***********************************************************************/ |
|
2047 |
/***********************************************************************/ |
|
2048 |
/***********************************************************************/ |
|
2049 |
/***********************************************************************/ |
|
2050 |
/***********************************************************************/ |
|
2051 |
/***********************************************************************/ |
|
2052 |
||
2053 |
class generate_c_c: public iterator_visitor_c { |
|
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 | 2066 |
|
2067 |
const char *current_name; |
|
2068 |
const char *current_builddir; |
|
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 | 2072 |
unsigned long long common_ticktime; |
70 | 2073 |
|
2074 |
public: |
|
2075 |
generate_c_c(stage4out_c *s4o_ptr, const char *builddir): |
|
2076 |
s4o(*s4o_ptr), |
|
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 | 2079 |
located_variables_s4o(builddir, "LOCATED_VARIABLES","h"), |
112 | 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 | 2084 |
current_builddir = builddir; |
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 | 2087 |
} |
2088 |
||
2089 |
~generate_c_c(void) {} |
|
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 | 2117 |
/***************************/ |
2118 |
/* B 0 - Programming Model */ |
|
2119 |
/***************************/ |
|
2120 |
void *visit(library_c *symbol) { |
|
917 | 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 | 2136 |
generate_location_list_c generate_location_list(&located_variables_s4o); |
2137 |
symbol->accept(generate_location_list); |
|
70 | 2138 |
return NULL; |
2139 |
} |
|
2140 |
||
2141 |
/*************************/ |
|
2142 |
/* B.1 - Common elements */ |
|
2143 |
/*************************/ |
|
2144 |
/*******************************************/ |
|
2145 |
/* B 1.1 - Letters, digits and identifiers */ |
|
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 | 2152 |
|
98 | 2153 |
/********************************/ |
2154 |
/* B 1.3.3 - Derived data types */ |
|
2155 |
/********************************/ |
|
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 | 2165 |
return NULL; |
2166 |
} |
|
2167 |
||
70 | 2168 |
/**************************************/ |
2169 |
/* B.1.5 - Program organization units */ |
|
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 | 2201 |
/***********************/ |
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 | 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 | 2207 |
} |
2208 |
||
2209 |
/*****************************/ |
|
2210 |
/* B 1.5.2 - Function Blocks */ |
|
2211 |
/*****************************/ |
|
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 | 2215 |
} |
2216 |
||
2217 |
/**********************/ |
|
2218 |
/* B 1.5.3 - Programs */ |
|
2219 |
/**********************/ |
|
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 | 2223 |
} |
2224 |
||
2225 |
||
2226 |
/********************************/ |
|
2227 |
/* B 1.7 Configuration elements */ |
|
2228 |
/********************************/ |
|
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 | 2280 |
} |
2281 |
||
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 | 2287 |
} |
2288 |
||
2289 |
}; |
|
2290 |
||
2291 |
/***********************************************************************/ |
|
2292 |
/***********************************************************************/ |
|
2293 |
/***********************************************************************/ |
|
2294 |
/***********************************************************************/ |
|
2295 |
/***********************************************************************/ |
|
2296 |
/***********************************************************************/ |
|
2297 |
/***********************************************************************/ |
|
2298 |
/***********************************************************************/ |
|
2299 |
||
2300 |
||
2301 |
||
2302 |
||
2303 |
visitor_c *new_code_generator(stage4out_c *s4o, const char *builddir) {return new generate_c_c(s4o, builddir);} |
|
2304 |
void delete_code_generator(visitor_c *code_generator) {delete code_generator;} |
|
2305 |
||
2306 |