| changeset 235 | ed66dc50f31a |
| parent 233 | 3d23a68183d3 |
| child 279 | c0453b7f99df |
| 234:e4d31cd0e6d8 | 235:ed66dc50f31a |
|---|---|
36 case function_real_to_sint : |
36 case function_real_to_sint : |
37 { |
37 { |
38 symbol_c *last_type_symbol = NULL; |
38 symbol_c *last_type_symbol = NULL; |
39 |
39 |
40 { |
40 { |
41 identifier_c IN_param_name("IN"); |
41 symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); |
42 /* Get the value from a foo(<param_name> = <param_value>) style call */ |
42 /* Get the value from a foo(<param_name> = <param_value>) style call */ |
43 symbol_c *IN_param_value = &this->default_variable_name; |
43 symbol_c *IN_param_value = &this->default_variable_name; |
44 |
44 |
45 symbol_c *IN_type_symbol = param_data_type; |
45 symbol_c *IN_type_symbol = param_data_type; |
46 last_type_symbol = param_data_type; |
46 last_type_symbol = param_data_type; |
50 |
50 |
51 function_name = (symbol_c*)(new pragma_c("__move_")); |
51 function_name = (symbol_c*)(new pragma_c("__move_")); |
52 |
52 |
53 if (IN_type_symbol == NULL) |
53 if (IN_type_symbol == NULL) |
54 IN_type_symbol = last_type_symbol; |
54 IN_type_symbol = last_type_symbol; |
55 ADD_PARAM_LIST(&IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) |
55 ADD_PARAM_LIST(IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) |
56 symbol_c * return_type_symbol = &search_constant_type_c::sint_type_name; |
56 symbol_c * return_type_symbol = &search_constant_type_c::sint_type_name; |
57 function_type_prefix = return_type_symbol; |
57 function_type_prefix = return_type_symbol; |
58 function_type_suffix = IN_type_symbol; |
58 function_type_suffix = IN_type_symbol; |
59 break; |
59 break; |
60 |
60 |
73 case function_real_to_lint : |
73 case function_real_to_lint : |
74 { |
74 { |
75 symbol_c *last_type_symbol = NULL; |
75 symbol_c *last_type_symbol = NULL; |
76 |
76 |
77 { |
77 { |
78 identifier_c IN_param_name("IN"); |
78 symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); |
79 /* Get the value from a foo(<param_name> = <param_value>) style call */ |
79 /* Get the value from a foo(<param_name> = <param_value>) style call */ |
80 symbol_c *IN_param_value = &this->default_variable_name; |
80 symbol_c *IN_param_value = &this->default_variable_name; |
81 |
81 |
82 symbol_c *IN_type_symbol = param_data_type; |
82 symbol_c *IN_type_symbol = param_data_type; |
83 last_type_symbol = param_data_type; |
83 last_type_symbol = param_data_type; |
87 |
87 |
88 function_name = (symbol_c*)(new pragma_c("__move_")); |
88 function_name = (symbol_c*)(new pragma_c("__move_")); |
89 |
89 |
90 if (IN_type_symbol == NULL) |
90 if (IN_type_symbol == NULL) |
91 IN_type_symbol = last_type_symbol; |
91 IN_type_symbol = last_type_symbol; |
92 ADD_PARAM_LIST(&IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) |
92 ADD_PARAM_LIST(IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) |
93 symbol_c * return_type_symbol = &search_constant_type_c::lint_type_name; |
93 symbol_c * return_type_symbol = &search_constant_type_c::lint_type_name; |
94 function_type_prefix = return_type_symbol; |
94 function_type_prefix = return_type_symbol; |
95 function_type_suffix = IN_type_symbol; |
95 function_type_suffix = IN_type_symbol; |
96 break; |
96 break; |
97 |
97 |
110 case function_real_to_dint : |
110 case function_real_to_dint : |
111 { |
111 { |
112 symbol_c *last_type_symbol = NULL; |
112 symbol_c *last_type_symbol = NULL; |
113 |
113 |
114 { |
114 { |
115 identifier_c IN_param_name("IN"); |
115 symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); |
116 /* Get the value from a foo(<param_name> = <param_value>) style call */ |
116 /* Get the value from a foo(<param_name> = <param_value>) style call */ |
117 symbol_c *IN_param_value = &this->default_variable_name; |
117 symbol_c *IN_param_value = &this->default_variable_name; |
118 |
118 |
119 symbol_c *IN_type_symbol = param_data_type; |
119 symbol_c *IN_type_symbol = param_data_type; |
120 last_type_symbol = param_data_type; |
120 last_type_symbol = param_data_type; |
124 |
124 |
125 function_name = (symbol_c*)(new pragma_c("__move_")); |
125 function_name = (symbol_c*)(new pragma_c("__move_")); |
126 |
126 |
127 if (IN_type_symbol == NULL) |
127 if (IN_type_symbol == NULL) |
128 IN_type_symbol = last_type_symbol; |
128 IN_type_symbol = last_type_symbol; |
129 ADD_PARAM_LIST(&IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) |
129 ADD_PARAM_LIST(IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) |
130 symbol_c * return_type_symbol = &search_constant_type_c::dint_type_name; |
130 symbol_c * return_type_symbol = &search_constant_type_c::dint_type_name; |
131 function_type_prefix = return_type_symbol; |
131 function_type_prefix = return_type_symbol; |
132 function_type_suffix = IN_type_symbol; |
132 function_type_suffix = IN_type_symbol; |
133 break; |
133 break; |
134 |
134 |
147 case function_real_to_date : |
147 case function_real_to_date : |
148 { |
148 { |
149 symbol_c *last_type_symbol = NULL; |
149 symbol_c *last_type_symbol = NULL; |
150 |
150 |
151 { |
151 { |
152 identifier_c IN_param_name("IN"); |
152 symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); |
153 /* Get the value from a foo(<param_name> = <param_value>) style call */ |
153 /* Get the value from a foo(<param_name> = <param_value>) style call */ |
154 symbol_c *IN_param_value = &this->default_variable_name; |
154 symbol_c *IN_param_value = &this->default_variable_name; |
155 |
155 |
156 symbol_c *IN_type_symbol = param_data_type; |
156 symbol_c *IN_type_symbol = param_data_type; |
157 last_type_symbol = param_data_type; |
157 last_type_symbol = param_data_type; |
161 |
161 |
162 function_name = (symbol_c*)(new pragma_c("__real_to_time")); |
162 function_name = (symbol_c*)(new pragma_c("__real_to_time")); |
163 |
163 |
164 if (IN_type_symbol == NULL) |
164 if (IN_type_symbol == NULL) |
165 IN_type_symbol = last_type_symbol; |
165 IN_type_symbol = last_type_symbol; |
166 ADD_PARAM_LIST(&IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) |
166 ADD_PARAM_LIST(IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) |
167 symbol_c * return_type_symbol = &search_constant_type_c::date_type_name; |
167 symbol_c * return_type_symbol = &search_constant_type_c::date_type_name; |
168 function_type_prefix = return_type_symbol; |
168 function_type_prefix = return_type_symbol; |
169 break; |
169 break; |
170 |
170 |
171 } |
171 } |
183 case function_real_to_dword : |
183 case function_real_to_dword : |
184 { |
184 { |
185 symbol_c *last_type_symbol = NULL; |
185 symbol_c *last_type_symbol = NULL; |
186 |
186 |
187 { |
187 { |
188 identifier_c IN_param_name("IN"); |
188 symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); |
189 /* Get the value from a foo(<param_name> = <param_value>) style call */ |
189 /* Get the value from a foo(<param_name> = <param_value>) style call */ |
190 symbol_c *IN_param_value = &this->default_variable_name; |
190 symbol_c *IN_param_value = &this->default_variable_name; |
191 |
191 |
192 symbol_c *IN_type_symbol = param_data_type; |
192 symbol_c *IN_type_symbol = param_data_type; |
193 last_type_symbol = param_data_type; |
193 last_type_symbol = param_data_type; |
197 |
197 |
198 function_name = (symbol_c*)(new pragma_c("__move_")); |
198 function_name = (symbol_c*)(new pragma_c("__move_")); |
199 |
199 |
200 if (IN_type_symbol == NULL) |
200 if (IN_type_symbol == NULL) |
201 IN_type_symbol = last_type_symbol; |
201 IN_type_symbol = last_type_symbol; |
202 ADD_PARAM_LIST(&IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) |
202 ADD_PARAM_LIST(IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) |
203 symbol_c * return_type_symbol = &search_constant_type_c::dword_type_name; |
203 symbol_c * return_type_symbol = &search_constant_type_c::dword_type_name; |
204 function_type_prefix = return_type_symbol; |
204 function_type_prefix = return_type_symbol; |
205 function_type_suffix = IN_type_symbol; |
205 function_type_suffix = IN_type_symbol; |
206 break; |
206 break; |
207 |
207 |
220 case function_real_to_dt : |
220 case function_real_to_dt : |
221 { |
221 { |
222 symbol_c *last_type_symbol = NULL; |
222 symbol_c *last_type_symbol = NULL; |
223 |
223 |
224 { |
224 { |
225 identifier_c IN_param_name("IN"); |
225 symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); |
226 /* Get the value from a foo(<param_name> = <param_value>) style call */ |
226 /* Get the value from a foo(<param_name> = <param_value>) style call */ |
227 symbol_c *IN_param_value = &this->default_variable_name; |
227 symbol_c *IN_param_value = &this->default_variable_name; |
228 |
228 |
229 symbol_c *IN_type_symbol = param_data_type; |
229 symbol_c *IN_type_symbol = param_data_type; |
230 last_type_symbol = param_data_type; |
230 last_type_symbol = param_data_type; |
234 |
234 |
235 function_name = (symbol_c*)(new pragma_c("__real_to_time")); |
235 function_name = (symbol_c*)(new pragma_c("__real_to_time")); |
236 |
236 |
237 if (IN_type_symbol == NULL) |
237 if (IN_type_symbol == NULL) |
238 IN_type_symbol = last_type_symbol; |
238 IN_type_symbol = last_type_symbol; |
239 ADD_PARAM_LIST(&IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) |
239 ADD_PARAM_LIST(IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) |
240 symbol_c * return_type_symbol = &search_constant_type_c::dt_type_name; |
240 symbol_c * return_type_symbol = &search_constant_type_c::dt_type_name; |
241 function_type_prefix = return_type_symbol; |
241 function_type_prefix = return_type_symbol; |
242 break; |
242 break; |
243 |
243 |
244 } |
244 } |
256 case function_real_to_tod : |
256 case function_real_to_tod : |
257 { |
257 { |
258 symbol_c *last_type_symbol = NULL; |
258 symbol_c *last_type_symbol = NULL; |
259 |
259 |
260 { |
260 { |
261 identifier_c IN_param_name("IN"); |
261 symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); |
262 /* Get the value from a foo(<param_name> = <param_value>) style call */ |
262 /* Get the value from a foo(<param_name> = <param_value>) style call */ |
263 symbol_c *IN_param_value = &this->default_variable_name; |
263 symbol_c *IN_param_value = &this->default_variable_name; |
264 |
264 |
265 symbol_c *IN_type_symbol = param_data_type; |
265 symbol_c *IN_type_symbol = param_data_type; |
266 last_type_symbol = param_data_type; |
266 last_type_symbol = param_data_type; |
270 |
270 |
271 function_name = (symbol_c*)(new pragma_c("__real_to_time")); |
271 function_name = (symbol_c*)(new pragma_c("__real_to_time")); |
272 |
272 |
273 if (IN_type_symbol == NULL) |
273 if (IN_type_symbol == NULL) |
274 IN_type_symbol = last_type_symbol; |
274 IN_type_symbol = last_type_symbol; |
275 ADD_PARAM_LIST(&IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) |
275 ADD_PARAM_LIST(IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) |
276 symbol_c * return_type_symbol = &search_constant_type_c::tod_type_name; |
276 symbol_c * return_type_symbol = &search_constant_type_c::tod_type_name; |
277 function_type_prefix = return_type_symbol; |
277 function_type_prefix = return_type_symbol; |
278 break; |
278 break; |
279 |
279 |
280 } |
280 } |
292 case function_real_to_udint : |
292 case function_real_to_udint : |
293 { |
293 { |
294 symbol_c *last_type_symbol = NULL; |
294 symbol_c *last_type_symbol = NULL; |
295 |
295 |
296 { |
296 { |
297 identifier_c IN_param_name("IN"); |
297 symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); |
298 /* Get the value from a foo(<param_name> = <param_value>) style call */ |
298 /* Get the value from a foo(<param_name> = <param_value>) style call */ |
299 symbol_c *IN_param_value = &this->default_variable_name; |
299 symbol_c *IN_param_value = &this->default_variable_name; |
300 |
300 |
301 symbol_c *IN_type_symbol = param_data_type; |
301 symbol_c *IN_type_symbol = param_data_type; |
302 last_type_symbol = param_data_type; |
302 last_type_symbol = param_data_type; |
306 |
306 |
307 function_name = (symbol_c*)(new pragma_c("__move_")); |
307 function_name = (symbol_c*)(new pragma_c("__move_")); |
308 |
308 |
309 if (IN_type_symbol == NULL) |
309 if (IN_type_symbol == NULL) |
310 IN_type_symbol = last_type_symbol; |
310 IN_type_symbol = last_type_symbol; |
311 ADD_PARAM_LIST(&IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) |
311 ADD_PARAM_LIST(IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) |
312 symbol_c * return_type_symbol = &search_constant_type_c::udint_type_name; |
312 symbol_c * return_type_symbol = &search_constant_type_c::udint_type_name; |
313 function_type_prefix = return_type_symbol; |
313 function_type_prefix = return_type_symbol; |
314 function_type_suffix = IN_type_symbol; |
314 function_type_suffix = IN_type_symbol; |
315 break; |
315 break; |
316 |
316 |
329 case function_real_to_word : |
329 case function_real_to_word : |
330 { |
330 { |
331 symbol_c *last_type_symbol = NULL; |
331 symbol_c *last_type_symbol = NULL; |
332 |
332 |
333 { |
333 { |
334 identifier_c IN_param_name("IN"); |
334 symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); |
335 /* Get the value from a foo(<param_name> = <param_value>) style call */ |
335 /* Get the value from a foo(<param_name> = <param_value>) style call */ |
336 symbol_c *IN_param_value = &this->default_variable_name; |
336 symbol_c *IN_param_value = &this->default_variable_name; |
337 |
337 |
338 symbol_c *IN_type_symbol = param_data_type; |
338 symbol_c *IN_type_symbol = param_data_type; |
339 last_type_symbol = param_data_type; |
339 last_type_symbol = param_data_type; |
343 |
343 |
344 function_name = (symbol_c*)(new pragma_c("__move_")); |
344 function_name = (symbol_c*)(new pragma_c("__move_")); |
345 |
345 |
346 if (IN_type_symbol == NULL) |
346 if (IN_type_symbol == NULL) |
347 IN_type_symbol = last_type_symbol; |
347 IN_type_symbol = last_type_symbol; |
348 ADD_PARAM_LIST(&IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) |
348 ADD_PARAM_LIST(IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) |
349 symbol_c * return_type_symbol = &search_constant_type_c::word_type_name; |
349 symbol_c * return_type_symbol = &search_constant_type_c::word_type_name; |
350 function_type_prefix = return_type_symbol; |
350 function_type_prefix = return_type_symbol; |
351 function_type_suffix = IN_type_symbol; |
351 function_type_suffix = IN_type_symbol; |
352 break; |
352 break; |
353 |
353 |
366 case function_real_to_string : |
366 case function_real_to_string : |
367 { |
367 { |
368 symbol_c *last_type_symbol = NULL; |
368 symbol_c *last_type_symbol = NULL; |
369 |
369 |
370 { |
370 { |
371 identifier_c IN_param_name("IN"); |
371 symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); |
372 /* Get the value from a foo(<param_name> = <param_value>) style call */ |
372 /* Get the value from a foo(<param_name> = <param_value>) style call */ |
373 symbol_c *IN_param_value = &this->default_variable_name; |
373 symbol_c *IN_param_value = &this->default_variable_name; |
374 |
374 |
375 symbol_c *IN_type_symbol = param_data_type; |
375 symbol_c *IN_type_symbol = param_data_type; |
376 last_type_symbol = param_data_type; |
376 last_type_symbol = param_data_type; |
380 |
380 |
381 function_name = (symbol_c*)(new pragma_c("__real_to_string")); |
381 function_name = (symbol_c*)(new pragma_c("__real_to_string")); |
382 |
382 |
383 if (IN_type_symbol == NULL) |
383 if (IN_type_symbol == NULL) |
384 IN_type_symbol = last_type_symbol; |
384 IN_type_symbol = last_type_symbol; |
385 ADD_PARAM_LIST(&IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) |
385 ADD_PARAM_LIST(IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) |
386 symbol_c * return_type_symbol = &search_constant_type_c::string_type_name; |
386 symbol_c * return_type_symbol = &search_constant_type_c::string_type_name; |
387 function_type_prefix = return_type_symbol; |
387 function_type_prefix = return_type_symbol; |
388 break; |
388 break; |
389 |
389 |
390 } |
390 } |
402 case function_real_to_lword : |
402 case function_real_to_lword : |
403 { |
403 { |
404 symbol_c *last_type_symbol = NULL; |
404 symbol_c *last_type_symbol = NULL; |
405 |
405 |
406 { |
406 { |
407 identifier_c IN_param_name("IN"); |
407 symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); |
408 /* Get the value from a foo(<param_name> = <param_value>) style call */ |
408 /* Get the value from a foo(<param_name> = <param_value>) style call */ |
409 symbol_c *IN_param_value = &this->default_variable_name; |
409 symbol_c *IN_param_value = &this->default_variable_name; |
410 |
410 |
411 symbol_c *IN_type_symbol = param_data_type; |
411 symbol_c *IN_type_symbol = param_data_type; |
412 last_type_symbol = param_data_type; |
412 last_type_symbol = param_data_type; |
416 |
416 |
417 function_name = (symbol_c*)(new pragma_c("__move_")); |
417 function_name = (symbol_c*)(new pragma_c("__move_")); |
418 |
418 |
419 if (IN_type_symbol == NULL) |
419 if (IN_type_symbol == NULL) |
420 IN_type_symbol = last_type_symbol; |
420 IN_type_symbol = last_type_symbol; |
421 ADD_PARAM_LIST(&IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) |
421 ADD_PARAM_LIST(IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) |
422 symbol_c * return_type_symbol = &search_constant_type_c::lword_type_name; |
422 symbol_c * return_type_symbol = &search_constant_type_c::lword_type_name; |
423 function_type_prefix = return_type_symbol; |
423 function_type_prefix = return_type_symbol; |
424 function_type_suffix = IN_type_symbol; |
424 function_type_suffix = IN_type_symbol; |
425 break; |
425 break; |
426 |
426 |
439 case function_real_to_uint : |
439 case function_real_to_uint : |
440 { |
440 { |
441 symbol_c *last_type_symbol = NULL; |
441 symbol_c *last_type_symbol = NULL; |
442 |
442 |
443 { |
443 { |
444 identifier_c IN_param_name("IN"); |
444 symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); |
445 /* Get the value from a foo(<param_name> = <param_value>) style call */ |
445 /* Get the value from a foo(<param_name> = <param_value>) style call */ |
446 symbol_c *IN_param_value = &this->default_variable_name; |
446 symbol_c *IN_param_value = &this->default_variable_name; |
447 |
447 |
448 symbol_c *IN_type_symbol = param_data_type; |
448 symbol_c *IN_type_symbol = param_data_type; |
449 last_type_symbol = param_data_type; |
449 last_type_symbol = param_data_type; |
453 |
453 |
454 function_name = (symbol_c*)(new pragma_c("__move_")); |
454 function_name = (symbol_c*)(new pragma_c("__move_")); |
455 |
455 |
456 if (IN_type_symbol == NULL) |
456 if (IN_type_symbol == NULL) |
457 IN_type_symbol = last_type_symbol; |
457 IN_type_symbol = last_type_symbol; |
458 ADD_PARAM_LIST(&IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) |
458 ADD_PARAM_LIST(IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) |
459 symbol_c * return_type_symbol = &search_constant_type_c::uint_type_name; |
459 symbol_c * return_type_symbol = &search_constant_type_c::uint_type_name; |
460 function_type_prefix = return_type_symbol; |
460 function_type_prefix = return_type_symbol; |
461 function_type_suffix = IN_type_symbol; |
461 function_type_suffix = IN_type_symbol; |
462 break; |
462 break; |
463 |
463 |
476 case function_real_to_lreal : |
476 case function_real_to_lreal : |
477 { |
477 { |
478 symbol_c *last_type_symbol = NULL; |
478 symbol_c *last_type_symbol = NULL; |
479 |
479 |
480 { |
480 { |
481 identifier_c IN_param_name("IN"); |
481 symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); |
482 /* Get the value from a foo(<param_name> = <param_value>) style call */ |
482 /* Get the value from a foo(<param_name> = <param_value>) style call */ |
483 symbol_c *IN_param_value = &this->default_variable_name; |
483 symbol_c *IN_param_value = &this->default_variable_name; |
484 |
484 |
485 symbol_c *IN_type_symbol = param_data_type; |
485 symbol_c *IN_type_symbol = param_data_type; |
486 last_type_symbol = param_data_type; |
486 last_type_symbol = param_data_type; |
490 |
490 |
491 function_name = (symbol_c*)(new pragma_c("__move_")); |
491 function_name = (symbol_c*)(new pragma_c("__move_")); |
492 |
492 |
493 if (IN_type_symbol == NULL) |
493 if (IN_type_symbol == NULL) |
494 IN_type_symbol = last_type_symbol; |
494 IN_type_symbol = last_type_symbol; |
495 ADD_PARAM_LIST(&IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) |
495 ADD_PARAM_LIST(IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) |
496 symbol_c * return_type_symbol = &search_constant_type_c::lreal_type_name; |
496 symbol_c * return_type_symbol = &search_constant_type_c::lreal_type_name; |
497 function_type_prefix = return_type_symbol; |
497 function_type_prefix = return_type_symbol; |
498 function_type_suffix = IN_type_symbol; |
498 function_type_suffix = IN_type_symbol; |
499 break; |
499 break; |
500 |
500 |
513 case function_real_to_byte : |
513 case function_real_to_byte : |
514 { |
514 { |
515 symbol_c *last_type_symbol = NULL; |
515 symbol_c *last_type_symbol = NULL; |
516 |
516 |
517 { |
517 { |
518 identifier_c IN_param_name("IN"); |
518 symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); |
519 /* Get the value from a foo(<param_name> = <param_value>) style call */ |
519 /* Get the value from a foo(<param_name> = <param_value>) style call */ |
520 symbol_c *IN_param_value = &this->default_variable_name; |
520 symbol_c *IN_param_value = &this->default_variable_name; |
521 |
521 |
522 symbol_c *IN_type_symbol = param_data_type; |
522 symbol_c *IN_type_symbol = param_data_type; |
523 last_type_symbol = param_data_type; |
523 last_type_symbol = param_data_type; |
527 |
527 |
528 function_name = (symbol_c*)(new pragma_c("__move_")); |
528 function_name = (symbol_c*)(new pragma_c("__move_")); |
529 |
529 |
530 if (IN_type_symbol == NULL) |
530 if (IN_type_symbol == NULL) |
531 IN_type_symbol = last_type_symbol; |
531 IN_type_symbol = last_type_symbol; |
532 ADD_PARAM_LIST(&IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) |
532 ADD_PARAM_LIST(IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) |
533 symbol_c * return_type_symbol = &search_constant_type_c::byte_type_name; |
533 symbol_c * return_type_symbol = &search_constant_type_c::byte_type_name; |
534 function_type_prefix = return_type_symbol; |
534 function_type_prefix = return_type_symbol; |
535 function_type_suffix = IN_type_symbol; |
535 function_type_suffix = IN_type_symbol; |
536 break; |
536 break; |
537 |
537 |
550 case function_real_to_usint : |
550 case function_real_to_usint : |
551 { |
551 { |
552 symbol_c *last_type_symbol = NULL; |
552 symbol_c *last_type_symbol = NULL; |
553 |
553 |
554 { |
554 { |
555 identifier_c IN_param_name("IN"); |
555 symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); |
556 /* Get the value from a foo(<param_name> = <param_value>) style call */ |
556 /* Get the value from a foo(<param_name> = <param_value>) style call */ |
557 symbol_c *IN_param_value = &this->default_variable_name; |
557 symbol_c *IN_param_value = &this->default_variable_name; |
558 |
558 |
559 symbol_c *IN_type_symbol = param_data_type; |
559 symbol_c *IN_type_symbol = param_data_type; |
560 last_type_symbol = param_data_type; |
560 last_type_symbol = param_data_type; |
564 |
564 |
565 function_name = (symbol_c*)(new pragma_c("__move_")); |
565 function_name = (symbol_c*)(new pragma_c("__move_")); |
566 |
566 |
567 if (IN_type_symbol == NULL) |
567 if (IN_type_symbol == NULL) |
568 IN_type_symbol = last_type_symbol; |
568 IN_type_symbol = last_type_symbol; |
569 ADD_PARAM_LIST(&IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) |
569 ADD_PARAM_LIST(IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) |
570 symbol_c * return_type_symbol = &search_constant_type_c::usint_type_name; |
570 symbol_c * return_type_symbol = &search_constant_type_c::usint_type_name; |
571 function_type_prefix = return_type_symbol; |
571 function_type_prefix = return_type_symbol; |
572 function_type_suffix = IN_type_symbol; |
572 function_type_suffix = IN_type_symbol; |
573 break; |
573 break; |
574 |
574 |
587 case function_real_to_ulint : |
587 case function_real_to_ulint : |
588 { |
588 { |
589 symbol_c *last_type_symbol = NULL; |
589 symbol_c *last_type_symbol = NULL; |
590 |
590 |
591 { |
591 { |
592 identifier_c IN_param_name("IN"); |
592 symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); |
593 /* Get the value from a foo(<param_name> = <param_value>) style call */ |
593 /* Get the value from a foo(<param_name> = <param_value>) style call */ |
594 symbol_c *IN_param_value = &this->default_variable_name; |
594 symbol_c *IN_param_value = &this->default_variable_name; |
595 |
595 |
596 symbol_c *IN_type_symbol = param_data_type; |
596 symbol_c *IN_type_symbol = param_data_type; |
597 last_type_symbol = param_data_type; |
597 last_type_symbol = param_data_type; |
601 |
601 |
602 function_name = (symbol_c*)(new pragma_c("__move_")); |
602 function_name = (symbol_c*)(new pragma_c("__move_")); |
603 |
603 |
604 if (IN_type_symbol == NULL) |
604 if (IN_type_symbol == NULL) |
605 IN_type_symbol = last_type_symbol; |
605 IN_type_symbol = last_type_symbol; |
606 ADD_PARAM_LIST(&IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) |
606 ADD_PARAM_LIST(IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) |
607 symbol_c * return_type_symbol = &search_constant_type_c::ulint_type_name; |
607 symbol_c * return_type_symbol = &search_constant_type_c::ulint_type_name; |
608 function_type_prefix = return_type_symbol; |
608 function_type_prefix = return_type_symbol; |
609 function_type_suffix = IN_type_symbol; |
609 function_type_suffix = IN_type_symbol; |
610 break; |
610 break; |
611 |
611 |
624 case function_real_to_bool : |
624 case function_real_to_bool : |
625 { |
625 { |
626 symbol_c *last_type_symbol = NULL; |
626 symbol_c *last_type_symbol = NULL; |
627 |
627 |
628 { |
628 { |
629 identifier_c IN_param_name("IN"); |
629 symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); |
630 /* Get the value from a foo(<param_name> = <param_value>) style call */ |
630 /* Get the value from a foo(<param_name> = <param_value>) style call */ |
631 symbol_c *IN_param_value = &this->default_variable_name; |
631 symbol_c *IN_param_value = &this->default_variable_name; |
632 |
632 |
633 symbol_c *IN_type_symbol = param_data_type; |
633 symbol_c *IN_type_symbol = param_data_type; |
634 last_type_symbol = param_data_type; |
634 last_type_symbol = param_data_type; |
638 |
638 |
639 function_name = (symbol_c*)(new pragma_c("__move_")); |
639 function_name = (symbol_c*)(new pragma_c("__move_")); |
640 |
640 |
641 if (IN_type_symbol == NULL) |
641 if (IN_type_symbol == NULL) |
642 IN_type_symbol = last_type_symbol; |
642 IN_type_symbol = last_type_symbol; |
643 ADD_PARAM_LIST(&IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) |
643 ADD_PARAM_LIST(IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) |
644 symbol_c * return_type_symbol = &search_constant_type_c::bool_type_name; |
644 symbol_c * return_type_symbol = &search_constant_type_c::bool_type_name; |
645 function_type_prefix = return_type_symbol; |
645 function_type_prefix = return_type_symbol; |
646 function_type_suffix = IN_type_symbol; |
646 function_type_suffix = IN_type_symbol; |
647 break; |
647 break; |
648 |
648 |
661 case function_real_to_time : |
661 case function_real_to_time : |
662 { |
662 { |
663 symbol_c *last_type_symbol = NULL; |
663 symbol_c *last_type_symbol = NULL; |
664 |
664 |
665 { |
665 { |
666 identifier_c IN_param_name("IN"); |
666 symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); |
667 /* Get the value from a foo(<param_name> = <param_value>) style call */ |
667 /* Get the value from a foo(<param_name> = <param_value>) style call */ |
668 symbol_c *IN_param_value = &this->default_variable_name; |
668 symbol_c *IN_param_value = &this->default_variable_name; |
669 |
669 |
670 symbol_c *IN_type_symbol = param_data_type; |
670 symbol_c *IN_type_symbol = param_data_type; |
671 last_type_symbol = param_data_type; |
671 last_type_symbol = param_data_type; |
675 |
675 |
676 function_name = (symbol_c*)(new pragma_c("__real_to_time")); |
676 function_name = (symbol_c*)(new pragma_c("__real_to_time")); |
677 |
677 |
678 if (IN_type_symbol == NULL) |
678 if (IN_type_symbol == NULL) |
679 IN_type_symbol = last_type_symbol; |
679 IN_type_symbol = last_type_symbol; |
680 ADD_PARAM_LIST(&IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) |
680 ADD_PARAM_LIST(IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) |
681 symbol_c * return_type_symbol = &search_constant_type_c::time_type_name; |
681 symbol_c * return_type_symbol = &search_constant_type_c::time_type_name; |
682 function_type_prefix = return_type_symbol; |
682 function_type_prefix = return_type_symbol; |
683 break; |
683 break; |
684 |
684 |
685 } |
685 } |
697 case function_real_to_int : |
697 case function_real_to_int : |
698 { |
698 { |
699 symbol_c *last_type_symbol = NULL; |
699 symbol_c *last_type_symbol = NULL; |
700 |
700 |
701 { |
701 { |
702 identifier_c IN_param_name("IN"); |
702 symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); |
703 /* Get the value from a foo(<param_name> = <param_value>) style call */ |
703 /* Get the value from a foo(<param_name> = <param_value>) style call */ |
704 symbol_c *IN_param_value = &this->default_variable_name; |
704 symbol_c *IN_param_value = &this->default_variable_name; |
705 |
705 |
706 symbol_c *IN_type_symbol = param_data_type; |
706 symbol_c *IN_type_symbol = param_data_type; |
707 last_type_symbol = param_data_type; |
707 last_type_symbol = param_data_type; |
711 |
711 |
712 function_name = (symbol_c*)(new pragma_c("__move_")); |
712 function_name = (symbol_c*)(new pragma_c("__move_")); |
713 |
713 |
714 if (IN_type_symbol == NULL) |
714 if (IN_type_symbol == NULL) |
715 IN_type_symbol = last_type_symbol; |
715 IN_type_symbol = last_type_symbol; |
716 ADD_PARAM_LIST(&IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) |
716 ADD_PARAM_LIST(IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) |
717 symbol_c * return_type_symbol = &search_constant_type_c::int_type_name; |
717 symbol_c * return_type_symbol = &search_constant_type_c::int_type_name; |
718 function_type_prefix = return_type_symbol; |
718 function_type_prefix = return_type_symbol; |
719 function_type_suffix = IN_type_symbol; |
719 function_type_suffix = IN_type_symbol; |
720 break; |
720 break; |
721 |
721 |
734 case function_sint_to_real : |
734 case function_sint_to_real : |
735 { |
735 { |
736 symbol_c *last_type_symbol = NULL; |
736 symbol_c *last_type_symbol = NULL; |
737 |
737 |
738 { |
738 { |
739 identifier_c IN_param_name("IN"); |
739 symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); |
740 /* Get the value from a foo(<param_name> = <param_value>) style call */ |
740 /* Get the value from a foo(<param_name> = <param_value>) style call */ |
741 symbol_c *IN_param_value = &this->default_variable_name; |
741 symbol_c *IN_param_value = &this->default_variable_name; |
742 |
742 |
743 symbol_c *IN_type_symbol = param_data_type; |
743 symbol_c *IN_type_symbol = param_data_type; |
744 last_type_symbol = param_data_type; |
744 last_type_symbol = param_data_type; |
748 |
748 |
749 function_name = (symbol_c*)(new pragma_c("__move_")); |
749 function_name = (symbol_c*)(new pragma_c("__move_")); |
750 |
750 |
751 if (IN_type_symbol == NULL) |
751 if (IN_type_symbol == NULL) |
752 IN_type_symbol = last_type_symbol; |
752 IN_type_symbol = last_type_symbol; |
753 ADD_PARAM_LIST(&IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) |
753 ADD_PARAM_LIST(IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) |
754 symbol_c * return_type_symbol = &search_constant_type_c::real_type_name; |
754 symbol_c * return_type_symbol = &search_constant_type_c::real_type_name; |
755 function_type_prefix = return_type_symbol; |
755 function_type_prefix = return_type_symbol; |
756 function_type_suffix = IN_type_symbol; |
756 function_type_suffix = IN_type_symbol; |
757 break; |
757 break; |
758 |
758 |
771 case function_sint_to_lint : |
771 case function_sint_to_lint : |
772 { |
772 { |
773 symbol_c *last_type_symbol = NULL; |
773 symbol_c *last_type_symbol = NULL; |
774 |
774 |
775 { |
775 { |
776 identifier_c IN_param_name("IN"); |
776 symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); |
777 /* Get the value from a foo(<param_name> = <param_value>) style call */ |
777 /* Get the value from a foo(<param_name> = <param_value>) style call */ |
778 symbol_c *IN_param_value = &this->default_variable_name; |
778 symbol_c *IN_param_value = &this->default_variable_name; |
779 |
779 |
780 symbol_c *IN_type_symbol = param_data_type; |
780 symbol_c *IN_type_symbol = param_data_type; |
781 last_type_symbol = param_data_type; |
781 last_type_symbol = param_data_type; |
785 |
785 |
786 function_name = (symbol_c*)(new pragma_c("__move_")); |
786 function_name = (symbol_c*)(new pragma_c("__move_")); |
787 |
787 |
788 if (IN_type_symbol == NULL) |
788 if (IN_type_symbol == NULL) |
789 IN_type_symbol = last_type_symbol; |
789 IN_type_symbol = last_type_symbol; |
790 ADD_PARAM_LIST(&IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) |
790 ADD_PARAM_LIST(IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) |
791 symbol_c * return_type_symbol = &search_constant_type_c::lint_type_name; |
791 symbol_c * return_type_symbol = &search_constant_type_c::lint_type_name; |
792 function_type_prefix = return_type_symbol; |
792 function_type_prefix = return_type_symbol; |
793 function_type_suffix = IN_type_symbol; |
793 function_type_suffix = IN_type_symbol; |
794 break; |
794 break; |
795 |
795 |
808 case function_sint_to_dint : |
808 case function_sint_to_dint : |
809 { |
809 { |
810 symbol_c *last_type_symbol = NULL; |
810 symbol_c *last_type_symbol = NULL; |
811 |
811 |
812 { |
812 { |
813 identifier_c IN_param_name("IN"); |
813 symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); |
814 /* Get the value from a foo(<param_name> = <param_value>) style call */ |
814 /* Get the value from a foo(<param_name> = <param_value>) style call */ |
815 symbol_c *IN_param_value = &this->default_variable_name; |
815 symbol_c *IN_param_value = &this->default_variable_name; |
816 |
816 |
817 symbol_c *IN_type_symbol = param_data_type; |
817 symbol_c *IN_type_symbol = param_data_type; |
818 last_type_symbol = param_data_type; |
818 last_type_symbol = param_data_type; |
822 |
822 |
823 function_name = (symbol_c*)(new pragma_c("__move_")); |
823 function_name = (symbol_c*)(new pragma_c("__move_")); |
824 |
824 |
825 if (IN_type_symbol == NULL) |
825 if (IN_type_symbol == NULL) |
826 IN_type_symbol = last_type_symbol; |
826 IN_type_symbol = last_type_symbol; |
827 ADD_PARAM_LIST(&IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) |
827 ADD_PARAM_LIST(IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) |
828 symbol_c * return_type_symbol = &search_constant_type_c::dint_type_name; |
828 symbol_c * return_type_symbol = &search_constant_type_c::dint_type_name; |
829 function_type_prefix = return_type_symbol; |
829 function_type_prefix = return_type_symbol; |
830 function_type_suffix = IN_type_symbol; |
830 function_type_suffix = IN_type_symbol; |
831 break; |
831 break; |
832 |
832 |
845 case function_sint_to_date : |
845 case function_sint_to_date : |
846 { |
846 { |
847 symbol_c *last_type_symbol = NULL; |
847 symbol_c *last_type_symbol = NULL; |
848 |
848 |
849 { |
849 { |
850 identifier_c IN_param_name("IN"); |
850 symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); |
851 /* Get the value from a foo(<param_name> = <param_value>) style call */ |
851 /* Get the value from a foo(<param_name> = <param_value>) style call */ |
852 symbol_c *IN_param_value = &this->default_variable_name; |
852 symbol_c *IN_param_value = &this->default_variable_name; |
853 |
853 |
854 symbol_c *IN_type_symbol = param_data_type; |
854 symbol_c *IN_type_symbol = param_data_type; |
855 last_type_symbol = param_data_type; |
855 last_type_symbol = param_data_type; |
859 |
859 |
860 function_name = (symbol_c*)(new pragma_c("__int_to_time")); |
860 function_name = (symbol_c*)(new pragma_c("__int_to_time")); |
861 |
861 |
862 if (IN_type_symbol == NULL) |
862 if (IN_type_symbol == NULL) |
863 IN_type_symbol = last_type_symbol; |
863 IN_type_symbol = last_type_symbol; |
864 ADD_PARAM_LIST(&IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) |
864 ADD_PARAM_LIST(IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) |
865 symbol_c * return_type_symbol = &search_constant_type_c::date_type_name; |
865 symbol_c * return_type_symbol = &search_constant_type_c::date_type_name; |
866 function_type_prefix = return_type_symbol; |
866 function_type_prefix = return_type_symbol; |
867 break; |
867 break; |
868 |
868 |
869 } |
869 } |
881 case function_sint_to_dword : |
881 case function_sint_to_dword : |
882 { |
882 { |
883 symbol_c *last_type_symbol = NULL; |
883 symbol_c *last_type_symbol = NULL; |
884 |
884 |
885 { |
885 { |
886 identifier_c IN_param_name("IN"); |
886 symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); |
887 /* Get the value from a foo(<param_name> = <param_value>) style call */ |
887 /* Get the value from a foo(<param_name> = <param_value>) style call */ |
888 symbol_c *IN_param_value = &this->default_variable_name; |
888 symbol_c *IN_param_value = &this->default_variable_name; |
889 |
889 |
890 symbol_c *IN_type_symbol = param_data_type; |
890 symbol_c *IN_type_symbol = param_data_type; |
891 last_type_symbol = param_data_type; |
891 last_type_symbol = param_data_type; |
895 |
895 |
896 function_name = (symbol_c*)(new pragma_c("__move_")); |
896 function_name = (symbol_c*)(new pragma_c("__move_")); |
897 |
897 |
898 if (IN_type_symbol == NULL) |
898 if (IN_type_symbol == NULL) |
899 IN_type_symbol = last_type_symbol; |
899 IN_type_symbol = last_type_symbol; |
900 ADD_PARAM_LIST(&IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) |
900 ADD_PARAM_LIST(IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) |
901 symbol_c * return_type_symbol = &search_constant_type_c::dword_type_name; |
901 symbol_c * return_type_symbol = &search_constant_type_c::dword_type_name; |
902 function_type_prefix = return_type_symbol; |
902 function_type_prefix = return_type_symbol; |
903 function_type_suffix = IN_type_symbol; |
903 function_type_suffix = IN_type_symbol; |
904 break; |
904 break; |
905 |
905 |
918 case function_sint_to_dt : |
918 case function_sint_to_dt : |
919 { |
919 { |
920 symbol_c *last_type_symbol = NULL; |
920 symbol_c *last_type_symbol = NULL; |
921 |
921 |
922 { |
922 { |
923 identifier_c IN_param_name("IN"); |
923 symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); |
924 /* Get the value from a foo(<param_name> = <param_value>) style call */ |
924 /* Get the value from a foo(<param_name> = <param_value>) style call */ |
925 symbol_c *IN_param_value = &this->default_variable_name; |
925 symbol_c *IN_param_value = &this->default_variable_name; |
926 |
926 |
927 symbol_c *IN_type_symbol = param_data_type; |
927 symbol_c *IN_type_symbol = param_data_type; |
928 last_type_symbol = param_data_type; |
928 last_type_symbol = param_data_type; |
932 |
932 |
933 function_name = (symbol_c*)(new pragma_c("__int_to_time")); |
933 function_name = (symbol_c*)(new pragma_c("__int_to_time")); |
934 |
934 |
935 if (IN_type_symbol == NULL) |
935 if (IN_type_symbol == NULL) |
936 IN_type_symbol = last_type_symbol; |
936 IN_type_symbol = last_type_symbol; |
937 ADD_PARAM_LIST(&IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) |
937 ADD_PARAM_LIST(IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) |
938 symbol_c * return_type_symbol = &search_constant_type_c::dt_type_name; |
938 symbol_c * return_type_symbol = &search_constant_type_c::dt_type_name; |
939 function_type_prefix = return_type_symbol; |
939 function_type_prefix = return_type_symbol; |
940 break; |
940 break; |
941 |
941 |
942 } |
942 } |
954 case function_sint_to_tod : |
954 case function_sint_to_tod : |
955 { |
955 { |
956 symbol_c *last_type_symbol = NULL; |
956 symbol_c *last_type_symbol = NULL; |
957 |
957 |
958 { |
958 { |
959 identifier_c IN_param_name("IN"); |
959 symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); |
960 /* Get the value from a foo(<param_name> = <param_value>) style call */ |
960 /* Get the value from a foo(<param_name> = <param_value>) style call */ |
961 symbol_c *IN_param_value = &this->default_variable_name; |
961 symbol_c *IN_param_value = &this->default_variable_name; |
962 |
962 |
963 symbol_c *IN_type_symbol = param_data_type; |
963 symbol_c *IN_type_symbol = param_data_type; |
964 last_type_symbol = param_data_type; |
964 last_type_symbol = param_data_type; |
968 |
968 |
969 function_name = (symbol_c*)(new pragma_c("__int_to_time")); |
969 function_name = (symbol_c*)(new pragma_c("__int_to_time")); |
970 |
970 |
971 if (IN_type_symbol == NULL) |
971 if (IN_type_symbol == NULL) |
972 IN_type_symbol = last_type_symbol; |
972 IN_type_symbol = last_type_symbol; |
973 ADD_PARAM_LIST(&IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) |
973 ADD_PARAM_LIST(IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) |
974 symbol_c * return_type_symbol = &search_constant_type_c::tod_type_name; |
974 symbol_c * return_type_symbol = &search_constant_type_c::tod_type_name; |
975 function_type_prefix = return_type_symbol; |
975 function_type_prefix = return_type_symbol; |
976 break; |
976 break; |
977 |
977 |
978 } |
978 } |
990 case function_sint_to_udint : |
990 case function_sint_to_udint : |
991 { |
991 { |
992 symbol_c *last_type_symbol = NULL; |
992 symbol_c *last_type_symbol = NULL; |
993 |
993 |
994 { |
994 { |
995 identifier_c IN_param_name("IN"); |
995 symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); |
996 /* Get the value from a foo(<param_name> = <param_value>) style call */ |
996 /* Get the value from a foo(<param_name> = <param_value>) style call */ |
997 symbol_c *IN_param_value = &this->default_variable_name; |
997 symbol_c *IN_param_value = &this->default_variable_name; |
998 |
998 |
999 symbol_c *IN_type_symbol = param_data_type; |
999 symbol_c *IN_type_symbol = param_data_type; |
1000 last_type_symbol = param_data_type; |
1000 last_type_symbol = param_data_type; |
1004 |
1004 |
1005 function_name = (symbol_c*)(new pragma_c("__move_")); |
1005 function_name = (symbol_c*)(new pragma_c("__move_")); |
1006 |
1006 |
1007 if (IN_type_symbol == NULL) |
1007 if (IN_type_symbol == NULL) |
1008 IN_type_symbol = last_type_symbol; |
1008 IN_type_symbol = last_type_symbol; |
1009 ADD_PARAM_LIST(&IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) |
1009 ADD_PARAM_LIST(IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) |
1010 symbol_c * return_type_symbol = &search_constant_type_c::udint_type_name; |
1010 symbol_c * return_type_symbol = &search_constant_type_c::udint_type_name; |
1011 function_type_prefix = return_type_symbol; |
1011 function_type_prefix = return_type_symbol; |
1012 function_type_suffix = IN_type_symbol; |
1012 function_type_suffix = IN_type_symbol; |
1013 break; |
1013 break; |
1014 |
1014 |
1027 case function_sint_to_word : |
1027 case function_sint_to_word : |
1028 { |
1028 { |
1029 symbol_c *last_type_symbol = NULL; |
1029 symbol_c *last_type_symbol = NULL; |
1030 |
1030 |
1031 { |
1031 { |
1032 identifier_c IN_param_name("IN"); |
1032 symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); |
1033 /* Get the value from a foo(<param_name> = <param_value>) style call */ |
1033 /* Get the value from a foo(<param_name> = <param_value>) style call */ |
1034 symbol_c *IN_param_value = &this->default_variable_name; |
1034 symbol_c *IN_param_value = &this->default_variable_name; |
1035 |
1035 |
1036 symbol_c *IN_type_symbol = param_data_type; |
1036 symbol_c *IN_type_symbol = param_data_type; |
1037 last_type_symbol = param_data_type; |
1037 last_type_symbol = param_data_type; |
1041 |
1041 |
1042 function_name = (symbol_c*)(new pragma_c("__move_")); |
1042 function_name = (symbol_c*)(new pragma_c("__move_")); |
1043 |
1043 |
1044 if (IN_type_symbol == NULL) |
1044 if (IN_type_symbol == NULL) |
1045 IN_type_symbol = last_type_symbol; |
1045 IN_type_symbol = last_type_symbol; |
1046 ADD_PARAM_LIST(&IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) |
1046 ADD_PARAM_LIST(IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) |
1047 symbol_c * return_type_symbol = &search_constant_type_c::word_type_name; |
1047 symbol_c * return_type_symbol = &search_constant_type_c::word_type_name; |
1048 function_type_prefix = return_type_symbol; |
1048 function_type_prefix = return_type_symbol; |
1049 function_type_suffix = IN_type_symbol; |
1049 function_type_suffix = IN_type_symbol; |
1050 break; |
1050 break; |
1051 |
1051 |
1064 case function_sint_to_string : |
1064 case function_sint_to_string : |
1065 { |
1065 { |
1066 symbol_c *last_type_symbol = NULL; |
1066 symbol_c *last_type_symbol = NULL; |
1067 |
1067 |
1068 { |
1068 { |
1069 identifier_c IN_param_name("IN"); |
1069 symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); |
1070 /* Get the value from a foo(<param_name> = <param_value>) style call */ |
1070 /* Get the value from a foo(<param_name> = <param_value>) style call */ |
1071 symbol_c *IN_param_value = &this->default_variable_name; |
1071 symbol_c *IN_param_value = &this->default_variable_name; |
1072 |
1072 |
1073 symbol_c *IN_type_symbol = param_data_type; |
1073 symbol_c *IN_type_symbol = param_data_type; |
1074 last_type_symbol = param_data_type; |
1074 last_type_symbol = param_data_type; |
1078 |
1078 |
1079 function_name = (symbol_c*)(new pragma_c("__sint_to_string")); |
1079 function_name = (symbol_c*)(new pragma_c("__sint_to_string")); |
1080 |
1080 |
1081 if (IN_type_symbol == NULL) |
1081 if (IN_type_symbol == NULL) |
1082 IN_type_symbol = last_type_symbol; |
1082 IN_type_symbol = last_type_symbol; |
1083 ADD_PARAM_LIST(&IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) |
1083 ADD_PARAM_LIST(IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) |
1084 symbol_c * return_type_symbol = &search_constant_type_c::string_type_name; |
1084 symbol_c * return_type_symbol = &search_constant_type_c::string_type_name; |
1085 function_type_prefix = return_type_symbol; |
1085 function_type_prefix = return_type_symbol; |
1086 break; |
1086 break; |
1087 |
1087 |
1088 } |
1088 } |
1100 case function_sint_to_lword : |
1100 case function_sint_to_lword : |
1101 { |
1101 { |
1102 symbol_c *last_type_symbol = NULL; |
1102 symbol_c *last_type_symbol = NULL; |
1103 |
1103 |
1104 { |
1104 { |
1105 identifier_c IN_param_name("IN"); |
1105 symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); |
1106 /* Get the value from a foo(<param_name> = <param_value>) style call */ |
1106 /* Get the value from a foo(<param_name> = <param_value>) style call */ |
1107 symbol_c *IN_param_value = &this->default_variable_name; |
1107 symbol_c *IN_param_value = &this->default_variable_name; |
1108 |
1108 |
1109 symbol_c *IN_type_symbol = param_data_type; |
1109 symbol_c *IN_type_symbol = param_data_type; |
1110 last_type_symbol = param_data_type; |
1110 last_type_symbol = param_data_type; |
1114 |
1114 |
1115 function_name = (symbol_c*)(new pragma_c("__move_")); |
1115 function_name = (symbol_c*)(new pragma_c("__move_")); |
1116 |
1116 |
1117 if (IN_type_symbol == NULL) |
1117 if (IN_type_symbol == NULL) |
1118 IN_type_symbol = last_type_symbol; |
1118 IN_type_symbol = last_type_symbol; |
1119 ADD_PARAM_LIST(&IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) |
1119 ADD_PARAM_LIST(IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) |
1120 symbol_c * return_type_symbol = &search_constant_type_c::lword_type_name; |
1120 symbol_c * return_type_symbol = &search_constant_type_c::lword_type_name; |
1121 function_type_prefix = return_type_symbol; |
1121 function_type_prefix = return_type_symbol; |
1122 function_type_suffix = IN_type_symbol; |
1122 function_type_suffix = IN_type_symbol; |
1123 break; |
1123 break; |
1124 |
1124 |
1137 case function_sint_to_uint : |
1137 case function_sint_to_uint : |
1138 { |
1138 { |
1139 symbol_c *last_type_symbol = NULL; |
1139 symbol_c *last_type_symbol = NULL; |
1140 |
1140 |
1141 { |
1141 { |
1142 identifier_c IN_param_name("IN"); |
1142 symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); |
1143 /* Get the value from a foo(<param_name> = <param_value>) style call */ |
1143 /* Get the value from a foo(<param_name> = <param_value>) style call */ |
1144 symbol_c *IN_param_value = &this->default_variable_name; |
1144 symbol_c *IN_param_value = &this->default_variable_name; |
1145 |
1145 |
1146 symbol_c *IN_type_symbol = param_data_type; |
1146 symbol_c *IN_type_symbol = param_data_type; |
1147 last_type_symbol = param_data_type; |
1147 last_type_symbol = param_data_type; |
1151 |
1151 |
1152 function_name = (symbol_c*)(new pragma_c("__move_")); |
1152 function_name = (symbol_c*)(new pragma_c("__move_")); |
1153 |
1153 |
1154 if (IN_type_symbol == NULL) |
1154 if (IN_type_symbol == NULL) |
1155 IN_type_symbol = last_type_symbol; |
1155 IN_type_symbol = last_type_symbol; |
1156 ADD_PARAM_LIST(&IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) |
1156 ADD_PARAM_LIST(IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) |
1157 symbol_c * return_type_symbol = &search_constant_type_c::uint_type_name; |
1157 symbol_c * return_type_symbol = &search_constant_type_c::uint_type_name; |
1158 function_type_prefix = return_type_symbol; |
1158 function_type_prefix = return_type_symbol; |
1159 function_type_suffix = IN_type_symbol; |
1159 function_type_suffix = IN_type_symbol; |
1160 break; |
1160 break; |
1161 |
1161 |
1174 case function_sint_to_lreal : |
1174 case function_sint_to_lreal : |
1175 { |
1175 { |
1176 symbol_c *last_type_symbol = NULL; |
1176 symbol_c *last_type_symbol = NULL; |
1177 |
1177 |
1178 { |
1178 { |
1179 identifier_c IN_param_name("IN"); |
1179 symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); |
1180 /* Get the value from a foo(<param_name> = <param_value>) style call */ |
1180 /* Get the value from a foo(<param_name> = <param_value>) style call */ |
1181 symbol_c *IN_param_value = &this->default_variable_name; |
1181 symbol_c *IN_param_value = &this->default_variable_name; |
1182 |
1182 |
1183 symbol_c *IN_type_symbol = param_data_type; |
1183 symbol_c *IN_type_symbol = param_data_type; |
1184 last_type_symbol = param_data_type; |
1184 last_type_symbol = param_data_type; |
1188 |
1188 |
1189 function_name = (symbol_c*)(new pragma_c("__move_")); |
1189 function_name = (symbol_c*)(new pragma_c("__move_")); |
1190 |
1190 |
1191 if (IN_type_symbol == NULL) |
1191 if (IN_type_symbol == NULL) |
1192 IN_type_symbol = last_type_symbol; |
1192 IN_type_symbol = last_type_symbol; |
1193 ADD_PARAM_LIST(&IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) |
1193 ADD_PARAM_LIST(IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) |
1194 symbol_c * return_type_symbol = &search_constant_type_c::lreal_type_name; |
1194 symbol_c * return_type_symbol = &search_constant_type_c::lreal_type_name; |
1195 function_type_prefix = return_type_symbol; |
1195 function_type_prefix = return_type_symbol; |
1196 function_type_suffix = IN_type_symbol; |
1196 function_type_suffix = IN_type_symbol; |
1197 break; |
1197 break; |
1198 |
1198 |
1211 case function_sint_to_byte : |
1211 case function_sint_to_byte : |
1212 { |
1212 { |
1213 symbol_c *last_type_symbol = NULL; |
1213 symbol_c *last_type_symbol = NULL; |
1214 |
1214 |
1215 { |
1215 { |
1216 identifier_c IN_param_name("IN"); |
1216 symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); |
1217 /* Get the value from a foo(<param_name> = <param_value>) style call */ |
1217 /* Get the value from a foo(<param_name> = <param_value>) style call */ |
1218 symbol_c *IN_param_value = &this->default_variable_name; |
1218 symbol_c *IN_param_value = &this->default_variable_name; |
1219 |
1219 |
1220 symbol_c *IN_type_symbol = param_data_type; |
1220 symbol_c *IN_type_symbol = param_data_type; |
1221 last_type_symbol = param_data_type; |
1221 last_type_symbol = param_data_type; |
1225 |
1225 |
1226 function_name = (symbol_c*)(new pragma_c("__move_")); |
1226 function_name = (symbol_c*)(new pragma_c("__move_")); |
1227 |
1227 |
1228 if (IN_type_symbol == NULL) |
1228 if (IN_type_symbol == NULL) |
1229 IN_type_symbol = last_type_symbol; |
1229 IN_type_symbol = last_type_symbol; |
1230 ADD_PARAM_LIST(&IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) |
1230 ADD_PARAM_LIST(IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) |
1231 symbol_c * return_type_symbol = &search_constant_type_c::byte_type_name; |
1231 symbol_c * return_type_symbol = &search_constant_type_c::byte_type_name; |
1232 function_type_prefix = return_type_symbol; |
1232 function_type_prefix = return_type_symbol; |
1233 function_type_suffix = IN_type_symbol; |
1233 function_type_suffix = IN_type_symbol; |
1234 break; |
1234 break; |
1235 |
1235 |
1248 case function_sint_to_usint : |
1248 case function_sint_to_usint : |
1249 { |
1249 { |
1250 symbol_c *last_type_symbol = NULL; |
1250 symbol_c *last_type_symbol = NULL; |
1251 |
1251 |
1252 { |
1252 { |
1253 identifier_c IN_param_name("IN"); |
1253 symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); |
1254 /* Get the value from a foo(<param_name> = <param_value>) style call */ |
1254 /* Get the value from a foo(<param_name> = <param_value>) style call */ |
1255 symbol_c *IN_param_value = &this->default_variable_name; |
1255 symbol_c *IN_param_value = &this->default_variable_name; |
1256 |
1256 |
1257 symbol_c *IN_type_symbol = param_data_type; |
1257 symbol_c *IN_type_symbol = param_data_type; |
1258 last_type_symbol = param_data_type; |
1258 last_type_symbol = param_data_type; |
1262 |
1262 |
1263 function_name = (symbol_c*)(new pragma_c("__move_")); |
1263 function_name = (symbol_c*)(new pragma_c("__move_")); |
1264 |
1264 |
1265 if (IN_type_symbol == NULL) |
1265 if (IN_type_symbol == NULL) |
1266 IN_type_symbol = last_type_symbol; |
1266 IN_type_symbol = last_type_symbol; |
1267 ADD_PARAM_LIST(&IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) |
1267 ADD_PARAM_LIST(IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) |
1268 symbol_c * return_type_symbol = &search_constant_type_c::usint_type_name; |
1268 symbol_c * return_type_symbol = &search_constant_type_c::usint_type_name; |
1269 function_type_prefix = return_type_symbol; |
1269 function_type_prefix = return_type_symbol; |
1270 function_type_suffix = IN_type_symbol; |
1270 function_type_suffix = IN_type_symbol; |
1271 break; |
1271 break; |
1272 |
1272 |
1285 case function_sint_to_ulint : |
1285 case function_sint_to_ulint : |
1286 { |
1286 { |
1287 symbol_c *last_type_symbol = NULL; |
1287 symbol_c *last_type_symbol = NULL; |
1288 |
1288 |
1289 { |
1289 { |
1290 identifier_c IN_param_name("IN"); |
1290 symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); |
1291 /* Get the value from a foo(<param_name> = <param_value>) style call */ |
1291 /* Get the value from a foo(<param_name> = <param_value>) style call */ |
1292 symbol_c *IN_param_value = &this->default_variable_name; |
1292 symbol_c *IN_param_value = &this->default_variable_name; |
1293 |
1293 |
1294 symbol_c *IN_type_symbol = param_data_type; |
1294 symbol_c *IN_type_symbol = param_data_type; |
1295 last_type_symbol = param_data_type; |
1295 last_type_symbol = param_data_type; |
1299 |
1299 |
1300 function_name = (symbol_c*)(new pragma_c("__move_")); |
1300 function_name = (symbol_c*)(new pragma_c("__move_")); |
1301 |
1301 |
1302 if (IN_type_symbol == NULL) |
1302 if (IN_type_symbol == NULL) |
1303 IN_type_symbol = last_type_symbol; |
1303 IN_type_symbol = last_type_symbol; |
1304 ADD_PARAM_LIST(&IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) |
1304 ADD_PARAM_LIST(IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) |
1305 symbol_c * return_type_symbol = &search_constant_type_c::ulint_type_name; |
1305 symbol_c * return_type_symbol = &search_constant_type_c::ulint_type_name; |
1306 function_type_prefix = return_type_symbol; |
1306 function_type_prefix = return_type_symbol; |
1307 function_type_suffix = IN_type_symbol; |
1307 function_type_suffix = IN_type_symbol; |
1308 break; |
1308 break; |
1309 |
1309 |
1322 case function_sint_to_bool : |
1322 case function_sint_to_bool : |
1323 { |
1323 { |
1324 symbol_c *last_type_symbol = NULL; |
1324 symbol_c *last_type_symbol = NULL; |
1325 |
1325 |
1326 { |
1326 { |
1327 identifier_c IN_param_name("IN"); |
1327 symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); |
1328 /* Get the value from a foo(<param_name> = <param_value>) style call */ |
1328 /* Get the value from a foo(<param_name> = <param_value>) style call */ |
1329 symbol_c *IN_param_value = &this->default_variable_name; |
1329 symbol_c *IN_param_value = &this->default_variable_name; |
1330 |
1330 |
1331 symbol_c *IN_type_symbol = param_data_type; |
1331 symbol_c *IN_type_symbol = param_data_type; |
1332 last_type_symbol = param_data_type; |
1332 last_type_symbol = param_data_type; |
1336 |
1336 |
1337 function_name = (symbol_c*)(new pragma_c("__move_")); |
1337 function_name = (symbol_c*)(new pragma_c("__move_")); |
1338 |
1338 |
1339 if (IN_type_symbol == NULL) |
1339 if (IN_type_symbol == NULL) |
1340 IN_type_symbol = last_type_symbol; |
1340 IN_type_symbol = last_type_symbol; |
1341 ADD_PARAM_LIST(&IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) |
1341 ADD_PARAM_LIST(IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) |
1342 symbol_c * return_type_symbol = &search_constant_type_c::bool_type_name; |
1342 symbol_c * return_type_symbol = &search_constant_type_c::bool_type_name; |
1343 function_type_prefix = return_type_symbol; |
1343 function_type_prefix = return_type_symbol; |
1344 function_type_suffix = IN_type_symbol; |
1344 function_type_suffix = IN_type_symbol; |
1345 break; |
1345 break; |
1346 |
1346 |
1359 case function_sint_to_time : |
1359 case function_sint_to_time : |
1360 { |
1360 { |
1361 symbol_c *last_type_symbol = NULL; |
1361 symbol_c *last_type_symbol = NULL; |
1362 |
1362 |
1363 { |
1363 { |
1364 identifier_c IN_param_name("IN"); |
1364 symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); |
1365 /* Get the value from a foo(<param_name> = <param_value>) style call */ |
1365 /* Get the value from a foo(<param_name> = <param_value>) style call */ |
1366 symbol_c *IN_param_value = &this->default_variable_name; |
1366 symbol_c *IN_param_value = &this->default_variable_name; |
1367 |
1367 |
1368 symbol_c *IN_type_symbol = param_data_type; |
1368 symbol_c *IN_type_symbol = param_data_type; |
1369 last_type_symbol = param_data_type; |
1369 last_type_symbol = param_data_type; |
1373 |
1373 |
1374 function_name = (symbol_c*)(new pragma_c("__int_to_time")); |
1374 function_name = (symbol_c*)(new pragma_c("__int_to_time")); |
1375 |
1375 |
1376 if (IN_type_symbol == NULL) |
1376 if (IN_type_symbol == NULL) |
1377 IN_type_symbol = last_type_symbol; |
1377 IN_type_symbol = last_type_symbol; |
1378 ADD_PARAM_LIST(&IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) |
1378 ADD_PARAM_LIST(IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) |
1379 symbol_c * return_type_symbol = &search_constant_type_c::time_type_name; |
1379 symbol_c * return_type_symbol = &search_constant_type_c::time_type_name; |
1380 function_type_prefix = return_type_symbol; |
1380 function_type_prefix = return_type_symbol; |
1381 break; |
1381 break; |
1382 |
1382 |
1383 } |
1383 } |
1395 case function_sint_to_int : |
1395 case function_sint_to_int : |
1396 { |
1396 { |
1397 symbol_c *last_type_symbol = NULL; |
1397 symbol_c *last_type_symbol = NULL; |
1398 |
1398 |
1399 { |
1399 { |
1400 identifier_c IN_param_name("IN"); |
1400 symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); |
1401 /* Get the value from a foo(<param_name> = <param_value>) style call */ |
1401 /* Get the value from a foo(<param_name> = <param_value>) style call */ |
1402 symbol_c *IN_param_value = &this->default_variable_name; |
1402 symbol_c *IN_param_value = &this->default_variable_name; |
1403 |
1403 |
1404 symbol_c *IN_type_symbol = param_data_type; |
1404 symbol_c *IN_type_symbol = param_data_type; |
1405 last_type_symbol = param_data_type; |
1405 last_type_symbol = param_data_type; |
1409 |
1409 |
1410 function_name = (symbol_c*)(new pragma_c("__move_")); |
1410 function_name = (symbol_c*)(new pragma_c("__move_")); |
1411 |
1411 |
1412 if (IN_type_symbol == NULL) |
1412 if (IN_type_symbol == NULL) |
1413 IN_type_symbol = last_type_symbol; |
1413 IN_type_symbol = last_type_symbol; |
1414 ADD_PARAM_LIST(&IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) |
1414 ADD_PARAM_LIST(IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) |
1415 symbol_c * return_type_symbol = &search_constant_type_c::int_type_name; |
1415 symbol_c * return_type_symbol = &search_constant_type_c::int_type_name; |
1416 function_type_prefix = return_type_symbol; |
1416 function_type_prefix = return_type_symbol; |
1417 function_type_suffix = IN_type_symbol; |
1417 function_type_suffix = IN_type_symbol; |
1418 break; |
1418 break; |
1419 |
1419 |
1432 case function_lint_to_real : |
1432 case function_lint_to_real : |
1433 { |
1433 { |
1434 symbol_c *last_type_symbol = NULL; |
1434 symbol_c *last_type_symbol = NULL; |
1435 |
1435 |
1436 { |
1436 { |
1437 identifier_c IN_param_name("IN"); |
1437 symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); |
1438 /* Get the value from a foo(<param_name> = <param_value>) style call */ |
1438 /* Get the value from a foo(<param_name> = <param_value>) style call */ |
1439 symbol_c *IN_param_value = &this->default_variable_name; |
1439 symbol_c *IN_param_value = &this->default_variable_name; |
1440 |
1440 |
1441 symbol_c *IN_type_symbol = param_data_type; |
1441 symbol_c *IN_type_symbol = param_data_type; |
1442 last_type_symbol = param_data_type; |
1442 last_type_symbol = param_data_type; |
1446 |
1446 |
1447 function_name = (symbol_c*)(new pragma_c("__move_")); |
1447 function_name = (symbol_c*)(new pragma_c("__move_")); |
1448 |
1448 |
1449 if (IN_type_symbol == NULL) |
1449 if (IN_type_symbol == NULL) |
1450 IN_type_symbol = last_type_symbol; |
1450 IN_type_symbol = last_type_symbol; |
1451 ADD_PARAM_LIST(&IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) |
1451 ADD_PARAM_LIST(IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) |
1452 symbol_c * return_type_symbol = &search_constant_type_c::real_type_name; |
1452 symbol_c * return_type_symbol = &search_constant_type_c::real_type_name; |
1453 function_type_prefix = return_type_symbol; |
1453 function_type_prefix = return_type_symbol; |
1454 function_type_suffix = IN_type_symbol; |
1454 function_type_suffix = IN_type_symbol; |
1455 break; |
1455 break; |
1456 |
1456 |
1469 case function_lint_to_sint : |
1469 case function_lint_to_sint : |
1470 { |
1470 { |
1471 symbol_c *last_type_symbol = NULL; |
1471 symbol_c *last_type_symbol = NULL; |
1472 |
1472 |
1473 { |
1473 { |
1474 identifier_c IN_param_name("IN"); |
1474 symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); |
1475 /* Get the value from a foo(<param_name> = <param_value>) style call */ |
1475 /* Get the value from a foo(<param_name> = <param_value>) style call */ |
1476 symbol_c *IN_param_value = &this->default_variable_name; |
1476 symbol_c *IN_param_value = &this->default_variable_name; |
1477 |
1477 |
1478 symbol_c *IN_type_symbol = param_data_type; |
1478 symbol_c *IN_type_symbol = param_data_type; |
1479 last_type_symbol = param_data_type; |
1479 last_type_symbol = param_data_type; |
1483 |
1483 |
1484 function_name = (symbol_c*)(new pragma_c("__move_")); |
1484 function_name = (symbol_c*)(new pragma_c("__move_")); |
1485 |
1485 |
1486 if (IN_type_symbol == NULL) |
1486 if (IN_type_symbol == NULL) |
1487 IN_type_symbol = last_type_symbol; |
1487 IN_type_symbol = last_type_symbol; |
1488 ADD_PARAM_LIST(&IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) |
1488 ADD_PARAM_LIST(IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) |
1489 symbol_c * return_type_symbol = &search_constant_type_c::sint_type_name; |
1489 symbol_c * return_type_symbol = &search_constant_type_c::sint_type_name; |
1490 function_type_prefix = return_type_symbol; |
1490 function_type_prefix = return_type_symbol; |
1491 function_type_suffix = IN_type_symbol; |
1491 function_type_suffix = IN_type_symbol; |
1492 break; |
1492 break; |
1493 |
1493 |
1506 case function_lint_to_dint : |
1506 case function_lint_to_dint : |
1507 { |
1507 { |
1508 symbol_c *last_type_symbol = NULL; |
1508 symbol_c *last_type_symbol = NULL; |
1509 |
1509 |
1510 { |
1510 { |
1511 identifier_c IN_param_name("IN"); |
1511 symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); |
1512 /* Get the value from a foo(<param_name> = <param_value>) style call */ |
1512 /* Get the value from a foo(<param_name> = <param_value>) style call */ |
1513 symbol_c *IN_param_value = &this->default_variable_name; |
1513 symbol_c *IN_param_value = &this->default_variable_name; |
1514 |
1514 |
1515 symbol_c *IN_type_symbol = param_data_type; |
1515 symbol_c *IN_type_symbol = param_data_type; |
1516 last_type_symbol = param_data_type; |
1516 last_type_symbol = param_data_type; |
1520 |
1520 |
1521 function_name = (symbol_c*)(new pragma_c("__move_")); |
1521 function_name = (symbol_c*)(new pragma_c("__move_")); |
1522 |
1522 |
1523 if (IN_type_symbol == NULL) |
1523 if (IN_type_symbol == NULL) |
1524 IN_type_symbol = last_type_symbol; |
1524 IN_type_symbol = last_type_symbol; |
1525 ADD_PARAM_LIST(&IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) |
1525 ADD_PARAM_LIST(IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) |
1526 symbol_c * return_type_symbol = &search_constant_type_c::dint_type_name; |
1526 symbol_c * return_type_symbol = &search_constant_type_c::dint_type_name; |
1527 function_type_prefix = return_type_symbol; |
1527 function_type_prefix = return_type_symbol; |
1528 function_type_suffix = IN_type_symbol; |
1528 function_type_suffix = IN_type_symbol; |
1529 break; |
1529 break; |
1530 |
1530 |
1543 case function_lint_to_date : |
1543 case function_lint_to_date : |
1544 { |
1544 { |
1545 symbol_c *last_type_symbol = NULL; |
1545 symbol_c *last_type_symbol = NULL; |
1546 |
1546 |
1547 { |
1547 { |
1548 identifier_c IN_param_name("IN"); |
1548 symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); |
1549 /* Get the value from a foo(<param_name> = <param_value>) style call */ |
1549 /* Get the value from a foo(<param_name> = <param_value>) style call */ |
1550 symbol_c *IN_param_value = &this->default_variable_name; |
1550 symbol_c *IN_param_value = &this->default_variable_name; |
1551 |
1551 |
1552 symbol_c *IN_type_symbol = param_data_type; |
1552 symbol_c *IN_type_symbol = param_data_type; |
1553 last_type_symbol = param_data_type; |
1553 last_type_symbol = param_data_type; |
1557 |
1557 |
1558 function_name = (symbol_c*)(new pragma_c("__int_to_time")); |
1558 function_name = (symbol_c*)(new pragma_c("__int_to_time")); |
1559 |
1559 |
1560 if (IN_type_symbol == NULL) |
1560 if (IN_type_symbol == NULL) |
1561 IN_type_symbol = last_type_symbol; |
1561 IN_type_symbol = last_type_symbol; |
1562 ADD_PARAM_LIST(&IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) |
1562 ADD_PARAM_LIST(IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) |
1563 symbol_c * return_type_symbol = &search_constant_type_c::date_type_name; |
1563 symbol_c * return_type_symbol = &search_constant_type_c::date_type_name; |
1564 function_type_prefix = return_type_symbol; |
1564 function_type_prefix = return_type_symbol; |
1565 break; |
1565 break; |
1566 |
1566 |
1567 } |
1567 } |
1579 case function_lint_to_dword : |
1579 case function_lint_to_dword : |
1580 { |
1580 { |
1581 symbol_c *last_type_symbol = NULL; |
1581 symbol_c *last_type_symbol = NULL; |
1582 |
1582 |
1583 { |
1583 { |
1584 identifier_c IN_param_name("IN"); |
1584 symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); |
1585 /* Get the value from a foo(<param_name> = <param_value>) style call */ |
1585 /* Get the value from a foo(<param_name> = <param_value>) style call */ |
1586 symbol_c *IN_param_value = &this->default_variable_name; |
1586 symbol_c *IN_param_value = &this->default_variable_name; |
1587 |
1587 |
1588 symbol_c *IN_type_symbol = param_data_type; |
1588 symbol_c *IN_type_symbol = param_data_type; |
1589 last_type_symbol = param_data_type; |
1589 last_type_symbol = param_data_type; |
1593 |
1593 |
1594 function_name = (symbol_c*)(new pragma_c("__move_")); |
1594 function_name = (symbol_c*)(new pragma_c("__move_")); |
1595 |
1595 |
1596 if (IN_type_symbol == NULL) |
1596 if (IN_type_symbol == NULL) |
1597 IN_type_symbol = last_type_symbol; |
1597 IN_type_symbol = last_type_symbol; |
1598 ADD_PARAM_LIST(&IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) |
1598 ADD_PARAM_LIST(IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) |
1599 symbol_c * return_type_symbol = &search_constant_type_c::dword_type_name; |
1599 symbol_c * return_type_symbol = &search_constant_type_c::dword_type_name; |
1600 function_type_prefix = return_type_symbol; |
1600 function_type_prefix = return_type_symbol; |
1601 function_type_suffix = IN_type_symbol; |
1601 function_type_suffix = IN_type_symbol; |
1602 break; |
1602 break; |
1603 |
1603 |
1616 case function_lint_to_dt : |
1616 case function_lint_to_dt : |
1617 { |
1617 { |
1618 symbol_c *last_type_symbol = NULL; |
1618 symbol_c *last_type_symbol = NULL; |
1619 |
1619 |
1620 { |
1620 { |
1621 identifier_c IN_param_name("IN"); |
1621 symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); |
1622 /* Get the value from a foo(<param_name> = <param_value>) style call */ |
1622 /* Get the value from a foo(<param_name> = <param_value>) style call */ |
1623 symbol_c *IN_param_value = &this->default_variable_name; |
1623 symbol_c *IN_param_value = &this->default_variable_name; |
1624 |
1624 |
1625 symbol_c *IN_type_symbol = param_data_type; |
1625 symbol_c *IN_type_symbol = param_data_type; |
1626 last_type_symbol = param_data_type; |
1626 last_type_symbol = param_data_type; |
1630 |
1630 |
1631 function_name = (symbol_c*)(new pragma_c("__int_to_time")); |
1631 function_name = (symbol_c*)(new pragma_c("__int_to_time")); |
1632 |
1632 |
1633 if (IN_type_symbol == NULL) |
1633 if (IN_type_symbol == NULL) |
1634 IN_type_symbol = last_type_symbol; |
1634 IN_type_symbol = last_type_symbol; |
1635 ADD_PARAM_LIST(&IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) |
1635 ADD_PARAM_LIST(IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) |
1636 symbol_c * return_type_symbol = &search_constant_type_c::dt_type_name; |
1636 symbol_c * return_type_symbol = &search_constant_type_c::dt_type_name; |
1637 function_type_prefix = return_type_symbol; |
1637 function_type_prefix = return_type_symbol; |
1638 break; |
1638 break; |
1639 |
1639 |
1640 } |
1640 } |
1652 case function_lint_to_tod : |
1652 case function_lint_to_tod : |
1653 { |
1653 { |
1654 symbol_c *last_type_symbol = NULL; |
1654 symbol_c *last_type_symbol = NULL; |
1655 |
1655 |
1656 { |
1656 { |
1657 identifier_c IN_param_name("IN"); |
1657 symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); |
1658 /* Get the value from a foo(<param_name> = <param_value>) style call */ |
1658 /* Get the value from a foo(<param_name> = <param_value>) style call */ |
1659 symbol_c *IN_param_value = &this->default_variable_name; |
1659 symbol_c *IN_param_value = &this->default_variable_name; |
1660 |
1660 |
1661 symbol_c *IN_type_symbol = param_data_type; |
1661 symbol_c *IN_type_symbol = param_data_type; |
1662 last_type_symbol = param_data_type; |
1662 last_type_symbol = param_data_type; |
1666 |
1666 |
1667 function_name = (symbol_c*)(new pragma_c("__int_to_time")); |
1667 function_name = (symbol_c*)(new pragma_c("__int_to_time")); |
1668 |
1668 |
1669 if (IN_type_symbol == NULL) |
1669 if (IN_type_symbol == NULL) |
1670 IN_type_symbol = last_type_symbol; |
1670 IN_type_symbol = last_type_symbol; |
1671 ADD_PARAM_LIST(&IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) |
1671 ADD_PARAM_LIST(IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) |
1672 symbol_c * return_type_symbol = &search_constant_type_c::tod_type_name; |
1672 symbol_c * return_type_symbol = &search_constant_type_c::tod_type_name; |
1673 function_type_prefix = return_type_symbol; |
1673 function_type_prefix = return_type_symbol; |
1674 break; |
1674 break; |
1675 |
1675 |
1676 } |
1676 } |
1688 case function_lint_to_udint : |
1688 case function_lint_to_udint : |
1689 { |
1689 { |
1690 symbol_c *last_type_symbol = NULL; |
1690 symbol_c *last_type_symbol = NULL; |
1691 |
1691 |
1692 { |
1692 { |
1693 identifier_c IN_param_name("IN"); |
1693 symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); |
1694 /* Get the value from a foo(<param_name> = <param_value>) style call */ |
1694 /* Get the value from a foo(<param_name> = <param_value>) style call */ |
1695 symbol_c *IN_param_value = &this->default_variable_name; |
1695 symbol_c *IN_param_value = &this->default_variable_name; |
1696 |
1696 |
1697 symbol_c *IN_type_symbol = param_data_type; |
1697 symbol_c *IN_type_symbol = param_data_type; |
1698 last_type_symbol = param_data_type; |
1698 last_type_symbol = param_data_type; |
1702 |
1702 |
1703 function_name = (symbol_c*)(new pragma_c("__move_")); |
1703 function_name = (symbol_c*)(new pragma_c("__move_")); |
1704 |
1704 |
1705 if (IN_type_symbol == NULL) |
1705 if (IN_type_symbol == NULL) |
1706 IN_type_symbol = last_type_symbol; |
1706 IN_type_symbol = last_type_symbol; |
1707 ADD_PARAM_LIST(&IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) |
1707 ADD_PARAM_LIST(IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) |
1708 symbol_c * return_type_symbol = &search_constant_type_c::udint_type_name; |
1708 symbol_c * return_type_symbol = &search_constant_type_c::udint_type_name; |
1709 function_type_prefix = return_type_symbol; |
1709 function_type_prefix = return_type_symbol; |
1710 function_type_suffix = IN_type_symbol; |
1710 function_type_suffix = IN_type_symbol; |
1711 break; |
1711 break; |
1712 |
1712 |
1725 case function_lint_to_word : |
1725 case function_lint_to_word : |
1726 { |
1726 { |
1727 symbol_c *last_type_symbol = NULL; |
1727 symbol_c *last_type_symbol = NULL; |
1728 |
1728 |
1729 { |
1729 { |
1730 identifier_c IN_param_name("IN"); |
1730 symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); |
1731 /* Get the value from a foo(<param_name> = <param_value>) style call */ |
1731 /* Get the value from a foo(<param_name> = <param_value>) style call */ |
1732 symbol_c *IN_param_value = &this->default_variable_name; |
1732 symbol_c *IN_param_value = &this->default_variable_name; |
1733 |
1733 |
1734 symbol_c *IN_type_symbol = param_data_type; |
1734 symbol_c *IN_type_symbol = param_data_type; |
1735 last_type_symbol = param_data_type; |
1735 last_type_symbol = param_data_type; |
1739 |
1739 |
1740 function_name = (symbol_c*)(new pragma_c("__move_")); |
1740 function_name = (symbol_c*)(new pragma_c("__move_")); |
1741 |
1741 |
1742 if (IN_type_symbol == NULL) |
1742 if (IN_type_symbol == NULL) |
1743 IN_type_symbol = last_type_symbol; |
1743 IN_type_symbol = last_type_symbol; |
1744 ADD_PARAM_LIST(&IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) |
1744 ADD_PARAM_LIST(IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) |
1745 symbol_c * return_type_symbol = &search_constant_type_c::word_type_name; |
1745 symbol_c * return_type_symbol = &search_constant_type_c::word_type_name; |
1746 function_type_prefix = return_type_symbol; |
1746 function_type_prefix = return_type_symbol; |
1747 function_type_suffix = IN_type_symbol; |
1747 function_type_suffix = IN_type_symbol; |
1748 break; |
1748 break; |
1749 |
1749 |
1762 case function_lint_to_string : |
1762 case function_lint_to_string : |
1763 { |
1763 { |
1764 symbol_c *last_type_symbol = NULL; |
1764 symbol_c *last_type_symbol = NULL; |
1765 |
1765 |
1766 { |
1766 { |
1767 identifier_c IN_param_name("IN"); |
1767 symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); |
1768 /* Get the value from a foo(<param_name> = <param_value>) style call */ |
1768 /* Get the value from a foo(<param_name> = <param_value>) style call */ |
1769 symbol_c *IN_param_value = &this->default_variable_name; |
1769 symbol_c *IN_param_value = &this->default_variable_name; |
1770 |
1770 |
1771 symbol_c *IN_type_symbol = param_data_type; |
1771 symbol_c *IN_type_symbol = param_data_type; |
1772 last_type_symbol = param_data_type; |
1772 last_type_symbol = param_data_type; |
1776 |
1776 |
1777 function_name = (symbol_c*)(new pragma_c("__sint_to_string")); |
1777 function_name = (symbol_c*)(new pragma_c("__sint_to_string")); |
1778 |
1778 |
1779 if (IN_type_symbol == NULL) |
1779 if (IN_type_symbol == NULL) |
1780 IN_type_symbol = last_type_symbol; |
1780 IN_type_symbol = last_type_symbol; |
1781 ADD_PARAM_LIST(&IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) |
1781 ADD_PARAM_LIST(IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) |
1782 symbol_c * return_type_symbol = &search_constant_type_c::string_type_name; |
1782 symbol_c * return_type_symbol = &search_constant_type_c::string_type_name; |
1783 function_type_prefix = return_type_symbol; |
1783 function_type_prefix = return_type_symbol; |
1784 break; |
1784 break; |
1785 |
1785 |
1786 } |
1786 } |
1798 case function_lint_to_lword : |
1798 case function_lint_to_lword : |
1799 { |
1799 { |
1800 symbol_c *last_type_symbol = NULL; |
1800 symbol_c *last_type_symbol = NULL; |
1801 |
1801 |
1802 { |
1802 { |
1803 identifier_c IN_param_name("IN"); |
1803 symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); |
1804 /* Get the value from a foo(<param_name> = <param_value>) style call */ |
1804 /* Get the value from a foo(<param_name> = <param_value>) style call */ |
1805 symbol_c *IN_param_value = &this->default_variable_name; |
1805 symbol_c *IN_param_value = &this->default_variable_name; |
1806 |
1806 |
1807 symbol_c *IN_type_symbol = param_data_type; |
1807 symbol_c *IN_type_symbol = param_data_type; |
1808 last_type_symbol = param_data_type; |
1808 last_type_symbol = param_data_type; |
1812 |
1812 |
1813 function_name = (symbol_c*)(new pragma_c("__move_")); |
1813 function_name = (symbol_c*)(new pragma_c("__move_")); |
1814 |
1814 |
1815 if (IN_type_symbol == NULL) |
1815 if (IN_type_symbol == NULL) |
1816 IN_type_symbol = last_type_symbol; |
1816 IN_type_symbol = last_type_symbol; |
1817 ADD_PARAM_LIST(&IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) |
1817 ADD_PARAM_LIST(IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) |
1818 symbol_c * return_type_symbol = &search_constant_type_c::lword_type_name; |
1818 symbol_c * return_type_symbol = &search_constant_type_c::lword_type_name; |
1819 function_type_prefix = return_type_symbol; |
1819 function_type_prefix = return_type_symbol; |
1820 function_type_suffix = IN_type_symbol; |
1820 function_type_suffix = IN_type_symbol; |
1821 break; |
1821 break; |
1822 |
1822 |
1835 case function_lint_to_uint : |
1835 case function_lint_to_uint : |
1836 { |
1836 { |
1837 symbol_c *last_type_symbol = NULL; |
1837 symbol_c *last_type_symbol = NULL; |
1838 |
1838 |
1839 { |
1839 { |
1840 identifier_c IN_param_name("IN"); |
1840 symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); |
1841 /* Get the value from a foo(<param_name> = <param_value>) style call */ |
1841 /* Get the value from a foo(<param_name> = <param_value>) style call */ |
1842 symbol_c *IN_param_value = &this->default_variable_name; |
1842 symbol_c *IN_param_value = &this->default_variable_name; |
1843 |
1843 |
1844 symbol_c *IN_type_symbol = param_data_type; |
1844 symbol_c *IN_type_symbol = param_data_type; |
1845 last_type_symbol = param_data_type; |
1845 last_type_symbol = param_data_type; |
1849 |
1849 |
1850 function_name = (symbol_c*)(new pragma_c("__move_")); |
1850 function_name = (symbol_c*)(new pragma_c("__move_")); |
1851 |
1851 |
1852 if (IN_type_symbol == NULL) |
1852 if (IN_type_symbol == NULL) |
1853 IN_type_symbol = last_type_symbol; |
1853 IN_type_symbol = last_type_symbol; |
1854 ADD_PARAM_LIST(&IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) |
1854 ADD_PARAM_LIST(IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) |
1855 symbol_c * return_type_symbol = &search_constant_type_c::uint_type_name; |
1855 symbol_c * return_type_symbol = &search_constant_type_c::uint_type_name; |
1856 function_type_prefix = return_type_symbol; |
1856 function_type_prefix = return_type_symbol; |
1857 function_type_suffix = IN_type_symbol; |
1857 function_type_suffix = IN_type_symbol; |
1858 break; |
1858 break; |
1859 |
1859 |
1872 case function_lint_to_lreal : |
1872 case function_lint_to_lreal : |
1873 { |
1873 { |
1874 symbol_c *last_type_symbol = NULL; |
1874 symbol_c *last_type_symbol = NULL; |
1875 |
1875 |
1876 { |
1876 { |
1877 identifier_c IN_param_name("IN"); |
1877 symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); |
1878 /* Get the value from a foo(<param_name> = <param_value>) style call */ |
1878 /* Get the value from a foo(<param_name> = <param_value>) style call */ |
1879 symbol_c *IN_param_value = &this->default_variable_name; |
1879 symbol_c *IN_param_value = &this->default_variable_name; |
1880 |
1880 |
1881 symbol_c *IN_type_symbol = param_data_type; |
1881 symbol_c *IN_type_symbol = param_data_type; |
1882 last_type_symbol = param_data_type; |
1882 last_type_symbol = param_data_type; |
1886 |
1886 |
1887 function_name = (symbol_c*)(new pragma_c("__move_")); |
1887 function_name = (symbol_c*)(new pragma_c("__move_")); |
1888 |
1888 |
1889 if (IN_type_symbol == NULL) |
1889 if (IN_type_symbol == NULL) |
1890 IN_type_symbol = last_type_symbol; |
1890 IN_type_symbol = last_type_symbol; |
1891 ADD_PARAM_LIST(&IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) |
1891 ADD_PARAM_LIST(IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) |
1892 symbol_c * return_type_symbol = &search_constant_type_c::lreal_type_name; |
1892 symbol_c * return_type_symbol = &search_constant_type_c::lreal_type_name; |
1893 function_type_prefix = return_type_symbol; |
1893 function_type_prefix = return_type_symbol; |
1894 function_type_suffix = IN_type_symbol; |
1894 function_type_suffix = IN_type_symbol; |
1895 break; |
1895 break; |
1896 |
1896 |
1909 case function_lint_to_byte : |
1909 case function_lint_to_byte : |
1910 { |
1910 { |
1911 symbol_c *last_type_symbol = NULL; |
1911 symbol_c *last_type_symbol = NULL; |
1912 |
1912 |
1913 { |
1913 { |
1914 identifier_c IN_param_name("IN"); |
1914 symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); |
1915 /* Get the value from a foo(<param_name> = <param_value>) style call */ |
1915 /* Get the value from a foo(<param_name> = <param_value>) style call */ |
1916 symbol_c *IN_param_value = &this->default_variable_name; |
1916 symbol_c *IN_param_value = &this->default_variable_name; |
1917 |
1917 |
1918 symbol_c *IN_type_symbol = param_data_type; |
1918 symbol_c *IN_type_symbol = param_data_type; |
1919 last_type_symbol = param_data_type; |
1919 last_type_symbol = param_data_type; |
1923 |
1923 |
1924 function_name = (symbol_c*)(new pragma_c("__move_")); |
1924 function_name = (symbol_c*)(new pragma_c("__move_")); |
1925 |
1925 |
1926 if (IN_type_symbol == NULL) |
1926 if (IN_type_symbol == NULL) |
1927 IN_type_symbol = last_type_symbol; |
1927 IN_type_symbol = last_type_symbol; |
1928 ADD_PARAM_LIST(&IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) |
1928 ADD_PARAM_LIST(IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) |
1929 symbol_c * return_type_symbol = &search_constant_type_c::byte_type_name; |
1929 symbol_c * return_type_symbol = &search_constant_type_c::byte_type_name; |
1930 function_type_prefix = return_type_symbol; |
1930 function_type_prefix = return_type_symbol; |
1931 function_type_suffix = IN_type_symbol; |
1931 function_type_suffix = IN_type_symbol; |
1932 break; |
1932 break; |
1933 |
1933 |
1946 case function_lint_to_usint : |
1946 case function_lint_to_usint : |
1947 { |
1947 { |
1948 symbol_c *last_type_symbol = NULL; |
1948 symbol_c *last_type_symbol = NULL; |
1949 |
1949 |
1950 { |
1950 { |
1951 identifier_c IN_param_name("IN"); |
1951 symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); |
1952 /* Get the value from a foo(<param_name> = <param_value>) style call */ |
1952 /* Get the value from a foo(<param_name> = <param_value>) style call */ |
1953 symbol_c *IN_param_value = &this->default_variable_name; |
1953 symbol_c *IN_param_value = &this->default_variable_name; |
1954 |
1954 |
1955 symbol_c *IN_type_symbol = param_data_type; |
1955 symbol_c *IN_type_symbol = param_data_type; |
1956 last_type_symbol = param_data_type; |
1956 last_type_symbol = param_data_type; |
1960 |
1960 |
1961 function_name = (symbol_c*)(new pragma_c("__move_")); |
1961 function_name = (symbol_c*)(new pragma_c("__move_")); |
1962 |
1962 |
1963 if (IN_type_symbol == NULL) |
1963 if (IN_type_symbol == NULL) |
1964 IN_type_symbol = last_type_symbol; |
1964 IN_type_symbol = last_type_symbol; |
1965 ADD_PARAM_LIST(&IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) |
1965 ADD_PARAM_LIST(IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) |
1966 symbol_c * return_type_symbol = &search_constant_type_c::usint_type_name; |
1966 symbol_c * return_type_symbol = &search_constant_type_c::usint_type_name; |
1967 function_type_prefix = return_type_symbol; |
1967 function_type_prefix = return_type_symbol; |
1968 function_type_suffix = IN_type_symbol; |
1968 function_type_suffix = IN_type_symbol; |
1969 break; |
1969 break; |
1970 |
1970 |
1983 case function_lint_to_ulint : |
1983 case function_lint_to_ulint : |
1984 { |
1984 { |
1985 symbol_c *last_type_symbol = NULL; |
1985 symbol_c *last_type_symbol = NULL; |
1986 |
1986 |
1987 { |
1987 { |
1988 identifier_c IN_param_name("IN"); |
1988 symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); |
1989 /* Get the value from a foo(<param_name> = <param_value>) style call */ |
1989 /* Get the value from a foo(<param_name> = <param_value>) style call */ |
1990 symbol_c *IN_param_value = &this->default_variable_name; |
1990 symbol_c *IN_param_value = &this->default_variable_name; |
1991 |
1991 |
1992 symbol_c *IN_type_symbol = param_data_type; |
1992 symbol_c *IN_type_symbol = param_data_type; |
1993 last_type_symbol = param_data_type; |
1993 last_type_symbol = param_data_type; |
1997 |
1997 |
1998 function_name = (symbol_c*)(new pragma_c("__move_")); |
1998 function_name = (symbol_c*)(new pragma_c("__move_")); |
1999 |
1999 |
2000 if (IN_type_symbol == NULL) |
2000 if (IN_type_symbol == NULL) |
2001 IN_type_symbol = last_type_symbol; |
2001 IN_type_symbol = last_type_symbol; |
2002 ADD_PARAM_LIST(&IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) |
2002 ADD_PARAM_LIST(IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) |
2003 symbol_c * return_type_symbol = &search_constant_type_c::ulint_type_name; |
2003 symbol_c * return_type_symbol = &search_constant_type_c::ulint_type_name; |
2004 function_type_prefix = return_type_symbol; |
2004 function_type_prefix = return_type_symbol; |
2005 function_type_suffix = IN_type_symbol; |
2005 function_type_suffix = IN_type_symbol; |
2006 break; |
2006 break; |
2007 |
2007 |
2020 case function_lint_to_bool : |
2020 case function_lint_to_bool : |
2021 { |
2021 { |
2022 symbol_c *last_type_symbol = NULL; |
2022 symbol_c *last_type_symbol = NULL; |
2023 |
2023 |
2024 { |
2024 { |
2025 identifier_c IN_param_name("IN"); |
2025 symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); |
2026 /* Get the value from a foo(<param_name> = <param_value>) style call */ |
2026 /* Get the value from a foo(<param_name> = <param_value>) style call */ |
2027 symbol_c *IN_param_value = &this->default_variable_name; |
2027 symbol_c *IN_param_value = &this->default_variable_name; |
2028 |
2028 |
2029 symbol_c *IN_type_symbol = param_data_type; |
2029 symbol_c *IN_type_symbol = param_data_type; |
2030 last_type_symbol = param_data_type; |
2030 last_type_symbol = param_data_type; |
2034 |
2034 |
2035 function_name = (symbol_c*)(new pragma_c("__move_")); |
2035 function_name = (symbol_c*)(new pragma_c("__move_")); |
2036 |
2036 |
2037 if (IN_type_symbol == NULL) |
2037 if (IN_type_symbol == NULL) |
2038 IN_type_symbol = last_type_symbol; |
2038 IN_type_symbol = last_type_symbol; |
2039 ADD_PARAM_LIST(&IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) |
2039 ADD_PARAM_LIST(IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) |
2040 symbol_c * return_type_symbol = &search_constant_type_c::bool_type_name; |
2040 symbol_c * return_type_symbol = &search_constant_type_c::bool_type_name; |
2041 function_type_prefix = return_type_symbol; |
2041 function_type_prefix = return_type_symbol; |
2042 function_type_suffix = IN_type_symbol; |
2042 function_type_suffix = IN_type_symbol; |
2043 break; |
2043 break; |
2044 |
2044 |
2057 case function_lint_to_time : |
2057 case function_lint_to_time : |
2058 { |
2058 { |
2059 symbol_c *last_type_symbol = NULL; |
2059 symbol_c *last_type_symbol = NULL; |
2060 |
2060 |
2061 { |
2061 { |
2062 identifier_c IN_param_name("IN"); |
2062 symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); |
2063 /* Get the value from a foo(<param_name> = <param_value>) style call */ |
2063 /* Get the value from a foo(<param_name> = <param_value>) style call */ |
2064 symbol_c *IN_param_value = &this->default_variable_name; |
2064 symbol_c *IN_param_value = &this->default_variable_name; |
2065 |
2065 |
2066 symbol_c *IN_type_symbol = param_data_type; |
2066 symbol_c *IN_type_symbol = param_data_type; |
2067 last_type_symbol = param_data_type; |
2067 last_type_symbol = param_data_type; |
2071 |
2071 |
2072 function_name = (symbol_c*)(new pragma_c("__int_to_time")); |
2072 function_name = (symbol_c*)(new pragma_c("__int_to_time")); |
2073 |
2073 |
2074 if (IN_type_symbol == NULL) |
2074 if (IN_type_symbol == NULL) |
2075 IN_type_symbol = last_type_symbol; |
2075 IN_type_symbol = last_type_symbol; |
2076 ADD_PARAM_LIST(&IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) |
2076 ADD_PARAM_LIST(IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) |
2077 symbol_c * return_type_symbol = &search_constant_type_c::time_type_name; |
2077 symbol_c * return_type_symbol = &search_constant_type_c::time_type_name; |
2078 function_type_prefix = return_type_symbol; |
2078 function_type_prefix = return_type_symbol; |
2079 break; |
2079 break; |
2080 |
2080 |
2081 } |
2081 } |
2093 case function_lint_to_int : |
2093 case function_lint_to_int : |
2094 { |
2094 { |
2095 symbol_c *last_type_symbol = NULL; |
2095 symbol_c *last_type_symbol = NULL; |
2096 |
2096 |
2097 { |
2097 { |
2098 identifier_c IN_param_name("IN"); |
2098 symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); |
2099 /* Get the value from a foo(<param_name> = <param_value>) style call */ |
2099 /* Get the value from a foo(<param_name> = <param_value>) style call */ |
2100 symbol_c *IN_param_value = &this->default_variable_name; |
2100 symbol_c *IN_param_value = &this->default_variable_name; |
2101 |
2101 |
2102 symbol_c *IN_type_symbol = param_data_type; |
2102 symbol_c *IN_type_symbol = param_data_type; |
2103 last_type_symbol = param_data_type; |
2103 last_type_symbol = param_data_type; |
2107 |
2107 |
2108 function_name = (symbol_c*)(new pragma_c("__move_")); |
2108 function_name = (symbol_c*)(new pragma_c("__move_")); |
2109 |
2109 |
2110 if (IN_type_symbol == NULL) |
2110 if (IN_type_symbol == NULL) |
2111 IN_type_symbol = last_type_symbol; |
2111 IN_type_symbol = last_type_symbol; |
2112 ADD_PARAM_LIST(&IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) |
2112 ADD_PARAM_LIST(IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) |
2113 symbol_c * return_type_symbol = &search_constant_type_c::int_type_name; |
2113 symbol_c * return_type_symbol = &search_constant_type_c::int_type_name; |
2114 function_type_prefix = return_type_symbol; |
2114 function_type_prefix = return_type_symbol; |
2115 function_type_suffix = IN_type_symbol; |
2115 function_type_suffix = IN_type_symbol; |
2116 break; |
2116 break; |
2117 |
2117 |
2130 case function_dint_to_real : |
2130 case function_dint_to_real : |
2131 { |
2131 { |
2132 symbol_c *last_type_symbol = NULL; |
2132 symbol_c *last_type_symbol = NULL; |
2133 |
2133 |
2134 { |
2134 { |
2135 identifier_c IN_param_name("IN"); |
2135 symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); |
2136 /* Get the value from a foo(<param_name> = <param_value>) style call */ |
2136 /* Get the value from a foo(<param_name> = <param_value>) style call */ |
2137 symbol_c *IN_param_value = &this->default_variable_name; |
2137 symbol_c *IN_param_value = &this->default_variable_name; |
2138 |
2138 |
2139 symbol_c *IN_type_symbol = param_data_type; |
2139 symbol_c *IN_type_symbol = param_data_type; |
2140 last_type_symbol = param_data_type; |
2140 last_type_symbol = param_data_type; |
2144 |
2144 |
2145 function_name = (symbol_c*)(new pragma_c("__move_")); |
2145 function_name = (symbol_c*)(new pragma_c("__move_")); |
2146 |
2146 |
2147 if (IN_type_symbol == NULL) |
2147 if (IN_type_symbol == NULL) |
2148 IN_type_symbol = last_type_symbol; |
2148 IN_type_symbol = last_type_symbol; |
2149 ADD_PARAM_LIST(&IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) |
2149 ADD_PARAM_LIST(IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) |
2150 symbol_c * return_type_symbol = &search_constant_type_c::real_type_name; |
2150 symbol_c * return_type_symbol = &search_constant_type_c::real_type_name; |
2151 function_type_prefix = return_type_symbol; |
2151 function_type_prefix = return_type_symbol; |
2152 function_type_suffix = IN_type_symbol; |
2152 function_type_suffix = IN_type_symbol; |
2153 break; |
2153 break; |
2154 |
2154 |
2167 case function_dint_to_sint : |
2167 case function_dint_to_sint : |
2168 { |
2168 { |
2169 symbol_c *last_type_symbol = NULL; |
2169 symbol_c *last_type_symbol = NULL; |
2170 |
2170 |
2171 { |
2171 { |
2172 identifier_c IN_param_name("IN"); |
2172 symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); |
2173 /* Get the value from a foo(<param_name> = <param_value>) style call */ |
2173 /* Get the value from a foo(<param_name> = <param_value>) style call */ |
2174 symbol_c *IN_param_value = &this->default_variable_name; |
2174 symbol_c *IN_param_value = &this->default_variable_name; |
2175 |
2175 |
2176 symbol_c *IN_type_symbol = param_data_type; |
2176 symbol_c *IN_type_symbol = param_data_type; |
2177 last_type_symbol = param_data_type; |
2177 last_type_symbol = param_data_type; |
2181 |
2181 |
2182 function_name = (symbol_c*)(new pragma_c("__move_")); |
2182 function_name = (symbol_c*)(new pragma_c("__move_")); |
2183 |
2183 |
2184 if (IN_type_symbol == NULL) |
2184 if (IN_type_symbol == NULL) |
2185 IN_type_symbol = last_type_symbol; |
2185 IN_type_symbol = last_type_symbol; |
2186 ADD_PARAM_LIST(&IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) |
2186 ADD_PARAM_LIST(IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) |
2187 symbol_c * return_type_symbol = &search_constant_type_c::sint_type_name; |
2187 symbol_c * return_type_symbol = &search_constant_type_c::sint_type_name; |
2188 function_type_prefix = return_type_symbol; |
2188 function_type_prefix = return_type_symbol; |
2189 function_type_suffix = IN_type_symbol; |
2189 function_type_suffix = IN_type_symbol; |
2190 break; |
2190 break; |
2191 |
2191 |
2204 case function_dint_to_lint : |
2204 case function_dint_to_lint : |
2205 { |
2205 { |
2206 symbol_c *last_type_symbol = NULL; |
2206 symbol_c *last_type_symbol = NULL; |
2207 |
2207 |
2208 { |
2208 { |
2209 identifier_c IN_param_name("IN"); |
2209 symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); |
2210 /* Get the value from a foo(<param_name> = <param_value>) style call */ |
2210 /* Get the value from a foo(<param_name> = <param_value>) style call */ |
2211 symbol_c *IN_param_value = &this->default_variable_name; |
2211 symbol_c *IN_param_value = &this->default_variable_name; |
2212 |
2212 |
2213 symbol_c *IN_type_symbol = param_data_type; |
2213 symbol_c *IN_type_symbol = param_data_type; |
2214 last_type_symbol = param_data_type; |
2214 last_type_symbol = param_data_type; |
2218 |
2218 |
2219 function_name = (symbol_c*)(new pragma_c("__move_")); |
2219 function_name = (symbol_c*)(new pragma_c("__move_")); |
2220 |
2220 |
2221 if (IN_type_symbol == NULL) |
2221 if (IN_type_symbol == NULL) |
2222 IN_type_symbol = last_type_symbol; |
2222 IN_type_symbol = last_type_symbol; |
2223 ADD_PARAM_LIST(&IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) |
2223 ADD_PARAM_LIST(IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) |
2224 symbol_c * return_type_symbol = &search_constant_type_c::lint_type_name; |
2224 symbol_c * return_type_symbol = &search_constant_type_c::lint_type_name; |
2225 function_type_prefix = return_type_symbol; |
2225 function_type_prefix = return_type_symbol; |
2226 function_type_suffix = IN_type_symbol; |
2226 function_type_suffix = IN_type_symbol; |
2227 break; |
2227 break; |
2228 |
2228 |
2241 case function_dint_to_date : |
2241 case function_dint_to_date : |
2242 { |
2242 { |
2243 symbol_c *last_type_symbol = NULL; |
2243 symbol_c *last_type_symbol = NULL; |
2244 |
2244 |
2245 { |
2245 { |
2246 identifier_c IN_param_name("IN"); |
2246 symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); |
2247 /* Get the value from a foo(<param_name> = <param_value>) style call */ |
2247 /* Get the value from a foo(<param_name> = <param_value>) style call */ |
2248 symbol_c *IN_param_value = &this->default_variable_name; |
2248 symbol_c *IN_param_value = &this->default_variable_name; |
2249 |
2249 |
2250 symbol_c *IN_type_symbol = param_data_type; |
2250 symbol_c *IN_type_symbol = param_data_type; |
2251 last_type_symbol = param_data_type; |
2251 last_type_symbol = param_data_type; |
2255 |
2255 |
2256 function_name = (symbol_c*)(new pragma_c("__int_to_time")); |
2256 function_name = (symbol_c*)(new pragma_c("__int_to_time")); |
2257 |
2257 |
2258 if (IN_type_symbol == NULL) |
2258 if (IN_type_symbol == NULL) |
2259 IN_type_symbol = last_type_symbol; |
2259 IN_type_symbol = last_type_symbol; |
2260 ADD_PARAM_LIST(&IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) |
2260 ADD_PARAM_LIST(IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) |
2261 symbol_c * return_type_symbol = &search_constant_type_c::date_type_name; |
2261 symbol_c * return_type_symbol = &search_constant_type_c::date_type_name; |
2262 function_type_prefix = return_type_symbol; |
2262 function_type_prefix = return_type_symbol; |
2263 break; |
2263 break; |
2264 |
2264 |
2265 } |
2265 } |
2277 case function_dint_to_dword : |
2277 case function_dint_to_dword : |
2278 { |
2278 { |
2279 symbol_c *last_type_symbol = NULL; |
2279 symbol_c *last_type_symbol = NULL; |
2280 |
2280 |
2281 { |
2281 { |
2282 identifier_c IN_param_name("IN"); |
2282 symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); |
2283 /* Get the value from a foo(<param_name> = <param_value>) style call */ |
2283 /* Get the value from a foo(<param_name> = <param_value>) style call */ |
2284 symbol_c *IN_param_value = &this->default_variable_name; |
2284 symbol_c *IN_param_value = &this->default_variable_name; |
2285 |
2285 |
2286 symbol_c *IN_type_symbol = param_data_type; |
2286 symbol_c *IN_type_symbol = param_data_type; |
2287 last_type_symbol = param_data_type; |
2287 last_type_symbol = param_data_type; |
2291 |
2291 |
2292 function_name = (symbol_c*)(new pragma_c("__move_")); |
2292 function_name = (symbol_c*)(new pragma_c("__move_")); |
2293 |
2293 |
2294 if (IN_type_symbol == NULL) |
2294 if (IN_type_symbol == NULL) |
2295 IN_type_symbol = last_type_symbol; |
2295 IN_type_symbol = last_type_symbol; |
2296 ADD_PARAM_LIST(&IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) |
2296 ADD_PARAM_LIST(IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) |
2297 symbol_c * return_type_symbol = &search_constant_type_c::dword_type_name; |
2297 symbol_c * return_type_symbol = &search_constant_type_c::dword_type_name; |
2298 function_type_prefix = return_type_symbol; |
2298 function_type_prefix = return_type_symbol; |
2299 function_type_suffix = IN_type_symbol; |
2299 function_type_suffix = IN_type_symbol; |
2300 break; |
2300 break; |
2301 |
2301 |
2314 case function_dint_to_dt : |
2314 case function_dint_to_dt : |
2315 { |
2315 { |
2316 symbol_c *last_type_symbol = NULL; |
2316 symbol_c *last_type_symbol = NULL; |
2317 |
2317 |
2318 { |
2318 { |
2319 identifier_c IN_param_name("IN"); |
2319 symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); |
2320 /* Get the value from a foo(<param_name> = <param_value>) style call */ |
2320 /* Get the value from a foo(<param_name> = <param_value>) style call */ |
2321 symbol_c *IN_param_value = &this->default_variable_name; |
2321 symbol_c *IN_param_value = &this->default_variable_name; |
2322 |
2322 |
2323 symbol_c *IN_type_symbol = param_data_type; |
2323 symbol_c *IN_type_symbol = param_data_type; |
2324 last_type_symbol = param_data_type; |
2324 last_type_symbol = param_data_type; |
2328 |
2328 |
2329 function_name = (symbol_c*)(new pragma_c("__int_to_time")); |
2329 function_name = (symbol_c*)(new pragma_c("__int_to_time")); |
2330 |
2330 |
2331 if (IN_type_symbol == NULL) |
2331 if (IN_type_symbol == NULL) |
2332 IN_type_symbol = last_type_symbol; |
2332 IN_type_symbol = last_type_symbol; |
2333 ADD_PARAM_LIST(&IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) |
2333 ADD_PARAM_LIST(IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) |
2334 symbol_c * return_type_symbol = &search_constant_type_c::dt_type_name; |
2334 symbol_c * return_type_symbol = &search_constant_type_c::dt_type_name; |
2335 function_type_prefix = return_type_symbol; |
2335 function_type_prefix = return_type_symbol; |
2336 break; |
2336 break; |
2337 |
2337 |
2338 } |
2338 } |
2350 case function_dint_to_tod : |
2350 case function_dint_to_tod : |
2351 { |
2351 { |
2352 symbol_c *last_type_symbol = NULL; |
2352 symbol_c *last_type_symbol = NULL; |
2353 |
2353 |
2354 { |
2354 { |
2355 identifier_c IN_param_name("IN"); |
2355 symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); |
2356 /* Get the value from a foo(<param_name> = <param_value>) style call */ |
2356 /* Get the value from a foo(<param_name> = <param_value>) style call */ |
2357 symbol_c *IN_param_value = &this->default_variable_name; |
2357 symbol_c *IN_param_value = &this->default_variable_name; |
2358 |
2358 |
2359 symbol_c *IN_type_symbol = param_data_type; |
2359 symbol_c *IN_type_symbol = param_data_type; |
2360 last_type_symbol = param_data_type; |
2360 last_type_symbol = param_data_type; |
2364 |
2364 |
2365 function_name = (symbol_c*)(new pragma_c("__int_to_time")); |
2365 function_name = (symbol_c*)(new pragma_c("__int_to_time")); |
2366 |
2366 |
2367 if (IN_type_symbol == NULL) |
2367 if (IN_type_symbol == NULL) |
2368 IN_type_symbol = last_type_symbol; |
2368 IN_type_symbol = last_type_symbol; |
2369 ADD_PARAM_LIST(&IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) |
2369 ADD_PARAM_LIST(IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) |
2370 symbol_c * return_type_symbol = &search_constant_type_c::tod_type_name; |
2370 symbol_c * return_type_symbol = &search_constant_type_c::tod_type_name; |
2371 function_type_prefix = return_type_symbol; |
2371 function_type_prefix = return_type_symbol; |
2372 break; |
2372 break; |
2373 |
2373 |
2374 } |
2374 } |
2386 case function_dint_to_udint : |
2386 case function_dint_to_udint : |
2387 { |
2387 { |
2388 symbol_c *last_type_symbol = NULL; |
2388 symbol_c *last_type_symbol = NULL; |
2389 |
2389 |
2390 { |
2390 { |
2391 identifier_c IN_param_name("IN"); |
2391 symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); |
2392 /* Get the value from a foo(<param_name> = <param_value>) style call */ |
2392 /* Get the value from a foo(<param_name> = <param_value>) style call */ |
2393 symbol_c *IN_param_value = &this->default_variable_name; |
2393 symbol_c *IN_param_value = &this->default_variable_name; |
2394 |
2394 |
2395 symbol_c *IN_type_symbol = param_data_type; |
2395 symbol_c *IN_type_symbol = param_data_type; |
2396 last_type_symbol = param_data_type; |
2396 last_type_symbol = param_data_type; |
2400 |
2400 |
2401 function_name = (symbol_c*)(new pragma_c("__move_")); |
2401 function_name = (symbol_c*)(new pragma_c("__move_")); |
2402 |
2402 |
2403 if (IN_type_symbol == NULL) |
2403 if (IN_type_symbol == NULL) |
2404 IN_type_symbol = last_type_symbol; |
2404 IN_type_symbol = last_type_symbol; |
2405 ADD_PARAM_LIST(&IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) |
2405 ADD_PARAM_LIST(IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) |
2406 symbol_c * return_type_symbol = &search_constant_type_c::udint_type_name; |
2406 symbol_c * return_type_symbol = &search_constant_type_c::udint_type_name; |
2407 function_type_prefix = return_type_symbol; |
2407 function_type_prefix = return_type_symbol; |
2408 function_type_suffix = IN_type_symbol; |
2408 function_type_suffix = IN_type_symbol; |
2409 break; |
2409 break; |
2410 |
2410 |
2423 case function_dint_to_word : |
2423 case function_dint_to_word : |
2424 { |
2424 { |
2425 symbol_c *last_type_symbol = NULL; |
2425 symbol_c *last_type_symbol = NULL; |
2426 |
2426 |
2427 { |
2427 { |
2428 identifier_c IN_param_name("IN"); |
2428 symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); |
2429 /* Get the value from a foo(<param_name> = <param_value>) style call */ |
2429 /* Get the value from a foo(<param_name> = <param_value>) style call */ |
2430 symbol_c *IN_param_value = &this->default_variable_name; |
2430 symbol_c *IN_param_value = &this->default_variable_name; |
2431 |
2431 |
2432 symbol_c *IN_type_symbol = param_data_type; |
2432 symbol_c *IN_type_symbol = param_data_type; |
2433 last_type_symbol = param_data_type; |
2433 last_type_symbol = param_data_type; |
2437 |
2437 |
2438 function_name = (symbol_c*)(new pragma_c("__move_")); |
2438 function_name = (symbol_c*)(new pragma_c("__move_")); |
2439 |
2439 |
2440 if (IN_type_symbol == NULL) |
2440 if (IN_type_symbol == NULL) |
2441 IN_type_symbol = last_type_symbol; |
2441 IN_type_symbol = last_type_symbol; |
2442 ADD_PARAM_LIST(&IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) |
2442 ADD_PARAM_LIST(IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) |
2443 symbol_c * return_type_symbol = &search_constant_type_c::word_type_name; |
2443 symbol_c * return_type_symbol = &search_constant_type_c::word_type_name; |
2444 function_type_prefix = return_type_symbol; |
2444 function_type_prefix = return_type_symbol; |
2445 function_type_suffix = IN_type_symbol; |
2445 function_type_suffix = IN_type_symbol; |
2446 break; |
2446 break; |
2447 |
2447 |
2460 case function_dint_to_string : |
2460 case function_dint_to_string : |
2461 { |
2461 { |
2462 symbol_c *last_type_symbol = NULL; |
2462 symbol_c *last_type_symbol = NULL; |
2463 |
2463 |
2464 { |
2464 { |
2465 identifier_c IN_param_name("IN"); |
2465 symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); |
2466 /* Get the value from a foo(<param_name> = <param_value>) style call */ |
2466 /* Get the value from a foo(<param_name> = <param_value>) style call */ |
2467 symbol_c *IN_param_value = &this->default_variable_name; |
2467 symbol_c *IN_param_value = &this->default_variable_name; |
2468 |
2468 |
2469 symbol_c *IN_type_symbol = param_data_type; |
2469 symbol_c *IN_type_symbol = param_data_type; |
2470 last_type_symbol = param_data_type; |
2470 last_type_symbol = param_data_type; |
2474 |
2474 |
2475 function_name = (symbol_c*)(new pragma_c("__sint_to_string")); |
2475 function_name = (symbol_c*)(new pragma_c("__sint_to_string")); |
2476 |
2476 |
2477 if (IN_type_symbol == NULL) |
2477 if (IN_type_symbol == NULL) |
2478 IN_type_symbol = last_type_symbol; |
2478 IN_type_symbol = last_type_symbol; |
2479 ADD_PARAM_LIST(&IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) |
2479 ADD_PARAM_LIST(IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) |
2480 symbol_c * return_type_symbol = &search_constant_type_c::string_type_name; |
2480 symbol_c * return_type_symbol = &search_constant_type_c::string_type_name; |
2481 function_type_prefix = return_type_symbol; |
2481 function_type_prefix = return_type_symbol; |
2482 break; |
2482 break; |
2483 |
2483 |
2484 } |
2484 } |
2496 case function_dint_to_lword : |
2496 case function_dint_to_lword : |
2497 { |
2497 { |
2498 symbol_c *last_type_symbol = NULL; |
2498 symbol_c *last_type_symbol = NULL; |
2499 |
2499 |
2500 { |
2500 { |
2501 identifier_c IN_param_name("IN"); |
2501 symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); |
2502 /* Get the value from a foo(<param_name> = <param_value>) style call */ |
2502 /* Get the value from a foo(<param_name> = <param_value>) style call */ |
2503 symbol_c *IN_param_value = &this->default_variable_name; |
2503 symbol_c *IN_param_value = &this->default_variable_name; |
2504 |
2504 |
2505 symbol_c *IN_type_symbol = param_data_type; |
2505 symbol_c *IN_type_symbol = param_data_type; |
2506 last_type_symbol = param_data_type; |
2506 last_type_symbol = param_data_type; |
2510 |
2510 |
2511 function_name = (symbol_c*)(new pragma_c("__move_")); |
2511 function_name = (symbol_c*)(new pragma_c("__move_")); |
2512 |
2512 |
2513 if (IN_type_symbol == NULL) |
2513 if (IN_type_symbol == NULL) |
2514 IN_type_symbol = last_type_symbol; |
2514 IN_type_symbol = last_type_symbol; |
2515 ADD_PARAM_LIST(&IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) |
2515 ADD_PARAM_LIST(IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) |
2516 symbol_c * return_type_symbol = &search_constant_type_c::lword_type_name; |
2516 symbol_c * return_type_symbol = &search_constant_type_c::lword_type_name; |
2517 function_type_prefix = return_type_symbol; |
2517 function_type_prefix = return_type_symbol; |
2518 function_type_suffix = IN_type_symbol; |
2518 function_type_suffix = IN_type_symbol; |
2519 break; |
2519 break; |
2520 |
2520 |
2533 case function_dint_to_uint : |
2533 case function_dint_to_uint : |
2534 { |
2534 { |
2535 symbol_c *last_type_symbol = NULL; |
2535 symbol_c *last_type_symbol = NULL; |
2536 |
2536 |
2537 { |
2537 { |
2538 identifier_c IN_param_name("IN"); |
2538 symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); |
2539 /* Get the value from a foo(<param_name> = <param_value>) style call */ |
2539 /* Get the value from a foo(<param_name> = <param_value>) style call */ |
2540 symbol_c *IN_param_value = &this->default_variable_name; |
2540 symbol_c *IN_param_value = &this->default_variable_name; |
2541 |
2541 |
2542 symbol_c *IN_type_symbol = param_data_type; |
2542 symbol_c *IN_type_symbol = param_data_type; |
2543 last_type_symbol = param_data_type; |
2543 last_type_symbol = param_data_type; |
2547 |
2547 |
2548 function_name = (symbol_c*)(new pragma_c("__move_")); |
2548 function_name = (symbol_c*)(new pragma_c("__move_")); |
2549 |
2549 |
2550 if (IN_type_symbol == NULL) |
2550 if (IN_type_symbol == NULL) |
2551 IN_type_symbol = last_type_symbol; |
2551 IN_type_symbol = last_type_symbol; |
2552 ADD_PARAM_LIST(&IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) |
2552 ADD_PARAM_LIST(IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) |
2553 symbol_c * return_type_symbol = &search_constant_type_c::uint_type_name; |
2553 symbol_c * return_type_symbol = &search_constant_type_c::uint_type_name; |
2554 function_type_prefix = return_type_symbol; |
2554 function_type_prefix = return_type_symbol; |
2555 function_type_suffix = IN_type_symbol; |
2555 function_type_suffix = IN_type_symbol; |
2556 break; |
2556 break; |
2557 |
2557 |
2570 case function_dint_to_lreal : |
2570 case function_dint_to_lreal : |
2571 { |
2571 { |
2572 symbol_c *last_type_symbol = NULL; |
2572 symbol_c *last_type_symbol = NULL; |
2573 |
2573 |
2574 { |
2574 { |
2575 identifier_c IN_param_name("IN"); |
2575 symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); |
2576 /* Get the value from a foo(<param_name> = <param_value>) style call */ |
2576 /* Get the value from a foo(<param_name> = <param_value>) style call */ |
2577 symbol_c *IN_param_value = &this->default_variable_name; |
2577 symbol_c *IN_param_value = &this->default_variable_name; |
2578 |
2578 |
2579 symbol_c *IN_type_symbol = param_data_type; |
2579 symbol_c *IN_type_symbol = param_data_type; |
2580 last_type_symbol = param_data_type; |
2580 last_type_symbol = param_data_type; |
2584 |
2584 |
2585 function_name = (symbol_c*)(new pragma_c("__move_")); |
2585 function_name = (symbol_c*)(new pragma_c("__move_")); |
2586 |
2586 |
2587 if (IN_type_symbol == NULL) |
2587 if (IN_type_symbol == NULL) |
2588 IN_type_symbol = last_type_symbol; |
2588 IN_type_symbol = last_type_symbol; |
2589 ADD_PARAM_LIST(&IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) |
2589 ADD_PARAM_LIST(IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) |
2590 symbol_c * return_type_symbol = &search_constant_type_c::lreal_type_name; |
2590 symbol_c * return_type_symbol = &search_constant_type_c::lreal_type_name; |
2591 function_type_prefix = return_type_symbol; |
2591 function_type_prefix = return_type_symbol; |
2592 function_type_suffix = IN_type_symbol; |
2592 function_type_suffix = IN_type_symbol; |
2593 break; |
2593 break; |
2594 |
2594 |
2607 case function_dint_to_byte : |
2607 case function_dint_to_byte : |
2608 { |
2608 { |
2609 symbol_c *last_type_symbol = NULL; |
2609 symbol_c *last_type_symbol = NULL; |
2610 |
2610 |
2611 { |
2611 { |
2612 identifier_c IN_param_name("IN"); |
2612 symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); |
2613 /* Get the value from a foo(<param_name> = <param_value>) style call */ |
2613 /* Get the value from a foo(<param_name> = <param_value>) style call */ |
2614 symbol_c *IN_param_value = &this->default_variable_name; |
2614 symbol_c *IN_param_value = &this->default_variable_name; |
2615 |
2615 |
2616 symbol_c *IN_type_symbol = param_data_type; |
2616 symbol_c *IN_type_symbol = param_data_type; |
2617 last_type_symbol = param_data_type; |
2617 last_type_symbol = param_data_type; |
2621 |
2621 |
2622 function_name = (symbol_c*)(new pragma_c("__move_")); |
2622 function_name = (symbol_c*)(new pragma_c("__move_")); |
2623 |
2623 |
2624 if (IN_type_symbol == NULL) |
2624 if (IN_type_symbol == NULL) |
2625 IN_type_symbol = last_type_symbol; |
2625 IN_type_symbol = last_type_symbol; |
2626 ADD_PARAM_LIST(&IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) |
2626 ADD_PARAM_LIST(IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) |
2627 symbol_c * return_type_symbol = &search_constant_type_c::byte_type_name; |
2627 symbol_c * return_type_symbol = &search_constant_type_c::byte_type_name; |
2628 function_type_prefix = return_type_symbol; |
2628 function_type_prefix = return_type_symbol; |
2629 function_type_suffix = IN_type_symbol; |
2629 function_type_suffix = IN_type_symbol; |
2630 break; |
2630 break; |
2631 |
2631 |
2644 case function_dint_to_usint : |
2644 case function_dint_to_usint : |
2645 { |
2645 { |
2646 symbol_c *last_type_symbol = NULL; |
2646 symbol_c *last_type_symbol = NULL; |
2647 |
2647 |
2648 { |
2648 { |
2649 identifier_c IN_param_name("IN"); |
2649 symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); |
2650 /* Get the value from a foo(<param_name> = <param_value>) style call */ |
2650 /* Get the value from a foo(<param_name> = <param_value>) style call */ |
2651 symbol_c *IN_param_value = &this->default_variable_name; |
2651 symbol_c *IN_param_value = &this->default_variable_name; |
2652 |
2652 |
2653 symbol_c *IN_type_symbol = param_data_type; |
2653 symbol_c *IN_type_symbol = param_data_type; |
2654 last_type_symbol = param_data_type; |
2654 last_type_symbol = param_data_type; |
2658 |
2658 |
2659 function_name = (symbol_c*)(new pragma_c("__move_")); |
2659 function_name = (symbol_c*)(new pragma_c("__move_")); |
2660 |
2660 |
2661 if (IN_type_symbol == NULL) |
2661 if (IN_type_symbol == NULL) |
2662 IN_type_symbol = last_type_symbol; |
2662 IN_type_symbol = last_type_symbol; |
2663 ADD_PARAM_LIST(&IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) |
2663 ADD_PARAM_LIST(IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) |
2664 symbol_c * return_type_symbol = &search_constant_type_c::usint_type_name; |
2664 symbol_c * return_type_symbol = &search_constant_type_c::usint_type_name; |
2665 function_type_prefix = return_type_symbol; |
2665 function_type_prefix = return_type_symbol; |
2666 function_type_suffix = IN_type_symbol; |
2666 function_type_suffix = IN_type_symbol; |
2667 break; |
2667 break; |
2668 |
2668 |
2681 case function_dint_to_ulint : |
2681 case function_dint_to_ulint : |
2682 { |
2682 { |
2683 symbol_c *last_type_symbol = NULL; |
2683 symbol_c *last_type_symbol = NULL; |
2684 |
2684 |
2685 { |
2685 { |
2686 identifier_c IN_param_name("IN"); |
2686 symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); |
2687 /* Get the value from a foo(<param_name> = <param_value>) style call */ |
2687 /* Get the value from a foo(<param_name> = <param_value>) style call */ |
2688 symbol_c *IN_param_value = &this->default_variable_name; |
2688 symbol_c *IN_param_value = &this->default_variable_name; |
2689 |
2689 |
2690 symbol_c *IN_type_symbol = param_data_type; |
2690 symbol_c *IN_type_symbol = param_data_type; |
2691 last_type_symbol = param_data_type; |
2691 last_type_symbol = param_data_type; |
2695 |
2695 |
2696 function_name = (symbol_c*)(new pragma_c("__move_")); |
2696 function_name = (symbol_c*)(new pragma_c("__move_")); |
2697 |
2697 |
2698 if (IN_type_symbol == NULL) |
2698 if (IN_type_symbol == NULL) |
2699 IN_type_symbol = last_type_symbol; |
2699 IN_type_symbol = last_type_symbol; |
2700 ADD_PARAM_LIST(&IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) |
2700 ADD_PARAM_LIST(IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) |
2701 symbol_c * return_type_symbol = &search_constant_type_c::ulint_type_name; |
2701 symbol_c * return_type_symbol = &search_constant_type_c::ulint_type_name; |
2702 function_type_prefix = return_type_symbol; |
2702 function_type_prefix = return_type_symbol; |
2703 function_type_suffix = IN_type_symbol; |
2703 function_type_suffix = IN_type_symbol; |
2704 break; |
2704 break; |
2705 |
2705 |
2718 case function_dint_to_bool : |
2718 case function_dint_to_bool : |
2719 { |
2719 { |
2720 symbol_c *last_type_symbol = NULL; |
2720 symbol_c *last_type_symbol = NULL; |
2721 |
2721 |
2722 { |
2722 { |
2723 identifier_c IN_param_name("IN"); |
2723 symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); |
2724 /* Get the value from a foo(<param_name> = <param_value>) style call */ |
2724 /* Get the value from a foo(<param_name> = <param_value>) style call */ |
2725 symbol_c *IN_param_value = &this->default_variable_name; |
2725 symbol_c *IN_param_value = &this->default_variable_name; |
2726 |
2726 |
2727 symbol_c *IN_type_symbol = param_data_type; |
2727 symbol_c *IN_type_symbol = param_data_type; |
2728 last_type_symbol = param_data_type; |
2728 last_type_symbol = param_data_type; |
2732 |
2732 |
2733 function_name = (symbol_c*)(new pragma_c("__move_")); |
2733 function_name = (symbol_c*)(new pragma_c("__move_")); |
2734 |
2734 |
2735 if (IN_type_symbol == NULL) |
2735 if (IN_type_symbol == NULL) |
2736 IN_type_symbol = last_type_symbol; |
2736 IN_type_symbol = last_type_symbol; |
2737 ADD_PARAM_LIST(&IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) |
2737 ADD_PARAM_LIST(IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) |
2738 symbol_c * return_type_symbol = &search_constant_type_c::bool_type_name; |
2738 symbol_c * return_type_symbol = &search_constant_type_c::bool_type_name; |
2739 function_type_prefix = return_type_symbol; |
2739 function_type_prefix = return_type_symbol; |
2740 function_type_suffix = IN_type_symbol; |
2740 function_type_suffix = IN_type_symbol; |
2741 break; |
2741 break; |
2742 |
2742 |
2755 case function_dint_to_time : |
2755 case function_dint_to_time : |
2756 { |
2756 { |
2757 symbol_c *last_type_symbol = NULL; |
2757 symbol_c *last_type_symbol = NULL; |
2758 |
2758 |
2759 { |
2759 { |
2760 identifier_c IN_param_name("IN"); |
2760 symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); |
2761 /* Get the value from a foo(<param_name> = <param_value>) style call */ |
2761 /* Get the value from a foo(<param_name> = <param_value>) style call */ |
2762 symbol_c *IN_param_value = &this->default_variable_name; |
2762 symbol_c *IN_param_value = &this->default_variable_name; |
2763 |
2763 |
2764 symbol_c *IN_type_symbol = param_data_type; |
2764 symbol_c *IN_type_symbol = param_data_type; |
2765 last_type_symbol = param_data_type; |
2765 last_type_symbol = param_data_type; |
2769 |
2769 |
2770 function_name = (symbol_c*)(new pragma_c("__int_to_time")); |
2770 function_name = (symbol_c*)(new pragma_c("__int_to_time")); |
2771 |
2771 |
2772 if (IN_type_symbol == NULL) |
2772 if (IN_type_symbol == NULL) |
2773 IN_type_symbol = last_type_symbol; |
2773 IN_type_symbol = last_type_symbol; |
2774 ADD_PARAM_LIST(&IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) |
2774 ADD_PARAM_LIST(IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) |
2775 symbol_c * return_type_symbol = &search_constant_type_c::time_type_name; |
2775 symbol_c * return_type_symbol = &search_constant_type_c::time_type_name; |
2776 function_type_prefix = return_type_symbol; |
2776 function_type_prefix = return_type_symbol; |
2777 break; |
2777 break; |
2778 |
2778 |
2779 } |
2779 } |
2791 case function_dint_to_int : |
2791 case function_dint_to_int : |
2792 { |
2792 { |
2793 symbol_c *last_type_symbol = NULL; |
2793 symbol_c *last_type_symbol = NULL; |
2794 |
2794 |
2795 { |
2795 { |
2796 identifier_c IN_param_name("IN"); |
2796 symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); |
2797 /* Get the value from a foo(<param_name> = <param_value>) style call */ |
2797 /* Get the value from a foo(<param_name> = <param_value>) style call */ |
2798 symbol_c *IN_param_value = &this->default_variable_name; |
2798 symbol_c *IN_param_value = &this->default_variable_name; |
2799 |
2799 |
2800 symbol_c *IN_type_symbol = param_data_type; |
2800 symbol_c *IN_type_symbol = param_data_type; |
2801 last_type_symbol = param_data_type; |
2801 last_type_symbol = param_data_type; |
2805 |
2805 |
2806 function_name = (symbol_c*)(new pragma_c("__move_")); |
2806 function_name = (symbol_c*)(new pragma_c("__move_")); |
2807 |
2807 |
2808 if (IN_type_symbol == NULL) |
2808 if (IN_type_symbol == NULL) |
2809 IN_type_symbol = last_type_symbol; |
2809 IN_type_symbol = last_type_symbol; |
2810 ADD_PARAM_LIST(&IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) |
2810 ADD_PARAM_LIST(IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) |
2811 symbol_c * return_type_symbol = &search_constant_type_c::int_type_name; |
2811 symbol_c * return_type_symbol = &search_constant_type_c::int_type_name; |
2812 function_type_prefix = return_type_symbol; |
2812 function_type_prefix = return_type_symbol; |
2813 function_type_suffix = IN_type_symbol; |
2813 function_type_suffix = IN_type_symbol; |
2814 break; |
2814 break; |
2815 |
2815 |
2828 case function_date_to_real : |
2828 case function_date_to_real : |
2829 { |
2829 { |
2830 symbol_c *last_type_symbol = NULL; |
2830 symbol_c *last_type_symbol = NULL; |
2831 |
2831 |
2832 { |
2832 { |
2833 identifier_c IN_param_name("IN"); |
2833 symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); |
2834 /* Get the value from a foo(<param_name> = <param_value>) style call */ |
2834 /* Get the value from a foo(<param_name> = <param_value>) style call */ |
2835 symbol_c *IN_param_value = &this->default_variable_name; |
2835 symbol_c *IN_param_value = &this->default_variable_name; |
2836 |
2836 |
2837 symbol_c *IN_type_symbol = param_data_type; |
2837 symbol_c *IN_type_symbol = param_data_type; |
2838 last_type_symbol = param_data_type; |
2838 last_type_symbol = param_data_type; |
2842 |
2842 |
2843 function_name = (symbol_c*)(new pragma_c("__time_to_real")); |
2843 function_name = (symbol_c*)(new pragma_c("__time_to_real")); |
2844 |
2844 |
2845 if (IN_type_symbol == NULL) |
2845 if (IN_type_symbol == NULL) |
2846 IN_type_symbol = last_type_symbol; |
2846 IN_type_symbol = last_type_symbol; |
2847 ADD_PARAM_LIST(&IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) |
2847 ADD_PARAM_LIST(IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) |
2848 symbol_c * return_type_symbol = &search_constant_type_c::real_type_name; |
2848 symbol_c * return_type_symbol = &search_constant_type_c::real_type_name; |
2849 function_type_prefix = return_type_symbol; |
2849 function_type_prefix = return_type_symbol; |
2850 break; |
2850 break; |
2851 |
2851 |
2852 } |
2852 } |
2864 case function_date_to_sint : |
2864 case function_date_to_sint : |
2865 { |
2865 { |
2866 symbol_c *last_type_symbol = NULL; |
2866 symbol_c *last_type_symbol = NULL; |
2867 |
2867 |
2868 { |
2868 { |
2869 identifier_c IN_param_name("IN"); |
2869 symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); |
2870 /* Get the value from a foo(<param_name> = <param_value>) style call */ |
2870 /* Get the value from a foo(<param_name> = <param_value>) style call */ |
2871 symbol_c *IN_param_value = &this->default_variable_name; |
2871 symbol_c *IN_param_value = &this->default_variable_name; |
2872 |
2872 |
2873 symbol_c *IN_type_symbol = param_data_type; |
2873 symbol_c *IN_type_symbol = param_data_type; |
2874 last_type_symbol = param_data_type; |
2874 last_type_symbol = param_data_type; |
2878 |
2878 |
2879 function_name = (symbol_c*)(new pragma_c("__time_to_int")); |
2879 function_name = (symbol_c*)(new pragma_c("__time_to_int")); |
2880 |
2880 |
2881 if (IN_type_symbol == NULL) |
2881 if (IN_type_symbol == NULL) |
2882 IN_type_symbol = last_type_symbol; |
2882 IN_type_symbol = last_type_symbol; |
2883 ADD_PARAM_LIST(&IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) |
2883 ADD_PARAM_LIST(IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) |
2884 symbol_c * return_type_symbol = &search_constant_type_c::sint_type_name; |
2884 symbol_c * return_type_symbol = &search_constant_type_c::sint_type_name; |
2885 function_type_prefix = return_type_symbol; |
2885 function_type_prefix = return_type_symbol; |
2886 break; |
2886 break; |
2887 |
2887 |
2888 } |
2888 } |
2900 case function_date_to_lint : |
2900 case function_date_to_lint : |
2901 { |
2901 { |
2902 symbol_c *last_type_symbol = NULL; |
2902 symbol_c *last_type_symbol = NULL; |
2903 |
2903 |
2904 { |
2904 { |
2905 identifier_c IN_param_name("IN"); |
2905 symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); |
2906 /* Get the value from a foo(<param_name> = <param_value>) style call */ |
2906 /* Get the value from a foo(<param_name> = <param_value>) style call */ |
2907 symbol_c *IN_param_value = &this->default_variable_name; |
2907 symbol_c *IN_param_value = &this->default_variable_name; |
2908 |
2908 |
2909 symbol_c *IN_type_symbol = param_data_type; |
2909 symbol_c *IN_type_symbol = param_data_type; |
2910 last_type_symbol = param_data_type; |
2910 last_type_symbol = param_data_type; |
2914 |
2914 |
2915 function_name = (symbol_c*)(new pragma_c("__time_to_int")); |
2915 function_name = (symbol_c*)(new pragma_c("__time_to_int")); |
2916 |
2916 |
2917 if (IN_type_symbol == NULL) |
2917 if (IN_type_symbol == NULL) |
2918 IN_type_symbol = last_type_symbol; |
2918 IN_type_symbol = last_type_symbol; |
2919 ADD_PARAM_LIST(&IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) |
2919 ADD_PARAM_LIST(IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) |
2920 symbol_c * return_type_symbol = &search_constant_type_c::lint_type_name; |
2920 symbol_c * return_type_symbol = &search_constant_type_c::lint_type_name; |
2921 function_type_prefix = return_type_symbol; |
2921 function_type_prefix = return_type_symbol; |
2922 break; |
2922 break; |
2923 |
2923 |
2924 } |
2924 } |
2936 case function_date_to_dint : |
2936 case function_date_to_dint : |
2937 { |
2937 { |
2938 symbol_c *last_type_symbol = NULL; |
2938 symbol_c *last_type_symbol = NULL; |
2939 |
2939 |
2940 { |
2940 { |
2941 identifier_c IN_param_name("IN"); |
2941 symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); |
2942 /* Get the value from a foo(<param_name> = <param_value>) style call */ |
2942 /* Get the value from a foo(<param_name> = <param_value>) style call */ |
2943 symbol_c *IN_param_value = &this->default_variable_name; |
2943 symbol_c *IN_param_value = &this->default_variable_name; |
2944 |
2944 |
2945 symbol_c *IN_type_symbol = param_data_type; |
2945 symbol_c *IN_type_symbol = param_data_type; |
2946 last_type_symbol = param_data_type; |
2946 last_type_symbol = param_data_type; |
2950 |
2950 |
2951 function_name = (symbol_c*)(new pragma_c("__time_to_int")); |
2951 function_name = (symbol_c*)(new pragma_c("__time_to_int")); |
2952 |
2952 |
2953 if (IN_type_symbol == NULL) |
2953 if (IN_type_symbol == NULL) |
2954 IN_type_symbol = last_type_symbol; |
2954 IN_type_symbol = last_type_symbol; |
2955 ADD_PARAM_LIST(&IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) |
2955 ADD_PARAM_LIST(IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) |
2956 symbol_c * return_type_symbol = &search_constant_type_c::dint_type_name; |
2956 symbol_c * return_type_symbol = &search_constant_type_c::dint_type_name; |
2957 function_type_prefix = return_type_symbol; |
2957 function_type_prefix = return_type_symbol; |
2958 break; |
2958 break; |
2959 |
2959 |
2960 } |
2960 } |
2972 case function_date_to_dword : |
2972 case function_date_to_dword : |
2973 { |
2973 { |
2974 symbol_c *last_type_symbol = NULL; |
2974 symbol_c *last_type_symbol = NULL; |
2975 |
2975 |
2976 { |
2976 { |
2977 identifier_c IN_param_name("IN"); |
2977 symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); |
2978 /* Get the value from a foo(<param_name> = <param_value>) style call */ |
2978 /* Get the value from a foo(<param_name> = <param_value>) style call */ |
2979 symbol_c *IN_param_value = &this->default_variable_name; |
2979 symbol_c *IN_param_value = &this->default_variable_name; |
2980 |
2980 |
2981 symbol_c *IN_type_symbol = param_data_type; |
2981 symbol_c *IN_type_symbol = param_data_type; |
2982 last_type_symbol = param_data_type; |
2982 last_type_symbol = param_data_type; |
2986 |
2986 |
2987 function_name = (symbol_c*)(new pragma_c("__time_to_int")); |
2987 function_name = (symbol_c*)(new pragma_c("__time_to_int")); |
2988 |
2988 |
2989 if (IN_type_symbol == NULL) |
2989 if (IN_type_symbol == NULL) |
2990 IN_type_symbol = last_type_symbol; |
2990 IN_type_symbol = last_type_symbol; |
2991 ADD_PARAM_LIST(&IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) |
2991 ADD_PARAM_LIST(IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) |
2992 symbol_c * return_type_symbol = &search_constant_type_c::dword_type_name; |
2992 symbol_c * return_type_symbol = &search_constant_type_c::dword_type_name; |
2993 function_type_prefix = return_type_symbol; |
2993 function_type_prefix = return_type_symbol; |
2994 break; |
2994 break; |
2995 |
2995 |
2996 } |
2996 } |
3008 case function_date_to_udint : |
3008 case function_date_to_udint : |
3009 { |
3009 { |
3010 symbol_c *last_type_symbol = NULL; |
3010 symbol_c *last_type_symbol = NULL; |
3011 |
3011 |
3012 { |
3012 { |
3013 identifier_c IN_param_name("IN"); |
3013 symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); |
3014 /* Get the value from a foo(<param_name> = <param_value>) style call */ |
3014 /* Get the value from a foo(<param_name> = <param_value>) style call */ |
3015 symbol_c *IN_param_value = &this->default_variable_name; |
3015 symbol_c *IN_param_value = &this->default_variable_name; |
3016 |
3016 |
3017 symbol_c *IN_type_symbol = param_data_type; |
3017 symbol_c *IN_type_symbol = param_data_type; |
3018 last_type_symbol = param_data_type; |
3018 last_type_symbol = param_data_type; |
3022 |
3022 |
3023 function_name = (symbol_c*)(new pragma_c("__time_to_int")); |
3023 function_name = (symbol_c*)(new pragma_c("__time_to_int")); |
3024 |
3024 |
3025 if (IN_type_symbol == NULL) |
3025 if (IN_type_symbol == NULL) |
3026 IN_type_symbol = last_type_symbol; |
3026 IN_type_symbol = last_type_symbol; |
3027 ADD_PARAM_LIST(&IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) |
3027 ADD_PARAM_LIST(IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) |
3028 symbol_c * return_type_symbol = &search_constant_type_c::udint_type_name; |
3028 symbol_c * return_type_symbol = &search_constant_type_c::udint_type_name; |
3029 function_type_prefix = return_type_symbol; |
3029 function_type_prefix = return_type_symbol; |
3030 break; |
3030 break; |
3031 |
3031 |
3032 } |
3032 } |
3044 case function_date_to_word : |
3044 case function_date_to_word : |
3045 { |
3045 { |
3046 symbol_c *last_type_symbol = NULL; |
3046 symbol_c *last_type_symbol = NULL; |
3047 |
3047 |
3048 { |
3048 { |
3049 identifier_c IN_param_name("IN"); |
3049 symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); |
3050 /* Get the value from a foo(<param_name> = <param_value>) style call */ |
3050 /* Get the value from a foo(<param_name> = <param_value>) style call */ |
3051 symbol_c *IN_param_value = &this->default_variable_name; |
3051 symbol_c *IN_param_value = &this->default_variable_name; |
3052 |
3052 |
3053 symbol_c *IN_type_symbol = param_data_type; |
3053 symbol_c *IN_type_symbol = param_data_type; |
3054 last_type_symbol = param_data_type; |
3054 last_type_symbol = param_data_type; |
3058 |
3058 |
3059 function_name = (symbol_c*)(new pragma_c("__time_to_int")); |
3059 function_name = (symbol_c*)(new pragma_c("__time_to_int")); |
3060 |
3060 |
3061 if (IN_type_symbol == NULL) |
3061 if (IN_type_symbol == NULL) |
3062 IN_type_symbol = last_type_symbol; |
3062 IN_type_symbol = last_type_symbol; |
3063 ADD_PARAM_LIST(&IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) |
3063 ADD_PARAM_LIST(IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) |
3064 symbol_c * return_type_symbol = &search_constant_type_c::word_type_name; |
3064 symbol_c * return_type_symbol = &search_constant_type_c::word_type_name; |
3065 function_type_prefix = return_type_symbol; |
3065 function_type_prefix = return_type_symbol; |
3066 break; |
3066 break; |
3067 |
3067 |
3068 } |
3068 } |
3080 case function_date_to_string : |
3080 case function_date_to_string : |
3081 { |
3081 { |
3082 symbol_c *last_type_symbol = NULL; |
3082 symbol_c *last_type_symbol = NULL; |
3083 |
3083 |
3084 { |
3084 { |
3085 identifier_c IN_param_name("IN"); |
3085 symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); |
3086 /* Get the value from a foo(<param_name> = <param_value>) style call */ |
3086 /* Get the value from a foo(<param_name> = <param_value>) style call */ |
3087 symbol_c *IN_param_value = &this->default_variable_name; |
3087 symbol_c *IN_param_value = &this->default_variable_name; |
3088 |
3088 |
3089 symbol_c *IN_type_symbol = param_data_type; |
3089 symbol_c *IN_type_symbol = param_data_type; |
3090 last_type_symbol = param_data_type; |
3090 last_type_symbol = param_data_type; |
3094 |
3094 |
3095 function_name = (symbol_c*)(new pragma_c("__date_to_string")); |
3095 function_name = (symbol_c*)(new pragma_c("__date_to_string")); |
3096 |
3096 |
3097 if (IN_type_symbol == NULL) |
3097 if (IN_type_symbol == NULL) |
3098 IN_type_symbol = last_type_symbol; |
3098 IN_type_symbol = last_type_symbol; |
3099 ADD_PARAM_LIST(&IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) |
3099 ADD_PARAM_LIST(IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) |
3100 symbol_c * return_type_symbol = &search_constant_type_c::string_type_name; |
3100 symbol_c * return_type_symbol = &search_constant_type_c::string_type_name; |
3101 function_type_prefix = return_type_symbol; |
3101 function_type_prefix = return_type_symbol; |
3102 break; |
3102 break; |
3103 |
3103 |
3104 } |
3104 } |
3116 case function_date_to_lword : |
3116 case function_date_to_lword : |
3117 { |
3117 { |
3118 symbol_c *last_type_symbol = NULL; |
3118 symbol_c *last_type_symbol = NULL; |
3119 |
3119 |
3120 { |
3120 { |
3121 identifier_c IN_param_name("IN"); |
3121 symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); |
3122 /* Get the value from a foo(<param_name> = <param_value>) style call */ |
3122 /* Get the value from a foo(<param_name> = <param_value>) style call */ |
3123 symbol_c *IN_param_value = &this->default_variable_name; |
3123 symbol_c *IN_param_value = &this->default_variable_name; |
3124 |
3124 |
3125 symbol_c *IN_type_symbol = param_data_type; |
3125 symbol_c *IN_type_symbol = param_data_type; |
3126 last_type_symbol = param_data_type; |
3126 last_type_symbol = param_data_type; |
3130 |
3130 |
3131 function_name = (symbol_c*)(new pragma_c("__time_to_int")); |
3131 function_name = (symbol_c*)(new pragma_c("__time_to_int")); |
3132 |
3132 |
3133 if (IN_type_symbol == NULL) |
3133 if (IN_type_symbol == NULL) |
3134 IN_type_symbol = last_type_symbol; |
3134 IN_type_symbol = last_type_symbol; |
3135 ADD_PARAM_LIST(&IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) |
3135 ADD_PARAM_LIST(IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) |
3136 symbol_c * return_type_symbol = &search_constant_type_c::lword_type_name; |
3136 symbol_c * return_type_symbol = &search_constant_type_c::lword_type_name; |
3137 function_type_prefix = return_type_symbol; |
3137 function_type_prefix = return_type_symbol; |
3138 break; |
3138 break; |
3139 |
3139 |
3140 } |
3140 } |
3152 case function_date_to_uint : |
3152 case function_date_to_uint : |
3153 { |
3153 { |
3154 symbol_c *last_type_symbol = NULL; |
3154 symbol_c *last_type_symbol = NULL; |
3155 |
3155 |
3156 { |
3156 { |
3157 identifier_c IN_param_name("IN"); |
3157 symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); |
3158 /* Get the value from a foo(<param_name> = <param_value>) style call */ |
3158 /* Get the value from a foo(<param_name> = <param_value>) style call */ |
3159 symbol_c *IN_param_value = &this->default_variable_name; |
3159 symbol_c *IN_param_value = &this->default_variable_name; |
3160 |
3160 |
3161 symbol_c *IN_type_symbol = param_data_type; |
3161 symbol_c *IN_type_symbol = param_data_type; |
3162 last_type_symbol = param_data_type; |
3162 last_type_symbol = param_data_type; |
3166 |
3166 |
3167 function_name = (symbol_c*)(new pragma_c("__time_to_int")); |
3167 function_name = (symbol_c*)(new pragma_c("__time_to_int")); |
3168 |
3168 |
3169 if (IN_type_symbol == NULL) |
3169 if (IN_type_symbol == NULL) |
3170 IN_type_symbol = last_type_symbol; |
3170 IN_type_symbol = last_type_symbol; |
3171 ADD_PARAM_LIST(&IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) |
3171 ADD_PARAM_LIST(IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) |
3172 symbol_c * return_type_symbol = &search_constant_type_c::uint_type_name; |
3172 symbol_c * return_type_symbol = &search_constant_type_c::uint_type_name; |
3173 function_type_prefix = return_type_symbol; |
3173 function_type_prefix = return_type_symbol; |
3174 break; |
3174 break; |
3175 |
3175 |
3176 } |
3176 } |
3188 case function_date_to_lreal : |
3188 case function_date_to_lreal : |
3189 { |
3189 { |
3190 symbol_c *last_type_symbol = NULL; |
3190 symbol_c *last_type_symbol = NULL; |
3191 |
3191 |
3192 { |
3192 { |
3193 identifier_c IN_param_name("IN"); |
3193 symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); |
3194 /* Get the value from a foo(<param_name> = <param_value>) style call */ |
3194 /* Get the value from a foo(<param_name> = <param_value>) style call */ |
3195 symbol_c *IN_param_value = &this->default_variable_name; |
3195 symbol_c *IN_param_value = &this->default_variable_name; |
3196 |
3196 |
3197 symbol_c *IN_type_symbol = param_data_type; |
3197 symbol_c *IN_type_symbol = param_data_type; |
3198 last_type_symbol = param_data_type; |
3198 last_type_symbol = param_data_type; |
3202 |
3202 |
3203 function_name = (symbol_c*)(new pragma_c("__time_to_real")); |
3203 function_name = (symbol_c*)(new pragma_c("__time_to_real")); |
3204 |
3204 |
3205 if (IN_type_symbol == NULL) |
3205 if (IN_type_symbol == NULL) |
3206 IN_type_symbol = last_type_symbol; |
3206 IN_type_symbol = last_type_symbol; |
3207 ADD_PARAM_LIST(&IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) |
3207 ADD_PARAM_LIST(IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) |
3208 symbol_c * return_type_symbol = &search_constant_type_c::lreal_type_name; |
3208 symbol_c * return_type_symbol = &search_constant_type_c::lreal_type_name; |
3209 function_type_prefix = return_type_symbol; |
3209 function_type_prefix = return_type_symbol; |
3210 break; |
3210 break; |
3211 |
3211 |
3212 } |
3212 } |
3224 case function_date_to_byte : |
3224 case function_date_to_byte : |
3225 { |
3225 { |
3226 symbol_c *last_type_symbol = NULL; |
3226 symbol_c *last_type_symbol = NULL; |
3227 |
3227 |
3228 { |
3228 { |
3229 identifier_c IN_param_name("IN"); |
3229 symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); |
3230 /* Get the value from a foo(<param_name> = <param_value>) style call */ |
3230 /* Get the value from a foo(<param_name> = <param_value>) style call */ |
3231 symbol_c *IN_param_value = &this->default_variable_name; |
3231 symbol_c *IN_param_value = &this->default_variable_name; |
3232 |
3232 |
3233 symbol_c *IN_type_symbol = param_data_type; |
3233 symbol_c *IN_type_symbol = param_data_type; |
3234 last_type_symbol = param_data_type; |
3234 last_type_symbol = param_data_type; |
3238 |
3238 |
3239 function_name = (symbol_c*)(new pragma_c("__time_to_int")); |
3239 function_name = (symbol_c*)(new pragma_c("__time_to_int")); |
3240 |
3240 |
3241 if (IN_type_symbol == NULL) |
3241 if (IN_type_symbol == NULL) |
3242 IN_type_symbol = last_type_symbol; |
3242 IN_type_symbol = last_type_symbol; |
3243 ADD_PARAM_LIST(&IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) |
3243 ADD_PARAM_LIST(IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) |
3244 symbol_c * return_type_symbol = &search_constant_type_c::byte_type_name; |
3244 symbol_c * return_type_symbol = &search_constant_type_c::byte_type_name; |
3245 function_type_prefix = return_type_symbol; |
3245 function_type_prefix = return_type_symbol; |
3246 break; |
3246 break; |
3247 |
3247 |
3248 } |
3248 } |
3260 case function_date_to_usint : |
3260 case function_date_to_usint : |
3261 { |
3261 { |
3262 symbol_c *last_type_symbol = NULL; |
3262 symbol_c *last_type_symbol = NULL; |
3263 |
3263 |
3264 { |
3264 { |
3265 identifier_c IN_param_name("IN"); |
3265 symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); |
3266 /* Get the value from a foo(<param_name> = <param_value>) style call */ |
3266 /* Get the value from a foo(<param_name> = <param_value>) style call */ |
3267 symbol_c *IN_param_value = &this->default_variable_name; |
3267 symbol_c *IN_param_value = &this->default_variable_name; |
3268 |
3268 |
3269 symbol_c *IN_type_symbol = param_data_type; |
3269 symbol_c *IN_type_symbol = param_data_type; |
3270 last_type_symbol = param_data_type; |
3270 last_type_symbol = param_data_type; |
3274 |
3274 |
3275 function_name = (symbol_c*)(new pragma_c("__time_to_int")); |
3275 function_name = (symbol_c*)(new pragma_c("__time_to_int")); |
3276 |
3276 |
3277 if (IN_type_symbol == NULL) |
3277 if (IN_type_symbol == NULL) |
3278 IN_type_symbol = last_type_symbol; |
3278 IN_type_symbol = last_type_symbol; |
3279 ADD_PARAM_LIST(&IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) |
3279 ADD_PARAM_LIST(IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) |
3280 symbol_c * return_type_symbol = &search_constant_type_c::usint_type_name; |
3280 symbol_c * return_type_symbol = &search_constant_type_c::usint_type_name; |
3281 function_type_prefix = return_type_symbol; |
3281 function_type_prefix = return_type_symbol; |
3282 break; |
3282 break; |
3283 |
3283 |
3284 } |
3284 } |
3296 case function_date_to_ulint : |
3296 case function_date_to_ulint : |
3297 { |
3297 { |
3298 symbol_c *last_type_symbol = NULL; |
3298 symbol_c *last_type_symbol = NULL; |
3299 |
3299 |
3300 { |
3300 { |
3301 identifier_c IN_param_name("IN"); |
3301 symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); |
3302 /* Get the value from a foo(<param_name> = <param_value>) style call */ |
3302 /* Get the value from a foo(<param_name> = <param_value>) style call */ |
3303 symbol_c *IN_param_value = &this->default_variable_name; |
3303 symbol_c *IN_param_value = &this->default_variable_name; |
3304 |
3304 |
3305 symbol_c *IN_type_symbol = param_data_type; |
3305 symbol_c *IN_type_symbol = param_data_type; |
3306 last_type_symbol = param_data_type; |
3306 last_type_symbol = param_data_type; |
3310 |
3310 |
3311 function_name = (symbol_c*)(new pragma_c("__time_to_int")); |
3311 function_name = (symbol_c*)(new pragma_c("__time_to_int")); |
3312 |
3312 |
3313 if (IN_type_symbol == NULL) |
3313 if (IN_type_symbol == NULL) |
3314 IN_type_symbol = last_type_symbol; |
3314 IN_type_symbol = last_type_symbol; |
3315 ADD_PARAM_LIST(&IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) |
3315 ADD_PARAM_LIST(IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) |
3316 symbol_c * return_type_symbol = &search_constant_type_c::ulint_type_name; |
3316 symbol_c * return_type_symbol = &search_constant_type_c::ulint_type_name; |
3317 function_type_prefix = return_type_symbol; |
3317 function_type_prefix = return_type_symbol; |
3318 break; |
3318 break; |
3319 |
3319 |
3320 } |
3320 } |
3332 case function_date_to_int : |
3332 case function_date_to_int : |
3333 { |
3333 { |
3334 symbol_c *last_type_symbol = NULL; |
3334 symbol_c *last_type_symbol = NULL; |
3335 |
3335 |
3336 { |
3336 { |
3337 identifier_c IN_param_name("IN"); |
3337 symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); |
3338 /* Get the value from a foo(<param_name> = <param_value>) style call */ |
3338 /* Get the value from a foo(<param_name> = <param_value>) style call */ |
3339 symbol_c *IN_param_value = &this->default_variable_name; |
3339 symbol_c *IN_param_value = &this->default_variable_name; |
3340 |
3340 |
3341 symbol_c *IN_type_symbol = param_data_type; |
3341 symbol_c *IN_type_symbol = param_data_type; |
3342 last_type_symbol = param_data_type; |
3342 last_type_symbol = param_data_type; |
3346 |
3346 |
3347 function_name = (symbol_c*)(new pragma_c("__time_to_int")); |
3347 function_name = (symbol_c*)(new pragma_c("__time_to_int")); |
3348 |
3348 |
3349 if (IN_type_symbol == NULL) |
3349 if (IN_type_symbol == NULL) |
3350 IN_type_symbol = last_type_symbol; |
3350 IN_type_symbol = last_type_symbol; |
3351 ADD_PARAM_LIST(&IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) |
3351 ADD_PARAM_LIST(IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) |
3352 symbol_c * return_type_symbol = &search_constant_type_c::int_type_name; |
3352 symbol_c * return_type_symbol = &search_constant_type_c::int_type_name; |
3353 function_type_prefix = return_type_symbol; |
3353 function_type_prefix = return_type_symbol; |
3354 break; |
3354 break; |
3355 |
3355 |
3356 } |
3356 } |
3368 case function_dword_to_real : |
3368 case function_dword_to_real : |
3369 { |
3369 { |
3370 symbol_c *last_type_symbol = NULL; |
3370 symbol_c *last_type_symbol = NULL; |
3371 |
3371 |
3372 { |
3372 { |
3373 identifier_c IN_param_name("IN"); |
3373 symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); |
3374 /* Get the value from a foo(<param_name> = <param_value>) style call */ |
3374 /* Get the value from a foo(<param_name> = <param_value>) style call */ |
3375 symbol_c *IN_param_value = &this->default_variable_name; |
3375 symbol_c *IN_param_value = &this->default_variable_name; |
3376 |
3376 |
3377 symbol_c *IN_type_symbol = param_data_type; |
3377 symbol_c *IN_type_symbol = param_data_type; |
3378 last_type_symbol = param_data_type; |
3378 last_type_symbol = param_data_type; |
3382 |
3382 |
3383 function_name = (symbol_c*)(new pragma_c("__move_")); |
3383 function_name = (symbol_c*)(new pragma_c("__move_")); |
3384 |
3384 |
3385 if (IN_type_symbol == NULL) |
3385 if (IN_type_symbol == NULL) |
3386 IN_type_symbol = last_type_symbol; |
3386 IN_type_symbol = last_type_symbol; |
3387 ADD_PARAM_LIST(&IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) |
3387 ADD_PARAM_LIST(IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) |
3388 symbol_c * return_type_symbol = &search_constant_type_c::real_type_name; |
3388 symbol_c * return_type_symbol = &search_constant_type_c::real_type_name; |
3389 function_type_prefix = return_type_symbol; |
3389 function_type_prefix = return_type_symbol; |
3390 function_type_suffix = IN_type_symbol; |
3390 function_type_suffix = IN_type_symbol; |
3391 break; |
3391 break; |
3392 |
3392 |
3405 case function_dword_to_sint : |
3405 case function_dword_to_sint : |
3406 { |
3406 { |
3407 symbol_c *last_type_symbol = NULL; |
3407 symbol_c *last_type_symbol = NULL; |
3408 |
3408 |
3409 { |
3409 { |
3410 identifier_c IN_param_name("IN"); |
3410 symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); |
3411 /* Get the value from a foo(<param_name> = <param_value>) style call */ |
3411 /* Get the value from a foo(<param_name> = <param_value>) style call */ |
3412 symbol_c *IN_param_value = &this->default_variable_name; |
3412 symbol_c *IN_param_value = &this->default_variable_name; |
3413 |
3413 |
3414 symbol_c *IN_type_symbol = param_data_type; |
3414 symbol_c *IN_type_symbol = param_data_type; |
3415 last_type_symbol = param_data_type; |
3415 last_type_symbol = param_data_type; |
3419 |
3419 |
3420 function_name = (symbol_c*)(new pragma_c("__move_")); |
3420 function_name = (symbol_c*)(new pragma_c("__move_")); |
3421 |
3421 |
3422 if (IN_type_symbol == NULL) |
3422 if (IN_type_symbol == NULL) |
3423 IN_type_symbol = last_type_symbol; |
3423 IN_type_symbol = last_type_symbol; |
3424 ADD_PARAM_LIST(&IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) |
3424 ADD_PARAM_LIST(IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) |
3425 symbol_c * return_type_symbol = &search_constant_type_c::sint_type_name; |
3425 symbol_c * return_type_symbol = &search_constant_type_c::sint_type_name; |
3426 function_type_prefix = return_type_symbol; |
3426 function_type_prefix = return_type_symbol; |
3427 function_type_suffix = IN_type_symbol; |
3427 function_type_suffix = IN_type_symbol; |
3428 break; |
3428 break; |
3429 |
3429 |
3442 case function_dword_to_lint : |
3442 case function_dword_to_lint : |
3443 { |
3443 { |
3444 symbol_c *last_type_symbol = NULL; |
3444 symbol_c *last_type_symbol = NULL; |
3445 |
3445 |
3446 { |
3446 { |
3447 identifier_c IN_param_name("IN"); |
3447 symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); |
3448 /* Get the value from a foo(<param_name> = <param_value>) style call */ |
3448 /* Get the value from a foo(<param_name> = <param_value>) style call */ |
3449 symbol_c *IN_param_value = &this->default_variable_name; |
3449 symbol_c *IN_param_value = &this->default_variable_name; |
3450 |
3450 |
3451 symbol_c *IN_type_symbol = param_data_type; |
3451 symbol_c *IN_type_symbol = param_data_type; |
3452 last_type_symbol = param_data_type; |
3452 last_type_symbol = param_data_type; |
3456 |
3456 |
3457 function_name = (symbol_c*)(new pragma_c("__move_")); |
3457 function_name = (symbol_c*)(new pragma_c("__move_")); |
3458 |
3458 |
3459 if (IN_type_symbol == NULL) |
3459 if (IN_type_symbol == NULL) |
3460 IN_type_symbol = last_type_symbol; |
3460 IN_type_symbol = last_type_symbol; |
3461 ADD_PARAM_LIST(&IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) |
3461 ADD_PARAM_LIST(IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) |
3462 symbol_c * return_type_symbol = &search_constant_type_c::lint_type_name; |
3462 symbol_c * return_type_symbol = &search_constant_type_c::lint_type_name; |
3463 function_type_prefix = return_type_symbol; |
3463 function_type_prefix = return_type_symbol; |
3464 function_type_suffix = IN_type_symbol; |
3464 function_type_suffix = IN_type_symbol; |
3465 break; |
3465 break; |
3466 |
3466 |
3479 case function_dword_to_dint : |
3479 case function_dword_to_dint : |
3480 { |
3480 { |
3481 symbol_c *last_type_symbol = NULL; |
3481 symbol_c *last_type_symbol = NULL; |
3482 |
3482 |
3483 { |
3483 { |
3484 identifier_c IN_param_name("IN"); |
3484 symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); |
3485 /* Get the value from a foo(<param_name> = <param_value>) style call */ |
3485 /* Get the value from a foo(<param_name> = <param_value>) style call */ |
3486 symbol_c *IN_param_value = &this->default_variable_name; |
3486 symbol_c *IN_param_value = &this->default_variable_name; |
3487 |
3487 |
3488 symbol_c *IN_type_symbol = param_data_type; |
3488 symbol_c *IN_type_symbol = param_data_type; |
3489 last_type_symbol = param_data_type; |
3489 last_type_symbol = param_data_type; |
3493 |
3493 |
3494 function_name = (symbol_c*)(new pragma_c("__move_")); |
3494 function_name = (symbol_c*)(new pragma_c("__move_")); |
3495 |
3495 |
3496 if (IN_type_symbol == NULL) |
3496 if (IN_type_symbol == NULL) |
3497 IN_type_symbol = last_type_symbol; |
3497 IN_type_symbol = last_type_symbol; |
3498 ADD_PARAM_LIST(&IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) |
3498 ADD_PARAM_LIST(IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) |
3499 symbol_c * return_type_symbol = &search_constant_type_c::dint_type_name; |
3499 symbol_c * return_type_symbol = &search_constant_type_c::dint_type_name; |
3500 function_type_prefix = return_type_symbol; |
3500 function_type_prefix = return_type_symbol; |
3501 function_type_suffix = IN_type_symbol; |
3501 function_type_suffix = IN_type_symbol; |
3502 break; |
3502 break; |
3503 |
3503 |
3516 case function_dword_to_date : |
3516 case function_dword_to_date : |
3517 { |
3517 { |
3518 symbol_c *last_type_symbol = NULL; |
3518 symbol_c *last_type_symbol = NULL; |
3519 |
3519 |
3520 { |
3520 { |
3521 identifier_c IN_param_name("IN"); |
3521 symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); |
3522 /* Get the value from a foo(<param_name> = <param_value>) style call */ |
3522 /* Get the value from a foo(<param_name> = <param_value>) style call */ |
3523 symbol_c *IN_param_value = &this->default_variable_name; |
3523 symbol_c *IN_param_value = &this->default_variable_name; |
3524 |
3524 |
3525 symbol_c *IN_type_symbol = param_data_type; |
3525 symbol_c *IN_type_symbol = param_data_type; |
3526 last_type_symbol = param_data_type; |
3526 last_type_symbol = param_data_type; |
3530 |
3530 |
3531 function_name = (symbol_c*)(new pragma_c("__int_to_time")); |
3531 function_name = (symbol_c*)(new pragma_c("__int_to_time")); |
3532 |
3532 |
3533 if (IN_type_symbol == NULL) |
3533 if (IN_type_symbol == NULL) |
3534 IN_type_symbol = last_type_symbol; |
3534 IN_type_symbol = last_type_symbol; |
3535 ADD_PARAM_LIST(&IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) |
3535 ADD_PARAM_LIST(IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) |
3536 symbol_c * return_type_symbol = &search_constant_type_c::date_type_name; |
3536 symbol_c * return_type_symbol = &search_constant_type_c::date_type_name; |
3537 function_type_prefix = return_type_symbol; |
3537 function_type_prefix = return_type_symbol; |
3538 break; |
3538 break; |
3539 |
3539 |
3540 } |
3540 } |
3552 case function_dword_to_dt : |
3552 case function_dword_to_dt : |
3553 { |
3553 { |
3554 symbol_c *last_type_symbol = NULL; |
3554 symbol_c *last_type_symbol = NULL; |
3555 |
3555 |
3556 { |
3556 { |
3557 identifier_c IN_param_name("IN"); |
3557 symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); |
3558 /* Get the value from a foo(<param_name> = <param_value>) style call */ |
3558 /* Get the value from a foo(<param_name> = <param_value>) style call */ |
3559 symbol_c *IN_param_value = &this->default_variable_name; |
3559 symbol_c *IN_param_value = &this->default_variable_name; |
3560 |
3560 |
3561 symbol_c *IN_type_symbol = param_data_type; |
3561 symbol_c *IN_type_symbol = param_data_type; |
3562 last_type_symbol = param_data_type; |
3562 last_type_symbol = param_data_type; |
3566 |
3566 |
3567 function_name = (symbol_c*)(new pragma_c("__int_to_time")); |
3567 function_name = (symbol_c*)(new pragma_c("__int_to_time")); |
3568 |
3568 |
3569 if (IN_type_symbol == NULL) |
3569 if (IN_type_symbol == NULL) |
3570 IN_type_symbol = last_type_symbol; |
3570 IN_type_symbol = last_type_symbol; |
3571 ADD_PARAM_LIST(&IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) |
3571 ADD_PARAM_LIST(IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) |
3572 symbol_c * return_type_symbol = &search_constant_type_c::dt_type_name; |
3572 symbol_c * return_type_symbol = &search_constant_type_c::dt_type_name; |
3573 function_type_prefix = return_type_symbol; |
3573 function_type_prefix = return_type_symbol; |
3574 break; |
3574 break; |
3575 |
3575 |
3576 } |
3576 } |
3588 case function_dword_to_tod : |
3588 case function_dword_to_tod : |
3589 { |
3589 { |
3590 symbol_c *last_type_symbol = NULL; |
3590 symbol_c *last_type_symbol = NULL; |
3591 |
3591 |
3592 { |
3592 { |
3593 identifier_c IN_param_name("IN"); |
3593 symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); |
3594 /* Get the value from a foo(<param_name> = <param_value>) style call */ |
3594 /* Get the value from a foo(<param_name> = <param_value>) style call */ |
3595 symbol_c *IN_param_value = &this->default_variable_name; |
3595 symbol_c *IN_param_value = &this->default_variable_name; |
3596 |
3596 |
3597 symbol_c *IN_type_symbol = param_data_type; |
3597 symbol_c *IN_type_symbol = param_data_type; |
3598 last_type_symbol = param_data_type; |
3598 last_type_symbol = param_data_type; |
3602 |
3602 |
3603 function_name = (symbol_c*)(new pragma_c("__int_to_time")); |
3603 function_name = (symbol_c*)(new pragma_c("__int_to_time")); |
3604 |
3604 |
3605 if (IN_type_symbol == NULL) |
3605 if (IN_type_symbol == NULL) |
3606 IN_type_symbol = last_type_symbol; |
3606 IN_type_symbol = last_type_symbol; |
3607 ADD_PARAM_LIST(&IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) |
3607 ADD_PARAM_LIST(IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) |
3608 symbol_c * return_type_symbol = &search_constant_type_c::tod_type_name; |
3608 symbol_c * return_type_symbol = &search_constant_type_c::tod_type_name; |
3609 function_type_prefix = return_type_symbol; |
3609 function_type_prefix = return_type_symbol; |
3610 break; |
3610 break; |
3611 |
3611 |
3612 } |
3612 } |
3624 case function_dword_to_udint : |
3624 case function_dword_to_udint : |
3625 { |
3625 { |
3626 symbol_c *last_type_symbol = NULL; |
3626 symbol_c *last_type_symbol = NULL; |
3627 |
3627 |
3628 { |
3628 { |
3629 identifier_c IN_param_name("IN"); |
3629 symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); |
3630 /* Get the value from a foo(<param_name> = <param_value>) style call */ |
3630 /* Get the value from a foo(<param_name> = <param_value>) style call */ |
3631 symbol_c *IN_param_value = &this->default_variable_name; |
3631 symbol_c *IN_param_value = &this->default_variable_name; |
3632 |
3632 |
3633 symbol_c *IN_type_symbol = param_data_type; |
3633 symbol_c *IN_type_symbol = param_data_type; |
3634 last_type_symbol = param_data_type; |
3634 last_type_symbol = param_data_type; |
3638 |
3638 |
3639 function_name = (symbol_c*)(new pragma_c("__move_")); |
3639 function_name = (symbol_c*)(new pragma_c("__move_")); |
3640 |
3640 |
3641 if (IN_type_symbol == NULL) |
3641 if (IN_type_symbol == NULL) |
3642 IN_type_symbol = last_type_symbol; |
3642 IN_type_symbol = last_type_symbol; |
3643 ADD_PARAM_LIST(&IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) |
3643 ADD_PARAM_LIST(IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) |
3644 symbol_c * return_type_symbol = &search_constant_type_c::udint_type_name; |
3644 symbol_c * return_type_symbol = &search_constant_type_c::udint_type_name; |
3645 function_type_prefix = return_type_symbol; |
3645 function_type_prefix = return_type_symbol; |
3646 function_type_suffix = IN_type_symbol; |
3646 function_type_suffix = IN_type_symbol; |
3647 break; |
3647 break; |
3648 |
3648 |
3661 case function_dword_to_word : |
3661 case function_dword_to_word : |
3662 { |
3662 { |
3663 symbol_c *last_type_symbol = NULL; |
3663 symbol_c *last_type_symbol = NULL; |
3664 |
3664 |
3665 { |
3665 { |
3666 identifier_c IN_param_name("IN"); |
3666 symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); |
3667 /* Get the value from a foo(<param_name> = <param_value>) style call */ |
3667 /* Get the value from a foo(<param_name> = <param_value>) style call */ |
3668 symbol_c *IN_param_value = &this->default_variable_name; |
3668 symbol_c *IN_param_value = &this->default_variable_name; |
3669 |
3669 |
3670 symbol_c *IN_type_symbol = param_data_type; |
3670 symbol_c *IN_type_symbol = param_data_type; |
3671 last_type_symbol = param_data_type; |
3671 last_type_symbol = param_data_type; |
3675 |
3675 |
3676 function_name = (symbol_c*)(new pragma_c("__move_")); |
3676 function_name = (symbol_c*)(new pragma_c("__move_")); |
3677 |
3677 |
3678 if (IN_type_symbol == NULL) |
3678 if (IN_type_symbol == NULL) |
3679 IN_type_symbol = last_type_symbol; |
3679 IN_type_symbol = last_type_symbol; |
3680 ADD_PARAM_LIST(&IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) |
3680 ADD_PARAM_LIST(IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) |
3681 symbol_c * return_type_symbol = &search_constant_type_c::word_type_name; |
3681 symbol_c * return_type_symbol = &search_constant_type_c::word_type_name; |
3682 function_type_prefix = return_type_symbol; |
3682 function_type_prefix = return_type_symbol; |
3683 function_type_suffix = IN_type_symbol; |
3683 function_type_suffix = IN_type_symbol; |
3684 break; |
3684 break; |
3685 |
3685 |
3698 case function_dword_to_string : |
3698 case function_dword_to_string : |
3699 { |
3699 { |
3700 symbol_c *last_type_symbol = NULL; |
3700 symbol_c *last_type_symbol = NULL; |
3701 |
3701 |
3702 { |
3702 { |
3703 identifier_c IN_param_name("IN"); |
3703 symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); |
3704 /* Get the value from a foo(<param_name> = <param_value>) style call */ |
3704 /* Get the value from a foo(<param_name> = <param_value>) style call */ |
3705 symbol_c *IN_param_value = &this->default_variable_name; |
3705 symbol_c *IN_param_value = &this->default_variable_name; |
3706 |
3706 |
3707 symbol_c *IN_type_symbol = param_data_type; |
3707 symbol_c *IN_type_symbol = param_data_type; |
3708 last_type_symbol = param_data_type; |
3708 last_type_symbol = param_data_type; |
3712 |
3712 |
3713 function_name = (symbol_c*)(new pragma_c("__bit_to_string")); |
3713 function_name = (symbol_c*)(new pragma_c("__bit_to_string")); |
3714 |
3714 |
3715 if (IN_type_symbol == NULL) |
3715 if (IN_type_symbol == NULL) |
3716 IN_type_symbol = last_type_symbol; |
3716 IN_type_symbol = last_type_symbol; |
3717 ADD_PARAM_LIST(&IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) |
3717 ADD_PARAM_LIST(IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) |
3718 symbol_c * return_type_symbol = &search_constant_type_c::string_type_name; |
3718 symbol_c * return_type_symbol = &search_constant_type_c::string_type_name; |
3719 function_type_prefix = return_type_symbol; |
3719 function_type_prefix = return_type_symbol; |
3720 break; |
3720 break; |
3721 |
3721 |
3722 } |
3722 } |
3734 case function_dword_to_lword : |
3734 case function_dword_to_lword : |
3735 { |
3735 { |
3736 symbol_c *last_type_symbol = NULL; |
3736 symbol_c *last_type_symbol = NULL; |
3737 |
3737 |
3738 { |
3738 { |
3739 identifier_c IN_param_name("IN"); |
3739 symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); |
3740 /* Get the value from a foo(<param_name> = <param_value>) style call */ |
3740 /* Get the value from a foo(<param_name> = <param_value>) style call */ |
3741 symbol_c *IN_param_value = &this->default_variable_name; |
3741 symbol_c *IN_param_value = &this->default_variable_name; |
3742 |
3742 |
3743 symbol_c *IN_type_symbol = param_data_type; |
3743 symbol_c *IN_type_symbol = param_data_type; |
3744 last_type_symbol = param_data_type; |
3744 last_type_symbol = param_data_type; |
3748 |
3748 |
3749 function_name = (symbol_c*)(new pragma_c("__move_")); |
3749 function_name = (symbol_c*)(new pragma_c("__move_")); |
3750 |
3750 |
3751 if (IN_type_symbol == NULL) |
3751 if (IN_type_symbol == NULL) |
3752 IN_type_symbol = last_type_symbol; |
3752 IN_type_symbol = last_type_symbol; |
3753 ADD_PARAM_LIST(&IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) |
3753 ADD_PARAM_LIST(IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) |
3754 symbol_c * return_type_symbol = &search_constant_type_c::lword_type_name; |
3754 symbol_c * return_type_symbol = &search_constant_type_c::lword_type_name; |
3755 function_type_prefix = return_type_symbol; |
3755 function_type_prefix = return_type_symbol; |
3756 function_type_suffix = IN_type_symbol; |
3756 function_type_suffix = IN_type_symbol; |
3757 break; |
3757 break; |
3758 |
3758 |
3771 case function_dword_to_uint : |
3771 case function_dword_to_uint : |
3772 { |
3772 { |
3773 symbol_c *last_type_symbol = NULL; |
3773 symbol_c *last_type_symbol = NULL; |
3774 |
3774 |
3775 { |
3775 { |
3776 identifier_c IN_param_name("IN"); |
3776 symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); |
3777 /* Get the value from a foo(<param_name> = <param_value>) style call */ |
3777 /* Get the value from a foo(<param_name> = <param_value>) style call */ |
3778 symbol_c *IN_param_value = &this->default_variable_name; |
3778 symbol_c *IN_param_value = &this->default_variable_name; |
3779 |
3779 |
3780 symbol_c *IN_type_symbol = param_data_type; |
3780 symbol_c *IN_type_symbol = param_data_type; |
3781 last_type_symbol = param_data_type; |
3781 last_type_symbol = param_data_type; |
3785 |
3785 |
3786 function_name = (symbol_c*)(new pragma_c("__move_")); |
3786 function_name = (symbol_c*)(new pragma_c("__move_")); |
3787 |
3787 |
3788 if (IN_type_symbol == NULL) |
3788 if (IN_type_symbol == NULL) |
3789 IN_type_symbol = last_type_symbol; |
3789 IN_type_symbol = last_type_symbol; |
3790 ADD_PARAM_LIST(&IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) |
3790 ADD_PARAM_LIST(IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) |
3791 symbol_c * return_type_symbol = &search_constant_type_c::uint_type_name; |
3791 symbol_c * return_type_symbol = &search_constant_type_c::uint_type_name; |
3792 function_type_prefix = return_type_symbol; |
3792 function_type_prefix = return_type_symbol; |
3793 function_type_suffix = IN_type_symbol; |
3793 function_type_suffix = IN_type_symbol; |
3794 break; |
3794 break; |
3795 |
3795 |
3808 case function_dword_to_lreal : |
3808 case function_dword_to_lreal : |
3809 { |
3809 { |
3810 symbol_c *last_type_symbol = NULL; |
3810 symbol_c *last_type_symbol = NULL; |
3811 |
3811 |
3812 { |
3812 { |
3813 identifier_c IN_param_name("IN"); |
3813 symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); |
3814 /* Get the value from a foo(<param_name> = <param_value>) style call */ |
3814 /* Get the value from a foo(<param_name> = <param_value>) style call */ |
3815 symbol_c *IN_param_value = &this->default_variable_name; |
3815 symbol_c *IN_param_value = &this->default_variable_name; |
3816 |
3816 |
3817 symbol_c *IN_type_symbol = param_data_type; |
3817 symbol_c *IN_type_symbol = param_data_type; |
3818 last_type_symbol = param_data_type; |
3818 last_type_symbol = param_data_type; |
3822 |
3822 |
3823 function_name = (symbol_c*)(new pragma_c("__move_")); |
3823 function_name = (symbol_c*)(new pragma_c("__move_")); |
3824 |
3824 |
3825 if (IN_type_symbol == NULL) |
3825 if (IN_type_symbol == NULL) |
3826 IN_type_symbol = last_type_symbol; |
3826 IN_type_symbol = last_type_symbol; |
3827 ADD_PARAM_LIST(&IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) |
3827 ADD_PARAM_LIST(IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) |
3828 symbol_c * return_type_symbol = &search_constant_type_c::lreal_type_name; |
3828 symbol_c * return_type_symbol = &search_constant_type_c::lreal_type_name; |
3829 function_type_prefix = return_type_symbol; |
3829 function_type_prefix = return_type_symbol; |
3830 function_type_suffix = IN_type_symbol; |
3830 function_type_suffix = IN_type_symbol; |
3831 break; |
3831 break; |
3832 |
3832 |
3845 case function_dword_to_byte : |
3845 case function_dword_to_byte : |
3846 { |
3846 { |
3847 symbol_c *last_type_symbol = NULL; |
3847 symbol_c *last_type_symbol = NULL; |
3848 |
3848 |
3849 { |
3849 { |
3850 identifier_c IN_param_name("IN"); |
3850 symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); |
3851 /* Get the value from a foo(<param_name> = <param_value>) style call */ |
3851 /* Get the value from a foo(<param_name> = <param_value>) style call */ |
3852 symbol_c *IN_param_value = &this->default_variable_name; |
3852 symbol_c *IN_param_value = &this->default_variable_name; |
3853 |
3853 |
3854 symbol_c *IN_type_symbol = param_data_type; |
3854 symbol_c *IN_type_symbol = param_data_type; |
3855 last_type_symbol = param_data_type; |
3855 last_type_symbol = param_data_type; |
3859 |
3859 |
3860 function_name = (symbol_c*)(new pragma_c("__move_")); |
3860 function_name = (symbol_c*)(new pragma_c("__move_")); |
3861 |
3861 |
3862 if (IN_type_symbol == NULL) |
3862 if (IN_type_symbol == NULL) |
3863 IN_type_symbol = last_type_symbol; |
3863 IN_type_symbol = last_type_symbol; |
3864 ADD_PARAM_LIST(&IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) |
3864 ADD_PARAM_LIST(IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) |
3865 symbol_c * return_type_symbol = &search_constant_type_c::byte_type_name; |
3865 symbol_c * return_type_symbol = &search_constant_type_c::byte_type_name; |
3866 function_type_prefix = return_type_symbol; |
3866 function_type_prefix = return_type_symbol; |
3867 function_type_suffix = IN_type_symbol; |
3867 function_type_suffix = IN_type_symbol; |
3868 break; |
3868 break; |
3869 |
3869 |
3882 case function_dword_to_usint : |
3882 case function_dword_to_usint : |
3883 { |
3883 { |
3884 symbol_c *last_type_symbol = NULL; |
3884 symbol_c *last_type_symbol = NULL; |
3885 |
3885 |
3886 { |
3886 { |
3887 identifier_c IN_param_name("IN"); |
3887 symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); |
3888 /* Get the value from a foo(<param_name> = <param_value>) style call */ |
3888 /* Get the value from a foo(<param_name> = <param_value>) style call */ |
3889 symbol_c *IN_param_value = &this->default_variable_name; |
3889 symbol_c *IN_param_value = &this->default_variable_name; |
3890 |
3890 |
3891 symbol_c *IN_type_symbol = param_data_type; |
3891 symbol_c *IN_type_symbol = param_data_type; |
3892 last_type_symbol = param_data_type; |
3892 last_type_symbol = param_data_type; |
3896 |
3896 |
3897 function_name = (symbol_c*)(new pragma_c("__move_")); |
3897 function_name = (symbol_c*)(new pragma_c("__move_")); |
3898 |
3898 |
3899 if (IN_type_symbol == NULL) |
3899 if (IN_type_symbol == NULL) |
3900 IN_type_symbol = last_type_symbol; |
3900 IN_type_symbol = last_type_symbol; |
3901 ADD_PARAM_LIST(&IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) |
3901 ADD_PARAM_LIST(IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) |
3902 symbol_c * return_type_symbol = &search_constant_type_c::usint_type_name; |
3902 symbol_c * return_type_symbol = &search_constant_type_c::usint_type_name; |
3903 function_type_prefix = return_type_symbol; |
3903 function_type_prefix = return_type_symbol; |
3904 function_type_suffix = IN_type_symbol; |
3904 function_type_suffix = IN_type_symbol; |
3905 break; |
3905 break; |
3906 |
3906 |
3919 case function_dword_to_ulint : |
3919 case function_dword_to_ulint : |
3920 { |
3920 { |
3921 symbol_c *last_type_symbol = NULL; |
3921 symbol_c *last_type_symbol = NULL; |
3922 |
3922 |
3923 { |
3923 { |
3924 identifier_c IN_param_name("IN"); |
3924 symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); |
3925 /* Get the value from a foo(<param_name> = <param_value>) style call */ |
3925 /* Get the value from a foo(<param_name> = <param_value>) style call */ |
3926 symbol_c *IN_param_value = &this->default_variable_name; |
3926 symbol_c *IN_param_value = &this->default_variable_name; |
3927 |
3927 |
3928 symbol_c *IN_type_symbol = param_data_type; |
3928 symbol_c *IN_type_symbol = param_data_type; |
3929 last_type_symbol = param_data_type; |
3929 last_type_symbol = param_data_type; |
3933 |
3933 |
3934 function_name = (symbol_c*)(new pragma_c("__move_")); |
3934 function_name = (symbol_c*)(new pragma_c("__move_")); |
3935 |
3935 |
3936 if (IN_type_symbol == NULL) |
3936 if (IN_type_symbol == NULL) |
3937 IN_type_symbol = last_type_symbol; |
3937 IN_type_symbol = last_type_symbol; |
3938 ADD_PARAM_LIST(&IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) |
3938 ADD_PARAM_LIST(IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) |
3939 symbol_c * return_type_symbol = &search_constant_type_c::ulint_type_name; |
3939 symbol_c * return_type_symbol = &search_constant_type_c::ulint_type_name; |
3940 function_type_prefix = return_type_symbol; |
3940 function_type_prefix = return_type_symbol; |
3941 function_type_suffix = IN_type_symbol; |
3941 function_type_suffix = IN_type_symbol; |
3942 break; |
3942 break; |
3943 |
3943 |
3956 case function_dword_to_bool : |
3956 case function_dword_to_bool : |
3957 { |
3957 { |
3958 symbol_c *last_type_symbol = NULL; |
3958 symbol_c *last_type_symbol = NULL; |
3959 |
3959 |
3960 { |
3960 { |
3961 identifier_c IN_param_name("IN"); |
3961 symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); |
3962 /* Get the value from a foo(<param_name> = <param_value>) style call */ |
3962 /* Get the value from a foo(<param_name> = <param_value>) style call */ |
3963 symbol_c *IN_param_value = &this->default_variable_name; |
3963 symbol_c *IN_param_value = &this->default_variable_name; |
3964 |
3964 |
3965 symbol_c *IN_type_symbol = param_data_type; |
3965 symbol_c *IN_type_symbol = param_data_type; |
3966 last_type_symbol = param_data_type; |
3966 last_type_symbol = param_data_type; |
3970 |
3970 |
3971 function_name = (symbol_c*)(new pragma_c("__move_")); |
3971 function_name = (symbol_c*)(new pragma_c("__move_")); |
3972 |
3972 |
3973 if (IN_type_symbol == NULL) |
3973 if (IN_type_symbol == NULL) |
3974 IN_type_symbol = last_type_symbol; |
3974 IN_type_symbol = last_type_symbol; |
3975 ADD_PARAM_LIST(&IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) |
3975 ADD_PARAM_LIST(IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) |
3976 symbol_c * return_type_symbol = &search_constant_type_c::bool_type_name; |
3976 symbol_c * return_type_symbol = &search_constant_type_c::bool_type_name; |
3977 function_type_prefix = return_type_symbol; |
3977 function_type_prefix = return_type_symbol; |
3978 function_type_suffix = IN_type_symbol; |
3978 function_type_suffix = IN_type_symbol; |
3979 break; |
3979 break; |
3980 |
3980 |
3993 case function_dword_to_time : |
3993 case function_dword_to_time : |
3994 { |
3994 { |
3995 symbol_c *last_type_symbol = NULL; |
3995 symbol_c *last_type_symbol = NULL; |
3996 |
3996 |
3997 { |
3997 { |
3998 identifier_c IN_param_name("IN"); |
3998 symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); |
3999 /* Get the value from a foo(<param_name> = <param_value>) style call */ |
3999 /* Get the value from a foo(<param_name> = <param_value>) style call */ |
4000 symbol_c *IN_param_value = &this->default_variable_name; |
4000 symbol_c *IN_param_value = &this->default_variable_name; |
4001 |
4001 |
4002 symbol_c *IN_type_symbol = param_data_type; |
4002 symbol_c *IN_type_symbol = param_data_type; |
4003 last_type_symbol = param_data_type; |
4003 last_type_symbol = param_data_type; |
4007 |
4007 |
4008 function_name = (symbol_c*)(new pragma_c("__int_to_time")); |
4008 function_name = (symbol_c*)(new pragma_c("__int_to_time")); |
4009 |
4009 |
4010 if (IN_type_symbol == NULL) |
4010 if (IN_type_symbol == NULL) |
4011 IN_type_symbol = last_type_symbol; |
4011 IN_type_symbol = last_type_symbol; |
4012 ADD_PARAM_LIST(&IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) |
4012 ADD_PARAM_LIST(IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) |
4013 symbol_c * return_type_symbol = &search_constant_type_c::time_type_name; |
4013 symbol_c * return_type_symbol = &search_constant_type_c::time_type_name; |
4014 function_type_prefix = return_type_symbol; |
4014 function_type_prefix = return_type_symbol; |
4015 break; |
4015 break; |
4016 |
4016 |
4017 } |
4017 } |
4029 case function_dword_to_int : |
4029 case function_dword_to_int : |
4030 { |
4030 { |
4031 symbol_c *last_type_symbol = NULL; |
4031 symbol_c *last_type_symbol = NULL; |
4032 |
4032 |
4033 { |
4033 { |
4034 identifier_c IN_param_name("IN"); |
4034 symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); |
4035 /* Get the value from a foo(<param_name> = <param_value>) style call */ |
4035 /* Get the value from a foo(<param_name> = <param_value>) style call */ |
4036 symbol_c *IN_param_value = &this->default_variable_name; |
4036 symbol_c *IN_param_value = &this->default_variable_name; |
4037 |
4037 |
4038 symbol_c *IN_type_symbol = param_data_type; |
4038 symbol_c *IN_type_symbol = param_data_type; |
4039 last_type_symbol = param_data_type; |
4039 last_type_symbol = param_data_type; |
4043 |
4043 |
4044 function_name = (symbol_c*)(new pragma_c("__move_")); |
4044 function_name = (symbol_c*)(new pragma_c("__move_")); |
4045 |
4045 |
4046 if (IN_type_symbol == NULL) |
4046 if (IN_type_symbol == NULL) |
4047 IN_type_symbol = last_type_symbol; |
4047 IN_type_symbol = last_type_symbol; |
4048 ADD_PARAM_LIST(&IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) |
4048 ADD_PARAM_LIST(IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) |
4049 symbol_c * return_type_symbol = &search_constant_type_c::int_type_name; |
4049 symbol_c * return_type_symbol = &search_constant_type_c::int_type_name; |
4050 function_type_prefix = return_type_symbol; |
4050 function_type_prefix = return_type_symbol; |
4051 function_type_suffix = IN_type_symbol; |
4051 function_type_suffix = IN_type_symbol; |
4052 break; |
4052 break; |
4053 |
4053 |
4066 case function_dt_to_real : |
4066 case function_dt_to_real : |
4067 { |
4067 { |
4068 symbol_c *last_type_symbol = NULL; |
4068 symbol_c *last_type_symbol = NULL; |
4069 |
4069 |
4070 { |
4070 { |
4071 identifier_c IN_param_name("IN"); |
4071 symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); |
4072 /* Get the value from a foo(<param_name> = <param_value>) style call */ |
4072 /* Get the value from a foo(<param_name> = <param_value>) style call */ |
4073 symbol_c *IN_param_value = &this->default_variable_name; |
4073 symbol_c *IN_param_value = &this->default_variable_name; |
4074 |
4074 |
4075 symbol_c *IN_type_symbol = param_data_type; |
4075 symbol_c *IN_type_symbol = param_data_type; |
4076 last_type_symbol = param_data_type; |
4076 last_type_symbol = param_data_type; |
4080 |
4080 |
4081 function_name = (symbol_c*)(new pragma_c("__time_to_real")); |
4081 function_name = (symbol_c*)(new pragma_c("__time_to_real")); |
4082 |
4082 |
4083 if (IN_type_symbol == NULL) |
4083 if (IN_type_symbol == NULL) |
4084 IN_type_symbol = last_type_symbol; |
4084 IN_type_symbol = last_type_symbol; |
4085 ADD_PARAM_LIST(&IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) |
4085 ADD_PARAM_LIST(IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) |
4086 symbol_c * return_type_symbol = &search_constant_type_c::real_type_name; |
4086 symbol_c * return_type_symbol = &search_constant_type_c::real_type_name; |
4087 function_type_prefix = return_type_symbol; |
4087 function_type_prefix = return_type_symbol; |
4088 break; |
4088 break; |
4089 |
4089 |
4090 } |
4090 } |
4102 case function_dt_to_sint : |
4102 case function_dt_to_sint : |
4103 { |
4103 { |
4104 symbol_c *last_type_symbol = NULL; |
4104 symbol_c *last_type_symbol = NULL; |
4105 |
4105 |
4106 { |
4106 { |
4107 identifier_c IN_param_name("IN"); |
4107 symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); |
4108 /* Get the value from a foo(<param_name> = <param_value>) style call */ |
4108 /* Get the value from a foo(<param_name> = <param_value>) style call */ |
4109 symbol_c *IN_param_value = &this->default_variable_name; |
4109 symbol_c *IN_param_value = &this->default_variable_name; |
4110 |
4110 |
4111 symbol_c *IN_type_symbol = param_data_type; |
4111 symbol_c *IN_type_symbol = param_data_type; |
4112 last_type_symbol = param_data_type; |
4112 last_type_symbol = param_data_type; |
4116 |
4116 |
4117 function_name = (symbol_c*)(new pragma_c("__time_to_int")); |
4117 function_name = (symbol_c*)(new pragma_c("__time_to_int")); |
4118 |
4118 |
4119 if (IN_type_symbol == NULL) |
4119 if (IN_type_symbol == NULL) |
4120 IN_type_symbol = last_type_symbol; |
4120 IN_type_symbol = last_type_symbol; |
4121 ADD_PARAM_LIST(&IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) |
4121 ADD_PARAM_LIST(IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) |
4122 symbol_c * return_type_symbol = &search_constant_type_c::sint_type_name; |
4122 symbol_c * return_type_symbol = &search_constant_type_c::sint_type_name; |
4123 function_type_prefix = return_type_symbol; |
4123 function_type_prefix = return_type_symbol; |
4124 break; |
4124 break; |
4125 |
4125 |
4126 } |
4126 } |
4138 case function_dt_to_lint : |
4138 case function_dt_to_lint : |
4139 { |
4139 { |
4140 symbol_c *last_type_symbol = NULL; |
4140 symbol_c *last_type_symbol = NULL; |
4141 |
4141 |
4142 { |
4142 { |
4143 identifier_c IN_param_name("IN"); |
4143 symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); |
4144 /* Get the value from a foo(<param_name> = <param_value>) style call */ |
4144 /* Get the value from a foo(<param_name> = <param_value>) style call */ |
4145 symbol_c *IN_param_value = &this->default_variable_name; |
4145 symbol_c *IN_param_value = &this->default_variable_name; |
4146 |
4146 |
4147 symbol_c *IN_type_symbol = param_data_type; |
4147 symbol_c *IN_type_symbol = param_data_type; |
4148 last_type_symbol = param_data_type; |
4148 last_type_symbol = param_data_type; |
4152 |
4152 |
4153 function_name = (symbol_c*)(new pragma_c("__time_to_int")); |
4153 function_name = (symbol_c*)(new pragma_c("__time_to_int")); |
4154 |
4154 |
4155 if (IN_type_symbol == NULL) |
4155 if (IN_type_symbol == NULL) |
4156 IN_type_symbol = last_type_symbol; |
4156 IN_type_symbol = last_type_symbol; |
4157 ADD_PARAM_LIST(&IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) |
4157 ADD_PARAM_LIST(IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) |
4158 symbol_c * return_type_symbol = &search_constant_type_c::lint_type_name; |
4158 symbol_c * return_type_symbol = &search_constant_type_c::lint_type_name; |
4159 function_type_prefix = return_type_symbol; |
4159 function_type_prefix = return_type_symbol; |
4160 break; |
4160 break; |
4161 |
4161 |
4162 } |
4162 } |
4174 case function_dt_to_dint : |
4174 case function_dt_to_dint : |
4175 { |
4175 { |
4176 symbol_c *last_type_symbol = NULL; |
4176 symbol_c *last_type_symbol = NULL; |
4177 |
4177 |
4178 { |
4178 { |
4179 identifier_c IN_param_name("IN"); |
4179 symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); |
4180 /* Get the value from a foo(<param_name> = <param_value>) style call */ |
4180 /* Get the value from a foo(<param_name> = <param_value>) style call */ |
4181 symbol_c *IN_param_value = &this->default_variable_name; |
4181 symbol_c *IN_param_value = &this->default_variable_name; |
4182 |
4182 |
4183 symbol_c *IN_type_symbol = param_data_type; |
4183 symbol_c *IN_type_symbol = param_data_type; |
4184 last_type_symbol = param_data_type; |
4184 last_type_symbol = param_data_type; |
4188 |
4188 |
4189 function_name = (symbol_c*)(new pragma_c("__time_to_int")); |
4189 function_name = (symbol_c*)(new pragma_c("__time_to_int")); |
4190 |
4190 |
4191 if (IN_type_symbol == NULL) |
4191 if (IN_type_symbol == NULL) |
4192 IN_type_symbol = last_type_symbol; |
4192 IN_type_symbol = last_type_symbol; |
4193 ADD_PARAM_LIST(&IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) |
4193 ADD_PARAM_LIST(IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) |
4194 symbol_c * return_type_symbol = &search_constant_type_c::dint_type_name; |
4194 symbol_c * return_type_symbol = &search_constant_type_c::dint_type_name; |
4195 function_type_prefix = return_type_symbol; |
4195 function_type_prefix = return_type_symbol; |
4196 break; |
4196 break; |
4197 |
4197 |
4198 } |
4198 } |
4210 case function_dt_to_dword : |
4210 case function_dt_to_dword : |
4211 { |
4211 { |
4212 symbol_c *last_type_symbol = NULL; |
4212 symbol_c *last_type_symbol = NULL; |
4213 |
4213 |
4214 { |
4214 { |
4215 identifier_c IN_param_name("IN"); |
4215 symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); |
4216 /* Get the value from a foo(<param_name> = <param_value>) style call */ |
4216 /* Get the value from a foo(<param_name> = <param_value>) style call */ |
4217 symbol_c *IN_param_value = &this->default_variable_name; |
4217 symbol_c *IN_param_value = &this->default_variable_name; |
4218 |
4218 |
4219 symbol_c *IN_type_symbol = param_data_type; |
4219 symbol_c *IN_type_symbol = param_data_type; |
4220 last_type_symbol = param_data_type; |
4220 last_type_symbol = param_data_type; |
4224 |
4224 |
4225 function_name = (symbol_c*)(new pragma_c("__time_to_int")); |
4225 function_name = (symbol_c*)(new pragma_c("__time_to_int")); |
4226 |
4226 |
4227 if (IN_type_symbol == NULL) |
4227 if (IN_type_symbol == NULL) |
4228 IN_type_symbol = last_type_symbol; |
4228 IN_type_symbol = last_type_symbol; |
4229 ADD_PARAM_LIST(&IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) |
4229 ADD_PARAM_LIST(IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) |
4230 symbol_c * return_type_symbol = &search_constant_type_c::dword_type_name; |
4230 symbol_c * return_type_symbol = &search_constant_type_c::dword_type_name; |
4231 function_type_prefix = return_type_symbol; |
4231 function_type_prefix = return_type_symbol; |
4232 break; |
4232 break; |
4233 |
4233 |
4234 } |
4234 } |
4246 case function_dt_to_udint : |
4246 case function_dt_to_udint : |
4247 { |
4247 { |
4248 symbol_c *last_type_symbol = NULL; |
4248 symbol_c *last_type_symbol = NULL; |
4249 |
4249 |
4250 { |
4250 { |
4251 identifier_c IN_param_name("IN"); |
4251 symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); |
4252 /* Get the value from a foo(<param_name> = <param_value>) style call */ |
4252 /* Get the value from a foo(<param_name> = <param_value>) style call */ |
4253 symbol_c *IN_param_value = &this->default_variable_name; |
4253 symbol_c *IN_param_value = &this->default_variable_name; |
4254 |
4254 |
4255 symbol_c *IN_type_symbol = param_data_type; |
4255 symbol_c *IN_type_symbol = param_data_type; |
4256 last_type_symbol = param_data_type; |
4256 last_type_symbol = param_data_type; |
4260 |
4260 |
4261 function_name = (symbol_c*)(new pragma_c("__time_to_int")); |
4261 function_name = (symbol_c*)(new pragma_c("__time_to_int")); |
4262 |
4262 |
4263 if (IN_type_symbol == NULL) |
4263 if (IN_type_symbol == NULL) |
4264 IN_type_symbol = last_type_symbol; |
4264 IN_type_symbol = last_type_symbol; |
4265 ADD_PARAM_LIST(&IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) |
4265 ADD_PARAM_LIST(IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) |
4266 symbol_c * return_type_symbol = &search_constant_type_c::udint_type_name; |
4266 symbol_c * return_type_symbol = &search_constant_type_c::udint_type_name; |
4267 function_type_prefix = return_type_symbol; |
4267 function_type_prefix = return_type_symbol; |
4268 break; |
4268 break; |
4269 |
4269 |
4270 } |
4270 } |
4282 case function_dt_to_word : |
4282 case function_dt_to_word : |
4283 { |
4283 { |
4284 symbol_c *last_type_symbol = NULL; |
4284 symbol_c *last_type_symbol = NULL; |
4285 |
4285 |
4286 { |
4286 { |
4287 identifier_c IN_param_name("IN"); |
4287 symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); |
4288 /* Get the value from a foo(<param_name> = <param_value>) style call */ |
4288 /* Get the value from a foo(<param_name> = <param_value>) style call */ |
4289 symbol_c *IN_param_value = &this->default_variable_name; |
4289 symbol_c *IN_param_value = &this->default_variable_name; |
4290 |
4290 |
4291 symbol_c *IN_type_symbol = param_data_type; |
4291 symbol_c *IN_type_symbol = param_data_type; |
4292 last_type_symbol = param_data_type; |
4292 last_type_symbol = param_data_type; |
4296 |
4296 |
4297 function_name = (symbol_c*)(new pragma_c("__time_to_int")); |
4297 function_name = (symbol_c*)(new pragma_c("__time_to_int")); |
4298 |
4298 |
4299 if (IN_type_symbol == NULL) |
4299 if (IN_type_symbol == NULL) |
4300 IN_type_symbol = last_type_symbol; |
4300 IN_type_symbol = last_type_symbol; |
4301 ADD_PARAM_LIST(&IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) |
4301 ADD_PARAM_LIST(IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) |
4302 symbol_c * return_type_symbol = &search_constant_type_c::word_type_name; |
4302 symbol_c * return_type_symbol = &search_constant_type_c::word_type_name; |
4303 function_type_prefix = return_type_symbol; |
4303 function_type_prefix = return_type_symbol; |
4304 break; |
4304 break; |
4305 |
4305 |
4306 } |
4306 } |
4318 case function_dt_to_string : |
4318 case function_dt_to_string : |
4319 { |
4319 { |
4320 symbol_c *last_type_symbol = NULL; |
4320 symbol_c *last_type_symbol = NULL; |
4321 |
4321 |
4322 { |
4322 { |
4323 identifier_c IN_param_name("IN"); |
4323 symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); |
4324 /* Get the value from a foo(<param_name> = <param_value>) style call */ |
4324 /* Get the value from a foo(<param_name> = <param_value>) style call */ |
4325 symbol_c *IN_param_value = &this->default_variable_name; |
4325 symbol_c *IN_param_value = &this->default_variable_name; |
4326 |
4326 |
4327 symbol_c *IN_type_symbol = param_data_type; |
4327 symbol_c *IN_type_symbol = param_data_type; |
4328 last_type_symbol = param_data_type; |
4328 last_type_symbol = param_data_type; |
4332 |
4332 |
4333 function_name = (symbol_c*)(new pragma_c("__dt_to_string")); |
4333 function_name = (symbol_c*)(new pragma_c("__dt_to_string")); |
4334 |
4334 |
4335 if (IN_type_symbol == NULL) |
4335 if (IN_type_symbol == NULL) |
4336 IN_type_symbol = last_type_symbol; |
4336 IN_type_symbol = last_type_symbol; |
4337 ADD_PARAM_LIST(&IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) |
4337 ADD_PARAM_LIST(IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) |
4338 symbol_c * return_type_symbol = &search_constant_type_c::string_type_name; |
4338 symbol_c * return_type_symbol = &search_constant_type_c::string_type_name; |
4339 function_type_prefix = return_type_symbol; |
4339 function_type_prefix = return_type_symbol; |
4340 break; |
4340 break; |
4341 |
4341 |
4342 } |
4342 } |
4354 case function_dt_to_lword : |
4354 case function_dt_to_lword : |
4355 { |
4355 { |
4356 symbol_c *last_type_symbol = NULL; |
4356 symbol_c *last_type_symbol = NULL; |
4357 |
4357 |
4358 { |
4358 { |
4359 identifier_c IN_param_name("IN"); |
4359 symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); |
4360 /* Get the value from a foo(<param_name> = <param_value>) style call */ |
4360 /* Get the value from a foo(<param_name> = <param_value>) style call */ |
4361 symbol_c *IN_param_value = &this->default_variable_name; |
4361 symbol_c *IN_param_value = &this->default_variable_name; |
4362 |
4362 |
4363 symbol_c *IN_type_symbol = param_data_type; |
4363 symbol_c *IN_type_symbol = param_data_type; |
4364 last_type_symbol = param_data_type; |
4364 last_type_symbol = param_data_type; |
4368 |
4368 |
4369 function_name = (symbol_c*)(new pragma_c("__time_to_int")); |
4369 function_name = (symbol_c*)(new pragma_c("__time_to_int")); |
4370 |
4370 |
4371 if (IN_type_symbol == NULL) |
4371 if (IN_type_symbol == NULL) |
4372 IN_type_symbol = last_type_symbol; |
4372 IN_type_symbol = last_type_symbol; |
4373 ADD_PARAM_LIST(&IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) |
4373 ADD_PARAM_LIST(IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) |
4374 symbol_c * return_type_symbol = &search_constant_type_c::lword_type_name; |
4374 symbol_c * return_type_symbol = &search_constant_type_c::lword_type_name; |
4375 function_type_prefix = return_type_symbol; |
4375 function_type_prefix = return_type_symbol; |
4376 break; |
4376 break; |
4377 |
4377 |
4378 } |
4378 } |
4390 case function_dt_to_uint : |
4390 case function_dt_to_uint : |
4391 { |
4391 { |
4392 symbol_c *last_type_symbol = NULL; |
4392 symbol_c *last_type_symbol = NULL; |
4393 |
4393 |
4394 { |
4394 { |
4395 identifier_c IN_param_name("IN"); |
4395 symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); |
4396 /* Get the value from a foo(<param_name> = <param_value>) style call */ |
4396 /* Get the value from a foo(<param_name> = <param_value>) style call */ |
4397 symbol_c *IN_param_value = &this->default_variable_name; |
4397 symbol_c *IN_param_value = &this->default_variable_name; |
4398 |
4398 |
4399 symbol_c *IN_type_symbol = param_data_type; |
4399 symbol_c *IN_type_symbol = param_data_type; |
4400 last_type_symbol = param_data_type; |
4400 last_type_symbol = param_data_type; |
4404 |
4404 |
4405 function_name = (symbol_c*)(new pragma_c("__time_to_int")); |
4405 function_name = (symbol_c*)(new pragma_c("__time_to_int")); |
4406 |
4406 |
4407 if (IN_type_symbol == NULL) |
4407 if (IN_type_symbol == NULL) |
4408 IN_type_symbol = last_type_symbol; |
4408 IN_type_symbol = last_type_symbol; |
4409 ADD_PARAM_LIST(&IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) |
4409 ADD_PARAM_LIST(IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) |
4410 symbol_c * return_type_symbol = &search_constant_type_c::uint_type_name; |
4410 symbol_c * return_type_symbol = &search_constant_type_c::uint_type_name; |
4411 function_type_prefix = return_type_symbol; |
4411 function_type_prefix = return_type_symbol; |
4412 break; |
4412 break; |
4413 |
4413 |
4414 } |
4414 } |
4426 case function_dt_to_lreal : |
4426 case function_dt_to_lreal : |
4427 { |
4427 { |
4428 symbol_c *last_type_symbol = NULL; |
4428 symbol_c *last_type_symbol = NULL; |
4429 |
4429 |
4430 { |
4430 { |
4431 identifier_c IN_param_name("IN"); |
4431 symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); |
4432 /* Get the value from a foo(<param_name> = <param_value>) style call */ |
4432 /* Get the value from a foo(<param_name> = <param_value>) style call */ |
4433 symbol_c *IN_param_value = &this->default_variable_name; |
4433 symbol_c *IN_param_value = &this->default_variable_name; |
4434 |
4434 |
4435 symbol_c *IN_type_symbol = param_data_type; |
4435 symbol_c *IN_type_symbol = param_data_type; |
4436 last_type_symbol = param_data_type; |
4436 last_type_symbol = param_data_type; |
4440 |
4440 |
4441 function_name = (symbol_c*)(new pragma_c("__time_to_real")); |
4441 function_name = (symbol_c*)(new pragma_c("__time_to_real")); |
4442 |
4442 |
4443 if (IN_type_symbol == NULL) |
4443 if (IN_type_symbol == NULL) |
4444 IN_type_symbol = last_type_symbol; |
4444 IN_type_symbol = last_type_symbol; |
4445 ADD_PARAM_LIST(&IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) |
4445 ADD_PARAM_LIST(IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) |
4446 symbol_c * return_type_symbol = &search_constant_type_c::lreal_type_name; |
4446 symbol_c * return_type_symbol = &search_constant_type_c::lreal_type_name; |
4447 function_type_prefix = return_type_symbol; |
4447 function_type_prefix = return_type_symbol; |
4448 break; |
4448 break; |
4449 |
4449 |
4450 } |
4450 } |
4462 case function_dt_to_byte : |
4462 case function_dt_to_byte : |
4463 { |
4463 { |
4464 symbol_c *last_type_symbol = NULL; |
4464 symbol_c *last_type_symbol = NULL; |
4465 |
4465 |
4466 { |
4466 { |
4467 identifier_c IN_param_name("IN"); |
4467 symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); |
4468 /* Get the value from a foo(<param_name> = <param_value>) style call */ |
4468 /* Get the value from a foo(<param_name> = <param_value>) style call */ |
4469 symbol_c *IN_param_value = &this->default_variable_name; |
4469 symbol_c *IN_param_value = &this->default_variable_name; |
4470 |
4470 |
4471 symbol_c *IN_type_symbol = param_data_type; |
4471 symbol_c *IN_type_symbol = param_data_type; |
4472 last_type_symbol = param_data_type; |
4472 last_type_symbol = param_data_type; |
4476 |
4476 |
4477 function_name = (symbol_c*)(new pragma_c("__time_to_int")); |
4477 function_name = (symbol_c*)(new pragma_c("__time_to_int")); |
4478 |
4478 |
4479 if (IN_type_symbol == NULL) |
4479 if (IN_type_symbol == NULL) |
4480 IN_type_symbol = last_type_symbol; |
4480 IN_type_symbol = last_type_symbol; |
4481 ADD_PARAM_LIST(&IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) |
4481 ADD_PARAM_LIST(IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) |
4482 symbol_c * return_type_symbol = &search_constant_type_c::byte_type_name; |
4482 symbol_c * return_type_symbol = &search_constant_type_c::byte_type_name; |
4483 function_type_prefix = return_type_symbol; |
4483 function_type_prefix = return_type_symbol; |
4484 break; |
4484 break; |
4485 |
4485 |
4486 } |
4486 } |
4498 case function_dt_to_usint : |
4498 case function_dt_to_usint : |
4499 { |
4499 { |
4500 symbol_c *last_type_symbol = NULL; |
4500 symbol_c *last_type_symbol = NULL; |
4501 |
4501 |
4502 { |
4502 { |
4503 identifier_c IN_param_name("IN"); |
4503 symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); |
4504 /* Get the value from a foo(<param_name> = <param_value>) style call */ |
4504 /* Get the value from a foo(<param_name> = <param_value>) style call */ |
4505 symbol_c *IN_param_value = &this->default_variable_name; |
4505 symbol_c *IN_param_value = &this->default_variable_name; |
4506 |
4506 |
4507 symbol_c *IN_type_symbol = param_data_type; |
4507 symbol_c *IN_type_symbol = param_data_type; |
4508 last_type_symbol = param_data_type; |
4508 last_type_symbol = param_data_type; |
4512 |
4512 |
4513 function_name = (symbol_c*)(new pragma_c("__time_to_int")); |
4513 function_name = (symbol_c*)(new pragma_c("__time_to_int")); |
4514 |
4514 |
4515 if (IN_type_symbol == NULL) |
4515 if (IN_type_symbol == NULL) |
4516 IN_type_symbol = last_type_symbol; |
4516 IN_type_symbol = last_type_symbol; |
4517 ADD_PARAM_LIST(&IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) |
4517 ADD_PARAM_LIST(IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) |
4518 symbol_c * return_type_symbol = &search_constant_type_c::usint_type_name; |
4518 symbol_c * return_type_symbol = &search_constant_type_c::usint_type_name; |
4519 function_type_prefix = return_type_symbol; |
4519 function_type_prefix = return_type_symbol; |
4520 break; |
4520 break; |
4521 |
4521 |
4522 } |
4522 } |
4534 case function_dt_to_ulint : |
4534 case function_dt_to_ulint : |
4535 { |
4535 { |
4536 symbol_c *last_type_symbol = NULL; |
4536 symbol_c *last_type_symbol = NULL; |
4537 |
4537 |
4538 { |
4538 { |
4539 identifier_c IN_param_name("IN"); |
4539 symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); |
4540 /* Get the value from a foo(<param_name> = <param_value>) style call */ |
4540 /* Get the value from a foo(<param_name> = <param_value>) style call */ |
4541 symbol_c *IN_param_value = &this->default_variable_name; |
4541 symbol_c *IN_param_value = &this->default_variable_name; |
4542 |
4542 |
4543 symbol_c *IN_type_symbol = param_data_type; |
4543 symbol_c *IN_type_symbol = param_data_type; |
4544 last_type_symbol = param_data_type; |
4544 last_type_symbol = param_data_type; |
4548 |
4548 |
4549 function_name = (symbol_c*)(new pragma_c("__time_to_int")); |
4549 function_name = (symbol_c*)(new pragma_c("__time_to_int")); |
4550 |
4550 |
4551 if (IN_type_symbol == NULL) |
4551 if (IN_type_symbol == NULL) |
4552 IN_type_symbol = last_type_symbol; |
4552 IN_type_symbol = last_type_symbol; |
4553 ADD_PARAM_LIST(&IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) |
4553 ADD_PARAM_LIST(IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) |
4554 symbol_c * return_type_symbol = &search_constant_type_c::ulint_type_name; |
4554 symbol_c * return_type_symbol = &search_constant_type_c::ulint_type_name; |
4555 function_type_prefix = return_type_symbol; |
4555 function_type_prefix = return_type_symbol; |
4556 break; |
4556 break; |
4557 |
4557 |
4558 } |
4558 } |
4570 case function_dt_to_int : |
4570 case function_dt_to_int : |
4571 { |
4571 { |
4572 symbol_c *last_type_symbol = NULL; |
4572 symbol_c *last_type_symbol = NULL; |
4573 |
4573 |
4574 { |
4574 { |
4575 identifier_c IN_param_name("IN"); |
4575 symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); |
4576 /* Get the value from a foo(<param_name> = <param_value>) style call */ |
4576 /* Get the value from a foo(<param_name> = <param_value>) style call */ |
4577 symbol_c *IN_param_value = &this->default_variable_name; |
4577 symbol_c *IN_param_value = &this->default_variable_name; |
4578 |
4578 |
4579 symbol_c *IN_type_symbol = param_data_type; |
4579 symbol_c *IN_type_symbol = param_data_type; |
4580 last_type_symbol = param_data_type; |
4580 last_type_symbol = param_data_type; |
4584 |
4584 |
4585 function_name = (symbol_c*)(new pragma_c("__time_to_int")); |
4585 function_name = (symbol_c*)(new pragma_c("__time_to_int")); |
4586 |
4586 |
4587 if (IN_type_symbol == NULL) |
4587 if (IN_type_symbol == NULL) |
4588 IN_type_symbol = last_type_symbol; |
4588 IN_type_symbol = last_type_symbol; |
4589 ADD_PARAM_LIST(&IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) |
4589 ADD_PARAM_LIST(IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) |
4590 symbol_c * return_type_symbol = &search_constant_type_c::int_type_name; |
4590 symbol_c * return_type_symbol = &search_constant_type_c::int_type_name; |
4591 function_type_prefix = return_type_symbol; |
4591 function_type_prefix = return_type_symbol; |
4592 break; |
4592 break; |
4593 |
4593 |
4594 } |
4594 } |
4606 case function_tod_to_real : |
4606 case function_tod_to_real : |
4607 { |
4607 { |
4608 symbol_c *last_type_symbol = NULL; |
4608 symbol_c *last_type_symbol = NULL; |
4609 |
4609 |
4610 { |
4610 { |
4611 identifier_c IN_param_name("IN"); |
4611 symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); |
4612 /* Get the value from a foo(<param_name> = <param_value>) style call */ |
4612 /* Get the value from a foo(<param_name> = <param_value>) style call */ |
4613 symbol_c *IN_param_value = &this->default_variable_name; |
4613 symbol_c *IN_param_value = &this->default_variable_name; |
4614 |
4614 |
4615 symbol_c *IN_type_symbol = param_data_type; |
4615 symbol_c *IN_type_symbol = param_data_type; |
4616 last_type_symbol = param_data_type; |
4616 last_type_symbol = param_data_type; |
4620 |
4620 |
4621 function_name = (symbol_c*)(new pragma_c("__time_to_real")); |
4621 function_name = (symbol_c*)(new pragma_c("__time_to_real")); |
4622 |
4622 |
4623 if (IN_type_symbol == NULL) |
4623 if (IN_type_symbol == NULL) |
4624 IN_type_symbol = last_type_symbol; |
4624 IN_type_symbol = last_type_symbol; |
4625 ADD_PARAM_LIST(&IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) |
4625 ADD_PARAM_LIST(IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) |
4626 symbol_c * return_type_symbol = &search_constant_type_c::real_type_name; |
4626 symbol_c * return_type_symbol = &search_constant_type_c::real_type_name; |
4627 function_type_prefix = return_type_symbol; |
4627 function_type_prefix = return_type_symbol; |
4628 break; |
4628 break; |
4629 |
4629 |
4630 } |
4630 } |
4642 case function_tod_to_sint : |
4642 case function_tod_to_sint : |
4643 { |
4643 { |
4644 symbol_c *last_type_symbol = NULL; |
4644 symbol_c *last_type_symbol = NULL; |
4645 |
4645 |
4646 { |
4646 { |
4647 identifier_c IN_param_name("IN"); |
4647 symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); |
4648 /* Get the value from a foo(<param_name> = <param_value>) style call */ |
4648 /* Get the value from a foo(<param_name> = <param_value>) style call */ |
4649 symbol_c *IN_param_value = &this->default_variable_name; |
4649 symbol_c *IN_param_value = &this->default_variable_name; |
4650 |
4650 |
4651 symbol_c *IN_type_symbol = param_data_type; |
4651 symbol_c *IN_type_symbol = param_data_type; |
4652 last_type_symbol = param_data_type; |
4652 last_type_symbol = param_data_type; |
4656 |
4656 |
4657 function_name = (symbol_c*)(new pragma_c("__time_to_int")); |
4657 function_name = (symbol_c*)(new pragma_c("__time_to_int")); |
4658 |
4658 |
4659 if (IN_type_symbol == NULL) |
4659 if (IN_type_symbol == NULL) |
4660 IN_type_symbol = last_type_symbol; |
4660 IN_type_symbol = last_type_symbol; |
4661 ADD_PARAM_LIST(&IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) |
4661 ADD_PARAM_LIST(IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) |
4662 symbol_c * return_type_symbol = &search_constant_type_c::sint_type_name; |
4662 symbol_c * return_type_symbol = &search_constant_type_c::sint_type_name; |
4663 function_type_prefix = return_type_symbol; |
4663 function_type_prefix = return_type_symbol; |
4664 break; |
4664 break; |
4665 |
4665 |
4666 } |
4666 } |
4678 case function_tod_to_lint : |
4678 case function_tod_to_lint : |
4679 { |
4679 { |
4680 symbol_c *last_type_symbol = NULL; |
4680 symbol_c *last_type_symbol = NULL; |
4681 |
4681 |
4682 { |
4682 { |
4683 identifier_c IN_param_name("IN"); |
4683 symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); |
4684 /* Get the value from a foo(<param_name> = <param_value>) style call */ |
4684 /* Get the value from a foo(<param_name> = <param_value>) style call */ |
4685 symbol_c *IN_param_value = &this->default_variable_name; |
4685 symbol_c *IN_param_value = &this->default_variable_name; |
4686 |
4686 |
4687 symbol_c *IN_type_symbol = param_data_type; |
4687 symbol_c *IN_type_symbol = param_data_type; |
4688 last_type_symbol = param_data_type; |
4688 last_type_symbol = param_data_type; |
4692 |
4692 |
4693 function_name = (symbol_c*)(new pragma_c("__time_to_int")); |
4693 function_name = (symbol_c*)(new pragma_c("__time_to_int")); |
4694 |
4694 |
4695 if (IN_type_symbol == NULL) |
4695 if (IN_type_symbol == NULL) |
4696 IN_type_symbol = last_type_symbol; |
4696 IN_type_symbol = last_type_symbol; |
4697 ADD_PARAM_LIST(&IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) |
4697 ADD_PARAM_LIST(IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) |
4698 symbol_c * return_type_symbol = &search_constant_type_c::lint_type_name; |
4698 symbol_c * return_type_symbol = &search_constant_type_c::lint_type_name; |
4699 function_type_prefix = return_type_symbol; |
4699 function_type_prefix = return_type_symbol; |
4700 break; |
4700 break; |
4701 |
4701 |
4702 } |
4702 } |
4714 case function_tod_to_dint : |
4714 case function_tod_to_dint : |
4715 { |
4715 { |
4716 symbol_c *last_type_symbol = NULL; |
4716 symbol_c *last_type_symbol = NULL; |
4717 |
4717 |
4718 { |
4718 { |
4719 identifier_c IN_param_name("IN"); |
4719 symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); |
4720 /* Get the value from a foo(<param_name> = <param_value>) style call */ |
4720 /* Get the value from a foo(<param_name> = <param_value>) style call */ |
4721 symbol_c *IN_param_value = &this->default_variable_name; |
4721 symbol_c *IN_param_value = &this->default_variable_name; |
4722 |
4722 |
4723 symbol_c *IN_type_symbol = param_data_type; |
4723 symbol_c *IN_type_symbol = param_data_type; |
4724 last_type_symbol = param_data_type; |
4724 last_type_symbol = param_data_type; |
4728 |
4728 |
4729 function_name = (symbol_c*)(new pragma_c("__time_to_int")); |
4729 function_name = (symbol_c*)(new pragma_c("__time_to_int")); |
4730 |
4730 |
4731 if (IN_type_symbol == NULL) |
4731 if (IN_type_symbol == NULL) |
4732 IN_type_symbol = last_type_symbol; |
4732 IN_type_symbol = last_type_symbol; |
4733 ADD_PARAM_LIST(&IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) |
4733 ADD_PARAM_LIST(IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) |
4734 symbol_c * return_type_symbol = &search_constant_type_c::dint_type_name; |
4734 symbol_c * return_type_symbol = &search_constant_type_c::dint_type_name; |
4735 function_type_prefix = return_type_symbol; |
4735 function_type_prefix = return_type_symbol; |
4736 break; |
4736 break; |
4737 |
4737 |
4738 } |
4738 } |
4750 case function_tod_to_dword : |
4750 case function_tod_to_dword : |
4751 { |
4751 { |
4752 symbol_c *last_type_symbol = NULL; |
4752 symbol_c *last_type_symbol = NULL; |
4753 |
4753 |
4754 { |
4754 { |
4755 identifier_c IN_param_name("IN"); |
4755 symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); |
4756 /* Get the value from a foo(<param_name> = <param_value>) style call */ |
4756 /* Get the value from a foo(<param_name> = <param_value>) style call */ |
4757 symbol_c *IN_param_value = &this->default_variable_name; |
4757 symbol_c *IN_param_value = &this->default_variable_name; |
4758 |
4758 |
4759 symbol_c *IN_type_symbol = param_data_type; |
4759 symbol_c *IN_type_symbol = param_data_type; |
4760 last_type_symbol = param_data_type; |
4760 last_type_symbol = param_data_type; |
4764 |
4764 |
4765 function_name = (symbol_c*)(new pragma_c("__time_to_int")); |
4765 function_name = (symbol_c*)(new pragma_c("__time_to_int")); |
4766 |
4766 |
4767 if (IN_type_symbol == NULL) |
4767 if (IN_type_symbol == NULL) |
4768 IN_type_symbol = last_type_symbol; |
4768 IN_type_symbol = last_type_symbol; |
4769 ADD_PARAM_LIST(&IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) |
4769 ADD_PARAM_LIST(IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) |
4770 symbol_c * return_type_symbol = &search_constant_type_c::dword_type_name; |
4770 symbol_c * return_type_symbol = &search_constant_type_c::dword_type_name; |
4771 function_type_prefix = return_type_symbol; |
4771 function_type_prefix = return_type_symbol; |
4772 break; |
4772 break; |
4773 |
4773 |
4774 } |
4774 } |
4786 case function_tod_to_udint : |
4786 case function_tod_to_udint : |
4787 { |
4787 { |
4788 symbol_c *last_type_symbol = NULL; |
4788 symbol_c *last_type_symbol = NULL; |
4789 |
4789 |
4790 { |
4790 { |
4791 identifier_c IN_param_name("IN"); |
4791 symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); |
4792 /* Get the value from a foo(<param_name> = <param_value>) style call */ |
4792 /* Get the value from a foo(<param_name> = <param_value>) style call */ |
4793 symbol_c *IN_param_value = &this->default_variable_name; |
4793 symbol_c *IN_param_value = &this->default_variable_name; |
4794 |
4794 |
4795 symbol_c *IN_type_symbol = param_data_type; |
4795 symbol_c *IN_type_symbol = param_data_type; |
4796 last_type_symbol = param_data_type; |
4796 last_type_symbol = param_data_type; |
4800 |
4800 |
4801 function_name = (symbol_c*)(new pragma_c("__time_to_int")); |
4801 function_name = (symbol_c*)(new pragma_c("__time_to_int")); |
4802 |
4802 |
4803 if (IN_type_symbol == NULL) |
4803 if (IN_type_symbol == NULL) |
4804 IN_type_symbol = last_type_symbol; |
4804 IN_type_symbol = last_type_symbol; |
4805 ADD_PARAM_LIST(&IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) |
4805 ADD_PARAM_LIST(IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) |
4806 symbol_c * return_type_symbol = &search_constant_type_c::udint_type_name; |
4806 symbol_c * return_type_symbol = &search_constant_type_c::udint_type_name; |
4807 function_type_prefix = return_type_symbol; |
4807 function_type_prefix = return_type_symbol; |
4808 break; |
4808 break; |
4809 |
4809 |
4810 } |
4810 } |
4822 case function_tod_to_word : |
4822 case function_tod_to_word : |
4823 { |
4823 { |
4824 symbol_c *last_type_symbol = NULL; |
4824 symbol_c *last_type_symbol = NULL; |
4825 |
4825 |
4826 { |
4826 { |
4827 identifier_c IN_param_name("IN"); |
4827 symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); |
4828 /* Get the value from a foo(<param_name> = <param_value>) style call */ |
4828 /* Get the value from a foo(<param_name> = <param_value>) style call */ |
4829 symbol_c *IN_param_value = &this->default_variable_name; |
4829 symbol_c *IN_param_value = &this->default_variable_name; |
4830 |
4830 |
4831 symbol_c *IN_type_symbol = param_data_type; |
4831 symbol_c *IN_type_symbol = param_data_type; |
4832 last_type_symbol = param_data_type; |
4832 last_type_symbol = param_data_type; |
4836 |
4836 |
4837 function_name = (symbol_c*)(new pragma_c("__time_to_int")); |
4837 function_name = (symbol_c*)(new pragma_c("__time_to_int")); |
4838 |
4838 |
4839 if (IN_type_symbol == NULL) |
4839 if (IN_type_symbol == NULL) |
4840 IN_type_symbol = last_type_symbol; |
4840 IN_type_symbol = last_type_symbol; |
4841 ADD_PARAM_LIST(&IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) |
4841 ADD_PARAM_LIST(IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) |
4842 symbol_c * return_type_symbol = &search_constant_type_c::word_type_name; |
4842 symbol_c * return_type_symbol = &search_constant_type_c::word_type_name; |
4843 function_type_prefix = return_type_symbol; |
4843 function_type_prefix = return_type_symbol; |
4844 break; |
4844 break; |
4845 |
4845 |
4846 } |
4846 } |
4858 case function_tod_to_string : |
4858 case function_tod_to_string : |
4859 { |
4859 { |
4860 symbol_c *last_type_symbol = NULL; |
4860 symbol_c *last_type_symbol = NULL; |
4861 |
4861 |
4862 { |
4862 { |
4863 identifier_c IN_param_name("IN"); |
4863 symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); |
4864 /* Get the value from a foo(<param_name> = <param_value>) style call */ |
4864 /* Get the value from a foo(<param_name> = <param_value>) style call */ |
4865 symbol_c *IN_param_value = &this->default_variable_name; |
4865 symbol_c *IN_param_value = &this->default_variable_name; |
4866 |
4866 |
4867 symbol_c *IN_type_symbol = param_data_type; |
4867 symbol_c *IN_type_symbol = param_data_type; |
4868 last_type_symbol = param_data_type; |
4868 last_type_symbol = param_data_type; |
4872 |
4872 |
4873 function_name = (symbol_c*)(new pragma_c("__tod_to_string")); |
4873 function_name = (symbol_c*)(new pragma_c("__tod_to_string")); |
4874 |
4874 |
4875 if (IN_type_symbol == NULL) |
4875 if (IN_type_symbol == NULL) |
4876 IN_type_symbol = last_type_symbol; |
4876 IN_type_symbol = last_type_symbol; |
4877 ADD_PARAM_LIST(&IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) |
4877 ADD_PARAM_LIST(IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) |
4878 symbol_c * return_type_symbol = &search_constant_type_c::string_type_name; |
4878 symbol_c * return_type_symbol = &search_constant_type_c::string_type_name; |
4879 function_type_prefix = return_type_symbol; |
4879 function_type_prefix = return_type_symbol; |
4880 break; |
4880 break; |
4881 |
4881 |
4882 } |
4882 } |
4894 case function_tod_to_lword : |
4894 case function_tod_to_lword : |
4895 { |
4895 { |
4896 symbol_c *last_type_symbol = NULL; |
4896 symbol_c *last_type_symbol = NULL; |
4897 |
4897 |
4898 { |
4898 { |
4899 identifier_c IN_param_name("IN"); |
4899 symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); |
4900 /* Get the value from a foo(<param_name> = <param_value>) style call */ |
4900 /* Get the value from a foo(<param_name> = <param_value>) style call */ |
4901 symbol_c *IN_param_value = &this->default_variable_name; |
4901 symbol_c *IN_param_value = &this->default_variable_name; |
4902 |
4902 |
4903 symbol_c *IN_type_symbol = param_data_type; |
4903 symbol_c *IN_type_symbol = param_data_type; |
4904 last_type_symbol = param_data_type; |
4904 last_type_symbol = param_data_type; |
4908 |
4908 |
4909 function_name = (symbol_c*)(new pragma_c("__time_to_int")); |
4909 function_name = (symbol_c*)(new pragma_c("__time_to_int")); |
4910 |
4910 |
4911 if (IN_type_symbol == NULL) |
4911 if (IN_type_symbol == NULL) |
4912 IN_type_symbol = last_type_symbol; |
4912 IN_type_symbol = last_type_symbol; |
4913 ADD_PARAM_LIST(&IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) |
4913 ADD_PARAM_LIST(IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) |
4914 symbol_c * return_type_symbol = &search_constant_type_c::lword_type_name; |
4914 symbol_c * return_type_symbol = &search_constant_type_c::lword_type_name; |
4915 function_type_prefix = return_type_symbol; |
4915 function_type_prefix = return_type_symbol; |
4916 break; |
4916 break; |
4917 |
4917 |
4918 } |
4918 } |
4930 case function_tod_to_uint : |
4930 case function_tod_to_uint : |
4931 { |
4931 { |
4932 symbol_c *last_type_symbol = NULL; |
4932 symbol_c *last_type_symbol = NULL; |
4933 |
4933 |
4934 { |
4934 { |
4935 identifier_c IN_param_name("IN"); |
4935 symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); |
4936 /* Get the value from a foo(<param_name> = <param_value>) style call */ |
4936 /* Get the value from a foo(<param_name> = <param_value>) style call */ |
4937 symbol_c *IN_param_value = &this->default_variable_name; |
4937 symbol_c *IN_param_value = &this->default_variable_name; |
4938 |
4938 |
4939 symbol_c *IN_type_symbol = param_data_type; |
4939 symbol_c *IN_type_symbol = param_data_type; |
4940 last_type_symbol = param_data_type; |
4940 last_type_symbol = param_data_type; |
4944 |
4944 |
4945 function_name = (symbol_c*)(new pragma_c("__time_to_int")); |
4945 function_name = (symbol_c*)(new pragma_c("__time_to_int")); |
4946 |
4946 |
4947 if (IN_type_symbol == NULL) |
4947 if (IN_type_symbol == NULL) |
4948 IN_type_symbol = last_type_symbol; |
4948 IN_type_symbol = last_type_symbol; |
4949 ADD_PARAM_LIST(&IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) |
4949 ADD_PARAM_LIST(IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) |
4950 symbol_c * return_type_symbol = &search_constant_type_c::uint_type_name; |
4950 symbol_c * return_type_symbol = &search_constant_type_c::uint_type_name; |
4951 function_type_prefix = return_type_symbol; |
4951 function_type_prefix = return_type_symbol; |
4952 break; |
4952 break; |
4953 |
4953 |
4954 } |
4954 } |
4966 case function_tod_to_lreal : |
4966 case function_tod_to_lreal : |
4967 { |
4967 { |
4968 symbol_c *last_type_symbol = NULL; |
4968 symbol_c *last_type_symbol = NULL; |
4969 |
4969 |
4970 { |
4970 { |
4971 identifier_c IN_param_name("IN"); |
4971 symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); |
4972 /* Get the value from a foo(<param_name> = <param_value>) style call */ |
4972 /* Get the value from a foo(<param_name> = <param_value>) style call */ |
4973 symbol_c *IN_param_value = &this->default_variable_name; |
4973 symbol_c *IN_param_value = &this->default_variable_name; |
4974 |
4974 |
4975 symbol_c *IN_type_symbol = param_data_type; |
4975 symbol_c *IN_type_symbol = param_data_type; |
4976 last_type_symbol = param_data_type; |
4976 last_type_symbol = param_data_type; |
4980 |
4980 |
4981 function_name = (symbol_c*)(new pragma_c("__time_to_real")); |
4981 function_name = (symbol_c*)(new pragma_c("__time_to_real")); |
4982 |
4982 |
4983 if (IN_type_symbol == NULL) |
4983 if (IN_type_symbol == NULL) |
4984 IN_type_symbol = last_type_symbol; |
4984 IN_type_symbol = last_type_symbol; |
4985 ADD_PARAM_LIST(&IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) |
4985 ADD_PARAM_LIST(IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) |
4986 symbol_c * return_type_symbol = &search_constant_type_c::lreal_type_name; |
4986 symbol_c * return_type_symbol = &search_constant_type_c::lreal_type_name; |
4987 function_type_prefix = return_type_symbol; |
4987 function_type_prefix = return_type_symbol; |
4988 break; |
4988 break; |
4989 |
4989 |
4990 } |
4990 } |
5002 case function_tod_to_byte : |
5002 case function_tod_to_byte : |
5003 { |
5003 { |
5004 symbol_c *last_type_symbol = NULL; |
5004 symbol_c *last_type_symbol = NULL; |
5005 |
5005 |
5006 { |
5006 { |
5007 identifier_c IN_param_name("IN"); |
5007 symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); |
5008 /* Get the value from a foo(<param_name> = <param_value>) style call */ |
5008 /* Get the value from a foo(<param_name> = <param_value>) style call */ |
5009 symbol_c *IN_param_value = &this->default_variable_name; |
5009 symbol_c *IN_param_value = &this->default_variable_name; |
5010 |
5010 |
5011 symbol_c *IN_type_symbol = param_data_type; |
5011 symbol_c *IN_type_symbol = param_data_type; |
5012 last_type_symbol = param_data_type; |
5012 last_type_symbol = param_data_type; |
5016 |
5016 |
5017 function_name = (symbol_c*)(new pragma_c("__time_to_int")); |
5017 function_name = (symbol_c*)(new pragma_c("__time_to_int")); |
5018 |
5018 |
5019 if (IN_type_symbol == NULL) |
5019 if (IN_type_symbol == NULL) |
5020 IN_type_symbol = last_type_symbol; |
5020 IN_type_symbol = last_type_symbol; |
5021 ADD_PARAM_LIST(&IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) |
5021 ADD_PARAM_LIST(IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) |
5022 symbol_c * return_type_symbol = &search_constant_type_c::byte_type_name; |
5022 symbol_c * return_type_symbol = &search_constant_type_c::byte_type_name; |
5023 function_type_prefix = return_type_symbol; |
5023 function_type_prefix = return_type_symbol; |
5024 break; |
5024 break; |
5025 |
5025 |
5026 } |
5026 } |
5038 case function_tod_to_usint : |
5038 case function_tod_to_usint : |
5039 { |
5039 { |
5040 symbol_c *last_type_symbol = NULL; |
5040 symbol_c *last_type_symbol = NULL; |
5041 |
5041 |
5042 { |
5042 { |
5043 identifier_c IN_param_name("IN"); |
5043 symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); |
5044 /* Get the value from a foo(<param_name> = <param_value>) style call */ |
5044 /* Get the value from a foo(<param_name> = <param_value>) style call */ |
5045 symbol_c *IN_param_value = &this->default_variable_name; |
5045 symbol_c *IN_param_value = &this->default_variable_name; |
5046 |
5046 |
5047 symbol_c *IN_type_symbol = param_data_type; |
5047 symbol_c *IN_type_symbol = param_data_type; |
5048 last_type_symbol = param_data_type; |
5048 last_type_symbol = param_data_type; |
5052 |
5052 |
5053 function_name = (symbol_c*)(new pragma_c("__time_to_int")); |
5053 function_name = (symbol_c*)(new pragma_c("__time_to_int")); |
5054 |
5054 |
5055 if (IN_type_symbol == NULL) |
5055 if (IN_type_symbol == NULL) |
5056 IN_type_symbol = last_type_symbol; |
5056 IN_type_symbol = last_type_symbol; |
5057 ADD_PARAM_LIST(&IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) |
5057 ADD_PARAM_LIST(IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) |
5058 symbol_c * return_type_symbol = &search_constant_type_c::usint_type_name; |
5058 symbol_c * return_type_symbol = &search_constant_type_c::usint_type_name; |
5059 function_type_prefix = return_type_symbol; |
5059 function_type_prefix = return_type_symbol; |
5060 break; |
5060 break; |
5061 |
5061 |
5062 } |
5062 } |
5074 case function_tod_to_ulint : |
5074 case function_tod_to_ulint : |
5075 { |
5075 { |
5076 symbol_c *last_type_symbol = NULL; |
5076 symbol_c *last_type_symbol = NULL; |
5077 |
5077 |
5078 { |
5078 { |
5079 identifier_c IN_param_name("IN"); |
5079 symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); |
5080 /* Get the value from a foo(<param_name> = <param_value>) style call */ |
5080 /* Get the value from a foo(<param_name> = <param_value>) style call */ |
5081 symbol_c *IN_param_value = &this->default_variable_name; |
5081 symbol_c *IN_param_value = &this->default_variable_name; |
5082 |
5082 |
5083 symbol_c *IN_type_symbol = param_data_type; |
5083 symbol_c *IN_type_symbol = param_data_type; |
5084 last_type_symbol = param_data_type; |
5084 last_type_symbol = param_data_type; |
5088 |
5088 |
5089 function_name = (symbol_c*)(new pragma_c("__time_to_int")); |
5089 function_name = (symbol_c*)(new pragma_c("__time_to_int")); |
5090 |
5090 |
5091 if (IN_type_symbol == NULL) |
5091 if (IN_type_symbol == NULL) |
5092 IN_type_symbol = last_type_symbol; |
5092 IN_type_symbol = last_type_symbol; |
5093 ADD_PARAM_LIST(&IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) |
5093 ADD_PARAM_LIST(IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) |
5094 symbol_c * return_type_symbol = &search_constant_type_c::ulint_type_name; |
5094 symbol_c * return_type_symbol = &search_constant_type_c::ulint_type_name; |
5095 function_type_prefix = return_type_symbol; |
5095 function_type_prefix = return_type_symbol; |
5096 break; |
5096 break; |
5097 |
5097 |
5098 } |
5098 } |
5110 case function_tod_to_int : |
5110 case function_tod_to_int : |
5111 { |
5111 { |
5112 symbol_c *last_type_symbol = NULL; |
5112 symbol_c *last_type_symbol = NULL; |
5113 |
5113 |
5114 { |
5114 { |
5115 identifier_c IN_param_name("IN"); |
5115 symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); |
5116 /* Get the value from a foo(<param_name> = <param_value>) style call */ |
5116 /* Get the value from a foo(<param_name> = <param_value>) style call */ |
5117 symbol_c *IN_param_value = &this->default_variable_name; |
5117 symbol_c *IN_param_value = &this->default_variable_name; |
5118 |
5118 |
5119 symbol_c *IN_type_symbol = param_data_type; |
5119 symbol_c *IN_type_symbol = param_data_type; |
5120 last_type_symbol = param_data_type; |
5120 last_type_symbol = param_data_type; |
5124 |
5124 |
5125 function_name = (symbol_c*)(new pragma_c("__time_to_int")); |
5125 function_name = (symbol_c*)(new pragma_c("__time_to_int")); |
5126 |
5126 |
5127 if (IN_type_symbol == NULL) |
5127 if (IN_type_symbol == NULL) |
5128 IN_type_symbol = last_type_symbol; |
5128 IN_type_symbol = last_type_symbol; |
5129 ADD_PARAM_LIST(&IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) |
5129 ADD_PARAM_LIST(IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) |
5130 symbol_c * return_type_symbol = &search_constant_type_c::int_type_name; |
5130 symbol_c * return_type_symbol = &search_constant_type_c::int_type_name; |
5131 function_type_prefix = return_type_symbol; |
5131 function_type_prefix = return_type_symbol; |
5132 break; |
5132 break; |
5133 |
5133 |
5134 } |
5134 } |
5146 case function_udint_to_real : |
5146 case function_udint_to_real : |
5147 { |
5147 { |
5148 symbol_c *last_type_symbol = NULL; |
5148 symbol_c *last_type_symbol = NULL; |
5149 |
5149 |
5150 { |
5150 { |
5151 identifier_c IN_param_name("IN"); |
5151 symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); |
5152 /* Get the value from a foo(<param_name> = <param_value>) style call */ |
5152 /* Get the value from a foo(<param_name> = <param_value>) style call */ |
5153 symbol_c *IN_param_value = &this->default_variable_name; |
5153 symbol_c *IN_param_value = &this->default_variable_name; |
5154 |
5154 |
5155 symbol_c *IN_type_symbol = param_data_type; |
5155 symbol_c *IN_type_symbol = param_data_type; |
5156 last_type_symbol = param_data_type; |
5156 last_type_symbol = param_data_type; |
5160 |
5160 |
5161 function_name = (symbol_c*)(new pragma_c("__move_")); |
5161 function_name = (symbol_c*)(new pragma_c("__move_")); |
5162 |
5162 |
5163 if (IN_type_symbol == NULL) |
5163 if (IN_type_symbol == NULL) |
5164 IN_type_symbol = last_type_symbol; |
5164 IN_type_symbol = last_type_symbol; |
5165 ADD_PARAM_LIST(&IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) |
5165 ADD_PARAM_LIST(IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) |
5166 symbol_c * return_type_symbol = &search_constant_type_c::real_type_name; |
5166 symbol_c * return_type_symbol = &search_constant_type_c::real_type_name; |
5167 function_type_prefix = return_type_symbol; |
5167 function_type_prefix = return_type_symbol; |
5168 function_type_suffix = IN_type_symbol; |
5168 function_type_suffix = IN_type_symbol; |
5169 break; |
5169 break; |
5170 |
5170 |
5183 case function_udint_to_sint : |
5183 case function_udint_to_sint : |
5184 { |
5184 { |
5185 symbol_c *last_type_symbol = NULL; |
5185 symbol_c *last_type_symbol = NULL; |
5186 |
5186 |
5187 { |
5187 { |
5188 identifier_c IN_param_name("IN"); |
5188 symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); |
5189 /* Get the value from a foo(<param_name> = <param_value>) style call */ |
5189 /* Get the value from a foo(<param_name> = <param_value>) style call */ |
5190 symbol_c *IN_param_value = &this->default_variable_name; |
5190 symbol_c *IN_param_value = &this->default_variable_name; |
5191 |
5191 |
5192 symbol_c *IN_type_symbol = param_data_type; |
5192 symbol_c *IN_type_symbol = param_data_type; |
5193 last_type_symbol = param_data_type; |
5193 last_type_symbol = param_data_type; |
5197 |
5197 |
5198 function_name = (symbol_c*)(new pragma_c("__move_")); |
5198 function_name = (symbol_c*)(new pragma_c("__move_")); |
5199 |
5199 |
5200 if (IN_type_symbol == NULL) |
5200 if (IN_type_symbol == NULL) |
5201 IN_type_symbol = last_type_symbol; |
5201 IN_type_symbol = last_type_symbol; |
5202 ADD_PARAM_LIST(&IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) |
5202 ADD_PARAM_LIST(IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) |
5203 symbol_c * return_type_symbol = &search_constant_type_c::sint_type_name; |
5203 symbol_c * return_type_symbol = &search_constant_type_c::sint_type_name; |
5204 function_type_prefix = return_type_symbol; |
5204 function_type_prefix = return_type_symbol; |
5205 function_type_suffix = IN_type_symbol; |
5205 function_type_suffix = IN_type_symbol; |
5206 break; |
5206 break; |
5207 |
5207 |
5220 case function_udint_to_lint : |
5220 case function_udint_to_lint : |
5221 { |
5221 { |
5222 symbol_c *last_type_symbol = NULL; |
5222 symbol_c *last_type_symbol = NULL; |
5223 |
5223 |
5224 { |
5224 { |
5225 identifier_c IN_param_name("IN"); |
5225 symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); |
5226 /* Get the value from a foo(<param_name> = <param_value>) style call */ |
5226 /* Get the value from a foo(<param_name> = <param_value>) style call */ |
5227 symbol_c *IN_param_value = &this->default_variable_name; |
5227 symbol_c *IN_param_value = &this->default_variable_name; |
5228 |
5228 |
5229 symbol_c *IN_type_symbol = param_data_type; |
5229 symbol_c *IN_type_symbol = param_data_type; |
5230 last_type_symbol = param_data_type; |
5230 last_type_symbol = param_data_type; |
5234 |
5234 |
5235 function_name = (symbol_c*)(new pragma_c("__move_")); |
5235 function_name = (symbol_c*)(new pragma_c("__move_")); |
5236 |
5236 |
5237 if (IN_type_symbol == NULL) |
5237 if (IN_type_symbol == NULL) |
5238 IN_type_symbol = last_type_symbol; |
5238 IN_type_symbol = last_type_symbol; |
5239 ADD_PARAM_LIST(&IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) |
5239 ADD_PARAM_LIST(IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) |
5240 symbol_c * return_type_symbol = &search_constant_type_c::lint_type_name; |
5240 symbol_c * return_type_symbol = &search_constant_type_c::lint_type_name; |
5241 function_type_prefix = return_type_symbol; |
5241 function_type_prefix = return_type_symbol; |
5242 function_type_suffix = IN_type_symbol; |
5242 function_type_suffix = IN_type_symbol; |
5243 break; |
5243 break; |
5244 |
5244 |
5257 case function_udint_to_dint : |
5257 case function_udint_to_dint : |
5258 { |
5258 { |
5259 symbol_c *last_type_symbol = NULL; |
5259 symbol_c *last_type_symbol = NULL; |
5260 |
5260 |
5261 { |
5261 { |
5262 identifier_c IN_param_name("IN"); |
5262 symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); |
5263 /* Get the value from a foo(<param_name> = <param_value>) style call */ |
5263 /* Get the value from a foo(<param_name> = <param_value>) style call */ |
5264 symbol_c *IN_param_value = &this->default_variable_name; |
5264 symbol_c *IN_param_value = &this->default_variable_name; |
5265 |
5265 |
5266 symbol_c *IN_type_symbol = param_data_type; |
5266 symbol_c *IN_type_symbol = param_data_type; |
5267 last_type_symbol = param_data_type; |
5267 last_type_symbol = param_data_type; |
5271 |
5271 |
5272 function_name = (symbol_c*)(new pragma_c("__move_")); |
5272 function_name = (symbol_c*)(new pragma_c("__move_")); |
5273 |
5273 |
5274 if (IN_type_symbol == NULL) |
5274 if (IN_type_symbol == NULL) |
5275 IN_type_symbol = last_type_symbol; |
5275 IN_type_symbol = last_type_symbol; |
5276 ADD_PARAM_LIST(&IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) |
5276 ADD_PARAM_LIST(IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) |
5277 symbol_c * return_type_symbol = &search_constant_type_c::dint_type_name; |
5277 symbol_c * return_type_symbol = &search_constant_type_c::dint_type_name; |
5278 function_type_prefix = return_type_symbol; |
5278 function_type_prefix = return_type_symbol; |
5279 function_type_suffix = IN_type_symbol; |
5279 function_type_suffix = IN_type_symbol; |
5280 break; |
5280 break; |
5281 |
5281 |
5294 case function_udint_to_date : |
5294 case function_udint_to_date : |
5295 { |
5295 { |
5296 symbol_c *last_type_symbol = NULL; |
5296 symbol_c *last_type_symbol = NULL; |
5297 |
5297 |
5298 { |
5298 { |
5299 identifier_c IN_param_name("IN"); |
5299 symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); |
5300 /* Get the value from a foo(<param_name> = <param_value>) style call */ |
5300 /* Get the value from a foo(<param_name> = <param_value>) style call */ |
5301 symbol_c *IN_param_value = &this->default_variable_name; |
5301 symbol_c *IN_param_value = &this->default_variable_name; |
5302 |
5302 |
5303 symbol_c *IN_type_symbol = param_data_type; |
5303 symbol_c *IN_type_symbol = param_data_type; |
5304 last_type_symbol = param_data_type; |
5304 last_type_symbol = param_data_type; |
5308 |
5308 |
5309 function_name = (symbol_c*)(new pragma_c("__int_to_time")); |
5309 function_name = (symbol_c*)(new pragma_c("__int_to_time")); |
5310 |
5310 |
5311 if (IN_type_symbol == NULL) |
5311 if (IN_type_symbol == NULL) |
5312 IN_type_symbol = last_type_symbol; |
5312 IN_type_symbol = last_type_symbol; |
5313 ADD_PARAM_LIST(&IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) |
5313 ADD_PARAM_LIST(IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) |
5314 symbol_c * return_type_symbol = &search_constant_type_c::date_type_name; |
5314 symbol_c * return_type_symbol = &search_constant_type_c::date_type_name; |
5315 function_type_prefix = return_type_symbol; |
5315 function_type_prefix = return_type_symbol; |
5316 break; |
5316 break; |
5317 |
5317 |
5318 } |
5318 } |
5330 case function_udint_to_dword : |
5330 case function_udint_to_dword : |
5331 { |
5331 { |
5332 symbol_c *last_type_symbol = NULL; |
5332 symbol_c *last_type_symbol = NULL; |
5333 |
5333 |
5334 { |
5334 { |
5335 identifier_c IN_param_name("IN"); |
5335 symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); |
5336 /* Get the value from a foo(<param_name> = <param_value>) style call */ |
5336 /* Get the value from a foo(<param_name> = <param_value>) style call */ |
5337 symbol_c *IN_param_value = &this->default_variable_name; |
5337 symbol_c *IN_param_value = &this->default_variable_name; |
5338 |
5338 |
5339 symbol_c *IN_type_symbol = param_data_type; |
5339 symbol_c *IN_type_symbol = param_data_type; |
5340 last_type_symbol = param_data_type; |
5340 last_type_symbol = param_data_type; |
5344 |
5344 |
5345 function_name = (symbol_c*)(new pragma_c("__move_")); |
5345 function_name = (symbol_c*)(new pragma_c("__move_")); |
5346 |
5346 |
5347 if (IN_type_symbol == NULL) |
5347 if (IN_type_symbol == NULL) |
5348 IN_type_symbol = last_type_symbol; |
5348 IN_type_symbol = last_type_symbol; |
5349 ADD_PARAM_LIST(&IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) |
5349 ADD_PARAM_LIST(IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) |
5350 symbol_c * return_type_symbol = &search_constant_type_c::dword_type_name; |
5350 symbol_c * return_type_symbol = &search_constant_type_c::dword_type_name; |
5351 function_type_prefix = return_type_symbol; |
5351 function_type_prefix = return_type_symbol; |
5352 function_type_suffix = IN_type_symbol; |
5352 function_type_suffix = IN_type_symbol; |
5353 break; |
5353 break; |
5354 |
5354 |
5367 case function_udint_to_dt : |
5367 case function_udint_to_dt : |
5368 { |
5368 { |
5369 symbol_c *last_type_symbol = NULL; |
5369 symbol_c *last_type_symbol = NULL; |
5370 |
5370 |
5371 { |
5371 { |
5372 identifier_c IN_param_name("IN"); |
5372 symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); |
5373 /* Get the value from a foo(<param_name> = <param_value>) style call */ |
5373 /* Get the value from a foo(<param_name> = <param_value>) style call */ |
5374 symbol_c *IN_param_value = &this->default_variable_name; |
5374 symbol_c *IN_param_value = &this->default_variable_name; |
5375 |
5375 |
5376 symbol_c *IN_type_symbol = param_data_type; |
5376 symbol_c *IN_type_symbol = param_data_type; |
5377 last_type_symbol = param_data_type; |
5377 last_type_symbol = param_data_type; |
5381 |
5381 |
5382 function_name = (symbol_c*)(new pragma_c("__int_to_time")); |
5382 function_name = (symbol_c*)(new pragma_c("__int_to_time")); |
5383 |
5383 |
5384 if (IN_type_symbol == NULL) |
5384 if (IN_type_symbol == NULL) |
5385 IN_type_symbol = last_type_symbol; |
5385 IN_type_symbol = last_type_symbol; |
5386 ADD_PARAM_LIST(&IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) |
5386 ADD_PARAM_LIST(IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) |
5387 symbol_c * return_type_symbol = &search_constant_type_c::dt_type_name; |
5387 symbol_c * return_type_symbol = &search_constant_type_c::dt_type_name; |
5388 function_type_prefix = return_type_symbol; |
5388 function_type_prefix = return_type_symbol; |
5389 break; |
5389 break; |
5390 |
5390 |
5391 } |
5391 } |
5403 case function_udint_to_tod : |
5403 case function_udint_to_tod : |
5404 { |
5404 { |
5405 symbol_c *last_type_symbol = NULL; |
5405 symbol_c *last_type_symbol = NULL; |
5406 |
5406 |
5407 { |
5407 { |
5408 identifier_c IN_param_name("IN"); |
5408 symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); |
5409 /* Get the value from a foo(<param_name> = <param_value>) style call */ |
5409 /* Get the value from a foo(<param_name> = <param_value>) style call */ |
5410 symbol_c *IN_param_value = &this->default_variable_name; |
5410 symbol_c *IN_param_value = &this->default_variable_name; |
5411 |
5411 |
5412 symbol_c *IN_type_symbol = param_data_type; |
5412 symbol_c *IN_type_symbol = param_data_type; |
5413 last_type_symbol = param_data_type; |
5413 last_type_symbol = param_data_type; |
5417 |
5417 |
5418 function_name = (symbol_c*)(new pragma_c("__int_to_time")); |
5418 function_name = (symbol_c*)(new pragma_c("__int_to_time")); |
5419 |
5419 |
5420 if (IN_type_symbol == NULL) |
5420 if (IN_type_symbol == NULL) |
5421 IN_type_symbol = last_type_symbol; |
5421 IN_type_symbol = last_type_symbol; |
5422 ADD_PARAM_LIST(&IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) |
5422 ADD_PARAM_LIST(IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) |
5423 symbol_c * return_type_symbol = &search_constant_type_c::tod_type_name; |
5423 symbol_c * return_type_symbol = &search_constant_type_c::tod_type_name; |
5424 function_type_prefix = return_type_symbol; |
5424 function_type_prefix = return_type_symbol; |
5425 break; |
5425 break; |
5426 |
5426 |
5427 } |
5427 } |
5439 case function_udint_to_word : |
5439 case function_udint_to_word : |
5440 { |
5440 { |
5441 symbol_c *last_type_symbol = NULL; |
5441 symbol_c *last_type_symbol = NULL; |
5442 |
5442 |
5443 { |
5443 { |
5444 identifier_c IN_param_name("IN"); |
5444 symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); |
5445 /* Get the value from a foo(<param_name> = <param_value>) style call */ |
5445 /* Get the value from a foo(<param_name> = <param_value>) style call */ |
5446 symbol_c *IN_param_value = &this->default_variable_name; |
5446 symbol_c *IN_param_value = &this->default_variable_name; |
5447 |
5447 |
5448 symbol_c *IN_type_symbol = param_data_type; |
5448 symbol_c *IN_type_symbol = param_data_type; |
5449 last_type_symbol = param_data_type; |
5449 last_type_symbol = param_data_type; |
5453 |
5453 |
5454 function_name = (symbol_c*)(new pragma_c("__move_")); |
5454 function_name = (symbol_c*)(new pragma_c("__move_")); |
5455 |
5455 |
5456 if (IN_type_symbol == NULL) |
5456 if (IN_type_symbol == NULL) |
5457 IN_type_symbol = last_type_symbol; |
5457 IN_type_symbol = last_type_symbol; |
5458 ADD_PARAM_LIST(&IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) |
5458 ADD_PARAM_LIST(IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) |
5459 symbol_c * return_type_symbol = &search_constant_type_c::word_type_name; |
5459 symbol_c * return_type_symbol = &search_constant_type_c::word_type_name; |
5460 function_type_prefix = return_type_symbol; |
5460 function_type_prefix = return_type_symbol; |
5461 function_type_suffix = IN_type_symbol; |
5461 function_type_suffix = IN_type_symbol; |
5462 break; |
5462 break; |
5463 |
5463 |
5476 case function_udint_to_string : |
5476 case function_udint_to_string : |
5477 { |
5477 { |
5478 symbol_c *last_type_symbol = NULL; |
5478 symbol_c *last_type_symbol = NULL; |
5479 |
5479 |
5480 { |
5480 { |
5481 identifier_c IN_param_name("IN"); |
5481 symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); |
5482 /* Get the value from a foo(<param_name> = <param_value>) style call */ |
5482 /* Get the value from a foo(<param_name> = <param_value>) style call */ |
5483 symbol_c *IN_param_value = &this->default_variable_name; |
5483 symbol_c *IN_param_value = &this->default_variable_name; |
5484 |
5484 |
5485 symbol_c *IN_type_symbol = param_data_type; |
5485 symbol_c *IN_type_symbol = param_data_type; |
5486 last_type_symbol = param_data_type; |
5486 last_type_symbol = param_data_type; |
5490 |
5490 |
5491 function_name = (symbol_c*)(new pragma_c("__uint_to_string")); |
5491 function_name = (symbol_c*)(new pragma_c("__uint_to_string")); |
5492 |
5492 |
5493 if (IN_type_symbol == NULL) |
5493 if (IN_type_symbol == NULL) |
5494 IN_type_symbol = last_type_symbol; |
5494 IN_type_symbol = last_type_symbol; |
5495 ADD_PARAM_LIST(&IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) |
5495 ADD_PARAM_LIST(IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) |
5496 symbol_c * return_type_symbol = &search_constant_type_c::string_type_name; |
5496 symbol_c * return_type_symbol = &search_constant_type_c::string_type_name; |
5497 function_type_prefix = return_type_symbol; |
5497 function_type_prefix = return_type_symbol; |
5498 break; |
5498 break; |
5499 |
5499 |
5500 } |
5500 } |
5512 case function_udint_to_lword : |
5512 case function_udint_to_lword : |
5513 { |
5513 { |
5514 symbol_c *last_type_symbol = NULL; |
5514 symbol_c *last_type_symbol = NULL; |
5515 |
5515 |
5516 { |
5516 { |
5517 identifier_c IN_param_name("IN"); |
5517 symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); |
5518 /* Get the value from a foo(<param_name> = <param_value>) style call */ |
5518 /* Get the value from a foo(<param_name> = <param_value>) style call */ |
5519 symbol_c *IN_param_value = &this->default_variable_name; |
5519 symbol_c *IN_param_value = &this->default_variable_name; |
5520 |
5520 |
5521 symbol_c *IN_type_symbol = param_data_type; |
5521 symbol_c *IN_type_symbol = param_data_type; |
5522 last_type_symbol = param_data_type; |
5522 last_type_symbol = param_data_type; |
5526 |
5526 |
5527 function_name = (symbol_c*)(new pragma_c("__move_")); |
5527 function_name = (symbol_c*)(new pragma_c("__move_")); |
5528 |
5528 |
5529 if (IN_type_symbol == NULL) |
5529 if (IN_type_symbol == NULL) |
5530 IN_type_symbol = last_type_symbol; |
5530 IN_type_symbol = last_type_symbol; |
5531 ADD_PARAM_LIST(&IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) |
5531 ADD_PARAM_LIST(IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) |
5532 symbol_c * return_type_symbol = &search_constant_type_c::lword_type_name; |
5532 symbol_c * return_type_symbol = &search_constant_type_c::lword_type_name; |
5533 function_type_prefix = return_type_symbol; |
5533 function_type_prefix = return_type_symbol; |
5534 function_type_suffix = IN_type_symbol; |
5534 function_type_suffix = IN_type_symbol; |
5535 break; |
5535 break; |
5536 |
5536 |
5549 case function_udint_to_uint : |
5549 case function_udint_to_uint : |
5550 { |
5550 { |
5551 symbol_c *last_type_symbol = NULL; |
5551 symbol_c *last_type_symbol = NULL; |
5552 |
5552 |
5553 { |
5553 { |
5554 identifier_c IN_param_name("IN"); |
5554 symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); |
5555 /* Get the value from a foo(<param_name> = <param_value>) style call */ |
5555 /* Get the value from a foo(<param_name> = <param_value>) style call */ |
5556 symbol_c *IN_param_value = &this->default_variable_name; |
5556 symbol_c *IN_param_value = &this->default_variable_name; |
5557 |
5557 |
5558 symbol_c *IN_type_symbol = param_data_type; |
5558 symbol_c *IN_type_symbol = param_data_type; |
5559 last_type_symbol = param_data_type; |
5559 last_type_symbol = param_data_type; |
5563 |
5563 |
5564 function_name = (symbol_c*)(new pragma_c("__move_")); |
5564 function_name = (symbol_c*)(new pragma_c("__move_")); |
5565 |
5565 |
5566 if (IN_type_symbol == NULL) |
5566 if (IN_type_symbol == NULL) |
5567 IN_type_symbol = last_type_symbol; |
5567 IN_type_symbol = last_type_symbol; |
5568 ADD_PARAM_LIST(&IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) |
5568 ADD_PARAM_LIST(IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) |
5569 symbol_c * return_type_symbol = &search_constant_type_c::uint_type_name; |
5569 symbol_c * return_type_symbol = &search_constant_type_c::uint_type_name; |
5570 function_type_prefix = return_type_symbol; |
5570 function_type_prefix = return_type_symbol; |
5571 function_type_suffix = IN_type_symbol; |
5571 function_type_suffix = IN_type_symbol; |
5572 break; |
5572 break; |
5573 |
5573 |
5586 case function_udint_to_lreal : |
5586 case function_udint_to_lreal : |
5587 { |
5587 { |
5588 symbol_c *last_type_symbol = NULL; |
5588 symbol_c *last_type_symbol = NULL; |
5589 |
5589 |
5590 { |
5590 { |
5591 identifier_c IN_param_name("IN"); |
5591 symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); |
5592 /* Get the value from a foo(<param_name> = <param_value>) style call */ |
5592 /* Get the value from a foo(<param_name> = <param_value>) style call */ |
5593 symbol_c *IN_param_value = &this->default_variable_name; |
5593 symbol_c *IN_param_value = &this->default_variable_name; |
5594 |
5594 |
5595 symbol_c *IN_type_symbol = param_data_type; |
5595 symbol_c *IN_type_symbol = param_data_type; |
5596 last_type_symbol = param_data_type; |
5596 last_type_symbol = param_data_type; |
5600 |
5600 |
5601 function_name = (symbol_c*)(new pragma_c("__move_")); |
5601 function_name = (symbol_c*)(new pragma_c("__move_")); |
5602 |
5602 |
5603 if (IN_type_symbol == NULL) |
5603 if (IN_type_symbol == NULL) |
5604 IN_type_symbol = last_type_symbol; |
5604 IN_type_symbol = last_type_symbol; |
5605 ADD_PARAM_LIST(&IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) |
5605 ADD_PARAM_LIST(IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) |
5606 symbol_c * return_type_symbol = &search_constant_type_c::lreal_type_name; |
5606 symbol_c * return_type_symbol = &search_constant_type_c::lreal_type_name; |
5607 function_type_prefix = return_type_symbol; |
5607 function_type_prefix = return_type_symbol; |
5608 function_type_suffix = IN_type_symbol; |
5608 function_type_suffix = IN_type_symbol; |
5609 break; |
5609 break; |
5610 |
5610 |
5623 case function_udint_to_byte : |
5623 case function_udint_to_byte : |
5624 { |
5624 { |
5625 symbol_c *last_type_symbol = NULL; |
5625 symbol_c *last_type_symbol = NULL; |
5626 |
5626 |
5627 { |
5627 { |
5628 identifier_c IN_param_name("IN"); |
5628 symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); |
5629 /* Get the value from a foo(<param_name> = <param_value>) style call */ |
5629 /* Get the value from a foo(<param_name> = <param_value>) style call */ |
5630 symbol_c *IN_param_value = &this->default_variable_name; |
5630 symbol_c *IN_param_value = &this->default_variable_name; |
5631 |
5631 |
5632 symbol_c *IN_type_symbol = param_data_type; |
5632 symbol_c *IN_type_symbol = param_data_type; |
5633 last_type_symbol = param_data_type; |
5633 last_type_symbol = param_data_type; |
5637 |
5637 |
5638 function_name = (symbol_c*)(new pragma_c("__move_")); |
5638 function_name = (symbol_c*)(new pragma_c("__move_")); |
5639 |
5639 |
5640 if (IN_type_symbol == NULL) |
5640 if (IN_type_symbol == NULL) |
5641 IN_type_symbol = last_type_symbol; |
5641 IN_type_symbol = last_type_symbol; |
5642 ADD_PARAM_LIST(&IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) |
5642 ADD_PARAM_LIST(IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) |
5643 symbol_c * return_type_symbol = &search_constant_type_c::byte_type_name; |
5643 symbol_c * return_type_symbol = &search_constant_type_c::byte_type_name; |
5644 function_type_prefix = return_type_symbol; |
5644 function_type_prefix = return_type_symbol; |
5645 function_type_suffix = IN_type_symbol; |
5645 function_type_suffix = IN_type_symbol; |
5646 break; |
5646 break; |
5647 |
5647 |
5660 case function_udint_to_usint : |
5660 case function_udint_to_usint : |
5661 { |
5661 { |
5662 symbol_c *last_type_symbol = NULL; |
5662 symbol_c *last_type_symbol = NULL; |
5663 |
5663 |
5664 { |
5664 { |
5665 identifier_c IN_param_name("IN"); |
5665 symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); |
5666 /* Get the value from a foo(<param_name> = <param_value>) style call */ |
5666 /* Get the value from a foo(<param_name> = <param_value>) style call */ |
5667 symbol_c *IN_param_value = &this->default_variable_name; |
5667 symbol_c *IN_param_value = &this->default_variable_name; |
5668 |
5668 |
5669 symbol_c *IN_type_symbol = param_data_type; |
5669 symbol_c *IN_type_symbol = param_data_type; |
5670 last_type_symbol = param_data_type; |
5670 last_type_symbol = param_data_type; |
5674 |
5674 |
5675 function_name = (symbol_c*)(new pragma_c("__move_")); |
5675 function_name = (symbol_c*)(new pragma_c("__move_")); |
5676 |
5676 |
5677 if (IN_type_symbol == NULL) |
5677 if (IN_type_symbol == NULL) |
5678 IN_type_symbol = last_type_symbol; |
5678 IN_type_symbol = last_type_symbol; |
5679 ADD_PARAM_LIST(&IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) |
5679 ADD_PARAM_LIST(IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) |
5680 symbol_c * return_type_symbol = &search_constant_type_c::usint_type_name; |
5680 symbol_c * return_type_symbol = &search_constant_type_c::usint_type_name; |
5681 function_type_prefix = return_type_symbol; |
5681 function_type_prefix = return_type_symbol; |
5682 function_type_suffix = IN_type_symbol; |
5682 function_type_suffix = IN_type_symbol; |
5683 break; |
5683 break; |
5684 |
5684 |
5697 case function_udint_to_ulint : |
5697 case function_udint_to_ulint : |
5698 { |
5698 { |
5699 symbol_c *last_type_symbol = NULL; |
5699 symbol_c *last_type_symbol = NULL; |
5700 |
5700 |
5701 { |
5701 { |
5702 identifier_c IN_param_name("IN"); |
5702 symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); |
5703 /* Get the value from a foo(<param_name> = <param_value>) style call */ |
5703 /* Get the value from a foo(<param_name> = <param_value>) style call */ |
5704 symbol_c *IN_param_value = &this->default_variable_name; |
5704 symbol_c *IN_param_value = &this->default_variable_name; |
5705 |
5705 |
5706 symbol_c *IN_type_symbol = param_data_type; |
5706 symbol_c *IN_type_symbol = param_data_type; |
5707 last_type_symbol = param_data_type; |
5707 last_type_symbol = param_data_type; |
5711 |
5711 |
5712 function_name = (symbol_c*)(new pragma_c("__move_")); |
5712 function_name = (symbol_c*)(new pragma_c("__move_")); |
5713 |
5713 |
5714 if (IN_type_symbol == NULL) |
5714 if (IN_type_symbol == NULL) |
5715 IN_type_symbol = last_type_symbol; |
5715 IN_type_symbol = last_type_symbol; |
5716 ADD_PARAM_LIST(&IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) |
5716 ADD_PARAM_LIST(IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) |
5717 symbol_c * return_type_symbol = &search_constant_type_c::ulint_type_name; |
5717 symbol_c * return_type_symbol = &search_constant_type_c::ulint_type_name; |
5718 function_type_prefix = return_type_symbol; |
5718 function_type_prefix = return_type_symbol; |
5719 function_type_suffix = IN_type_symbol; |
5719 function_type_suffix = IN_type_symbol; |
5720 break; |
5720 break; |
5721 |
5721 |
5734 case function_udint_to_bool : |
5734 case function_udint_to_bool : |
5735 { |
5735 { |
5736 symbol_c *last_type_symbol = NULL; |
5736 symbol_c *last_type_symbol = NULL; |
5737 |
5737 |
5738 { |
5738 { |
5739 identifier_c IN_param_name("IN"); |
5739 symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); |
5740 /* Get the value from a foo(<param_name> = <param_value>) style call */ |
5740 /* Get the value from a foo(<param_name> = <param_value>) style call */ |
5741 symbol_c *IN_param_value = &this->default_variable_name; |
5741 symbol_c *IN_param_value = &this->default_variable_name; |
5742 |
5742 |
5743 symbol_c *IN_type_symbol = param_data_type; |
5743 symbol_c *IN_type_symbol = param_data_type; |
5744 last_type_symbol = param_data_type; |
5744 last_type_symbol = param_data_type; |
5748 |
5748 |
5749 function_name = (symbol_c*)(new pragma_c("__move_")); |
5749 function_name = (symbol_c*)(new pragma_c("__move_")); |
5750 |
5750 |
5751 if (IN_type_symbol == NULL) |
5751 if (IN_type_symbol == NULL) |
5752 IN_type_symbol = last_type_symbol; |
5752 IN_type_symbol = last_type_symbol; |
5753 ADD_PARAM_LIST(&IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) |
5753 ADD_PARAM_LIST(IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) |
5754 symbol_c * return_type_symbol = &search_constant_type_c::bool_type_name; |
5754 symbol_c * return_type_symbol = &search_constant_type_c::bool_type_name; |
5755 function_type_prefix = return_type_symbol; |
5755 function_type_prefix = return_type_symbol; |
5756 function_type_suffix = IN_type_symbol; |
5756 function_type_suffix = IN_type_symbol; |
5757 break; |
5757 break; |
5758 |
5758 |
5771 case function_udint_to_time : |
5771 case function_udint_to_time : |
5772 { |
5772 { |
5773 symbol_c *last_type_symbol = NULL; |
5773 symbol_c *last_type_symbol = NULL; |
5774 |
5774 |
5775 { |
5775 { |
5776 identifier_c IN_param_name("IN"); |
5776 symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); |
5777 /* Get the value from a foo(<param_name> = <param_value>) style call */ |
5777 /* Get the value from a foo(<param_name> = <param_value>) style call */ |
5778 symbol_c *IN_param_value = &this->default_variable_name; |
5778 symbol_c *IN_param_value = &this->default_variable_name; |
5779 |
5779 |
5780 symbol_c *IN_type_symbol = param_data_type; |
5780 symbol_c *IN_type_symbol = param_data_type; |
5781 last_type_symbol = param_data_type; |
5781 last_type_symbol = param_data_type; |
5785 |
5785 |
5786 function_name = (symbol_c*)(new pragma_c("__int_to_time")); |
5786 function_name = (symbol_c*)(new pragma_c("__int_to_time")); |
5787 |
5787 |
5788 if (IN_type_symbol == NULL) |
5788 if (IN_type_symbol == NULL) |
5789 IN_type_symbol = last_type_symbol; |
5789 IN_type_symbol = last_type_symbol; |
5790 ADD_PARAM_LIST(&IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) |
5790 ADD_PARAM_LIST(IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) |
5791 symbol_c * return_type_symbol = &search_constant_type_c::time_type_name; |
5791 symbol_c * return_type_symbol = &search_constant_type_c::time_type_name; |
5792 function_type_prefix = return_type_symbol; |
5792 function_type_prefix = return_type_symbol; |
5793 break; |
5793 break; |
5794 |
5794 |
5795 } |
5795 } |
5807 case function_udint_to_int : |
5807 case function_udint_to_int : |
5808 { |
5808 { |
5809 symbol_c *last_type_symbol = NULL; |
5809 symbol_c *last_type_symbol = NULL; |
5810 |
5810 |
5811 { |
5811 { |
5812 identifier_c IN_param_name("IN"); |
5812 symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); |
5813 /* Get the value from a foo(<param_name> = <param_value>) style call */ |
5813 /* Get the value from a foo(<param_name> = <param_value>) style call */ |
5814 symbol_c *IN_param_value = &this->default_variable_name; |
5814 symbol_c *IN_param_value = &this->default_variable_name; |
5815 |
5815 |
5816 symbol_c *IN_type_symbol = param_data_type; |
5816 symbol_c *IN_type_symbol = param_data_type; |
5817 last_type_symbol = param_data_type; |
5817 last_type_symbol = param_data_type; |
5821 |
5821 |
5822 function_name = (symbol_c*)(new pragma_c("__move_")); |
5822 function_name = (symbol_c*)(new pragma_c("__move_")); |
5823 |
5823 |
5824 if (IN_type_symbol == NULL) |
5824 if (IN_type_symbol == NULL) |
5825 IN_type_symbol = last_type_symbol; |
5825 IN_type_symbol = last_type_symbol; |
5826 ADD_PARAM_LIST(&IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) |
5826 ADD_PARAM_LIST(IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) |
5827 symbol_c * return_type_symbol = &search_constant_type_c::int_type_name; |
5827 symbol_c * return_type_symbol = &search_constant_type_c::int_type_name; |
5828 function_type_prefix = return_type_symbol; |
5828 function_type_prefix = return_type_symbol; |
5829 function_type_suffix = IN_type_symbol; |
5829 function_type_suffix = IN_type_symbol; |
5830 break; |
5830 break; |
5831 |
5831 |
5844 case function_word_to_real : |
5844 case function_word_to_real : |
5845 { |
5845 { |
5846 symbol_c *last_type_symbol = NULL; |
5846 symbol_c *last_type_symbol = NULL; |
5847 |
5847 |
5848 { |
5848 { |
5849 identifier_c IN_param_name("IN"); |
5849 symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); |
5850 /* Get the value from a foo(<param_name> = <param_value>) style call */ |
5850 /* Get the value from a foo(<param_name> = <param_value>) style call */ |
5851 symbol_c *IN_param_value = &this->default_variable_name; |
5851 symbol_c *IN_param_value = &this->default_variable_name; |
5852 |
5852 |
5853 symbol_c *IN_type_symbol = param_data_type; |
5853 symbol_c *IN_type_symbol = param_data_type; |
5854 last_type_symbol = param_data_type; |
5854 last_type_symbol = param_data_type; |
5858 |
5858 |
5859 function_name = (symbol_c*)(new pragma_c("__move_")); |
5859 function_name = (symbol_c*)(new pragma_c("__move_")); |
5860 |
5860 |
5861 if (IN_type_symbol == NULL) |
5861 if (IN_type_symbol == NULL) |
5862 IN_type_symbol = last_type_symbol; |
5862 IN_type_symbol = last_type_symbol; |
5863 ADD_PARAM_LIST(&IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) |
5863 ADD_PARAM_LIST(IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) |
5864 symbol_c * return_type_symbol = &search_constant_type_c::real_type_name; |
5864 symbol_c * return_type_symbol = &search_constant_type_c::real_type_name; |
5865 function_type_prefix = return_type_symbol; |
5865 function_type_prefix = return_type_symbol; |
5866 function_type_suffix = IN_type_symbol; |
5866 function_type_suffix = IN_type_symbol; |
5867 break; |
5867 break; |
5868 |
5868 |
5881 case function_word_to_sint : |
5881 case function_word_to_sint : |
5882 { |
5882 { |
5883 symbol_c *last_type_symbol = NULL; |
5883 symbol_c *last_type_symbol = NULL; |
5884 |
5884 |
5885 { |
5885 { |
5886 identifier_c IN_param_name("IN"); |
5886 symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); |
5887 /* Get the value from a foo(<param_name> = <param_value>) style call */ |
5887 /* Get the value from a foo(<param_name> = <param_value>) style call */ |
5888 symbol_c *IN_param_value = &this->default_variable_name; |
5888 symbol_c *IN_param_value = &this->default_variable_name; |
5889 |
5889 |
5890 symbol_c *IN_type_symbol = param_data_type; |
5890 symbol_c *IN_type_symbol = param_data_type; |
5891 last_type_symbol = param_data_type; |
5891 last_type_symbol = param_data_type; |
5895 |
5895 |
5896 function_name = (symbol_c*)(new pragma_c("__move_")); |
5896 function_name = (symbol_c*)(new pragma_c("__move_")); |
5897 |
5897 |
5898 if (IN_type_symbol == NULL) |
5898 if (IN_type_symbol == NULL) |
5899 IN_type_symbol = last_type_symbol; |
5899 IN_type_symbol = last_type_symbol; |
5900 ADD_PARAM_LIST(&IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) |
5900 ADD_PARAM_LIST(IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) |
5901 symbol_c * return_type_symbol = &search_constant_type_c::sint_type_name; |
5901 symbol_c * return_type_symbol = &search_constant_type_c::sint_type_name; |
5902 function_type_prefix = return_type_symbol; |
5902 function_type_prefix = return_type_symbol; |
5903 function_type_suffix = IN_type_symbol; |
5903 function_type_suffix = IN_type_symbol; |
5904 break; |
5904 break; |
5905 |
5905 |
5918 case function_word_to_lint : |
5918 case function_word_to_lint : |
5919 { |
5919 { |
5920 symbol_c *last_type_symbol = NULL; |
5920 symbol_c *last_type_symbol = NULL; |
5921 |
5921 |
5922 { |
5922 { |
5923 identifier_c IN_param_name("IN"); |
5923 symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); |
5924 /* Get the value from a foo(<param_name> = <param_value>) style call */ |
5924 /* Get the value from a foo(<param_name> = <param_value>) style call */ |
5925 symbol_c *IN_param_value = &this->default_variable_name; |
5925 symbol_c *IN_param_value = &this->default_variable_name; |
5926 |
5926 |
5927 symbol_c *IN_type_symbol = param_data_type; |
5927 symbol_c *IN_type_symbol = param_data_type; |
5928 last_type_symbol = param_data_type; |
5928 last_type_symbol = param_data_type; |
5932 |
5932 |
5933 function_name = (symbol_c*)(new pragma_c("__move_")); |
5933 function_name = (symbol_c*)(new pragma_c("__move_")); |
5934 |
5934 |
5935 if (IN_type_symbol == NULL) |
5935 if (IN_type_symbol == NULL) |
5936 IN_type_symbol = last_type_symbol; |
5936 IN_type_symbol = last_type_symbol; |
5937 ADD_PARAM_LIST(&IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) |
5937 ADD_PARAM_LIST(IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) |
5938 symbol_c * return_type_symbol = &search_constant_type_c::lint_type_name; |
5938 symbol_c * return_type_symbol = &search_constant_type_c::lint_type_name; |
5939 function_type_prefix = return_type_symbol; |
5939 function_type_prefix = return_type_symbol; |
5940 function_type_suffix = IN_type_symbol; |
5940 function_type_suffix = IN_type_symbol; |
5941 break; |
5941 break; |
5942 |
5942 |
5955 case function_word_to_dint : |
5955 case function_word_to_dint : |
5956 { |
5956 { |
5957 symbol_c *last_type_symbol = NULL; |
5957 symbol_c *last_type_symbol = NULL; |
5958 |
5958 |
5959 { |
5959 { |
5960 identifier_c IN_param_name("IN"); |
5960 symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); |
5961 /* Get the value from a foo(<param_name> = <param_value>) style call */ |
5961 /* Get the value from a foo(<param_name> = <param_value>) style call */ |
5962 symbol_c *IN_param_value = &this->default_variable_name; |
5962 symbol_c *IN_param_value = &this->default_variable_name; |
5963 |
5963 |
5964 symbol_c *IN_type_symbol = param_data_type; |
5964 symbol_c *IN_type_symbol = param_data_type; |
5965 last_type_symbol = param_data_type; |
5965 last_type_symbol = param_data_type; |
5969 |
5969 |
5970 function_name = (symbol_c*)(new pragma_c("__move_")); |
5970 function_name = (symbol_c*)(new pragma_c("__move_")); |
5971 |
5971 |
5972 if (IN_type_symbol == NULL) |
5972 if (IN_type_symbol == NULL) |
5973 IN_type_symbol = last_type_symbol; |
5973 IN_type_symbol = last_type_symbol; |
5974 ADD_PARAM_LIST(&IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) |
5974 ADD_PARAM_LIST(IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) |
5975 symbol_c * return_type_symbol = &search_constant_type_c::dint_type_name; |
5975 symbol_c * return_type_symbol = &search_constant_type_c::dint_type_name; |
5976 function_type_prefix = return_type_symbol; |
5976 function_type_prefix = return_type_symbol; |
5977 function_type_suffix = IN_type_symbol; |
5977 function_type_suffix = IN_type_symbol; |
5978 break; |
5978 break; |
5979 |
5979 |
5992 case function_word_to_date : |
5992 case function_word_to_date : |
5993 { |
5993 { |
5994 symbol_c *last_type_symbol = NULL; |
5994 symbol_c *last_type_symbol = NULL; |
5995 |
5995 |
5996 { |
5996 { |
5997 identifier_c IN_param_name("IN"); |
5997 symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); |
5998 /* Get the value from a foo(<param_name> = <param_value>) style call */ |
5998 /* Get the value from a foo(<param_name> = <param_value>) style call */ |
5999 symbol_c *IN_param_value = &this->default_variable_name; |
5999 symbol_c *IN_param_value = &this->default_variable_name; |
6000 |
6000 |
6001 symbol_c *IN_type_symbol = param_data_type; |
6001 symbol_c *IN_type_symbol = param_data_type; |
6002 last_type_symbol = param_data_type; |
6002 last_type_symbol = param_data_type; |
6006 |
6006 |
6007 function_name = (symbol_c*)(new pragma_c("__int_to_time")); |
6007 function_name = (symbol_c*)(new pragma_c("__int_to_time")); |
6008 |
6008 |
6009 if (IN_type_symbol == NULL) |
6009 if (IN_type_symbol == NULL) |
6010 IN_type_symbol = last_type_symbol; |
6010 IN_type_symbol = last_type_symbol; |
6011 ADD_PARAM_LIST(&IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) |
6011 ADD_PARAM_LIST(IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) |
6012 symbol_c * return_type_symbol = &search_constant_type_c::date_type_name; |
6012 symbol_c * return_type_symbol = &search_constant_type_c::date_type_name; |
6013 function_type_prefix = return_type_symbol; |
6013 function_type_prefix = return_type_symbol; |
6014 break; |
6014 break; |
6015 |
6015 |
6016 } |
6016 } |
6028 case function_word_to_dword : |
6028 case function_word_to_dword : |
6029 { |
6029 { |
6030 symbol_c *last_type_symbol = NULL; |
6030 symbol_c *last_type_symbol = NULL; |
6031 |
6031 |
6032 { |
6032 { |
6033 identifier_c IN_param_name("IN"); |
6033 symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); |
6034 /* Get the value from a foo(<param_name> = <param_value>) style call */ |
6034 /* Get the value from a foo(<param_name> = <param_value>) style call */ |
6035 symbol_c *IN_param_value = &this->default_variable_name; |
6035 symbol_c *IN_param_value = &this->default_variable_name; |
6036 |
6036 |
6037 symbol_c *IN_type_symbol = param_data_type; |
6037 symbol_c *IN_type_symbol = param_data_type; |
6038 last_type_symbol = param_data_type; |
6038 last_type_symbol = param_data_type; |
6042 |
6042 |
6043 function_name = (symbol_c*)(new pragma_c("__move_")); |
6043 function_name = (symbol_c*)(new pragma_c("__move_")); |
6044 |
6044 |
6045 if (IN_type_symbol == NULL) |
6045 if (IN_type_symbol == NULL) |
6046 IN_type_symbol = last_type_symbol; |
6046 IN_type_symbol = last_type_symbol; |
6047 ADD_PARAM_LIST(&IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) |
6047 ADD_PARAM_LIST(IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) |
6048 symbol_c * return_type_symbol = &search_constant_type_c::dword_type_name; |
6048 symbol_c * return_type_symbol = &search_constant_type_c::dword_type_name; |
6049 function_type_prefix = return_type_symbol; |
6049 function_type_prefix = return_type_symbol; |
6050 function_type_suffix = IN_type_symbol; |
6050 function_type_suffix = IN_type_symbol; |
6051 break; |
6051 break; |
6052 |
6052 |
6065 case function_word_to_dt : |
6065 case function_word_to_dt : |
6066 { |
6066 { |
6067 symbol_c *last_type_symbol = NULL; |
6067 symbol_c *last_type_symbol = NULL; |
6068 |
6068 |
6069 { |
6069 { |
6070 identifier_c IN_param_name("IN"); |
6070 symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); |
6071 /* Get the value from a foo(<param_name> = <param_value>) style call */ |
6071 /* Get the value from a foo(<param_name> = <param_value>) style call */ |
6072 symbol_c *IN_param_value = &this->default_variable_name; |
6072 symbol_c *IN_param_value = &this->default_variable_name; |
6073 |
6073 |
6074 symbol_c *IN_type_symbol = param_data_type; |
6074 symbol_c *IN_type_symbol = param_data_type; |
6075 last_type_symbol = param_data_type; |
6075 last_type_symbol = param_data_type; |
6079 |
6079 |
6080 function_name = (symbol_c*)(new pragma_c("__int_to_time")); |
6080 function_name = (symbol_c*)(new pragma_c("__int_to_time")); |
6081 |
6081 |
6082 if (IN_type_symbol == NULL) |
6082 if (IN_type_symbol == NULL) |
6083 IN_type_symbol = last_type_symbol; |
6083 IN_type_symbol = last_type_symbol; |
6084 ADD_PARAM_LIST(&IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) |
6084 ADD_PARAM_LIST(IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) |
6085 symbol_c * return_type_symbol = &search_constant_type_c::dt_type_name; |
6085 symbol_c * return_type_symbol = &search_constant_type_c::dt_type_name; |
6086 function_type_prefix = return_type_symbol; |
6086 function_type_prefix = return_type_symbol; |
6087 break; |
6087 break; |
6088 |
6088 |
6089 } |
6089 } |
6101 case function_word_to_tod : |
6101 case function_word_to_tod : |
6102 { |
6102 { |
6103 symbol_c *last_type_symbol = NULL; |
6103 symbol_c *last_type_symbol = NULL; |
6104 |
6104 |
6105 { |
6105 { |
6106 identifier_c IN_param_name("IN"); |
6106 symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); |
6107 /* Get the value from a foo(<param_name> = <param_value>) style call */ |
6107 /* Get the value from a foo(<param_name> = <param_value>) style call */ |
6108 symbol_c *IN_param_value = &this->default_variable_name; |
6108 symbol_c *IN_param_value = &this->default_variable_name; |
6109 |
6109 |
6110 symbol_c *IN_type_symbol = param_data_type; |
6110 symbol_c *IN_type_symbol = param_data_type; |
6111 last_type_symbol = param_data_type; |
6111 last_type_symbol = param_data_type; |
6115 |
6115 |
6116 function_name = (symbol_c*)(new pragma_c("__int_to_time")); |
6116 function_name = (symbol_c*)(new pragma_c("__int_to_time")); |
6117 |
6117 |
6118 if (IN_type_symbol == NULL) |
6118 if (IN_type_symbol == NULL) |
6119 IN_type_symbol = last_type_symbol; |
6119 IN_type_symbol = last_type_symbol; |
6120 ADD_PARAM_LIST(&IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) |
6120 ADD_PARAM_LIST(IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) |
6121 symbol_c * return_type_symbol = &search_constant_type_c::tod_type_name; |
6121 symbol_c * return_type_symbol = &search_constant_type_c::tod_type_name; |
6122 function_type_prefix = return_type_symbol; |
6122 function_type_prefix = return_type_symbol; |
6123 break; |
6123 break; |
6124 |
6124 |
6125 } |
6125 } |
6137 case function_word_to_udint : |
6137 case function_word_to_udint : |
6138 { |
6138 { |
6139 symbol_c *last_type_symbol = NULL; |
6139 symbol_c *last_type_symbol = NULL; |
6140 |
6140 |
6141 { |
6141 { |
6142 identifier_c IN_param_name("IN"); |
6142 symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); |
6143 /* Get the value from a foo(<param_name> = <param_value>) style call */ |
6143 /* Get the value from a foo(<param_name> = <param_value>) style call */ |
6144 symbol_c *IN_param_value = &this->default_variable_name; |
6144 symbol_c *IN_param_value = &this->default_variable_name; |
6145 |
6145 |
6146 symbol_c *IN_type_symbol = param_data_type; |
6146 symbol_c *IN_type_symbol = param_data_type; |
6147 last_type_symbol = param_data_type; |
6147 last_type_symbol = param_data_type; |
6151 |
6151 |
6152 function_name = (symbol_c*)(new pragma_c("__move_")); |
6152 function_name = (symbol_c*)(new pragma_c("__move_")); |
6153 |
6153 |
6154 if (IN_type_symbol == NULL) |
6154 if (IN_type_symbol == NULL) |
6155 IN_type_symbol = last_type_symbol; |
6155 IN_type_symbol = last_type_symbol; |
6156 ADD_PARAM_LIST(&IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) |
6156 ADD_PARAM_LIST(IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) |
6157 symbol_c * return_type_symbol = &search_constant_type_c::udint_type_name; |
6157 symbol_c * return_type_symbol = &search_constant_type_c::udint_type_name; |
6158 function_type_prefix = return_type_symbol; |
6158 function_type_prefix = return_type_symbol; |
6159 function_type_suffix = IN_type_symbol; |
6159 function_type_suffix = IN_type_symbol; |
6160 break; |
6160 break; |
6161 |
6161 |
6174 case function_word_to_string : |
6174 case function_word_to_string : |
6175 { |
6175 { |
6176 symbol_c *last_type_symbol = NULL; |
6176 symbol_c *last_type_symbol = NULL; |
6177 |
6177 |
6178 { |
6178 { |
6179 identifier_c IN_param_name("IN"); |
6179 symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); |
6180 /* Get the value from a foo(<param_name> = <param_value>) style call */ |
6180 /* Get the value from a foo(<param_name> = <param_value>) style call */ |
6181 symbol_c *IN_param_value = &this->default_variable_name; |
6181 symbol_c *IN_param_value = &this->default_variable_name; |
6182 |
6182 |
6183 symbol_c *IN_type_symbol = param_data_type; |
6183 symbol_c *IN_type_symbol = param_data_type; |
6184 last_type_symbol = param_data_type; |
6184 last_type_symbol = param_data_type; |
6188 |
6188 |
6189 function_name = (symbol_c*)(new pragma_c("__bit_to_string")); |
6189 function_name = (symbol_c*)(new pragma_c("__bit_to_string")); |
6190 |
6190 |
6191 if (IN_type_symbol == NULL) |
6191 if (IN_type_symbol == NULL) |
6192 IN_type_symbol = last_type_symbol; |
6192 IN_type_symbol = last_type_symbol; |
6193 ADD_PARAM_LIST(&IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) |
6193 ADD_PARAM_LIST(IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) |
6194 symbol_c * return_type_symbol = &search_constant_type_c::string_type_name; |
6194 symbol_c * return_type_symbol = &search_constant_type_c::string_type_name; |
6195 function_type_prefix = return_type_symbol; |
6195 function_type_prefix = return_type_symbol; |
6196 break; |
6196 break; |
6197 |
6197 |
6198 } |
6198 } |
6210 case function_word_to_lword : |
6210 case function_word_to_lword : |
6211 { |
6211 { |
6212 symbol_c *last_type_symbol = NULL; |
6212 symbol_c *last_type_symbol = NULL; |
6213 |
6213 |
6214 { |
6214 { |
6215 identifier_c IN_param_name("IN"); |
6215 symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); |
6216 /* Get the value from a foo(<param_name> = <param_value>) style call */ |
6216 /* Get the value from a foo(<param_name> = <param_value>) style call */ |
6217 symbol_c *IN_param_value = &this->default_variable_name; |
6217 symbol_c *IN_param_value = &this->default_variable_name; |
6218 |
6218 |
6219 symbol_c *IN_type_symbol = param_data_type; |
6219 symbol_c *IN_type_symbol = param_data_type; |
6220 last_type_symbol = param_data_type; |
6220 last_type_symbol = param_data_type; |
6224 |
6224 |
6225 function_name = (symbol_c*)(new pragma_c("__move_")); |
6225 function_name = (symbol_c*)(new pragma_c("__move_")); |
6226 |
6226 |
6227 if (IN_type_symbol == NULL) |
6227 if (IN_type_symbol == NULL) |
6228 IN_type_symbol = last_type_symbol; |
6228 IN_type_symbol = last_type_symbol; |
6229 ADD_PARAM_LIST(&IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) |
6229 ADD_PARAM_LIST(IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) |
6230 symbol_c * return_type_symbol = &search_constant_type_c::lword_type_name; |
6230 symbol_c * return_type_symbol = &search_constant_type_c::lword_type_name; |
6231 function_type_prefix = return_type_symbol; |
6231 function_type_prefix = return_type_symbol; |
6232 function_type_suffix = IN_type_symbol; |
6232 function_type_suffix = IN_type_symbol; |
6233 break; |
6233 break; |
6234 |
6234 |
6247 case function_word_to_uint : |
6247 case function_word_to_uint : |
6248 { |
6248 { |
6249 symbol_c *last_type_symbol = NULL; |
6249 symbol_c *last_type_symbol = NULL; |
6250 |
6250 |
6251 { |
6251 { |
6252 identifier_c IN_param_name("IN"); |
6252 symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); |
6253 /* Get the value from a foo(<param_name> = <param_value>) style call */ |
6253 /* Get the value from a foo(<param_name> = <param_value>) style call */ |
6254 symbol_c *IN_param_value = &this->default_variable_name; |
6254 symbol_c *IN_param_value = &this->default_variable_name; |
6255 |
6255 |
6256 symbol_c *IN_type_symbol = param_data_type; |
6256 symbol_c *IN_type_symbol = param_data_type; |
6257 last_type_symbol = param_data_type; |
6257 last_type_symbol = param_data_type; |
6261 |
6261 |
6262 function_name = (symbol_c*)(new pragma_c("__move_")); |
6262 function_name = (symbol_c*)(new pragma_c("__move_")); |
6263 |
6263 |
6264 if (IN_type_symbol == NULL) |
6264 if (IN_type_symbol == NULL) |
6265 IN_type_symbol = last_type_symbol; |
6265 IN_type_symbol = last_type_symbol; |
6266 ADD_PARAM_LIST(&IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) |
6266 ADD_PARAM_LIST(IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) |
6267 symbol_c * return_type_symbol = &search_constant_type_c::uint_type_name; |
6267 symbol_c * return_type_symbol = &search_constant_type_c::uint_type_name; |
6268 function_type_prefix = return_type_symbol; |
6268 function_type_prefix = return_type_symbol; |
6269 function_type_suffix = IN_type_symbol; |
6269 function_type_suffix = IN_type_symbol; |
6270 break; |
6270 break; |
6271 |
6271 |
6284 case function_word_to_lreal : |
6284 case function_word_to_lreal : |
6285 { |
6285 { |
6286 symbol_c *last_type_symbol = NULL; |
6286 symbol_c *last_type_symbol = NULL; |
6287 |
6287 |
6288 { |
6288 { |
6289 identifier_c IN_param_name("IN"); |
6289 symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); |
6290 /* Get the value from a foo(<param_name> = <param_value>) style call */ |
6290 /* Get the value from a foo(<param_name> = <param_value>) style call */ |
6291 symbol_c *IN_param_value = &this->default_variable_name; |
6291 symbol_c *IN_param_value = &this->default_variable_name; |
6292 |
6292 |
6293 symbol_c *IN_type_symbol = param_data_type; |
6293 symbol_c *IN_type_symbol = param_data_type; |
6294 last_type_symbol = param_data_type; |
6294 last_type_symbol = param_data_type; |
6298 |
6298 |
6299 function_name = (symbol_c*)(new pragma_c("__move_")); |
6299 function_name = (symbol_c*)(new pragma_c("__move_")); |
6300 |
6300 |
6301 if (IN_type_symbol == NULL) |
6301 if (IN_type_symbol == NULL) |
6302 IN_type_symbol = last_type_symbol; |
6302 IN_type_symbol = last_type_symbol; |
6303 ADD_PARAM_LIST(&IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) |
6303 ADD_PARAM_LIST(IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) |
6304 symbol_c * return_type_symbol = &search_constant_type_c::lreal_type_name; |
6304 symbol_c * return_type_symbol = &search_constant_type_c::lreal_type_name; |
6305 function_type_prefix = return_type_symbol; |
6305 function_type_prefix = return_type_symbol; |
6306 function_type_suffix = IN_type_symbol; |
6306 function_type_suffix = IN_type_symbol; |
6307 break; |
6307 break; |
6308 |
6308 |
6321 case function_word_to_byte : |
6321 case function_word_to_byte : |
6322 { |
6322 { |
6323 symbol_c *last_type_symbol = NULL; |
6323 symbol_c *last_type_symbol = NULL; |
6324 |
6324 |
6325 { |
6325 { |
6326 identifier_c IN_param_name("IN"); |
6326 symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); |
6327 /* Get the value from a foo(<param_name> = <param_value>) style call */ |
6327 /* Get the value from a foo(<param_name> = <param_value>) style call */ |
6328 symbol_c *IN_param_value = &this->default_variable_name; |
6328 symbol_c *IN_param_value = &this->default_variable_name; |
6329 |
6329 |
6330 symbol_c *IN_type_symbol = param_data_type; |
6330 symbol_c *IN_type_symbol = param_data_type; |
6331 last_type_symbol = param_data_type; |
6331 last_type_symbol = param_data_type; |
6335 |
6335 |
6336 function_name = (symbol_c*)(new pragma_c("__move_")); |
6336 function_name = (symbol_c*)(new pragma_c("__move_")); |
6337 |
6337 |
6338 if (IN_type_symbol == NULL) |
6338 if (IN_type_symbol == NULL) |
6339 IN_type_symbol = last_type_symbol; |
6339 IN_type_symbol = last_type_symbol; |
6340 ADD_PARAM_LIST(&IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) |
6340 ADD_PARAM_LIST(IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) |
6341 symbol_c * return_type_symbol = &search_constant_type_c::byte_type_name; |
6341 symbol_c * return_type_symbol = &search_constant_type_c::byte_type_name; |
6342 function_type_prefix = return_type_symbol; |
6342 function_type_prefix = return_type_symbol; |
6343 function_type_suffix = IN_type_symbol; |
6343 function_type_suffix = IN_type_symbol; |
6344 break; |
6344 break; |
6345 |
6345 |
6358 case function_word_to_usint : |
6358 case function_word_to_usint : |
6359 { |
6359 { |
6360 symbol_c *last_type_symbol = NULL; |
6360 symbol_c *last_type_symbol = NULL; |
6361 |
6361 |
6362 { |
6362 { |
6363 identifier_c IN_param_name("IN"); |
6363 symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); |
6364 /* Get the value from a foo(<param_name> = <param_value>) style call */ |
6364 /* Get the value from a foo(<param_name> = <param_value>) style call */ |
6365 symbol_c *IN_param_value = &this->default_variable_name; |
6365 symbol_c *IN_param_value = &this->default_variable_name; |
6366 |
6366 |
6367 symbol_c *IN_type_symbol = param_data_type; |
6367 symbol_c *IN_type_symbol = param_data_type; |
6368 last_type_symbol = param_data_type; |
6368 last_type_symbol = param_data_type; |
6372 |
6372 |
6373 function_name = (symbol_c*)(new pragma_c("__move_")); |
6373 function_name = (symbol_c*)(new pragma_c("__move_")); |
6374 |
6374 |
6375 if (IN_type_symbol == NULL) |
6375 if (IN_type_symbol == NULL) |
6376 IN_type_symbol = last_type_symbol; |
6376 IN_type_symbol = last_type_symbol; |
6377 ADD_PARAM_LIST(&IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) |
6377 ADD_PARAM_LIST(IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) |
6378 symbol_c * return_type_symbol = &search_constant_type_c::usint_type_name; |
6378 symbol_c * return_type_symbol = &search_constant_type_c::usint_type_name; |
6379 function_type_prefix = return_type_symbol; |
6379 function_type_prefix = return_type_symbol; |
6380 function_type_suffix = IN_type_symbol; |
6380 function_type_suffix = IN_type_symbol; |
6381 break; |
6381 break; |
6382 |
6382 |
6395 case function_word_to_ulint : |
6395 case function_word_to_ulint : |
6396 { |
6396 { |
6397 symbol_c *last_type_symbol = NULL; |
6397 symbol_c *last_type_symbol = NULL; |
6398 |
6398 |
6399 { |
6399 { |
6400 identifier_c IN_param_name("IN"); |
6400 symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); |
6401 /* Get the value from a foo(<param_name> = <param_value>) style call */ |
6401 /* Get the value from a foo(<param_name> = <param_value>) style call */ |
6402 symbol_c *IN_param_value = &this->default_variable_name; |
6402 symbol_c *IN_param_value = &this->default_variable_name; |
6403 |
6403 |
6404 symbol_c *IN_type_symbol = param_data_type; |
6404 symbol_c *IN_type_symbol = param_data_type; |
6405 last_type_symbol = param_data_type; |
6405 last_type_symbol = param_data_type; |
6409 |
6409 |
6410 function_name = (symbol_c*)(new pragma_c("__move_")); |
6410 function_name = (symbol_c*)(new pragma_c("__move_")); |
6411 |
6411 |
6412 if (IN_type_symbol == NULL) |
6412 if (IN_type_symbol == NULL) |
6413 IN_type_symbol = last_type_symbol; |
6413 IN_type_symbol = last_type_symbol; |
6414 ADD_PARAM_LIST(&IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) |
6414 ADD_PARAM_LIST(IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) |
6415 symbol_c * return_type_symbol = &search_constant_type_c::ulint_type_name; |
6415 symbol_c * return_type_symbol = &search_constant_type_c::ulint_type_name; |
6416 function_type_prefix = return_type_symbol; |
6416 function_type_prefix = return_type_symbol; |
6417 function_type_suffix = IN_type_symbol; |
6417 function_type_suffix = IN_type_symbol; |
6418 break; |
6418 break; |
6419 |
6419 |
6432 case function_word_to_bool : |
6432 case function_word_to_bool : |
6433 { |
6433 { |
6434 symbol_c *last_type_symbol = NULL; |
6434 symbol_c *last_type_symbol = NULL; |
6435 |
6435 |
6436 { |
6436 { |
6437 identifier_c IN_param_name("IN"); |
6437 symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); |
6438 /* Get the value from a foo(<param_name> = <param_value>) style call */ |
6438 /* Get the value from a foo(<param_name> = <param_value>) style call */ |
6439 symbol_c *IN_param_value = &this->default_variable_name; |
6439 symbol_c *IN_param_value = &this->default_variable_name; |
6440 |
6440 |
6441 symbol_c *IN_type_symbol = param_data_type; |
6441 symbol_c *IN_type_symbol = param_data_type; |
6442 last_type_symbol = param_data_type; |
6442 last_type_symbol = param_data_type; |
6446 |
6446 |
6447 function_name = (symbol_c*)(new pragma_c("__move_")); |
6447 function_name = (symbol_c*)(new pragma_c("__move_")); |
6448 |
6448 |
6449 if (IN_type_symbol == NULL) |
6449 if (IN_type_symbol == NULL) |
6450 IN_type_symbol = last_type_symbol; |
6450 IN_type_symbol = last_type_symbol; |
6451 ADD_PARAM_LIST(&IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) |
6451 ADD_PARAM_LIST(IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) |
6452 symbol_c * return_type_symbol = &search_constant_type_c::bool_type_name; |
6452 symbol_c * return_type_symbol = &search_constant_type_c::bool_type_name; |
6453 function_type_prefix = return_type_symbol; |
6453 function_type_prefix = return_type_symbol; |
6454 function_type_suffix = IN_type_symbol; |
6454 function_type_suffix = IN_type_symbol; |
6455 break; |
6455 break; |
6456 |
6456 |
6469 case function_word_to_time : |
6469 case function_word_to_time : |
6470 { |
6470 { |
6471 symbol_c *last_type_symbol = NULL; |
6471 symbol_c *last_type_symbol = NULL; |
6472 |
6472 |
6473 { |
6473 { |
6474 identifier_c IN_param_name("IN"); |
6474 symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); |
6475 /* Get the value from a foo(<param_name> = <param_value>) style call */ |
6475 /* Get the value from a foo(<param_name> = <param_value>) style call */ |
6476 symbol_c *IN_param_value = &this->default_variable_name; |
6476 symbol_c *IN_param_value = &this->default_variable_name; |
6477 |
6477 |
6478 symbol_c *IN_type_symbol = param_data_type; |
6478 symbol_c *IN_type_symbol = param_data_type; |
6479 last_type_symbol = param_data_type; |
6479 last_type_symbol = param_data_type; |
6483 |
6483 |
6484 function_name = (symbol_c*)(new pragma_c("__int_to_time")); |
6484 function_name = (symbol_c*)(new pragma_c("__int_to_time")); |
6485 |
6485 |
6486 if (IN_type_symbol == NULL) |
6486 if (IN_type_symbol == NULL) |
6487 IN_type_symbol = last_type_symbol; |
6487 IN_type_symbol = last_type_symbol; |
6488 ADD_PARAM_LIST(&IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) |
6488 ADD_PARAM_LIST(IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) |
6489 symbol_c * return_type_symbol = &search_constant_type_c::time_type_name; |
6489 symbol_c * return_type_symbol = &search_constant_type_c::time_type_name; |
6490 function_type_prefix = return_type_symbol; |
6490 function_type_prefix = return_type_symbol; |
6491 break; |
6491 break; |
6492 |
6492 |
6493 } |
6493 } |
6505 case function_word_to_int : |
6505 case function_word_to_int : |
6506 { |
6506 { |
6507 symbol_c *last_type_symbol = NULL; |
6507 symbol_c *last_type_symbol = NULL; |
6508 |
6508 |
6509 { |
6509 { |
6510 identifier_c IN_param_name("IN"); |
6510 symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); |
6511 /* Get the value from a foo(<param_name> = <param_value>) style call */ |
6511 /* Get the value from a foo(<param_name> = <param_value>) style call */ |
6512 symbol_c *IN_param_value = &this->default_variable_name; |
6512 symbol_c *IN_param_value = &this->default_variable_name; |
6513 |
6513 |
6514 symbol_c *IN_type_symbol = param_data_type; |
6514 symbol_c *IN_type_symbol = param_data_type; |
6515 last_type_symbol = param_data_type; |
6515 last_type_symbol = param_data_type; |
6519 |
6519 |
6520 function_name = (symbol_c*)(new pragma_c("__move_")); |
6520 function_name = (symbol_c*)(new pragma_c("__move_")); |
6521 |
6521 |
6522 if (IN_type_symbol == NULL) |
6522 if (IN_type_symbol == NULL) |
6523 IN_type_symbol = last_type_symbol; |
6523 IN_type_symbol = last_type_symbol; |
6524 ADD_PARAM_LIST(&IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) |
6524 ADD_PARAM_LIST(IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) |
6525 symbol_c * return_type_symbol = &search_constant_type_c::int_type_name; |
6525 symbol_c * return_type_symbol = &search_constant_type_c::int_type_name; |
6526 function_type_prefix = return_type_symbol; |
6526 function_type_prefix = return_type_symbol; |
6527 function_type_suffix = IN_type_symbol; |
6527 function_type_suffix = IN_type_symbol; |
6528 break; |
6528 break; |
6529 |
6529 |
6542 case function_string_to_real : |
6542 case function_string_to_real : |
6543 { |
6543 { |
6544 symbol_c *last_type_symbol = NULL; |
6544 symbol_c *last_type_symbol = NULL; |
6545 |
6545 |
6546 { |
6546 { |
6547 identifier_c IN_param_name("IN"); |
6547 symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); |
6548 /* Get the value from a foo(<param_name> = <param_value>) style call */ |
6548 /* Get the value from a foo(<param_name> = <param_value>) style call */ |
6549 symbol_c *IN_param_value = &this->default_variable_name; |
6549 symbol_c *IN_param_value = &this->default_variable_name; |
6550 |
6550 |
6551 symbol_c *IN_type_symbol = param_data_type; |
6551 symbol_c *IN_type_symbol = param_data_type; |
6552 last_type_symbol = param_data_type; |
6552 last_type_symbol = param_data_type; |
6556 |
6556 |
6557 function_name = (symbol_c*)(new pragma_c("__string_to_real")); |
6557 function_name = (symbol_c*)(new pragma_c("__string_to_real")); |
6558 |
6558 |
6559 if (IN_type_symbol == NULL) |
6559 if (IN_type_symbol == NULL) |
6560 IN_type_symbol = last_type_symbol; |
6560 IN_type_symbol = last_type_symbol; |
6561 ADD_PARAM_LIST(&IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) |
6561 ADD_PARAM_LIST(IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) |
6562 symbol_c * return_type_symbol = &search_constant_type_c::real_type_name; |
6562 symbol_c * return_type_symbol = &search_constant_type_c::real_type_name; |
6563 function_type_prefix = return_type_symbol; |
6563 function_type_prefix = return_type_symbol; |
6564 break; |
6564 break; |
6565 |
6565 |
6566 } |
6566 } |
6578 case function_string_to_sint : |
6578 case function_string_to_sint : |
6579 { |
6579 { |
6580 symbol_c *last_type_symbol = NULL; |
6580 symbol_c *last_type_symbol = NULL; |
6581 |
6581 |
6582 { |
6582 { |
6583 identifier_c IN_param_name("IN"); |
6583 symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); |
6584 /* Get the value from a foo(<param_name> = <param_value>) style call */ |
6584 /* Get the value from a foo(<param_name> = <param_value>) style call */ |
6585 symbol_c *IN_param_value = &this->default_variable_name; |
6585 symbol_c *IN_param_value = &this->default_variable_name; |
6586 |
6586 |
6587 symbol_c *IN_type_symbol = param_data_type; |
6587 symbol_c *IN_type_symbol = param_data_type; |
6588 last_type_symbol = param_data_type; |
6588 last_type_symbol = param_data_type; |
6592 |
6592 |
6593 function_name = (symbol_c*)(new pragma_c("__string_to_sint")); |
6593 function_name = (symbol_c*)(new pragma_c("__string_to_sint")); |
6594 |
6594 |
6595 if (IN_type_symbol == NULL) |
6595 if (IN_type_symbol == NULL) |
6596 IN_type_symbol = last_type_symbol; |
6596 IN_type_symbol = last_type_symbol; |
6597 ADD_PARAM_LIST(&IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) |
6597 ADD_PARAM_LIST(IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) |
6598 symbol_c * return_type_symbol = &search_constant_type_c::sint_type_name; |
6598 symbol_c * return_type_symbol = &search_constant_type_c::sint_type_name; |
6599 function_type_prefix = return_type_symbol; |
6599 function_type_prefix = return_type_symbol; |
6600 break; |
6600 break; |
6601 |
6601 |
6602 } |
6602 } |
6614 case function_string_to_lint : |
6614 case function_string_to_lint : |
6615 { |
6615 { |
6616 symbol_c *last_type_symbol = NULL; |
6616 symbol_c *last_type_symbol = NULL; |
6617 |
6617 |
6618 { |
6618 { |
6619 identifier_c IN_param_name("IN"); |
6619 symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); |
6620 /* Get the value from a foo(<param_name> = <param_value>) style call */ |
6620 /* Get the value from a foo(<param_name> = <param_value>) style call */ |
6621 symbol_c *IN_param_value = &this->default_variable_name; |
6621 symbol_c *IN_param_value = &this->default_variable_name; |
6622 |
6622 |
6623 symbol_c *IN_type_symbol = param_data_type; |
6623 symbol_c *IN_type_symbol = param_data_type; |
6624 last_type_symbol = param_data_type; |
6624 last_type_symbol = param_data_type; |
6628 |
6628 |
6629 function_name = (symbol_c*)(new pragma_c("__string_to_sint")); |
6629 function_name = (symbol_c*)(new pragma_c("__string_to_sint")); |
6630 |
6630 |
6631 if (IN_type_symbol == NULL) |
6631 if (IN_type_symbol == NULL) |
6632 IN_type_symbol = last_type_symbol; |
6632 IN_type_symbol = last_type_symbol; |
6633 ADD_PARAM_LIST(&IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) |
6633 ADD_PARAM_LIST(IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) |
6634 symbol_c * return_type_symbol = &search_constant_type_c::lint_type_name; |
6634 symbol_c * return_type_symbol = &search_constant_type_c::lint_type_name; |
6635 function_type_prefix = return_type_symbol; |
6635 function_type_prefix = return_type_symbol; |
6636 break; |
6636 break; |
6637 |
6637 |
6638 } |
6638 } |
6650 case function_string_to_dint : |
6650 case function_string_to_dint : |
6651 { |
6651 { |
6652 symbol_c *last_type_symbol = NULL; |
6652 symbol_c *last_type_symbol = NULL; |
6653 |
6653 |
6654 { |
6654 { |
6655 identifier_c IN_param_name("IN"); |
6655 symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); |
6656 /* Get the value from a foo(<param_name> = <param_value>) style call */ |
6656 /* Get the value from a foo(<param_name> = <param_value>) style call */ |
6657 symbol_c *IN_param_value = &this->default_variable_name; |
6657 symbol_c *IN_param_value = &this->default_variable_name; |
6658 |
6658 |
6659 symbol_c *IN_type_symbol = param_data_type; |
6659 symbol_c *IN_type_symbol = param_data_type; |
6660 last_type_symbol = param_data_type; |
6660 last_type_symbol = param_data_type; |
6664 |
6664 |
6665 function_name = (symbol_c*)(new pragma_c("__string_to_sint")); |
6665 function_name = (symbol_c*)(new pragma_c("__string_to_sint")); |
6666 |
6666 |
6667 if (IN_type_symbol == NULL) |
6667 if (IN_type_symbol == NULL) |
6668 IN_type_symbol = last_type_symbol; |
6668 IN_type_symbol = last_type_symbol; |
6669 ADD_PARAM_LIST(&IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) |
6669 ADD_PARAM_LIST(IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) |
6670 symbol_c * return_type_symbol = &search_constant_type_c::dint_type_name; |
6670 symbol_c * return_type_symbol = &search_constant_type_c::dint_type_name; |
6671 function_type_prefix = return_type_symbol; |
6671 function_type_prefix = return_type_symbol; |
6672 break; |
6672 break; |
6673 |
6673 |
6674 } |
6674 } |
6686 case function_string_to_date : |
6686 case function_string_to_date : |
6687 { |
6687 { |
6688 symbol_c *last_type_symbol = NULL; |
6688 symbol_c *last_type_symbol = NULL; |
6689 |
6689 |
6690 { |
6690 { |
6691 identifier_c IN_param_name("IN"); |
6691 symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); |
6692 /* Get the value from a foo(<param_name> = <param_value>) style call */ |
6692 /* Get the value from a foo(<param_name> = <param_value>) style call */ |
6693 symbol_c *IN_param_value = &this->default_variable_name; |
6693 symbol_c *IN_param_value = &this->default_variable_name; |
6694 |
6694 |
6695 symbol_c *IN_type_symbol = param_data_type; |
6695 symbol_c *IN_type_symbol = param_data_type; |
6696 last_type_symbol = param_data_type; |
6696 last_type_symbol = param_data_type; |
6700 |
6700 |
6701 function_name = (symbol_c*)(new pragma_c("__string_to_time")); |
6701 function_name = (symbol_c*)(new pragma_c("__string_to_time")); |
6702 |
6702 |
6703 if (IN_type_symbol == NULL) |
6703 if (IN_type_symbol == NULL) |
6704 IN_type_symbol = last_type_symbol; |
6704 IN_type_symbol = last_type_symbol; |
6705 ADD_PARAM_LIST(&IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) |
6705 ADD_PARAM_LIST(IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) |
6706 symbol_c * return_type_symbol = &search_constant_type_c::date_type_name; |
6706 symbol_c * return_type_symbol = &search_constant_type_c::date_type_name; |
6707 function_type_prefix = return_type_symbol; |
6707 function_type_prefix = return_type_symbol; |
6708 break; |
6708 break; |
6709 |
6709 |
6710 } |
6710 } |
6722 case function_string_to_dword : |
6722 case function_string_to_dword : |
6723 { |
6723 { |
6724 symbol_c *last_type_symbol = NULL; |
6724 symbol_c *last_type_symbol = NULL; |
6725 |
6725 |
6726 { |
6726 { |
6727 identifier_c IN_param_name("IN"); |
6727 symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); |
6728 /* Get the value from a foo(<param_name> = <param_value>) style call */ |
6728 /* Get the value from a foo(<param_name> = <param_value>) style call */ |
6729 symbol_c *IN_param_value = &this->default_variable_name; |
6729 symbol_c *IN_param_value = &this->default_variable_name; |
6730 |
6730 |
6731 symbol_c *IN_type_symbol = param_data_type; |
6731 symbol_c *IN_type_symbol = param_data_type; |
6732 last_type_symbol = param_data_type; |
6732 last_type_symbol = param_data_type; |
6736 |
6736 |
6737 function_name = (symbol_c*)(new pragma_c("__string_to_bit")); |
6737 function_name = (symbol_c*)(new pragma_c("__string_to_bit")); |
6738 |
6738 |
6739 if (IN_type_symbol == NULL) |
6739 if (IN_type_symbol == NULL) |
6740 IN_type_symbol = last_type_symbol; |
6740 IN_type_symbol = last_type_symbol; |
6741 ADD_PARAM_LIST(&IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) |
6741 ADD_PARAM_LIST(IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) |
6742 symbol_c * return_type_symbol = &search_constant_type_c::dword_type_name; |
6742 symbol_c * return_type_symbol = &search_constant_type_c::dword_type_name; |
6743 function_type_prefix = return_type_symbol; |
6743 function_type_prefix = return_type_symbol; |
6744 break; |
6744 break; |
6745 |
6745 |
6746 } |
6746 } |
6758 case function_string_to_dt : |
6758 case function_string_to_dt : |
6759 { |
6759 { |
6760 symbol_c *last_type_symbol = NULL; |
6760 symbol_c *last_type_symbol = NULL; |
6761 |
6761 |
6762 { |
6762 { |
6763 identifier_c IN_param_name("IN"); |
6763 symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); |
6764 /* Get the value from a foo(<param_name> = <param_value>) style call */ |
6764 /* Get the value from a foo(<param_name> = <param_value>) style call */ |
6765 symbol_c *IN_param_value = &this->default_variable_name; |
6765 symbol_c *IN_param_value = &this->default_variable_name; |
6766 |
6766 |
6767 symbol_c *IN_type_symbol = param_data_type; |
6767 symbol_c *IN_type_symbol = param_data_type; |
6768 last_type_symbol = param_data_type; |
6768 last_type_symbol = param_data_type; |
6772 |
6772 |
6773 function_name = (symbol_c*)(new pragma_c("__string_to_time")); |
6773 function_name = (symbol_c*)(new pragma_c("__string_to_time")); |
6774 |
6774 |
6775 if (IN_type_symbol == NULL) |
6775 if (IN_type_symbol == NULL) |
6776 IN_type_symbol = last_type_symbol; |
6776 IN_type_symbol = last_type_symbol; |
6777 ADD_PARAM_LIST(&IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) |
6777 ADD_PARAM_LIST(IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) |
6778 symbol_c * return_type_symbol = &search_constant_type_c::dt_type_name; |
6778 symbol_c * return_type_symbol = &search_constant_type_c::dt_type_name; |
6779 function_type_prefix = return_type_symbol; |
6779 function_type_prefix = return_type_symbol; |
6780 break; |
6780 break; |
6781 |
6781 |
6782 } |
6782 } |
6794 case function_string_to_tod : |
6794 case function_string_to_tod : |
6795 { |
6795 { |
6796 symbol_c *last_type_symbol = NULL; |
6796 symbol_c *last_type_symbol = NULL; |
6797 |
6797 |
6798 { |
6798 { |
6799 identifier_c IN_param_name("IN"); |
6799 symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); |
6800 /* Get the value from a foo(<param_name> = <param_value>) style call */ |
6800 /* Get the value from a foo(<param_name> = <param_value>) style call */ |
6801 symbol_c *IN_param_value = &this->default_variable_name; |
6801 symbol_c *IN_param_value = &this->default_variable_name; |
6802 |
6802 |
6803 symbol_c *IN_type_symbol = param_data_type; |
6803 symbol_c *IN_type_symbol = param_data_type; |
6804 last_type_symbol = param_data_type; |
6804 last_type_symbol = param_data_type; |
6808 |
6808 |
6809 function_name = (symbol_c*)(new pragma_c("__string_to_time")); |
6809 function_name = (symbol_c*)(new pragma_c("__string_to_time")); |
6810 |
6810 |
6811 if (IN_type_symbol == NULL) |
6811 if (IN_type_symbol == NULL) |
6812 IN_type_symbol = last_type_symbol; |
6812 IN_type_symbol = last_type_symbol; |
6813 ADD_PARAM_LIST(&IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) |
6813 ADD_PARAM_LIST(IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) |
6814 symbol_c * return_type_symbol = &search_constant_type_c::tod_type_name; |
6814 symbol_c * return_type_symbol = &search_constant_type_c::tod_type_name; |
6815 function_type_prefix = return_type_symbol; |
6815 function_type_prefix = return_type_symbol; |
6816 break; |
6816 break; |
6817 |
6817 |
6818 } |
6818 } |
6830 case function_string_to_udint : |
6830 case function_string_to_udint : |
6831 { |
6831 { |
6832 symbol_c *last_type_symbol = NULL; |
6832 symbol_c *last_type_symbol = NULL; |
6833 |
6833 |
6834 { |
6834 { |
6835 identifier_c IN_param_name("IN"); |
6835 symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); |
6836 /* Get the value from a foo(<param_name> = <param_value>) style call */ |
6836 /* Get the value from a foo(<param_name> = <param_value>) style call */ |
6837 symbol_c *IN_param_value = &this->default_variable_name; |
6837 symbol_c *IN_param_value = &this->default_variable_name; |
6838 |
6838 |
6839 symbol_c *IN_type_symbol = param_data_type; |
6839 symbol_c *IN_type_symbol = param_data_type; |
6840 last_type_symbol = param_data_type; |
6840 last_type_symbol = param_data_type; |
6844 |
6844 |
6845 function_name = (symbol_c*)(new pragma_c("__string_to_uint")); |
6845 function_name = (symbol_c*)(new pragma_c("__string_to_uint")); |
6846 |
6846 |
6847 if (IN_type_symbol == NULL) |
6847 if (IN_type_symbol == NULL) |
6848 IN_type_symbol = last_type_symbol; |
6848 IN_type_symbol = last_type_symbol; |
6849 ADD_PARAM_LIST(&IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) |
6849 ADD_PARAM_LIST(IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) |
6850 symbol_c * return_type_symbol = &search_constant_type_c::udint_type_name; |
6850 symbol_c * return_type_symbol = &search_constant_type_c::udint_type_name; |
6851 function_type_prefix = return_type_symbol; |
6851 function_type_prefix = return_type_symbol; |
6852 break; |
6852 break; |
6853 |
6853 |
6854 } |
6854 } |
6866 case function_string_to_word : |
6866 case function_string_to_word : |
6867 { |
6867 { |
6868 symbol_c *last_type_symbol = NULL; |
6868 symbol_c *last_type_symbol = NULL; |
6869 |
6869 |
6870 { |
6870 { |
6871 identifier_c IN_param_name("IN"); |
6871 symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); |
6872 /* Get the value from a foo(<param_name> = <param_value>) style call */ |
6872 /* Get the value from a foo(<param_name> = <param_value>) style call */ |
6873 symbol_c *IN_param_value = &this->default_variable_name; |
6873 symbol_c *IN_param_value = &this->default_variable_name; |
6874 |
6874 |
6875 symbol_c *IN_type_symbol = param_data_type; |
6875 symbol_c *IN_type_symbol = param_data_type; |
6876 last_type_symbol = param_data_type; |
6876 last_type_symbol = param_data_type; |
6880 |
6880 |
6881 function_name = (symbol_c*)(new pragma_c("__string_to_bit")); |
6881 function_name = (symbol_c*)(new pragma_c("__string_to_bit")); |
6882 |
6882 |
6883 if (IN_type_symbol == NULL) |
6883 if (IN_type_symbol == NULL) |
6884 IN_type_symbol = last_type_symbol; |
6884 IN_type_symbol = last_type_symbol; |
6885 ADD_PARAM_LIST(&IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) |
6885 ADD_PARAM_LIST(IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) |
6886 symbol_c * return_type_symbol = &search_constant_type_c::word_type_name; |
6886 symbol_c * return_type_symbol = &search_constant_type_c::word_type_name; |
6887 function_type_prefix = return_type_symbol; |
6887 function_type_prefix = return_type_symbol; |
6888 break; |
6888 break; |
6889 |
6889 |
6890 } |
6890 } |
6902 case function_string_to_lword : |
6902 case function_string_to_lword : |
6903 { |
6903 { |
6904 symbol_c *last_type_symbol = NULL; |
6904 symbol_c *last_type_symbol = NULL; |
6905 |
6905 |
6906 { |
6906 { |
6907 identifier_c IN_param_name("IN"); |
6907 symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); |
6908 /* Get the value from a foo(<param_name> = <param_value>) style call */ |
6908 /* Get the value from a foo(<param_name> = <param_value>) style call */ |
6909 symbol_c *IN_param_value = &this->default_variable_name; |
6909 symbol_c *IN_param_value = &this->default_variable_name; |
6910 |
6910 |
6911 symbol_c *IN_type_symbol = param_data_type; |
6911 symbol_c *IN_type_symbol = param_data_type; |
6912 last_type_symbol = param_data_type; |
6912 last_type_symbol = param_data_type; |
6916 |
6916 |
6917 function_name = (symbol_c*)(new pragma_c("__string_to_bit")); |
6917 function_name = (symbol_c*)(new pragma_c("__string_to_bit")); |
6918 |
6918 |
6919 if (IN_type_symbol == NULL) |
6919 if (IN_type_symbol == NULL) |
6920 IN_type_symbol = last_type_symbol; |
6920 IN_type_symbol = last_type_symbol; |
6921 ADD_PARAM_LIST(&IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) |
6921 ADD_PARAM_LIST(IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) |
6922 symbol_c * return_type_symbol = &search_constant_type_c::lword_type_name; |
6922 symbol_c * return_type_symbol = &search_constant_type_c::lword_type_name; |
6923 function_type_prefix = return_type_symbol; |
6923 function_type_prefix = return_type_symbol; |
6924 break; |
6924 break; |
6925 |
6925 |
6926 } |
6926 } |
6938 case function_string_to_uint : |
6938 case function_string_to_uint : |
6939 { |
6939 { |
6940 symbol_c *last_type_symbol = NULL; |
6940 symbol_c *last_type_symbol = NULL; |
6941 |
6941 |
6942 { |
6942 { |
6943 identifier_c IN_param_name("IN"); |
6943 symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); |
6944 /* Get the value from a foo(<param_name> = <param_value>) style call */ |
6944 /* Get the value from a foo(<param_name> = <param_value>) style call */ |
6945 symbol_c *IN_param_value = &this->default_variable_name; |
6945 symbol_c *IN_param_value = &this->default_variable_name; |
6946 |
6946 |
6947 symbol_c *IN_type_symbol = param_data_type; |
6947 symbol_c *IN_type_symbol = param_data_type; |
6948 last_type_symbol = param_data_type; |
6948 last_type_symbol = param_data_type; |
6952 |
6952 |
6953 function_name = (symbol_c*)(new pragma_c("__string_to_uint")); |
6953 function_name = (symbol_c*)(new pragma_c("__string_to_uint")); |
6954 |
6954 |
6955 if (IN_type_symbol == NULL) |
6955 if (IN_type_symbol == NULL) |
6956 IN_type_symbol = last_type_symbol; |
6956 IN_type_symbol = last_type_symbol; |
6957 ADD_PARAM_LIST(&IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) |
6957 ADD_PARAM_LIST(IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) |
6958 symbol_c * return_type_symbol = &search_constant_type_c::uint_type_name; |
6958 symbol_c * return_type_symbol = &search_constant_type_c::uint_type_name; |
6959 function_type_prefix = return_type_symbol; |
6959 function_type_prefix = return_type_symbol; |
6960 break; |
6960 break; |
6961 |
6961 |
6962 } |
6962 } |
6974 case function_string_to_lreal : |
6974 case function_string_to_lreal : |
6975 { |
6975 { |
6976 symbol_c *last_type_symbol = NULL; |
6976 symbol_c *last_type_symbol = NULL; |
6977 |
6977 |
6978 { |
6978 { |
6979 identifier_c IN_param_name("IN"); |
6979 symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); |
6980 /* Get the value from a foo(<param_name> = <param_value>) style call */ |
6980 /* Get the value from a foo(<param_name> = <param_value>) style call */ |
6981 symbol_c *IN_param_value = &this->default_variable_name; |
6981 symbol_c *IN_param_value = &this->default_variable_name; |
6982 |
6982 |
6983 symbol_c *IN_type_symbol = param_data_type; |
6983 symbol_c *IN_type_symbol = param_data_type; |
6984 last_type_symbol = param_data_type; |
6984 last_type_symbol = param_data_type; |
6988 |
6988 |
6989 function_name = (symbol_c*)(new pragma_c("__string_to_real")); |
6989 function_name = (symbol_c*)(new pragma_c("__string_to_real")); |
6990 |
6990 |
6991 if (IN_type_symbol == NULL) |
6991 if (IN_type_symbol == NULL) |
6992 IN_type_symbol = last_type_symbol; |
6992 IN_type_symbol = last_type_symbol; |
6993 ADD_PARAM_LIST(&IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) |
6993 ADD_PARAM_LIST(IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) |
6994 symbol_c * return_type_symbol = &search_constant_type_c::lreal_type_name; |
6994 symbol_c * return_type_symbol = &search_constant_type_c::lreal_type_name; |
6995 function_type_prefix = return_type_symbol; |
6995 function_type_prefix = return_type_symbol; |
6996 break; |
6996 break; |
6997 |
6997 |
6998 } |
6998 } |
7010 case function_string_to_byte : |
7010 case function_string_to_byte : |
7011 { |
7011 { |
7012 symbol_c *last_type_symbol = NULL; |
7012 symbol_c *last_type_symbol = NULL; |
7013 |
7013 |
7014 { |
7014 { |
7015 identifier_c IN_param_name("IN"); |
7015 symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); |
7016 /* Get the value from a foo(<param_name> = <param_value>) style call */ |
7016 /* Get the value from a foo(<param_name> = <param_value>) style call */ |
7017 symbol_c *IN_param_value = &this->default_variable_name; |
7017 symbol_c *IN_param_value = &this->default_variable_name; |
7018 |
7018 |
7019 symbol_c *IN_type_symbol = param_data_type; |
7019 symbol_c *IN_type_symbol = param_data_type; |
7020 last_type_symbol = param_data_type; |
7020 last_type_symbol = param_data_type; |
7024 |
7024 |
7025 function_name = (symbol_c*)(new pragma_c("__string_to_bit")); |
7025 function_name = (symbol_c*)(new pragma_c("__string_to_bit")); |
7026 |
7026 |
7027 if (IN_type_symbol == NULL) |
7027 if (IN_type_symbol == NULL) |
7028 IN_type_symbol = last_type_symbol; |
7028 IN_type_symbol = last_type_symbol; |
7029 ADD_PARAM_LIST(&IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) |
7029 ADD_PARAM_LIST(IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) |
7030 symbol_c * return_type_symbol = &search_constant_type_c::byte_type_name; |
7030 symbol_c * return_type_symbol = &search_constant_type_c::byte_type_name; |
7031 function_type_prefix = return_type_symbol; |
7031 function_type_prefix = return_type_symbol; |
7032 break; |
7032 break; |
7033 |
7033 |
7034 } |
7034 } |
7046 case function_string_to_usint : |
7046 case function_string_to_usint : |
7047 { |
7047 { |
7048 symbol_c *last_type_symbol = NULL; |
7048 symbol_c *last_type_symbol = NULL; |
7049 |
7049 |
7050 { |
7050 { |
7051 identifier_c IN_param_name("IN"); |
7051 symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); |
7052 /* Get the value from a foo(<param_name> = <param_value>) style call */ |
7052 /* Get the value from a foo(<param_name> = <param_value>) style call */ |
7053 symbol_c *IN_param_value = &this->default_variable_name; |
7053 symbol_c *IN_param_value = &this->default_variable_name; |
7054 |
7054 |
7055 symbol_c *IN_type_symbol = param_data_type; |
7055 symbol_c *IN_type_symbol = param_data_type; |
7056 last_type_symbol = param_data_type; |
7056 last_type_symbol = param_data_type; |
7060 |
7060 |
7061 function_name = (symbol_c*)(new pragma_c("__string_to_uint")); |
7061 function_name = (symbol_c*)(new pragma_c("__string_to_uint")); |
7062 |
7062 |
7063 if (IN_type_symbol == NULL) |
7063 if (IN_type_symbol == NULL) |
7064 IN_type_symbol = last_type_symbol; |
7064 IN_type_symbol = last_type_symbol; |
7065 ADD_PARAM_LIST(&IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) |
7065 ADD_PARAM_LIST(IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) |
7066 symbol_c * return_type_symbol = &search_constant_type_c::usint_type_name; |
7066 symbol_c * return_type_symbol = &search_constant_type_c::usint_type_name; |
7067 function_type_prefix = return_type_symbol; |
7067 function_type_prefix = return_type_symbol; |
7068 break; |
7068 break; |
7069 |
7069 |
7070 } |
7070 } |
7082 case function_string_to_ulint : |
7082 case function_string_to_ulint : |
7083 { |
7083 { |
7084 symbol_c *last_type_symbol = NULL; |
7084 symbol_c *last_type_symbol = NULL; |
7085 |
7085 |
7086 { |
7086 { |
7087 identifier_c IN_param_name("IN"); |
7087 symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); |
7088 /* Get the value from a foo(<param_name> = <param_value>) style call */ |
7088 /* Get the value from a foo(<param_name> = <param_value>) style call */ |
7089 symbol_c *IN_param_value = &this->default_variable_name; |
7089 symbol_c *IN_param_value = &this->default_variable_name; |
7090 |
7090 |
7091 symbol_c *IN_type_symbol = param_data_type; |
7091 symbol_c *IN_type_symbol = param_data_type; |
7092 last_type_symbol = param_data_type; |
7092 last_type_symbol = param_data_type; |
7096 |
7096 |
7097 function_name = (symbol_c*)(new pragma_c("__string_to_uint")); |
7097 function_name = (symbol_c*)(new pragma_c("__string_to_uint")); |
7098 |
7098 |
7099 if (IN_type_symbol == NULL) |
7099 if (IN_type_symbol == NULL) |
7100 IN_type_symbol = last_type_symbol; |
7100 IN_type_symbol = last_type_symbol; |
7101 ADD_PARAM_LIST(&IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) |
7101 ADD_PARAM_LIST(IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) |
7102 symbol_c * return_type_symbol = &search_constant_type_c::ulint_type_name; |
7102 symbol_c * return_type_symbol = &search_constant_type_c::ulint_type_name; |
7103 function_type_prefix = return_type_symbol; |
7103 function_type_prefix = return_type_symbol; |
7104 break; |
7104 break; |
7105 |
7105 |
7106 } |
7106 } |
7118 case function_string_to_bool : |
7118 case function_string_to_bool : |
7119 { |
7119 { |
7120 symbol_c *last_type_symbol = NULL; |
7120 symbol_c *last_type_symbol = NULL; |
7121 |
7121 |
7122 { |
7122 { |
7123 identifier_c IN_param_name("IN"); |
7123 symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); |
7124 /* Get the value from a foo(<param_name> = <param_value>) style call */ |
7124 /* Get the value from a foo(<param_name> = <param_value>) style call */ |
7125 symbol_c *IN_param_value = &this->default_variable_name; |
7125 symbol_c *IN_param_value = &this->default_variable_name; |
7126 |
7126 |
7127 symbol_c *IN_type_symbol = param_data_type; |
7127 symbol_c *IN_type_symbol = param_data_type; |
7128 last_type_symbol = param_data_type; |
7128 last_type_symbol = param_data_type; |
7132 |
7132 |
7133 function_name = (symbol_c*)(new pragma_c("__string_to_bool")); |
7133 function_name = (symbol_c*)(new pragma_c("__string_to_bool")); |
7134 |
7134 |
7135 if (IN_type_symbol == NULL) |
7135 if (IN_type_symbol == NULL) |
7136 IN_type_symbol = last_type_symbol; |
7136 IN_type_symbol = last_type_symbol; |
7137 ADD_PARAM_LIST(&IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) |
7137 ADD_PARAM_LIST(IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) |
7138 symbol_c * return_type_symbol = &search_constant_type_c::bool_type_name; |
7138 symbol_c * return_type_symbol = &search_constant_type_c::bool_type_name; |
7139 function_type_prefix = return_type_symbol; |
7139 function_type_prefix = return_type_symbol; |
7140 break; |
7140 break; |
7141 |
7141 |
7142 } |
7142 } |
7154 case function_string_to_time : |
7154 case function_string_to_time : |
7155 { |
7155 { |
7156 symbol_c *last_type_symbol = NULL; |
7156 symbol_c *last_type_symbol = NULL; |
7157 |
7157 |
7158 { |
7158 { |
7159 identifier_c IN_param_name("IN"); |
7159 symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); |
7160 /* Get the value from a foo(<param_name> = <param_value>) style call */ |
7160 /* Get the value from a foo(<param_name> = <param_value>) style call */ |
7161 symbol_c *IN_param_value = &this->default_variable_name; |
7161 symbol_c *IN_param_value = &this->default_variable_name; |
7162 |
7162 |
7163 symbol_c *IN_type_symbol = param_data_type; |
7163 symbol_c *IN_type_symbol = param_data_type; |
7164 last_type_symbol = param_data_type; |
7164 last_type_symbol = param_data_type; |
7168 |
7168 |
7169 function_name = (symbol_c*)(new pragma_c("__string_to_time")); |
7169 function_name = (symbol_c*)(new pragma_c("__string_to_time")); |
7170 |
7170 |
7171 if (IN_type_symbol == NULL) |
7171 if (IN_type_symbol == NULL) |
7172 IN_type_symbol = last_type_symbol; |
7172 IN_type_symbol = last_type_symbol; |
7173 ADD_PARAM_LIST(&IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) |
7173 ADD_PARAM_LIST(IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) |
7174 symbol_c * return_type_symbol = &search_constant_type_c::time_type_name; |
7174 symbol_c * return_type_symbol = &search_constant_type_c::time_type_name; |
7175 function_type_prefix = return_type_symbol; |
7175 function_type_prefix = return_type_symbol; |
7176 break; |
7176 break; |
7177 |
7177 |
7178 } |
7178 } |
7190 case function_string_to_int : |
7190 case function_string_to_int : |
7191 { |
7191 { |
7192 symbol_c *last_type_symbol = NULL; |
7192 symbol_c *last_type_symbol = NULL; |
7193 |
7193 |
7194 { |
7194 { |
7195 identifier_c IN_param_name("IN"); |
7195 symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); |
7196 /* Get the value from a foo(<param_name> = <param_value>) style call */ |
7196 /* Get the value from a foo(<param_name> = <param_value>) style call */ |
7197 symbol_c *IN_param_value = &this->default_variable_name; |
7197 symbol_c *IN_param_value = &this->default_variable_name; |
7198 |
7198 |
7199 symbol_c *IN_type_symbol = param_data_type; |
7199 symbol_c *IN_type_symbol = param_data_type; |
7200 last_type_symbol = param_data_type; |
7200 last_type_symbol = param_data_type; |
7204 |
7204 |
7205 function_name = (symbol_c*)(new pragma_c("__string_to_sint")); |
7205 function_name = (symbol_c*)(new pragma_c("__string_to_sint")); |
7206 |
7206 |
7207 if (IN_type_symbol == NULL) |
7207 if (IN_type_symbol == NULL) |
7208 IN_type_symbol = last_type_symbol; |
7208 IN_type_symbol = last_type_symbol; |
7209 ADD_PARAM_LIST(&IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) |
7209 ADD_PARAM_LIST(IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) |
7210 symbol_c * return_type_symbol = &search_constant_type_c::int_type_name; |
7210 symbol_c * return_type_symbol = &search_constant_type_c::int_type_name; |
7211 function_type_prefix = return_type_symbol; |
7211 function_type_prefix = return_type_symbol; |
7212 break; |
7212 break; |
7213 |
7213 |
7214 } |
7214 } |
7226 case function_lword_to_real : |
7226 case function_lword_to_real : |
7227 { |
7227 { |
7228 symbol_c *last_type_symbol = NULL; |
7228 symbol_c *last_type_symbol = NULL; |
7229 |
7229 |
7230 { |
7230 { |
7231 identifier_c IN_param_name("IN"); |
7231 symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); |
7232 /* Get the value from a foo(<param_name> = <param_value>) style call */ |
7232 /* Get the value from a foo(<param_name> = <param_value>) style call */ |
7233 symbol_c *IN_param_value = &this->default_variable_name; |
7233 symbol_c *IN_param_value = &this->default_variable_name; |
7234 |
7234 |
7235 symbol_c *IN_type_symbol = param_data_type; |
7235 symbol_c *IN_type_symbol = param_data_type; |
7236 last_type_symbol = param_data_type; |
7236 last_type_symbol = param_data_type; |
7240 |
7240 |
7241 function_name = (symbol_c*)(new pragma_c("__move_")); |
7241 function_name = (symbol_c*)(new pragma_c("__move_")); |
7242 |
7242 |
7243 if (IN_type_symbol == NULL) |
7243 if (IN_type_symbol == NULL) |
7244 IN_type_symbol = last_type_symbol; |
7244 IN_type_symbol = last_type_symbol; |
7245 ADD_PARAM_LIST(&IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) |
7245 ADD_PARAM_LIST(IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) |
7246 symbol_c * return_type_symbol = &search_constant_type_c::real_type_name; |
7246 symbol_c * return_type_symbol = &search_constant_type_c::real_type_name; |
7247 function_type_prefix = return_type_symbol; |
7247 function_type_prefix = return_type_symbol; |
7248 function_type_suffix = IN_type_symbol; |
7248 function_type_suffix = IN_type_symbol; |
7249 break; |
7249 break; |
7250 |
7250 |
7263 case function_lword_to_sint : |
7263 case function_lword_to_sint : |
7264 { |
7264 { |
7265 symbol_c *last_type_symbol = NULL; |
7265 symbol_c *last_type_symbol = NULL; |
7266 |
7266 |
7267 { |
7267 { |
7268 identifier_c IN_param_name("IN"); |
7268 symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); |
7269 /* Get the value from a foo(<param_name> = <param_value>) style call */ |
7269 /* Get the value from a foo(<param_name> = <param_value>) style call */ |
7270 symbol_c *IN_param_value = &this->default_variable_name; |
7270 symbol_c *IN_param_value = &this->default_variable_name; |
7271 |
7271 |
7272 symbol_c *IN_type_symbol = param_data_type; |
7272 symbol_c *IN_type_symbol = param_data_type; |
7273 last_type_symbol = param_data_type; |
7273 last_type_symbol = param_data_type; |
7277 |
7277 |
7278 function_name = (symbol_c*)(new pragma_c("__move_")); |
7278 function_name = (symbol_c*)(new pragma_c("__move_")); |
7279 |
7279 |
7280 if (IN_type_symbol == NULL) |
7280 if (IN_type_symbol == NULL) |
7281 IN_type_symbol = last_type_symbol; |
7281 IN_type_symbol = last_type_symbol; |
7282 ADD_PARAM_LIST(&IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) |
7282 ADD_PARAM_LIST(IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) |
7283 symbol_c * return_type_symbol = &search_constant_type_c::sint_type_name; |
7283 symbol_c * return_type_symbol = &search_constant_type_c::sint_type_name; |
7284 function_type_prefix = return_type_symbol; |
7284 function_type_prefix = return_type_symbol; |
7285 function_type_suffix = IN_type_symbol; |
7285 function_type_suffix = IN_type_symbol; |
7286 break; |
7286 break; |
7287 |
7287 |
7300 case function_lword_to_lint : |
7300 case function_lword_to_lint : |
7301 { |
7301 { |
7302 symbol_c *last_type_symbol = NULL; |
7302 symbol_c *last_type_symbol = NULL; |
7303 |
7303 |
7304 { |
7304 { |
7305 identifier_c IN_param_name("IN"); |
7305 symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); |
7306 /* Get the value from a foo(<param_name> = <param_value>) style call */ |
7306 /* Get the value from a foo(<param_name> = <param_value>) style call */ |
7307 symbol_c *IN_param_value = &this->default_variable_name; |
7307 symbol_c *IN_param_value = &this->default_variable_name; |
7308 |
7308 |
7309 symbol_c *IN_type_symbol = param_data_type; |
7309 symbol_c *IN_type_symbol = param_data_type; |
7310 last_type_symbol = param_data_type; |
7310 last_type_symbol = param_data_type; |
7314 |
7314 |
7315 function_name = (symbol_c*)(new pragma_c("__move_")); |
7315 function_name = (symbol_c*)(new pragma_c("__move_")); |
7316 |
7316 |
7317 if (IN_type_symbol == NULL) |
7317 if (IN_type_symbol == NULL) |
7318 IN_type_symbol = last_type_symbol; |
7318 IN_type_symbol = last_type_symbol; |
7319 ADD_PARAM_LIST(&IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) |
7319 ADD_PARAM_LIST(IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) |
7320 symbol_c * return_type_symbol = &search_constant_type_c::lint_type_name; |
7320 symbol_c * return_type_symbol = &search_constant_type_c::lint_type_name; |
7321 function_type_prefix = return_type_symbol; |
7321 function_type_prefix = return_type_symbol; |
7322 function_type_suffix = IN_type_symbol; |
7322 function_type_suffix = IN_type_symbol; |
7323 break; |
7323 break; |
7324 |
7324 |
7337 case function_lword_to_dint : |
7337 case function_lword_to_dint : |
7338 { |
7338 { |
7339 symbol_c *last_type_symbol = NULL; |
7339 symbol_c *last_type_symbol = NULL; |
7340 |
7340 |
7341 { |
7341 { |
7342 identifier_c IN_param_name("IN"); |
7342 symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); |
7343 /* Get the value from a foo(<param_name> = <param_value>) style call */ |
7343 /* Get the value from a foo(<param_name> = <param_value>) style call */ |
7344 symbol_c *IN_param_value = &this->default_variable_name; |
7344 symbol_c *IN_param_value = &this->default_variable_name; |
7345 |
7345 |
7346 symbol_c *IN_type_symbol = param_data_type; |
7346 symbol_c *IN_type_symbol = param_data_type; |
7347 last_type_symbol = param_data_type; |
7347 last_type_symbol = param_data_type; |
7351 |
7351 |
7352 function_name = (symbol_c*)(new pragma_c("__move_")); |
7352 function_name = (symbol_c*)(new pragma_c("__move_")); |
7353 |
7353 |
7354 if (IN_type_symbol == NULL) |
7354 if (IN_type_symbol == NULL) |
7355 IN_type_symbol = last_type_symbol; |
7355 IN_type_symbol = last_type_symbol; |
7356 ADD_PARAM_LIST(&IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) |
7356 ADD_PARAM_LIST(IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) |
7357 symbol_c * return_type_symbol = &search_constant_type_c::dint_type_name; |
7357 symbol_c * return_type_symbol = &search_constant_type_c::dint_type_name; |
7358 function_type_prefix = return_type_symbol; |
7358 function_type_prefix = return_type_symbol; |
7359 function_type_suffix = IN_type_symbol; |
7359 function_type_suffix = IN_type_symbol; |
7360 break; |
7360 break; |
7361 |
7361 |
7374 case function_lword_to_date : |
7374 case function_lword_to_date : |
7375 { |
7375 { |
7376 symbol_c *last_type_symbol = NULL; |
7376 symbol_c *last_type_symbol = NULL; |
7377 |
7377 |
7378 { |
7378 { |
7379 identifier_c IN_param_name("IN"); |
7379 symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); |
7380 /* Get the value from a foo(<param_name> = <param_value>) style call */ |
7380 /* Get the value from a foo(<param_name> = <param_value>) style call */ |
7381 symbol_c *IN_param_value = &this->default_variable_name; |
7381 symbol_c *IN_param_value = &this->default_variable_name; |
7382 |
7382 |
7383 symbol_c *IN_type_symbol = param_data_type; |
7383 symbol_c *IN_type_symbol = param_data_type; |
7384 last_type_symbol = param_data_type; |
7384 last_type_symbol = param_data_type; |
7388 |
7388 |
7389 function_name = (symbol_c*)(new pragma_c("__int_to_time")); |
7389 function_name = (symbol_c*)(new pragma_c("__int_to_time")); |
7390 |
7390 |
7391 if (IN_type_symbol == NULL) |
7391 if (IN_type_symbol == NULL) |
7392 IN_type_symbol = last_type_symbol; |
7392 IN_type_symbol = last_type_symbol; |
7393 ADD_PARAM_LIST(&IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) |
7393 ADD_PARAM_LIST(IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) |
7394 symbol_c * return_type_symbol = &search_constant_type_c::date_type_name; |
7394 symbol_c * return_type_symbol = &search_constant_type_c::date_type_name; |
7395 function_type_prefix = return_type_symbol; |
7395 function_type_prefix = return_type_symbol; |
7396 break; |
7396 break; |
7397 |
7397 |
7398 } |
7398 } |
7410 case function_lword_to_dword : |
7410 case function_lword_to_dword : |
7411 { |
7411 { |
7412 symbol_c *last_type_symbol = NULL; |
7412 symbol_c *last_type_symbol = NULL; |
7413 |
7413 |
7414 { |
7414 { |
7415 identifier_c IN_param_name("IN"); |
7415 symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); |
7416 /* Get the value from a foo(<param_name> = <param_value>) style call */ |
7416 /* Get the value from a foo(<param_name> = <param_value>) style call */ |
7417 symbol_c *IN_param_value = &this->default_variable_name; |
7417 symbol_c *IN_param_value = &this->default_variable_name; |
7418 |
7418 |
7419 symbol_c *IN_type_symbol = param_data_type; |
7419 symbol_c *IN_type_symbol = param_data_type; |
7420 last_type_symbol = param_data_type; |
7420 last_type_symbol = param_data_type; |
7424 |
7424 |
7425 function_name = (symbol_c*)(new pragma_c("__move_")); |
7425 function_name = (symbol_c*)(new pragma_c("__move_")); |
7426 |
7426 |
7427 if (IN_type_symbol == NULL) |
7427 if (IN_type_symbol == NULL) |
7428 IN_type_symbol = last_type_symbol; |
7428 IN_type_symbol = last_type_symbol; |
7429 ADD_PARAM_LIST(&IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) |
7429 ADD_PARAM_LIST(IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) |
7430 symbol_c * return_type_symbol = &search_constant_type_c::dword_type_name; |
7430 symbol_c * return_type_symbol = &search_constant_type_c::dword_type_name; |
7431 function_type_prefix = return_type_symbol; |
7431 function_type_prefix = return_type_symbol; |
7432 function_type_suffix = IN_type_symbol; |
7432 function_type_suffix = IN_type_symbol; |
7433 break; |
7433 break; |
7434 |
7434 |
7447 case function_lword_to_dt : |
7447 case function_lword_to_dt : |
7448 { |
7448 { |
7449 symbol_c *last_type_symbol = NULL; |
7449 symbol_c *last_type_symbol = NULL; |
7450 |
7450 |
7451 { |
7451 { |
7452 identifier_c IN_param_name("IN"); |
7452 symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); |
7453 /* Get the value from a foo(<param_name> = <param_value>) style call */ |
7453 /* Get the value from a foo(<param_name> = <param_value>) style call */ |
7454 symbol_c *IN_param_value = &this->default_variable_name; |
7454 symbol_c *IN_param_value = &this->default_variable_name; |
7455 |
7455 |
7456 symbol_c *IN_type_symbol = param_data_type; |
7456 symbol_c *IN_type_symbol = param_data_type; |
7457 last_type_symbol = param_data_type; |
7457 last_type_symbol = param_data_type; |
7461 |
7461 |
7462 function_name = (symbol_c*)(new pragma_c("__int_to_time")); |
7462 function_name = (symbol_c*)(new pragma_c("__int_to_time")); |
7463 |
7463 |
7464 if (IN_type_symbol == NULL) |
7464 if (IN_type_symbol == NULL) |
7465 IN_type_symbol = last_type_symbol; |
7465 IN_type_symbol = last_type_symbol; |
7466 ADD_PARAM_LIST(&IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) |
7466 ADD_PARAM_LIST(IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) |
7467 symbol_c * return_type_symbol = &search_constant_type_c::dt_type_name; |
7467 symbol_c * return_type_symbol = &search_constant_type_c::dt_type_name; |
7468 function_type_prefix = return_type_symbol; |
7468 function_type_prefix = return_type_symbol; |
7469 break; |
7469 break; |
7470 |
7470 |
7471 } |
7471 } |
7483 case function_lword_to_tod : |
7483 case function_lword_to_tod : |
7484 { |
7484 { |
7485 symbol_c *last_type_symbol = NULL; |
7485 symbol_c *last_type_symbol = NULL; |
7486 |
7486 |
7487 { |
7487 { |
7488 identifier_c IN_param_name("IN"); |
7488 symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); |
7489 /* Get the value from a foo(<param_name> = <param_value>) style call */ |
7489 /* Get the value from a foo(<param_name> = <param_value>) style call */ |
7490 symbol_c *IN_param_value = &this->default_variable_name; |
7490 symbol_c *IN_param_value = &this->default_variable_name; |
7491 |
7491 |
7492 symbol_c *IN_type_symbol = param_data_type; |
7492 symbol_c *IN_type_symbol = param_data_type; |
7493 last_type_symbol = param_data_type; |
7493 last_type_symbol = param_data_type; |
7497 |
7497 |
7498 function_name = (symbol_c*)(new pragma_c("__int_to_time")); |
7498 function_name = (symbol_c*)(new pragma_c("__int_to_time")); |
7499 |
7499 |
7500 if (IN_type_symbol == NULL) |
7500 if (IN_type_symbol == NULL) |
7501 IN_type_symbol = last_type_symbol; |
7501 IN_type_symbol = last_type_symbol; |
7502 ADD_PARAM_LIST(&IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) |
7502 ADD_PARAM_LIST(IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) |
7503 symbol_c * return_type_symbol = &search_constant_type_c::tod_type_name; |
7503 symbol_c * return_type_symbol = &search_constant_type_c::tod_type_name; |
7504 function_type_prefix = return_type_symbol; |
7504 function_type_prefix = return_type_symbol; |
7505 break; |
7505 break; |
7506 |
7506 |
7507 } |
7507 } |
7519 case function_lword_to_udint : |
7519 case function_lword_to_udint : |
7520 { |
7520 { |
7521 symbol_c *last_type_symbol = NULL; |
7521 symbol_c *last_type_symbol = NULL; |
7522 |
7522 |
7523 { |
7523 { |
7524 identifier_c IN_param_name("IN"); |
7524 symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); |
7525 /* Get the value from a foo(<param_name> = <param_value>) style call */ |
7525 /* Get the value from a foo(<param_name> = <param_value>) style call */ |
7526 symbol_c *IN_param_value = &this->default_variable_name; |
7526 symbol_c *IN_param_value = &this->default_variable_name; |
7527 |
7527 |
7528 symbol_c *IN_type_symbol = param_data_type; |
7528 symbol_c *IN_type_symbol = param_data_type; |
7529 last_type_symbol = param_data_type; |
7529 last_type_symbol = param_data_type; |
7533 |
7533 |
7534 function_name = (symbol_c*)(new pragma_c("__move_")); |
7534 function_name = (symbol_c*)(new pragma_c("__move_")); |
7535 |
7535 |
7536 if (IN_type_symbol == NULL) |
7536 if (IN_type_symbol == NULL) |
7537 IN_type_symbol = last_type_symbol; |
7537 IN_type_symbol = last_type_symbol; |
7538 ADD_PARAM_LIST(&IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) |
7538 ADD_PARAM_LIST(IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) |
7539 symbol_c * return_type_symbol = &search_constant_type_c::udint_type_name; |
7539 symbol_c * return_type_symbol = &search_constant_type_c::udint_type_name; |
7540 function_type_prefix = return_type_symbol; |
7540 function_type_prefix = return_type_symbol; |
7541 function_type_suffix = IN_type_symbol; |
7541 function_type_suffix = IN_type_symbol; |
7542 break; |
7542 break; |
7543 |
7543 |
7556 case function_lword_to_word : |
7556 case function_lword_to_word : |
7557 { |
7557 { |
7558 symbol_c *last_type_symbol = NULL; |
7558 symbol_c *last_type_symbol = NULL; |
7559 |
7559 |
7560 { |
7560 { |
7561 identifier_c IN_param_name("IN"); |
7561 symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); |
7562 /* Get the value from a foo(<param_name> = <param_value>) style call */ |
7562 /* Get the value from a foo(<param_name> = <param_value>) style call */ |
7563 symbol_c *IN_param_value = &this->default_variable_name; |
7563 symbol_c *IN_param_value = &this->default_variable_name; |
7564 |
7564 |
7565 symbol_c *IN_type_symbol = param_data_type; |
7565 symbol_c *IN_type_symbol = param_data_type; |
7566 last_type_symbol = param_data_type; |
7566 last_type_symbol = param_data_type; |
7570 |
7570 |
7571 function_name = (symbol_c*)(new pragma_c("__move_")); |
7571 function_name = (symbol_c*)(new pragma_c("__move_")); |
7572 |
7572 |
7573 if (IN_type_symbol == NULL) |
7573 if (IN_type_symbol == NULL) |
7574 IN_type_symbol = last_type_symbol; |
7574 IN_type_symbol = last_type_symbol; |
7575 ADD_PARAM_LIST(&IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) |
7575 ADD_PARAM_LIST(IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) |
7576 symbol_c * return_type_symbol = &search_constant_type_c::word_type_name; |
7576 symbol_c * return_type_symbol = &search_constant_type_c::word_type_name; |
7577 function_type_prefix = return_type_symbol; |
7577 function_type_prefix = return_type_symbol; |
7578 function_type_suffix = IN_type_symbol; |
7578 function_type_suffix = IN_type_symbol; |
7579 break; |
7579 break; |
7580 |
7580 |
7593 case function_lword_to_string : |
7593 case function_lword_to_string : |
7594 { |
7594 { |
7595 symbol_c *last_type_symbol = NULL; |
7595 symbol_c *last_type_symbol = NULL; |
7596 |
7596 |
7597 { |
7597 { |
7598 identifier_c IN_param_name("IN"); |
7598 symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); |
7599 /* Get the value from a foo(<param_name> = <param_value>) style call */ |
7599 /* Get the value from a foo(<param_name> = <param_value>) style call */ |
7600 symbol_c *IN_param_value = &this->default_variable_name; |
7600 symbol_c *IN_param_value = &this->default_variable_name; |
7601 |
7601 |
7602 symbol_c *IN_type_symbol = param_data_type; |
7602 symbol_c *IN_type_symbol = param_data_type; |
7603 last_type_symbol = param_data_type; |
7603 last_type_symbol = param_data_type; |
7607 |
7607 |
7608 function_name = (symbol_c*)(new pragma_c("__bit_to_string")); |
7608 function_name = (symbol_c*)(new pragma_c("__bit_to_string")); |
7609 |
7609 |
7610 if (IN_type_symbol == NULL) |
7610 if (IN_type_symbol == NULL) |
7611 IN_type_symbol = last_type_symbol; |
7611 IN_type_symbol = last_type_symbol; |
7612 ADD_PARAM_LIST(&IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) |
7612 ADD_PARAM_LIST(IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) |
7613 symbol_c * return_type_symbol = &search_constant_type_c::string_type_name; |
7613 symbol_c * return_type_symbol = &search_constant_type_c::string_type_name; |
7614 function_type_prefix = return_type_symbol; |
7614 function_type_prefix = return_type_symbol; |
7615 break; |
7615 break; |
7616 |
7616 |
7617 } |
7617 } |
7629 case function_lword_to_uint : |
7629 case function_lword_to_uint : |
7630 { |
7630 { |
7631 symbol_c *last_type_symbol = NULL; |
7631 symbol_c *last_type_symbol = NULL; |
7632 |
7632 |
7633 { |
7633 { |
7634 identifier_c IN_param_name("IN"); |
7634 symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); |
7635 /* Get the value from a foo(<param_name> = <param_value>) style call */ |
7635 /* Get the value from a foo(<param_name> = <param_value>) style call */ |
7636 symbol_c *IN_param_value = &this->default_variable_name; |
7636 symbol_c *IN_param_value = &this->default_variable_name; |
7637 |
7637 |
7638 symbol_c *IN_type_symbol = param_data_type; |
7638 symbol_c *IN_type_symbol = param_data_type; |
7639 last_type_symbol = param_data_type; |
7639 last_type_symbol = param_data_type; |
7643 |
7643 |
7644 function_name = (symbol_c*)(new pragma_c("__move_")); |
7644 function_name = (symbol_c*)(new pragma_c("__move_")); |
7645 |
7645 |
7646 if (IN_type_symbol == NULL) |
7646 if (IN_type_symbol == NULL) |
7647 IN_type_symbol = last_type_symbol; |
7647 IN_type_symbol = last_type_symbol; |
7648 ADD_PARAM_LIST(&IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) |
7648 ADD_PARAM_LIST(IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) |
7649 symbol_c * return_type_symbol = &search_constant_type_c::uint_type_name; |
7649 symbol_c * return_type_symbol = &search_constant_type_c::uint_type_name; |
7650 function_type_prefix = return_type_symbol; |
7650 function_type_prefix = return_type_symbol; |
7651 function_type_suffix = IN_type_symbol; |
7651 function_type_suffix = IN_type_symbol; |
7652 break; |
7652 break; |
7653 |
7653 |
7666 case function_lword_to_lreal : |
7666 case function_lword_to_lreal : |
7667 { |
7667 { |
7668 symbol_c *last_type_symbol = NULL; |
7668 symbol_c *last_type_symbol = NULL; |
7669 |
7669 |
7670 { |
7670 { |
7671 identifier_c IN_param_name("IN"); |
7671 symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); |
7672 /* Get the value from a foo(<param_name> = <param_value>) style call */ |
7672 /* Get the value from a foo(<param_name> = <param_value>) style call */ |
7673 symbol_c *IN_param_value = &this->default_variable_name; |
7673 symbol_c *IN_param_value = &this->default_variable_name; |
7674 |
7674 |
7675 symbol_c *IN_type_symbol = param_data_type; |
7675 symbol_c *IN_type_symbol = param_data_type; |
7676 last_type_symbol = param_data_type; |
7676 last_type_symbol = param_data_type; |
7680 |
7680 |
7681 function_name = (symbol_c*)(new pragma_c("__move_")); |
7681 function_name = (symbol_c*)(new pragma_c("__move_")); |
7682 |
7682 |
7683 if (IN_type_symbol == NULL) |
7683 if (IN_type_symbol == NULL) |
7684 IN_type_symbol = last_type_symbol; |
7684 IN_type_symbol = last_type_symbol; |
7685 ADD_PARAM_LIST(&IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) |
7685 ADD_PARAM_LIST(IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) |
7686 symbol_c * return_type_symbol = &search_constant_type_c::lreal_type_name; |
7686 symbol_c * return_type_symbol = &search_constant_type_c::lreal_type_name; |
7687 function_type_prefix = return_type_symbol; |
7687 function_type_prefix = return_type_symbol; |
7688 function_type_suffix = IN_type_symbol; |
7688 function_type_suffix = IN_type_symbol; |
7689 break; |
7689 break; |
7690 |
7690 |
7703 case function_lword_to_byte : |
7703 case function_lword_to_byte : |
7704 { |
7704 { |
7705 symbol_c *last_type_symbol = NULL; |
7705 symbol_c *last_type_symbol = NULL; |
7706 |
7706 |
7707 { |
7707 { |
7708 identifier_c IN_param_name("IN"); |
7708 symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); |
7709 /* Get the value from a foo(<param_name> = <param_value>) style call */ |
7709 /* Get the value from a foo(<param_name> = <param_value>) style call */ |
7710 symbol_c *IN_param_value = &this->default_variable_name; |
7710 symbol_c *IN_param_value = &this->default_variable_name; |
7711 |
7711 |
7712 symbol_c *IN_type_symbol = param_data_type; |
7712 symbol_c *IN_type_symbol = param_data_type; |
7713 last_type_symbol = param_data_type; |
7713 last_type_symbol = param_data_type; |
7717 |
7717 |
7718 function_name = (symbol_c*)(new pragma_c("__move_")); |
7718 function_name = (symbol_c*)(new pragma_c("__move_")); |
7719 |
7719 |
7720 if (IN_type_symbol == NULL) |
7720 if (IN_type_symbol == NULL) |
7721 IN_type_symbol = last_type_symbol; |
7721 IN_type_symbol = last_type_symbol; |
7722 ADD_PARAM_LIST(&IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) |
7722 ADD_PARAM_LIST(IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) |
7723 symbol_c * return_type_symbol = &search_constant_type_c::byte_type_name; |
7723 symbol_c * return_type_symbol = &search_constant_type_c::byte_type_name; |
7724 function_type_prefix = return_type_symbol; |
7724 function_type_prefix = return_type_symbol; |
7725 function_type_suffix = IN_type_symbol; |
7725 function_type_suffix = IN_type_symbol; |
7726 break; |
7726 break; |
7727 |
7727 |
7740 case function_lword_to_usint : |
7740 case function_lword_to_usint : |
7741 { |
7741 { |
7742 symbol_c *last_type_symbol = NULL; |
7742 symbol_c *last_type_symbol = NULL; |
7743 |
7743 |
7744 { |
7744 { |
7745 identifier_c IN_param_name("IN"); |
7745 symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); |
7746 /* Get the value from a foo(<param_name> = <param_value>) style call */ |
7746 /* Get the value from a foo(<param_name> = <param_value>) style call */ |
7747 symbol_c *IN_param_value = &this->default_variable_name; |
7747 symbol_c *IN_param_value = &this->default_variable_name; |
7748 |
7748 |
7749 symbol_c *IN_type_symbol = param_data_type; |
7749 symbol_c *IN_type_symbol = param_data_type; |
7750 last_type_symbol = param_data_type; |
7750 last_type_symbol = param_data_type; |
7754 |
7754 |
7755 function_name = (symbol_c*)(new pragma_c("__move_")); |
7755 function_name = (symbol_c*)(new pragma_c("__move_")); |
7756 |
7756 |
7757 if (IN_type_symbol == NULL) |
7757 if (IN_type_symbol == NULL) |
7758 IN_type_symbol = last_type_symbol; |
7758 IN_type_symbol = last_type_symbol; |
7759 ADD_PARAM_LIST(&IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) |
7759 ADD_PARAM_LIST(IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) |
7760 symbol_c * return_type_symbol = &search_constant_type_c::usint_type_name; |
7760 symbol_c * return_type_symbol = &search_constant_type_c::usint_type_name; |
7761 function_type_prefix = return_type_symbol; |
7761 function_type_prefix = return_type_symbol; |
7762 function_type_suffix = IN_type_symbol; |
7762 function_type_suffix = IN_type_symbol; |
7763 break; |
7763 break; |
7764 |
7764 |
7777 case function_lword_to_ulint : |
7777 case function_lword_to_ulint : |
7778 { |
7778 { |
7779 symbol_c *last_type_symbol = NULL; |
7779 symbol_c *last_type_symbol = NULL; |
7780 |
7780 |
7781 { |
7781 { |
7782 identifier_c IN_param_name("IN"); |
7782 symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); |
7783 /* Get the value from a foo(<param_name> = <param_value>) style call */ |
7783 /* Get the value from a foo(<param_name> = <param_value>) style call */ |
7784 symbol_c *IN_param_value = &this->default_variable_name; |
7784 symbol_c *IN_param_value = &this->default_variable_name; |
7785 |
7785 |
7786 symbol_c *IN_type_symbol = param_data_type; |
7786 symbol_c *IN_type_symbol = param_data_type; |
7787 last_type_symbol = param_data_type; |
7787 last_type_symbol = param_data_type; |
7791 |
7791 |
7792 function_name = (symbol_c*)(new pragma_c("__move_")); |
7792 function_name = (symbol_c*)(new pragma_c("__move_")); |
7793 |
7793 |
7794 if (IN_type_symbol == NULL) |
7794 if (IN_type_symbol == NULL) |
7795 IN_type_symbol = last_type_symbol; |
7795 IN_type_symbol = last_type_symbol; |
7796 ADD_PARAM_LIST(&IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) |
7796 ADD_PARAM_LIST(IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) |
7797 symbol_c * return_type_symbol = &search_constant_type_c::ulint_type_name; |
7797 symbol_c * return_type_symbol = &search_constant_type_c::ulint_type_name; |
7798 function_type_prefix = return_type_symbol; |
7798 function_type_prefix = return_type_symbol; |
7799 function_type_suffix = IN_type_symbol; |
7799 function_type_suffix = IN_type_symbol; |
7800 break; |
7800 break; |
7801 |
7801 |
7814 case function_lword_to_bool : |
7814 case function_lword_to_bool : |
7815 { |
7815 { |
7816 symbol_c *last_type_symbol = NULL; |
7816 symbol_c *last_type_symbol = NULL; |
7817 |
7817 |
7818 { |
7818 { |
7819 identifier_c IN_param_name("IN"); |
7819 symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); |
7820 /* Get the value from a foo(<param_name> = <param_value>) style call */ |
7820 /* Get the value from a foo(<param_name> = <param_value>) style call */ |
7821 symbol_c *IN_param_value = &this->default_variable_name; |
7821 symbol_c *IN_param_value = &this->default_variable_name; |
7822 |
7822 |
7823 symbol_c *IN_type_symbol = param_data_type; |
7823 symbol_c *IN_type_symbol = param_data_type; |
7824 last_type_symbol = param_data_type; |
7824 last_type_symbol = param_data_type; |
7828 |
7828 |
7829 function_name = (symbol_c*)(new pragma_c("__move_")); |
7829 function_name = (symbol_c*)(new pragma_c("__move_")); |
7830 |
7830 |
7831 if (IN_type_symbol == NULL) |
7831 if (IN_type_symbol == NULL) |
7832 IN_type_symbol = last_type_symbol; |
7832 IN_type_symbol = last_type_symbol; |
7833 ADD_PARAM_LIST(&IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) |
7833 ADD_PARAM_LIST(IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) |
7834 symbol_c * return_type_symbol = &search_constant_type_c::bool_type_name; |
7834 symbol_c * return_type_symbol = &search_constant_type_c::bool_type_name; |
7835 function_type_prefix = return_type_symbol; |
7835 function_type_prefix = return_type_symbol; |
7836 function_type_suffix = IN_type_symbol; |
7836 function_type_suffix = IN_type_symbol; |
7837 break; |
7837 break; |
7838 |
7838 |
7851 case function_lword_to_time : |
7851 case function_lword_to_time : |
7852 { |
7852 { |
7853 symbol_c *last_type_symbol = NULL; |
7853 symbol_c *last_type_symbol = NULL; |
7854 |
7854 |
7855 { |
7855 { |
7856 identifier_c IN_param_name("IN"); |
7856 symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); |
7857 /* Get the value from a foo(<param_name> = <param_value>) style call */ |
7857 /* Get the value from a foo(<param_name> = <param_value>) style call */ |
7858 symbol_c *IN_param_value = &this->default_variable_name; |
7858 symbol_c *IN_param_value = &this->default_variable_name; |
7859 |
7859 |
7860 symbol_c *IN_type_symbol = param_data_type; |
7860 symbol_c *IN_type_symbol = param_data_type; |
7861 last_type_symbol = param_data_type; |
7861 last_type_symbol = param_data_type; |
7865 |
7865 |
7866 function_name = (symbol_c*)(new pragma_c("__int_to_time")); |
7866 function_name = (symbol_c*)(new pragma_c("__int_to_time")); |
7867 |
7867 |
7868 if (IN_type_symbol == NULL) |
7868 if (IN_type_symbol == NULL) |
7869 IN_type_symbol = last_type_symbol; |
7869 IN_type_symbol = last_type_symbol; |
7870 ADD_PARAM_LIST(&IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) |
7870 ADD_PARAM_LIST(IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) |
7871 symbol_c * return_type_symbol = &search_constant_type_c::time_type_name; |
7871 symbol_c * return_type_symbol = &search_constant_type_c::time_type_name; |
7872 function_type_prefix = return_type_symbol; |
7872 function_type_prefix = return_type_symbol; |
7873 break; |
7873 break; |
7874 |
7874 |
7875 } |
7875 } |
7887 case function_lword_to_int : |
7887 case function_lword_to_int : |
7888 { |
7888 { |
7889 symbol_c *last_type_symbol = NULL; |
7889 symbol_c *last_type_symbol = NULL; |
7890 |
7890 |
7891 { |
7891 { |
7892 identifier_c IN_param_name("IN"); |
7892 symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); |
7893 /* Get the value from a foo(<param_name> = <param_value>) style call */ |
7893 /* Get the value from a foo(<param_name> = <param_value>) style call */ |
7894 symbol_c *IN_param_value = &this->default_variable_name; |
7894 symbol_c *IN_param_value = &this->default_variable_name; |
7895 |
7895 |
7896 symbol_c *IN_type_symbol = param_data_type; |
7896 symbol_c *IN_type_symbol = param_data_type; |
7897 last_type_symbol = param_data_type; |
7897 last_type_symbol = param_data_type; |
7901 |
7901 |
7902 function_name = (symbol_c*)(new pragma_c("__move_")); |
7902 function_name = (symbol_c*)(new pragma_c("__move_")); |
7903 |
7903 |
7904 if (IN_type_symbol == NULL) |
7904 if (IN_type_symbol == NULL) |
7905 IN_type_symbol = last_type_symbol; |
7905 IN_type_symbol = last_type_symbol; |
7906 ADD_PARAM_LIST(&IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) |
7906 ADD_PARAM_LIST(IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) |
7907 symbol_c * return_type_symbol = &search_constant_type_c::int_type_name; |
7907 symbol_c * return_type_symbol = &search_constant_type_c::int_type_name; |
7908 function_type_prefix = return_type_symbol; |
7908 function_type_prefix = return_type_symbol; |
7909 function_type_suffix = IN_type_symbol; |
7909 function_type_suffix = IN_type_symbol; |
7910 break; |
7910 break; |
7911 |
7911 |
7924 case function_uint_to_real : |
7924 case function_uint_to_real : |
7925 { |
7925 { |
7926 symbol_c *last_type_symbol = NULL; |
7926 symbol_c *last_type_symbol = NULL; |
7927 |
7927 |
7928 { |
7928 { |
7929 identifier_c IN_param_name("IN"); |
7929 symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); |
7930 /* Get the value from a foo(<param_name> = <param_value>) style call */ |
7930 /* Get the value from a foo(<param_name> = <param_value>) style call */ |
7931 symbol_c *IN_param_value = &this->default_variable_name; |
7931 symbol_c *IN_param_value = &this->default_variable_name; |
7932 |
7932 |
7933 symbol_c *IN_type_symbol = param_data_type; |
7933 symbol_c *IN_type_symbol = param_data_type; |
7934 last_type_symbol = param_data_type; |
7934 last_type_symbol = param_data_type; |
7938 |
7938 |
7939 function_name = (symbol_c*)(new pragma_c("__move_")); |
7939 function_name = (symbol_c*)(new pragma_c("__move_")); |
7940 |
7940 |
7941 if (IN_type_symbol == NULL) |
7941 if (IN_type_symbol == NULL) |
7942 IN_type_symbol = last_type_symbol; |
7942 IN_type_symbol = last_type_symbol; |
7943 ADD_PARAM_LIST(&IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) |
7943 ADD_PARAM_LIST(IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) |
7944 symbol_c * return_type_symbol = &search_constant_type_c::real_type_name; |
7944 symbol_c * return_type_symbol = &search_constant_type_c::real_type_name; |
7945 function_type_prefix = return_type_symbol; |
7945 function_type_prefix = return_type_symbol; |
7946 function_type_suffix = IN_type_symbol; |
7946 function_type_suffix = IN_type_symbol; |
7947 break; |
7947 break; |
7948 |
7948 |
7961 case function_uint_to_sint : |
7961 case function_uint_to_sint : |
7962 { |
7962 { |
7963 symbol_c *last_type_symbol = NULL; |
7963 symbol_c *last_type_symbol = NULL; |
7964 |
7964 |
7965 { |
7965 { |
7966 identifier_c IN_param_name("IN"); |
7966 symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); |
7967 /* Get the value from a foo(<param_name> = <param_value>) style call */ |
7967 /* Get the value from a foo(<param_name> = <param_value>) style call */ |
7968 symbol_c *IN_param_value = &this->default_variable_name; |
7968 symbol_c *IN_param_value = &this->default_variable_name; |
7969 |
7969 |
7970 symbol_c *IN_type_symbol = param_data_type; |
7970 symbol_c *IN_type_symbol = param_data_type; |
7971 last_type_symbol = param_data_type; |
7971 last_type_symbol = param_data_type; |
7975 |
7975 |
7976 function_name = (symbol_c*)(new pragma_c("__move_")); |
7976 function_name = (symbol_c*)(new pragma_c("__move_")); |
7977 |
7977 |
7978 if (IN_type_symbol == NULL) |
7978 if (IN_type_symbol == NULL) |
7979 IN_type_symbol = last_type_symbol; |
7979 IN_type_symbol = last_type_symbol; |
7980 ADD_PARAM_LIST(&IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) |
7980 ADD_PARAM_LIST(IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) |
7981 symbol_c * return_type_symbol = &search_constant_type_c::sint_type_name; |
7981 symbol_c * return_type_symbol = &search_constant_type_c::sint_type_name; |
7982 function_type_prefix = return_type_symbol; |
7982 function_type_prefix = return_type_symbol; |
7983 function_type_suffix = IN_type_symbol; |
7983 function_type_suffix = IN_type_symbol; |
7984 break; |
7984 break; |
7985 |
7985 |
7998 case function_uint_to_lint : |
7998 case function_uint_to_lint : |
7999 { |
7999 { |
8000 symbol_c *last_type_symbol = NULL; |
8000 symbol_c *last_type_symbol = NULL; |
8001 |
8001 |
8002 { |
8002 { |
8003 identifier_c IN_param_name("IN"); |
8003 symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); |
8004 /* Get the value from a foo(<param_name> = <param_value>) style call */ |
8004 /* Get the value from a foo(<param_name> = <param_value>) style call */ |
8005 symbol_c *IN_param_value = &this->default_variable_name; |
8005 symbol_c *IN_param_value = &this->default_variable_name; |
8006 |
8006 |
8007 symbol_c *IN_type_symbol = param_data_type; |
8007 symbol_c *IN_type_symbol = param_data_type; |
8008 last_type_symbol = param_data_type; |
8008 last_type_symbol = param_data_type; |
8012 |
8012 |
8013 function_name = (symbol_c*)(new pragma_c("__move_")); |
8013 function_name = (symbol_c*)(new pragma_c("__move_")); |
8014 |
8014 |
8015 if (IN_type_symbol == NULL) |
8015 if (IN_type_symbol == NULL) |
8016 IN_type_symbol = last_type_symbol; |
8016 IN_type_symbol = last_type_symbol; |
8017 ADD_PARAM_LIST(&IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) |
8017 ADD_PARAM_LIST(IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) |
8018 symbol_c * return_type_symbol = &search_constant_type_c::lint_type_name; |
8018 symbol_c * return_type_symbol = &search_constant_type_c::lint_type_name; |
8019 function_type_prefix = return_type_symbol; |
8019 function_type_prefix = return_type_symbol; |
8020 function_type_suffix = IN_type_symbol; |
8020 function_type_suffix = IN_type_symbol; |
8021 break; |
8021 break; |
8022 |
8022 |
8035 case function_uint_to_dint : |
8035 case function_uint_to_dint : |
8036 { |
8036 { |
8037 symbol_c *last_type_symbol = NULL; |
8037 symbol_c *last_type_symbol = NULL; |
8038 |
8038 |
8039 { |
8039 { |
8040 identifier_c IN_param_name("IN"); |
8040 symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); |
8041 /* Get the value from a foo(<param_name> = <param_value>) style call */ |
8041 /* Get the value from a foo(<param_name> = <param_value>) style call */ |
8042 symbol_c *IN_param_value = &this->default_variable_name; |
8042 symbol_c *IN_param_value = &this->default_variable_name; |
8043 |
8043 |
8044 symbol_c *IN_type_symbol = param_data_type; |
8044 symbol_c *IN_type_symbol = param_data_type; |
8045 last_type_symbol = param_data_type; |
8045 last_type_symbol = param_data_type; |
8049 |
8049 |
8050 function_name = (symbol_c*)(new pragma_c("__move_")); |
8050 function_name = (symbol_c*)(new pragma_c("__move_")); |
8051 |
8051 |
8052 if (IN_type_symbol == NULL) |
8052 if (IN_type_symbol == NULL) |
8053 IN_type_symbol = last_type_symbol; |
8053 IN_type_symbol = last_type_symbol; |
8054 ADD_PARAM_LIST(&IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) |
8054 ADD_PARAM_LIST(IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) |
8055 symbol_c * return_type_symbol = &search_constant_type_c::dint_type_name; |
8055 symbol_c * return_type_symbol = &search_constant_type_c::dint_type_name; |
8056 function_type_prefix = return_type_symbol; |
8056 function_type_prefix = return_type_symbol; |
8057 function_type_suffix = IN_type_symbol; |
8057 function_type_suffix = IN_type_symbol; |
8058 break; |
8058 break; |
8059 |
8059 |
8072 case function_uint_to_date : |
8072 case function_uint_to_date : |
8073 { |
8073 { |
8074 symbol_c *last_type_symbol = NULL; |
8074 symbol_c *last_type_symbol = NULL; |
8075 |
8075 |
8076 { |
8076 { |
8077 identifier_c IN_param_name("IN"); |
8077 symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); |
8078 /* Get the value from a foo(<param_name> = <param_value>) style call */ |
8078 /* Get the value from a foo(<param_name> = <param_value>) style call */ |
8079 symbol_c *IN_param_value = &this->default_variable_name; |
8079 symbol_c *IN_param_value = &this->default_variable_name; |
8080 |
8080 |
8081 symbol_c *IN_type_symbol = param_data_type; |
8081 symbol_c *IN_type_symbol = param_data_type; |
8082 last_type_symbol = param_data_type; |
8082 last_type_symbol = param_data_type; |
8086 |
8086 |
8087 function_name = (symbol_c*)(new pragma_c("__int_to_time")); |
8087 function_name = (symbol_c*)(new pragma_c("__int_to_time")); |
8088 |
8088 |
8089 if (IN_type_symbol == NULL) |
8089 if (IN_type_symbol == NULL) |
8090 IN_type_symbol = last_type_symbol; |
8090 IN_type_symbol = last_type_symbol; |
8091 ADD_PARAM_LIST(&IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) |
8091 ADD_PARAM_LIST(IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) |
8092 symbol_c * return_type_symbol = &search_constant_type_c::date_type_name; |
8092 symbol_c * return_type_symbol = &search_constant_type_c::date_type_name; |
8093 function_type_prefix = return_type_symbol; |
8093 function_type_prefix = return_type_symbol; |
8094 break; |
8094 break; |
8095 |
8095 |
8096 } |
8096 } |
8108 case function_uint_to_dword : |
8108 case function_uint_to_dword : |
8109 { |
8109 { |
8110 symbol_c *last_type_symbol = NULL; |
8110 symbol_c *last_type_symbol = NULL; |
8111 |
8111 |
8112 { |
8112 { |
8113 identifier_c IN_param_name("IN"); |
8113 symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); |
8114 /* Get the value from a foo(<param_name> = <param_value>) style call */ |
8114 /* Get the value from a foo(<param_name> = <param_value>) style call */ |
8115 symbol_c *IN_param_value = &this->default_variable_name; |
8115 symbol_c *IN_param_value = &this->default_variable_name; |
8116 |
8116 |
8117 symbol_c *IN_type_symbol = param_data_type; |
8117 symbol_c *IN_type_symbol = param_data_type; |
8118 last_type_symbol = param_data_type; |
8118 last_type_symbol = param_data_type; |
8122 |
8122 |
8123 function_name = (symbol_c*)(new pragma_c("__move_")); |
8123 function_name = (symbol_c*)(new pragma_c("__move_")); |
8124 |
8124 |
8125 if (IN_type_symbol == NULL) |
8125 if (IN_type_symbol == NULL) |
8126 IN_type_symbol = last_type_symbol; |
8126 IN_type_symbol = last_type_symbol; |
8127 ADD_PARAM_LIST(&IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) |
8127 ADD_PARAM_LIST(IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) |
8128 symbol_c * return_type_symbol = &search_constant_type_c::dword_type_name; |
8128 symbol_c * return_type_symbol = &search_constant_type_c::dword_type_name; |
8129 function_type_prefix = return_type_symbol; |
8129 function_type_prefix = return_type_symbol; |
8130 function_type_suffix = IN_type_symbol; |
8130 function_type_suffix = IN_type_symbol; |
8131 break; |
8131 break; |
8132 |
8132 |
8145 case function_uint_to_dt : |
8145 case function_uint_to_dt : |
8146 { |
8146 { |
8147 symbol_c *last_type_symbol = NULL; |
8147 symbol_c *last_type_symbol = NULL; |
8148 |
8148 |
8149 { |
8149 { |
8150 identifier_c IN_param_name("IN"); |
8150 symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); |
8151 /* Get the value from a foo(<param_name> = <param_value>) style call */ |
8151 /* Get the value from a foo(<param_name> = <param_value>) style call */ |
8152 symbol_c *IN_param_value = &this->default_variable_name; |
8152 symbol_c *IN_param_value = &this->default_variable_name; |
8153 |
8153 |
8154 symbol_c *IN_type_symbol = param_data_type; |
8154 symbol_c *IN_type_symbol = param_data_type; |
8155 last_type_symbol = param_data_type; |
8155 last_type_symbol = param_data_type; |
8159 |
8159 |
8160 function_name = (symbol_c*)(new pragma_c("__int_to_time")); |
8160 function_name = (symbol_c*)(new pragma_c("__int_to_time")); |
8161 |
8161 |
8162 if (IN_type_symbol == NULL) |
8162 if (IN_type_symbol == NULL) |
8163 IN_type_symbol = last_type_symbol; |
8163 IN_type_symbol = last_type_symbol; |
8164 ADD_PARAM_LIST(&IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) |
8164 ADD_PARAM_LIST(IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) |
8165 symbol_c * return_type_symbol = &search_constant_type_c::dt_type_name; |
8165 symbol_c * return_type_symbol = &search_constant_type_c::dt_type_name; |
8166 function_type_prefix = return_type_symbol; |
8166 function_type_prefix = return_type_symbol; |
8167 break; |
8167 break; |
8168 |
8168 |
8169 } |
8169 } |
8181 case function_uint_to_tod : |
8181 case function_uint_to_tod : |
8182 { |
8182 { |
8183 symbol_c *last_type_symbol = NULL; |
8183 symbol_c *last_type_symbol = NULL; |
8184 |
8184 |
8185 { |
8185 { |
8186 identifier_c IN_param_name("IN"); |
8186 symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); |
8187 /* Get the value from a foo(<param_name> = <param_value>) style call */ |
8187 /* Get the value from a foo(<param_name> = <param_value>) style call */ |
8188 symbol_c *IN_param_value = &this->default_variable_name; |
8188 symbol_c *IN_param_value = &this->default_variable_name; |
8189 |
8189 |
8190 symbol_c *IN_type_symbol = param_data_type; |
8190 symbol_c *IN_type_symbol = param_data_type; |
8191 last_type_symbol = param_data_type; |
8191 last_type_symbol = param_data_type; |
8195 |
8195 |
8196 function_name = (symbol_c*)(new pragma_c("__int_to_time")); |
8196 function_name = (symbol_c*)(new pragma_c("__int_to_time")); |
8197 |
8197 |
8198 if (IN_type_symbol == NULL) |
8198 if (IN_type_symbol == NULL) |
8199 IN_type_symbol = last_type_symbol; |
8199 IN_type_symbol = last_type_symbol; |
8200 ADD_PARAM_LIST(&IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) |
8200 ADD_PARAM_LIST(IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) |
8201 symbol_c * return_type_symbol = &search_constant_type_c::tod_type_name; |
8201 symbol_c * return_type_symbol = &search_constant_type_c::tod_type_name; |
8202 function_type_prefix = return_type_symbol; |
8202 function_type_prefix = return_type_symbol; |
8203 break; |
8203 break; |
8204 |
8204 |
8205 } |
8205 } |
8217 case function_uint_to_udint : |
8217 case function_uint_to_udint : |
8218 { |
8218 { |
8219 symbol_c *last_type_symbol = NULL; |
8219 symbol_c *last_type_symbol = NULL; |
8220 |
8220 |
8221 { |
8221 { |
8222 identifier_c IN_param_name("IN"); |
8222 symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); |
8223 /* Get the value from a foo(<param_name> = <param_value>) style call */ |
8223 /* Get the value from a foo(<param_name> = <param_value>) style call */ |
8224 symbol_c *IN_param_value = &this->default_variable_name; |
8224 symbol_c *IN_param_value = &this->default_variable_name; |
8225 |
8225 |
8226 symbol_c *IN_type_symbol = param_data_type; |
8226 symbol_c *IN_type_symbol = param_data_type; |
8227 last_type_symbol = param_data_type; |
8227 last_type_symbol = param_data_type; |
8231 |
8231 |
8232 function_name = (symbol_c*)(new pragma_c("__move_")); |
8232 function_name = (symbol_c*)(new pragma_c("__move_")); |
8233 |
8233 |
8234 if (IN_type_symbol == NULL) |
8234 if (IN_type_symbol == NULL) |
8235 IN_type_symbol = last_type_symbol; |
8235 IN_type_symbol = last_type_symbol; |
8236 ADD_PARAM_LIST(&IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) |
8236 ADD_PARAM_LIST(IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) |
8237 symbol_c * return_type_symbol = &search_constant_type_c::udint_type_name; |
8237 symbol_c * return_type_symbol = &search_constant_type_c::udint_type_name; |
8238 function_type_prefix = return_type_symbol; |
8238 function_type_prefix = return_type_symbol; |
8239 function_type_suffix = IN_type_symbol; |
8239 function_type_suffix = IN_type_symbol; |
8240 break; |
8240 break; |
8241 |
8241 |
8254 case function_uint_to_word : |
8254 case function_uint_to_word : |
8255 { |
8255 { |
8256 symbol_c *last_type_symbol = NULL; |
8256 symbol_c *last_type_symbol = NULL; |
8257 |
8257 |
8258 { |
8258 { |
8259 identifier_c IN_param_name("IN"); |
8259 symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); |
8260 /* Get the value from a foo(<param_name> = <param_value>) style call */ |
8260 /* Get the value from a foo(<param_name> = <param_value>) style call */ |
8261 symbol_c *IN_param_value = &this->default_variable_name; |
8261 symbol_c *IN_param_value = &this->default_variable_name; |
8262 |
8262 |
8263 symbol_c *IN_type_symbol = param_data_type; |
8263 symbol_c *IN_type_symbol = param_data_type; |
8264 last_type_symbol = param_data_type; |
8264 last_type_symbol = param_data_type; |
8268 |
8268 |
8269 function_name = (symbol_c*)(new pragma_c("__move_")); |
8269 function_name = (symbol_c*)(new pragma_c("__move_")); |
8270 |
8270 |
8271 if (IN_type_symbol == NULL) |
8271 if (IN_type_symbol == NULL) |
8272 IN_type_symbol = last_type_symbol; |
8272 IN_type_symbol = last_type_symbol; |
8273 ADD_PARAM_LIST(&IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) |
8273 ADD_PARAM_LIST(IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) |
8274 symbol_c * return_type_symbol = &search_constant_type_c::word_type_name; |
8274 symbol_c * return_type_symbol = &search_constant_type_c::word_type_name; |
8275 function_type_prefix = return_type_symbol; |
8275 function_type_prefix = return_type_symbol; |
8276 function_type_suffix = IN_type_symbol; |
8276 function_type_suffix = IN_type_symbol; |
8277 break; |
8277 break; |
8278 |
8278 |
8291 case function_uint_to_string : |
8291 case function_uint_to_string : |
8292 { |
8292 { |
8293 symbol_c *last_type_symbol = NULL; |
8293 symbol_c *last_type_symbol = NULL; |
8294 |
8294 |
8295 { |
8295 { |
8296 identifier_c IN_param_name("IN"); |
8296 symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); |
8297 /* Get the value from a foo(<param_name> = <param_value>) style call */ |
8297 /* Get the value from a foo(<param_name> = <param_value>) style call */ |
8298 symbol_c *IN_param_value = &this->default_variable_name; |
8298 symbol_c *IN_param_value = &this->default_variable_name; |
8299 |
8299 |
8300 symbol_c *IN_type_symbol = param_data_type; |
8300 symbol_c *IN_type_symbol = param_data_type; |
8301 last_type_symbol = param_data_type; |
8301 last_type_symbol = param_data_type; |
8305 |
8305 |
8306 function_name = (symbol_c*)(new pragma_c("__uint_to_string")); |
8306 function_name = (symbol_c*)(new pragma_c("__uint_to_string")); |
8307 |
8307 |
8308 if (IN_type_symbol == NULL) |
8308 if (IN_type_symbol == NULL) |
8309 IN_type_symbol = last_type_symbol; |
8309 IN_type_symbol = last_type_symbol; |
8310 ADD_PARAM_LIST(&IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) |
8310 ADD_PARAM_LIST(IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) |
8311 symbol_c * return_type_symbol = &search_constant_type_c::string_type_name; |
8311 symbol_c * return_type_symbol = &search_constant_type_c::string_type_name; |
8312 function_type_prefix = return_type_symbol; |
8312 function_type_prefix = return_type_symbol; |
8313 break; |
8313 break; |
8314 |
8314 |
8315 } |
8315 } |
8327 case function_uint_to_lword : |
8327 case function_uint_to_lword : |
8328 { |
8328 { |
8329 symbol_c *last_type_symbol = NULL; |
8329 symbol_c *last_type_symbol = NULL; |
8330 |
8330 |
8331 { |
8331 { |
8332 identifier_c IN_param_name("IN"); |
8332 symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); |
8333 /* Get the value from a foo(<param_name> = <param_value>) style call */ |
8333 /* Get the value from a foo(<param_name> = <param_value>) style call */ |
8334 symbol_c *IN_param_value = &this->default_variable_name; |
8334 symbol_c *IN_param_value = &this->default_variable_name; |
8335 |
8335 |
8336 symbol_c *IN_type_symbol = param_data_type; |
8336 symbol_c *IN_type_symbol = param_data_type; |
8337 last_type_symbol = param_data_type; |
8337 last_type_symbol = param_data_type; |
8341 |
8341 |
8342 function_name = (symbol_c*)(new pragma_c("__move_")); |
8342 function_name = (symbol_c*)(new pragma_c("__move_")); |
8343 |
8343 |
8344 if (IN_type_symbol == NULL) |
8344 if (IN_type_symbol == NULL) |
8345 IN_type_symbol = last_type_symbol; |
8345 IN_type_symbol = last_type_symbol; |
8346 ADD_PARAM_LIST(&IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) |
8346 ADD_PARAM_LIST(IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) |
8347 symbol_c * return_type_symbol = &search_constant_type_c::lword_type_name; |
8347 symbol_c * return_type_symbol = &search_constant_type_c::lword_type_name; |
8348 function_type_prefix = return_type_symbol; |
8348 function_type_prefix = return_type_symbol; |
8349 function_type_suffix = IN_type_symbol; |
8349 function_type_suffix = IN_type_symbol; |
8350 break; |
8350 break; |
8351 |
8351 |
8364 case function_uint_to_lreal : |
8364 case function_uint_to_lreal : |
8365 { |
8365 { |
8366 symbol_c *last_type_symbol = NULL; |
8366 symbol_c *last_type_symbol = NULL; |
8367 |
8367 |
8368 { |
8368 { |
8369 identifier_c IN_param_name("IN"); |
8369 symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); |
8370 /* Get the value from a foo(<param_name> = <param_value>) style call */ |
8370 /* Get the value from a foo(<param_name> = <param_value>) style call */ |
8371 symbol_c *IN_param_value = &this->default_variable_name; |
8371 symbol_c *IN_param_value = &this->default_variable_name; |
8372 |
8372 |
8373 symbol_c *IN_type_symbol = param_data_type; |
8373 symbol_c *IN_type_symbol = param_data_type; |
8374 last_type_symbol = param_data_type; |
8374 last_type_symbol = param_data_type; |
8378 |
8378 |
8379 function_name = (symbol_c*)(new pragma_c("__move_")); |
8379 function_name = (symbol_c*)(new pragma_c("__move_")); |
8380 |
8380 |
8381 if (IN_type_symbol == NULL) |
8381 if (IN_type_symbol == NULL) |
8382 IN_type_symbol = last_type_symbol; |
8382 IN_type_symbol = last_type_symbol; |
8383 ADD_PARAM_LIST(&IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) |
8383 ADD_PARAM_LIST(IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) |
8384 symbol_c * return_type_symbol = &search_constant_type_c::lreal_type_name; |
8384 symbol_c * return_type_symbol = &search_constant_type_c::lreal_type_name; |
8385 function_type_prefix = return_type_symbol; |
8385 function_type_prefix = return_type_symbol; |
8386 function_type_suffix = IN_type_symbol; |
8386 function_type_suffix = IN_type_symbol; |
8387 break; |
8387 break; |
8388 |
8388 |
8401 case function_uint_to_byte : |
8401 case function_uint_to_byte : |
8402 { |
8402 { |
8403 symbol_c *last_type_symbol = NULL; |
8403 symbol_c *last_type_symbol = NULL; |
8404 |
8404 |
8405 { |
8405 { |
8406 identifier_c IN_param_name("IN"); |
8406 symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); |
8407 /* Get the value from a foo(<param_name> = <param_value>) style call */ |
8407 /* Get the value from a foo(<param_name> = <param_value>) style call */ |
8408 symbol_c *IN_param_value = &this->default_variable_name; |
8408 symbol_c *IN_param_value = &this->default_variable_name; |
8409 |
8409 |
8410 symbol_c *IN_type_symbol = param_data_type; |
8410 symbol_c *IN_type_symbol = param_data_type; |
8411 last_type_symbol = param_data_type; |
8411 last_type_symbol = param_data_type; |
8415 |
8415 |
8416 function_name = (symbol_c*)(new pragma_c("__move_")); |
8416 function_name = (symbol_c*)(new pragma_c("__move_")); |
8417 |
8417 |
8418 if (IN_type_symbol == NULL) |
8418 if (IN_type_symbol == NULL) |
8419 IN_type_symbol = last_type_symbol; |
8419 IN_type_symbol = last_type_symbol; |
8420 ADD_PARAM_LIST(&IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) |
8420 ADD_PARAM_LIST(IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) |
8421 symbol_c * return_type_symbol = &search_constant_type_c::byte_type_name; |
8421 symbol_c * return_type_symbol = &search_constant_type_c::byte_type_name; |
8422 function_type_prefix = return_type_symbol; |
8422 function_type_prefix = return_type_symbol; |
8423 function_type_suffix = IN_type_symbol; |
8423 function_type_suffix = IN_type_symbol; |
8424 break; |
8424 break; |
8425 |
8425 |
8438 case function_uint_to_usint : |
8438 case function_uint_to_usint : |
8439 { |
8439 { |
8440 symbol_c *last_type_symbol = NULL; |
8440 symbol_c *last_type_symbol = NULL; |
8441 |
8441 |
8442 { |
8442 { |
8443 identifier_c IN_param_name("IN"); |
8443 symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); |
8444 /* Get the value from a foo(<param_name> = <param_value>) style call */ |
8444 /* Get the value from a foo(<param_name> = <param_value>) style call */ |
8445 symbol_c *IN_param_value = &this->default_variable_name; |
8445 symbol_c *IN_param_value = &this->default_variable_name; |
8446 |
8446 |
8447 symbol_c *IN_type_symbol = param_data_type; |
8447 symbol_c *IN_type_symbol = param_data_type; |
8448 last_type_symbol = param_data_type; |
8448 last_type_symbol = param_data_type; |
8452 |
8452 |
8453 function_name = (symbol_c*)(new pragma_c("__move_")); |
8453 function_name = (symbol_c*)(new pragma_c("__move_")); |
8454 |
8454 |
8455 if (IN_type_symbol == NULL) |
8455 if (IN_type_symbol == NULL) |
8456 IN_type_symbol = last_type_symbol; |
8456 IN_type_symbol = last_type_symbol; |
8457 ADD_PARAM_LIST(&IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) |
8457 ADD_PARAM_LIST(IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) |
8458 symbol_c * return_type_symbol = &search_constant_type_c::usint_type_name; |
8458 symbol_c * return_type_symbol = &search_constant_type_c::usint_type_name; |
8459 function_type_prefix = return_type_symbol; |
8459 function_type_prefix = return_type_symbol; |
8460 function_type_suffix = IN_type_symbol; |
8460 function_type_suffix = IN_type_symbol; |
8461 break; |
8461 break; |
8462 |
8462 |
8475 case function_uint_to_ulint : |
8475 case function_uint_to_ulint : |
8476 { |
8476 { |
8477 symbol_c *last_type_symbol = NULL; |
8477 symbol_c *last_type_symbol = NULL; |
8478 |
8478 |
8479 { |
8479 { |
8480 identifier_c IN_param_name("IN"); |
8480 symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); |
8481 /* Get the value from a foo(<param_name> = <param_value>) style call */ |
8481 /* Get the value from a foo(<param_name> = <param_value>) style call */ |
8482 symbol_c *IN_param_value = &this->default_variable_name; |
8482 symbol_c *IN_param_value = &this->default_variable_name; |
8483 |
8483 |
8484 symbol_c *IN_type_symbol = param_data_type; |
8484 symbol_c *IN_type_symbol = param_data_type; |
8485 last_type_symbol = param_data_type; |
8485 last_type_symbol = param_data_type; |
8489 |
8489 |
8490 function_name = (symbol_c*)(new pragma_c("__move_")); |
8490 function_name = (symbol_c*)(new pragma_c("__move_")); |
8491 |
8491 |
8492 if (IN_type_symbol == NULL) |
8492 if (IN_type_symbol == NULL) |
8493 IN_type_symbol = last_type_symbol; |
8493 IN_type_symbol = last_type_symbol; |
8494 ADD_PARAM_LIST(&IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) |
8494 ADD_PARAM_LIST(IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) |
8495 symbol_c * return_type_symbol = &search_constant_type_c::ulint_type_name; |
8495 symbol_c * return_type_symbol = &search_constant_type_c::ulint_type_name; |
8496 function_type_prefix = return_type_symbol; |
8496 function_type_prefix = return_type_symbol; |
8497 function_type_suffix = IN_type_symbol; |
8497 function_type_suffix = IN_type_symbol; |
8498 break; |
8498 break; |
8499 |
8499 |
8512 case function_uint_to_bool : |
8512 case function_uint_to_bool : |
8513 { |
8513 { |
8514 symbol_c *last_type_symbol = NULL; |
8514 symbol_c *last_type_symbol = NULL; |
8515 |
8515 |
8516 { |
8516 { |
8517 identifier_c IN_param_name("IN"); |
8517 symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); |
8518 /* Get the value from a foo(<param_name> = <param_value>) style call */ |
8518 /* Get the value from a foo(<param_name> = <param_value>) style call */ |
8519 symbol_c *IN_param_value = &this->default_variable_name; |
8519 symbol_c *IN_param_value = &this->default_variable_name; |
8520 |
8520 |
8521 symbol_c *IN_type_symbol = param_data_type; |
8521 symbol_c *IN_type_symbol = param_data_type; |
8522 last_type_symbol = param_data_type; |
8522 last_type_symbol = param_data_type; |
8526 |
8526 |
8527 function_name = (symbol_c*)(new pragma_c("__move_")); |
8527 function_name = (symbol_c*)(new pragma_c("__move_")); |
8528 |
8528 |
8529 if (IN_type_symbol == NULL) |
8529 if (IN_type_symbol == NULL) |
8530 IN_type_symbol = last_type_symbol; |
8530 IN_type_symbol = last_type_symbol; |
8531 ADD_PARAM_LIST(&IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) |
8531 ADD_PARAM_LIST(IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) |
8532 symbol_c * return_type_symbol = &search_constant_type_c::bool_type_name; |
8532 symbol_c * return_type_symbol = &search_constant_type_c::bool_type_name; |
8533 function_type_prefix = return_type_symbol; |
8533 function_type_prefix = return_type_symbol; |
8534 function_type_suffix = IN_type_symbol; |
8534 function_type_suffix = IN_type_symbol; |
8535 break; |
8535 break; |
8536 |
8536 |
8549 case function_uint_to_time : |
8549 case function_uint_to_time : |
8550 { |
8550 { |
8551 symbol_c *last_type_symbol = NULL; |
8551 symbol_c *last_type_symbol = NULL; |
8552 |
8552 |
8553 { |
8553 { |
8554 identifier_c IN_param_name("IN"); |
8554 symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); |
8555 /* Get the value from a foo(<param_name> = <param_value>) style call */ |
8555 /* Get the value from a foo(<param_name> = <param_value>) style call */ |
8556 symbol_c *IN_param_value = &this->default_variable_name; |
8556 symbol_c *IN_param_value = &this->default_variable_name; |
8557 |
8557 |
8558 symbol_c *IN_type_symbol = param_data_type; |
8558 symbol_c *IN_type_symbol = param_data_type; |
8559 last_type_symbol = param_data_type; |
8559 last_type_symbol = param_data_type; |
8563 |
8563 |
8564 function_name = (symbol_c*)(new pragma_c("__int_to_time")); |
8564 function_name = (symbol_c*)(new pragma_c("__int_to_time")); |
8565 |
8565 |
8566 if (IN_type_symbol == NULL) |
8566 if (IN_type_symbol == NULL) |
8567 IN_type_symbol = last_type_symbol; |
8567 IN_type_symbol = last_type_symbol; |
8568 ADD_PARAM_LIST(&IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) |
8568 ADD_PARAM_LIST(IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) |
8569 symbol_c * return_type_symbol = &search_constant_type_c::time_type_name; |
8569 symbol_c * return_type_symbol = &search_constant_type_c::time_type_name; |
8570 function_type_prefix = return_type_symbol; |
8570 function_type_prefix = return_type_symbol; |
8571 break; |
8571 break; |
8572 |
8572 |
8573 } |
8573 } |
8585 case function_uint_to_int : |
8585 case function_uint_to_int : |
8586 { |
8586 { |
8587 symbol_c *last_type_symbol = NULL; |
8587 symbol_c *last_type_symbol = NULL; |
8588 |
8588 |
8589 { |
8589 { |
8590 identifier_c IN_param_name("IN"); |
8590 symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); |
8591 /* Get the value from a foo(<param_name> = <param_value>) style call */ |
8591 /* Get the value from a foo(<param_name> = <param_value>) style call */ |
8592 symbol_c *IN_param_value = &this->default_variable_name; |
8592 symbol_c *IN_param_value = &this->default_variable_name; |
8593 |
8593 |
8594 symbol_c *IN_type_symbol = param_data_type; |
8594 symbol_c *IN_type_symbol = param_data_type; |
8595 last_type_symbol = param_data_type; |
8595 last_type_symbol = param_data_type; |
8599 |
8599 |
8600 function_name = (symbol_c*)(new pragma_c("__move_")); |
8600 function_name = (symbol_c*)(new pragma_c("__move_")); |
8601 |
8601 |
8602 if (IN_type_symbol == NULL) |
8602 if (IN_type_symbol == NULL) |
8603 IN_type_symbol = last_type_symbol; |
8603 IN_type_symbol = last_type_symbol; |
8604 ADD_PARAM_LIST(&IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) |
8604 ADD_PARAM_LIST(IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) |
8605 symbol_c * return_type_symbol = &search_constant_type_c::int_type_name; |
8605 symbol_c * return_type_symbol = &search_constant_type_c::int_type_name; |
8606 function_type_prefix = return_type_symbol; |
8606 function_type_prefix = return_type_symbol; |
8607 function_type_suffix = IN_type_symbol; |
8607 function_type_suffix = IN_type_symbol; |
8608 break; |
8608 break; |
8609 |
8609 |
8622 case function_lreal_to_real : |
8622 case function_lreal_to_real : |
8623 { |
8623 { |
8624 symbol_c *last_type_symbol = NULL; |
8624 symbol_c *last_type_symbol = NULL; |
8625 |
8625 |
8626 { |
8626 { |
8627 identifier_c IN_param_name("IN"); |
8627 symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); |
8628 /* Get the value from a foo(<param_name> = <param_value>) style call */ |
8628 /* Get the value from a foo(<param_name> = <param_value>) style call */ |
8629 symbol_c *IN_param_value = &this->default_variable_name; |
8629 symbol_c *IN_param_value = &this->default_variable_name; |
8630 |
8630 |
8631 symbol_c *IN_type_symbol = param_data_type; |
8631 symbol_c *IN_type_symbol = param_data_type; |
8632 last_type_symbol = param_data_type; |
8632 last_type_symbol = param_data_type; |
8636 |
8636 |
8637 function_name = (symbol_c*)(new pragma_c("__move_")); |
8637 function_name = (symbol_c*)(new pragma_c("__move_")); |
8638 |
8638 |
8639 if (IN_type_symbol == NULL) |
8639 if (IN_type_symbol == NULL) |
8640 IN_type_symbol = last_type_symbol; |
8640 IN_type_symbol = last_type_symbol; |
8641 ADD_PARAM_LIST(&IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) |
8641 ADD_PARAM_LIST(IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) |
8642 symbol_c * return_type_symbol = &search_constant_type_c::real_type_name; |
8642 symbol_c * return_type_symbol = &search_constant_type_c::real_type_name; |
8643 function_type_prefix = return_type_symbol; |
8643 function_type_prefix = return_type_symbol; |
8644 function_type_suffix = IN_type_symbol; |
8644 function_type_suffix = IN_type_symbol; |
8645 break; |
8645 break; |
8646 |
8646 |
8659 case function_lreal_to_sint : |
8659 case function_lreal_to_sint : |
8660 { |
8660 { |
8661 symbol_c *last_type_symbol = NULL; |
8661 symbol_c *last_type_symbol = NULL; |
8662 |
8662 |
8663 { |
8663 { |
8664 identifier_c IN_param_name("IN"); |
8664 symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); |
8665 /* Get the value from a foo(<param_name> = <param_value>) style call */ |
8665 /* Get the value from a foo(<param_name> = <param_value>) style call */ |
8666 symbol_c *IN_param_value = &this->default_variable_name; |
8666 symbol_c *IN_param_value = &this->default_variable_name; |
8667 |
8667 |
8668 symbol_c *IN_type_symbol = param_data_type; |
8668 symbol_c *IN_type_symbol = param_data_type; |
8669 last_type_symbol = param_data_type; |
8669 last_type_symbol = param_data_type; |
8673 |
8673 |
8674 function_name = (symbol_c*)(new pragma_c("__move_")); |
8674 function_name = (symbol_c*)(new pragma_c("__move_")); |
8675 |
8675 |
8676 if (IN_type_symbol == NULL) |
8676 if (IN_type_symbol == NULL) |
8677 IN_type_symbol = last_type_symbol; |
8677 IN_type_symbol = last_type_symbol; |
8678 ADD_PARAM_LIST(&IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) |
8678 ADD_PARAM_LIST(IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) |
8679 symbol_c * return_type_symbol = &search_constant_type_c::sint_type_name; |
8679 symbol_c * return_type_symbol = &search_constant_type_c::sint_type_name; |
8680 function_type_prefix = return_type_symbol; |
8680 function_type_prefix = return_type_symbol; |
8681 function_type_suffix = IN_type_symbol; |
8681 function_type_suffix = IN_type_symbol; |
8682 break; |
8682 break; |
8683 |
8683 |
8696 case function_lreal_to_lint : |
8696 case function_lreal_to_lint : |
8697 { |
8697 { |
8698 symbol_c *last_type_symbol = NULL; |
8698 symbol_c *last_type_symbol = NULL; |
8699 |
8699 |
8700 { |
8700 { |
8701 identifier_c IN_param_name("IN"); |
8701 symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); |
8702 /* Get the value from a foo(<param_name> = <param_value>) style call */ |
8702 /* Get the value from a foo(<param_name> = <param_value>) style call */ |
8703 symbol_c *IN_param_value = &this->default_variable_name; |
8703 symbol_c *IN_param_value = &this->default_variable_name; |
8704 |
8704 |
8705 symbol_c *IN_type_symbol = param_data_type; |
8705 symbol_c *IN_type_symbol = param_data_type; |
8706 last_type_symbol = param_data_type; |
8706 last_type_symbol = param_data_type; |
8710 |
8710 |
8711 function_name = (symbol_c*)(new pragma_c("__move_")); |
8711 function_name = (symbol_c*)(new pragma_c("__move_")); |
8712 |
8712 |
8713 if (IN_type_symbol == NULL) |
8713 if (IN_type_symbol == NULL) |
8714 IN_type_symbol = last_type_symbol; |
8714 IN_type_symbol = last_type_symbol; |
8715 ADD_PARAM_LIST(&IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) |
8715 ADD_PARAM_LIST(IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) |
8716 symbol_c * return_type_symbol = &search_constant_type_c::lint_type_name; |
8716 symbol_c * return_type_symbol = &search_constant_type_c::lint_type_name; |
8717 function_type_prefix = return_type_symbol; |
8717 function_type_prefix = return_type_symbol; |
8718 function_type_suffix = IN_type_symbol; |
8718 function_type_suffix = IN_type_symbol; |
8719 break; |
8719 break; |
8720 |
8720 |
8733 case function_lreal_to_dint : |
8733 case function_lreal_to_dint : |
8734 { |
8734 { |
8735 symbol_c *last_type_symbol = NULL; |
8735 symbol_c *last_type_symbol = NULL; |
8736 |
8736 |
8737 { |
8737 { |
8738 identifier_c IN_param_name("IN"); |
8738 symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); |
8739 /* Get the value from a foo(<param_name> = <param_value>) style call */ |
8739 /* Get the value from a foo(<param_name> = <param_value>) style call */ |
8740 symbol_c *IN_param_value = &this->default_variable_name; |
8740 symbol_c *IN_param_value = &this->default_variable_name; |
8741 |
8741 |
8742 symbol_c *IN_type_symbol = param_data_type; |
8742 symbol_c *IN_type_symbol = param_data_type; |
8743 last_type_symbol = param_data_type; |
8743 last_type_symbol = param_data_type; |
8747 |
8747 |
8748 function_name = (symbol_c*)(new pragma_c("__move_")); |
8748 function_name = (symbol_c*)(new pragma_c("__move_")); |
8749 |
8749 |
8750 if (IN_type_symbol == NULL) |
8750 if (IN_type_symbol == NULL) |
8751 IN_type_symbol = last_type_symbol; |
8751 IN_type_symbol = last_type_symbol; |
8752 ADD_PARAM_LIST(&IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) |
8752 ADD_PARAM_LIST(IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) |
8753 symbol_c * return_type_symbol = &search_constant_type_c::dint_type_name; |
8753 symbol_c * return_type_symbol = &search_constant_type_c::dint_type_name; |
8754 function_type_prefix = return_type_symbol; |
8754 function_type_prefix = return_type_symbol; |
8755 function_type_suffix = IN_type_symbol; |
8755 function_type_suffix = IN_type_symbol; |
8756 break; |
8756 break; |
8757 |
8757 |
8770 case function_lreal_to_date : |
8770 case function_lreal_to_date : |
8771 { |
8771 { |
8772 symbol_c *last_type_symbol = NULL; |
8772 symbol_c *last_type_symbol = NULL; |
8773 |
8773 |
8774 { |
8774 { |
8775 identifier_c IN_param_name("IN"); |
8775 symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); |
8776 /* Get the value from a foo(<param_name> = <param_value>) style call */ |
8776 /* Get the value from a foo(<param_name> = <param_value>) style call */ |
8777 symbol_c *IN_param_value = &this->default_variable_name; |
8777 symbol_c *IN_param_value = &this->default_variable_name; |
8778 |
8778 |
8779 symbol_c *IN_type_symbol = param_data_type; |
8779 symbol_c *IN_type_symbol = param_data_type; |
8780 last_type_symbol = param_data_type; |
8780 last_type_symbol = param_data_type; |
8784 |
8784 |
8785 function_name = (symbol_c*)(new pragma_c("__real_to_time")); |
8785 function_name = (symbol_c*)(new pragma_c("__real_to_time")); |
8786 |
8786 |
8787 if (IN_type_symbol == NULL) |
8787 if (IN_type_symbol == NULL) |
8788 IN_type_symbol = last_type_symbol; |
8788 IN_type_symbol = last_type_symbol; |
8789 ADD_PARAM_LIST(&IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) |
8789 ADD_PARAM_LIST(IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) |
8790 symbol_c * return_type_symbol = &search_constant_type_c::date_type_name; |
8790 symbol_c * return_type_symbol = &search_constant_type_c::date_type_name; |
8791 function_type_prefix = return_type_symbol; |
8791 function_type_prefix = return_type_symbol; |
8792 break; |
8792 break; |
8793 |
8793 |
8794 } |
8794 } |
8806 case function_lreal_to_dword : |
8806 case function_lreal_to_dword : |
8807 { |
8807 { |
8808 symbol_c *last_type_symbol = NULL; |
8808 symbol_c *last_type_symbol = NULL; |
8809 |
8809 |
8810 { |
8810 { |
8811 identifier_c IN_param_name("IN"); |
8811 symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); |
8812 /* Get the value from a foo(<param_name> = <param_value>) style call */ |
8812 /* Get the value from a foo(<param_name> = <param_value>) style call */ |
8813 symbol_c *IN_param_value = &this->default_variable_name; |
8813 symbol_c *IN_param_value = &this->default_variable_name; |
8814 |
8814 |
8815 symbol_c *IN_type_symbol = param_data_type; |
8815 symbol_c *IN_type_symbol = param_data_type; |
8816 last_type_symbol = param_data_type; |
8816 last_type_symbol = param_data_type; |
8820 |
8820 |
8821 function_name = (symbol_c*)(new pragma_c("__move_")); |
8821 function_name = (symbol_c*)(new pragma_c("__move_")); |
8822 |
8822 |
8823 if (IN_type_symbol == NULL) |
8823 if (IN_type_symbol == NULL) |
8824 IN_type_symbol = last_type_symbol; |
8824 IN_type_symbol = last_type_symbol; |
8825 ADD_PARAM_LIST(&IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) |
8825 ADD_PARAM_LIST(IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) |
8826 symbol_c * return_type_symbol = &search_constant_type_c::dword_type_name; |
8826 symbol_c * return_type_symbol = &search_constant_type_c::dword_type_name; |
8827 function_type_prefix = return_type_symbol; |
8827 function_type_prefix = return_type_symbol; |
8828 function_type_suffix = IN_type_symbol; |
8828 function_type_suffix = IN_type_symbol; |
8829 break; |
8829 break; |
8830 |
8830 |
8843 case function_lreal_to_dt : |
8843 case function_lreal_to_dt : |
8844 { |
8844 { |
8845 symbol_c *last_type_symbol = NULL; |
8845 symbol_c *last_type_symbol = NULL; |
8846 |
8846 |
8847 { |
8847 { |
8848 identifier_c IN_param_name("IN"); |
8848 symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); |
8849 /* Get the value from a foo(<param_name> = <param_value>) style call */ |
8849 /* Get the value from a foo(<param_name> = <param_value>) style call */ |
8850 symbol_c *IN_param_value = &this->default_variable_name; |
8850 symbol_c *IN_param_value = &this->default_variable_name; |
8851 |
8851 |
8852 symbol_c *IN_type_symbol = param_data_type; |
8852 symbol_c *IN_type_symbol = param_data_type; |
8853 last_type_symbol = param_data_type; |
8853 last_type_symbol = param_data_type; |
8857 |
8857 |
8858 function_name = (symbol_c*)(new pragma_c("__real_to_time")); |
8858 function_name = (symbol_c*)(new pragma_c("__real_to_time")); |
8859 |
8859 |
8860 if (IN_type_symbol == NULL) |
8860 if (IN_type_symbol == NULL) |
8861 IN_type_symbol = last_type_symbol; |
8861 IN_type_symbol = last_type_symbol; |
8862 ADD_PARAM_LIST(&IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) |
8862 ADD_PARAM_LIST(IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) |
8863 symbol_c * return_type_symbol = &search_constant_type_c::dt_type_name; |
8863 symbol_c * return_type_symbol = &search_constant_type_c::dt_type_name; |
8864 function_type_prefix = return_type_symbol; |
8864 function_type_prefix = return_type_symbol; |
8865 break; |
8865 break; |
8866 |
8866 |
8867 } |
8867 } |
8879 case function_lreal_to_tod : |
8879 case function_lreal_to_tod : |
8880 { |
8880 { |
8881 symbol_c *last_type_symbol = NULL; |
8881 symbol_c *last_type_symbol = NULL; |
8882 |
8882 |
8883 { |
8883 { |
8884 identifier_c IN_param_name("IN"); |
8884 symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); |
8885 /* Get the value from a foo(<param_name> = <param_value>) style call */ |
8885 /* Get the value from a foo(<param_name> = <param_value>) style call */ |
8886 symbol_c *IN_param_value = &this->default_variable_name; |
8886 symbol_c *IN_param_value = &this->default_variable_name; |
8887 |
8887 |
8888 symbol_c *IN_type_symbol = param_data_type; |
8888 symbol_c *IN_type_symbol = param_data_type; |
8889 last_type_symbol = param_data_type; |
8889 last_type_symbol = param_data_type; |
8893 |
8893 |
8894 function_name = (symbol_c*)(new pragma_c("__real_to_time")); |
8894 function_name = (symbol_c*)(new pragma_c("__real_to_time")); |
8895 |
8895 |
8896 if (IN_type_symbol == NULL) |
8896 if (IN_type_symbol == NULL) |
8897 IN_type_symbol = last_type_symbol; |
8897 IN_type_symbol = last_type_symbol; |
8898 ADD_PARAM_LIST(&IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) |
8898 ADD_PARAM_LIST(IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) |
8899 symbol_c * return_type_symbol = &search_constant_type_c::tod_type_name; |
8899 symbol_c * return_type_symbol = &search_constant_type_c::tod_type_name; |
8900 function_type_prefix = return_type_symbol; |
8900 function_type_prefix = return_type_symbol; |
8901 break; |
8901 break; |
8902 |
8902 |
8903 } |
8903 } |
8915 case function_lreal_to_udint : |
8915 case function_lreal_to_udint : |
8916 { |
8916 { |
8917 symbol_c *last_type_symbol = NULL; |
8917 symbol_c *last_type_symbol = NULL; |
8918 |
8918 |
8919 { |
8919 { |
8920 identifier_c IN_param_name("IN"); |
8920 symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); |
8921 /* Get the value from a foo(<param_name> = <param_value>) style call */ |
8921 /* Get the value from a foo(<param_name> = <param_value>) style call */ |
8922 symbol_c *IN_param_value = &this->default_variable_name; |
8922 symbol_c *IN_param_value = &this->default_variable_name; |
8923 |
8923 |
8924 symbol_c *IN_type_symbol = param_data_type; |
8924 symbol_c *IN_type_symbol = param_data_type; |
8925 last_type_symbol = param_data_type; |
8925 last_type_symbol = param_data_type; |
8929 |
8929 |
8930 function_name = (symbol_c*)(new pragma_c("__move_")); |
8930 function_name = (symbol_c*)(new pragma_c("__move_")); |
8931 |
8931 |
8932 if (IN_type_symbol == NULL) |
8932 if (IN_type_symbol == NULL) |
8933 IN_type_symbol = last_type_symbol; |
8933 IN_type_symbol = last_type_symbol; |
8934 ADD_PARAM_LIST(&IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) |
8934 ADD_PARAM_LIST(IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) |
8935 symbol_c * return_type_symbol = &search_constant_type_c::udint_type_name; |
8935 symbol_c * return_type_symbol = &search_constant_type_c::udint_type_name; |
8936 function_type_prefix = return_type_symbol; |
8936 function_type_prefix = return_type_symbol; |
8937 function_type_suffix = IN_type_symbol; |
8937 function_type_suffix = IN_type_symbol; |
8938 break; |
8938 break; |
8939 |
8939 |
8952 case function_lreal_to_word : |
8952 case function_lreal_to_word : |
8953 { |
8953 { |
8954 symbol_c *last_type_symbol = NULL; |
8954 symbol_c *last_type_symbol = NULL; |
8955 |
8955 |
8956 { |
8956 { |
8957 identifier_c IN_param_name("IN"); |
8957 symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); |
8958 /* Get the value from a foo(<param_name> = <param_value>) style call */ |
8958 /* Get the value from a foo(<param_name> = <param_value>) style call */ |
8959 symbol_c *IN_param_value = &this->default_variable_name; |
8959 symbol_c *IN_param_value = &this->default_variable_name; |
8960 |
8960 |
8961 symbol_c *IN_type_symbol = param_data_type; |
8961 symbol_c *IN_type_symbol = param_data_type; |
8962 last_type_symbol = param_data_type; |
8962 last_type_symbol = param_data_type; |
8966 |
8966 |
8967 function_name = (symbol_c*)(new pragma_c("__move_")); |
8967 function_name = (symbol_c*)(new pragma_c("__move_")); |
8968 |
8968 |
8969 if (IN_type_symbol == NULL) |
8969 if (IN_type_symbol == NULL) |
8970 IN_type_symbol = last_type_symbol; |
8970 IN_type_symbol = last_type_symbol; |
8971 ADD_PARAM_LIST(&IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) |
8971 ADD_PARAM_LIST(IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) |
8972 symbol_c * return_type_symbol = &search_constant_type_c::word_type_name; |
8972 symbol_c * return_type_symbol = &search_constant_type_c::word_type_name; |
8973 function_type_prefix = return_type_symbol; |
8973 function_type_prefix = return_type_symbol; |
8974 function_type_suffix = IN_type_symbol; |
8974 function_type_suffix = IN_type_symbol; |
8975 break; |
8975 break; |
8976 |
8976 |
8989 case function_lreal_to_string : |
8989 case function_lreal_to_string : |
8990 { |
8990 { |
8991 symbol_c *last_type_symbol = NULL; |
8991 symbol_c *last_type_symbol = NULL; |
8992 |
8992 |
8993 { |
8993 { |
8994 identifier_c IN_param_name("IN"); |
8994 symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); |
8995 /* Get the value from a foo(<param_name> = <param_value>) style call */ |
8995 /* Get the value from a foo(<param_name> = <param_value>) style call */ |
8996 symbol_c *IN_param_value = &this->default_variable_name; |
8996 symbol_c *IN_param_value = &this->default_variable_name; |
8997 |
8997 |
8998 symbol_c *IN_type_symbol = param_data_type; |
8998 symbol_c *IN_type_symbol = param_data_type; |
8999 last_type_symbol = param_data_type; |
8999 last_type_symbol = param_data_type; |
9003 |
9003 |
9004 function_name = (symbol_c*)(new pragma_c("__real_to_string")); |
9004 function_name = (symbol_c*)(new pragma_c("__real_to_string")); |
9005 |
9005 |
9006 if (IN_type_symbol == NULL) |
9006 if (IN_type_symbol == NULL) |
9007 IN_type_symbol = last_type_symbol; |
9007 IN_type_symbol = last_type_symbol; |
9008 ADD_PARAM_LIST(&IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) |
9008 ADD_PARAM_LIST(IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) |
9009 symbol_c * return_type_symbol = &search_constant_type_c::string_type_name; |
9009 symbol_c * return_type_symbol = &search_constant_type_c::string_type_name; |
9010 function_type_prefix = return_type_symbol; |
9010 function_type_prefix = return_type_symbol; |
9011 break; |
9011 break; |
9012 |
9012 |
9013 } |
9013 } |
9025 case function_lreal_to_lword : |
9025 case function_lreal_to_lword : |
9026 { |
9026 { |
9027 symbol_c *last_type_symbol = NULL; |
9027 symbol_c *last_type_symbol = NULL; |
9028 |
9028 |
9029 { |
9029 { |
9030 identifier_c IN_param_name("IN"); |
9030 symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); |
9031 /* Get the value from a foo(<param_name> = <param_value>) style call */ |
9031 /* Get the value from a foo(<param_name> = <param_value>) style call */ |
9032 symbol_c *IN_param_value = &this->default_variable_name; |
9032 symbol_c *IN_param_value = &this->default_variable_name; |
9033 |
9033 |
9034 symbol_c *IN_type_symbol = param_data_type; |
9034 symbol_c *IN_type_symbol = param_data_type; |
9035 last_type_symbol = param_data_type; |
9035 last_type_symbol = param_data_type; |
9039 |
9039 |
9040 function_name = (symbol_c*)(new pragma_c("__move_")); |
9040 function_name = (symbol_c*)(new pragma_c("__move_")); |
9041 |
9041 |
9042 if (IN_type_symbol == NULL) |
9042 if (IN_type_symbol == NULL) |
9043 IN_type_symbol = last_type_symbol; |
9043 IN_type_symbol = last_type_symbol; |
9044 ADD_PARAM_LIST(&IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) |
9044 ADD_PARAM_LIST(IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) |
9045 symbol_c * return_type_symbol = &search_constant_type_c::lword_type_name; |
9045 symbol_c * return_type_symbol = &search_constant_type_c::lword_type_name; |
9046 function_type_prefix = return_type_symbol; |
9046 function_type_prefix = return_type_symbol; |
9047 function_type_suffix = IN_type_symbol; |
9047 function_type_suffix = IN_type_symbol; |
9048 break; |
9048 break; |
9049 |
9049 |
9062 case function_lreal_to_uint : |
9062 case function_lreal_to_uint : |
9063 { |
9063 { |
9064 symbol_c *last_type_symbol = NULL; |
9064 symbol_c *last_type_symbol = NULL; |
9065 |
9065 |
9066 { |
9066 { |
9067 identifier_c IN_param_name("IN"); |
9067 symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); |
9068 /* Get the value from a foo(<param_name> = <param_value>) style call */ |
9068 /* Get the value from a foo(<param_name> = <param_value>) style call */ |
9069 symbol_c *IN_param_value = &this->default_variable_name; |
9069 symbol_c *IN_param_value = &this->default_variable_name; |
9070 |
9070 |
9071 symbol_c *IN_type_symbol = param_data_type; |
9071 symbol_c *IN_type_symbol = param_data_type; |
9072 last_type_symbol = param_data_type; |
9072 last_type_symbol = param_data_type; |
9076 |
9076 |
9077 function_name = (symbol_c*)(new pragma_c("__move_")); |
9077 function_name = (symbol_c*)(new pragma_c("__move_")); |
9078 |
9078 |
9079 if (IN_type_symbol == NULL) |
9079 if (IN_type_symbol == NULL) |
9080 IN_type_symbol = last_type_symbol; |
9080 IN_type_symbol = last_type_symbol; |
9081 ADD_PARAM_LIST(&IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) |
9081 ADD_PARAM_LIST(IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) |
9082 symbol_c * return_type_symbol = &search_constant_type_c::uint_type_name; |
9082 symbol_c * return_type_symbol = &search_constant_type_c::uint_type_name; |
9083 function_type_prefix = return_type_symbol; |
9083 function_type_prefix = return_type_symbol; |
9084 function_type_suffix = IN_type_symbol; |
9084 function_type_suffix = IN_type_symbol; |
9085 break; |
9085 break; |
9086 |
9086 |
9099 case function_lreal_to_byte : |
9099 case function_lreal_to_byte : |
9100 { |
9100 { |
9101 symbol_c *last_type_symbol = NULL; |
9101 symbol_c *last_type_symbol = NULL; |
9102 |
9102 |
9103 { |
9103 { |
9104 identifier_c IN_param_name("IN"); |
9104 symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); |
9105 /* Get the value from a foo(<param_name> = <param_value>) style call */ |
9105 /* Get the value from a foo(<param_name> = <param_value>) style call */ |
9106 symbol_c *IN_param_value = &this->default_variable_name; |
9106 symbol_c *IN_param_value = &this->default_variable_name; |
9107 |
9107 |
9108 symbol_c *IN_type_symbol = param_data_type; |
9108 symbol_c *IN_type_symbol = param_data_type; |
9109 last_type_symbol = param_data_type; |
9109 last_type_symbol = param_data_type; |
9113 |
9113 |
9114 function_name = (symbol_c*)(new pragma_c("__move_")); |
9114 function_name = (symbol_c*)(new pragma_c("__move_")); |
9115 |
9115 |
9116 if (IN_type_symbol == NULL) |
9116 if (IN_type_symbol == NULL) |
9117 IN_type_symbol = last_type_symbol; |
9117 IN_type_symbol = last_type_symbol; |
9118 ADD_PARAM_LIST(&IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) |
9118 ADD_PARAM_LIST(IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) |
9119 symbol_c * return_type_symbol = &search_constant_type_c::byte_type_name; |
9119 symbol_c * return_type_symbol = &search_constant_type_c::byte_type_name; |
9120 function_type_prefix = return_type_symbol; |
9120 function_type_prefix = return_type_symbol; |
9121 function_type_suffix = IN_type_symbol; |
9121 function_type_suffix = IN_type_symbol; |
9122 break; |
9122 break; |
9123 |
9123 |
9136 case function_lreal_to_usint : |
9136 case function_lreal_to_usint : |
9137 { |
9137 { |
9138 symbol_c *last_type_symbol = NULL; |
9138 symbol_c *last_type_symbol = NULL; |
9139 |
9139 |
9140 { |
9140 { |
9141 identifier_c IN_param_name("IN"); |
9141 symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); |
9142 /* Get the value from a foo(<param_name> = <param_value>) style call */ |
9142 /* Get the value from a foo(<param_name> = <param_value>) style call */ |
9143 symbol_c *IN_param_value = &this->default_variable_name; |
9143 symbol_c *IN_param_value = &this->default_variable_name; |
9144 |
9144 |
9145 symbol_c *IN_type_symbol = param_data_type; |
9145 symbol_c *IN_type_symbol = param_data_type; |
9146 last_type_symbol = param_data_type; |
9146 last_type_symbol = param_data_type; |
9150 |
9150 |
9151 function_name = (symbol_c*)(new pragma_c("__move_")); |
9151 function_name = (symbol_c*)(new pragma_c("__move_")); |
9152 |
9152 |
9153 if (IN_type_symbol == NULL) |
9153 if (IN_type_symbol == NULL) |
9154 IN_type_symbol = last_type_symbol; |
9154 IN_type_symbol = last_type_symbol; |
9155 ADD_PARAM_LIST(&IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) |
9155 ADD_PARAM_LIST(IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) |
9156 symbol_c * return_type_symbol = &search_constant_type_c::usint_type_name; |
9156 symbol_c * return_type_symbol = &search_constant_type_c::usint_type_name; |
9157 function_type_prefix = return_type_symbol; |
9157 function_type_prefix = return_type_symbol; |
9158 function_type_suffix = IN_type_symbol; |
9158 function_type_suffix = IN_type_symbol; |
9159 break; |
9159 break; |
9160 |
9160 |
9173 case function_lreal_to_ulint : |
9173 case function_lreal_to_ulint : |
9174 { |
9174 { |
9175 symbol_c *last_type_symbol = NULL; |
9175 symbol_c *last_type_symbol = NULL; |
9176 |
9176 |
9177 { |
9177 { |
9178 identifier_c IN_param_name("IN"); |
9178 symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); |
9179 /* Get the value from a foo(<param_name> = <param_value>) style call */ |
9179 /* Get the value from a foo(<param_name> = <param_value>) style call */ |
9180 symbol_c *IN_param_value = &this->default_variable_name; |
9180 symbol_c *IN_param_value = &this->default_variable_name; |
9181 |
9181 |
9182 symbol_c *IN_type_symbol = param_data_type; |
9182 symbol_c *IN_type_symbol = param_data_type; |
9183 last_type_symbol = param_data_type; |
9183 last_type_symbol = param_data_type; |
9187 |
9187 |
9188 function_name = (symbol_c*)(new pragma_c("__move_")); |
9188 function_name = (symbol_c*)(new pragma_c("__move_")); |
9189 |
9189 |
9190 if (IN_type_symbol == NULL) |
9190 if (IN_type_symbol == NULL) |
9191 IN_type_symbol = last_type_symbol; |
9191 IN_type_symbol = last_type_symbol; |
9192 ADD_PARAM_LIST(&IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) |
9192 ADD_PARAM_LIST(IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) |
9193 symbol_c * return_type_symbol = &search_constant_type_c::ulint_type_name; |
9193 symbol_c * return_type_symbol = &search_constant_type_c::ulint_type_name; |
9194 function_type_prefix = return_type_symbol; |
9194 function_type_prefix = return_type_symbol; |
9195 function_type_suffix = IN_type_symbol; |
9195 function_type_suffix = IN_type_symbol; |
9196 break; |
9196 break; |
9197 |
9197 |
9210 case function_lreal_to_bool : |
9210 case function_lreal_to_bool : |
9211 { |
9211 { |
9212 symbol_c *last_type_symbol = NULL; |
9212 symbol_c *last_type_symbol = NULL; |
9213 |
9213 |
9214 { |
9214 { |
9215 identifier_c IN_param_name("IN"); |
9215 symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); |
9216 /* Get the value from a foo(<param_name> = <param_value>) style call */ |
9216 /* Get the value from a foo(<param_name> = <param_value>) style call */ |
9217 symbol_c *IN_param_value = &this->default_variable_name; |
9217 symbol_c *IN_param_value = &this->default_variable_name; |
9218 |
9218 |
9219 symbol_c *IN_type_symbol = param_data_type; |
9219 symbol_c *IN_type_symbol = param_data_type; |
9220 last_type_symbol = param_data_type; |
9220 last_type_symbol = param_data_type; |
9224 |
9224 |
9225 function_name = (symbol_c*)(new pragma_c("__move_")); |
9225 function_name = (symbol_c*)(new pragma_c("__move_")); |
9226 |
9226 |
9227 if (IN_type_symbol == NULL) |
9227 if (IN_type_symbol == NULL) |
9228 IN_type_symbol = last_type_symbol; |
9228 IN_type_symbol = last_type_symbol; |
9229 ADD_PARAM_LIST(&IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) |
9229 ADD_PARAM_LIST(IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) |
9230 symbol_c * return_type_symbol = &search_constant_type_c::bool_type_name; |
9230 symbol_c * return_type_symbol = &search_constant_type_c::bool_type_name; |
9231 function_type_prefix = return_type_symbol; |
9231 function_type_prefix = return_type_symbol; |
9232 function_type_suffix = IN_type_symbol; |
9232 function_type_suffix = IN_type_symbol; |
9233 break; |
9233 break; |
9234 |
9234 |
9247 case function_lreal_to_time : |
9247 case function_lreal_to_time : |
9248 { |
9248 { |
9249 symbol_c *last_type_symbol = NULL; |
9249 symbol_c *last_type_symbol = NULL; |
9250 |
9250 |
9251 { |
9251 { |
9252 identifier_c IN_param_name("IN"); |
9252 symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); |
9253 /* Get the value from a foo(<param_name> = <param_value>) style call */ |
9253 /* Get the value from a foo(<param_name> = <param_value>) style call */ |
9254 symbol_c *IN_param_value = &this->default_variable_name; |
9254 symbol_c *IN_param_value = &this->default_variable_name; |
9255 |
9255 |
9256 symbol_c *IN_type_symbol = param_data_type; |
9256 symbol_c *IN_type_symbol = param_data_type; |
9257 last_type_symbol = param_data_type; |
9257 last_type_symbol = param_data_type; |
9261 |
9261 |
9262 function_name = (symbol_c*)(new pragma_c("__real_to_time")); |
9262 function_name = (symbol_c*)(new pragma_c("__real_to_time")); |
9263 |
9263 |
9264 if (IN_type_symbol == NULL) |
9264 if (IN_type_symbol == NULL) |
9265 IN_type_symbol = last_type_symbol; |
9265 IN_type_symbol = last_type_symbol; |
9266 ADD_PARAM_LIST(&IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) |
9266 ADD_PARAM_LIST(IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) |
9267 symbol_c * return_type_symbol = &search_constant_type_c::time_type_name; |
9267 symbol_c * return_type_symbol = &search_constant_type_c::time_type_name; |
9268 function_type_prefix = return_type_symbol; |
9268 function_type_prefix = return_type_symbol; |
9269 break; |
9269 break; |
9270 |
9270 |
9271 } |
9271 } |
9283 case function_lreal_to_int : |
9283 case function_lreal_to_int : |
9284 { |
9284 { |
9285 symbol_c *last_type_symbol = NULL; |
9285 symbol_c *last_type_symbol = NULL; |
9286 |
9286 |
9287 { |
9287 { |
9288 identifier_c IN_param_name("IN"); |
9288 symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); |
9289 /* Get the value from a foo(<param_name> = <param_value>) style call */ |
9289 /* Get the value from a foo(<param_name> = <param_value>) style call */ |
9290 symbol_c *IN_param_value = &this->default_variable_name; |
9290 symbol_c *IN_param_value = &this->default_variable_name; |
9291 |
9291 |
9292 symbol_c *IN_type_symbol = param_data_type; |
9292 symbol_c *IN_type_symbol = param_data_type; |
9293 last_type_symbol = param_data_type; |
9293 last_type_symbol = param_data_type; |
9297 |
9297 |
9298 function_name = (symbol_c*)(new pragma_c("__move_")); |
9298 function_name = (symbol_c*)(new pragma_c("__move_")); |
9299 |
9299 |
9300 if (IN_type_symbol == NULL) |
9300 if (IN_type_symbol == NULL) |
9301 IN_type_symbol = last_type_symbol; |
9301 IN_type_symbol = last_type_symbol; |
9302 ADD_PARAM_LIST(&IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) |
9302 ADD_PARAM_LIST(IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) |
9303 symbol_c * return_type_symbol = &search_constant_type_c::int_type_name; |
9303 symbol_c * return_type_symbol = &search_constant_type_c::int_type_name; |
9304 function_type_prefix = return_type_symbol; |
9304 function_type_prefix = return_type_symbol; |
9305 function_type_suffix = IN_type_symbol; |
9305 function_type_suffix = IN_type_symbol; |
9306 break; |
9306 break; |
9307 |
9307 |
9320 case function_byte_to_real : |
9320 case function_byte_to_real : |
9321 { |
9321 { |
9322 symbol_c *last_type_symbol = NULL; |
9322 symbol_c *last_type_symbol = NULL; |
9323 |
9323 |
9324 { |
9324 { |
9325 identifier_c IN_param_name("IN"); |
9325 symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); |
9326 /* Get the value from a foo(<param_name> = <param_value>) style call */ |
9326 /* Get the value from a foo(<param_name> = <param_value>) style call */ |
9327 symbol_c *IN_param_value = &this->default_variable_name; |
9327 symbol_c *IN_param_value = &this->default_variable_name; |
9328 |
9328 |
9329 symbol_c *IN_type_symbol = param_data_type; |
9329 symbol_c *IN_type_symbol = param_data_type; |
9330 last_type_symbol = param_data_type; |
9330 last_type_symbol = param_data_type; |
9334 |
9334 |
9335 function_name = (symbol_c*)(new pragma_c("__move_")); |
9335 function_name = (symbol_c*)(new pragma_c("__move_")); |
9336 |
9336 |
9337 if (IN_type_symbol == NULL) |
9337 if (IN_type_symbol == NULL) |
9338 IN_type_symbol = last_type_symbol; |
9338 IN_type_symbol = last_type_symbol; |
9339 ADD_PARAM_LIST(&IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) |
9339 ADD_PARAM_LIST(IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) |
9340 symbol_c * return_type_symbol = &search_constant_type_c::real_type_name; |
9340 symbol_c * return_type_symbol = &search_constant_type_c::real_type_name; |
9341 function_type_prefix = return_type_symbol; |
9341 function_type_prefix = return_type_symbol; |
9342 function_type_suffix = IN_type_symbol; |
9342 function_type_suffix = IN_type_symbol; |
9343 break; |
9343 break; |
9344 |
9344 |
9357 case function_byte_to_sint : |
9357 case function_byte_to_sint : |
9358 { |
9358 { |
9359 symbol_c *last_type_symbol = NULL; |
9359 symbol_c *last_type_symbol = NULL; |
9360 |
9360 |
9361 { |
9361 { |
9362 identifier_c IN_param_name("IN"); |
9362 symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); |
9363 /* Get the value from a foo(<param_name> = <param_value>) style call */ |
9363 /* Get the value from a foo(<param_name> = <param_value>) style call */ |
9364 symbol_c *IN_param_value = &this->default_variable_name; |
9364 symbol_c *IN_param_value = &this->default_variable_name; |
9365 |
9365 |
9366 symbol_c *IN_type_symbol = param_data_type; |
9366 symbol_c *IN_type_symbol = param_data_type; |
9367 last_type_symbol = param_data_type; |
9367 last_type_symbol = param_data_type; |
9371 |
9371 |
9372 function_name = (symbol_c*)(new pragma_c("__move_")); |
9372 function_name = (symbol_c*)(new pragma_c("__move_")); |
9373 |
9373 |
9374 if (IN_type_symbol == NULL) |
9374 if (IN_type_symbol == NULL) |
9375 IN_type_symbol = last_type_symbol; |
9375 IN_type_symbol = last_type_symbol; |
9376 ADD_PARAM_LIST(&IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) |
9376 ADD_PARAM_LIST(IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) |
9377 symbol_c * return_type_symbol = &search_constant_type_c::sint_type_name; |
9377 symbol_c * return_type_symbol = &search_constant_type_c::sint_type_name; |
9378 function_type_prefix = return_type_symbol; |
9378 function_type_prefix = return_type_symbol; |
9379 function_type_suffix = IN_type_symbol; |
9379 function_type_suffix = IN_type_symbol; |
9380 break; |
9380 break; |
9381 |
9381 |
9394 case function_byte_to_lint : |
9394 case function_byte_to_lint : |
9395 { |
9395 { |
9396 symbol_c *last_type_symbol = NULL; |
9396 symbol_c *last_type_symbol = NULL; |
9397 |
9397 |
9398 { |
9398 { |
9399 identifier_c IN_param_name("IN"); |
9399 symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); |
9400 /* Get the value from a foo(<param_name> = <param_value>) style call */ |
9400 /* Get the value from a foo(<param_name> = <param_value>) style call */ |
9401 symbol_c *IN_param_value = &this->default_variable_name; |
9401 symbol_c *IN_param_value = &this->default_variable_name; |
9402 |
9402 |
9403 symbol_c *IN_type_symbol = param_data_type; |
9403 symbol_c *IN_type_symbol = param_data_type; |
9404 last_type_symbol = param_data_type; |
9404 last_type_symbol = param_data_type; |
9408 |
9408 |
9409 function_name = (symbol_c*)(new pragma_c("__move_")); |
9409 function_name = (symbol_c*)(new pragma_c("__move_")); |
9410 |
9410 |
9411 if (IN_type_symbol == NULL) |
9411 if (IN_type_symbol == NULL) |
9412 IN_type_symbol = last_type_symbol; |
9412 IN_type_symbol = last_type_symbol; |
9413 ADD_PARAM_LIST(&IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) |
9413 ADD_PARAM_LIST(IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) |
9414 symbol_c * return_type_symbol = &search_constant_type_c::lint_type_name; |
9414 symbol_c * return_type_symbol = &search_constant_type_c::lint_type_name; |
9415 function_type_prefix = return_type_symbol; |
9415 function_type_prefix = return_type_symbol; |
9416 function_type_suffix = IN_type_symbol; |
9416 function_type_suffix = IN_type_symbol; |
9417 break; |
9417 break; |
9418 |
9418 |
9431 case function_byte_to_dint : |
9431 case function_byte_to_dint : |
9432 { |
9432 { |
9433 symbol_c *last_type_symbol = NULL; |
9433 symbol_c *last_type_symbol = NULL; |
9434 |
9434 |
9435 { |
9435 { |
9436 identifier_c IN_param_name("IN"); |
9436 symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); |
9437 /* Get the value from a foo(<param_name> = <param_value>) style call */ |
9437 /* Get the value from a foo(<param_name> = <param_value>) style call */ |
9438 symbol_c *IN_param_value = &this->default_variable_name; |
9438 symbol_c *IN_param_value = &this->default_variable_name; |
9439 |
9439 |
9440 symbol_c *IN_type_symbol = param_data_type; |
9440 symbol_c *IN_type_symbol = param_data_type; |
9441 last_type_symbol = param_data_type; |
9441 last_type_symbol = param_data_type; |
9445 |
9445 |
9446 function_name = (symbol_c*)(new pragma_c("__move_")); |
9446 function_name = (symbol_c*)(new pragma_c("__move_")); |
9447 |
9447 |
9448 if (IN_type_symbol == NULL) |
9448 if (IN_type_symbol == NULL) |
9449 IN_type_symbol = last_type_symbol; |
9449 IN_type_symbol = last_type_symbol; |
9450 ADD_PARAM_LIST(&IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) |
9450 ADD_PARAM_LIST(IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) |
9451 symbol_c * return_type_symbol = &search_constant_type_c::dint_type_name; |
9451 symbol_c * return_type_symbol = &search_constant_type_c::dint_type_name; |
9452 function_type_prefix = return_type_symbol; |
9452 function_type_prefix = return_type_symbol; |
9453 function_type_suffix = IN_type_symbol; |
9453 function_type_suffix = IN_type_symbol; |
9454 break; |
9454 break; |
9455 |
9455 |
9468 case function_byte_to_date : |
9468 case function_byte_to_date : |
9469 { |
9469 { |
9470 symbol_c *last_type_symbol = NULL; |
9470 symbol_c *last_type_symbol = NULL; |
9471 |
9471 |
9472 { |
9472 { |
9473 identifier_c IN_param_name("IN"); |
9473 symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); |
9474 /* Get the value from a foo(<param_name> = <param_value>) style call */ |
9474 /* Get the value from a foo(<param_name> = <param_value>) style call */ |
9475 symbol_c *IN_param_value = &this->default_variable_name; |
9475 symbol_c *IN_param_value = &this->default_variable_name; |
9476 |
9476 |
9477 symbol_c *IN_type_symbol = param_data_type; |
9477 symbol_c *IN_type_symbol = param_data_type; |
9478 last_type_symbol = param_data_type; |
9478 last_type_symbol = param_data_type; |
9482 |
9482 |
9483 function_name = (symbol_c*)(new pragma_c("__int_to_time")); |
9483 function_name = (symbol_c*)(new pragma_c("__int_to_time")); |
9484 |
9484 |
9485 if (IN_type_symbol == NULL) |
9485 if (IN_type_symbol == NULL) |
9486 IN_type_symbol = last_type_symbol; |
9486 IN_type_symbol = last_type_symbol; |
9487 ADD_PARAM_LIST(&IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) |
9487 ADD_PARAM_LIST(IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) |
9488 symbol_c * return_type_symbol = &search_constant_type_c::date_type_name; |
9488 symbol_c * return_type_symbol = &search_constant_type_c::date_type_name; |
9489 function_type_prefix = return_type_symbol; |
9489 function_type_prefix = return_type_symbol; |
9490 break; |
9490 break; |
9491 |
9491 |
9492 } |
9492 } |
9504 case function_byte_to_dword : |
9504 case function_byte_to_dword : |
9505 { |
9505 { |
9506 symbol_c *last_type_symbol = NULL; |
9506 symbol_c *last_type_symbol = NULL; |
9507 |
9507 |
9508 { |
9508 { |
9509 identifier_c IN_param_name("IN"); |
9509 symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); |
9510 /* Get the value from a foo(<param_name> = <param_value>) style call */ |
9510 /* Get the value from a foo(<param_name> = <param_value>) style call */ |
9511 symbol_c *IN_param_value = &this->default_variable_name; |
9511 symbol_c *IN_param_value = &this->default_variable_name; |
9512 |
9512 |
9513 symbol_c *IN_type_symbol = param_data_type; |
9513 symbol_c *IN_type_symbol = param_data_type; |
9514 last_type_symbol = param_data_type; |
9514 last_type_symbol = param_data_type; |
9518 |
9518 |
9519 function_name = (symbol_c*)(new pragma_c("__move_")); |
9519 function_name = (symbol_c*)(new pragma_c("__move_")); |
9520 |
9520 |
9521 if (IN_type_symbol == NULL) |
9521 if (IN_type_symbol == NULL) |
9522 IN_type_symbol = last_type_symbol; |
9522 IN_type_symbol = last_type_symbol; |
9523 ADD_PARAM_LIST(&IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) |
9523 ADD_PARAM_LIST(IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) |
9524 symbol_c * return_type_symbol = &search_constant_type_c::dword_type_name; |
9524 symbol_c * return_type_symbol = &search_constant_type_c::dword_type_name; |
9525 function_type_prefix = return_type_symbol; |
9525 function_type_prefix = return_type_symbol; |
9526 function_type_suffix = IN_type_symbol; |
9526 function_type_suffix = IN_type_symbol; |
9527 break; |
9527 break; |
9528 |
9528 |
9541 case function_byte_to_dt : |
9541 case function_byte_to_dt : |
9542 { |
9542 { |
9543 symbol_c *last_type_symbol = NULL; |
9543 symbol_c *last_type_symbol = NULL; |
9544 |
9544 |
9545 { |
9545 { |
9546 identifier_c IN_param_name("IN"); |
9546 symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); |
9547 /* Get the value from a foo(<param_name> = <param_value>) style call */ |
9547 /* Get the value from a foo(<param_name> = <param_value>) style call */ |
9548 symbol_c *IN_param_value = &this->default_variable_name; |
9548 symbol_c *IN_param_value = &this->default_variable_name; |
9549 |
9549 |
9550 symbol_c *IN_type_symbol = param_data_type; |
9550 symbol_c *IN_type_symbol = param_data_type; |
9551 last_type_symbol = param_data_type; |
9551 last_type_symbol = param_data_type; |
9555 |
9555 |
9556 function_name = (symbol_c*)(new pragma_c("__int_to_time")); |
9556 function_name = (symbol_c*)(new pragma_c("__int_to_time")); |
9557 |
9557 |
9558 if (IN_type_symbol == NULL) |
9558 if (IN_type_symbol == NULL) |
9559 IN_type_symbol = last_type_symbol; |
9559 IN_type_symbol = last_type_symbol; |
9560 ADD_PARAM_LIST(&IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) |
9560 ADD_PARAM_LIST(IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) |
9561 symbol_c * return_type_symbol = &search_constant_type_c::dt_type_name; |
9561 symbol_c * return_type_symbol = &search_constant_type_c::dt_type_name; |
9562 function_type_prefix = return_type_symbol; |
9562 function_type_prefix = return_type_symbol; |
9563 break; |
9563 break; |
9564 |
9564 |
9565 } |
9565 } |
9577 case function_byte_to_tod : |
9577 case function_byte_to_tod : |
9578 { |
9578 { |
9579 symbol_c *last_type_symbol = NULL; |
9579 symbol_c *last_type_symbol = NULL; |
9580 |
9580 |
9581 { |
9581 { |
9582 identifier_c IN_param_name("IN"); |
9582 symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); |
9583 /* Get the value from a foo(<param_name> = <param_value>) style call */ |
9583 /* Get the value from a foo(<param_name> = <param_value>) style call */ |
9584 symbol_c *IN_param_value = &this->default_variable_name; |
9584 symbol_c *IN_param_value = &this->default_variable_name; |
9585 |
9585 |
9586 symbol_c *IN_type_symbol = param_data_type; |
9586 symbol_c *IN_type_symbol = param_data_type; |
9587 last_type_symbol = param_data_type; |
9587 last_type_symbol = param_data_type; |
9591 |
9591 |
9592 function_name = (symbol_c*)(new pragma_c("__int_to_time")); |
9592 function_name = (symbol_c*)(new pragma_c("__int_to_time")); |
9593 |
9593 |
9594 if (IN_type_symbol == NULL) |
9594 if (IN_type_symbol == NULL) |
9595 IN_type_symbol = last_type_symbol; |
9595 IN_type_symbol = last_type_symbol; |
9596 ADD_PARAM_LIST(&IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) |
9596 ADD_PARAM_LIST(IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) |
9597 symbol_c * return_type_symbol = &search_constant_type_c::tod_type_name; |
9597 symbol_c * return_type_symbol = &search_constant_type_c::tod_type_name; |
9598 function_type_prefix = return_type_symbol; |
9598 function_type_prefix = return_type_symbol; |
9599 break; |
9599 break; |
9600 |
9600 |
9601 } |
9601 } |
9613 case function_byte_to_udint : |
9613 case function_byte_to_udint : |
9614 { |
9614 { |
9615 symbol_c *last_type_symbol = NULL; |
9615 symbol_c *last_type_symbol = NULL; |
9616 |
9616 |
9617 { |
9617 { |
9618 identifier_c IN_param_name("IN"); |
9618 symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); |
9619 /* Get the value from a foo(<param_name> = <param_value>) style call */ |
9619 /* Get the value from a foo(<param_name> = <param_value>) style call */ |
9620 symbol_c *IN_param_value = &this->default_variable_name; |
9620 symbol_c *IN_param_value = &this->default_variable_name; |
9621 |
9621 |
9622 symbol_c *IN_type_symbol = param_data_type; |
9622 symbol_c *IN_type_symbol = param_data_type; |
9623 last_type_symbol = param_data_type; |
9623 last_type_symbol = param_data_type; |
9627 |
9627 |
9628 function_name = (symbol_c*)(new pragma_c("__move_")); |
9628 function_name = (symbol_c*)(new pragma_c("__move_")); |
9629 |
9629 |
9630 if (IN_type_symbol == NULL) |
9630 if (IN_type_symbol == NULL) |
9631 IN_type_symbol = last_type_symbol; |
9631 IN_type_symbol = last_type_symbol; |
9632 ADD_PARAM_LIST(&IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) |
9632 ADD_PARAM_LIST(IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) |
9633 symbol_c * return_type_symbol = &search_constant_type_c::udint_type_name; |
9633 symbol_c * return_type_symbol = &search_constant_type_c::udint_type_name; |
9634 function_type_prefix = return_type_symbol; |
9634 function_type_prefix = return_type_symbol; |
9635 function_type_suffix = IN_type_symbol; |
9635 function_type_suffix = IN_type_symbol; |
9636 break; |
9636 break; |
9637 |
9637 |
9650 case function_byte_to_word : |
9650 case function_byte_to_word : |
9651 { |
9651 { |
9652 symbol_c *last_type_symbol = NULL; |
9652 symbol_c *last_type_symbol = NULL; |
9653 |
9653 |
9654 { |
9654 { |
9655 identifier_c IN_param_name("IN"); |
9655 symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); |
9656 /* Get the value from a foo(<param_name> = <param_value>) style call */ |
9656 /* Get the value from a foo(<param_name> = <param_value>) style call */ |
9657 symbol_c *IN_param_value = &this->default_variable_name; |
9657 symbol_c *IN_param_value = &this->default_variable_name; |
9658 |
9658 |
9659 symbol_c *IN_type_symbol = param_data_type; |
9659 symbol_c *IN_type_symbol = param_data_type; |
9660 last_type_symbol = param_data_type; |
9660 last_type_symbol = param_data_type; |
9664 |
9664 |
9665 function_name = (symbol_c*)(new pragma_c("__move_")); |
9665 function_name = (symbol_c*)(new pragma_c("__move_")); |
9666 |
9666 |
9667 if (IN_type_symbol == NULL) |
9667 if (IN_type_symbol == NULL) |
9668 IN_type_symbol = last_type_symbol; |
9668 IN_type_symbol = last_type_symbol; |
9669 ADD_PARAM_LIST(&IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) |
9669 ADD_PARAM_LIST(IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) |
9670 symbol_c * return_type_symbol = &search_constant_type_c::word_type_name; |
9670 symbol_c * return_type_symbol = &search_constant_type_c::word_type_name; |
9671 function_type_prefix = return_type_symbol; |
9671 function_type_prefix = return_type_symbol; |
9672 function_type_suffix = IN_type_symbol; |
9672 function_type_suffix = IN_type_symbol; |
9673 break; |
9673 break; |
9674 |
9674 |
9687 case function_byte_to_string : |
9687 case function_byte_to_string : |
9688 { |
9688 { |
9689 symbol_c *last_type_symbol = NULL; |
9689 symbol_c *last_type_symbol = NULL; |
9690 |
9690 |
9691 { |
9691 { |
9692 identifier_c IN_param_name("IN"); |
9692 symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); |
9693 /* Get the value from a foo(<param_name> = <param_value>) style call */ |
9693 /* Get the value from a foo(<param_name> = <param_value>) style call */ |
9694 symbol_c *IN_param_value = &this->default_variable_name; |
9694 symbol_c *IN_param_value = &this->default_variable_name; |
9695 |
9695 |
9696 symbol_c *IN_type_symbol = param_data_type; |
9696 symbol_c *IN_type_symbol = param_data_type; |
9697 last_type_symbol = param_data_type; |
9697 last_type_symbol = param_data_type; |
9701 |
9701 |
9702 function_name = (symbol_c*)(new pragma_c("__bit_to_string")); |
9702 function_name = (symbol_c*)(new pragma_c("__bit_to_string")); |
9703 |
9703 |
9704 if (IN_type_symbol == NULL) |
9704 if (IN_type_symbol == NULL) |
9705 IN_type_symbol = last_type_symbol; |
9705 IN_type_symbol = last_type_symbol; |
9706 ADD_PARAM_LIST(&IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) |
9706 ADD_PARAM_LIST(IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) |
9707 symbol_c * return_type_symbol = &search_constant_type_c::string_type_name; |
9707 symbol_c * return_type_symbol = &search_constant_type_c::string_type_name; |
9708 function_type_prefix = return_type_symbol; |
9708 function_type_prefix = return_type_symbol; |
9709 break; |
9709 break; |
9710 |
9710 |
9711 } |
9711 } |
9723 case function_byte_to_lword : |
9723 case function_byte_to_lword : |
9724 { |
9724 { |
9725 symbol_c *last_type_symbol = NULL; |
9725 symbol_c *last_type_symbol = NULL; |
9726 |
9726 |
9727 { |
9727 { |
9728 identifier_c IN_param_name("IN"); |
9728 symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); |
9729 /* Get the value from a foo(<param_name> = <param_value>) style call */ |
9729 /* Get the value from a foo(<param_name> = <param_value>) style call */ |
9730 symbol_c *IN_param_value = &this->default_variable_name; |
9730 symbol_c *IN_param_value = &this->default_variable_name; |
9731 |
9731 |
9732 symbol_c *IN_type_symbol = param_data_type; |
9732 symbol_c *IN_type_symbol = param_data_type; |
9733 last_type_symbol = param_data_type; |
9733 last_type_symbol = param_data_type; |
9737 |
9737 |
9738 function_name = (symbol_c*)(new pragma_c("__move_")); |
9738 function_name = (symbol_c*)(new pragma_c("__move_")); |
9739 |
9739 |
9740 if (IN_type_symbol == NULL) |
9740 if (IN_type_symbol == NULL) |
9741 IN_type_symbol = last_type_symbol; |
9741 IN_type_symbol = last_type_symbol; |
9742 ADD_PARAM_LIST(&IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) |
9742 ADD_PARAM_LIST(IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) |
9743 symbol_c * return_type_symbol = &search_constant_type_c::lword_type_name; |
9743 symbol_c * return_type_symbol = &search_constant_type_c::lword_type_name; |
9744 function_type_prefix = return_type_symbol; |
9744 function_type_prefix = return_type_symbol; |
9745 function_type_suffix = IN_type_symbol; |
9745 function_type_suffix = IN_type_symbol; |
9746 break; |
9746 break; |
9747 |
9747 |
9760 case function_byte_to_uint : |
9760 case function_byte_to_uint : |
9761 { |
9761 { |
9762 symbol_c *last_type_symbol = NULL; |
9762 symbol_c *last_type_symbol = NULL; |
9763 |
9763 |
9764 { |
9764 { |
9765 identifier_c IN_param_name("IN"); |
9765 symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); |
9766 /* Get the value from a foo(<param_name> = <param_value>) style call */ |
9766 /* Get the value from a foo(<param_name> = <param_value>) style call */ |
9767 symbol_c *IN_param_value = &this->default_variable_name; |
9767 symbol_c *IN_param_value = &this->default_variable_name; |
9768 |
9768 |
9769 symbol_c *IN_type_symbol = param_data_type; |
9769 symbol_c *IN_type_symbol = param_data_type; |
9770 last_type_symbol = param_data_type; |
9770 last_type_symbol = param_data_type; |
9774 |
9774 |
9775 function_name = (symbol_c*)(new pragma_c("__move_")); |
9775 function_name = (symbol_c*)(new pragma_c("__move_")); |
9776 |
9776 |
9777 if (IN_type_symbol == NULL) |
9777 if (IN_type_symbol == NULL) |
9778 IN_type_symbol = last_type_symbol; |
9778 IN_type_symbol = last_type_symbol; |
9779 ADD_PARAM_LIST(&IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) |
9779 ADD_PARAM_LIST(IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) |
9780 symbol_c * return_type_symbol = &search_constant_type_c::uint_type_name; |
9780 symbol_c * return_type_symbol = &search_constant_type_c::uint_type_name; |
9781 function_type_prefix = return_type_symbol; |
9781 function_type_prefix = return_type_symbol; |
9782 function_type_suffix = IN_type_symbol; |
9782 function_type_suffix = IN_type_symbol; |
9783 break; |
9783 break; |
9784 |
9784 |
9797 case function_byte_to_lreal : |
9797 case function_byte_to_lreal : |
9798 { |
9798 { |
9799 symbol_c *last_type_symbol = NULL; |
9799 symbol_c *last_type_symbol = NULL; |
9800 |
9800 |
9801 { |
9801 { |
9802 identifier_c IN_param_name("IN"); |
9802 symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); |
9803 /* Get the value from a foo(<param_name> = <param_value>) style call */ |
9803 /* Get the value from a foo(<param_name> = <param_value>) style call */ |
9804 symbol_c *IN_param_value = &this->default_variable_name; |
9804 symbol_c *IN_param_value = &this->default_variable_name; |
9805 |
9805 |
9806 symbol_c *IN_type_symbol = param_data_type; |
9806 symbol_c *IN_type_symbol = param_data_type; |
9807 last_type_symbol = param_data_type; |
9807 last_type_symbol = param_data_type; |
9811 |
9811 |
9812 function_name = (symbol_c*)(new pragma_c("__move_")); |
9812 function_name = (symbol_c*)(new pragma_c("__move_")); |
9813 |
9813 |
9814 if (IN_type_symbol == NULL) |
9814 if (IN_type_symbol == NULL) |
9815 IN_type_symbol = last_type_symbol; |
9815 IN_type_symbol = last_type_symbol; |
9816 ADD_PARAM_LIST(&IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) |
9816 ADD_PARAM_LIST(IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) |
9817 symbol_c * return_type_symbol = &search_constant_type_c::lreal_type_name; |
9817 symbol_c * return_type_symbol = &search_constant_type_c::lreal_type_name; |
9818 function_type_prefix = return_type_symbol; |
9818 function_type_prefix = return_type_symbol; |
9819 function_type_suffix = IN_type_symbol; |
9819 function_type_suffix = IN_type_symbol; |
9820 break; |
9820 break; |
9821 |
9821 |
9834 case function_byte_to_usint : |
9834 case function_byte_to_usint : |
9835 { |
9835 { |
9836 symbol_c *last_type_symbol = NULL; |
9836 symbol_c *last_type_symbol = NULL; |
9837 |
9837 |
9838 { |
9838 { |
9839 identifier_c IN_param_name("IN"); |
9839 symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); |
9840 /* Get the value from a foo(<param_name> = <param_value>) style call */ |
9840 /* Get the value from a foo(<param_name> = <param_value>) style call */ |
9841 symbol_c *IN_param_value = &this->default_variable_name; |
9841 symbol_c *IN_param_value = &this->default_variable_name; |
9842 |
9842 |
9843 symbol_c *IN_type_symbol = param_data_type; |
9843 symbol_c *IN_type_symbol = param_data_type; |
9844 last_type_symbol = param_data_type; |
9844 last_type_symbol = param_data_type; |
9848 |
9848 |
9849 function_name = (symbol_c*)(new pragma_c("__move_")); |
9849 function_name = (symbol_c*)(new pragma_c("__move_")); |
9850 |
9850 |
9851 if (IN_type_symbol == NULL) |
9851 if (IN_type_symbol == NULL) |
9852 IN_type_symbol = last_type_symbol; |
9852 IN_type_symbol = last_type_symbol; |
9853 ADD_PARAM_LIST(&IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) |
9853 ADD_PARAM_LIST(IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) |
9854 symbol_c * return_type_symbol = &search_constant_type_c::usint_type_name; |
9854 symbol_c * return_type_symbol = &search_constant_type_c::usint_type_name; |
9855 function_type_prefix = return_type_symbol; |
9855 function_type_prefix = return_type_symbol; |
9856 function_type_suffix = IN_type_symbol; |
9856 function_type_suffix = IN_type_symbol; |
9857 break; |
9857 break; |
9858 |
9858 |
9871 case function_byte_to_ulint : |
9871 case function_byte_to_ulint : |
9872 { |
9872 { |
9873 symbol_c *last_type_symbol = NULL; |
9873 symbol_c *last_type_symbol = NULL; |
9874 |
9874 |
9875 { |
9875 { |
9876 identifier_c IN_param_name("IN"); |
9876 symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); |
9877 /* Get the value from a foo(<param_name> = <param_value>) style call */ |
9877 /* Get the value from a foo(<param_name> = <param_value>) style call */ |
9878 symbol_c *IN_param_value = &this->default_variable_name; |
9878 symbol_c *IN_param_value = &this->default_variable_name; |
9879 |
9879 |
9880 symbol_c *IN_type_symbol = param_data_type; |
9880 symbol_c *IN_type_symbol = param_data_type; |
9881 last_type_symbol = param_data_type; |
9881 last_type_symbol = param_data_type; |
9885 |
9885 |
9886 function_name = (symbol_c*)(new pragma_c("__move_")); |
9886 function_name = (symbol_c*)(new pragma_c("__move_")); |
9887 |
9887 |
9888 if (IN_type_symbol == NULL) |
9888 if (IN_type_symbol == NULL) |
9889 IN_type_symbol = last_type_symbol; |
9889 IN_type_symbol = last_type_symbol; |
9890 ADD_PARAM_LIST(&IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) |
9890 ADD_PARAM_LIST(IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) |
9891 symbol_c * return_type_symbol = &search_constant_type_c::ulint_type_name; |
9891 symbol_c * return_type_symbol = &search_constant_type_c::ulint_type_name; |
9892 function_type_prefix = return_type_symbol; |
9892 function_type_prefix = return_type_symbol; |
9893 function_type_suffix = IN_type_symbol; |
9893 function_type_suffix = IN_type_symbol; |
9894 break; |
9894 break; |
9895 |
9895 |
9908 case function_byte_to_bool : |
9908 case function_byte_to_bool : |
9909 { |
9909 { |
9910 symbol_c *last_type_symbol = NULL; |
9910 symbol_c *last_type_symbol = NULL; |
9911 |
9911 |
9912 { |
9912 { |
9913 identifier_c IN_param_name("IN"); |
9913 symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); |
9914 /* Get the value from a foo(<param_name> = <param_value>) style call */ |
9914 /* Get the value from a foo(<param_name> = <param_value>) style call */ |
9915 symbol_c *IN_param_value = &this->default_variable_name; |
9915 symbol_c *IN_param_value = &this->default_variable_name; |
9916 |
9916 |
9917 symbol_c *IN_type_symbol = param_data_type; |
9917 symbol_c *IN_type_symbol = param_data_type; |
9918 last_type_symbol = param_data_type; |
9918 last_type_symbol = param_data_type; |
9922 |
9922 |
9923 function_name = (symbol_c*)(new pragma_c("__move_")); |
9923 function_name = (symbol_c*)(new pragma_c("__move_")); |
9924 |
9924 |
9925 if (IN_type_symbol == NULL) |
9925 if (IN_type_symbol == NULL) |
9926 IN_type_symbol = last_type_symbol; |
9926 IN_type_symbol = last_type_symbol; |
9927 ADD_PARAM_LIST(&IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) |
9927 ADD_PARAM_LIST(IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) |
9928 symbol_c * return_type_symbol = &search_constant_type_c::bool_type_name; |
9928 symbol_c * return_type_symbol = &search_constant_type_c::bool_type_name; |
9929 function_type_prefix = return_type_symbol; |
9929 function_type_prefix = return_type_symbol; |
9930 function_type_suffix = IN_type_symbol; |
9930 function_type_suffix = IN_type_symbol; |
9931 break; |
9931 break; |
9932 |
9932 |
9945 case function_byte_to_time : |
9945 case function_byte_to_time : |
9946 { |
9946 { |
9947 symbol_c *last_type_symbol = NULL; |
9947 symbol_c *last_type_symbol = NULL; |
9948 |
9948 |
9949 { |
9949 { |
9950 identifier_c IN_param_name("IN"); |
9950 symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); |
9951 /* Get the value from a foo(<param_name> = <param_value>) style call */ |
9951 /* Get the value from a foo(<param_name> = <param_value>) style call */ |
9952 symbol_c *IN_param_value = &this->default_variable_name; |
9952 symbol_c *IN_param_value = &this->default_variable_name; |
9953 |
9953 |
9954 symbol_c *IN_type_symbol = param_data_type; |
9954 symbol_c *IN_type_symbol = param_data_type; |
9955 last_type_symbol = param_data_type; |
9955 last_type_symbol = param_data_type; |
9959 |
9959 |
9960 function_name = (symbol_c*)(new pragma_c("__int_to_time")); |
9960 function_name = (symbol_c*)(new pragma_c("__int_to_time")); |
9961 |
9961 |
9962 if (IN_type_symbol == NULL) |
9962 if (IN_type_symbol == NULL) |
9963 IN_type_symbol = last_type_symbol; |
9963 IN_type_symbol = last_type_symbol; |
9964 ADD_PARAM_LIST(&IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) |
9964 ADD_PARAM_LIST(IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) |
9965 symbol_c * return_type_symbol = &search_constant_type_c::time_type_name; |
9965 symbol_c * return_type_symbol = &search_constant_type_c::time_type_name; |
9966 function_type_prefix = return_type_symbol; |
9966 function_type_prefix = return_type_symbol; |
9967 break; |
9967 break; |
9968 |
9968 |
9969 } |
9969 } |
9981 case function_byte_to_int : |
9981 case function_byte_to_int : |
9982 { |
9982 { |
9983 symbol_c *last_type_symbol = NULL; |
9983 symbol_c *last_type_symbol = NULL; |
9984 |
9984 |
9985 { |
9985 { |
9986 identifier_c IN_param_name("IN"); |
9986 symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); |
9987 /* Get the value from a foo(<param_name> = <param_value>) style call */ |
9987 /* Get the value from a foo(<param_name> = <param_value>) style call */ |
9988 symbol_c *IN_param_value = &this->default_variable_name; |
9988 symbol_c *IN_param_value = &this->default_variable_name; |
9989 |
9989 |
9990 symbol_c *IN_type_symbol = param_data_type; |
9990 symbol_c *IN_type_symbol = param_data_type; |
9991 last_type_symbol = param_data_type; |
9991 last_type_symbol = param_data_type; |
9995 |
9995 |
9996 function_name = (symbol_c*)(new pragma_c("__move_")); |
9996 function_name = (symbol_c*)(new pragma_c("__move_")); |
9997 |
9997 |
9998 if (IN_type_symbol == NULL) |
9998 if (IN_type_symbol == NULL) |
9999 IN_type_symbol = last_type_symbol; |
9999 IN_type_symbol = last_type_symbol; |
10000 ADD_PARAM_LIST(&IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) |
10000 ADD_PARAM_LIST(IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) |
10001 symbol_c * return_type_symbol = &search_constant_type_c::int_type_name; |
10001 symbol_c * return_type_symbol = &search_constant_type_c::int_type_name; |
10002 function_type_prefix = return_type_symbol; |
10002 function_type_prefix = return_type_symbol; |
10003 function_type_suffix = IN_type_symbol; |
10003 function_type_suffix = IN_type_symbol; |
10004 break; |
10004 break; |
10005 |
10005 |
10018 case function_usint_to_real : |
10018 case function_usint_to_real : |
10019 { |
10019 { |
10020 symbol_c *last_type_symbol = NULL; |
10020 symbol_c *last_type_symbol = NULL; |
10021 |
10021 |
10022 { |
10022 { |
10023 identifier_c IN_param_name("IN"); |
10023 symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); |
10024 /* Get the value from a foo(<param_name> = <param_value>) style call */ |
10024 /* Get the value from a foo(<param_name> = <param_value>) style call */ |
10025 symbol_c *IN_param_value = &this->default_variable_name; |
10025 symbol_c *IN_param_value = &this->default_variable_name; |
10026 |
10026 |
10027 symbol_c *IN_type_symbol = param_data_type; |
10027 symbol_c *IN_type_symbol = param_data_type; |
10028 last_type_symbol = param_data_type; |
10028 last_type_symbol = param_data_type; |
10032 |
10032 |
10033 function_name = (symbol_c*)(new pragma_c("__move_")); |
10033 function_name = (symbol_c*)(new pragma_c("__move_")); |
10034 |
10034 |
10035 if (IN_type_symbol == NULL) |
10035 if (IN_type_symbol == NULL) |
10036 IN_type_symbol = last_type_symbol; |
10036 IN_type_symbol = last_type_symbol; |
10037 ADD_PARAM_LIST(&IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) |
10037 ADD_PARAM_LIST(IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) |
10038 symbol_c * return_type_symbol = &search_constant_type_c::real_type_name; |
10038 symbol_c * return_type_symbol = &search_constant_type_c::real_type_name; |
10039 function_type_prefix = return_type_symbol; |
10039 function_type_prefix = return_type_symbol; |
10040 function_type_suffix = IN_type_symbol; |
10040 function_type_suffix = IN_type_symbol; |
10041 break; |
10041 break; |
10042 |
10042 |
10055 case function_usint_to_sint : |
10055 case function_usint_to_sint : |
10056 { |
10056 { |
10057 symbol_c *last_type_symbol = NULL; |
10057 symbol_c *last_type_symbol = NULL; |
10058 |
10058 |
10059 { |
10059 { |
10060 identifier_c IN_param_name("IN"); |
10060 symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); |
10061 /* Get the value from a foo(<param_name> = <param_value>) style call */ |
10061 /* Get the value from a foo(<param_name> = <param_value>) style call */ |
10062 symbol_c *IN_param_value = &this->default_variable_name; |
10062 symbol_c *IN_param_value = &this->default_variable_name; |
10063 |
10063 |
10064 symbol_c *IN_type_symbol = param_data_type; |
10064 symbol_c *IN_type_symbol = param_data_type; |
10065 last_type_symbol = param_data_type; |
10065 last_type_symbol = param_data_type; |
10069 |
10069 |
10070 function_name = (symbol_c*)(new pragma_c("__move_")); |
10070 function_name = (symbol_c*)(new pragma_c("__move_")); |
10071 |
10071 |
10072 if (IN_type_symbol == NULL) |
10072 if (IN_type_symbol == NULL) |
10073 IN_type_symbol = last_type_symbol; |
10073 IN_type_symbol = last_type_symbol; |
10074 ADD_PARAM_LIST(&IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) |
10074 ADD_PARAM_LIST(IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) |
10075 symbol_c * return_type_symbol = &search_constant_type_c::sint_type_name; |
10075 symbol_c * return_type_symbol = &search_constant_type_c::sint_type_name; |
10076 function_type_prefix = return_type_symbol; |
10076 function_type_prefix = return_type_symbol; |
10077 function_type_suffix = IN_type_symbol; |
10077 function_type_suffix = IN_type_symbol; |
10078 break; |
10078 break; |
10079 |
10079 |
10092 case function_usint_to_lint : |
10092 case function_usint_to_lint : |
10093 { |
10093 { |
10094 symbol_c *last_type_symbol = NULL; |
10094 symbol_c *last_type_symbol = NULL; |
10095 |
10095 |
10096 { |
10096 { |
10097 identifier_c IN_param_name("IN"); |
10097 symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); |
10098 /* Get the value from a foo(<param_name> = <param_value>) style call */ |
10098 /* Get the value from a foo(<param_name> = <param_value>) style call */ |
10099 symbol_c *IN_param_value = &this->default_variable_name; |
10099 symbol_c *IN_param_value = &this->default_variable_name; |
10100 |
10100 |
10101 symbol_c *IN_type_symbol = param_data_type; |
10101 symbol_c *IN_type_symbol = param_data_type; |
10102 last_type_symbol = param_data_type; |
10102 last_type_symbol = param_data_type; |
10106 |
10106 |
10107 function_name = (symbol_c*)(new pragma_c("__move_")); |
10107 function_name = (symbol_c*)(new pragma_c("__move_")); |
10108 |
10108 |
10109 if (IN_type_symbol == NULL) |
10109 if (IN_type_symbol == NULL) |
10110 IN_type_symbol = last_type_symbol; |
10110 IN_type_symbol = last_type_symbol; |
10111 ADD_PARAM_LIST(&IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) |
10111 ADD_PARAM_LIST(IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) |
10112 symbol_c * return_type_symbol = &search_constant_type_c::lint_type_name; |
10112 symbol_c * return_type_symbol = &search_constant_type_c::lint_type_name; |
10113 function_type_prefix = return_type_symbol; |
10113 function_type_prefix = return_type_symbol; |
10114 function_type_suffix = IN_type_symbol; |
10114 function_type_suffix = IN_type_symbol; |
10115 break; |
10115 break; |
10116 |
10116 |
10129 case function_usint_to_dint : |
10129 case function_usint_to_dint : |
10130 { |
10130 { |
10131 symbol_c *last_type_symbol = NULL; |
10131 symbol_c *last_type_symbol = NULL; |
10132 |
10132 |
10133 { |
10133 { |
10134 identifier_c IN_param_name("IN"); |
10134 symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); |
10135 /* Get the value from a foo(<param_name> = <param_value>) style call */ |
10135 /* Get the value from a foo(<param_name> = <param_value>) style call */ |
10136 symbol_c *IN_param_value = &this->default_variable_name; |
10136 symbol_c *IN_param_value = &this->default_variable_name; |
10137 |
10137 |
10138 symbol_c *IN_type_symbol = param_data_type; |
10138 symbol_c *IN_type_symbol = param_data_type; |
10139 last_type_symbol = param_data_type; |
10139 last_type_symbol = param_data_type; |
10143 |
10143 |
10144 function_name = (symbol_c*)(new pragma_c("__move_")); |
10144 function_name = (symbol_c*)(new pragma_c("__move_")); |
10145 |
10145 |
10146 if (IN_type_symbol == NULL) |
10146 if (IN_type_symbol == NULL) |
10147 IN_type_symbol = last_type_symbol; |
10147 IN_type_symbol = last_type_symbol; |
10148 ADD_PARAM_LIST(&IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) |
10148 ADD_PARAM_LIST(IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) |
10149 symbol_c * return_type_symbol = &search_constant_type_c::dint_type_name; |
10149 symbol_c * return_type_symbol = &search_constant_type_c::dint_type_name; |
10150 function_type_prefix = return_type_symbol; |
10150 function_type_prefix = return_type_symbol; |
10151 function_type_suffix = IN_type_symbol; |
10151 function_type_suffix = IN_type_symbol; |
10152 break; |
10152 break; |
10153 |
10153 |
10166 case function_usint_to_date : |
10166 case function_usint_to_date : |
10167 { |
10167 { |
10168 symbol_c *last_type_symbol = NULL; |
10168 symbol_c *last_type_symbol = NULL; |
10169 |
10169 |
10170 { |
10170 { |
10171 identifier_c IN_param_name("IN"); |
10171 symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); |
10172 /* Get the value from a foo(<param_name> = <param_value>) style call */ |
10172 /* Get the value from a foo(<param_name> = <param_value>) style call */ |
10173 symbol_c *IN_param_value = &this->default_variable_name; |
10173 symbol_c *IN_param_value = &this->default_variable_name; |
10174 |
10174 |
10175 symbol_c *IN_type_symbol = param_data_type; |
10175 symbol_c *IN_type_symbol = param_data_type; |
10176 last_type_symbol = param_data_type; |
10176 last_type_symbol = param_data_type; |
10180 |
10180 |
10181 function_name = (symbol_c*)(new pragma_c("__int_to_time")); |
10181 function_name = (symbol_c*)(new pragma_c("__int_to_time")); |
10182 |
10182 |
10183 if (IN_type_symbol == NULL) |
10183 if (IN_type_symbol == NULL) |
10184 IN_type_symbol = last_type_symbol; |
10184 IN_type_symbol = last_type_symbol; |
10185 ADD_PARAM_LIST(&IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) |
10185 ADD_PARAM_LIST(IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) |
10186 symbol_c * return_type_symbol = &search_constant_type_c::date_type_name; |
10186 symbol_c * return_type_symbol = &search_constant_type_c::date_type_name; |
10187 function_type_prefix = return_type_symbol; |
10187 function_type_prefix = return_type_symbol; |
10188 break; |
10188 break; |
10189 |
10189 |
10190 } |
10190 } |
10202 case function_usint_to_dword : |
10202 case function_usint_to_dword : |
10203 { |
10203 { |
10204 symbol_c *last_type_symbol = NULL; |
10204 symbol_c *last_type_symbol = NULL; |
10205 |
10205 |
10206 { |
10206 { |
10207 identifier_c IN_param_name("IN"); |
10207 symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); |
10208 /* Get the value from a foo(<param_name> = <param_value>) style call */ |
10208 /* Get the value from a foo(<param_name> = <param_value>) style call */ |
10209 symbol_c *IN_param_value = &this->default_variable_name; |
10209 symbol_c *IN_param_value = &this->default_variable_name; |
10210 |
10210 |
10211 symbol_c *IN_type_symbol = param_data_type; |
10211 symbol_c *IN_type_symbol = param_data_type; |
10212 last_type_symbol = param_data_type; |
10212 last_type_symbol = param_data_type; |
10216 |
10216 |
10217 function_name = (symbol_c*)(new pragma_c("__move_")); |
10217 function_name = (symbol_c*)(new pragma_c("__move_")); |
10218 |
10218 |
10219 if (IN_type_symbol == NULL) |
10219 if (IN_type_symbol == NULL) |
10220 IN_type_symbol = last_type_symbol; |
10220 IN_type_symbol = last_type_symbol; |
10221 ADD_PARAM_LIST(&IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) |
10221 ADD_PARAM_LIST(IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) |
10222 symbol_c * return_type_symbol = &search_constant_type_c::dword_type_name; |
10222 symbol_c * return_type_symbol = &search_constant_type_c::dword_type_name; |
10223 function_type_prefix = return_type_symbol; |
10223 function_type_prefix = return_type_symbol; |
10224 function_type_suffix = IN_type_symbol; |
10224 function_type_suffix = IN_type_symbol; |
10225 break; |
10225 break; |
10226 |
10226 |
10239 case function_usint_to_dt : |
10239 case function_usint_to_dt : |
10240 { |
10240 { |
10241 symbol_c *last_type_symbol = NULL; |
10241 symbol_c *last_type_symbol = NULL; |
10242 |
10242 |
10243 { |
10243 { |
10244 identifier_c IN_param_name("IN"); |
10244 symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); |
10245 /* Get the value from a foo(<param_name> = <param_value>) style call */ |
10245 /* Get the value from a foo(<param_name> = <param_value>) style call */ |
10246 symbol_c *IN_param_value = &this->default_variable_name; |
10246 symbol_c *IN_param_value = &this->default_variable_name; |
10247 |
10247 |
10248 symbol_c *IN_type_symbol = param_data_type; |
10248 symbol_c *IN_type_symbol = param_data_type; |
10249 last_type_symbol = param_data_type; |
10249 last_type_symbol = param_data_type; |
10253 |
10253 |
10254 function_name = (symbol_c*)(new pragma_c("__int_to_time")); |
10254 function_name = (symbol_c*)(new pragma_c("__int_to_time")); |
10255 |
10255 |
10256 if (IN_type_symbol == NULL) |
10256 if (IN_type_symbol == NULL) |
10257 IN_type_symbol = last_type_symbol; |
10257 IN_type_symbol = last_type_symbol; |
10258 ADD_PARAM_LIST(&IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) |
10258 ADD_PARAM_LIST(IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) |
10259 symbol_c * return_type_symbol = &search_constant_type_c::dt_type_name; |
10259 symbol_c * return_type_symbol = &search_constant_type_c::dt_type_name; |
10260 function_type_prefix = return_type_symbol; |
10260 function_type_prefix = return_type_symbol; |
10261 break; |
10261 break; |
10262 |
10262 |
10263 } |
10263 } |
10275 case function_usint_to_tod : |
10275 case function_usint_to_tod : |
10276 { |
10276 { |
10277 symbol_c *last_type_symbol = NULL; |
10277 symbol_c *last_type_symbol = NULL; |
10278 |
10278 |
10279 { |
10279 { |
10280 identifier_c IN_param_name("IN"); |
10280 symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); |
10281 /* Get the value from a foo(<param_name> = <param_value>) style call */ |
10281 /* Get the value from a foo(<param_name> = <param_value>) style call */ |
10282 symbol_c *IN_param_value = &this->default_variable_name; |
10282 symbol_c *IN_param_value = &this->default_variable_name; |
10283 |
10283 |
10284 symbol_c *IN_type_symbol = param_data_type; |
10284 symbol_c *IN_type_symbol = param_data_type; |
10285 last_type_symbol = param_data_type; |
10285 last_type_symbol = param_data_type; |
10289 |
10289 |
10290 function_name = (symbol_c*)(new pragma_c("__int_to_time")); |
10290 function_name = (symbol_c*)(new pragma_c("__int_to_time")); |
10291 |
10291 |
10292 if (IN_type_symbol == NULL) |
10292 if (IN_type_symbol == NULL) |
10293 IN_type_symbol = last_type_symbol; |
10293 IN_type_symbol = last_type_symbol; |
10294 ADD_PARAM_LIST(&IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) |
10294 ADD_PARAM_LIST(IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) |
10295 symbol_c * return_type_symbol = &search_constant_type_c::tod_type_name; |
10295 symbol_c * return_type_symbol = &search_constant_type_c::tod_type_name; |
10296 function_type_prefix = return_type_symbol; |
10296 function_type_prefix = return_type_symbol; |
10297 break; |
10297 break; |
10298 |
10298 |
10299 } |
10299 } |
10311 case function_usint_to_udint : |
10311 case function_usint_to_udint : |
10312 { |
10312 { |
10313 symbol_c *last_type_symbol = NULL; |
10313 symbol_c *last_type_symbol = NULL; |
10314 |
10314 |
10315 { |
10315 { |
10316 identifier_c IN_param_name("IN"); |
10316 symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); |
10317 /* Get the value from a foo(<param_name> = <param_value>) style call */ |
10317 /* Get the value from a foo(<param_name> = <param_value>) style call */ |
10318 symbol_c *IN_param_value = &this->default_variable_name; |
10318 symbol_c *IN_param_value = &this->default_variable_name; |
10319 |
10319 |
10320 symbol_c *IN_type_symbol = param_data_type; |
10320 symbol_c *IN_type_symbol = param_data_type; |
10321 last_type_symbol = param_data_type; |
10321 last_type_symbol = param_data_type; |
10325 |
10325 |
10326 function_name = (symbol_c*)(new pragma_c("__move_")); |
10326 function_name = (symbol_c*)(new pragma_c("__move_")); |
10327 |
10327 |
10328 if (IN_type_symbol == NULL) |
10328 if (IN_type_symbol == NULL) |
10329 IN_type_symbol = last_type_symbol; |
10329 IN_type_symbol = last_type_symbol; |
10330 ADD_PARAM_LIST(&IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) |
10330 ADD_PARAM_LIST(IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) |
10331 symbol_c * return_type_symbol = &search_constant_type_c::udint_type_name; |
10331 symbol_c * return_type_symbol = &search_constant_type_c::udint_type_name; |
10332 function_type_prefix = return_type_symbol; |
10332 function_type_prefix = return_type_symbol; |
10333 function_type_suffix = IN_type_symbol; |
10333 function_type_suffix = IN_type_symbol; |
10334 break; |
10334 break; |
10335 |
10335 |
10348 case function_usint_to_word : |
10348 case function_usint_to_word : |
10349 { |
10349 { |
10350 symbol_c *last_type_symbol = NULL; |
10350 symbol_c *last_type_symbol = NULL; |
10351 |
10351 |
10352 { |
10352 { |
10353 identifier_c IN_param_name("IN"); |
10353 symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); |
10354 /* Get the value from a foo(<param_name> = <param_value>) style call */ |
10354 /* Get the value from a foo(<param_name> = <param_value>) style call */ |
10355 symbol_c *IN_param_value = &this->default_variable_name; |
10355 symbol_c *IN_param_value = &this->default_variable_name; |
10356 |
10356 |
10357 symbol_c *IN_type_symbol = param_data_type; |
10357 symbol_c *IN_type_symbol = param_data_type; |
10358 last_type_symbol = param_data_type; |
10358 last_type_symbol = param_data_type; |
10362 |
10362 |
10363 function_name = (symbol_c*)(new pragma_c("__move_")); |
10363 function_name = (symbol_c*)(new pragma_c("__move_")); |
10364 |
10364 |
10365 if (IN_type_symbol == NULL) |
10365 if (IN_type_symbol == NULL) |
10366 IN_type_symbol = last_type_symbol; |
10366 IN_type_symbol = last_type_symbol; |
10367 ADD_PARAM_LIST(&IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) |
10367 ADD_PARAM_LIST(IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) |
10368 symbol_c * return_type_symbol = &search_constant_type_c::word_type_name; |
10368 symbol_c * return_type_symbol = &search_constant_type_c::word_type_name; |
10369 function_type_prefix = return_type_symbol; |
10369 function_type_prefix = return_type_symbol; |
10370 function_type_suffix = IN_type_symbol; |
10370 function_type_suffix = IN_type_symbol; |
10371 break; |
10371 break; |
10372 |
10372 |
10385 case function_usint_to_string : |
10385 case function_usint_to_string : |
10386 { |
10386 { |
10387 symbol_c *last_type_symbol = NULL; |
10387 symbol_c *last_type_symbol = NULL; |
10388 |
10388 |
10389 { |
10389 { |
10390 identifier_c IN_param_name("IN"); |
10390 symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); |
10391 /* Get the value from a foo(<param_name> = <param_value>) style call */ |
10391 /* Get the value from a foo(<param_name> = <param_value>) style call */ |
10392 symbol_c *IN_param_value = &this->default_variable_name; |
10392 symbol_c *IN_param_value = &this->default_variable_name; |
10393 |
10393 |
10394 symbol_c *IN_type_symbol = param_data_type; |
10394 symbol_c *IN_type_symbol = param_data_type; |
10395 last_type_symbol = param_data_type; |
10395 last_type_symbol = param_data_type; |
10399 |
10399 |
10400 function_name = (symbol_c*)(new pragma_c("__uint_to_string")); |
10400 function_name = (symbol_c*)(new pragma_c("__uint_to_string")); |
10401 |
10401 |
10402 if (IN_type_symbol == NULL) |
10402 if (IN_type_symbol == NULL) |
10403 IN_type_symbol = last_type_symbol; |
10403 IN_type_symbol = last_type_symbol; |
10404 ADD_PARAM_LIST(&IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) |
10404 ADD_PARAM_LIST(IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) |
10405 symbol_c * return_type_symbol = &search_constant_type_c::string_type_name; |
10405 symbol_c * return_type_symbol = &search_constant_type_c::string_type_name; |
10406 function_type_prefix = return_type_symbol; |
10406 function_type_prefix = return_type_symbol; |
10407 break; |
10407 break; |
10408 |
10408 |
10409 } |
10409 } |
10421 case function_usint_to_lword : |
10421 case function_usint_to_lword : |
10422 { |
10422 { |
10423 symbol_c *last_type_symbol = NULL; |
10423 symbol_c *last_type_symbol = NULL; |
10424 |
10424 |
10425 { |
10425 { |
10426 identifier_c IN_param_name("IN"); |
10426 symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); |
10427 /* Get the value from a foo(<param_name> = <param_value>) style call */ |
10427 /* Get the value from a foo(<param_name> = <param_value>) style call */ |
10428 symbol_c *IN_param_value = &this->default_variable_name; |
10428 symbol_c *IN_param_value = &this->default_variable_name; |
10429 |
10429 |
10430 symbol_c *IN_type_symbol = param_data_type; |
10430 symbol_c *IN_type_symbol = param_data_type; |
10431 last_type_symbol = param_data_type; |
10431 last_type_symbol = param_data_type; |
10435 |
10435 |
10436 function_name = (symbol_c*)(new pragma_c("__move_")); |
10436 function_name = (symbol_c*)(new pragma_c("__move_")); |
10437 |
10437 |
10438 if (IN_type_symbol == NULL) |
10438 if (IN_type_symbol == NULL) |
10439 IN_type_symbol = last_type_symbol; |
10439 IN_type_symbol = last_type_symbol; |
10440 ADD_PARAM_LIST(&IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) |
10440 ADD_PARAM_LIST(IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) |
10441 symbol_c * return_type_symbol = &search_constant_type_c::lword_type_name; |
10441 symbol_c * return_type_symbol = &search_constant_type_c::lword_type_name; |
10442 function_type_prefix = return_type_symbol; |
10442 function_type_prefix = return_type_symbol; |
10443 function_type_suffix = IN_type_symbol; |
10443 function_type_suffix = IN_type_symbol; |
10444 break; |
10444 break; |
10445 |
10445 |
10458 case function_usint_to_uint : |
10458 case function_usint_to_uint : |
10459 { |
10459 { |
10460 symbol_c *last_type_symbol = NULL; |
10460 symbol_c *last_type_symbol = NULL; |
10461 |
10461 |
10462 { |
10462 { |
10463 identifier_c IN_param_name("IN"); |
10463 symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); |
10464 /* Get the value from a foo(<param_name> = <param_value>) style call */ |
10464 /* Get the value from a foo(<param_name> = <param_value>) style call */ |
10465 symbol_c *IN_param_value = &this->default_variable_name; |
10465 symbol_c *IN_param_value = &this->default_variable_name; |
10466 |
10466 |
10467 symbol_c *IN_type_symbol = param_data_type; |
10467 symbol_c *IN_type_symbol = param_data_type; |
10468 last_type_symbol = param_data_type; |
10468 last_type_symbol = param_data_type; |
10472 |
10472 |
10473 function_name = (symbol_c*)(new pragma_c("__move_")); |
10473 function_name = (symbol_c*)(new pragma_c("__move_")); |
10474 |
10474 |
10475 if (IN_type_symbol == NULL) |
10475 if (IN_type_symbol == NULL) |
10476 IN_type_symbol = last_type_symbol; |
10476 IN_type_symbol = last_type_symbol; |
10477 ADD_PARAM_LIST(&IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) |
10477 ADD_PARAM_LIST(IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) |
10478 symbol_c * return_type_symbol = &search_constant_type_c::uint_type_name; |
10478 symbol_c * return_type_symbol = &search_constant_type_c::uint_type_name; |
10479 function_type_prefix = return_type_symbol; |
10479 function_type_prefix = return_type_symbol; |
10480 function_type_suffix = IN_type_symbol; |
10480 function_type_suffix = IN_type_symbol; |
10481 break; |
10481 break; |
10482 |
10482 |
10495 case function_usint_to_lreal : |
10495 case function_usint_to_lreal : |
10496 { |
10496 { |
10497 symbol_c *last_type_symbol = NULL; |
10497 symbol_c *last_type_symbol = NULL; |
10498 |
10498 |
10499 { |
10499 { |
10500 identifier_c IN_param_name("IN"); |
10500 symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); |
10501 /* Get the value from a foo(<param_name> = <param_value>) style call */ |
10501 /* Get the value from a foo(<param_name> = <param_value>) style call */ |
10502 symbol_c *IN_param_value = &this->default_variable_name; |
10502 symbol_c *IN_param_value = &this->default_variable_name; |
10503 |
10503 |
10504 symbol_c *IN_type_symbol = param_data_type; |
10504 symbol_c *IN_type_symbol = param_data_type; |
10505 last_type_symbol = param_data_type; |
10505 last_type_symbol = param_data_type; |
10509 |
10509 |
10510 function_name = (symbol_c*)(new pragma_c("__move_")); |
10510 function_name = (symbol_c*)(new pragma_c("__move_")); |
10511 |
10511 |
10512 if (IN_type_symbol == NULL) |
10512 if (IN_type_symbol == NULL) |
10513 IN_type_symbol = last_type_symbol; |
10513 IN_type_symbol = last_type_symbol; |
10514 ADD_PARAM_LIST(&IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) |
10514 ADD_PARAM_LIST(IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) |
10515 symbol_c * return_type_symbol = &search_constant_type_c::lreal_type_name; |
10515 symbol_c * return_type_symbol = &search_constant_type_c::lreal_type_name; |
10516 function_type_prefix = return_type_symbol; |
10516 function_type_prefix = return_type_symbol; |
10517 function_type_suffix = IN_type_symbol; |
10517 function_type_suffix = IN_type_symbol; |
10518 break; |
10518 break; |
10519 |
10519 |
10532 case function_usint_to_byte : |
10532 case function_usint_to_byte : |
10533 { |
10533 { |
10534 symbol_c *last_type_symbol = NULL; |
10534 symbol_c *last_type_symbol = NULL; |
10535 |
10535 |
10536 { |
10536 { |
10537 identifier_c IN_param_name("IN"); |
10537 symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); |
10538 /* Get the value from a foo(<param_name> = <param_value>) style call */ |
10538 /* Get the value from a foo(<param_name> = <param_value>) style call */ |
10539 symbol_c *IN_param_value = &this->default_variable_name; |
10539 symbol_c *IN_param_value = &this->default_variable_name; |
10540 |
10540 |
10541 symbol_c *IN_type_symbol = param_data_type; |
10541 symbol_c *IN_type_symbol = param_data_type; |
10542 last_type_symbol = param_data_type; |
10542 last_type_symbol = param_data_type; |
10546 |
10546 |
10547 function_name = (symbol_c*)(new pragma_c("__move_")); |
10547 function_name = (symbol_c*)(new pragma_c("__move_")); |
10548 |
10548 |
10549 if (IN_type_symbol == NULL) |
10549 if (IN_type_symbol == NULL) |
10550 IN_type_symbol = last_type_symbol; |
10550 IN_type_symbol = last_type_symbol; |
10551 ADD_PARAM_LIST(&IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) |
10551 ADD_PARAM_LIST(IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) |
10552 symbol_c * return_type_symbol = &search_constant_type_c::byte_type_name; |
10552 symbol_c * return_type_symbol = &search_constant_type_c::byte_type_name; |
10553 function_type_prefix = return_type_symbol; |
10553 function_type_prefix = return_type_symbol; |
10554 function_type_suffix = IN_type_symbol; |
10554 function_type_suffix = IN_type_symbol; |
10555 break; |
10555 break; |
10556 |
10556 |
10569 case function_usint_to_ulint : |
10569 case function_usint_to_ulint : |
10570 { |
10570 { |
10571 symbol_c *last_type_symbol = NULL; |
10571 symbol_c *last_type_symbol = NULL; |
10572 |
10572 |
10573 { |
10573 { |
10574 identifier_c IN_param_name("IN"); |
10574 symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); |
10575 /* Get the value from a foo(<param_name> = <param_value>) style call */ |
10575 /* Get the value from a foo(<param_name> = <param_value>) style call */ |
10576 symbol_c *IN_param_value = &this->default_variable_name; |
10576 symbol_c *IN_param_value = &this->default_variable_name; |
10577 |
10577 |
10578 symbol_c *IN_type_symbol = param_data_type; |
10578 symbol_c *IN_type_symbol = param_data_type; |
10579 last_type_symbol = param_data_type; |
10579 last_type_symbol = param_data_type; |
10583 |
10583 |
10584 function_name = (symbol_c*)(new pragma_c("__move_")); |
10584 function_name = (symbol_c*)(new pragma_c("__move_")); |
10585 |
10585 |
10586 if (IN_type_symbol == NULL) |
10586 if (IN_type_symbol == NULL) |
10587 IN_type_symbol = last_type_symbol; |
10587 IN_type_symbol = last_type_symbol; |
10588 ADD_PARAM_LIST(&IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) |
10588 ADD_PARAM_LIST(IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) |
10589 symbol_c * return_type_symbol = &search_constant_type_c::ulint_type_name; |
10589 symbol_c * return_type_symbol = &search_constant_type_c::ulint_type_name; |
10590 function_type_prefix = return_type_symbol; |
10590 function_type_prefix = return_type_symbol; |
10591 function_type_suffix = IN_type_symbol; |
10591 function_type_suffix = IN_type_symbol; |
10592 break; |
10592 break; |
10593 |
10593 |
10606 case function_usint_to_bool : |
10606 case function_usint_to_bool : |
10607 { |
10607 { |
10608 symbol_c *last_type_symbol = NULL; |
10608 symbol_c *last_type_symbol = NULL; |
10609 |
10609 |
10610 { |
10610 { |
10611 identifier_c IN_param_name("IN"); |
10611 symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); |
10612 /* Get the value from a foo(<param_name> = <param_value>) style call */ |
10612 /* Get the value from a foo(<param_name> = <param_value>) style call */ |
10613 symbol_c *IN_param_value = &this->default_variable_name; |
10613 symbol_c *IN_param_value = &this->default_variable_name; |
10614 |
10614 |
10615 symbol_c *IN_type_symbol = param_data_type; |
10615 symbol_c *IN_type_symbol = param_data_type; |
10616 last_type_symbol = param_data_type; |
10616 last_type_symbol = param_data_type; |
10620 |
10620 |
10621 function_name = (symbol_c*)(new pragma_c("__move_")); |
10621 function_name = (symbol_c*)(new pragma_c("__move_")); |
10622 |
10622 |
10623 if (IN_type_symbol == NULL) |
10623 if (IN_type_symbol == NULL) |
10624 IN_type_symbol = last_type_symbol; |
10624 IN_type_symbol = last_type_symbol; |
10625 ADD_PARAM_LIST(&IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) |
10625 ADD_PARAM_LIST(IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) |
10626 symbol_c * return_type_symbol = &search_constant_type_c::bool_type_name; |
10626 symbol_c * return_type_symbol = &search_constant_type_c::bool_type_name; |
10627 function_type_prefix = return_type_symbol; |
10627 function_type_prefix = return_type_symbol; |
10628 function_type_suffix = IN_type_symbol; |
10628 function_type_suffix = IN_type_symbol; |
10629 break; |
10629 break; |
10630 |
10630 |
10643 case function_usint_to_time : |
10643 case function_usint_to_time : |
10644 { |
10644 { |
10645 symbol_c *last_type_symbol = NULL; |
10645 symbol_c *last_type_symbol = NULL; |
10646 |
10646 |
10647 { |
10647 { |
10648 identifier_c IN_param_name("IN"); |
10648 symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); |
10649 /* Get the value from a foo(<param_name> = <param_value>) style call */ |
10649 /* Get the value from a foo(<param_name> = <param_value>) style call */ |
10650 symbol_c *IN_param_value = &this->default_variable_name; |
10650 symbol_c *IN_param_value = &this->default_variable_name; |
10651 |
10651 |
10652 symbol_c *IN_type_symbol = param_data_type; |
10652 symbol_c *IN_type_symbol = param_data_type; |
10653 last_type_symbol = param_data_type; |
10653 last_type_symbol = param_data_type; |
10657 |
10657 |
10658 function_name = (symbol_c*)(new pragma_c("__int_to_time")); |
10658 function_name = (symbol_c*)(new pragma_c("__int_to_time")); |
10659 |
10659 |
10660 if (IN_type_symbol == NULL) |
10660 if (IN_type_symbol == NULL) |
10661 IN_type_symbol = last_type_symbol; |
10661 IN_type_symbol = last_type_symbol; |
10662 ADD_PARAM_LIST(&IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) |
10662 ADD_PARAM_LIST(IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) |
10663 symbol_c * return_type_symbol = &search_constant_type_c::time_type_name; |
10663 symbol_c * return_type_symbol = &search_constant_type_c::time_type_name; |
10664 function_type_prefix = return_type_symbol; |
10664 function_type_prefix = return_type_symbol; |
10665 break; |
10665 break; |
10666 |
10666 |
10667 } |
10667 } |
10679 case function_usint_to_int : |
10679 case function_usint_to_int : |
10680 { |
10680 { |
10681 symbol_c *last_type_symbol = NULL; |
10681 symbol_c *last_type_symbol = NULL; |
10682 |
10682 |
10683 { |
10683 { |
10684 identifier_c IN_param_name("IN"); |
10684 symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); |
10685 /* Get the value from a foo(<param_name> = <param_value>) style call */ |
10685 /* Get the value from a foo(<param_name> = <param_value>) style call */ |
10686 symbol_c *IN_param_value = &this->default_variable_name; |
10686 symbol_c *IN_param_value = &this->default_variable_name; |
10687 |
10687 |
10688 symbol_c *IN_type_symbol = param_data_type; |
10688 symbol_c *IN_type_symbol = param_data_type; |
10689 last_type_symbol = param_data_type; |
10689 last_type_symbol = param_data_type; |
10693 |
10693 |
10694 function_name = (symbol_c*)(new pragma_c("__move_")); |
10694 function_name = (symbol_c*)(new pragma_c("__move_")); |
10695 |
10695 |
10696 if (IN_type_symbol == NULL) |
10696 if (IN_type_symbol == NULL) |
10697 IN_type_symbol = last_type_symbol; |
10697 IN_type_symbol = last_type_symbol; |
10698 ADD_PARAM_LIST(&IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) |
10698 ADD_PARAM_LIST(IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) |
10699 symbol_c * return_type_symbol = &search_constant_type_c::int_type_name; |
10699 symbol_c * return_type_symbol = &search_constant_type_c::int_type_name; |
10700 function_type_prefix = return_type_symbol; |
10700 function_type_prefix = return_type_symbol; |
10701 function_type_suffix = IN_type_symbol; |
10701 function_type_suffix = IN_type_symbol; |
10702 break; |
10702 break; |
10703 |
10703 |
10716 case function_ulint_to_real : |
10716 case function_ulint_to_real : |
10717 { |
10717 { |
10718 symbol_c *last_type_symbol = NULL; |
10718 symbol_c *last_type_symbol = NULL; |
10719 |
10719 |
10720 { |
10720 { |
10721 identifier_c IN_param_name("IN"); |
10721 symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); |
10722 /* Get the value from a foo(<param_name> = <param_value>) style call */ |
10722 /* Get the value from a foo(<param_name> = <param_value>) style call */ |
10723 symbol_c *IN_param_value = &this->default_variable_name; |
10723 symbol_c *IN_param_value = &this->default_variable_name; |
10724 |
10724 |
10725 symbol_c *IN_type_symbol = param_data_type; |
10725 symbol_c *IN_type_symbol = param_data_type; |
10726 last_type_symbol = param_data_type; |
10726 last_type_symbol = param_data_type; |
10730 |
10730 |
10731 function_name = (symbol_c*)(new pragma_c("__move_")); |
10731 function_name = (symbol_c*)(new pragma_c("__move_")); |
10732 |
10732 |
10733 if (IN_type_symbol == NULL) |
10733 if (IN_type_symbol == NULL) |
10734 IN_type_symbol = last_type_symbol; |
10734 IN_type_symbol = last_type_symbol; |
10735 ADD_PARAM_LIST(&IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) |
10735 ADD_PARAM_LIST(IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) |
10736 symbol_c * return_type_symbol = &search_constant_type_c::real_type_name; |
10736 symbol_c * return_type_symbol = &search_constant_type_c::real_type_name; |
10737 function_type_prefix = return_type_symbol; |
10737 function_type_prefix = return_type_symbol; |
10738 function_type_suffix = IN_type_symbol; |
10738 function_type_suffix = IN_type_symbol; |
10739 break; |
10739 break; |
10740 |
10740 |
10753 case function_ulint_to_sint : |
10753 case function_ulint_to_sint : |
10754 { |
10754 { |
10755 symbol_c *last_type_symbol = NULL; |
10755 symbol_c *last_type_symbol = NULL; |
10756 |
10756 |
10757 { |
10757 { |
10758 identifier_c IN_param_name("IN"); |
10758 symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); |
10759 /* Get the value from a foo(<param_name> = <param_value>) style call */ |
10759 /* Get the value from a foo(<param_name> = <param_value>) style call */ |
10760 symbol_c *IN_param_value = &this->default_variable_name; |
10760 symbol_c *IN_param_value = &this->default_variable_name; |
10761 |
10761 |
10762 symbol_c *IN_type_symbol = param_data_type; |
10762 symbol_c *IN_type_symbol = param_data_type; |
10763 last_type_symbol = param_data_type; |
10763 last_type_symbol = param_data_type; |
10767 |
10767 |
10768 function_name = (symbol_c*)(new pragma_c("__move_")); |
10768 function_name = (symbol_c*)(new pragma_c("__move_")); |
10769 |
10769 |
10770 if (IN_type_symbol == NULL) |
10770 if (IN_type_symbol == NULL) |
10771 IN_type_symbol = last_type_symbol; |
10771 IN_type_symbol = last_type_symbol; |
10772 ADD_PARAM_LIST(&IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) |
10772 ADD_PARAM_LIST(IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) |
10773 symbol_c * return_type_symbol = &search_constant_type_c::sint_type_name; |
10773 symbol_c * return_type_symbol = &search_constant_type_c::sint_type_name; |
10774 function_type_prefix = return_type_symbol; |
10774 function_type_prefix = return_type_symbol; |
10775 function_type_suffix = IN_type_symbol; |
10775 function_type_suffix = IN_type_symbol; |
10776 break; |
10776 break; |
10777 |
10777 |
10790 case function_ulint_to_lint : |
10790 case function_ulint_to_lint : |
10791 { |
10791 { |
10792 symbol_c *last_type_symbol = NULL; |
10792 symbol_c *last_type_symbol = NULL; |
10793 |
10793 |
10794 { |
10794 { |
10795 identifier_c IN_param_name("IN"); |
10795 symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); |
10796 /* Get the value from a foo(<param_name> = <param_value>) style call */ |
10796 /* Get the value from a foo(<param_name> = <param_value>) style call */ |
10797 symbol_c *IN_param_value = &this->default_variable_name; |
10797 symbol_c *IN_param_value = &this->default_variable_name; |
10798 |
10798 |
10799 symbol_c *IN_type_symbol = param_data_type; |
10799 symbol_c *IN_type_symbol = param_data_type; |
10800 last_type_symbol = param_data_type; |
10800 last_type_symbol = param_data_type; |
10804 |
10804 |
10805 function_name = (symbol_c*)(new pragma_c("__move_")); |
10805 function_name = (symbol_c*)(new pragma_c("__move_")); |
10806 |
10806 |
10807 if (IN_type_symbol == NULL) |
10807 if (IN_type_symbol == NULL) |
10808 IN_type_symbol = last_type_symbol; |
10808 IN_type_symbol = last_type_symbol; |
10809 ADD_PARAM_LIST(&IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) |
10809 ADD_PARAM_LIST(IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) |
10810 symbol_c * return_type_symbol = &search_constant_type_c::lint_type_name; |
10810 symbol_c * return_type_symbol = &search_constant_type_c::lint_type_name; |
10811 function_type_prefix = return_type_symbol; |
10811 function_type_prefix = return_type_symbol; |
10812 function_type_suffix = IN_type_symbol; |
10812 function_type_suffix = IN_type_symbol; |
10813 break; |
10813 break; |
10814 |
10814 |
10827 case function_ulint_to_dint : |
10827 case function_ulint_to_dint : |
10828 { |
10828 { |
10829 symbol_c *last_type_symbol = NULL; |
10829 symbol_c *last_type_symbol = NULL; |
10830 |
10830 |
10831 { |
10831 { |
10832 identifier_c IN_param_name("IN"); |
10832 symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); |
10833 /* Get the value from a foo(<param_name> = <param_value>) style call */ |
10833 /* Get the value from a foo(<param_name> = <param_value>) style call */ |
10834 symbol_c *IN_param_value = &this->default_variable_name; |
10834 symbol_c *IN_param_value = &this->default_variable_name; |
10835 |
10835 |
10836 symbol_c *IN_type_symbol = param_data_type; |
10836 symbol_c *IN_type_symbol = param_data_type; |
10837 last_type_symbol = param_data_type; |
10837 last_type_symbol = param_data_type; |
10841 |
10841 |
10842 function_name = (symbol_c*)(new pragma_c("__move_")); |
10842 function_name = (symbol_c*)(new pragma_c("__move_")); |
10843 |
10843 |
10844 if (IN_type_symbol == NULL) |
10844 if (IN_type_symbol == NULL) |
10845 IN_type_symbol = last_type_symbol; |
10845 IN_type_symbol = last_type_symbol; |
10846 ADD_PARAM_LIST(&IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) |
10846 ADD_PARAM_LIST(IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) |
10847 symbol_c * return_type_symbol = &search_constant_type_c::dint_type_name; |
10847 symbol_c * return_type_symbol = &search_constant_type_c::dint_type_name; |
10848 function_type_prefix = return_type_symbol; |
10848 function_type_prefix = return_type_symbol; |
10849 function_type_suffix = IN_type_symbol; |
10849 function_type_suffix = IN_type_symbol; |
10850 break; |
10850 break; |
10851 |
10851 |
10864 case function_ulint_to_date : |
10864 case function_ulint_to_date : |
10865 { |
10865 { |
10866 symbol_c *last_type_symbol = NULL; |
10866 symbol_c *last_type_symbol = NULL; |
10867 |
10867 |
10868 { |
10868 { |
10869 identifier_c IN_param_name("IN"); |
10869 symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); |
10870 /* Get the value from a foo(<param_name> = <param_value>) style call */ |
10870 /* Get the value from a foo(<param_name> = <param_value>) style call */ |
10871 symbol_c *IN_param_value = &this->default_variable_name; |
10871 symbol_c *IN_param_value = &this->default_variable_name; |
10872 |
10872 |
10873 symbol_c *IN_type_symbol = param_data_type; |
10873 symbol_c *IN_type_symbol = param_data_type; |
10874 last_type_symbol = param_data_type; |
10874 last_type_symbol = param_data_type; |
10878 |
10878 |
10879 function_name = (symbol_c*)(new pragma_c("__int_to_time")); |
10879 function_name = (symbol_c*)(new pragma_c("__int_to_time")); |
10880 |
10880 |
10881 if (IN_type_symbol == NULL) |
10881 if (IN_type_symbol == NULL) |
10882 IN_type_symbol = last_type_symbol; |
10882 IN_type_symbol = last_type_symbol; |
10883 ADD_PARAM_LIST(&IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) |
10883 ADD_PARAM_LIST(IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) |
10884 symbol_c * return_type_symbol = &search_constant_type_c::date_type_name; |
10884 symbol_c * return_type_symbol = &search_constant_type_c::date_type_name; |
10885 function_type_prefix = return_type_symbol; |
10885 function_type_prefix = return_type_symbol; |
10886 break; |
10886 break; |
10887 |
10887 |
10888 } |
10888 } |
10900 case function_ulint_to_dword : |
10900 case function_ulint_to_dword : |
10901 { |
10901 { |
10902 symbol_c *last_type_symbol = NULL; |
10902 symbol_c *last_type_symbol = NULL; |
10903 |
10903 |
10904 { |
10904 { |
10905 identifier_c IN_param_name("IN"); |
10905 symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); |
10906 /* Get the value from a foo(<param_name> = <param_value>) style call */ |
10906 /* Get the value from a foo(<param_name> = <param_value>) style call */ |
10907 symbol_c *IN_param_value = &this->default_variable_name; |
10907 symbol_c *IN_param_value = &this->default_variable_name; |
10908 |
10908 |
10909 symbol_c *IN_type_symbol = param_data_type; |
10909 symbol_c *IN_type_symbol = param_data_type; |
10910 last_type_symbol = param_data_type; |
10910 last_type_symbol = param_data_type; |
10914 |
10914 |
10915 function_name = (symbol_c*)(new pragma_c("__move_")); |
10915 function_name = (symbol_c*)(new pragma_c("__move_")); |
10916 |
10916 |
10917 if (IN_type_symbol == NULL) |
10917 if (IN_type_symbol == NULL) |
10918 IN_type_symbol = last_type_symbol; |
10918 IN_type_symbol = last_type_symbol; |
10919 ADD_PARAM_LIST(&IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) |
10919 ADD_PARAM_LIST(IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) |
10920 symbol_c * return_type_symbol = &search_constant_type_c::dword_type_name; |
10920 symbol_c * return_type_symbol = &search_constant_type_c::dword_type_name; |
10921 function_type_prefix = return_type_symbol; |
10921 function_type_prefix = return_type_symbol; |
10922 function_type_suffix = IN_type_symbol; |
10922 function_type_suffix = IN_type_symbol; |
10923 break; |
10923 break; |
10924 |
10924 |
10937 case function_ulint_to_dt : |
10937 case function_ulint_to_dt : |
10938 { |
10938 { |
10939 symbol_c *last_type_symbol = NULL; |
10939 symbol_c *last_type_symbol = NULL; |
10940 |
10940 |
10941 { |
10941 { |
10942 identifier_c IN_param_name("IN"); |
10942 symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); |
10943 /* Get the value from a foo(<param_name> = <param_value>) style call */ |
10943 /* Get the value from a foo(<param_name> = <param_value>) style call */ |
10944 symbol_c *IN_param_value = &this->default_variable_name; |
10944 symbol_c *IN_param_value = &this->default_variable_name; |
10945 |
10945 |
10946 symbol_c *IN_type_symbol = param_data_type; |
10946 symbol_c *IN_type_symbol = param_data_type; |
10947 last_type_symbol = param_data_type; |
10947 last_type_symbol = param_data_type; |
10951 |
10951 |
10952 function_name = (symbol_c*)(new pragma_c("__int_to_time")); |
10952 function_name = (symbol_c*)(new pragma_c("__int_to_time")); |
10953 |
10953 |
10954 if (IN_type_symbol == NULL) |
10954 if (IN_type_symbol == NULL) |
10955 IN_type_symbol = last_type_symbol; |
10955 IN_type_symbol = last_type_symbol; |
10956 ADD_PARAM_LIST(&IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) |
10956 ADD_PARAM_LIST(IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) |
10957 symbol_c * return_type_symbol = &search_constant_type_c::dt_type_name; |
10957 symbol_c * return_type_symbol = &search_constant_type_c::dt_type_name; |
10958 function_type_prefix = return_type_symbol; |
10958 function_type_prefix = return_type_symbol; |
10959 break; |
10959 break; |
10960 |
10960 |
10961 } |
10961 } |
10973 case function_ulint_to_tod : |
10973 case function_ulint_to_tod : |
10974 { |
10974 { |
10975 symbol_c *last_type_symbol = NULL; |
10975 symbol_c *last_type_symbol = NULL; |
10976 |
10976 |
10977 { |
10977 { |
10978 identifier_c IN_param_name("IN"); |
10978 symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); |
10979 /* Get the value from a foo(<param_name> = <param_value>) style call */ |
10979 /* Get the value from a foo(<param_name> = <param_value>) style call */ |
10980 symbol_c *IN_param_value = &this->default_variable_name; |
10980 symbol_c *IN_param_value = &this->default_variable_name; |
10981 |
10981 |
10982 symbol_c *IN_type_symbol = param_data_type; |
10982 symbol_c *IN_type_symbol = param_data_type; |
10983 last_type_symbol = param_data_type; |
10983 last_type_symbol = param_data_type; |
10987 |
10987 |
10988 function_name = (symbol_c*)(new pragma_c("__int_to_time")); |
10988 function_name = (symbol_c*)(new pragma_c("__int_to_time")); |
10989 |
10989 |
10990 if (IN_type_symbol == NULL) |
10990 if (IN_type_symbol == NULL) |
10991 IN_type_symbol = last_type_symbol; |
10991 IN_type_symbol = last_type_symbol; |
10992 ADD_PARAM_LIST(&IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) |
10992 ADD_PARAM_LIST(IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) |
10993 symbol_c * return_type_symbol = &search_constant_type_c::tod_type_name; |
10993 symbol_c * return_type_symbol = &search_constant_type_c::tod_type_name; |
10994 function_type_prefix = return_type_symbol; |
10994 function_type_prefix = return_type_symbol; |
10995 break; |
10995 break; |
10996 |
10996 |
10997 } |
10997 } |
11009 case function_ulint_to_udint : |
11009 case function_ulint_to_udint : |
11010 { |
11010 { |
11011 symbol_c *last_type_symbol = NULL; |
11011 symbol_c *last_type_symbol = NULL; |
11012 |
11012 |
11013 { |
11013 { |
11014 identifier_c IN_param_name("IN"); |
11014 symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); |
11015 /* Get the value from a foo(<param_name> = <param_value>) style call */ |
11015 /* Get the value from a foo(<param_name> = <param_value>) style call */ |
11016 symbol_c *IN_param_value = &this->default_variable_name; |
11016 symbol_c *IN_param_value = &this->default_variable_name; |
11017 |
11017 |
11018 symbol_c *IN_type_symbol = param_data_type; |
11018 symbol_c *IN_type_symbol = param_data_type; |
11019 last_type_symbol = param_data_type; |
11019 last_type_symbol = param_data_type; |
11023 |
11023 |
11024 function_name = (symbol_c*)(new pragma_c("__move_")); |
11024 function_name = (symbol_c*)(new pragma_c("__move_")); |
11025 |
11025 |
11026 if (IN_type_symbol == NULL) |
11026 if (IN_type_symbol == NULL) |
11027 IN_type_symbol = last_type_symbol; |
11027 IN_type_symbol = last_type_symbol; |
11028 ADD_PARAM_LIST(&IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) |
11028 ADD_PARAM_LIST(IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) |
11029 symbol_c * return_type_symbol = &search_constant_type_c::udint_type_name; |
11029 symbol_c * return_type_symbol = &search_constant_type_c::udint_type_name; |
11030 function_type_prefix = return_type_symbol; |
11030 function_type_prefix = return_type_symbol; |
11031 function_type_suffix = IN_type_symbol; |
11031 function_type_suffix = IN_type_symbol; |
11032 break; |
11032 break; |
11033 |
11033 |
11046 case function_ulint_to_word : |
11046 case function_ulint_to_word : |
11047 { |
11047 { |
11048 symbol_c *last_type_symbol = NULL; |
11048 symbol_c *last_type_symbol = NULL; |
11049 |
11049 |
11050 { |
11050 { |
11051 identifier_c IN_param_name("IN"); |
11051 symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); |
11052 /* Get the value from a foo(<param_name> = <param_value>) style call */ |
11052 /* Get the value from a foo(<param_name> = <param_value>) style call */ |
11053 symbol_c *IN_param_value = &this->default_variable_name; |
11053 symbol_c *IN_param_value = &this->default_variable_name; |
11054 |
11054 |
11055 symbol_c *IN_type_symbol = param_data_type; |
11055 symbol_c *IN_type_symbol = param_data_type; |
11056 last_type_symbol = param_data_type; |
11056 last_type_symbol = param_data_type; |
11060 |
11060 |
11061 function_name = (symbol_c*)(new pragma_c("__move_")); |
11061 function_name = (symbol_c*)(new pragma_c("__move_")); |
11062 |
11062 |
11063 if (IN_type_symbol == NULL) |
11063 if (IN_type_symbol == NULL) |
11064 IN_type_symbol = last_type_symbol; |
11064 IN_type_symbol = last_type_symbol; |
11065 ADD_PARAM_LIST(&IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) |
11065 ADD_PARAM_LIST(IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) |
11066 symbol_c * return_type_symbol = &search_constant_type_c::word_type_name; |
11066 symbol_c * return_type_symbol = &search_constant_type_c::word_type_name; |
11067 function_type_prefix = return_type_symbol; |
11067 function_type_prefix = return_type_symbol; |
11068 function_type_suffix = IN_type_symbol; |
11068 function_type_suffix = IN_type_symbol; |
11069 break; |
11069 break; |
11070 |
11070 |
11083 case function_ulint_to_string : |
11083 case function_ulint_to_string : |
11084 { |
11084 { |
11085 symbol_c *last_type_symbol = NULL; |
11085 symbol_c *last_type_symbol = NULL; |
11086 |
11086 |
11087 { |
11087 { |
11088 identifier_c IN_param_name("IN"); |
11088 symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); |
11089 /* Get the value from a foo(<param_name> = <param_value>) style call */ |
11089 /* Get the value from a foo(<param_name> = <param_value>) style call */ |
11090 symbol_c *IN_param_value = &this->default_variable_name; |
11090 symbol_c *IN_param_value = &this->default_variable_name; |
11091 |
11091 |
11092 symbol_c *IN_type_symbol = param_data_type; |
11092 symbol_c *IN_type_symbol = param_data_type; |
11093 last_type_symbol = param_data_type; |
11093 last_type_symbol = param_data_type; |
11097 |
11097 |
11098 function_name = (symbol_c*)(new pragma_c("__uint_to_string")); |
11098 function_name = (symbol_c*)(new pragma_c("__uint_to_string")); |
11099 |
11099 |
11100 if (IN_type_symbol == NULL) |
11100 if (IN_type_symbol == NULL) |
11101 IN_type_symbol = last_type_symbol; |
11101 IN_type_symbol = last_type_symbol; |
11102 ADD_PARAM_LIST(&IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) |
11102 ADD_PARAM_LIST(IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) |
11103 symbol_c * return_type_symbol = &search_constant_type_c::string_type_name; |
11103 symbol_c * return_type_symbol = &search_constant_type_c::string_type_name; |
11104 function_type_prefix = return_type_symbol; |
11104 function_type_prefix = return_type_symbol; |
11105 break; |
11105 break; |
11106 |
11106 |
11107 } |
11107 } |
11119 case function_ulint_to_lword : |
11119 case function_ulint_to_lword : |
11120 { |
11120 { |
11121 symbol_c *last_type_symbol = NULL; |
11121 symbol_c *last_type_symbol = NULL; |
11122 |
11122 |
11123 { |
11123 { |
11124 identifier_c IN_param_name("IN"); |
11124 symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); |
11125 /* Get the value from a foo(<param_name> = <param_value>) style call */ |
11125 /* Get the value from a foo(<param_name> = <param_value>) style call */ |
11126 symbol_c *IN_param_value = &this->default_variable_name; |
11126 symbol_c *IN_param_value = &this->default_variable_name; |
11127 |
11127 |
11128 symbol_c *IN_type_symbol = param_data_type; |
11128 symbol_c *IN_type_symbol = param_data_type; |
11129 last_type_symbol = param_data_type; |
11129 last_type_symbol = param_data_type; |
11133 |
11133 |
11134 function_name = (symbol_c*)(new pragma_c("__move_")); |
11134 function_name = (symbol_c*)(new pragma_c("__move_")); |
11135 |
11135 |
11136 if (IN_type_symbol == NULL) |
11136 if (IN_type_symbol == NULL) |
11137 IN_type_symbol = last_type_symbol; |
11137 IN_type_symbol = last_type_symbol; |
11138 ADD_PARAM_LIST(&IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) |
11138 ADD_PARAM_LIST(IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) |
11139 symbol_c * return_type_symbol = &search_constant_type_c::lword_type_name; |
11139 symbol_c * return_type_symbol = &search_constant_type_c::lword_type_name; |
11140 function_type_prefix = return_type_symbol; |
11140 function_type_prefix = return_type_symbol; |
11141 function_type_suffix = IN_type_symbol; |
11141 function_type_suffix = IN_type_symbol; |
11142 break; |
11142 break; |
11143 |
11143 |
11156 case function_ulint_to_uint : |
11156 case function_ulint_to_uint : |
11157 { |
11157 { |
11158 symbol_c *last_type_symbol = NULL; |
11158 symbol_c *last_type_symbol = NULL; |
11159 |
11159 |
11160 { |
11160 { |
11161 identifier_c IN_param_name("IN"); |
11161 symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); |
11162 /* Get the value from a foo(<param_name> = <param_value>) style call */ |
11162 /* Get the value from a foo(<param_name> = <param_value>) style call */ |
11163 symbol_c *IN_param_value = &this->default_variable_name; |
11163 symbol_c *IN_param_value = &this->default_variable_name; |
11164 |
11164 |
11165 symbol_c *IN_type_symbol = param_data_type; |
11165 symbol_c *IN_type_symbol = param_data_type; |
11166 last_type_symbol = param_data_type; |
11166 last_type_symbol = param_data_type; |
11170 |
11170 |
11171 function_name = (symbol_c*)(new pragma_c("__move_")); |
11171 function_name = (symbol_c*)(new pragma_c("__move_")); |
11172 |
11172 |
11173 if (IN_type_symbol == NULL) |
11173 if (IN_type_symbol == NULL) |
11174 IN_type_symbol = last_type_symbol; |
11174 IN_type_symbol = last_type_symbol; |
11175 ADD_PARAM_LIST(&IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) |
11175 ADD_PARAM_LIST(IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) |
11176 symbol_c * return_type_symbol = &search_constant_type_c::uint_type_name; |
11176 symbol_c * return_type_symbol = &search_constant_type_c::uint_type_name; |
11177 function_type_prefix = return_type_symbol; |
11177 function_type_prefix = return_type_symbol; |
11178 function_type_suffix = IN_type_symbol; |
11178 function_type_suffix = IN_type_symbol; |
11179 break; |
11179 break; |
11180 |
11180 |
11193 case function_ulint_to_lreal : |
11193 case function_ulint_to_lreal : |
11194 { |
11194 { |
11195 symbol_c *last_type_symbol = NULL; |
11195 symbol_c *last_type_symbol = NULL; |
11196 |
11196 |
11197 { |
11197 { |
11198 identifier_c IN_param_name("IN"); |
11198 symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); |
11199 /* Get the value from a foo(<param_name> = <param_value>) style call */ |
11199 /* Get the value from a foo(<param_name> = <param_value>) style call */ |
11200 symbol_c *IN_param_value = &this->default_variable_name; |
11200 symbol_c *IN_param_value = &this->default_variable_name; |
11201 |
11201 |
11202 symbol_c *IN_type_symbol = param_data_type; |
11202 symbol_c *IN_type_symbol = param_data_type; |
11203 last_type_symbol = param_data_type; |
11203 last_type_symbol = param_data_type; |
11207 |
11207 |
11208 function_name = (symbol_c*)(new pragma_c("__move_")); |
11208 function_name = (symbol_c*)(new pragma_c("__move_")); |
11209 |
11209 |
11210 if (IN_type_symbol == NULL) |
11210 if (IN_type_symbol == NULL) |
11211 IN_type_symbol = last_type_symbol; |
11211 IN_type_symbol = last_type_symbol; |
11212 ADD_PARAM_LIST(&IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) |
11212 ADD_PARAM_LIST(IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) |
11213 symbol_c * return_type_symbol = &search_constant_type_c::lreal_type_name; |
11213 symbol_c * return_type_symbol = &search_constant_type_c::lreal_type_name; |
11214 function_type_prefix = return_type_symbol; |
11214 function_type_prefix = return_type_symbol; |
11215 function_type_suffix = IN_type_symbol; |
11215 function_type_suffix = IN_type_symbol; |
11216 break; |
11216 break; |
11217 |
11217 |
11230 case function_ulint_to_byte : |
11230 case function_ulint_to_byte : |
11231 { |
11231 { |
11232 symbol_c *last_type_symbol = NULL; |
11232 symbol_c *last_type_symbol = NULL; |
11233 |
11233 |
11234 { |
11234 { |
11235 identifier_c IN_param_name("IN"); |
11235 symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); |
11236 /* Get the value from a foo(<param_name> = <param_value>) style call */ |
11236 /* Get the value from a foo(<param_name> = <param_value>) style call */ |
11237 symbol_c *IN_param_value = &this->default_variable_name; |
11237 symbol_c *IN_param_value = &this->default_variable_name; |
11238 |
11238 |
11239 symbol_c *IN_type_symbol = param_data_type; |
11239 symbol_c *IN_type_symbol = param_data_type; |
11240 last_type_symbol = param_data_type; |
11240 last_type_symbol = param_data_type; |
11244 |
11244 |
11245 function_name = (symbol_c*)(new pragma_c("__move_")); |
11245 function_name = (symbol_c*)(new pragma_c("__move_")); |
11246 |
11246 |
11247 if (IN_type_symbol == NULL) |
11247 if (IN_type_symbol == NULL) |
11248 IN_type_symbol = last_type_symbol; |
11248 IN_type_symbol = last_type_symbol; |
11249 ADD_PARAM_LIST(&IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) |
11249 ADD_PARAM_LIST(IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) |
11250 symbol_c * return_type_symbol = &search_constant_type_c::byte_type_name; |
11250 symbol_c * return_type_symbol = &search_constant_type_c::byte_type_name; |
11251 function_type_prefix = return_type_symbol; |
11251 function_type_prefix = return_type_symbol; |
11252 function_type_suffix = IN_type_symbol; |
11252 function_type_suffix = IN_type_symbol; |
11253 break; |
11253 break; |
11254 |
11254 |
11267 case function_ulint_to_usint : |
11267 case function_ulint_to_usint : |
11268 { |
11268 { |
11269 symbol_c *last_type_symbol = NULL; |
11269 symbol_c *last_type_symbol = NULL; |
11270 |
11270 |
11271 { |
11271 { |
11272 identifier_c IN_param_name("IN"); |
11272 symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); |
11273 /* Get the value from a foo(<param_name> = <param_value>) style call */ |
11273 /* Get the value from a foo(<param_name> = <param_value>) style call */ |
11274 symbol_c *IN_param_value = &this->default_variable_name; |
11274 symbol_c *IN_param_value = &this->default_variable_name; |
11275 |
11275 |
11276 symbol_c *IN_type_symbol = param_data_type; |
11276 symbol_c *IN_type_symbol = param_data_type; |
11277 last_type_symbol = param_data_type; |
11277 last_type_symbol = param_data_type; |
11281 |
11281 |
11282 function_name = (symbol_c*)(new pragma_c("__move_")); |
11282 function_name = (symbol_c*)(new pragma_c("__move_")); |
11283 |
11283 |
11284 if (IN_type_symbol == NULL) |
11284 if (IN_type_symbol == NULL) |
11285 IN_type_symbol = last_type_symbol; |
11285 IN_type_symbol = last_type_symbol; |
11286 ADD_PARAM_LIST(&IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) |
11286 ADD_PARAM_LIST(IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) |
11287 symbol_c * return_type_symbol = &search_constant_type_c::usint_type_name; |
11287 symbol_c * return_type_symbol = &search_constant_type_c::usint_type_name; |
11288 function_type_prefix = return_type_symbol; |
11288 function_type_prefix = return_type_symbol; |
11289 function_type_suffix = IN_type_symbol; |
11289 function_type_suffix = IN_type_symbol; |
11290 break; |
11290 break; |
11291 |
11291 |
11304 case function_ulint_to_bool : |
11304 case function_ulint_to_bool : |
11305 { |
11305 { |
11306 symbol_c *last_type_symbol = NULL; |
11306 symbol_c *last_type_symbol = NULL; |
11307 |
11307 |
11308 { |
11308 { |
11309 identifier_c IN_param_name("IN"); |
11309 symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); |
11310 /* Get the value from a foo(<param_name> = <param_value>) style call */ |
11310 /* Get the value from a foo(<param_name> = <param_value>) style call */ |
11311 symbol_c *IN_param_value = &this->default_variable_name; |
11311 symbol_c *IN_param_value = &this->default_variable_name; |
11312 |
11312 |
11313 symbol_c *IN_type_symbol = param_data_type; |
11313 symbol_c *IN_type_symbol = param_data_type; |
11314 last_type_symbol = param_data_type; |
11314 last_type_symbol = param_data_type; |
11318 |
11318 |
11319 function_name = (symbol_c*)(new pragma_c("__move_")); |
11319 function_name = (symbol_c*)(new pragma_c("__move_")); |
11320 |
11320 |
11321 if (IN_type_symbol == NULL) |
11321 if (IN_type_symbol == NULL) |
11322 IN_type_symbol = last_type_symbol; |
11322 IN_type_symbol = last_type_symbol; |
11323 ADD_PARAM_LIST(&IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) |
11323 ADD_PARAM_LIST(IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) |
11324 symbol_c * return_type_symbol = &search_constant_type_c::bool_type_name; |
11324 symbol_c * return_type_symbol = &search_constant_type_c::bool_type_name; |
11325 function_type_prefix = return_type_symbol; |
11325 function_type_prefix = return_type_symbol; |
11326 function_type_suffix = IN_type_symbol; |
11326 function_type_suffix = IN_type_symbol; |
11327 break; |
11327 break; |
11328 |
11328 |
11341 case function_ulint_to_time : |
11341 case function_ulint_to_time : |
11342 { |
11342 { |
11343 symbol_c *last_type_symbol = NULL; |
11343 symbol_c *last_type_symbol = NULL; |
11344 |
11344 |
11345 { |
11345 { |
11346 identifier_c IN_param_name("IN"); |
11346 symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); |
11347 /* Get the value from a foo(<param_name> = <param_value>) style call */ |
11347 /* Get the value from a foo(<param_name> = <param_value>) style call */ |
11348 symbol_c *IN_param_value = &this->default_variable_name; |
11348 symbol_c *IN_param_value = &this->default_variable_name; |
11349 |
11349 |
11350 symbol_c *IN_type_symbol = param_data_type; |
11350 symbol_c *IN_type_symbol = param_data_type; |
11351 last_type_symbol = param_data_type; |
11351 last_type_symbol = param_data_type; |
11355 |
11355 |
11356 function_name = (symbol_c*)(new pragma_c("__int_to_time")); |
11356 function_name = (symbol_c*)(new pragma_c("__int_to_time")); |
11357 |
11357 |
11358 if (IN_type_symbol == NULL) |
11358 if (IN_type_symbol == NULL) |
11359 IN_type_symbol = last_type_symbol; |
11359 IN_type_symbol = last_type_symbol; |
11360 ADD_PARAM_LIST(&IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) |
11360 ADD_PARAM_LIST(IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) |
11361 symbol_c * return_type_symbol = &search_constant_type_c::time_type_name; |
11361 symbol_c * return_type_symbol = &search_constant_type_c::time_type_name; |
11362 function_type_prefix = return_type_symbol; |
11362 function_type_prefix = return_type_symbol; |
11363 break; |
11363 break; |
11364 |
11364 |
11365 } |
11365 } |
11377 case function_ulint_to_int : |
11377 case function_ulint_to_int : |
11378 { |
11378 { |
11379 symbol_c *last_type_symbol = NULL; |
11379 symbol_c *last_type_symbol = NULL; |
11380 |
11380 |
11381 { |
11381 { |
11382 identifier_c IN_param_name("IN"); |
11382 symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); |
11383 /* Get the value from a foo(<param_name> = <param_value>) style call */ |
11383 /* Get the value from a foo(<param_name> = <param_value>) style call */ |
11384 symbol_c *IN_param_value = &this->default_variable_name; |
11384 symbol_c *IN_param_value = &this->default_variable_name; |
11385 |
11385 |
11386 symbol_c *IN_type_symbol = param_data_type; |
11386 symbol_c *IN_type_symbol = param_data_type; |
11387 last_type_symbol = param_data_type; |
11387 last_type_symbol = param_data_type; |
11391 |
11391 |
11392 function_name = (symbol_c*)(new pragma_c("__move_")); |
11392 function_name = (symbol_c*)(new pragma_c("__move_")); |
11393 |
11393 |
11394 if (IN_type_symbol == NULL) |
11394 if (IN_type_symbol == NULL) |
11395 IN_type_symbol = last_type_symbol; |
11395 IN_type_symbol = last_type_symbol; |
11396 ADD_PARAM_LIST(&IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) |
11396 ADD_PARAM_LIST(IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) |
11397 symbol_c * return_type_symbol = &search_constant_type_c::int_type_name; |
11397 symbol_c * return_type_symbol = &search_constant_type_c::int_type_name; |
11398 function_type_prefix = return_type_symbol; |
11398 function_type_prefix = return_type_symbol; |
11399 function_type_suffix = IN_type_symbol; |
11399 function_type_suffix = IN_type_symbol; |
11400 break; |
11400 break; |
11401 |
11401 |
11414 case function_bool_to_real : |
11414 case function_bool_to_real : |
11415 { |
11415 { |
11416 symbol_c *last_type_symbol = NULL; |
11416 symbol_c *last_type_symbol = NULL; |
11417 |
11417 |
11418 { |
11418 { |
11419 identifier_c IN_param_name("IN"); |
11419 symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); |
11420 /* Get the value from a foo(<param_name> = <param_value>) style call */ |
11420 /* Get the value from a foo(<param_name> = <param_value>) style call */ |
11421 symbol_c *IN_param_value = &this->default_variable_name; |
11421 symbol_c *IN_param_value = &this->default_variable_name; |
11422 |
11422 |
11423 symbol_c *IN_type_symbol = param_data_type; |
11423 symbol_c *IN_type_symbol = param_data_type; |
11424 last_type_symbol = param_data_type; |
11424 last_type_symbol = param_data_type; |
11428 |
11428 |
11429 function_name = (symbol_c*)(new pragma_c("__move_")); |
11429 function_name = (symbol_c*)(new pragma_c("__move_")); |
11430 |
11430 |
11431 if (IN_type_symbol == NULL) |
11431 if (IN_type_symbol == NULL) |
11432 IN_type_symbol = last_type_symbol; |
11432 IN_type_symbol = last_type_symbol; |
11433 ADD_PARAM_LIST(&IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) |
11433 ADD_PARAM_LIST(IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) |
11434 symbol_c * return_type_symbol = &search_constant_type_c::real_type_name; |
11434 symbol_c * return_type_symbol = &search_constant_type_c::real_type_name; |
11435 function_type_prefix = return_type_symbol; |
11435 function_type_prefix = return_type_symbol; |
11436 function_type_suffix = IN_type_symbol; |
11436 function_type_suffix = IN_type_symbol; |
11437 break; |
11437 break; |
11438 |
11438 |
11451 case function_bool_to_sint : |
11451 case function_bool_to_sint : |
11452 { |
11452 { |
11453 symbol_c *last_type_symbol = NULL; |
11453 symbol_c *last_type_symbol = NULL; |
11454 |
11454 |
11455 { |
11455 { |
11456 identifier_c IN_param_name("IN"); |
11456 symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); |
11457 /* Get the value from a foo(<param_name> = <param_value>) style call */ |
11457 /* Get the value from a foo(<param_name> = <param_value>) style call */ |
11458 symbol_c *IN_param_value = &this->default_variable_name; |
11458 symbol_c *IN_param_value = &this->default_variable_name; |
11459 |
11459 |
11460 symbol_c *IN_type_symbol = param_data_type; |
11460 symbol_c *IN_type_symbol = param_data_type; |
11461 last_type_symbol = param_data_type; |
11461 last_type_symbol = param_data_type; |
11465 |
11465 |
11466 function_name = (symbol_c*)(new pragma_c("__move_")); |
11466 function_name = (symbol_c*)(new pragma_c("__move_")); |
11467 |
11467 |
11468 if (IN_type_symbol == NULL) |
11468 if (IN_type_symbol == NULL) |
11469 IN_type_symbol = last_type_symbol; |
11469 IN_type_symbol = last_type_symbol; |
11470 ADD_PARAM_LIST(&IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) |
11470 ADD_PARAM_LIST(IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) |
11471 symbol_c * return_type_symbol = &search_constant_type_c::sint_type_name; |
11471 symbol_c * return_type_symbol = &search_constant_type_c::sint_type_name; |
11472 function_type_prefix = return_type_symbol; |
11472 function_type_prefix = return_type_symbol; |
11473 function_type_suffix = IN_type_symbol; |
11473 function_type_suffix = IN_type_symbol; |
11474 break; |
11474 break; |
11475 |
11475 |
11488 case function_bool_to_lint : |
11488 case function_bool_to_lint : |
11489 { |
11489 { |
11490 symbol_c *last_type_symbol = NULL; |
11490 symbol_c *last_type_symbol = NULL; |
11491 |
11491 |
11492 { |
11492 { |
11493 identifier_c IN_param_name("IN"); |
11493 symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); |
11494 /* Get the value from a foo(<param_name> = <param_value>) style call */ |
11494 /* Get the value from a foo(<param_name> = <param_value>) style call */ |
11495 symbol_c *IN_param_value = &this->default_variable_name; |
11495 symbol_c *IN_param_value = &this->default_variable_name; |
11496 |
11496 |
11497 symbol_c *IN_type_symbol = param_data_type; |
11497 symbol_c *IN_type_symbol = param_data_type; |
11498 last_type_symbol = param_data_type; |
11498 last_type_symbol = param_data_type; |
11502 |
11502 |
11503 function_name = (symbol_c*)(new pragma_c("__move_")); |
11503 function_name = (symbol_c*)(new pragma_c("__move_")); |
11504 |
11504 |
11505 if (IN_type_symbol == NULL) |
11505 if (IN_type_symbol == NULL) |
11506 IN_type_symbol = last_type_symbol; |
11506 IN_type_symbol = last_type_symbol; |
11507 ADD_PARAM_LIST(&IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) |
11507 ADD_PARAM_LIST(IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) |
11508 symbol_c * return_type_symbol = &search_constant_type_c::lint_type_name; |
11508 symbol_c * return_type_symbol = &search_constant_type_c::lint_type_name; |
11509 function_type_prefix = return_type_symbol; |
11509 function_type_prefix = return_type_symbol; |
11510 function_type_suffix = IN_type_symbol; |
11510 function_type_suffix = IN_type_symbol; |
11511 break; |
11511 break; |
11512 |
11512 |
11525 case function_bool_to_dint : |
11525 case function_bool_to_dint : |
11526 { |
11526 { |
11527 symbol_c *last_type_symbol = NULL; |
11527 symbol_c *last_type_symbol = NULL; |
11528 |
11528 |
11529 { |
11529 { |
11530 identifier_c IN_param_name("IN"); |
11530 symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); |
11531 /* Get the value from a foo(<param_name> = <param_value>) style call */ |
11531 /* Get the value from a foo(<param_name> = <param_value>) style call */ |
11532 symbol_c *IN_param_value = &this->default_variable_name; |
11532 symbol_c *IN_param_value = &this->default_variable_name; |
11533 |
11533 |
11534 symbol_c *IN_type_symbol = param_data_type; |
11534 symbol_c *IN_type_symbol = param_data_type; |
11535 last_type_symbol = param_data_type; |
11535 last_type_symbol = param_data_type; |
11539 |
11539 |
11540 function_name = (symbol_c*)(new pragma_c("__move_")); |
11540 function_name = (symbol_c*)(new pragma_c("__move_")); |
11541 |
11541 |
11542 if (IN_type_symbol == NULL) |
11542 if (IN_type_symbol == NULL) |
11543 IN_type_symbol = last_type_symbol; |
11543 IN_type_symbol = last_type_symbol; |
11544 ADD_PARAM_LIST(&IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) |
11544 ADD_PARAM_LIST(IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) |
11545 symbol_c * return_type_symbol = &search_constant_type_c::dint_type_name; |
11545 symbol_c * return_type_symbol = &search_constant_type_c::dint_type_name; |
11546 function_type_prefix = return_type_symbol; |
11546 function_type_prefix = return_type_symbol; |
11547 function_type_suffix = IN_type_symbol; |
11547 function_type_suffix = IN_type_symbol; |
11548 break; |
11548 break; |
11549 |
11549 |
11562 case function_bool_to_date : |
11562 case function_bool_to_date : |
11563 { |
11563 { |
11564 symbol_c *last_type_symbol = NULL; |
11564 symbol_c *last_type_symbol = NULL; |
11565 |
11565 |
11566 { |
11566 { |
11567 identifier_c IN_param_name("IN"); |
11567 symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); |
11568 /* Get the value from a foo(<param_name> = <param_value>) style call */ |
11568 /* Get the value from a foo(<param_name> = <param_value>) style call */ |
11569 symbol_c *IN_param_value = &this->default_variable_name; |
11569 symbol_c *IN_param_value = &this->default_variable_name; |
11570 |
11570 |
11571 symbol_c *IN_type_symbol = param_data_type; |
11571 symbol_c *IN_type_symbol = param_data_type; |
11572 last_type_symbol = param_data_type; |
11572 last_type_symbol = param_data_type; |
11576 |
11576 |
11577 function_name = (symbol_c*)(new pragma_c("__int_to_time")); |
11577 function_name = (symbol_c*)(new pragma_c("__int_to_time")); |
11578 |
11578 |
11579 if (IN_type_symbol == NULL) |
11579 if (IN_type_symbol == NULL) |
11580 IN_type_symbol = last_type_symbol; |
11580 IN_type_symbol = last_type_symbol; |
11581 ADD_PARAM_LIST(&IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) |
11581 ADD_PARAM_LIST(IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) |
11582 symbol_c * return_type_symbol = &search_constant_type_c::date_type_name; |
11582 symbol_c * return_type_symbol = &search_constant_type_c::date_type_name; |
11583 function_type_prefix = return_type_symbol; |
11583 function_type_prefix = return_type_symbol; |
11584 break; |
11584 break; |
11585 |
11585 |
11586 } |
11586 } |
11598 case function_bool_to_dword : |
11598 case function_bool_to_dword : |
11599 { |
11599 { |
11600 symbol_c *last_type_symbol = NULL; |
11600 symbol_c *last_type_symbol = NULL; |
11601 |
11601 |
11602 { |
11602 { |
11603 identifier_c IN_param_name("IN"); |
11603 symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); |
11604 /* Get the value from a foo(<param_name> = <param_value>) style call */ |
11604 /* Get the value from a foo(<param_name> = <param_value>) style call */ |
11605 symbol_c *IN_param_value = &this->default_variable_name; |
11605 symbol_c *IN_param_value = &this->default_variable_name; |
11606 |
11606 |
11607 symbol_c *IN_type_symbol = param_data_type; |
11607 symbol_c *IN_type_symbol = param_data_type; |
11608 last_type_symbol = param_data_type; |
11608 last_type_symbol = param_data_type; |
11612 |
11612 |
11613 function_name = (symbol_c*)(new pragma_c("__move_")); |
11613 function_name = (symbol_c*)(new pragma_c("__move_")); |
11614 |
11614 |
11615 if (IN_type_symbol == NULL) |
11615 if (IN_type_symbol == NULL) |
11616 IN_type_symbol = last_type_symbol; |
11616 IN_type_symbol = last_type_symbol; |
11617 ADD_PARAM_LIST(&IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) |
11617 ADD_PARAM_LIST(IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) |
11618 symbol_c * return_type_symbol = &search_constant_type_c::dword_type_name; |
11618 symbol_c * return_type_symbol = &search_constant_type_c::dword_type_name; |
11619 function_type_prefix = return_type_symbol; |
11619 function_type_prefix = return_type_symbol; |
11620 function_type_suffix = IN_type_symbol; |
11620 function_type_suffix = IN_type_symbol; |
11621 break; |
11621 break; |
11622 |
11622 |
11635 case function_bool_to_dt : |
11635 case function_bool_to_dt : |
11636 { |
11636 { |
11637 symbol_c *last_type_symbol = NULL; |
11637 symbol_c *last_type_symbol = NULL; |
11638 |
11638 |
11639 { |
11639 { |
11640 identifier_c IN_param_name("IN"); |
11640 symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); |
11641 /* Get the value from a foo(<param_name> = <param_value>) style call */ |
11641 /* Get the value from a foo(<param_name> = <param_value>) style call */ |
11642 symbol_c *IN_param_value = &this->default_variable_name; |
11642 symbol_c *IN_param_value = &this->default_variable_name; |
11643 |
11643 |
11644 symbol_c *IN_type_symbol = param_data_type; |
11644 symbol_c *IN_type_symbol = param_data_type; |
11645 last_type_symbol = param_data_type; |
11645 last_type_symbol = param_data_type; |
11649 |
11649 |
11650 function_name = (symbol_c*)(new pragma_c("__int_to_time")); |
11650 function_name = (symbol_c*)(new pragma_c("__int_to_time")); |
11651 |
11651 |
11652 if (IN_type_symbol == NULL) |
11652 if (IN_type_symbol == NULL) |
11653 IN_type_symbol = last_type_symbol; |
11653 IN_type_symbol = last_type_symbol; |
11654 ADD_PARAM_LIST(&IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) |
11654 ADD_PARAM_LIST(IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) |
11655 symbol_c * return_type_symbol = &search_constant_type_c::dt_type_name; |
11655 symbol_c * return_type_symbol = &search_constant_type_c::dt_type_name; |
11656 function_type_prefix = return_type_symbol; |
11656 function_type_prefix = return_type_symbol; |
11657 break; |
11657 break; |
11658 |
11658 |
11659 } |
11659 } |
11671 case function_bool_to_tod : |
11671 case function_bool_to_tod : |
11672 { |
11672 { |
11673 symbol_c *last_type_symbol = NULL; |
11673 symbol_c *last_type_symbol = NULL; |
11674 |
11674 |
11675 { |
11675 { |
11676 identifier_c IN_param_name("IN"); |
11676 symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); |
11677 /* Get the value from a foo(<param_name> = <param_value>) style call */ |
11677 /* Get the value from a foo(<param_name> = <param_value>) style call */ |
11678 symbol_c *IN_param_value = &this->default_variable_name; |
11678 symbol_c *IN_param_value = &this->default_variable_name; |
11679 |
11679 |
11680 symbol_c *IN_type_symbol = param_data_type; |
11680 symbol_c *IN_type_symbol = param_data_type; |
11681 last_type_symbol = param_data_type; |
11681 last_type_symbol = param_data_type; |
11685 |
11685 |
11686 function_name = (symbol_c*)(new pragma_c("__int_to_time")); |
11686 function_name = (symbol_c*)(new pragma_c("__int_to_time")); |
11687 |
11687 |
11688 if (IN_type_symbol == NULL) |
11688 if (IN_type_symbol == NULL) |
11689 IN_type_symbol = last_type_symbol; |
11689 IN_type_symbol = last_type_symbol; |
11690 ADD_PARAM_LIST(&IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) |
11690 ADD_PARAM_LIST(IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) |
11691 symbol_c * return_type_symbol = &search_constant_type_c::tod_type_name; |
11691 symbol_c * return_type_symbol = &search_constant_type_c::tod_type_name; |
11692 function_type_prefix = return_type_symbol; |
11692 function_type_prefix = return_type_symbol; |
11693 break; |
11693 break; |
11694 |
11694 |
11695 } |
11695 } |
11707 case function_bool_to_udint : |
11707 case function_bool_to_udint : |
11708 { |
11708 { |
11709 symbol_c *last_type_symbol = NULL; |
11709 symbol_c *last_type_symbol = NULL; |
11710 |
11710 |
11711 { |
11711 { |
11712 identifier_c IN_param_name("IN"); |
11712 symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); |
11713 /* Get the value from a foo(<param_name> = <param_value>) style call */ |
11713 /* Get the value from a foo(<param_name> = <param_value>) style call */ |
11714 symbol_c *IN_param_value = &this->default_variable_name; |
11714 symbol_c *IN_param_value = &this->default_variable_name; |
11715 |
11715 |
11716 symbol_c *IN_type_symbol = param_data_type; |
11716 symbol_c *IN_type_symbol = param_data_type; |
11717 last_type_symbol = param_data_type; |
11717 last_type_symbol = param_data_type; |
11721 |
11721 |
11722 function_name = (symbol_c*)(new pragma_c("__move_")); |
11722 function_name = (symbol_c*)(new pragma_c("__move_")); |
11723 |
11723 |
11724 if (IN_type_symbol == NULL) |
11724 if (IN_type_symbol == NULL) |
11725 IN_type_symbol = last_type_symbol; |
11725 IN_type_symbol = last_type_symbol; |
11726 ADD_PARAM_LIST(&IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) |
11726 ADD_PARAM_LIST(IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) |
11727 symbol_c * return_type_symbol = &search_constant_type_c::udint_type_name; |
11727 symbol_c * return_type_symbol = &search_constant_type_c::udint_type_name; |
11728 function_type_prefix = return_type_symbol; |
11728 function_type_prefix = return_type_symbol; |
11729 function_type_suffix = IN_type_symbol; |
11729 function_type_suffix = IN_type_symbol; |
11730 break; |
11730 break; |
11731 |
11731 |
11744 case function_bool_to_word : |
11744 case function_bool_to_word : |
11745 { |
11745 { |
11746 symbol_c *last_type_symbol = NULL; |
11746 symbol_c *last_type_symbol = NULL; |
11747 |
11747 |
11748 { |
11748 { |
11749 identifier_c IN_param_name("IN"); |
11749 symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); |
11750 /* Get the value from a foo(<param_name> = <param_value>) style call */ |
11750 /* Get the value from a foo(<param_name> = <param_value>) style call */ |
11751 symbol_c *IN_param_value = &this->default_variable_name; |
11751 symbol_c *IN_param_value = &this->default_variable_name; |
11752 |
11752 |
11753 symbol_c *IN_type_symbol = param_data_type; |
11753 symbol_c *IN_type_symbol = param_data_type; |
11754 last_type_symbol = param_data_type; |
11754 last_type_symbol = param_data_type; |
11758 |
11758 |
11759 function_name = (symbol_c*)(new pragma_c("__move_")); |
11759 function_name = (symbol_c*)(new pragma_c("__move_")); |
11760 |
11760 |
11761 if (IN_type_symbol == NULL) |
11761 if (IN_type_symbol == NULL) |
11762 IN_type_symbol = last_type_symbol; |
11762 IN_type_symbol = last_type_symbol; |
11763 ADD_PARAM_LIST(&IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) |
11763 ADD_PARAM_LIST(IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) |
11764 symbol_c * return_type_symbol = &search_constant_type_c::word_type_name; |
11764 symbol_c * return_type_symbol = &search_constant_type_c::word_type_name; |
11765 function_type_prefix = return_type_symbol; |
11765 function_type_prefix = return_type_symbol; |
11766 function_type_suffix = IN_type_symbol; |
11766 function_type_suffix = IN_type_symbol; |
11767 break; |
11767 break; |
11768 |
11768 |
11781 case function_bool_to_string : |
11781 case function_bool_to_string : |
11782 { |
11782 { |
11783 symbol_c *last_type_symbol = NULL; |
11783 symbol_c *last_type_symbol = NULL; |
11784 |
11784 |
11785 { |
11785 { |
11786 identifier_c IN_param_name("IN"); |
11786 symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); |
11787 /* Get the value from a foo(<param_name> = <param_value>) style call */ |
11787 /* Get the value from a foo(<param_name> = <param_value>) style call */ |
11788 symbol_c *IN_param_value = &this->default_variable_name; |
11788 symbol_c *IN_param_value = &this->default_variable_name; |
11789 |
11789 |
11790 symbol_c *IN_type_symbol = param_data_type; |
11790 symbol_c *IN_type_symbol = param_data_type; |
11791 last_type_symbol = param_data_type; |
11791 last_type_symbol = param_data_type; |
11795 |
11795 |
11796 function_name = (symbol_c*)(new pragma_c("__bool_to_string")); |
11796 function_name = (symbol_c*)(new pragma_c("__bool_to_string")); |
11797 |
11797 |
11798 if (IN_type_symbol == NULL) |
11798 if (IN_type_symbol == NULL) |
11799 IN_type_symbol = last_type_symbol; |
11799 IN_type_symbol = last_type_symbol; |
11800 ADD_PARAM_LIST(&IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) |
11800 ADD_PARAM_LIST(IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) |
11801 symbol_c * return_type_symbol = &search_constant_type_c::string_type_name; |
11801 symbol_c * return_type_symbol = &search_constant_type_c::string_type_name; |
11802 function_type_prefix = return_type_symbol; |
11802 function_type_prefix = return_type_symbol; |
11803 break; |
11803 break; |
11804 |
11804 |
11805 } |
11805 } |
11817 case function_bool_to_lword : |
11817 case function_bool_to_lword : |
11818 { |
11818 { |
11819 symbol_c *last_type_symbol = NULL; |
11819 symbol_c *last_type_symbol = NULL; |
11820 |
11820 |
11821 { |
11821 { |
11822 identifier_c IN_param_name("IN"); |
11822 symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); |
11823 /* Get the value from a foo(<param_name> = <param_value>) style call */ |
11823 /* Get the value from a foo(<param_name> = <param_value>) style call */ |
11824 symbol_c *IN_param_value = &this->default_variable_name; |
11824 symbol_c *IN_param_value = &this->default_variable_name; |
11825 |
11825 |
11826 symbol_c *IN_type_symbol = param_data_type; |
11826 symbol_c *IN_type_symbol = param_data_type; |
11827 last_type_symbol = param_data_type; |
11827 last_type_symbol = param_data_type; |
11831 |
11831 |
11832 function_name = (symbol_c*)(new pragma_c("__move_")); |
11832 function_name = (symbol_c*)(new pragma_c("__move_")); |
11833 |
11833 |
11834 if (IN_type_symbol == NULL) |
11834 if (IN_type_symbol == NULL) |
11835 IN_type_symbol = last_type_symbol; |
11835 IN_type_symbol = last_type_symbol; |
11836 ADD_PARAM_LIST(&IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) |
11836 ADD_PARAM_LIST(IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) |
11837 symbol_c * return_type_symbol = &search_constant_type_c::lword_type_name; |
11837 symbol_c * return_type_symbol = &search_constant_type_c::lword_type_name; |
11838 function_type_prefix = return_type_symbol; |
11838 function_type_prefix = return_type_symbol; |
11839 function_type_suffix = IN_type_symbol; |
11839 function_type_suffix = IN_type_symbol; |
11840 break; |
11840 break; |
11841 |
11841 |
11854 case function_bool_to_uint : |
11854 case function_bool_to_uint : |
11855 { |
11855 { |
11856 symbol_c *last_type_symbol = NULL; |
11856 symbol_c *last_type_symbol = NULL; |
11857 |
11857 |
11858 { |
11858 { |
11859 identifier_c IN_param_name("IN"); |
11859 symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); |
11860 /* Get the value from a foo(<param_name> = <param_value>) style call */ |
11860 /* Get the value from a foo(<param_name> = <param_value>) style call */ |
11861 symbol_c *IN_param_value = &this->default_variable_name; |
11861 symbol_c *IN_param_value = &this->default_variable_name; |
11862 |
11862 |
11863 symbol_c *IN_type_symbol = param_data_type; |
11863 symbol_c *IN_type_symbol = param_data_type; |
11864 last_type_symbol = param_data_type; |
11864 last_type_symbol = param_data_type; |
11868 |
11868 |
11869 function_name = (symbol_c*)(new pragma_c("__move_")); |
11869 function_name = (symbol_c*)(new pragma_c("__move_")); |
11870 |
11870 |
11871 if (IN_type_symbol == NULL) |
11871 if (IN_type_symbol == NULL) |
11872 IN_type_symbol = last_type_symbol; |
11872 IN_type_symbol = last_type_symbol; |
11873 ADD_PARAM_LIST(&IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) |
11873 ADD_PARAM_LIST(IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) |
11874 symbol_c * return_type_symbol = &search_constant_type_c::uint_type_name; |
11874 symbol_c * return_type_symbol = &search_constant_type_c::uint_type_name; |
11875 function_type_prefix = return_type_symbol; |
11875 function_type_prefix = return_type_symbol; |
11876 function_type_suffix = IN_type_symbol; |
11876 function_type_suffix = IN_type_symbol; |
11877 break; |
11877 break; |
11878 |
11878 |
11891 case function_bool_to_lreal : |
11891 case function_bool_to_lreal : |
11892 { |
11892 { |
11893 symbol_c *last_type_symbol = NULL; |
11893 symbol_c *last_type_symbol = NULL; |
11894 |
11894 |
11895 { |
11895 { |
11896 identifier_c IN_param_name("IN"); |
11896 symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); |
11897 /* Get the value from a foo(<param_name> = <param_value>) style call */ |
11897 /* Get the value from a foo(<param_name> = <param_value>) style call */ |
11898 symbol_c *IN_param_value = &this->default_variable_name; |
11898 symbol_c *IN_param_value = &this->default_variable_name; |
11899 |
11899 |
11900 symbol_c *IN_type_symbol = param_data_type; |
11900 symbol_c *IN_type_symbol = param_data_type; |
11901 last_type_symbol = param_data_type; |
11901 last_type_symbol = param_data_type; |
11905 |
11905 |
11906 function_name = (symbol_c*)(new pragma_c("__move_")); |
11906 function_name = (symbol_c*)(new pragma_c("__move_")); |
11907 |
11907 |
11908 if (IN_type_symbol == NULL) |
11908 if (IN_type_symbol == NULL) |
11909 IN_type_symbol = last_type_symbol; |
11909 IN_type_symbol = last_type_symbol; |
11910 ADD_PARAM_LIST(&IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) |
11910 ADD_PARAM_LIST(IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) |
11911 symbol_c * return_type_symbol = &search_constant_type_c::lreal_type_name; |
11911 symbol_c * return_type_symbol = &search_constant_type_c::lreal_type_name; |
11912 function_type_prefix = return_type_symbol; |
11912 function_type_prefix = return_type_symbol; |
11913 function_type_suffix = IN_type_symbol; |
11913 function_type_suffix = IN_type_symbol; |
11914 break; |
11914 break; |
11915 |
11915 |
11928 case function_bool_to_byte : |
11928 case function_bool_to_byte : |
11929 { |
11929 { |
11930 symbol_c *last_type_symbol = NULL; |
11930 symbol_c *last_type_symbol = NULL; |
11931 |
11931 |
11932 { |
11932 { |
11933 identifier_c IN_param_name("IN"); |
11933 symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); |
11934 /* Get the value from a foo(<param_name> = <param_value>) style call */ |
11934 /* Get the value from a foo(<param_name> = <param_value>) style call */ |
11935 symbol_c *IN_param_value = &this->default_variable_name; |
11935 symbol_c *IN_param_value = &this->default_variable_name; |
11936 |
11936 |
11937 symbol_c *IN_type_symbol = param_data_type; |
11937 symbol_c *IN_type_symbol = param_data_type; |
11938 last_type_symbol = param_data_type; |
11938 last_type_symbol = param_data_type; |
11942 |
11942 |
11943 function_name = (symbol_c*)(new pragma_c("__move_")); |
11943 function_name = (symbol_c*)(new pragma_c("__move_")); |
11944 |
11944 |
11945 if (IN_type_symbol == NULL) |
11945 if (IN_type_symbol == NULL) |
11946 IN_type_symbol = last_type_symbol; |
11946 IN_type_symbol = last_type_symbol; |
11947 ADD_PARAM_LIST(&IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) |
11947 ADD_PARAM_LIST(IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) |
11948 symbol_c * return_type_symbol = &search_constant_type_c::byte_type_name; |
11948 symbol_c * return_type_symbol = &search_constant_type_c::byte_type_name; |
11949 function_type_prefix = return_type_symbol; |
11949 function_type_prefix = return_type_symbol; |
11950 function_type_suffix = IN_type_symbol; |
11950 function_type_suffix = IN_type_symbol; |
11951 break; |
11951 break; |
11952 |
11952 |
11965 case function_bool_to_usint : |
11965 case function_bool_to_usint : |
11966 { |
11966 { |
11967 symbol_c *last_type_symbol = NULL; |
11967 symbol_c *last_type_symbol = NULL; |
11968 |
11968 |
11969 { |
11969 { |
11970 identifier_c IN_param_name("IN"); |
11970 symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); |
11971 /* Get the value from a foo(<param_name> = <param_value>) style call */ |
11971 /* Get the value from a foo(<param_name> = <param_value>) style call */ |
11972 symbol_c *IN_param_value = &this->default_variable_name; |
11972 symbol_c *IN_param_value = &this->default_variable_name; |
11973 |
11973 |
11974 symbol_c *IN_type_symbol = param_data_type; |
11974 symbol_c *IN_type_symbol = param_data_type; |
11975 last_type_symbol = param_data_type; |
11975 last_type_symbol = param_data_type; |
11979 |
11979 |
11980 function_name = (symbol_c*)(new pragma_c("__move_")); |
11980 function_name = (symbol_c*)(new pragma_c("__move_")); |
11981 |
11981 |
11982 if (IN_type_symbol == NULL) |
11982 if (IN_type_symbol == NULL) |
11983 IN_type_symbol = last_type_symbol; |
11983 IN_type_symbol = last_type_symbol; |
11984 ADD_PARAM_LIST(&IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) |
11984 ADD_PARAM_LIST(IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) |
11985 symbol_c * return_type_symbol = &search_constant_type_c::usint_type_name; |
11985 symbol_c * return_type_symbol = &search_constant_type_c::usint_type_name; |
11986 function_type_prefix = return_type_symbol; |
11986 function_type_prefix = return_type_symbol; |
11987 function_type_suffix = IN_type_symbol; |
11987 function_type_suffix = IN_type_symbol; |
11988 break; |
11988 break; |
11989 |
11989 |
12002 case function_bool_to_ulint : |
12002 case function_bool_to_ulint : |
12003 { |
12003 { |
12004 symbol_c *last_type_symbol = NULL; |
12004 symbol_c *last_type_symbol = NULL; |
12005 |
12005 |
12006 { |
12006 { |
12007 identifier_c IN_param_name("IN"); |
12007 symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); |
12008 /* Get the value from a foo(<param_name> = <param_value>) style call */ |
12008 /* Get the value from a foo(<param_name> = <param_value>) style call */ |
12009 symbol_c *IN_param_value = &this->default_variable_name; |
12009 symbol_c *IN_param_value = &this->default_variable_name; |
12010 |
12010 |
12011 symbol_c *IN_type_symbol = param_data_type; |
12011 symbol_c *IN_type_symbol = param_data_type; |
12012 last_type_symbol = param_data_type; |
12012 last_type_symbol = param_data_type; |
12016 |
12016 |
12017 function_name = (symbol_c*)(new pragma_c("__move_")); |
12017 function_name = (symbol_c*)(new pragma_c("__move_")); |
12018 |
12018 |
12019 if (IN_type_symbol == NULL) |
12019 if (IN_type_symbol == NULL) |
12020 IN_type_symbol = last_type_symbol; |
12020 IN_type_symbol = last_type_symbol; |
12021 ADD_PARAM_LIST(&IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) |
12021 ADD_PARAM_LIST(IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) |
12022 symbol_c * return_type_symbol = &search_constant_type_c::ulint_type_name; |
12022 symbol_c * return_type_symbol = &search_constant_type_c::ulint_type_name; |
12023 function_type_prefix = return_type_symbol; |
12023 function_type_prefix = return_type_symbol; |
12024 function_type_suffix = IN_type_symbol; |
12024 function_type_suffix = IN_type_symbol; |
12025 break; |
12025 break; |
12026 |
12026 |
12039 case function_bool_to_time : |
12039 case function_bool_to_time : |
12040 { |
12040 { |
12041 symbol_c *last_type_symbol = NULL; |
12041 symbol_c *last_type_symbol = NULL; |
12042 |
12042 |
12043 { |
12043 { |
12044 identifier_c IN_param_name("IN"); |
12044 symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); |
12045 /* Get the value from a foo(<param_name> = <param_value>) style call */ |
12045 /* Get the value from a foo(<param_name> = <param_value>) style call */ |
12046 symbol_c *IN_param_value = &this->default_variable_name; |
12046 symbol_c *IN_param_value = &this->default_variable_name; |
12047 |
12047 |
12048 symbol_c *IN_type_symbol = param_data_type; |
12048 symbol_c *IN_type_symbol = param_data_type; |
12049 last_type_symbol = param_data_type; |
12049 last_type_symbol = param_data_type; |
12053 |
12053 |
12054 function_name = (symbol_c*)(new pragma_c("__int_to_time")); |
12054 function_name = (symbol_c*)(new pragma_c("__int_to_time")); |
12055 |
12055 |
12056 if (IN_type_symbol == NULL) |
12056 if (IN_type_symbol == NULL) |
12057 IN_type_symbol = last_type_symbol; |
12057 IN_type_symbol = last_type_symbol; |
12058 ADD_PARAM_LIST(&IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) |
12058 ADD_PARAM_LIST(IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) |
12059 symbol_c * return_type_symbol = &search_constant_type_c::time_type_name; |
12059 symbol_c * return_type_symbol = &search_constant_type_c::time_type_name; |
12060 function_type_prefix = return_type_symbol; |
12060 function_type_prefix = return_type_symbol; |
12061 break; |
12061 break; |
12062 |
12062 |
12063 } |
12063 } |
12075 case function_bool_to_int : |
12075 case function_bool_to_int : |
12076 { |
12076 { |
12077 symbol_c *last_type_symbol = NULL; |
12077 symbol_c *last_type_symbol = NULL; |
12078 |
12078 |
12079 { |
12079 { |
12080 identifier_c IN_param_name("IN"); |
12080 symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); |
12081 /* Get the value from a foo(<param_name> = <param_value>) style call */ |
12081 /* Get the value from a foo(<param_name> = <param_value>) style call */ |
12082 symbol_c *IN_param_value = &this->default_variable_name; |
12082 symbol_c *IN_param_value = &this->default_variable_name; |
12083 |
12083 |
12084 symbol_c *IN_type_symbol = param_data_type; |
12084 symbol_c *IN_type_symbol = param_data_type; |
12085 last_type_symbol = param_data_type; |
12085 last_type_symbol = param_data_type; |
12089 |
12089 |
12090 function_name = (symbol_c*)(new pragma_c("__move_")); |
12090 function_name = (symbol_c*)(new pragma_c("__move_")); |
12091 |
12091 |
12092 if (IN_type_symbol == NULL) |
12092 if (IN_type_symbol == NULL) |
12093 IN_type_symbol = last_type_symbol; |
12093 IN_type_symbol = last_type_symbol; |
12094 ADD_PARAM_LIST(&IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) |
12094 ADD_PARAM_LIST(IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) |
12095 symbol_c * return_type_symbol = &search_constant_type_c::int_type_name; |
12095 symbol_c * return_type_symbol = &search_constant_type_c::int_type_name; |
12096 function_type_prefix = return_type_symbol; |
12096 function_type_prefix = return_type_symbol; |
12097 function_type_suffix = IN_type_symbol; |
12097 function_type_suffix = IN_type_symbol; |
12098 break; |
12098 break; |
12099 |
12099 |
12112 case function_time_to_real : |
12112 case function_time_to_real : |
12113 { |
12113 { |
12114 symbol_c *last_type_symbol = NULL; |
12114 symbol_c *last_type_symbol = NULL; |
12115 |
12115 |
12116 { |
12116 { |
12117 identifier_c IN_param_name("IN"); |
12117 symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); |
12118 /* Get the value from a foo(<param_name> = <param_value>) style call */ |
12118 /* Get the value from a foo(<param_name> = <param_value>) style call */ |
12119 symbol_c *IN_param_value = &this->default_variable_name; |
12119 symbol_c *IN_param_value = &this->default_variable_name; |
12120 |
12120 |
12121 symbol_c *IN_type_symbol = param_data_type; |
12121 symbol_c *IN_type_symbol = param_data_type; |
12122 last_type_symbol = param_data_type; |
12122 last_type_symbol = param_data_type; |
12126 |
12126 |
12127 function_name = (symbol_c*)(new pragma_c("__time_to_real")); |
12127 function_name = (symbol_c*)(new pragma_c("__time_to_real")); |
12128 |
12128 |
12129 if (IN_type_symbol == NULL) |
12129 if (IN_type_symbol == NULL) |
12130 IN_type_symbol = last_type_symbol; |
12130 IN_type_symbol = last_type_symbol; |
12131 ADD_PARAM_LIST(&IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) |
12131 ADD_PARAM_LIST(IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) |
12132 symbol_c * return_type_symbol = &search_constant_type_c::real_type_name; |
12132 symbol_c * return_type_symbol = &search_constant_type_c::real_type_name; |
12133 function_type_prefix = return_type_symbol; |
12133 function_type_prefix = return_type_symbol; |
12134 break; |
12134 break; |
12135 |
12135 |
12136 } |
12136 } |
12148 case function_time_to_sint : |
12148 case function_time_to_sint : |
12149 { |
12149 { |
12150 symbol_c *last_type_symbol = NULL; |
12150 symbol_c *last_type_symbol = NULL; |
12151 |
12151 |
12152 { |
12152 { |
12153 identifier_c IN_param_name("IN"); |
12153 symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); |
12154 /* Get the value from a foo(<param_name> = <param_value>) style call */ |
12154 /* Get the value from a foo(<param_name> = <param_value>) style call */ |
12155 symbol_c *IN_param_value = &this->default_variable_name; |
12155 symbol_c *IN_param_value = &this->default_variable_name; |
12156 |
12156 |
12157 symbol_c *IN_type_symbol = param_data_type; |
12157 symbol_c *IN_type_symbol = param_data_type; |
12158 last_type_symbol = param_data_type; |
12158 last_type_symbol = param_data_type; |
12162 |
12162 |
12163 function_name = (symbol_c*)(new pragma_c("__time_to_int")); |
12163 function_name = (symbol_c*)(new pragma_c("__time_to_int")); |
12164 |
12164 |
12165 if (IN_type_symbol == NULL) |
12165 if (IN_type_symbol == NULL) |
12166 IN_type_symbol = last_type_symbol; |
12166 IN_type_symbol = last_type_symbol; |
12167 ADD_PARAM_LIST(&IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) |
12167 ADD_PARAM_LIST(IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) |
12168 symbol_c * return_type_symbol = &search_constant_type_c::sint_type_name; |
12168 symbol_c * return_type_symbol = &search_constant_type_c::sint_type_name; |
12169 function_type_prefix = return_type_symbol; |
12169 function_type_prefix = return_type_symbol; |
12170 break; |
12170 break; |
12171 |
12171 |
12172 } |
12172 } |
12184 case function_time_to_lint : |
12184 case function_time_to_lint : |
12185 { |
12185 { |
12186 symbol_c *last_type_symbol = NULL; |
12186 symbol_c *last_type_symbol = NULL; |
12187 |
12187 |
12188 { |
12188 { |
12189 identifier_c IN_param_name("IN"); |
12189 symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); |
12190 /* Get the value from a foo(<param_name> = <param_value>) style call */ |
12190 /* Get the value from a foo(<param_name> = <param_value>) style call */ |
12191 symbol_c *IN_param_value = &this->default_variable_name; |
12191 symbol_c *IN_param_value = &this->default_variable_name; |
12192 |
12192 |
12193 symbol_c *IN_type_symbol = param_data_type; |
12193 symbol_c *IN_type_symbol = param_data_type; |
12194 last_type_symbol = param_data_type; |
12194 last_type_symbol = param_data_type; |
12198 |
12198 |
12199 function_name = (symbol_c*)(new pragma_c("__time_to_int")); |
12199 function_name = (symbol_c*)(new pragma_c("__time_to_int")); |
12200 |
12200 |
12201 if (IN_type_symbol == NULL) |
12201 if (IN_type_symbol == NULL) |
12202 IN_type_symbol = last_type_symbol; |
12202 IN_type_symbol = last_type_symbol; |
12203 ADD_PARAM_LIST(&IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) |
12203 ADD_PARAM_LIST(IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) |
12204 symbol_c * return_type_symbol = &search_constant_type_c::lint_type_name; |
12204 symbol_c * return_type_symbol = &search_constant_type_c::lint_type_name; |
12205 function_type_prefix = return_type_symbol; |
12205 function_type_prefix = return_type_symbol; |
12206 break; |
12206 break; |
12207 |
12207 |
12208 } |
12208 } |
12220 case function_time_to_dint : |
12220 case function_time_to_dint : |
12221 { |
12221 { |
12222 symbol_c *last_type_symbol = NULL; |
12222 symbol_c *last_type_symbol = NULL; |
12223 |
12223 |
12224 { |
12224 { |
12225 identifier_c IN_param_name("IN"); |
12225 symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); |
12226 /* Get the value from a foo(<param_name> = <param_value>) style call */ |
12226 /* Get the value from a foo(<param_name> = <param_value>) style call */ |
12227 symbol_c *IN_param_value = &this->default_variable_name; |
12227 symbol_c *IN_param_value = &this->default_variable_name; |
12228 |
12228 |
12229 symbol_c *IN_type_symbol = param_data_type; |
12229 symbol_c *IN_type_symbol = param_data_type; |
12230 last_type_symbol = param_data_type; |
12230 last_type_symbol = param_data_type; |
12234 |
12234 |
12235 function_name = (symbol_c*)(new pragma_c("__time_to_int")); |
12235 function_name = (symbol_c*)(new pragma_c("__time_to_int")); |
12236 |
12236 |
12237 if (IN_type_symbol == NULL) |
12237 if (IN_type_symbol == NULL) |
12238 IN_type_symbol = last_type_symbol; |
12238 IN_type_symbol = last_type_symbol; |
12239 ADD_PARAM_LIST(&IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) |
12239 ADD_PARAM_LIST(IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) |
12240 symbol_c * return_type_symbol = &search_constant_type_c::dint_type_name; |
12240 symbol_c * return_type_symbol = &search_constant_type_c::dint_type_name; |
12241 function_type_prefix = return_type_symbol; |
12241 function_type_prefix = return_type_symbol; |
12242 break; |
12242 break; |
12243 |
12243 |
12244 } |
12244 } |
12256 case function_time_to_dword : |
12256 case function_time_to_dword : |
12257 { |
12257 { |
12258 symbol_c *last_type_symbol = NULL; |
12258 symbol_c *last_type_symbol = NULL; |
12259 |
12259 |
12260 { |
12260 { |
12261 identifier_c IN_param_name("IN"); |
12261 symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); |
12262 /* Get the value from a foo(<param_name> = <param_value>) style call */ |
12262 /* Get the value from a foo(<param_name> = <param_value>) style call */ |
12263 symbol_c *IN_param_value = &this->default_variable_name; |
12263 symbol_c *IN_param_value = &this->default_variable_name; |
12264 |
12264 |
12265 symbol_c *IN_type_symbol = param_data_type; |
12265 symbol_c *IN_type_symbol = param_data_type; |
12266 last_type_symbol = param_data_type; |
12266 last_type_symbol = param_data_type; |
12270 |
12270 |
12271 function_name = (symbol_c*)(new pragma_c("__time_to_int")); |
12271 function_name = (symbol_c*)(new pragma_c("__time_to_int")); |
12272 |
12272 |
12273 if (IN_type_symbol == NULL) |
12273 if (IN_type_symbol == NULL) |
12274 IN_type_symbol = last_type_symbol; |
12274 IN_type_symbol = last_type_symbol; |
12275 ADD_PARAM_LIST(&IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) |
12275 ADD_PARAM_LIST(IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) |
12276 symbol_c * return_type_symbol = &search_constant_type_c::dword_type_name; |
12276 symbol_c * return_type_symbol = &search_constant_type_c::dword_type_name; |
12277 function_type_prefix = return_type_symbol; |
12277 function_type_prefix = return_type_symbol; |
12278 break; |
12278 break; |
12279 |
12279 |
12280 } |
12280 } |
12292 case function_time_to_udint : |
12292 case function_time_to_udint : |
12293 { |
12293 { |
12294 symbol_c *last_type_symbol = NULL; |
12294 symbol_c *last_type_symbol = NULL; |
12295 |
12295 |
12296 { |
12296 { |
12297 identifier_c IN_param_name("IN"); |
12297 symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); |
12298 /* Get the value from a foo(<param_name> = <param_value>) style call */ |
12298 /* Get the value from a foo(<param_name> = <param_value>) style call */ |
12299 symbol_c *IN_param_value = &this->default_variable_name; |
12299 symbol_c *IN_param_value = &this->default_variable_name; |
12300 |
12300 |
12301 symbol_c *IN_type_symbol = param_data_type; |
12301 symbol_c *IN_type_symbol = param_data_type; |
12302 last_type_symbol = param_data_type; |
12302 last_type_symbol = param_data_type; |
12306 |
12306 |
12307 function_name = (symbol_c*)(new pragma_c("__time_to_int")); |
12307 function_name = (symbol_c*)(new pragma_c("__time_to_int")); |
12308 |
12308 |
12309 if (IN_type_symbol == NULL) |
12309 if (IN_type_symbol == NULL) |
12310 IN_type_symbol = last_type_symbol; |
12310 IN_type_symbol = last_type_symbol; |
12311 ADD_PARAM_LIST(&IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) |
12311 ADD_PARAM_LIST(IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) |
12312 symbol_c * return_type_symbol = &search_constant_type_c::udint_type_name; |
12312 symbol_c * return_type_symbol = &search_constant_type_c::udint_type_name; |
12313 function_type_prefix = return_type_symbol; |
12313 function_type_prefix = return_type_symbol; |
12314 break; |
12314 break; |
12315 |
12315 |
12316 } |
12316 } |
12328 case function_time_to_word : |
12328 case function_time_to_word : |
12329 { |
12329 { |
12330 symbol_c *last_type_symbol = NULL; |
12330 symbol_c *last_type_symbol = NULL; |
12331 |
12331 |
12332 { |
12332 { |
12333 identifier_c IN_param_name("IN"); |
12333 symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); |
12334 /* Get the value from a foo(<param_name> = <param_value>) style call */ |
12334 /* Get the value from a foo(<param_name> = <param_value>) style call */ |
12335 symbol_c *IN_param_value = &this->default_variable_name; |
12335 symbol_c *IN_param_value = &this->default_variable_name; |
12336 |
12336 |
12337 symbol_c *IN_type_symbol = param_data_type; |
12337 symbol_c *IN_type_symbol = param_data_type; |
12338 last_type_symbol = param_data_type; |
12338 last_type_symbol = param_data_type; |
12342 |
12342 |
12343 function_name = (symbol_c*)(new pragma_c("__time_to_int")); |
12343 function_name = (symbol_c*)(new pragma_c("__time_to_int")); |
12344 |
12344 |
12345 if (IN_type_symbol == NULL) |
12345 if (IN_type_symbol == NULL) |
12346 IN_type_symbol = last_type_symbol; |
12346 IN_type_symbol = last_type_symbol; |
12347 ADD_PARAM_LIST(&IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) |
12347 ADD_PARAM_LIST(IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) |
12348 symbol_c * return_type_symbol = &search_constant_type_c::word_type_name; |
12348 symbol_c * return_type_symbol = &search_constant_type_c::word_type_name; |
12349 function_type_prefix = return_type_symbol; |
12349 function_type_prefix = return_type_symbol; |
12350 break; |
12350 break; |
12351 |
12351 |
12352 } |
12352 } |
12364 case function_time_to_string : |
12364 case function_time_to_string : |
12365 { |
12365 { |
12366 symbol_c *last_type_symbol = NULL; |
12366 symbol_c *last_type_symbol = NULL; |
12367 |
12367 |
12368 { |
12368 { |
12369 identifier_c IN_param_name("IN"); |
12369 symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); |
12370 /* Get the value from a foo(<param_name> = <param_value>) style call */ |
12370 /* Get the value from a foo(<param_name> = <param_value>) style call */ |
12371 symbol_c *IN_param_value = &this->default_variable_name; |
12371 symbol_c *IN_param_value = &this->default_variable_name; |
12372 |
12372 |
12373 symbol_c *IN_type_symbol = param_data_type; |
12373 symbol_c *IN_type_symbol = param_data_type; |
12374 last_type_symbol = param_data_type; |
12374 last_type_symbol = param_data_type; |
12378 |
12378 |
12379 function_name = (symbol_c*)(new pragma_c("__time_to_string")); |
12379 function_name = (symbol_c*)(new pragma_c("__time_to_string")); |
12380 |
12380 |
12381 if (IN_type_symbol == NULL) |
12381 if (IN_type_symbol == NULL) |
12382 IN_type_symbol = last_type_symbol; |
12382 IN_type_symbol = last_type_symbol; |
12383 ADD_PARAM_LIST(&IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) |
12383 ADD_PARAM_LIST(IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) |
12384 symbol_c * return_type_symbol = &search_constant_type_c::string_type_name; |
12384 symbol_c * return_type_symbol = &search_constant_type_c::string_type_name; |
12385 function_type_prefix = return_type_symbol; |
12385 function_type_prefix = return_type_symbol; |
12386 break; |
12386 break; |
12387 |
12387 |
12388 } |
12388 } |
12400 case function_time_to_lword : |
12400 case function_time_to_lword : |
12401 { |
12401 { |
12402 symbol_c *last_type_symbol = NULL; |
12402 symbol_c *last_type_symbol = NULL; |
12403 |
12403 |
12404 { |
12404 { |
12405 identifier_c IN_param_name("IN"); |
12405 symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); |
12406 /* Get the value from a foo(<param_name> = <param_value>) style call */ |
12406 /* Get the value from a foo(<param_name> = <param_value>) style call */ |
12407 symbol_c *IN_param_value = &this->default_variable_name; |
12407 symbol_c *IN_param_value = &this->default_variable_name; |
12408 |
12408 |
12409 symbol_c *IN_type_symbol = param_data_type; |
12409 symbol_c *IN_type_symbol = param_data_type; |
12410 last_type_symbol = param_data_type; |
12410 last_type_symbol = param_data_type; |
12414 |
12414 |
12415 function_name = (symbol_c*)(new pragma_c("__time_to_int")); |
12415 function_name = (symbol_c*)(new pragma_c("__time_to_int")); |
12416 |
12416 |
12417 if (IN_type_symbol == NULL) |
12417 if (IN_type_symbol == NULL) |
12418 IN_type_symbol = last_type_symbol; |
12418 IN_type_symbol = last_type_symbol; |
12419 ADD_PARAM_LIST(&IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) |
12419 ADD_PARAM_LIST(IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) |
12420 symbol_c * return_type_symbol = &search_constant_type_c::lword_type_name; |
12420 symbol_c * return_type_symbol = &search_constant_type_c::lword_type_name; |
12421 function_type_prefix = return_type_symbol; |
12421 function_type_prefix = return_type_symbol; |
12422 break; |
12422 break; |
12423 |
12423 |
12424 } |
12424 } |
12436 case function_time_to_uint : |
12436 case function_time_to_uint : |
12437 { |
12437 { |
12438 symbol_c *last_type_symbol = NULL; |
12438 symbol_c *last_type_symbol = NULL; |
12439 |
12439 |
12440 { |
12440 { |
12441 identifier_c IN_param_name("IN"); |
12441 symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); |
12442 /* Get the value from a foo(<param_name> = <param_value>) style call */ |
12442 /* Get the value from a foo(<param_name> = <param_value>) style call */ |
12443 symbol_c *IN_param_value = &this->default_variable_name; |
12443 symbol_c *IN_param_value = &this->default_variable_name; |
12444 |
12444 |
12445 symbol_c *IN_type_symbol = param_data_type; |
12445 symbol_c *IN_type_symbol = param_data_type; |
12446 last_type_symbol = param_data_type; |
12446 last_type_symbol = param_data_type; |
12450 |
12450 |
12451 function_name = (symbol_c*)(new pragma_c("__time_to_int")); |
12451 function_name = (symbol_c*)(new pragma_c("__time_to_int")); |
12452 |
12452 |
12453 if (IN_type_symbol == NULL) |
12453 if (IN_type_symbol == NULL) |
12454 IN_type_symbol = last_type_symbol; |
12454 IN_type_symbol = last_type_symbol; |
12455 ADD_PARAM_LIST(&IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) |
12455 ADD_PARAM_LIST(IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) |
12456 symbol_c * return_type_symbol = &search_constant_type_c::uint_type_name; |
12456 symbol_c * return_type_symbol = &search_constant_type_c::uint_type_name; |
12457 function_type_prefix = return_type_symbol; |
12457 function_type_prefix = return_type_symbol; |
12458 break; |
12458 break; |
12459 |
12459 |
12460 } |
12460 } |
12472 case function_time_to_lreal : |
12472 case function_time_to_lreal : |
12473 { |
12473 { |
12474 symbol_c *last_type_symbol = NULL; |
12474 symbol_c *last_type_symbol = NULL; |
12475 |
12475 |
12476 { |
12476 { |
12477 identifier_c IN_param_name("IN"); |
12477 symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); |
12478 /* Get the value from a foo(<param_name> = <param_value>) style call */ |
12478 /* Get the value from a foo(<param_name> = <param_value>) style call */ |
12479 symbol_c *IN_param_value = &this->default_variable_name; |
12479 symbol_c *IN_param_value = &this->default_variable_name; |
12480 |
12480 |
12481 symbol_c *IN_type_symbol = param_data_type; |
12481 symbol_c *IN_type_symbol = param_data_type; |
12482 last_type_symbol = param_data_type; |
12482 last_type_symbol = param_data_type; |
12486 |
12486 |
12487 function_name = (symbol_c*)(new pragma_c("__time_to_real")); |
12487 function_name = (symbol_c*)(new pragma_c("__time_to_real")); |
12488 |
12488 |
12489 if (IN_type_symbol == NULL) |
12489 if (IN_type_symbol == NULL) |
12490 IN_type_symbol = last_type_symbol; |
12490 IN_type_symbol = last_type_symbol; |
12491 ADD_PARAM_LIST(&IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) |
12491 ADD_PARAM_LIST(IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) |
12492 symbol_c * return_type_symbol = &search_constant_type_c::lreal_type_name; |
12492 symbol_c * return_type_symbol = &search_constant_type_c::lreal_type_name; |
12493 function_type_prefix = return_type_symbol; |
12493 function_type_prefix = return_type_symbol; |
12494 break; |
12494 break; |
12495 |
12495 |
12496 } |
12496 } |
12508 case function_time_to_byte : |
12508 case function_time_to_byte : |
12509 { |
12509 { |
12510 symbol_c *last_type_symbol = NULL; |
12510 symbol_c *last_type_symbol = NULL; |
12511 |
12511 |
12512 { |
12512 { |
12513 identifier_c IN_param_name("IN"); |
12513 symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); |
12514 /* Get the value from a foo(<param_name> = <param_value>) style call */ |
12514 /* Get the value from a foo(<param_name> = <param_value>) style call */ |
12515 symbol_c *IN_param_value = &this->default_variable_name; |
12515 symbol_c *IN_param_value = &this->default_variable_name; |
12516 |
12516 |
12517 symbol_c *IN_type_symbol = param_data_type; |
12517 symbol_c *IN_type_symbol = param_data_type; |
12518 last_type_symbol = param_data_type; |
12518 last_type_symbol = param_data_type; |
12522 |
12522 |
12523 function_name = (symbol_c*)(new pragma_c("__time_to_int")); |
12523 function_name = (symbol_c*)(new pragma_c("__time_to_int")); |
12524 |
12524 |
12525 if (IN_type_symbol == NULL) |
12525 if (IN_type_symbol == NULL) |
12526 IN_type_symbol = last_type_symbol; |
12526 IN_type_symbol = last_type_symbol; |
12527 ADD_PARAM_LIST(&IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) |
12527 ADD_PARAM_LIST(IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) |
12528 symbol_c * return_type_symbol = &search_constant_type_c::byte_type_name; |
12528 symbol_c * return_type_symbol = &search_constant_type_c::byte_type_name; |
12529 function_type_prefix = return_type_symbol; |
12529 function_type_prefix = return_type_symbol; |
12530 break; |
12530 break; |
12531 |
12531 |
12532 } |
12532 } |
12544 case function_time_to_usint : |
12544 case function_time_to_usint : |
12545 { |
12545 { |
12546 symbol_c *last_type_symbol = NULL; |
12546 symbol_c *last_type_symbol = NULL; |
12547 |
12547 |
12548 { |
12548 { |
12549 identifier_c IN_param_name("IN"); |
12549 symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); |
12550 /* Get the value from a foo(<param_name> = <param_value>) style call */ |
12550 /* Get the value from a foo(<param_name> = <param_value>) style call */ |
12551 symbol_c *IN_param_value = &this->default_variable_name; |
12551 symbol_c *IN_param_value = &this->default_variable_name; |
12552 |
12552 |
12553 symbol_c *IN_type_symbol = param_data_type; |
12553 symbol_c *IN_type_symbol = param_data_type; |
12554 last_type_symbol = param_data_type; |
12554 last_type_symbol = param_data_type; |
12558 |
12558 |
12559 function_name = (symbol_c*)(new pragma_c("__time_to_int")); |
12559 function_name = (symbol_c*)(new pragma_c("__time_to_int")); |
12560 |
12560 |
12561 if (IN_type_symbol == NULL) |
12561 if (IN_type_symbol == NULL) |
12562 IN_type_symbol = last_type_symbol; |
12562 IN_type_symbol = last_type_symbol; |
12563 ADD_PARAM_LIST(&IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) |
12563 ADD_PARAM_LIST(IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) |
12564 symbol_c * return_type_symbol = &search_constant_type_c::usint_type_name; |
12564 symbol_c * return_type_symbol = &search_constant_type_c::usint_type_name; |
12565 function_type_prefix = return_type_symbol; |
12565 function_type_prefix = return_type_symbol; |
12566 break; |
12566 break; |
12567 |
12567 |
12568 } |
12568 } |
12580 case function_time_to_ulint : |
12580 case function_time_to_ulint : |
12581 { |
12581 { |
12582 symbol_c *last_type_symbol = NULL; |
12582 symbol_c *last_type_symbol = NULL; |
12583 |
12583 |
12584 { |
12584 { |
12585 identifier_c IN_param_name("IN"); |
12585 symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); |
12586 /* Get the value from a foo(<param_name> = <param_value>) style call */ |
12586 /* Get the value from a foo(<param_name> = <param_value>) style call */ |
12587 symbol_c *IN_param_value = &this->default_variable_name; |
12587 symbol_c *IN_param_value = &this->default_variable_name; |
12588 |
12588 |
12589 symbol_c *IN_type_symbol = param_data_type; |
12589 symbol_c *IN_type_symbol = param_data_type; |
12590 last_type_symbol = param_data_type; |
12590 last_type_symbol = param_data_type; |
12594 |
12594 |
12595 function_name = (symbol_c*)(new pragma_c("__time_to_int")); |
12595 function_name = (symbol_c*)(new pragma_c("__time_to_int")); |
12596 |
12596 |
12597 if (IN_type_symbol == NULL) |
12597 if (IN_type_symbol == NULL) |
12598 IN_type_symbol = last_type_symbol; |
12598 IN_type_symbol = last_type_symbol; |
12599 ADD_PARAM_LIST(&IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) |
12599 ADD_PARAM_LIST(IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) |
12600 symbol_c * return_type_symbol = &search_constant_type_c::ulint_type_name; |
12600 symbol_c * return_type_symbol = &search_constant_type_c::ulint_type_name; |
12601 function_type_prefix = return_type_symbol; |
12601 function_type_prefix = return_type_symbol; |
12602 break; |
12602 break; |
12603 |
12603 |
12604 } |
12604 } |
12616 case function_time_to_int : |
12616 case function_time_to_int : |
12617 { |
12617 { |
12618 symbol_c *last_type_symbol = NULL; |
12618 symbol_c *last_type_symbol = NULL; |
12619 |
12619 |
12620 { |
12620 { |
12621 identifier_c IN_param_name("IN"); |
12621 symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); |
12622 /* Get the value from a foo(<param_name> = <param_value>) style call */ |
12622 /* Get the value from a foo(<param_name> = <param_value>) style call */ |
12623 symbol_c *IN_param_value = &this->default_variable_name; |
12623 symbol_c *IN_param_value = &this->default_variable_name; |
12624 |
12624 |
12625 symbol_c *IN_type_symbol = param_data_type; |
12625 symbol_c *IN_type_symbol = param_data_type; |
12626 last_type_symbol = param_data_type; |
12626 last_type_symbol = param_data_type; |
12630 |
12630 |
12631 function_name = (symbol_c*)(new pragma_c("__time_to_int")); |
12631 function_name = (symbol_c*)(new pragma_c("__time_to_int")); |
12632 |
12632 |
12633 if (IN_type_symbol == NULL) |
12633 if (IN_type_symbol == NULL) |
12634 IN_type_symbol = last_type_symbol; |
12634 IN_type_symbol = last_type_symbol; |
12635 ADD_PARAM_LIST(&IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) |
12635 ADD_PARAM_LIST(IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) |
12636 symbol_c * return_type_symbol = &search_constant_type_c::int_type_name; |
12636 symbol_c * return_type_symbol = &search_constant_type_c::int_type_name; |
12637 function_type_prefix = return_type_symbol; |
12637 function_type_prefix = return_type_symbol; |
12638 break; |
12638 break; |
12639 |
12639 |
12640 } |
12640 } |
12652 case function_int_to_real : |
12652 case function_int_to_real : |
12653 { |
12653 { |
12654 symbol_c *last_type_symbol = NULL; |
12654 symbol_c *last_type_symbol = NULL; |
12655 |
12655 |
12656 { |
12656 { |
12657 identifier_c IN_param_name("IN"); |
12657 symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); |
12658 /* Get the value from a foo(<param_name> = <param_value>) style call */ |
12658 /* Get the value from a foo(<param_name> = <param_value>) style call */ |
12659 symbol_c *IN_param_value = &this->default_variable_name; |
12659 symbol_c *IN_param_value = &this->default_variable_name; |
12660 |
12660 |
12661 symbol_c *IN_type_symbol = param_data_type; |
12661 symbol_c *IN_type_symbol = param_data_type; |
12662 last_type_symbol = param_data_type; |
12662 last_type_symbol = param_data_type; |
12666 |
12666 |
12667 function_name = (symbol_c*)(new pragma_c("__move_")); |
12667 function_name = (symbol_c*)(new pragma_c("__move_")); |
12668 |
12668 |
12669 if (IN_type_symbol == NULL) |
12669 if (IN_type_symbol == NULL) |
12670 IN_type_symbol = last_type_symbol; |
12670 IN_type_symbol = last_type_symbol; |
12671 ADD_PARAM_LIST(&IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) |
12671 ADD_PARAM_LIST(IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) |
12672 symbol_c * return_type_symbol = &search_constant_type_c::real_type_name; |
12672 symbol_c * return_type_symbol = &search_constant_type_c::real_type_name; |
12673 function_type_prefix = return_type_symbol; |
12673 function_type_prefix = return_type_symbol; |
12674 function_type_suffix = IN_type_symbol; |
12674 function_type_suffix = IN_type_symbol; |
12675 break; |
12675 break; |
12676 |
12676 |
12689 case function_int_to_sint : |
12689 case function_int_to_sint : |
12690 { |
12690 { |
12691 symbol_c *last_type_symbol = NULL; |
12691 symbol_c *last_type_symbol = NULL; |
12692 |
12692 |
12693 { |
12693 { |
12694 identifier_c IN_param_name("IN"); |
12694 symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); |
12695 /* Get the value from a foo(<param_name> = <param_value>) style call */ |
12695 /* Get the value from a foo(<param_name> = <param_value>) style call */ |
12696 symbol_c *IN_param_value = &this->default_variable_name; |
12696 symbol_c *IN_param_value = &this->default_variable_name; |
12697 |
12697 |
12698 symbol_c *IN_type_symbol = param_data_type; |
12698 symbol_c *IN_type_symbol = param_data_type; |
12699 last_type_symbol = param_data_type; |
12699 last_type_symbol = param_data_type; |
12703 |
12703 |
12704 function_name = (symbol_c*)(new pragma_c("__move_")); |
12704 function_name = (symbol_c*)(new pragma_c("__move_")); |
12705 |
12705 |
12706 if (IN_type_symbol == NULL) |
12706 if (IN_type_symbol == NULL) |
12707 IN_type_symbol = last_type_symbol; |
12707 IN_type_symbol = last_type_symbol; |
12708 ADD_PARAM_LIST(&IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) |
12708 ADD_PARAM_LIST(IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) |
12709 symbol_c * return_type_symbol = &search_constant_type_c::sint_type_name; |
12709 symbol_c * return_type_symbol = &search_constant_type_c::sint_type_name; |
12710 function_type_prefix = return_type_symbol; |
12710 function_type_prefix = return_type_symbol; |
12711 function_type_suffix = IN_type_symbol; |
12711 function_type_suffix = IN_type_symbol; |
12712 break; |
12712 break; |
12713 |
12713 |
12726 case function_int_to_lint : |
12726 case function_int_to_lint : |
12727 { |
12727 { |
12728 symbol_c *last_type_symbol = NULL; |
12728 symbol_c *last_type_symbol = NULL; |
12729 |
12729 |
12730 { |
12730 { |
12731 identifier_c IN_param_name("IN"); |
12731 symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); |
12732 /* Get the value from a foo(<param_name> = <param_value>) style call */ |
12732 /* Get the value from a foo(<param_name> = <param_value>) style call */ |
12733 symbol_c *IN_param_value = &this->default_variable_name; |
12733 symbol_c *IN_param_value = &this->default_variable_name; |
12734 |
12734 |
12735 symbol_c *IN_type_symbol = param_data_type; |
12735 symbol_c *IN_type_symbol = param_data_type; |
12736 last_type_symbol = param_data_type; |
12736 last_type_symbol = param_data_type; |
12740 |
12740 |
12741 function_name = (symbol_c*)(new pragma_c("__move_")); |
12741 function_name = (symbol_c*)(new pragma_c("__move_")); |
12742 |
12742 |
12743 if (IN_type_symbol == NULL) |
12743 if (IN_type_symbol == NULL) |
12744 IN_type_symbol = last_type_symbol; |
12744 IN_type_symbol = last_type_symbol; |
12745 ADD_PARAM_LIST(&IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) |
12745 ADD_PARAM_LIST(IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) |
12746 symbol_c * return_type_symbol = &search_constant_type_c::lint_type_name; |
12746 symbol_c * return_type_symbol = &search_constant_type_c::lint_type_name; |
12747 function_type_prefix = return_type_symbol; |
12747 function_type_prefix = return_type_symbol; |
12748 function_type_suffix = IN_type_symbol; |
12748 function_type_suffix = IN_type_symbol; |
12749 break; |
12749 break; |
12750 |
12750 |
12763 case function_int_to_dint : |
12763 case function_int_to_dint : |
12764 { |
12764 { |
12765 symbol_c *last_type_symbol = NULL; |
12765 symbol_c *last_type_symbol = NULL; |
12766 |
12766 |
12767 { |
12767 { |
12768 identifier_c IN_param_name("IN"); |
12768 symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); |
12769 /* Get the value from a foo(<param_name> = <param_value>) style call */ |
12769 /* Get the value from a foo(<param_name> = <param_value>) style call */ |
12770 symbol_c *IN_param_value = &this->default_variable_name; |
12770 symbol_c *IN_param_value = &this->default_variable_name; |
12771 |
12771 |
12772 symbol_c *IN_type_symbol = param_data_type; |
12772 symbol_c *IN_type_symbol = param_data_type; |
12773 last_type_symbol = param_data_type; |
12773 last_type_symbol = param_data_type; |
12777 |
12777 |
12778 function_name = (symbol_c*)(new pragma_c("__move_")); |
12778 function_name = (symbol_c*)(new pragma_c("__move_")); |
12779 |
12779 |
12780 if (IN_type_symbol == NULL) |
12780 if (IN_type_symbol == NULL) |
12781 IN_type_symbol = last_type_symbol; |
12781 IN_type_symbol = last_type_symbol; |
12782 ADD_PARAM_LIST(&IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) |
12782 ADD_PARAM_LIST(IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) |
12783 symbol_c * return_type_symbol = &search_constant_type_c::dint_type_name; |
12783 symbol_c * return_type_symbol = &search_constant_type_c::dint_type_name; |
12784 function_type_prefix = return_type_symbol; |
12784 function_type_prefix = return_type_symbol; |
12785 function_type_suffix = IN_type_symbol; |
12785 function_type_suffix = IN_type_symbol; |
12786 break; |
12786 break; |
12787 |
12787 |
12800 case function_int_to_date : |
12800 case function_int_to_date : |
12801 { |
12801 { |
12802 symbol_c *last_type_symbol = NULL; |
12802 symbol_c *last_type_symbol = NULL; |
12803 |
12803 |
12804 { |
12804 { |
12805 identifier_c IN_param_name("IN"); |
12805 symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); |
12806 /* Get the value from a foo(<param_name> = <param_value>) style call */ |
12806 /* Get the value from a foo(<param_name> = <param_value>) style call */ |
12807 symbol_c *IN_param_value = &this->default_variable_name; |
12807 symbol_c *IN_param_value = &this->default_variable_name; |
12808 |
12808 |
12809 symbol_c *IN_type_symbol = param_data_type; |
12809 symbol_c *IN_type_symbol = param_data_type; |
12810 last_type_symbol = param_data_type; |
12810 last_type_symbol = param_data_type; |
12814 |
12814 |
12815 function_name = (symbol_c*)(new pragma_c("__int_to_time")); |
12815 function_name = (symbol_c*)(new pragma_c("__int_to_time")); |
12816 |
12816 |
12817 if (IN_type_symbol == NULL) |
12817 if (IN_type_symbol == NULL) |
12818 IN_type_symbol = last_type_symbol; |
12818 IN_type_symbol = last_type_symbol; |
12819 ADD_PARAM_LIST(&IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) |
12819 ADD_PARAM_LIST(IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) |
12820 symbol_c * return_type_symbol = &search_constant_type_c::date_type_name; |
12820 symbol_c * return_type_symbol = &search_constant_type_c::date_type_name; |
12821 function_type_prefix = return_type_symbol; |
12821 function_type_prefix = return_type_symbol; |
12822 break; |
12822 break; |
12823 |
12823 |
12824 } |
12824 } |
12836 case function_int_to_dword : |
12836 case function_int_to_dword : |
12837 { |
12837 { |
12838 symbol_c *last_type_symbol = NULL; |
12838 symbol_c *last_type_symbol = NULL; |
12839 |
12839 |
12840 { |
12840 { |
12841 identifier_c IN_param_name("IN"); |
12841 symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); |
12842 /* Get the value from a foo(<param_name> = <param_value>) style call */ |
12842 /* Get the value from a foo(<param_name> = <param_value>) style call */ |
12843 symbol_c *IN_param_value = &this->default_variable_name; |
12843 symbol_c *IN_param_value = &this->default_variable_name; |
12844 |
12844 |
12845 symbol_c *IN_type_symbol = param_data_type; |
12845 symbol_c *IN_type_symbol = param_data_type; |
12846 last_type_symbol = param_data_type; |
12846 last_type_symbol = param_data_type; |
12850 |
12850 |
12851 function_name = (symbol_c*)(new pragma_c("__move_")); |
12851 function_name = (symbol_c*)(new pragma_c("__move_")); |
12852 |
12852 |
12853 if (IN_type_symbol == NULL) |
12853 if (IN_type_symbol == NULL) |
12854 IN_type_symbol = last_type_symbol; |
12854 IN_type_symbol = last_type_symbol; |
12855 ADD_PARAM_LIST(&IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) |
12855 ADD_PARAM_LIST(IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) |
12856 symbol_c * return_type_symbol = &search_constant_type_c::dword_type_name; |
12856 symbol_c * return_type_symbol = &search_constant_type_c::dword_type_name; |
12857 function_type_prefix = return_type_symbol; |
12857 function_type_prefix = return_type_symbol; |
12858 function_type_suffix = IN_type_symbol; |
12858 function_type_suffix = IN_type_symbol; |
12859 break; |
12859 break; |
12860 |
12860 |
12873 case function_int_to_dt : |
12873 case function_int_to_dt : |
12874 { |
12874 { |
12875 symbol_c *last_type_symbol = NULL; |
12875 symbol_c *last_type_symbol = NULL; |
12876 |
12876 |
12877 { |
12877 { |
12878 identifier_c IN_param_name("IN"); |
12878 symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); |
12879 /* Get the value from a foo(<param_name> = <param_value>) style call */ |
12879 /* Get the value from a foo(<param_name> = <param_value>) style call */ |
12880 symbol_c *IN_param_value = &this->default_variable_name; |
12880 symbol_c *IN_param_value = &this->default_variable_name; |
12881 |
12881 |
12882 symbol_c *IN_type_symbol = param_data_type; |
12882 symbol_c *IN_type_symbol = param_data_type; |
12883 last_type_symbol = param_data_type; |
12883 last_type_symbol = param_data_type; |
12887 |
12887 |
12888 function_name = (symbol_c*)(new pragma_c("__int_to_time")); |
12888 function_name = (symbol_c*)(new pragma_c("__int_to_time")); |
12889 |
12889 |
12890 if (IN_type_symbol == NULL) |
12890 if (IN_type_symbol == NULL) |
12891 IN_type_symbol = last_type_symbol; |
12891 IN_type_symbol = last_type_symbol; |
12892 ADD_PARAM_LIST(&IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) |
12892 ADD_PARAM_LIST(IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) |
12893 symbol_c * return_type_symbol = &search_constant_type_c::dt_type_name; |
12893 symbol_c * return_type_symbol = &search_constant_type_c::dt_type_name; |
12894 function_type_prefix = return_type_symbol; |
12894 function_type_prefix = return_type_symbol; |
12895 break; |
12895 break; |
12896 |
12896 |
12897 } |
12897 } |
12909 case function_int_to_tod : |
12909 case function_int_to_tod : |
12910 { |
12910 { |
12911 symbol_c *last_type_symbol = NULL; |
12911 symbol_c *last_type_symbol = NULL; |
12912 |
12912 |
12913 { |
12913 { |
12914 identifier_c IN_param_name("IN"); |
12914 symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); |
12915 /* Get the value from a foo(<param_name> = <param_value>) style call */ |
12915 /* Get the value from a foo(<param_name> = <param_value>) style call */ |
12916 symbol_c *IN_param_value = &this->default_variable_name; |
12916 symbol_c *IN_param_value = &this->default_variable_name; |
12917 |
12917 |
12918 symbol_c *IN_type_symbol = param_data_type; |
12918 symbol_c *IN_type_symbol = param_data_type; |
12919 last_type_symbol = param_data_type; |
12919 last_type_symbol = param_data_type; |
12923 |
12923 |
12924 function_name = (symbol_c*)(new pragma_c("__int_to_time")); |
12924 function_name = (symbol_c*)(new pragma_c("__int_to_time")); |
12925 |
12925 |
12926 if (IN_type_symbol == NULL) |
12926 if (IN_type_symbol == NULL) |
12927 IN_type_symbol = last_type_symbol; |
12927 IN_type_symbol = last_type_symbol; |
12928 ADD_PARAM_LIST(&IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) |
12928 ADD_PARAM_LIST(IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) |
12929 symbol_c * return_type_symbol = &search_constant_type_c::tod_type_name; |
12929 symbol_c * return_type_symbol = &search_constant_type_c::tod_type_name; |
12930 function_type_prefix = return_type_symbol; |
12930 function_type_prefix = return_type_symbol; |
12931 break; |
12931 break; |
12932 |
12932 |
12933 } |
12933 } |
12945 case function_int_to_udint : |
12945 case function_int_to_udint : |
12946 { |
12946 { |
12947 symbol_c *last_type_symbol = NULL; |
12947 symbol_c *last_type_symbol = NULL; |
12948 |
12948 |
12949 { |
12949 { |
12950 identifier_c IN_param_name("IN"); |
12950 symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); |
12951 /* Get the value from a foo(<param_name> = <param_value>) style call */ |
12951 /* Get the value from a foo(<param_name> = <param_value>) style call */ |
12952 symbol_c *IN_param_value = &this->default_variable_name; |
12952 symbol_c *IN_param_value = &this->default_variable_name; |
12953 |
12953 |
12954 symbol_c *IN_type_symbol = param_data_type; |
12954 symbol_c *IN_type_symbol = param_data_type; |
12955 last_type_symbol = param_data_type; |
12955 last_type_symbol = param_data_type; |
12959 |
12959 |
12960 function_name = (symbol_c*)(new pragma_c("__move_")); |
12960 function_name = (symbol_c*)(new pragma_c("__move_")); |
12961 |
12961 |
12962 if (IN_type_symbol == NULL) |
12962 if (IN_type_symbol == NULL) |
12963 IN_type_symbol = last_type_symbol; |
12963 IN_type_symbol = last_type_symbol; |
12964 ADD_PARAM_LIST(&IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) |
12964 ADD_PARAM_LIST(IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) |
12965 symbol_c * return_type_symbol = &search_constant_type_c::udint_type_name; |
12965 symbol_c * return_type_symbol = &search_constant_type_c::udint_type_name; |
12966 function_type_prefix = return_type_symbol; |
12966 function_type_prefix = return_type_symbol; |
12967 function_type_suffix = IN_type_symbol; |
12967 function_type_suffix = IN_type_symbol; |
12968 break; |
12968 break; |
12969 |
12969 |
12982 case function_int_to_word : |
12982 case function_int_to_word : |
12983 { |
12983 { |
12984 symbol_c *last_type_symbol = NULL; |
12984 symbol_c *last_type_symbol = NULL; |
12985 |
12985 |
12986 { |
12986 { |
12987 identifier_c IN_param_name("IN"); |
12987 symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); |
12988 /* Get the value from a foo(<param_name> = <param_value>) style call */ |
12988 /* Get the value from a foo(<param_name> = <param_value>) style call */ |
12989 symbol_c *IN_param_value = &this->default_variable_name; |
12989 symbol_c *IN_param_value = &this->default_variable_name; |
12990 |
12990 |
12991 symbol_c *IN_type_symbol = param_data_type; |
12991 symbol_c *IN_type_symbol = param_data_type; |
12992 last_type_symbol = param_data_type; |
12992 last_type_symbol = param_data_type; |
12996 |
12996 |
12997 function_name = (symbol_c*)(new pragma_c("__move_")); |
12997 function_name = (symbol_c*)(new pragma_c("__move_")); |
12998 |
12998 |
12999 if (IN_type_symbol == NULL) |
12999 if (IN_type_symbol == NULL) |
13000 IN_type_symbol = last_type_symbol; |
13000 IN_type_symbol = last_type_symbol; |
13001 ADD_PARAM_LIST(&IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) |
13001 ADD_PARAM_LIST(IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) |
13002 symbol_c * return_type_symbol = &search_constant_type_c::word_type_name; |
13002 symbol_c * return_type_symbol = &search_constant_type_c::word_type_name; |
13003 function_type_prefix = return_type_symbol; |
13003 function_type_prefix = return_type_symbol; |
13004 function_type_suffix = IN_type_symbol; |
13004 function_type_suffix = IN_type_symbol; |
13005 break; |
13005 break; |
13006 |
13006 |
13019 case function_int_to_string : |
13019 case function_int_to_string : |
13020 { |
13020 { |
13021 symbol_c *last_type_symbol = NULL; |
13021 symbol_c *last_type_symbol = NULL; |
13022 |
13022 |
13023 { |
13023 { |
13024 identifier_c IN_param_name("IN"); |
13024 symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); |
13025 /* Get the value from a foo(<param_name> = <param_value>) style call */ |
13025 /* Get the value from a foo(<param_name> = <param_value>) style call */ |
13026 symbol_c *IN_param_value = &this->default_variable_name; |
13026 symbol_c *IN_param_value = &this->default_variable_name; |
13027 |
13027 |
13028 symbol_c *IN_type_symbol = param_data_type; |
13028 symbol_c *IN_type_symbol = param_data_type; |
13029 last_type_symbol = param_data_type; |
13029 last_type_symbol = param_data_type; |
13033 |
13033 |
13034 function_name = (symbol_c*)(new pragma_c("__sint_to_string")); |
13034 function_name = (symbol_c*)(new pragma_c("__sint_to_string")); |
13035 |
13035 |
13036 if (IN_type_symbol == NULL) |
13036 if (IN_type_symbol == NULL) |
13037 IN_type_symbol = last_type_symbol; |
13037 IN_type_symbol = last_type_symbol; |
13038 ADD_PARAM_LIST(&IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) |
13038 ADD_PARAM_LIST(IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) |
13039 symbol_c * return_type_symbol = &search_constant_type_c::string_type_name; |
13039 symbol_c * return_type_symbol = &search_constant_type_c::string_type_name; |
13040 function_type_prefix = return_type_symbol; |
13040 function_type_prefix = return_type_symbol; |
13041 break; |
13041 break; |
13042 |
13042 |
13043 } |
13043 } |
13055 case function_int_to_lword : |
13055 case function_int_to_lword : |
13056 { |
13056 { |
13057 symbol_c *last_type_symbol = NULL; |
13057 symbol_c *last_type_symbol = NULL; |
13058 |
13058 |
13059 { |
13059 { |
13060 identifier_c IN_param_name("IN"); |
13060 symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); |
13061 /* Get the value from a foo(<param_name> = <param_value>) style call */ |
13061 /* Get the value from a foo(<param_name> = <param_value>) style call */ |
13062 symbol_c *IN_param_value = &this->default_variable_name; |
13062 symbol_c *IN_param_value = &this->default_variable_name; |
13063 |
13063 |
13064 symbol_c *IN_type_symbol = param_data_type; |
13064 symbol_c *IN_type_symbol = param_data_type; |
13065 last_type_symbol = param_data_type; |
13065 last_type_symbol = param_data_type; |
13069 |
13069 |
13070 function_name = (symbol_c*)(new pragma_c("__move_")); |
13070 function_name = (symbol_c*)(new pragma_c("__move_")); |
13071 |
13071 |
13072 if (IN_type_symbol == NULL) |
13072 if (IN_type_symbol == NULL) |
13073 IN_type_symbol = last_type_symbol; |
13073 IN_type_symbol = last_type_symbol; |
13074 ADD_PARAM_LIST(&IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) |
13074 ADD_PARAM_LIST(IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) |
13075 symbol_c * return_type_symbol = &search_constant_type_c::lword_type_name; |
13075 symbol_c * return_type_symbol = &search_constant_type_c::lword_type_name; |
13076 function_type_prefix = return_type_symbol; |
13076 function_type_prefix = return_type_symbol; |
13077 function_type_suffix = IN_type_symbol; |
13077 function_type_suffix = IN_type_symbol; |
13078 break; |
13078 break; |
13079 |
13079 |
13092 case function_int_to_uint : |
13092 case function_int_to_uint : |
13093 { |
13093 { |
13094 symbol_c *last_type_symbol = NULL; |
13094 symbol_c *last_type_symbol = NULL; |
13095 |
13095 |
13096 { |
13096 { |
13097 identifier_c IN_param_name("IN"); |
13097 symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); |
13098 /* Get the value from a foo(<param_name> = <param_value>) style call */ |
13098 /* Get the value from a foo(<param_name> = <param_value>) style call */ |
13099 symbol_c *IN_param_value = &this->default_variable_name; |
13099 symbol_c *IN_param_value = &this->default_variable_name; |
13100 |
13100 |
13101 symbol_c *IN_type_symbol = param_data_type; |
13101 symbol_c *IN_type_symbol = param_data_type; |
13102 last_type_symbol = param_data_type; |
13102 last_type_symbol = param_data_type; |
13106 |
13106 |
13107 function_name = (symbol_c*)(new pragma_c("__move_")); |
13107 function_name = (symbol_c*)(new pragma_c("__move_")); |
13108 |
13108 |
13109 if (IN_type_symbol == NULL) |
13109 if (IN_type_symbol == NULL) |
13110 IN_type_symbol = last_type_symbol; |
13110 IN_type_symbol = last_type_symbol; |
13111 ADD_PARAM_LIST(&IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) |
13111 ADD_PARAM_LIST(IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) |
13112 symbol_c * return_type_symbol = &search_constant_type_c::uint_type_name; |
13112 symbol_c * return_type_symbol = &search_constant_type_c::uint_type_name; |
13113 function_type_prefix = return_type_symbol; |
13113 function_type_prefix = return_type_symbol; |
13114 function_type_suffix = IN_type_symbol; |
13114 function_type_suffix = IN_type_symbol; |
13115 break; |
13115 break; |
13116 |
13116 |
13129 case function_int_to_lreal : |
13129 case function_int_to_lreal : |
13130 { |
13130 { |
13131 symbol_c *last_type_symbol = NULL; |
13131 symbol_c *last_type_symbol = NULL; |
13132 |
13132 |
13133 { |
13133 { |
13134 identifier_c IN_param_name("IN"); |
13134 symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); |
13135 /* Get the value from a foo(<param_name> = <param_value>) style call */ |
13135 /* Get the value from a foo(<param_name> = <param_value>) style call */ |
13136 symbol_c *IN_param_value = &this->default_variable_name; |
13136 symbol_c *IN_param_value = &this->default_variable_name; |
13137 |
13137 |
13138 symbol_c *IN_type_symbol = param_data_type; |
13138 symbol_c *IN_type_symbol = param_data_type; |
13139 last_type_symbol = param_data_type; |
13139 last_type_symbol = param_data_type; |
13143 |
13143 |
13144 function_name = (symbol_c*)(new pragma_c("__move_")); |
13144 function_name = (symbol_c*)(new pragma_c("__move_")); |
13145 |
13145 |
13146 if (IN_type_symbol == NULL) |
13146 if (IN_type_symbol == NULL) |
13147 IN_type_symbol = last_type_symbol; |
13147 IN_type_symbol = last_type_symbol; |
13148 ADD_PARAM_LIST(&IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) |
13148 ADD_PARAM_LIST(IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) |
13149 symbol_c * return_type_symbol = &search_constant_type_c::lreal_type_name; |
13149 symbol_c * return_type_symbol = &search_constant_type_c::lreal_type_name; |
13150 function_type_prefix = return_type_symbol; |
13150 function_type_prefix = return_type_symbol; |
13151 function_type_suffix = IN_type_symbol; |
13151 function_type_suffix = IN_type_symbol; |
13152 break; |
13152 break; |
13153 |
13153 |
13166 case function_int_to_byte : |
13166 case function_int_to_byte : |
13167 { |
13167 { |
13168 symbol_c *last_type_symbol = NULL; |
13168 symbol_c *last_type_symbol = NULL; |
13169 |
13169 |
13170 { |
13170 { |
13171 identifier_c IN_param_name("IN"); |
13171 symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); |
13172 /* Get the value from a foo(<param_name> = <param_value>) style call */ |
13172 /* Get the value from a foo(<param_name> = <param_value>) style call */ |
13173 symbol_c *IN_param_value = &this->default_variable_name; |
13173 symbol_c *IN_param_value = &this->default_variable_name; |
13174 |
13174 |
13175 symbol_c *IN_type_symbol = param_data_type; |
13175 symbol_c *IN_type_symbol = param_data_type; |
13176 last_type_symbol = param_data_type; |
13176 last_type_symbol = param_data_type; |
13180 |
13180 |
13181 function_name = (symbol_c*)(new pragma_c("__move_")); |
13181 function_name = (symbol_c*)(new pragma_c("__move_")); |
13182 |
13182 |
13183 if (IN_type_symbol == NULL) |
13183 if (IN_type_symbol == NULL) |
13184 IN_type_symbol = last_type_symbol; |
13184 IN_type_symbol = last_type_symbol; |
13185 ADD_PARAM_LIST(&IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) |
13185 ADD_PARAM_LIST(IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) |
13186 symbol_c * return_type_symbol = &search_constant_type_c::byte_type_name; |
13186 symbol_c * return_type_symbol = &search_constant_type_c::byte_type_name; |
13187 function_type_prefix = return_type_symbol; |
13187 function_type_prefix = return_type_symbol; |
13188 function_type_suffix = IN_type_symbol; |
13188 function_type_suffix = IN_type_symbol; |
13189 break; |
13189 break; |
13190 |
13190 |
13203 case function_int_to_usint : |
13203 case function_int_to_usint : |
13204 { |
13204 { |
13205 symbol_c *last_type_symbol = NULL; |
13205 symbol_c *last_type_symbol = NULL; |
13206 |
13206 |
13207 { |
13207 { |
13208 identifier_c IN_param_name("IN"); |
13208 symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); |
13209 /* Get the value from a foo(<param_name> = <param_value>) style call */ |
13209 /* Get the value from a foo(<param_name> = <param_value>) style call */ |
13210 symbol_c *IN_param_value = &this->default_variable_name; |
13210 symbol_c *IN_param_value = &this->default_variable_name; |
13211 |
13211 |
13212 symbol_c *IN_type_symbol = param_data_type; |
13212 symbol_c *IN_type_symbol = param_data_type; |
13213 last_type_symbol = param_data_type; |
13213 last_type_symbol = param_data_type; |
13217 |
13217 |
13218 function_name = (symbol_c*)(new pragma_c("__move_")); |
13218 function_name = (symbol_c*)(new pragma_c("__move_")); |
13219 |
13219 |
13220 if (IN_type_symbol == NULL) |
13220 if (IN_type_symbol == NULL) |
13221 IN_type_symbol = last_type_symbol; |
13221 IN_type_symbol = last_type_symbol; |
13222 ADD_PARAM_LIST(&IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) |
13222 ADD_PARAM_LIST(IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) |
13223 symbol_c * return_type_symbol = &search_constant_type_c::usint_type_name; |
13223 symbol_c * return_type_symbol = &search_constant_type_c::usint_type_name; |
13224 function_type_prefix = return_type_symbol; |
13224 function_type_prefix = return_type_symbol; |
13225 function_type_suffix = IN_type_symbol; |
13225 function_type_suffix = IN_type_symbol; |
13226 break; |
13226 break; |
13227 |
13227 |
13240 case function_int_to_ulint : |
13240 case function_int_to_ulint : |
13241 { |
13241 { |
13242 symbol_c *last_type_symbol = NULL; |
13242 symbol_c *last_type_symbol = NULL; |
13243 |
13243 |
13244 { |
13244 { |
13245 identifier_c IN_param_name("IN"); |
13245 symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); |
13246 /* Get the value from a foo(<param_name> = <param_value>) style call */ |
13246 /* Get the value from a foo(<param_name> = <param_value>) style call */ |
13247 symbol_c *IN_param_value = &this->default_variable_name; |
13247 symbol_c *IN_param_value = &this->default_variable_name; |
13248 |
13248 |
13249 symbol_c *IN_type_symbol = param_data_type; |
13249 symbol_c *IN_type_symbol = param_data_type; |
13250 last_type_symbol = param_data_type; |
13250 last_type_symbol = param_data_type; |
13254 |
13254 |
13255 function_name = (symbol_c*)(new pragma_c("__move_")); |
13255 function_name = (symbol_c*)(new pragma_c("__move_")); |
13256 |
13256 |
13257 if (IN_type_symbol == NULL) |
13257 if (IN_type_symbol == NULL) |
13258 IN_type_symbol = last_type_symbol; |
13258 IN_type_symbol = last_type_symbol; |
13259 ADD_PARAM_LIST(&IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) |
13259 ADD_PARAM_LIST(IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) |
13260 symbol_c * return_type_symbol = &search_constant_type_c::ulint_type_name; |
13260 symbol_c * return_type_symbol = &search_constant_type_c::ulint_type_name; |
13261 function_type_prefix = return_type_symbol; |
13261 function_type_prefix = return_type_symbol; |
13262 function_type_suffix = IN_type_symbol; |
13262 function_type_suffix = IN_type_symbol; |
13263 break; |
13263 break; |
13264 |
13264 |
13277 case function_int_to_bool : |
13277 case function_int_to_bool : |
13278 { |
13278 { |
13279 symbol_c *last_type_symbol = NULL; |
13279 symbol_c *last_type_symbol = NULL; |
13280 |
13280 |
13281 { |
13281 { |
13282 identifier_c IN_param_name("IN"); |
13282 symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); |
13283 /* Get the value from a foo(<param_name> = <param_value>) style call */ |
13283 /* Get the value from a foo(<param_name> = <param_value>) style call */ |
13284 symbol_c *IN_param_value = &this->default_variable_name; |
13284 symbol_c *IN_param_value = &this->default_variable_name; |
13285 |
13285 |
13286 symbol_c *IN_type_symbol = param_data_type; |
13286 symbol_c *IN_type_symbol = param_data_type; |
13287 last_type_symbol = param_data_type; |
13287 last_type_symbol = param_data_type; |
13291 |
13291 |
13292 function_name = (symbol_c*)(new pragma_c("__move_")); |
13292 function_name = (symbol_c*)(new pragma_c("__move_")); |
13293 |
13293 |
13294 if (IN_type_symbol == NULL) |
13294 if (IN_type_symbol == NULL) |
13295 IN_type_symbol = last_type_symbol; |
13295 IN_type_symbol = last_type_symbol; |
13296 ADD_PARAM_LIST(&IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) |
13296 ADD_PARAM_LIST(IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) |
13297 symbol_c * return_type_symbol = &search_constant_type_c::bool_type_name; |
13297 symbol_c * return_type_symbol = &search_constant_type_c::bool_type_name; |
13298 function_type_prefix = return_type_symbol; |
13298 function_type_prefix = return_type_symbol; |
13299 function_type_suffix = IN_type_symbol; |
13299 function_type_suffix = IN_type_symbol; |
13300 break; |
13300 break; |
13301 |
13301 |
13314 case function_int_to_time : |
13314 case function_int_to_time : |
13315 { |
13315 { |
13316 symbol_c *last_type_symbol = NULL; |
13316 symbol_c *last_type_symbol = NULL; |
13317 |
13317 |
13318 { |
13318 { |
13319 identifier_c IN_param_name("IN"); |
13319 symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); |
13320 /* Get the value from a foo(<param_name> = <param_value>) style call */ |
13320 /* Get the value from a foo(<param_name> = <param_value>) style call */ |
13321 symbol_c *IN_param_value = &this->default_variable_name; |
13321 symbol_c *IN_param_value = &this->default_variable_name; |
13322 |
13322 |
13323 symbol_c *IN_type_symbol = param_data_type; |
13323 symbol_c *IN_type_symbol = param_data_type; |
13324 last_type_symbol = param_data_type; |
13324 last_type_symbol = param_data_type; |
13328 |
13328 |
13329 function_name = (symbol_c*)(new pragma_c("__int_to_time")); |
13329 function_name = (symbol_c*)(new pragma_c("__int_to_time")); |
13330 |
13330 |
13331 if (IN_type_symbol == NULL) |
13331 if (IN_type_symbol == NULL) |
13332 IN_type_symbol = last_type_symbol; |
13332 IN_type_symbol = last_type_symbol; |
13333 ADD_PARAM_LIST(&IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) |
13333 ADD_PARAM_LIST(IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) |
13334 symbol_c * return_type_symbol = &search_constant_type_c::time_type_name; |
13334 symbol_c * return_type_symbol = &search_constant_type_c::time_type_name; |
13335 function_type_prefix = return_type_symbol; |
13335 function_type_prefix = return_type_symbol; |
13336 break; |
13336 break; |
13337 |
13337 |
13338 } |
13338 } |
13350 case function_trunc : |
13350 case function_trunc : |
13351 { |
13351 { |
13352 symbol_c *last_type_symbol = NULL; |
13352 symbol_c *last_type_symbol = NULL; |
13353 |
13353 |
13354 { |
13354 { |
13355 identifier_c IN_param_name("IN"); |
13355 symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); |
13356 /* Get the value from a foo(<param_name> = <param_value>) style call */ |
13356 /* Get the value from a foo(<param_name> = <param_value>) style call */ |
13357 symbol_c *IN_param_value = &this->default_variable_name; |
13357 symbol_c *IN_param_value = &this->default_variable_name; |
13358 |
13358 |
13359 symbol_c *IN_type_symbol = param_data_type; |
13359 symbol_c *IN_type_symbol = param_data_type; |
13360 last_type_symbol = param_data_type; |
13360 last_type_symbol = param_data_type; |
13363 { |
13363 { |
13364 |
13364 |
13365 |
13365 |
13366 if (IN_type_symbol == NULL) |
13366 if (IN_type_symbol == NULL) |
13367 IN_type_symbol = last_type_symbol; |
13367 IN_type_symbol = last_type_symbol; |
13368 ADD_PARAM_LIST(&IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) |
13368 ADD_PARAM_LIST(IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) |
13369 symbol_c * return_type_symbol = &search_constant_type_c::integer; |
13369 symbol_c * return_type_symbol = &search_constant_type_c::integer; |
13370 function_type_prefix = (symbol_c*)(new pragma_c("int")); |
13370 function_type_prefix = (symbol_c*)(new pragma_c("int")); |
13371 if (search_expression_type->is_literal_real_type(function_type_suffix)) |
13371 if (search_expression_type->is_literal_real_type(function_type_suffix)) |
13372 function_type_suffix = &search_constant_type_c::lreal_type_name; |
13372 function_type_suffix = &search_constant_type_c::lreal_type_name; |
13373 break; |
13373 break; |
13387 case function_bcd_to_udint : |
13387 case function_bcd_to_udint : |
13388 { |
13388 { |
13389 symbol_c *last_type_symbol = NULL; |
13389 symbol_c *last_type_symbol = NULL; |
13390 |
13390 |
13391 { |
13391 { |
13392 identifier_c IN_param_name("IN"); |
13392 symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); |
13393 /* Get the value from a foo(<param_name> = <param_value>) style call */ |
13393 /* Get the value from a foo(<param_name> = <param_value>) style call */ |
13394 symbol_c *IN_param_value = &this->default_variable_name; |
13394 symbol_c *IN_param_value = &this->default_variable_name; |
13395 |
13395 |
13396 symbol_c *IN_type_symbol = param_data_type; |
13396 symbol_c *IN_type_symbol = param_data_type; |
13397 last_type_symbol = param_data_type; |
13397 last_type_symbol = param_data_type; |
13401 |
13401 |
13402 function_name = (symbol_c*)(new pragma_c("__bcd_to_uint")); |
13402 function_name = (symbol_c*)(new pragma_c("__bcd_to_uint")); |
13403 |
13403 |
13404 if (IN_type_symbol == NULL) |
13404 if (IN_type_symbol == NULL) |
13405 IN_type_symbol = last_type_symbol; |
13405 IN_type_symbol = last_type_symbol; |
13406 ADD_PARAM_LIST(&IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) |
13406 ADD_PARAM_LIST(IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) |
13407 symbol_c * return_type_symbol = &search_constant_type_c::udint_type_name; |
13407 symbol_c * return_type_symbol = &search_constant_type_c::udint_type_name; |
13408 function_type_prefix = return_type_symbol; |
13408 function_type_prefix = return_type_symbol; |
13409 break; |
13409 break; |
13410 |
13410 |
13411 } |
13411 } |
13423 case function_bcd_to_uint : |
13423 case function_bcd_to_uint : |
13424 { |
13424 { |
13425 symbol_c *last_type_symbol = NULL; |
13425 symbol_c *last_type_symbol = NULL; |
13426 |
13426 |
13427 { |
13427 { |
13428 identifier_c IN_param_name("IN"); |
13428 symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); |
13429 /* Get the value from a foo(<param_name> = <param_value>) style call */ |
13429 /* Get the value from a foo(<param_name> = <param_value>) style call */ |
13430 symbol_c *IN_param_value = &this->default_variable_name; |
13430 symbol_c *IN_param_value = &this->default_variable_name; |
13431 |
13431 |
13432 symbol_c *IN_type_symbol = param_data_type; |
13432 symbol_c *IN_type_symbol = param_data_type; |
13433 last_type_symbol = param_data_type; |
13433 last_type_symbol = param_data_type; |
13437 |
13437 |
13438 function_name = (symbol_c*)(new pragma_c("__bcd_to_uint")); |
13438 function_name = (symbol_c*)(new pragma_c("__bcd_to_uint")); |
13439 |
13439 |
13440 if (IN_type_symbol == NULL) |
13440 if (IN_type_symbol == NULL) |
13441 IN_type_symbol = last_type_symbol; |
13441 IN_type_symbol = last_type_symbol; |
13442 ADD_PARAM_LIST(&IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) |
13442 ADD_PARAM_LIST(IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) |
13443 symbol_c * return_type_symbol = &search_constant_type_c::uint_type_name; |
13443 symbol_c * return_type_symbol = &search_constant_type_c::uint_type_name; |
13444 function_type_prefix = return_type_symbol; |
13444 function_type_prefix = return_type_symbol; |
13445 break; |
13445 break; |
13446 |
13446 |
13447 } |
13447 } |
13459 case function_bcd_to_ulint : |
13459 case function_bcd_to_ulint : |
13460 { |
13460 { |
13461 symbol_c *last_type_symbol = NULL; |
13461 symbol_c *last_type_symbol = NULL; |
13462 |
13462 |
13463 { |
13463 { |
13464 identifier_c IN_param_name("IN"); |
13464 symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); |
13465 /* Get the value from a foo(<param_name> = <param_value>) style call */ |
13465 /* Get the value from a foo(<param_name> = <param_value>) style call */ |
13466 symbol_c *IN_param_value = &this->default_variable_name; |
13466 symbol_c *IN_param_value = &this->default_variable_name; |
13467 |
13467 |
13468 symbol_c *IN_type_symbol = param_data_type; |
13468 symbol_c *IN_type_symbol = param_data_type; |
13469 last_type_symbol = param_data_type; |
13469 last_type_symbol = param_data_type; |
13473 |
13473 |
13474 function_name = (symbol_c*)(new pragma_c("__bcd_to_uint")); |
13474 function_name = (symbol_c*)(new pragma_c("__bcd_to_uint")); |
13475 |
13475 |
13476 if (IN_type_symbol == NULL) |
13476 if (IN_type_symbol == NULL) |
13477 IN_type_symbol = last_type_symbol; |
13477 IN_type_symbol = last_type_symbol; |
13478 ADD_PARAM_LIST(&IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) |
13478 ADD_PARAM_LIST(IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) |
13479 symbol_c * return_type_symbol = &search_constant_type_c::ulint_type_name; |
13479 symbol_c * return_type_symbol = &search_constant_type_c::ulint_type_name; |
13480 function_type_prefix = return_type_symbol; |
13480 function_type_prefix = return_type_symbol; |
13481 break; |
13481 break; |
13482 |
13482 |
13483 } |
13483 } |
13495 case function_bcd_to_usint : |
13495 case function_bcd_to_usint : |
13496 { |
13496 { |
13497 symbol_c *last_type_symbol = NULL; |
13497 symbol_c *last_type_symbol = NULL; |
13498 |
13498 |
13499 { |
13499 { |
13500 identifier_c IN_param_name("IN"); |
13500 symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); |
13501 /* Get the value from a foo(<param_name> = <param_value>) style call */ |
13501 /* Get the value from a foo(<param_name> = <param_value>) style call */ |
13502 symbol_c *IN_param_value = &this->default_variable_name; |
13502 symbol_c *IN_param_value = &this->default_variable_name; |
13503 |
13503 |
13504 symbol_c *IN_type_symbol = param_data_type; |
13504 symbol_c *IN_type_symbol = param_data_type; |
13505 last_type_symbol = param_data_type; |
13505 last_type_symbol = param_data_type; |
13509 |
13509 |
13510 function_name = (symbol_c*)(new pragma_c("__bcd_to_uint")); |
13510 function_name = (symbol_c*)(new pragma_c("__bcd_to_uint")); |
13511 |
13511 |
13512 if (IN_type_symbol == NULL) |
13512 if (IN_type_symbol == NULL) |
13513 IN_type_symbol = last_type_symbol; |
13513 IN_type_symbol = last_type_symbol; |
13514 ADD_PARAM_LIST(&IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) |
13514 ADD_PARAM_LIST(IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) |
13515 symbol_c * return_type_symbol = &search_constant_type_c::usint_type_name; |
13515 symbol_c * return_type_symbol = &search_constant_type_c::usint_type_name; |
13516 function_type_prefix = return_type_symbol; |
13516 function_type_prefix = return_type_symbol; |
13517 break; |
13517 break; |
13518 |
13518 |
13519 } |
13519 } |
13531 case function_udint_to_bcd : |
13531 case function_udint_to_bcd : |
13532 { |
13532 { |
13533 symbol_c *last_type_symbol = NULL; |
13533 symbol_c *last_type_symbol = NULL; |
13534 |
13534 |
13535 { |
13535 { |
13536 identifier_c IN_param_name("IN"); |
13536 symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); |
13537 /* Get the value from a foo(<param_name> = <param_value>) style call */ |
13537 /* Get the value from a foo(<param_name> = <param_value>) style call */ |
13538 symbol_c *IN_param_value = &this->default_variable_name; |
13538 symbol_c *IN_param_value = &this->default_variable_name; |
13539 |
13539 |
13540 symbol_c *IN_type_symbol = param_data_type; |
13540 symbol_c *IN_type_symbol = param_data_type; |
13541 last_type_symbol = param_data_type; |
13541 last_type_symbol = param_data_type; |
13545 |
13545 |
13546 function_name = (symbol_c*)(new pragma_c("__uint_to_bcd")); |
13546 function_name = (symbol_c*)(new pragma_c("__uint_to_bcd")); |
13547 |
13547 |
13548 if (IN_type_symbol == NULL) |
13548 if (IN_type_symbol == NULL) |
13549 IN_type_symbol = last_type_symbol; |
13549 IN_type_symbol = last_type_symbol; |
13550 ADD_PARAM_LIST(&IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) |
13550 ADD_PARAM_LIST(IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) |
13551 symbol_c * return_type_symbol = &search_constant_type_c::integer; |
13551 symbol_c * return_type_symbol = &search_constant_type_c::integer; |
13552 function_type_prefix = return_type_symbol; |
13552 function_type_prefix = return_type_symbol; |
13553 break; |
13553 break; |
13554 |
13554 |
13555 } |
13555 } |
13567 case function_uint_to_bcd : |
13567 case function_uint_to_bcd : |
13568 { |
13568 { |
13569 symbol_c *last_type_symbol = NULL; |
13569 symbol_c *last_type_symbol = NULL; |
13570 |
13570 |
13571 { |
13571 { |
13572 identifier_c IN_param_name("IN"); |
13572 symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); |
13573 /* Get the value from a foo(<param_name> = <param_value>) style call */ |
13573 /* Get the value from a foo(<param_name> = <param_value>) style call */ |
13574 symbol_c *IN_param_value = &this->default_variable_name; |
13574 symbol_c *IN_param_value = &this->default_variable_name; |
13575 |
13575 |
13576 symbol_c *IN_type_symbol = param_data_type; |
13576 symbol_c *IN_type_symbol = param_data_type; |
13577 last_type_symbol = param_data_type; |
13577 last_type_symbol = param_data_type; |
13581 |
13581 |
13582 function_name = (symbol_c*)(new pragma_c("__uint_to_bcd")); |
13582 function_name = (symbol_c*)(new pragma_c("__uint_to_bcd")); |
13583 |
13583 |
13584 if (IN_type_symbol == NULL) |
13584 if (IN_type_symbol == NULL) |
13585 IN_type_symbol = last_type_symbol; |
13585 IN_type_symbol = last_type_symbol; |
13586 ADD_PARAM_LIST(&IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) |
13586 ADD_PARAM_LIST(IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) |
13587 symbol_c * return_type_symbol = &search_constant_type_c::integer; |
13587 symbol_c * return_type_symbol = &search_constant_type_c::integer; |
13588 function_type_prefix = return_type_symbol; |
13588 function_type_prefix = return_type_symbol; |
13589 break; |
13589 break; |
13590 |
13590 |
13591 } |
13591 } |
13603 case function_usint_to_bcd : |
13603 case function_usint_to_bcd : |
13604 { |
13604 { |
13605 symbol_c *last_type_symbol = NULL; |
13605 symbol_c *last_type_symbol = NULL; |
13606 |
13606 |
13607 { |
13607 { |
13608 identifier_c IN_param_name("IN"); |
13608 symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); |
13609 /* Get the value from a foo(<param_name> = <param_value>) style call */ |
13609 /* Get the value from a foo(<param_name> = <param_value>) style call */ |
13610 symbol_c *IN_param_value = &this->default_variable_name; |
13610 symbol_c *IN_param_value = &this->default_variable_name; |
13611 |
13611 |
13612 symbol_c *IN_type_symbol = param_data_type; |
13612 symbol_c *IN_type_symbol = param_data_type; |
13613 last_type_symbol = param_data_type; |
13613 last_type_symbol = param_data_type; |
13617 |
13617 |
13618 function_name = (symbol_c*)(new pragma_c("__uint_to_bcd")); |
13618 function_name = (symbol_c*)(new pragma_c("__uint_to_bcd")); |
13619 |
13619 |
13620 if (IN_type_symbol == NULL) |
13620 if (IN_type_symbol == NULL) |
13621 IN_type_symbol = last_type_symbol; |
13621 IN_type_symbol = last_type_symbol; |
13622 ADD_PARAM_LIST(&IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) |
13622 ADD_PARAM_LIST(IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) |
13623 symbol_c * return_type_symbol = &search_constant_type_c::integer; |
13623 symbol_c * return_type_symbol = &search_constant_type_c::integer; |
13624 function_type_prefix = return_type_symbol; |
13624 function_type_prefix = return_type_symbol; |
13625 break; |
13625 break; |
13626 |
13626 |
13627 } |
13627 } |
13639 case function_ulint_to_bcd : |
13639 case function_ulint_to_bcd : |
13640 { |
13640 { |
13641 symbol_c *last_type_symbol = NULL; |
13641 symbol_c *last_type_symbol = NULL; |
13642 |
13642 |
13643 { |
13643 { |
13644 identifier_c IN_param_name("IN"); |
13644 symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); |
13645 /* Get the value from a foo(<param_name> = <param_value>) style call */ |
13645 /* Get the value from a foo(<param_name> = <param_value>) style call */ |
13646 symbol_c *IN_param_value = &this->default_variable_name; |
13646 symbol_c *IN_param_value = &this->default_variable_name; |
13647 |
13647 |
13648 symbol_c *IN_type_symbol = param_data_type; |
13648 symbol_c *IN_type_symbol = param_data_type; |
13649 last_type_symbol = param_data_type; |
13649 last_type_symbol = param_data_type; |
13653 |
13653 |
13654 function_name = (symbol_c*)(new pragma_c("__uint_to_bcd")); |
13654 function_name = (symbol_c*)(new pragma_c("__uint_to_bcd")); |
13655 |
13655 |
13656 if (IN_type_symbol == NULL) |
13656 if (IN_type_symbol == NULL) |
13657 IN_type_symbol = last_type_symbol; |
13657 IN_type_symbol = last_type_symbol; |
13658 ADD_PARAM_LIST(&IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) |
13658 ADD_PARAM_LIST(IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) |
13659 symbol_c * return_type_symbol = &search_constant_type_c::integer; |
13659 symbol_c * return_type_symbol = &search_constant_type_c::integer; |
13660 function_type_prefix = return_type_symbol; |
13660 function_type_prefix = return_type_symbol; |
13661 break; |
13661 break; |
13662 |
13662 |
13663 } |
13663 } |
13675 case function_date_and_time_to_time_of_day : |
13675 case function_date_and_time_to_time_of_day : |
13676 { |
13676 { |
13677 symbol_c *last_type_symbol = NULL; |
13677 symbol_c *last_type_symbol = NULL; |
13678 |
13678 |
13679 { |
13679 { |
13680 identifier_c IN_param_name("IN"); |
13680 symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); |
13681 /* Get the value from a foo(<param_name> = <param_value>) style call */ |
13681 /* Get the value from a foo(<param_name> = <param_value>) style call */ |
13682 symbol_c *IN_param_value = &this->default_variable_name; |
13682 symbol_c *IN_param_value = &this->default_variable_name; |
13683 |
13683 |
13684 symbol_c *IN_type_symbol = param_data_type; |
13684 symbol_c *IN_type_symbol = param_data_type; |
13685 last_type_symbol = param_data_type; |
13685 last_type_symbol = param_data_type; |
13689 |
13689 |
13690 function_name = (symbol_c*)(new pragma_c("__date_and_time_to_time_of_day")); |
13690 function_name = (symbol_c*)(new pragma_c("__date_and_time_to_time_of_day")); |
13691 |
13691 |
13692 if (IN_type_symbol == NULL) |
13692 if (IN_type_symbol == NULL) |
13693 IN_type_symbol = last_type_symbol; |
13693 IN_type_symbol = last_type_symbol; |
13694 ADD_PARAM_LIST(&IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) |
13694 ADD_PARAM_LIST(IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) |
13695 symbol_c * return_type_symbol = &search_constant_type_c::tod_type_name; |
13695 symbol_c * return_type_symbol = &search_constant_type_c::tod_type_name; |
13696 break; |
13696 break; |
13697 |
13697 |
13698 } |
13698 } |
13699 |
13699 |
13710 case function_date_and_time_to_date : |
13710 case function_date_and_time_to_date : |
13711 { |
13711 { |
13712 symbol_c *last_type_symbol = NULL; |
13712 symbol_c *last_type_symbol = NULL; |
13713 |
13713 |
13714 { |
13714 { |
13715 identifier_c IN_param_name("IN"); |
13715 symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); |
13716 /* Get the value from a foo(<param_name> = <param_value>) style call */ |
13716 /* Get the value from a foo(<param_name> = <param_value>) style call */ |
13717 symbol_c *IN_param_value = &this->default_variable_name; |
13717 symbol_c *IN_param_value = &this->default_variable_name; |
13718 |
13718 |
13719 symbol_c *IN_type_symbol = param_data_type; |
13719 symbol_c *IN_type_symbol = param_data_type; |
13720 last_type_symbol = param_data_type; |
13720 last_type_symbol = param_data_type; |
13724 |
13724 |
13725 function_name = (symbol_c*)(new pragma_c("__date_and_time_to_date")); |
13725 function_name = (symbol_c*)(new pragma_c("__date_and_time_to_date")); |
13726 |
13726 |
13727 if (IN_type_symbol == NULL) |
13727 if (IN_type_symbol == NULL) |
13728 IN_type_symbol = last_type_symbol; |
13728 IN_type_symbol = last_type_symbol; |
13729 ADD_PARAM_LIST(&IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) |
13729 ADD_PARAM_LIST(IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) |
13730 symbol_c * return_type_symbol = &search_constant_type_c::date_type_name; |
13730 symbol_c * return_type_symbol = &search_constant_type_c::date_type_name; |
13731 break; |
13731 break; |
13732 |
13732 |
13733 } |
13733 } |
13734 |
13734 |
13745 case function_abs : |
13745 case function_abs : |
13746 { |
13746 { |
13747 symbol_c *last_type_symbol = NULL; |
13747 symbol_c *last_type_symbol = NULL; |
13748 |
13748 |
13749 { |
13749 { |
13750 identifier_c IN_param_name("IN"); |
13750 symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); |
13751 /* Get the value from a foo(<param_name> = <param_value>) style call */ |
13751 /* Get the value from a foo(<param_name> = <param_value>) style call */ |
13752 symbol_c *IN_param_value = &this->default_variable_name; |
13752 symbol_c *IN_param_value = &this->default_variable_name; |
13753 |
13753 |
13754 symbol_c *IN_type_symbol = param_data_type; |
13754 symbol_c *IN_type_symbol = param_data_type; |
13755 last_type_symbol = param_data_type; |
13755 last_type_symbol = param_data_type; |
13759 |
13759 |
13760 function_name = (symbol_c*)(new pragma_c("__abs_")); |
13760 function_name = (symbol_c*)(new pragma_c("__abs_")); |
13761 |
13761 |
13762 if (IN_type_symbol == NULL) |
13762 if (IN_type_symbol == NULL) |
13763 IN_type_symbol = last_type_symbol; |
13763 IN_type_symbol = last_type_symbol; |
13764 ADD_PARAM_LIST(&IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) |
13764 ADD_PARAM_LIST(IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) |
13765 symbol_c * return_type_symbol = IN_type_symbol; |
13765 symbol_c * return_type_symbol = IN_type_symbol; |
13766 function_type_suffix = IN_type_symbol; |
13766 function_type_suffix = IN_type_symbol; |
13767 if (search_expression_type->is_literal_integer_type(function_type_suffix)) |
13767 if (search_expression_type->is_literal_integer_type(function_type_suffix)) |
13768 function_type_suffix = &search_constant_type_c::lint_type_name; |
13768 function_type_suffix = &search_constant_type_c::lint_type_name; |
13769 break; |
13769 break; |
13783 case function_sqrt : |
13783 case function_sqrt : |
13784 { |
13784 { |
13785 symbol_c *last_type_symbol = NULL; |
13785 symbol_c *last_type_symbol = NULL; |
13786 |
13786 |
13787 { |
13787 { |
13788 identifier_c IN_param_name("IN"); |
13788 symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); |
13789 /* Get the value from a foo(<param_name> = <param_value>) style call */ |
13789 /* Get the value from a foo(<param_name> = <param_value>) style call */ |
13790 symbol_c *IN_param_value = &this->default_variable_name; |
13790 symbol_c *IN_param_value = &this->default_variable_name; |
13791 |
13791 |
13792 symbol_c *IN_type_symbol = param_data_type; |
13792 symbol_c *IN_type_symbol = param_data_type; |
13793 last_type_symbol = param_data_type; |
13793 last_type_symbol = param_data_type; |
13797 |
13797 |
13798 function_name = (symbol_c*)(new pragma_c("__sqrt_")); |
13798 function_name = (symbol_c*)(new pragma_c("__sqrt_")); |
13799 |
13799 |
13800 if (IN_type_symbol == NULL) |
13800 if (IN_type_symbol == NULL) |
13801 IN_type_symbol = last_type_symbol; |
13801 IN_type_symbol = last_type_symbol; |
13802 ADD_PARAM_LIST(&IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) |
13802 ADD_PARAM_LIST(IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) |
13803 symbol_c * return_type_symbol = IN_type_symbol; |
13803 symbol_c * return_type_symbol = IN_type_symbol; |
13804 function_type_suffix = IN_type_symbol; |
13804 function_type_suffix = IN_type_symbol; |
13805 if (search_expression_type->is_literal_real_type(function_type_suffix)) |
13805 if (search_expression_type->is_literal_real_type(function_type_suffix)) |
13806 function_type_suffix = &search_constant_type_c::lreal_type_name; |
13806 function_type_suffix = &search_constant_type_c::lreal_type_name; |
13807 break; |
13807 break; |
13821 case function_ln : |
13821 case function_ln : |
13822 { |
13822 { |
13823 symbol_c *last_type_symbol = NULL; |
13823 symbol_c *last_type_symbol = NULL; |
13824 |
13824 |
13825 { |
13825 { |
13826 identifier_c IN_param_name("IN"); |
13826 symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); |
13827 /* Get the value from a foo(<param_name> = <param_value>) style call */ |
13827 /* Get the value from a foo(<param_name> = <param_value>) style call */ |
13828 symbol_c *IN_param_value = &this->default_variable_name; |
13828 symbol_c *IN_param_value = &this->default_variable_name; |
13829 |
13829 |
13830 symbol_c *IN_type_symbol = param_data_type; |
13830 symbol_c *IN_type_symbol = param_data_type; |
13831 last_type_symbol = param_data_type; |
13831 last_type_symbol = param_data_type; |
13835 |
13835 |
13836 function_name = (symbol_c*)(new pragma_c("__ln_")); |
13836 function_name = (symbol_c*)(new pragma_c("__ln_")); |
13837 |
13837 |
13838 if (IN_type_symbol == NULL) |
13838 if (IN_type_symbol == NULL) |
13839 IN_type_symbol = last_type_symbol; |
13839 IN_type_symbol = last_type_symbol; |
13840 ADD_PARAM_LIST(&IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) |
13840 ADD_PARAM_LIST(IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) |
13841 symbol_c * return_type_symbol = IN_type_symbol; |
13841 symbol_c * return_type_symbol = IN_type_symbol; |
13842 function_type_suffix = IN_type_symbol; |
13842 function_type_suffix = IN_type_symbol; |
13843 if (search_expression_type->is_literal_real_type(function_type_suffix)) |
13843 if (search_expression_type->is_literal_real_type(function_type_suffix)) |
13844 function_type_suffix = &search_constant_type_c::lreal_type_name; |
13844 function_type_suffix = &search_constant_type_c::lreal_type_name; |
13845 break; |
13845 break; |
13859 case function_log : |
13859 case function_log : |
13860 { |
13860 { |
13861 symbol_c *last_type_symbol = NULL; |
13861 symbol_c *last_type_symbol = NULL; |
13862 |
13862 |
13863 { |
13863 { |
13864 identifier_c IN_param_name("IN"); |
13864 symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); |
13865 /* Get the value from a foo(<param_name> = <param_value>) style call */ |
13865 /* Get the value from a foo(<param_name> = <param_value>) style call */ |
13866 symbol_c *IN_param_value = &this->default_variable_name; |
13866 symbol_c *IN_param_value = &this->default_variable_name; |
13867 |
13867 |
13868 symbol_c *IN_type_symbol = param_data_type; |
13868 symbol_c *IN_type_symbol = param_data_type; |
13869 last_type_symbol = param_data_type; |
13869 last_type_symbol = param_data_type; |
13873 |
13873 |
13874 function_name = (symbol_c*)(new pragma_c("__log_")); |
13874 function_name = (symbol_c*)(new pragma_c("__log_")); |
13875 |
13875 |
13876 if (IN_type_symbol == NULL) |
13876 if (IN_type_symbol == NULL) |
13877 IN_type_symbol = last_type_symbol; |
13877 IN_type_symbol = last_type_symbol; |
13878 ADD_PARAM_LIST(&IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) |
13878 ADD_PARAM_LIST(IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) |
13879 symbol_c * return_type_symbol = IN_type_symbol; |
13879 symbol_c * return_type_symbol = IN_type_symbol; |
13880 function_type_suffix = IN_type_symbol; |
13880 function_type_suffix = IN_type_symbol; |
13881 if (search_expression_type->is_literal_real_type(function_type_suffix)) |
13881 if (search_expression_type->is_literal_real_type(function_type_suffix)) |
13882 function_type_suffix = &search_constant_type_c::lreal_type_name; |
13882 function_type_suffix = &search_constant_type_c::lreal_type_name; |
13883 break; |
13883 break; |
13897 case function_exp : |
13897 case function_exp : |
13898 { |
13898 { |
13899 symbol_c *last_type_symbol = NULL; |
13899 symbol_c *last_type_symbol = NULL; |
13900 |
13900 |
13901 { |
13901 { |
13902 identifier_c IN_param_name("IN"); |
13902 symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); |
13903 /* Get the value from a foo(<param_name> = <param_value>) style call */ |
13903 /* Get the value from a foo(<param_name> = <param_value>) style call */ |
13904 symbol_c *IN_param_value = &this->default_variable_name; |
13904 symbol_c *IN_param_value = &this->default_variable_name; |
13905 |
13905 |
13906 symbol_c *IN_type_symbol = param_data_type; |
13906 symbol_c *IN_type_symbol = param_data_type; |
13907 last_type_symbol = param_data_type; |
13907 last_type_symbol = param_data_type; |
13911 |
13911 |
13912 function_name = (symbol_c*)(new pragma_c("__exp_")); |
13912 function_name = (symbol_c*)(new pragma_c("__exp_")); |
13913 |
13913 |
13914 if (IN_type_symbol == NULL) |
13914 if (IN_type_symbol == NULL) |
13915 IN_type_symbol = last_type_symbol; |
13915 IN_type_symbol = last_type_symbol; |
13916 ADD_PARAM_LIST(&IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) |
13916 ADD_PARAM_LIST(IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) |
13917 symbol_c * return_type_symbol = IN_type_symbol; |
13917 symbol_c * return_type_symbol = IN_type_symbol; |
13918 function_type_suffix = IN_type_symbol; |
13918 function_type_suffix = IN_type_symbol; |
13919 if (search_expression_type->is_literal_real_type(function_type_suffix)) |
13919 if (search_expression_type->is_literal_real_type(function_type_suffix)) |
13920 function_type_suffix = &search_constant_type_c::lreal_type_name; |
13920 function_type_suffix = &search_constant_type_c::lreal_type_name; |
13921 break; |
13921 break; |
13935 case function_sin : |
13935 case function_sin : |
13936 { |
13936 { |
13937 symbol_c *last_type_symbol = NULL; |
13937 symbol_c *last_type_symbol = NULL; |
13938 |
13938 |
13939 { |
13939 { |
13940 identifier_c IN_param_name("IN"); |
13940 symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); |
13941 /* Get the value from a foo(<param_name> = <param_value>) style call */ |
13941 /* Get the value from a foo(<param_name> = <param_value>) style call */ |
13942 symbol_c *IN_param_value = &this->default_variable_name; |
13942 symbol_c *IN_param_value = &this->default_variable_name; |
13943 |
13943 |
13944 symbol_c *IN_type_symbol = param_data_type; |
13944 symbol_c *IN_type_symbol = param_data_type; |
13945 last_type_symbol = param_data_type; |
13945 last_type_symbol = param_data_type; |
13949 |
13949 |
13950 function_name = (symbol_c*)(new pragma_c("__sin_")); |
13950 function_name = (symbol_c*)(new pragma_c("__sin_")); |
13951 |
13951 |
13952 if (IN_type_symbol == NULL) |
13952 if (IN_type_symbol == NULL) |
13953 IN_type_symbol = last_type_symbol; |
13953 IN_type_symbol = last_type_symbol; |
13954 ADD_PARAM_LIST(&IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) |
13954 ADD_PARAM_LIST(IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) |
13955 symbol_c * return_type_symbol = IN_type_symbol; |
13955 symbol_c * return_type_symbol = IN_type_symbol; |
13956 function_type_suffix = IN_type_symbol; |
13956 function_type_suffix = IN_type_symbol; |
13957 if (search_expression_type->is_literal_real_type(function_type_suffix)) |
13957 if (search_expression_type->is_literal_real_type(function_type_suffix)) |
13958 function_type_suffix = &search_constant_type_c::lreal_type_name; |
13958 function_type_suffix = &search_constant_type_c::lreal_type_name; |
13959 break; |
13959 break; |
13973 case function_cos : |
13973 case function_cos : |
13974 { |
13974 { |
13975 symbol_c *last_type_symbol = NULL; |
13975 symbol_c *last_type_symbol = NULL; |
13976 |
13976 |
13977 { |
13977 { |
13978 identifier_c IN_param_name("IN"); |
13978 symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); |
13979 /* Get the value from a foo(<param_name> = <param_value>) style call */ |
13979 /* Get the value from a foo(<param_name> = <param_value>) style call */ |
13980 symbol_c *IN_param_value = &this->default_variable_name; |
13980 symbol_c *IN_param_value = &this->default_variable_name; |
13981 |
13981 |
13982 symbol_c *IN_type_symbol = param_data_type; |
13982 symbol_c *IN_type_symbol = param_data_type; |
13983 last_type_symbol = param_data_type; |
13983 last_type_symbol = param_data_type; |
13987 |
13987 |
13988 function_name = (symbol_c*)(new pragma_c("__cos_")); |
13988 function_name = (symbol_c*)(new pragma_c("__cos_")); |
13989 |
13989 |
13990 if (IN_type_symbol == NULL) |
13990 if (IN_type_symbol == NULL) |
13991 IN_type_symbol = last_type_symbol; |
13991 IN_type_symbol = last_type_symbol; |
13992 ADD_PARAM_LIST(&IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) |
13992 ADD_PARAM_LIST(IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) |
13993 symbol_c * return_type_symbol = IN_type_symbol; |
13993 symbol_c * return_type_symbol = IN_type_symbol; |
13994 function_type_suffix = IN_type_symbol; |
13994 function_type_suffix = IN_type_symbol; |
13995 if (search_expression_type->is_literal_real_type(function_type_suffix)) |
13995 if (search_expression_type->is_literal_real_type(function_type_suffix)) |
13996 function_type_suffix = &search_constant_type_c::lreal_type_name; |
13996 function_type_suffix = &search_constant_type_c::lreal_type_name; |
13997 break; |
13997 break; |
14011 case function_tan : |
14011 case function_tan : |
14012 { |
14012 { |
14013 symbol_c *last_type_symbol = NULL; |
14013 symbol_c *last_type_symbol = NULL; |
14014 |
14014 |
14015 { |
14015 { |
14016 identifier_c IN_param_name("IN"); |
14016 symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); |
14017 /* Get the value from a foo(<param_name> = <param_value>) style call */ |
14017 /* Get the value from a foo(<param_name> = <param_value>) style call */ |
14018 symbol_c *IN_param_value = &this->default_variable_name; |
14018 symbol_c *IN_param_value = &this->default_variable_name; |
14019 |
14019 |
14020 symbol_c *IN_type_symbol = param_data_type; |
14020 symbol_c *IN_type_symbol = param_data_type; |
14021 last_type_symbol = param_data_type; |
14021 last_type_symbol = param_data_type; |
14025 |
14025 |
14026 function_name = (symbol_c*)(new pragma_c("__tan_")); |
14026 function_name = (symbol_c*)(new pragma_c("__tan_")); |
14027 |
14027 |
14028 if (IN_type_symbol == NULL) |
14028 if (IN_type_symbol == NULL) |
14029 IN_type_symbol = last_type_symbol; |
14029 IN_type_symbol = last_type_symbol; |
14030 ADD_PARAM_LIST(&IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) |
14030 ADD_PARAM_LIST(IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) |
14031 symbol_c * return_type_symbol = IN_type_symbol; |
14031 symbol_c * return_type_symbol = IN_type_symbol; |
14032 function_type_suffix = IN_type_symbol; |
14032 function_type_suffix = IN_type_symbol; |
14033 if (search_expression_type->is_literal_real_type(function_type_suffix)) |
14033 if (search_expression_type->is_literal_real_type(function_type_suffix)) |
14034 function_type_suffix = &search_constant_type_c::lreal_type_name; |
14034 function_type_suffix = &search_constant_type_c::lreal_type_name; |
14035 break; |
14035 break; |
14049 case function_asin : |
14049 case function_asin : |
14050 { |
14050 { |
14051 symbol_c *last_type_symbol = NULL; |
14051 symbol_c *last_type_symbol = NULL; |
14052 |
14052 |
14053 { |
14053 { |
14054 identifier_c IN_param_name("IN"); |
14054 symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); |
14055 /* Get the value from a foo(<param_name> = <param_value>) style call */ |
14055 /* Get the value from a foo(<param_name> = <param_value>) style call */ |
14056 symbol_c *IN_param_value = &this->default_variable_name; |
14056 symbol_c *IN_param_value = &this->default_variable_name; |
14057 |
14057 |
14058 symbol_c *IN_type_symbol = param_data_type; |
14058 symbol_c *IN_type_symbol = param_data_type; |
14059 last_type_symbol = param_data_type; |
14059 last_type_symbol = param_data_type; |
14063 |
14063 |
14064 function_name = (symbol_c*)(new pragma_c("__asin_")); |
14064 function_name = (symbol_c*)(new pragma_c("__asin_")); |
14065 |
14065 |
14066 if (IN_type_symbol == NULL) |
14066 if (IN_type_symbol == NULL) |
14067 IN_type_symbol = last_type_symbol; |
14067 IN_type_symbol = last_type_symbol; |
14068 ADD_PARAM_LIST(&IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) |
14068 ADD_PARAM_LIST(IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) |
14069 symbol_c * return_type_symbol = IN_type_symbol; |
14069 symbol_c * return_type_symbol = IN_type_symbol; |
14070 function_type_suffix = IN_type_symbol; |
14070 function_type_suffix = IN_type_symbol; |
14071 if (search_expression_type->is_literal_real_type(function_type_suffix)) |
14071 if (search_expression_type->is_literal_real_type(function_type_suffix)) |
14072 function_type_suffix = &search_constant_type_c::lreal_type_name; |
14072 function_type_suffix = &search_constant_type_c::lreal_type_name; |
14073 break; |
14073 break; |
14087 case function_acos : |
14087 case function_acos : |
14088 { |
14088 { |
14089 symbol_c *last_type_symbol = NULL; |
14089 symbol_c *last_type_symbol = NULL; |
14090 |
14090 |
14091 { |
14091 { |
14092 identifier_c IN_param_name("IN"); |
14092 symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); |
14093 /* Get the value from a foo(<param_name> = <param_value>) style call */ |
14093 /* Get the value from a foo(<param_name> = <param_value>) style call */ |
14094 symbol_c *IN_param_value = &this->default_variable_name; |
14094 symbol_c *IN_param_value = &this->default_variable_name; |
14095 |
14095 |
14096 symbol_c *IN_type_symbol = param_data_type; |
14096 symbol_c *IN_type_symbol = param_data_type; |
14097 last_type_symbol = param_data_type; |
14097 last_type_symbol = param_data_type; |
14101 |
14101 |
14102 function_name = (symbol_c*)(new pragma_c("__acos_")); |
14102 function_name = (symbol_c*)(new pragma_c("__acos_")); |
14103 |
14103 |
14104 if (IN_type_symbol == NULL) |
14104 if (IN_type_symbol == NULL) |
14105 IN_type_symbol = last_type_symbol; |
14105 IN_type_symbol = last_type_symbol; |
14106 ADD_PARAM_LIST(&IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) |
14106 ADD_PARAM_LIST(IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) |
14107 symbol_c * return_type_symbol = IN_type_symbol; |
14107 symbol_c * return_type_symbol = IN_type_symbol; |
14108 function_type_suffix = IN_type_symbol; |
14108 function_type_suffix = IN_type_symbol; |
14109 if (search_expression_type->is_literal_real_type(function_type_suffix)) |
14109 if (search_expression_type->is_literal_real_type(function_type_suffix)) |
14110 function_type_suffix = &search_constant_type_c::lreal_type_name; |
14110 function_type_suffix = &search_constant_type_c::lreal_type_name; |
14111 break; |
14111 break; |
14125 case function_atan : |
14125 case function_atan : |
14126 { |
14126 { |
14127 symbol_c *last_type_symbol = NULL; |
14127 symbol_c *last_type_symbol = NULL; |
14128 |
14128 |
14129 { |
14129 { |
14130 identifier_c IN_param_name("IN"); |
14130 symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); |
14131 /* Get the value from a foo(<param_name> = <param_value>) style call */ |
14131 /* Get the value from a foo(<param_name> = <param_value>) style call */ |
14132 symbol_c *IN_param_value = &this->default_variable_name; |
14132 symbol_c *IN_param_value = &this->default_variable_name; |
14133 |
14133 |
14134 symbol_c *IN_type_symbol = param_data_type; |
14134 symbol_c *IN_type_symbol = param_data_type; |
14135 last_type_symbol = param_data_type; |
14135 last_type_symbol = param_data_type; |
14139 |
14139 |
14140 function_name = (symbol_c*)(new pragma_c("__atan_")); |
14140 function_name = (symbol_c*)(new pragma_c("__atan_")); |
14141 |
14141 |
14142 if (IN_type_symbol == NULL) |
14142 if (IN_type_symbol == NULL) |
14143 IN_type_symbol = last_type_symbol; |
14143 IN_type_symbol = last_type_symbol; |
14144 ADD_PARAM_LIST(&IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) |
14144 ADD_PARAM_LIST(IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) |
14145 symbol_c * return_type_symbol = IN_type_symbol; |
14145 symbol_c * return_type_symbol = IN_type_symbol; |
14146 function_type_suffix = IN_type_symbol; |
14146 function_type_suffix = IN_type_symbol; |
14147 if (search_expression_type->is_literal_real_type(function_type_suffix)) |
14147 if (search_expression_type->is_literal_real_type(function_type_suffix)) |
14148 function_type_suffix = &search_constant_type_c::lreal_type_name; |
14148 function_type_suffix = &search_constant_type_c::lreal_type_name; |
14149 break; |
14149 break; |
14163 case function_add : |
14163 case function_add : |
14164 { |
14164 { |
14165 symbol_c *last_type_symbol = NULL; |
14165 symbol_c *last_type_symbol = NULL; |
14166 |
14166 |
14167 { |
14167 { |
14168 identifier_c IN1_param_name("IN1"); |
14168 symbol_c *IN1_param_name = (symbol_c *)(new identifier_c("IN1")); |
14169 /* Get the value from a foo(<param_name> = <param_value>) style call */ |
14169 /* Get the value from a foo(<param_name> = <param_value>) style call */ |
14170 symbol_c *IN1_param_value = &this->default_variable_name; |
14170 symbol_c *IN1_param_value = &this->default_variable_name; |
14171 |
14171 |
14172 symbol_c *IN1_type_symbol = param_data_type; |
14172 symbol_c *IN1_type_symbol = param_data_type; |
14173 last_type_symbol = param_data_type; |
14173 last_type_symbol = param_data_type; |
14174 |
14174 |
14175 if(IN1_type_symbol == NULL || search_expression_type->is_num_type(IN1_type_symbol)) |
14175 if(IN1_type_symbol == NULL || search_expression_type->is_num_type(IN1_type_symbol)) |
14176 { |
14176 { |
14177 |
14177 |
14178 { |
14178 { |
14179 identifier_c IN2_param_name("IN2"); |
14179 symbol_c *IN2_param_name = (symbol_c *)(new identifier_c("IN2")); |
14180 /* Get the value from a foo(<param_name> = <param_value>) style call */ |
14180 /* Get the value from a foo(<param_name> = <param_value>) style call */ |
14181 symbol_c *IN2_param_value = function_call_param_iterator.search_f(&IN2_param_name); |
14181 symbol_c *IN2_param_value = function_call_param_iterator.search_f(IN2_param_name); |
14182 symbol_c *IN2_type_symbol = NULL; |
14182 symbol_c *IN2_type_symbol = NULL; |
14183 |
14183 |
14184 /* Get the value from a foo(<param_value>) style call */ |
14184 /* Get the value from a foo(<param_value>) style call */ |
14185 if (IN2_param_value == NULL) |
14185 if (IN2_param_value == NULL) |
14186 IN2_param_value = function_call_param_iterator.next_nf(); |
14186 IN2_param_value = function_call_param_iterator.next_nf(); |
14196 |
14196 |
14197 if (nb_param < 2) |
14197 if (nb_param < 2) |
14198 nb_param = 2; |
14198 nb_param = 2; |
14199 char* nb_param_str = new char[10]; |
14199 char* nb_param_str = new char[10]; |
14200 sprintf(nb_param_str, "%d", nb_param); |
14200 sprintf(nb_param_str, "%d", nb_param); |
14201 identifier_c nb_param_name("nb_param"); |
14201 symbol_c * nb_param_name = (symbol_c *)(new identifier_c("nb_param")); |
14202 ADD_PARAM_LIST(&nb_param_name, (symbol_c*)(new integer_c((const char *)nb_param_str)), (symbol_c*)(new int_type_name_c()), function_param_iterator_c::direction_in) |
14202 ADD_PARAM_LIST(nb_param_name, (symbol_c*)(new integer_c((const char *)nb_param_str)), (symbol_c*)(new int_type_name_c()), function_param_iterator_c::direction_in) |
14203 |
14203 |
14204 if (IN1_type_symbol == NULL) |
14204 if (IN1_type_symbol == NULL) |
14205 IN1_type_symbol = last_type_symbol; |
14205 IN1_type_symbol = last_type_symbol; |
14206 ADD_PARAM_LIST(&IN1_param_name, IN1_param_value, IN1_type_symbol, function_param_iterator_c::direction_in) |
14206 ADD_PARAM_LIST(IN1_param_name, IN1_param_value, IN1_type_symbol, function_param_iterator_c::direction_in) |
14207 |
14207 |
14208 if (IN2_type_symbol == NULL) |
14208 if (IN2_type_symbol == NULL) |
14209 IN2_type_symbol = last_type_symbol; |
14209 IN2_type_symbol = last_type_symbol; |
14210 ADD_PARAM_LIST(&IN2_param_name, IN2_param_value, IN2_type_symbol, function_param_iterator_c::direction_in) |
14210 ADD_PARAM_LIST(IN2_param_name, IN2_param_value, IN2_type_symbol, function_param_iterator_c::direction_in) |
14211 |
14211 |
14212 int base_num = 3; |
14212 int base_num = 3; |
14213 symbol_c *param_value = NULL; |
14213 symbol_c *param_value = NULL; |
14214 symbol_c *param_name = NULL; |
|
14214 do{ |
14215 do{ |
14215 char my_name[10]; |
14216 char my_name[10]; |
14216 sprintf(my_name, "IN%d", base_num++); |
14217 sprintf(my_name, "IN%d", base_num++); |
14217 identifier_c param_name(my_name); |
14218 param_name = (symbol_c*)(new identifier_c(my_name)); |
14218 |
14219 |
14219 /* Get the value from a foo(<param_name> = <param_value>) style call */ |
14220 /* Get the value from a foo(<param_name> = <param_value>) style call */ |
14220 param_value = function_call_param_iterator.search_f(¶m_name); |
14221 param_value = function_call_param_iterator.search_f(param_name); |
14221 |
14222 |
14222 /* Get the value from a foo(<param_value>) style call */ |
14223 /* Get the value from a foo(<param_value>) style call */ |
14223 if (param_value == NULL) |
14224 if (param_value == NULL) |
14224 param_value = function_call_param_iterator.next_nf(); |
14225 param_value = function_call_param_iterator.next_nf(); |
14225 if (param_value != NULL){ |
14226 if (param_value != NULL){ |
14226 symbol_c *current_type_symbol = search_expression_type->get_type(param_value); |
14227 symbol_c *current_type_symbol = search_expression_type->get_type(param_value); |
14227 last_type_symbol = last_type_symbol && search_expression_type->is_same_type(current_type_symbol, last_type_symbol) ? search_expression_type->common_type(current_type_symbol, last_type_symbol) : current_type_symbol ; |
14228 last_type_symbol = last_type_symbol && search_expression_type->is_same_type(current_type_symbol, last_type_symbol) ? search_expression_type->common_type(current_type_symbol, last_type_symbol) : current_type_symbol ; |
14228 |
14229 |
14229 /*Function specific CODE */ |
14230 /*Function specific CODE */ |
14230 ADD_PARAM_LIST(¶m_name, param_value, current_type_symbol, function_param_iterator_c::direction_in) |
14231 ADD_PARAM_LIST(param_name, param_value, current_type_symbol, function_param_iterator_c::direction_in) |
14231 } |
14232 } |
14232 |
14233 |
14233 }while(param_value != NULL); |
14234 }while(param_value != NULL); |
14234 symbol_c * return_type_symbol = last_type_symbol; |
14235 symbol_c * return_type_symbol = last_type_symbol; |
14235 function_type_suffix = return_type_symbol; |
14236 function_type_suffix = return_type_symbol; |
14245 |
14246 |
14246 if(IN1_type_symbol == NULL || search_expression_type->is_same_type(&search_constant_type_c::dt_type_name, last_type_symbol)) |
14247 if(IN1_type_symbol == NULL || search_expression_type->is_same_type(&search_constant_type_c::dt_type_name, last_type_symbol)) |
14247 { |
14248 { |
14248 |
14249 |
14249 { |
14250 { |
14250 identifier_c IN2_param_name("IN2"); |
14251 symbol_c *IN2_param_name = (symbol_c *)(new identifier_c("IN2")); |
14251 /* Get the value from a foo(<param_name> = <param_value>) style call */ |
14252 /* Get the value from a foo(<param_name> = <param_value>) style call */ |
14252 symbol_c *IN2_param_value = function_call_param_iterator.search_f(&IN2_param_name); |
14253 symbol_c *IN2_param_value = function_call_param_iterator.search_f(IN2_param_name); |
14253 symbol_c *IN2_type_symbol = NULL; |
14254 symbol_c *IN2_type_symbol = NULL; |
14254 |
14255 |
14255 /* Get the value from a foo(<param_value>) style call */ |
14256 /* Get the value from a foo(<param_value>) style call */ |
14256 if (IN2_param_value == NULL) |
14257 if (IN2_param_value == NULL) |
14257 IN2_param_value = function_call_param_iterator.next_nf(); |
14258 IN2_param_value = function_call_param_iterator.next_nf(); |
14265 |
14266 |
14266 function_name = (symbol_c*)(new pragma_c("__time_add")); |
14267 function_name = (symbol_c*)(new pragma_c("__time_add")); |
14267 |
14268 |
14268 if (IN1_type_symbol == NULL) |
14269 if (IN1_type_symbol == NULL) |
14269 IN1_type_symbol = last_type_symbol; |
14270 IN1_type_symbol = last_type_symbol; |
14270 ADD_PARAM_LIST(&IN1_param_name, IN1_param_value, IN1_type_symbol, function_param_iterator_c::direction_in) |
14271 ADD_PARAM_LIST(IN1_param_name, IN1_param_value, IN1_type_symbol, function_param_iterator_c::direction_in) |
14271 |
14272 |
14272 if (IN2_type_symbol == NULL) |
14273 if (IN2_type_symbol == NULL) |
14273 IN2_type_symbol = last_type_symbol; |
14274 IN2_type_symbol = last_type_symbol; |
14274 ADD_PARAM_LIST(&IN2_param_name, IN2_param_value, IN2_type_symbol, function_param_iterator_c::direction_in) |
14275 ADD_PARAM_LIST(IN2_param_name, IN2_param_value, IN2_type_symbol, function_param_iterator_c::direction_in) |
14275 symbol_c * return_type_symbol = &search_constant_type_c::dt_type_name; |
14276 symbol_c * return_type_symbol = &search_constant_type_c::dt_type_name; |
14276 break; |
14277 break; |
14277 |
14278 |
14278 } |
14279 } |
14279 |
14280 |
14285 |
14286 |
14286 if(IN1_type_symbol == NULL || search_expression_type->is_same_type(&search_constant_type_c::tod_type_name, last_type_symbol)) |
14287 if(IN1_type_symbol == NULL || search_expression_type->is_same_type(&search_constant_type_c::tod_type_name, last_type_symbol)) |
14287 { |
14288 { |
14288 |
14289 |
14289 { |
14290 { |
14290 identifier_c IN2_param_name("IN2"); |
14291 symbol_c *IN2_param_name = (symbol_c *)(new identifier_c("IN2")); |
14291 /* Get the value from a foo(<param_name> = <param_value>) style call */ |
14292 /* Get the value from a foo(<param_name> = <param_value>) style call */ |
14292 symbol_c *IN2_param_value = function_call_param_iterator.search_f(&IN2_param_name); |
14293 symbol_c *IN2_param_value = function_call_param_iterator.search_f(IN2_param_name); |
14293 symbol_c *IN2_type_symbol = NULL; |
14294 symbol_c *IN2_type_symbol = NULL; |
14294 |
14295 |
14295 /* Get the value from a foo(<param_value>) style call */ |
14296 /* Get the value from a foo(<param_value>) style call */ |
14296 if (IN2_param_value == NULL) |
14297 if (IN2_param_value == NULL) |
14297 IN2_param_value = function_call_param_iterator.next_nf(); |
14298 IN2_param_value = function_call_param_iterator.next_nf(); |
14305 |
14306 |
14306 function_name = (symbol_c*)(new pragma_c("__time_add")); |
14307 function_name = (symbol_c*)(new pragma_c("__time_add")); |
14307 |
14308 |
14308 if (IN1_type_symbol == NULL) |
14309 if (IN1_type_symbol == NULL) |
14309 IN1_type_symbol = last_type_symbol; |
14310 IN1_type_symbol = last_type_symbol; |
14310 ADD_PARAM_LIST(&IN1_param_name, IN1_param_value, IN1_type_symbol, function_param_iterator_c::direction_in) |
14311 ADD_PARAM_LIST(IN1_param_name, IN1_param_value, IN1_type_symbol, function_param_iterator_c::direction_in) |
14311 |
14312 |
14312 if (IN2_type_symbol == NULL) |
14313 if (IN2_type_symbol == NULL) |
14313 IN2_type_symbol = last_type_symbol; |
14314 IN2_type_symbol = last_type_symbol; |
14314 ADD_PARAM_LIST(&IN2_param_name, IN2_param_value, IN2_type_symbol, function_param_iterator_c::direction_in) |
14315 ADD_PARAM_LIST(IN2_param_name, IN2_param_value, IN2_type_symbol, function_param_iterator_c::direction_in) |
14315 symbol_c * return_type_symbol = &search_constant_type_c::tod_type_name; |
14316 symbol_c * return_type_symbol = &search_constant_type_c::tod_type_name; |
14316 break; |
14317 break; |
14317 |
14318 |
14318 } |
14319 } |
14319 |
14320 |
14325 |
14326 |
14326 if(IN1_type_symbol == NULL || search_expression_type->is_same_type(&search_constant_type_c::time_type_name, last_type_symbol)) |
14327 if(IN1_type_symbol == NULL || search_expression_type->is_same_type(&search_constant_type_c::time_type_name, last_type_symbol)) |
14327 { |
14328 { |
14328 |
14329 |
14329 { |
14330 { |
14330 identifier_c IN2_param_name("IN2"); |
14331 symbol_c *IN2_param_name = (symbol_c *)(new identifier_c("IN2")); |
14331 /* Get the value from a foo(<param_name> = <param_value>) style call */ |
14332 /* Get the value from a foo(<param_name> = <param_value>) style call */ |
14332 symbol_c *IN2_param_value = function_call_param_iterator.search_f(&IN2_param_name); |
14333 symbol_c *IN2_param_value = function_call_param_iterator.search_f(IN2_param_name); |
14333 symbol_c *IN2_type_symbol = NULL; |
14334 symbol_c *IN2_type_symbol = NULL; |
14334 |
14335 |
14335 /* Get the value from a foo(<param_value>) style call */ |
14336 /* Get the value from a foo(<param_value>) style call */ |
14336 if (IN2_param_value == NULL) |
14337 if (IN2_param_value == NULL) |
14337 IN2_param_value = function_call_param_iterator.next_nf(); |
14338 IN2_param_value = function_call_param_iterator.next_nf(); |
14345 |
14346 |
14346 function_name = (symbol_c*)(new pragma_c("__time_add")); |
14347 function_name = (symbol_c*)(new pragma_c("__time_add")); |
14347 |
14348 |
14348 if (IN1_type_symbol == NULL) |
14349 if (IN1_type_symbol == NULL) |
14349 IN1_type_symbol = last_type_symbol; |
14350 IN1_type_symbol = last_type_symbol; |
14350 ADD_PARAM_LIST(&IN1_param_name, IN1_param_value, IN1_type_symbol, function_param_iterator_c::direction_in) |
14351 ADD_PARAM_LIST(IN1_param_name, IN1_param_value, IN1_type_symbol, function_param_iterator_c::direction_in) |
14351 |
14352 |
14352 if (IN2_type_symbol == NULL) |
14353 if (IN2_type_symbol == NULL) |
14353 IN2_type_symbol = last_type_symbol; |
14354 IN2_type_symbol = last_type_symbol; |
14354 ADD_PARAM_LIST(&IN2_param_name, IN2_param_value, IN2_type_symbol, function_param_iterator_c::direction_in) |
14355 ADD_PARAM_LIST(IN2_param_name, IN2_param_value, IN2_type_symbol, function_param_iterator_c::direction_in) |
14355 symbol_c * return_type_symbol = &search_constant_type_c::time_type_name; |
14356 symbol_c * return_type_symbol = &search_constant_type_c::time_type_name; |
14356 break; |
14357 break; |
14357 |
14358 |
14358 } |
14359 } |
14359 |
14360 |
14376 case function_mul : |
14377 case function_mul : |
14377 { |
14378 { |
14378 symbol_c *last_type_symbol = NULL; |
14379 symbol_c *last_type_symbol = NULL; |
14379 |
14380 |
14380 { |
14381 { |
14381 identifier_c IN1_param_name("IN1"); |
14382 symbol_c *IN1_param_name = (symbol_c *)(new identifier_c("IN1")); |
14382 /* Get the value from a foo(<param_name> = <param_value>) style call */ |
14383 /* Get the value from a foo(<param_name> = <param_value>) style call */ |
14383 symbol_c *IN1_param_value = &this->default_variable_name; |
14384 symbol_c *IN1_param_value = &this->default_variable_name; |
14384 |
14385 |
14385 symbol_c *IN1_type_symbol = param_data_type; |
14386 symbol_c *IN1_type_symbol = param_data_type; |
14386 last_type_symbol = param_data_type; |
14387 last_type_symbol = param_data_type; |
14387 |
14388 |
14388 if(IN1_type_symbol == NULL || search_expression_type->is_num_type(IN1_type_symbol)) |
14389 if(IN1_type_symbol == NULL || search_expression_type->is_num_type(IN1_type_symbol)) |
14389 { |
14390 { |
14390 |
14391 |
14391 { |
14392 { |
14392 identifier_c IN2_param_name("IN2"); |
14393 symbol_c *IN2_param_name = (symbol_c *)(new identifier_c("IN2")); |
14393 /* Get the value from a foo(<param_name> = <param_value>) style call */ |
14394 /* Get the value from a foo(<param_name> = <param_value>) style call */ |
14394 symbol_c *IN2_param_value = function_call_param_iterator.search_f(&IN2_param_name); |
14395 symbol_c *IN2_param_value = function_call_param_iterator.search_f(IN2_param_name); |
14395 symbol_c *IN2_type_symbol = NULL; |
14396 symbol_c *IN2_type_symbol = NULL; |
14396 |
14397 |
14397 /* Get the value from a foo(<param_value>) style call */ |
14398 /* Get the value from a foo(<param_value>) style call */ |
14398 if (IN2_param_value == NULL) |
14399 if (IN2_param_value == NULL) |
14399 IN2_param_value = function_call_param_iterator.next_nf(); |
14400 IN2_param_value = function_call_param_iterator.next_nf(); |
14409 |
14410 |
14410 if (nb_param < 2) |
14411 if (nb_param < 2) |
14411 nb_param = 2; |
14412 nb_param = 2; |
14412 char* nb_param_str = new char[10]; |
14413 char* nb_param_str = new char[10]; |
14413 sprintf(nb_param_str, "%d", nb_param); |
14414 sprintf(nb_param_str, "%d", nb_param); |
14414 identifier_c nb_param_name("nb_param"); |
14415 symbol_c * nb_param_name = (symbol_c *)(new identifier_c("nb_param")); |
14415 ADD_PARAM_LIST(&nb_param_name, (symbol_c*)(new integer_c((const char *)nb_param_str)), (symbol_c*)(new int_type_name_c()), function_param_iterator_c::direction_in) |
14416 ADD_PARAM_LIST(nb_param_name, (symbol_c*)(new integer_c((const char *)nb_param_str)), (symbol_c*)(new int_type_name_c()), function_param_iterator_c::direction_in) |
14416 |
14417 |
14417 if (IN1_type_symbol == NULL) |
14418 if (IN1_type_symbol == NULL) |
14418 IN1_type_symbol = last_type_symbol; |
14419 IN1_type_symbol = last_type_symbol; |
14419 ADD_PARAM_LIST(&IN1_param_name, IN1_param_value, IN1_type_symbol, function_param_iterator_c::direction_in) |
14420 ADD_PARAM_LIST(IN1_param_name, IN1_param_value, IN1_type_symbol, function_param_iterator_c::direction_in) |
14420 |
14421 |
14421 if (IN2_type_symbol == NULL) |
14422 if (IN2_type_symbol == NULL) |
14422 IN2_type_symbol = last_type_symbol; |
14423 IN2_type_symbol = last_type_symbol; |
14423 ADD_PARAM_LIST(&IN2_param_name, IN2_param_value, IN2_type_symbol, function_param_iterator_c::direction_in) |
14424 ADD_PARAM_LIST(IN2_param_name, IN2_param_value, IN2_type_symbol, function_param_iterator_c::direction_in) |
14424 |
14425 |
14425 int base_num = 3; |
14426 int base_num = 3; |
14426 symbol_c *param_value = NULL; |
14427 symbol_c *param_value = NULL; |
14428 symbol_c *param_name = NULL; |
|
14427 do{ |
14429 do{ |
14428 char my_name[10]; |
14430 char my_name[10]; |
14429 sprintf(my_name, "IN%d", base_num++); |
14431 sprintf(my_name, "IN%d", base_num++); |
14430 identifier_c param_name(my_name); |
14432 param_name = (symbol_c*)(new identifier_c(my_name)); |
14431 |
14433 |
14432 /* Get the value from a foo(<param_name> = <param_value>) style call */ |
14434 /* Get the value from a foo(<param_name> = <param_value>) style call */ |
14433 param_value = function_call_param_iterator.search_f(¶m_name); |
14435 param_value = function_call_param_iterator.search_f(param_name); |
14434 |
14436 |
14435 /* Get the value from a foo(<param_value>) style call */ |
14437 /* Get the value from a foo(<param_value>) style call */ |
14436 if (param_value == NULL) |
14438 if (param_value == NULL) |
14437 param_value = function_call_param_iterator.next_nf(); |
14439 param_value = function_call_param_iterator.next_nf(); |
14438 if (param_value != NULL){ |
14440 if (param_value != NULL){ |
14439 symbol_c *current_type_symbol = search_expression_type->get_type(param_value); |
14441 symbol_c *current_type_symbol = search_expression_type->get_type(param_value); |
14440 last_type_symbol = last_type_symbol && search_expression_type->is_same_type(current_type_symbol, last_type_symbol) ? search_expression_type->common_type(current_type_symbol, last_type_symbol) : current_type_symbol ; |
14442 last_type_symbol = last_type_symbol && search_expression_type->is_same_type(current_type_symbol, last_type_symbol) ? search_expression_type->common_type(current_type_symbol, last_type_symbol) : current_type_symbol ; |
14441 |
14443 |
14442 /*Function specific CODE */ |
14444 /*Function specific CODE */ |
14443 ADD_PARAM_LIST(¶m_name, param_value, current_type_symbol, function_param_iterator_c::direction_in) |
14445 ADD_PARAM_LIST(param_name, param_value, current_type_symbol, function_param_iterator_c::direction_in) |
14444 } |
14446 } |
14445 |
14447 |
14446 }while(param_value != NULL); |
14448 }while(param_value != NULL); |
14447 symbol_c * return_type_symbol = last_type_symbol; |
14449 symbol_c * return_type_symbol = last_type_symbol; |
14448 function_type_suffix = return_type_symbol; |
14450 function_type_suffix = return_type_symbol; |
14458 |
14460 |
14459 if(IN1_type_symbol == NULL || search_expression_type->is_same_type(&search_constant_type_c::time_type_name, last_type_symbol)) |
14461 if(IN1_type_symbol == NULL || search_expression_type->is_same_type(&search_constant_type_c::time_type_name, last_type_symbol)) |
14460 { |
14462 { |
14461 |
14463 |
14462 { |
14464 { |
14463 identifier_c IN2_param_name("IN2"); |
14465 symbol_c *IN2_param_name = (symbol_c *)(new identifier_c("IN2")); |
14464 /* Get the value from a foo(<param_name> = <param_value>) style call */ |
14466 /* Get the value from a foo(<param_name> = <param_value>) style call */ |
14465 symbol_c *IN2_param_value = function_call_param_iterator.search_f(&IN2_param_name); |
14467 symbol_c *IN2_param_value = function_call_param_iterator.search_f(IN2_param_name); |
14466 symbol_c *IN2_type_symbol = NULL; |
14468 symbol_c *IN2_type_symbol = NULL; |
14467 |
14469 |
14468 /* Get the value from a foo(<param_value>) style call */ |
14470 /* Get the value from a foo(<param_value>) style call */ |
14469 if (IN2_param_value == NULL) |
14471 if (IN2_param_value == NULL) |
14470 IN2_param_value = function_call_param_iterator.next_nf(); |
14472 IN2_param_value = function_call_param_iterator.next_nf(); |
14478 |
14480 |
14479 function_name = (symbol_c*)(new pragma_c("__time_mul")); |
14481 function_name = (symbol_c*)(new pragma_c("__time_mul")); |
14480 |
14482 |
14481 if (IN1_type_symbol == NULL) |
14483 if (IN1_type_symbol == NULL) |
14482 IN1_type_symbol = last_type_symbol; |
14484 IN1_type_symbol = last_type_symbol; |
14483 ADD_PARAM_LIST(&IN1_param_name, IN1_param_value, IN1_type_symbol, function_param_iterator_c::direction_in) |
14485 ADD_PARAM_LIST(IN1_param_name, IN1_param_value, IN1_type_symbol, function_param_iterator_c::direction_in) |
14484 |
14486 |
14485 if (IN2_type_symbol == NULL) |
14487 if (IN2_type_symbol == NULL) |
14486 IN2_type_symbol = last_type_symbol; |
14488 IN2_type_symbol = last_type_symbol; |
14487 ADD_PARAM_LIST(&IN2_param_name, IN2_param_value, IN2_type_symbol, function_param_iterator_c::direction_in) |
14489 ADD_PARAM_LIST(IN2_param_name, IN2_param_value, IN2_type_symbol, function_param_iterator_c::direction_in) |
14488 symbol_c * return_type_symbol = &search_constant_type_c::time_type_name; |
14490 symbol_c * return_type_symbol = &search_constant_type_c::time_type_name; |
14489 if (search_expression_type->is_literal_integer_type(function_type_suffix)) |
14491 if (search_expression_type->is_literal_integer_type(function_type_suffix)) |
14490 function_type_suffix = &search_constant_type_c::lint_type_name; |
14492 function_type_suffix = &search_constant_type_c::lint_type_name; |
14491 break; |
14493 break; |
14492 |
14494 |
14511 case function_sub : |
14513 case function_sub : |
14512 { |
14514 { |
14513 symbol_c *last_type_symbol = NULL; |
14515 symbol_c *last_type_symbol = NULL; |
14514 |
14516 |
14515 { |
14517 { |
14516 identifier_c IN1_param_name("IN1"); |
14518 symbol_c *IN1_param_name = (symbol_c *)(new identifier_c("IN1")); |
14517 /* Get the value from a foo(<param_name> = <param_value>) style call */ |
14519 /* Get the value from a foo(<param_name> = <param_value>) style call */ |
14518 symbol_c *IN1_param_value = &this->default_variable_name; |
14520 symbol_c *IN1_param_value = &this->default_variable_name; |
14519 |
14521 |
14520 symbol_c *IN1_type_symbol = param_data_type; |
14522 symbol_c *IN1_type_symbol = param_data_type; |
14521 last_type_symbol = param_data_type; |
14523 last_type_symbol = param_data_type; |
14522 |
14524 |
14523 if(IN1_type_symbol == NULL || search_expression_type->is_num_type(IN1_type_symbol)) |
14525 if(IN1_type_symbol == NULL || search_expression_type->is_num_type(IN1_type_symbol)) |
14524 { |
14526 { |
14525 |
14527 |
14526 { |
14528 { |
14527 identifier_c IN2_param_name("IN2"); |
14529 symbol_c *IN2_param_name = (symbol_c *)(new identifier_c("IN2")); |
14528 /* Get the value from a foo(<param_name> = <param_value>) style call */ |
14530 /* Get the value from a foo(<param_name> = <param_value>) style call */ |
14529 symbol_c *IN2_param_value = function_call_param_iterator.search_f(&IN2_param_name); |
14531 symbol_c *IN2_param_value = function_call_param_iterator.search_f(IN2_param_name); |
14530 symbol_c *IN2_type_symbol = NULL; |
14532 symbol_c *IN2_type_symbol = NULL; |
14531 |
14533 |
14532 /* Get the value from a foo(<param_value>) style call */ |
14534 /* Get the value from a foo(<param_value>) style call */ |
14533 if (IN2_param_value == NULL) |
14535 if (IN2_param_value == NULL) |
14534 IN2_param_value = function_call_param_iterator.next_nf(); |
14536 IN2_param_value = function_call_param_iterator.next_nf(); |
14542 |
14544 |
14543 function_name = (symbol_c*)(new pragma_c("__sub_")); |
14545 function_name = (symbol_c*)(new pragma_c("__sub_")); |
14544 |
14546 |
14545 if (IN1_type_symbol == NULL) |
14547 if (IN1_type_symbol == NULL) |
14546 IN1_type_symbol = last_type_symbol; |
14548 IN1_type_symbol = last_type_symbol; |
14547 ADD_PARAM_LIST(&IN1_param_name, IN1_param_value, IN1_type_symbol, function_param_iterator_c::direction_in) |
14549 ADD_PARAM_LIST(IN1_param_name, IN1_param_value, IN1_type_symbol, function_param_iterator_c::direction_in) |
14548 |
14550 |
14549 if (IN2_type_symbol == NULL) |
14551 if (IN2_type_symbol == NULL) |
14550 IN2_type_symbol = last_type_symbol; |
14552 IN2_type_symbol = last_type_symbol; |
14551 ADD_PARAM_LIST(&IN2_param_name, IN2_param_value, IN2_type_symbol, function_param_iterator_c::direction_in) |
14553 ADD_PARAM_LIST(IN2_param_name, IN2_param_value, IN2_type_symbol, function_param_iterator_c::direction_in) |
14552 symbol_c * return_type_symbol = last_type_symbol; |
14554 symbol_c * return_type_symbol = last_type_symbol; |
14553 function_type_suffix = return_type_symbol; |
14555 function_type_suffix = return_type_symbol; |
14554 break; |
14556 break; |
14555 |
14557 |
14556 } |
14558 } |
14563 |
14565 |
14564 if(IN1_type_symbol == NULL || search_expression_type->is_same_type(&search_constant_type_c::date_type_name, last_type_symbol)) |
14566 if(IN1_type_symbol == NULL || search_expression_type->is_same_type(&search_constant_type_c::date_type_name, last_type_symbol)) |
14565 { |
14567 { |
14566 |
14568 |
14567 { |
14569 { |
14568 identifier_c IN2_param_name("IN2"); |
14570 symbol_c *IN2_param_name = (symbol_c *)(new identifier_c("IN2")); |
14569 /* Get the value from a foo(<param_name> = <param_value>) style call */ |
14571 /* Get the value from a foo(<param_name> = <param_value>) style call */ |
14570 symbol_c *IN2_param_value = function_call_param_iterator.search_f(&IN2_param_name); |
14572 symbol_c *IN2_param_value = function_call_param_iterator.search_f(IN2_param_name); |
14571 symbol_c *IN2_type_symbol = NULL; |
14573 symbol_c *IN2_type_symbol = NULL; |
14572 |
14574 |
14573 /* Get the value from a foo(<param_value>) style call */ |
14575 /* Get the value from a foo(<param_value>) style call */ |
14574 if (IN2_param_value == NULL) |
14576 if (IN2_param_value == NULL) |
14575 IN2_param_value = function_call_param_iterator.next_nf(); |
14577 IN2_param_value = function_call_param_iterator.next_nf(); |
14583 |
14585 |
14584 function_name = (symbol_c*)(new pragma_c("__time_sub")); |
14586 function_name = (symbol_c*)(new pragma_c("__time_sub")); |
14585 |
14587 |
14586 if (IN1_type_symbol == NULL) |
14588 if (IN1_type_symbol == NULL) |
14587 IN1_type_symbol = last_type_symbol; |
14589 IN1_type_symbol = last_type_symbol; |
14588 ADD_PARAM_LIST(&IN1_param_name, IN1_param_value, IN1_type_symbol, function_param_iterator_c::direction_in) |
14590 ADD_PARAM_LIST(IN1_param_name, IN1_param_value, IN1_type_symbol, function_param_iterator_c::direction_in) |
14589 |
14591 |
14590 if (IN2_type_symbol == NULL) |
14592 if (IN2_type_symbol == NULL) |
14591 IN2_type_symbol = last_type_symbol; |
14593 IN2_type_symbol = last_type_symbol; |
14592 ADD_PARAM_LIST(&IN2_param_name, IN2_param_value, IN2_type_symbol, function_param_iterator_c::direction_in) |
14594 ADD_PARAM_LIST(IN2_param_name, IN2_param_value, IN2_type_symbol, function_param_iterator_c::direction_in) |
14593 symbol_c * return_type_symbol = &search_constant_type_c::time_type_name; |
14595 symbol_c * return_type_symbol = &search_constant_type_c::time_type_name; |
14594 break; |
14596 break; |
14595 |
14597 |
14596 } |
14598 } |
14597 |
14599 |
14603 |
14605 |
14604 if(IN1_type_symbol == NULL || search_expression_type->is_same_type(&search_constant_type_c::dt_type_name, last_type_symbol)) |
14606 if(IN1_type_symbol == NULL || search_expression_type->is_same_type(&search_constant_type_c::dt_type_name, last_type_symbol)) |
14605 { |
14607 { |
14606 |
14608 |
14607 { |
14609 { |
14608 identifier_c IN2_param_name("IN2"); |
14610 symbol_c *IN2_param_name = (symbol_c *)(new identifier_c("IN2")); |
14609 /* Get the value from a foo(<param_name> = <param_value>) style call */ |
14611 /* Get the value from a foo(<param_name> = <param_value>) style call */ |
14610 symbol_c *IN2_param_value = function_call_param_iterator.search_f(&IN2_param_name); |
14612 symbol_c *IN2_param_value = function_call_param_iterator.search_f(IN2_param_name); |
14611 symbol_c *IN2_type_symbol = NULL; |
14613 symbol_c *IN2_type_symbol = NULL; |
14612 |
14614 |
14613 /* Get the value from a foo(<param_value>) style call */ |
14615 /* Get the value from a foo(<param_value>) style call */ |
14614 if (IN2_param_value == NULL) |
14616 if (IN2_param_value == NULL) |
14615 IN2_param_value = function_call_param_iterator.next_nf(); |
14617 IN2_param_value = function_call_param_iterator.next_nf(); |
14623 |
14625 |
14624 function_name = (symbol_c*)(new pragma_c("__time_sub")); |
14626 function_name = (symbol_c*)(new pragma_c("__time_sub")); |
14625 |
14627 |
14626 if (IN1_type_symbol == NULL) |
14628 if (IN1_type_symbol == NULL) |
14627 IN1_type_symbol = last_type_symbol; |
14629 IN1_type_symbol = last_type_symbol; |
14628 ADD_PARAM_LIST(&IN1_param_name, IN1_param_value, IN1_type_symbol, function_param_iterator_c::direction_in) |
14630 ADD_PARAM_LIST(IN1_param_name, IN1_param_value, IN1_type_symbol, function_param_iterator_c::direction_in) |
14629 |
14631 |
14630 if (IN2_type_symbol == NULL) |
14632 if (IN2_type_symbol == NULL) |
14631 IN2_type_symbol = last_type_symbol; |
14633 IN2_type_symbol = last_type_symbol; |
14632 ADD_PARAM_LIST(&IN2_param_name, IN2_param_value, IN2_type_symbol, function_param_iterator_c::direction_in) |
14634 ADD_PARAM_LIST(IN2_param_name, IN2_param_value, IN2_type_symbol, function_param_iterator_c::direction_in) |
14633 symbol_c * return_type_symbol = &search_constant_type_c::time_type_name; |
14635 symbol_c * return_type_symbol = &search_constant_type_c::time_type_name; |
14634 break; |
14636 break; |
14635 |
14637 |
14636 } |
14638 } |
14637 |
14639 |
14640 |
14642 |
14641 function_name = (symbol_c*)(new pragma_c("__time_sub")); |
14643 function_name = (symbol_c*)(new pragma_c("__time_sub")); |
14642 |
14644 |
14643 if (IN1_type_symbol == NULL) |
14645 if (IN1_type_symbol == NULL) |
14644 IN1_type_symbol = last_type_symbol; |
14646 IN1_type_symbol = last_type_symbol; |
14645 ADD_PARAM_LIST(&IN1_param_name, IN1_param_value, IN1_type_symbol, function_param_iterator_c::direction_in) |
14647 ADD_PARAM_LIST(IN1_param_name, IN1_param_value, IN1_type_symbol, function_param_iterator_c::direction_in) |
14646 |
14648 |
14647 if (IN2_type_symbol == NULL) |
14649 if (IN2_type_symbol == NULL) |
14648 IN2_type_symbol = last_type_symbol; |
14650 IN2_type_symbol = last_type_symbol; |
14649 ADD_PARAM_LIST(&IN2_param_name, IN2_param_value, IN2_type_symbol, function_param_iterator_c::direction_in) |
14651 ADD_PARAM_LIST(IN2_param_name, IN2_param_value, IN2_type_symbol, function_param_iterator_c::direction_in) |
14650 symbol_c * return_type_symbol = &search_constant_type_c::dt_type_name; |
14652 symbol_c * return_type_symbol = &search_constant_type_c::dt_type_name; |
14651 break; |
14653 break; |
14652 |
14654 |
14653 } |
14655 } |
14654 |
14656 |
14660 |
14662 |
14661 if(IN1_type_symbol == NULL || search_expression_type->is_same_type(&search_constant_type_c::tod_type_name, last_type_symbol)) |
14663 if(IN1_type_symbol == NULL || search_expression_type->is_same_type(&search_constant_type_c::tod_type_name, last_type_symbol)) |
14662 { |
14664 { |
14663 |
14665 |
14664 { |
14666 { |
14665 identifier_c IN2_param_name("IN2"); |
14667 symbol_c *IN2_param_name = (symbol_c *)(new identifier_c("IN2")); |
14666 /* Get the value from a foo(<param_name> = <param_value>) style call */ |
14668 /* Get the value from a foo(<param_name> = <param_value>) style call */ |
14667 symbol_c *IN2_param_value = function_call_param_iterator.search_f(&IN2_param_name); |
14669 symbol_c *IN2_param_value = function_call_param_iterator.search_f(IN2_param_name); |
14668 symbol_c *IN2_type_symbol = NULL; |
14670 symbol_c *IN2_type_symbol = NULL; |
14669 |
14671 |
14670 /* Get the value from a foo(<param_value>) style call */ |
14672 /* Get the value from a foo(<param_value>) style call */ |
14671 if (IN2_param_value == NULL) |
14673 if (IN2_param_value == NULL) |
14672 IN2_param_value = function_call_param_iterator.next_nf(); |
14674 IN2_param_value = function_call_param_iterator.next_nf(); |
14680 |
14682 |
14681 function_name = (symbol_c*)(new pragma_c("__time_sub")); |
14683 function_name = (symbol_c*)(new pragma_c("__time_sub")); |
14682 |
14684 |
14683 if (IN1_type_symbol == NULL) |
14685 if (IN1_type_symbol == NULL) |
14684 IN1_type_symbol = last_type_symbol; |
14686 IN1_type_symbol = last_type_symbol; |
14685 ADD_PARAM_LIST(&IN1_param_name, IN1_param_value, IN1_type_symbol, function_param_iterator_c::direction_in) |
14687 ADD_PARAM_LIST(IN1_param_name, IN1_param_value, IN1_type_symbol, function_param_iterator_c::direction_in) |
14686 |
14688 |
14687 if (IN2_type_symbol == NULL) |
14689 if (IN2_type_symbol == NULL) |
14688 IN2_type_symbol = last_type_symbol; |
14690 IN2_type_symbol = last_type_symbol; |
14689 ADD_PARAM_LIST(&IN2_param_name, IN2_param_value, IN2_type_symbol, function_param_iterator_c::direction_in) |
14691 ADD_PARAM_LIST(IN2_param_name, IN2_param_value, IN2_type_symbol, function_param_iterator_c::direction_in) |
14690 symbol_c * return_type_symbol = &search_constant_type_c::time_type_name; |
14692 symbol_c * return_type_symbol = &search_constant_type_c::time_type_name; |
14691 break; |
14693 break; |
14692 |
14694 |
14693 } |
14695 } |
14694 |
14696 |
14697 |
14699 |
14698 function_name = (symbol_c*)(new pragma_c("__time_sub")); |
14700 function_name = (symbol_c*)(new pragma_c("__time_sub")); |
14699 |
14701 |
14700 if (IN1_type_symbol == NULL) |
14702 if (IN1_type_symbol == NULL) |
14701 IN1_type_symbol = last_type_symbol; |
14703 IN1_type_symbol = last_type_symbol; |
14702 ADD_PARAM_LIST(&IN1_param_name, IN1_param_value, IN1_type_symbol, function_param_iterator_c::direction_in) |
14704 ADD_PARAM_LIST(IN1_param_name, IN1_param_value, IN1_type_symbol, function_param_iterator_c::direction_in) |
14703 |
14705 |
14704 if (IN2_type_symbol == NULL) |
14706 if (IN2_type_symbol == NULL) |
14705 IN2_type_symbol = last_type_symbol; |
14707 IN2_type_symbol = last_type_symbol; |
14706 ADD_PARAM_LIST(&IN2_param_name, IN2_param_value, IN2_type_symbol, function_param_iterator_c::direction_in) |
14708 ADD_PARAM_LIST(IN2_param_name, IN2_param_value, IN2_type_symbol, function_param_iterator_c::direction_in) |
14707 symbol_c * return_type_symbol = &search_constant_type_c::tod_type_name; |
14709 symbol_c * return_type_symbol = &search_constant_type_c::tod_type_name; |
14708 break; |
14710 break; |
14709 |
14711 |
14710 } |
14712 } |
14711 |
14713 |
14717 |
14719 |
14718 if(IN1_type_symbol == NULL || search_expression_type->is_same_type(&search_constant_type_c::time_type_name, last_type_symbol)) |
14720 if(IN1_type_symbol == NULL || search_expression_type->is_same_type(&search_constant_type_c::time_type_name, last_type_symbol)) |
14719 { |
14721 { |
14720 |
14722 |
14721 { |
14723 { |
14722 identifier_c IN2_param_name("IN2"); |
14724 symbol_c *IN2_param_name = (symbol_c *)(new identifier_c("IN2")); |
14723 /* Get the value from a foo(<param_name> = <param_value>) style call */ |
14725 /* Get the value from a foo(<param_name> = <param_value>) style call */ |
14724 symbol_c *IN2_param_value = function_call_param_iterator.search_f(&IN2_param_name); |
14726 symbol_c *IN2_param_value = function_call_param_iterator.search_f(IN2_param_name); |
14725 symbol_c *IN2_type_symbol = NULL; |
14727 symbol_c *IN2_type_symbol = NULL; |
14726 |
14728 |
14727 /* Get the value from a foo(<param_value>) style call */ |
14729 /* Get the value from a foo(<param_value>) style call */ |
14728 if (IN2_param_value == NULL) |
14730 if (IN2_param_value == NULL) |
14729 IN2_param_value = function_call_param_iterator.next_nf(); |
14731 IN2_param_value = function_call_param_iterator.next_nf(); |
14737 |
14739 |
14738 function_name = (symbol_c*)(new pragma_c("__time_sub")); |
14740 function_name = (symbol_c*)(new pragma_c("__time_sub")); |
14739 |
14741 |
14740 if (IN1_type_symbol == NULL) |
14742 if (IN1_type_symbol == NULL) |
14741 IN1_type_symbol = last_type_symbol; |
14743 IN1_type_symbol = last_type_symbol; |
14742 ADD_PARAM_LIST(&IN1_param_name, IN1_param_value, IN1_type_symbol, function_param_iterator_c::direction_in) |
14744 ADD_PARAM_LIST(IN1_param_name, IN1_param_value, IN1_type_symbol, function_param_iterator_c::direction_in) |
14743 |
14745 |
14744 if (IN2_type_symbol == NULL) |
14746 if (IN2_type_symbol == NULL) |
14745 IN2_type_symbol = last_type_symbol; |
14747 IN2_type_symbol = last_type_symbol; |
14746 ADD_PARAM_LIST(&IN2_param_name, IN2_param_value, IN2_type_symbol, function_param_iterator_c::direction_in) |
14748 ADD_PARAM_LIST(IN2_param_name, IN2_param_value, IN2_type_symbol, function_param_iterator_c::direction_in) |
14747 symbol_c * return_type_symbol = &search_constant_type_c::time_type_name; |
14749 symbol_c * return_type_symbol = &search_constant_type_c::time_type_name; |
14748 break; |
14750 break; |
14749 |
14751 |
14750 } |
14752 } |
14751 |
14753 |
14768 case function_div : |
14770 case function_div : |
14769 { |
14771 { |
14770 symbol_c *last_type_symbol = NULL; |
14772 symbol_c *last_type_symbol = NULL; |
14771 |
14773 |
14772 { |
14774 { |
14773 identifier_c IN1_param_name("IN1"); |
14775 symbol_c *IN1_param_name = (symbol_c *)(new identifier_c("IN1")); |
14774 /* Get the value from a foo(<param_name> = <param_value>) style call */ |
14776 /* Get the value from a foo(<param_name> = <param_value>) style call */ |
14775 symbol_c *IN1_param_value = &this->default_variable_name; |
14777 symbol_c *IN1_param_value = &this->default_variable_name; |
14776 |
14778 |
14777 symbol_c *IN1_type_symbol = param_data_type; |
14779 symbol_c *IN1_type_symbol = param_data_type; |
14778 last_type_symbol = param_data_type; |
14780 last_type_symbol = param_data_type; |
14779 |
14781 |
14780 if(IN1_type_symbol == NULL || search_expression_type->is_num_type(IN1_type_symbol)) |
14782 if(IN1_type_symbol == NULL || search_expression_type->is_num_type(IN1_type_symbol)) |
14781 { |
14783 { |
14782 |
14784 |
14783 { |
14785 { |
14784 identifier_c IN2_param_name("IN2"); |
14786 symbol_c *IN2_param_name = (symbol_c *)(new identifier_c("IN2")); |
14785 /* Get the value from a foo(<param_name> = <param_value>) style call */ |
14787 /* Get the value from a foo(<param_name> = <param_value>) style call */ |
14786 symbol_c *IN2_param_value = function_call_param_iterator.search_f(&IN2_param_name); |
14788 symbol_c *IN2_param_value = function_call_param_iterator.search_f(IN2_param_name); |
14787 symbol_c *IN2_type_symbol = NULL; |
14789 symbol_c *IN2_type_symbol = NULL; |
14788 |
14790 |
14789 /* Get the value from a foo(<param_value>) style call */ |
14791 /* Get the value from a foo(<param_value>) style call */ |
14790 if (IN2_param_value == NULL) |
14792 if (IN2_param_value == NULL) |
14791 IN2_param_value = function_call_param_iterator.next_nf(); |
14793 IN2_param_value = function_call_param_iterator.next_nf(); |
14799 |
14801 |
14800 function_name = (symbol_c*)(new pragma_c("__div_")); |
14802 function_name = (symbol_c*)(new pragma_c("__div_")); |
14801 |
14803 |
14802 if (IN1_type_symbol == NULL) |
14804 if (IN1_type_symbol == NULL) |
14803 IN1_type_symbol = last_type_symbol; |
14805 IN1_type_symbol = last_type_symbol; |
14804 ADD_PARAM_LIST(&IN1_param_name, IN1_param_value, IN1_type_symbol, function_param_iterator_c::direction_in) |
14806 ADD_PARAM_LIST(IN1_param_name, IN1_param_value, IN1_type_symbol, function_param_iterator_c::direction_in) |
14805 |
14807 |
14806 if (IN2_type_symbol == NULL) |
14808 if (IN2_type_symbol == NULL) |
14807 IN2_type_symbol = last_type_symbol; |
14809 IN2_type_symbol = last_type_symbol; |
14808 ADD_PARAM_LIST(&IN2_param_name, IN2_param_value, IN2_type_symbol, function_param_iterator_c::direction_in) |
14810 ADD_PARAM_LIST(IN2_param_name, IN2_param_value, IN2_type_symbol, function_param_iterator_c::direction_in) |
14809 symbol_c * return_type_symbol = last_type_symbol; |
14811 symbol_c * return_type_symbol = last_type_symbol; |
14810 function_type_suffix = return_type_symbol; |
14812 function_type_suffix = return_type_symbol; |
14811 break; |
14813 break; |
14812 |
14814 |
14813 } |
14815 } |
14820 |
14822 |
14821 if(IN1_type_symbol == NULL || search_expression_type->is_same_type(&search_constant_type_c::time_type_name, last_type_symbol)) |
14823 if(IN1_type_symbol == NULL || search_expression_type->is_same_type(&search_constant_type_c::time_type_name, last_type_symbol)) |
14822 { |
14824 { |
14823 |
14825 |
14824 { |
14826 { |
14825 identifier_c IN2_param_name("IN2"); |
14827 symbol_c *IN2_param_name = (symbol_c *)(new identifier_c("IN2")); |
14826 /* Get the value from a foo(<param_name> = <param_value>) style call */ |
14828 /* Get the value from a foo(<param_name> = <param_value>) style call */ |
14827 symbol_c *IN2_param_value = function_call_param_iterator.search_f(&IN2_param_name); |
14829 symbol_c *IN2_param_value = function_call_param_iterator.search_f(IN2_param_name); |
14828 symbol_c *IN2_type_symbol = NULL; |
14830 symbol_c *IN2_type_symbol = NULL; |
14829 |
14831 |
14830 /* Get the value from a foo(<param_value>) style call */ |
14832 /* Get the value from a foo(<param_value>) style call */ |
14831 if (IN2_param_value == NULL) |
14833 if (IN2_param_value == NULL) |
14832 IN2_param_value = function_call_param_iterator.next_nf(); |
14834 IN2_param_value = function_call_param_iterator.next_nf(); |
14840 |
14842 |
14841 function_name = (symbol_c*)(new pragma_c("__time_div")); |
14843 function_name = (symbol_c*)(new pragma_c("__time_div")); |
14842 |
14844 |
14843 if (IN1_type_symbol == NULL) |
14845 if (IN1_type_symbol == NULL) |
14844 IN1_type_symbol = last_type_symbol; |
14846 IN1_type_symbol = last_type_symbol; |
14845 ADD_PARAM_LIST(&IN1_param_name, IN1_param_value, IN1_type_symbol, function_param_iterator_c::direction_in) |
14847 ADD_PARAM_LIST(IN1_param_name, IN1_param_value, IN1_type_symbol, function_param_iterator_c::direction_in) |
14846 |
14848 |
14847 if (IN2_type_symbol == NULL) |
14849 if (IN2_type_symbol == NULL) |
14848 IN2_type_symbol = last_type_symbol; |
14850 IN2_type_symbol = last_type_symbol; |
14849 ADD_PARAM_LIST(&IN2_param_name, IN2_param_value, IN2_type_symbol, function_param_iterator_c::direction_in) |
14851 ADD_PARAM_LIST(IN2_param_name, IN2_param_value, IN2_type_symbol, function_param_iterator_c::direction_in) |
14850 symbol_c * return_type_symbol = &search_constant_type_c::time_type_name; |
14852 symbol_c * return_type_symbol = &search_constant_type_c::time_type_name; |
14851 if (search_expression_type->is_literal_integer_type(function_type_suffix)) |
14853 if (search_expression_type->is_literal_integer_type(function_type_suffix)) |
14852 function_type_suffix = &search_constant_type_c::lint_type_name; |
14854 function_type_suffix = &search_constant_type_c::lint_type_name; |
14853 break; |
14855 break; |
14854 |
14856 |
14873 case function_mod : |
14875 case function_mod : |
14874 { |
14876 { |
14875 symbol_c *last_type_symbol = NULL; |
14877 symbol_c *last_type_symbol = NULL; |
14876 |
14878 |
14877 { |
14879 { |
14878 identifier_c IN1_param_name("IN1"); |
14880 symbol_c *IN1_param_name = (symbol_c *)(new identifier_c("IN1")); |
14879 /* Get the value from a foo(<param_name> = <param_value>) style call */ |
14881 /* Get the value from a foo(<param_name> = <param_value>) style call */ |
14880 symbol_c *IN1_param_value = &this->default_variable_name; |
14882 symbol_c *IN1_param_value = &this->default_variable_name; |
14881 |
14883 |
14882 symbol_c *IN1_type_symbol = param_data_type; |
14884 symbol_c *IN1_type_symbol = param_data_type; |
14883 last_type_symbol = param_data_type; |
14885 last_type_symbol = param_data_type; |
14884 |
14886 |
14885 if(IN1_type_symbol == NULL || search_expression_type->is_num_type(IN1_type_symbol)) |
14887 if(IN1_type_symbol == NULL || search_expression_type->is_num_type(IN1_type_symbol)) |
14886 { |
14888 { |
14887 |
14889 |
14888 { |
14890 { |
14889 identifier_c IN2_param_name("IN2"); |
14891 symbol_c *IN2_param_name = (symbol_c *)(new identifier_c("IN2")); |
14890 /* Get the value from a foo(<param_name> = <param_value>) style call */ |
14892 /* Get the value from a foo(<param_name> = <param_value>) style call */ |
14891 symbol_c *IN2_param_value = function_call_param_iterator.search_f(&IN2_param_name); |
14893 symbol_c *IN2_param_value = function_call_param_iterator.search_f(IN2_param_name); |
14892 symbol_c *IN2_type_symbol = NULL; |
14894 symbol_c *IN2_type_symbol = NULL; |
14893 |
14895 |
14894 /* Get the value from a foo(<param_value>) style call */ |
14896 /* Get the value from a foo(<param_value>) style call */ |
14895 if (IN2_param_value == NULL) |
14897 if (IN2_param_value == NULL) |
14896 IN2_param_value = function_call_param_iterator.next_nf(); |
14898 IN2_param_value = function_call_param_iterator.next_nf(); |
14904 |
14906 |
14905 function_name = (symbol_c*)(new pragma_c("__mod_")); |
14907 function_name = (symbol_c*)(new pragma_c("__mod_")); |
14906 |
14908 |
14907 if (IN1_type_symbol == NULL) |
14909 if (IN1_type_symbol == NULL) |
14908 IN1_type_symbol = last_type_symbol; |
14910 IN1_type_symbol = last_type_symbol; |
14909 ADD_PARAM_LIST(&IN1_param_name, IN1_param_value, IN1_type_symbol, function_param_iterator_c::direction_in) |
14911 ADD_PARAM_LIST(IN1_param_name, IN1_param_value, IN1_type_symbol, function_param_iterator_c::direction_in) |
14910 |
14912 |
14911 if (IN2_type_symbol == NULL) |
14913 if (IN2_type_symbol == NULL) |
14912 IN2_type_symbol = last_type_symbol; |
14914 IN2_type_symbol = last_type_symbol; |
14913 ADD_PARAM_LIST(&IN2_param_name, IN2_param_value, IN2_type_symbol, function_param_iterator_c::direction_in) |
14915 ADD_PARAM_LIST(IN2_param_name, IN2_param_value, IN2_type_symbol, function_param_iterator_c::direction_in) |
14914 symbol_c * return_type_symbol = last_type_symbol; |
14916 symbol_c * return_type_symbol = last_type_symbol; |
14915 function_type_suffix = return_type_symbol; |
14917 function_type_suffix = return_type_symbol; |
14916 break; |
14918 break; |
14917 |
14919 |
14918 } |
14920 } |
14936 case function_expt : |
14938 case function_expt : |
14937 { |
14939 { |
14938 symbol_c *last_type_symbol = NULL; |
14940 symbol_c *last_type_symbol = NULL; |
14939 |
14941 |
14940 { |
14942 { |
14941 identifier_c IN1_param_name("IN1"); |
14943 symbol_c *IN1_param_name = (symbol_c *)(new identifier_c("IN1")); |
14942 /* Get the value from a foo(<param_name> = <param_value>) style call */ |
14944 /* Get the value from a foo(<param_name> = <param_value>) style call */ |
14943 symbol_c *IN1_param_value = &this->default_variable_name; |
14945 symbol_c *IN1_param_value = &this->default_variable_name; |
14944 |
14946 |
14945 symbol_c *IN1_type_symbol = param_data_type; |
14947 symbol_c *IN1_type_symbol = param_data_type; |
14946 last_type_symbol = param_data_type; |
14948 last_type_symbol = param_data_type; |
14947 |
14949 |
14948 if(IN1_type_symbol == NULL || search_expression_type->is_real_type(IN1_type_symbol)) |
14950 if(IN1_type_symbol == NULL || search_expression_type->is_real_type(IN1_type_symbol)) |
14949 { |
14951 { |
14950 |
14952 |
14951 { |
14953 { |
14952 identifier_c IN2_param_name("IN2"); |
14954 symbol_c *IN2_param_name = (symbol_c *)(new identifier_c("IN2")); |
14953 /* Get the value from a foo(<param_name> = <param_value>) style call */ |
14955 /* Get the value from a foo(<param_name> = <param_value>) style call */ |
14954 symbol_c *IN2_param_value = function_call_param_iterator.search_f(&IN2_param_name); |
14956 symbol_c *IN2_param_value = function_call_param_iterator.search_f(IN2_param_name); |
14955 symbol_c *IN2_type_symbol = NULL; |
14957 symbol_c *IN2_type_symbol = NULL; |
14956 |
14958 |
14957 /* Get the value from a foo(<param_value>) style call */ |
14959 /* Get the value from a foo(<param_value>) style call */ |
14958 if (IN2_param_value == NULL) |
14960 if (IN2_param_value == NULL) |
14959 IN2_param_value = function_call_param_iterator.next_nf(); |
14961 IN2_param_value = function_call_param_iterator.next_nf(); |
14967 |
14969 |
14968 function_name = (symbol_c*)(new pragma_c("__expt_")); |
14970 function_name = (symbol_c*)(new pragma_c("__expt_")); |
14969 |
14971 |
14970 if (IN1_type_symbol == NULL) |
14972 if (IN1_type_symbol == NULL) |
14971 IN1_type_symbol = last_type_symbol; |
14973 IN1_type_symbol = last_type_symbol; |
14972 ADD_PARAM_LIST(&IN1_param_name, IN1_param_value, IN1_type_symbol, function_param_iterator_c::direction_in) |
14974 ADD_PARAM_LIST(IN1_param_name, IN1_param_value, IN1_type_symbol, function_param_iterator_c::direction_in) |
14973 |
14975 |
14974 if (IN2_type_symbol == NULL) |
14976 if (IN2_type_symbol == NULL) |
14975 IN2_type_symbol = last_type_symbol; |
14977 IN2_type_symbol = last_type_symbol; |
14976 ADD_PARAM_LIST(&IN2_param_name, IN2_param_value, IN2_type_symbol, function_param_iterator_c::direction_in) |
14978 ADD_PARAM_LIST(IN2_param_name, IN2_param_value, IN2_type_symbol, function_param_iterator_c::direction_in) |
14977 symbol_c * return_type_symbol = last_type_symbol; |
14979 symbol_c * return_type_symbol = last_type_symbol; |
14978 function_type_suffix = IN1_type_symbol; |
14980 function_type_suffix = IN1_type_symbol; |
14979 break; |
14981 break; |
14980 |
14982 |
14981 } |
14983 } |
14999 case function_move : |
15001 case function_move : |
15000 { |
15002 { |
15001 symbol_c *last_type_symbol = NULL; |
15003 symbol_c *last_type_symbol = NULL; |
15002 |
15004 |
15003 { |
15005 { |
15004 identifier_c IN_param_name("IN"); |
15006 symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); |
15005 /* Get the value from a foo(<param_name> = <param_value>) style call */ |
15007 /* Get the value from a foo(<param_name> = <param_value>) style call */ |
15006 symbol_c *IN_param_value = &this->default_variable_name; |
15008 symbol_c *IN_param_value = &this->default_variable_name; |
15007 |
15009 |
15008 symbol_c *IN_type_symbol = param_data_type; |
15010 symbol_c *IN_type_symbol = param_data_type; |
15009 last_type_symbol = param_data_type; |
15011 last_type_symbol = param_data_type; |
15010 |
15012 |
15011 |
15013 |
15012 { |
15014 { |
15013 |
15015 |
15014 function_name = (symbol_c*)(new pragma_c("__move_")); |
15016 function_name = (symbol_c*)(new pragma_c("__move_")); |
15015 |
15017 |
15016 if (IN_type_symbol == NULL) |
15018 if (IN_type_symbol == NULL) |
15017 IN_type_symbol = last_type_symbol; |
15019 IN_type_symbol = last_type_symbol; |
15018 ADD_PARAM_LIST(&IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) |
15020 ADD_PARAM_LIST(IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) |
15019 symbol_c * return_type_symbol = last_type_symbol; |
15021 symbol_c * return_type_symbol = last_type_symbol; |
15020 function_type_suffix = return_type_symbol; |
15022 function_type_suffix = return_type_symbol; |
15021 if (search_expression_type->is_literal_integer_type(function_type_suffix)) |
15023 if (search_expression_type->is_literal_integer_type(function_type_suffix)) |
15022 function_type_suffix = &search_constant_type_c::lint_type_name; |
15024 function_type_suffix = &search_constant_type_c::lint_type_name; |
15023 else if (search_expression_type->is_literal_real_type(function_type_suffix)) |
15025 else if (search_expression_type->is_literal_real_type(function_type_suffix)) |
15039 case function_shl : |
15041 case function_shl : |
15040 { |
15042 { |
15041 symbol_c *last_type_symbol = NULL; |
15043 symbol_c *last_type_symbol = NULL; |
15042 |
15044 |
15043 { |
15045 { |
15044 identifier_c IN_param_name("IN"); |
15046 symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); |
15045 /* Get the value from a foo(<param_name> = <param_value>) style call */ |
15047 /* Get the value from a foo(<param_name> = <param_value>) style call */ |
15046 symbol_c *IN_param_value = &this->default_variable_name; |
15048 symbol_c *IN_param_value = &this->default_variable_name; |
15047 |
15049 |
15048 symbol_c *IN_type_symbol = param_data_type; |
15050 symbol_c *IN_type_symbol = param_data_type; |
15049 last_type_symbol = param_data_type; |
15051 last_type_symbol = param_data_type; |
15050 |
15052 |
15051 if(IN_type_symbol == NULL || search_expression_type->is_binary_type(IN_type_symbol)) |
15053 if(IN_type_symbol == NULL || search_expression_type->is_binary_type(IN_type_symbol)) |
15052 { |
15054 { |
15053 |
15055 |
15054 { |
15056 { |
15055 identifier_c N_param_name("N"); |
15057 symbol_c *N_param_name = (symbol_c *)(new identifier_c("N")); |
15056 /* Get the value from a foo(<param_name> = <param_value>) style call */ |
15058 /* Get the value from a foo(<param_name> = <param_value>) style call */ |
15057 symbol_c *N_param_value = function_call_param_iterator.search_f(&N_param_name); |
15059 symbol_c *N_param_value = function_call_param_iterator.search_f(N_param_name); |
15058 symbol_c *N_type_symbol = NULL; |
15060 symbol_c *N_type_symbol = NULL; |
15059 |
15061 |
15060 /* Get the value from a foo(<param_value>) style call */ |
15062 /* Get the value from a foo(<param_value>) style call */ |
15061 if (N_param_value == NULL) |
15063 if (N_param_value == NULL) |
15062 N_param_value = function_call_param_iterator.next_nf(); |
15064 N_param_value = function_call_param_iterator.next_nf(); |
15070 |
15072 |
15071 function_name = (symbol_c*)(new pragma_c("__shl_")); |
15073 function_name = (symbol_c*)(new pragma_c("__shl_")); |
15072 |
15074 |
15073 if (IN_type_symbol == NULL) |
15075 if (IN_type_symbol == NULL) |
15074 IN_type_symbol = last_type_symbol; |
15076 IN_type_symbol = last_type_symbol; |
15075 ADD_PARAM_LIST(&IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) |
15077 ADD_PARAM_LIST(IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) |
15076 |
15078 |
15077 if (N_type_symbol == NULL) |
15079 if (N_type_symbol == NULL) |
15078 N_type_symbol = last_type_symbol; |
15080 N_type_symbol = last_type_symbol; |
15079 ADD_PARAM_LIST(&N_param_name, N_param_value, N_type_symbol, function_param_iterator_c::direction_in) |
15081 ADD_PARAM_LIST(N_param_name, N_param_value, N_type_symbol, function_param_iterator_c::direction_in) |
15080 symbol_c * return_type_symbol = IN_type_symbol; |
15082 symbol_c * return_type_symbol = IN_type_symbol; |
15081 function_type_suffix = IN_type_symbol; |
15083 function_type_suffix = IN_type_symbol; |
15082 break; |
15084 break; |
15083 |
15085 |
15084 } |
15086 } |
15102 case function_shr : |
15104 case function_shr : |
15103 { |
15105 { |
15104 symbol_c *last_type_symbol = NULL; |
15106 symbol_c *last_type_symbol = NULL; |
15105 |
15107 |
15106 { |
15108 { |
15107 identifier_c IN_param_name("IN"); |
15109 symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); |
15108 /* Get the value from a foo(<param_name> = <param_value>) style call */ |
15110 /* Get the value from a foo(<param_name> = <param_value>) style call */ |
15109 symbol_c *IN_param_value = &this->default_variable_name; |
15111 symbol_c *IN_param_value = &this->default_variable_name; |
15110 |
15112 |
15111 symbol_c *IN_type_symbol = param_data_type; |
15113 symbol_c *IN_type_symbol = param_data_type; |
15112 last_type_symbol = param_data_type; |
15114 last_type_symbol = param_data_type; |
15113 |
15115 |
15114 if(IN_type_symbol == NULL || search_expression_type->is_binary_type(IN_type_symbol)) |
15116 if(IN_type_symbol == NULL || search_expression_type->is_binary_type(IN_type_symbol)) |
15115 { |
15117 { |
15116 |
15118 |
15117 { |
15119 { |
15118 identifier_c N_param_name("N"); |
15120 symbol_c *N_param_name = (symbol_c *)(new identifier_c("N")); |
15119 /* Get the value from a foo(<param_name> = <param_value>) style call */ |
15121 /* Get the value from a foo(<param_name> = <param_value>) style call */ |
15120 symbol_c *N_param_value = function_call_param_iterator.search_f(&N_param_name); |
15122 symbol_c *N_param_value = function_call_param_iterator.search_f(N_param_name); |
15121 symbol_c *N_type_symbol = NULL; |
15123 symbol_c *N_type_symbol = NULL; |
15122 |
15124 |
15123 /* Get the value from a foo(<param_value>) style call */ |
15125 /* Get the value from a foo(<param_value>) style call */ |
15124 if (N_param_value == NULL) |
15126 if (N_param_value == NULL) |
15125 N_param_value = function_call_param_iterator.next_nf(); |
15127 N_param_value = function_call_param_iterator.next_nf(); |
15133 |
15135 |
15134 function_name = (symbol_c*)(new pragma_c("__shr_")); |
15136 function_name = (symbol_c*)(new pragma_c("__shr_")); |
15135 |
15137 |
15136 if (IN_type_symbol == NULL) |
15138 if (IN_type_symbol == NULL) |
15137 IN_type_symbol = last_type_symbol; |
15139 IN_type_symbol = last_type_symbol; |
15138 ADD_PARAM_LIST(&IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) |
15140 ADD_PARAM_LIST(IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) |
15139 |
15141 |
15140 if (N_type_symbol == NULL) |
15142 if (N_type_symbol == NULL) |
15141 N_type_symbol = last_type_symbol; |
15143 N_type_symbol = last_type_symbol; |
15142 ADD_PARAM_LIST(&N_param_name, N_param_value, N_type_symbol, function_param_iterator_c::direction_in) |
15144 ADD_PARAM_LIST(N_param_name, N_param_value, N_type_symbol, function_param_iterator_c::direction_in) |
15143 symbol_c * return_type_symbol = IN_type_symbol; |
15145 symbol_c * return_type_symbol = IN_type_symbol; |
15144 function_type_suffix = IN_type_symbol; |
15146 function_type_suffix = IN_type_symbol; |
15145 break; |
15147 break; |
15146 |
15148 |
15147 } |
15149 } |
15165 case function_ror : |
15167 case function_ror : |
15166 { |
15168 { |
15167 symbol_c *last_type_symbol = NULL; |
15169 symbol_c *last_type_symbol = NULL; |
15168 |
15170 |
15169 { |
15171 { |
15170 identifier_c IN_param_name("IN"); |
15172 symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); |
15171 /* Get the value from a foo(<param_name> = <param_value>) style call */ |
15173 /* Get the value from a foo(<param_name> = <param_value>) style call */ |
15172 symbol_c *IN_param_value = &this->default_variable_name; |
15174 symbol_c *IN_param_value = &this->default_variable_name; |
15173 |
15175 |
15174 symbol_c *IN_type_symbol = param_data_type; |
15176 symbol_c *IN_type_symbol = param_data_type; |
15175 last_type_symbol = param_data_type; |
15177 last_type_symbol = param_data_type; |
15176 |
15178 |
15177 if(IN_type_symbol == NULL || search_expression_type->is_nbinary_type(IN_type_symbol)) |
15179 if(IN_type_symbol == NULL || search_expression_type->is_nbinary_type(IN_type_symbol)) |
15178 { |
15180 { |
15179 |
15181 |
15180 { |
15182 { |
15181 identifier_c N_param_name("N"); |
15183 symbol_c *N_param_name = (symbol_c *)(new identifier_c("N")); |
15182 /* Get the value from a foo(<param_name> = <param_value>) style call */ |
15184 /* Get the value from a foo(<param_name> = <param_value>) style call */ |
15183 symbol_c *N_param_value = function_call_param_iterator.search_f(&N_param_name); |
15185 symbol_c *N_param_value = function_call_param_iterator.search_f(N_param_name); |
15184 symbol_c *N_type_symbol = NULL; |
15186 symbol_c *N_type_symbol = NULL; |
15185 |
15187 |
15186 /* Get the value from a foo(<param_value>) style call */ |
15188 /* Get the value from a foo(<param_value>) style call */ |
15187 if (N_param_value == NULL) |
15189 if (N_param_value == NULL) |
15188 N_param_value = function_call_param_iterator.next_nf(); |
15190 N_param_value = function_call_param_iterator.next_nf(); |
15196 |
15198 |
15197 function_name = (symbol_c*)(new pragma_c("__ror_")); |
15199 function_name = (symbol_c*)(new pragma_c("__ror_")); |
15198 |
15200 |
15199 if (IN_type_symbol == NULL) |
15201 if (IN_type_symbol == NULL) |
15200 IN_type_symbol = last_type_symbol; |
15202 IN_type_symbol = last_type_symbol; |
15201 ADD_PARAM_LIST(&IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) |
15203 ADD_PARAM_LIST(IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) |
15202 |
15204 |
15203 if (N_type_symbol == NULL) |
15205 if (N_type_symbol == NULL) |
15204 N_type_symbol = last_type_symbol; |
15206 N_type_symbol = last_type_symbol; |
15205 ADD_PARAM_LIST(&N_param_name, N_param_value, N_type_symbol, function_param_iterator_c::direction_in) |
15207 ADD_PARAM_LIST(N_param_name, N_param_value, N_type_symbol, function_param_iterator_c::direction_in) |
15206 symbol_c * return_type_symbol = IN_type_symbol; |
15208 symbol_c * return_type_symbol = IN_type_symbol; |
15207 function_type_suffix = IN_type_symbol; |
15209 function_type_suffix = IN_type_symbol; |
15208 break; |
15210 break; |
15209 |
15211 |
15210 } |
15212 } |
15228 case function_rol : |
15230 case function_rol : |
15229 { |
15231 { |
15230 symbol_c *last_type_symbol = NULL; |
15232 symbol_c *last_type_symbol = NULL; |
15231 |
15233 |
15232 { |
15234 { |
15233 identifier_c IN_param_name("IN"); |
15235 symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); |
15234 /* Get the value from a foo(<param_name> = <param_value>) style call */ |
15236 /* Get the value from a foo(<param_name> = <param_value>) style call */ |
15235 symbol_c *IN_param_value = &this->default_variable_name; |
15237 symbol_c *IN_param_value = &this->default_variable_name; |
15236 |
15238 |
15237 symbol_c *IN_type_symbol = param_data_type; |
15239 symbol_c *IN_type_symbol = param_data_type; |
15238 last_type_symbol = param_data_type; |
15240 last_type_symbol = param_data_type; |
15239 |
15241 |
15240 if(IN_type_symbol == NULL || search_expression_type->is_nbinary_type(IN_type_symbol)) |
15242 if(IN_type_symbol == NULL || search_expression_type->is_nbinary_type(IN_type_symbol)) |
15241 { |
15243 { |
15242 |
15244 |
15243 { |
15245 { |
15244 identifier_c N_param_name("N"); |
15246 symbol_c *N_param_name = (symbol_c *)(new identifier_c("N")); |
15245 /* Get the value from a foo(<param_name> = <param_value>) style call */ |
15247 /* Get the value from a foo(<param_name> = <param_value>) style call */ |
15246 symbol_c *N_param_value = function_call_param_iterator.search_f(&N_param_name); |
15248 symbol_c *N_param_value = function_call_param_iterator.search_f(N_param_name); |
15247 symbol_c *N_type_symbol = NULL; |
15249 symbol_c *N_type_symbol = NULL; |
15248 |
15250 |
15249 /* Get the value from a foo(<param_value>) style call */ |
15251 /* Get the value from a foo(<param_value>) style call */ |
15250 if (N_param_value == NULL) |
15252 if (N_param_value == NULL) |
15251 N_param_value = function_call_param_iterator.next_nf(); |
15253 N_param_value = function_call_param_iterator.next_nf(); |
15259 |
15261 |
15260 function_name = (symbol_c*)(new pragma_c("__rol_")); |
15262 function_name = (symbol_c*)(new pragma_c("__rol_")); |
15261 |
15263 |
15262 if (IN_type_symbol == NULL) |
15264 if (IN_type_symbol == NULL) |
15263 IN_type_symbol = last_type_symbol; |
15265 IN_type_symbol = last_type_symbol; |
15264 ADD_PARAM_LIST(&IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) |
15266 ADD_PARAM_LIST(IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) |
15265 |
15267 |
15266 if (N_type_symbol == NULL) |
15268 if (N_type_symbol == NULL) |
15267 N_type_symbol = last_type_symbol; |
15269 N_type_symbol = last_type_symbol; |
15268 ADD_PARAM_LIST(&N_param_name, N_param_value, N_type_symbol, function_param_iterator_c::direction_in) |
15270 ADD_PARAM_LIST(N_param_name, N_param_value, N_type_symbol, function_param_iterator_c::direction_in) |
15269 symbol_c * return_type_symbol = IN_type_symbol; |
15271 symbol_c * return_type_symbol = IN_type_symbol; |
15270 function_type_suffix = IN_type_symbol; |
15272 function_type_suffix = IN_type_symbol; |
15271 break; |
15273 break; |
15272 |
15274 |
15273 } |
15275 } |
15291 case function_and : |
15293 case function_and : |
15292 { |
15294 { |
15293 symbol_c *last_type_symbol = NULL; |
15295 symbol_c *last_type_symbol = NULL; |
15294 |
15296 |
15295 { |
15297 { |
15296 identifier_c IN1_param_name("IN1"); |
15298 symbol_c *IN1_param_name = (symbol_c *)(new identifier_c("IN1")); |
15297 /* Get the value from a foo(<param_name> = <param_value>) style call */ |
15299 /* Get the value from a foo(<param_name> = <param_value>) style call */ |
15298 symbol_c *IN1_param_value = &this->default_variable_name; |
15300 symbol_c *IN1_param_value = &this->default_variable_name; |
15299 |
15301 |
15300 symbol_c *IN1_type_symbol = param_data_type; |
15302 symbol_c *IN1_type_symbol = param_data_type; |
15301 last_type_symbol = param_data_type; |
15303 last_type_symbol = param_data_type; |
15302 |
15304 |
15303 if(IN1_type_symbol == NULL || search_expression_type->is_binary_type(IN1_type_symbol)) |
15305 if(IN1_type_symbol == NULL || search_expression_type->is_binary_type(IN1_type_symbol)) |
15304 { |
15306 { |
15305 |
15307 |
15306 { |
15308 { |
15307 identifier_c IN2_param_name("IN2"); |
15309 symbol_c *IN2_param_name = (symbol_c *)(new identifier_c("IN2")); |
15308 /* Get the value from a foo(<param_name> = <param_value>) style call */ |
15310 /* Get the value from a foo(<param_name> = <param_value>) style call */ |
15309 symbol_c *IN2_param_value = function_call_param_iterator.search_f(&IN2_param_name); |
15311 symbol_c *IN2_param_value = function_call_param_iterator.search_f(IN2_param_name); |
15310 symbol_c *IN2_type_symbol = NULL; |
15312 symbol_c *IN2_type_symbol = NULL; |
15311 |
15313 |
15312 /* Get the value from a foo(<param_value>) style call */ |
15314 /* Get the value from a foo(<param_value>) style call */ |
15313 if (IN2_param_value == NULL) |
15315 if (IN2_param_value == NULL) |
15314 IN2_param_value = function_call_param_iterator.next_nf(); |
15316 IN2_param_value = function_call_param_iterator.next_nf(); |
15324 |
15326 |
15325 if (nb_param < 2) |
15327 if (nb_param < 2) |
15326 nb_param = 2; |
15328 nb_param = 2; |
15327 char* nb_param_str = new char[10]; |
15329 char* nb_param_str = new char[10]; |
15328 sprintf(nb_param_str, "%d", nb_param); |
15330 sprintf(nb_param_str, "%d", nb_param); |
15329 identifier_c nb_param_name("nb_param"); |
15331 symbol_c * nb_param_name = (symbol_c *)(new identifier_c("nb_param")); |
15330 ADD_PARAM_LIST(&nb_param_name, (symbol_c*)(new integer_c((const char *)nb_param_str)), (symbol_c*)(new int_type_name_c()), function_param_iterator_c::direction_in) |
15332 ADD_PARAM_LIST(nb_param_name, (symbol_c*)(new integer_c((const char *)nb_param_str)), (symbol_c*)(new int_type_name_c()), function_param_iterator_c::direction_in) |
15331 |
15333 |
15332 if (IN1_type_symbol == NULL) |
15334 if (IN1_type_symbol == NULL) |
15333 IN1_type_symbol = last_type_symbol; |
15335 IN1_type_symbol = last_type_symbol; |
15334 ADD_PARAM_LIST(&IN1_param_name, IN1_param_value, IN1_type_symbol, function_param_iterator_c::direction_in) |
15336 ADD_PARAM_LIST(IN1_param_name, IN1_param_value, IN1_type_symbol, function_param_iterator_c::direction_in) |
15335 |
15337 |
15336 if (IN2_type_symbol == NULL) |
15338 if (IN2_type_symbol == NULL) |
15337 IN2_type_symbol = last_type_symbol; |
15339 IN2_type_symbol = last_type_symbol; |
15338 ADD_PARAM_LIST(&IN2_param_name, IN2_param_value, IN2_type_symbol, function_param_iterator_c::direction_in) |
15340 ADD_PARAM_LIST(IN2_param_name, IN2_param_value, IN2_type_symbol, function_param_iterator_c::direction_in) |
15339 |
15341 |
15340 int base_num = 3; |
15342 int base_num = 3; |
15341 symbol_c *param_value = NULL; |
15343 symbol_c *param_value = NULL; |
15344 symbol_c *param_name = NULL; |
|
15342 do{ |
15345 do{ |
15343 char my_name[10]; |
15346 char my_name[10]; |
15344 sprintf(my_name, "IN%d", base_num++); |
15347 sprintf(my_name, "IN%d", base_num++); |
15345 identifier_c param_name(my_name); |
15348 param_name = (symbol_c*)(new identifier_c(my_name)); |
15346 |
15349 |
15347 /* Get the value from a foo(<param_name> = <param_value>) style call */ |
15350 /* Get the value from a foo(<param_name> = <param_value>) style call */ |
15348 param_value = function_call_param_iterator.search_f(¶m_name); |
15351 param_value = function_call_param_iterator.search_f(param_name); |
15349 |
15352 |
15350 /* Get the value from a foo(<param_value>) style call */ |
15353 /* Get the value from a foo(<param_value>) style call */ |
15351 if (param_value == NULL) |
15354 if (param_value == NULL) |
15352 param_value = function_call_param_iterator.next_nf(); |
15355 param_value = function_call_param_iterator.next_nf(); |
15353 if (param_value != NULL){ |
15356 if (param_value != NULL){ |
15354 symbol_c *current_type_symbol = search_expression_type->get_type(param_value); |
15357 symbol_c *current_type_symbol = search_expression_type->get_type(param_value); |
15355 last_type_symbol = last_type_symbol && search_expression_type->is_same_type(current_type_symbol, last_type_symbol) ? search_expression_type->common_type(current_type_symbol, last_type_symbol) : current_type_symbol ; |
15358 last_type_symbol = last_type_symbol && search_expression_type->is_same_type(current_type_symbol, last_type_symbol) ? search_expression_type->common_type(current_type_symbol, last_type_symbol) : current_type_symbol ; |
15356 |
15359 |
15357 /*Function specific CODE */ |
15360 /*Function specific CODE */ |
15358 ADD_PARAM_LIST(¶m_name, param_value, current_type_symbol, function_param_iterator_c::direction_in) |
15361 ADD_PARAM_LIST(param_name, param_value, current_type_symbol, function_param_iterator_c::direction_in) |
15359 } |
15362 } |
15360 |
15363 |
15361 }while(param_value != NULL); |
15364 }while(param_value != NULL); |
15362 symbol_c * return_type_symbol = last_type_symbol; |
15365 symbol_c * return_type_symbol = last_type_symbol; |
15363 function_type_suffix = return_type_symbol; |
15366 function_type_suffix = return_type_symbol; |
15384 case function_or : |
15387 case function_or : |
15385 { |
15388 { |
15386 symbol_c *last_type_symbol = NULL; |
15389 symbol_c *last_type_symbol = NULL; |
15387 |
15390 |
15388 { |
15391 { |
15389 identifier_c IN1_param_name("IN1"); |
15392 symbol_c *IN1_param_name = (symbol_c *)(new identifier_c("IN1")); |
15390 /* Get the value from a foo(<param_name> = <param_value>) style call */ |
15393 /* Get the value from a foo(<param_name> = <param_value>) style call */ |
15391 symbol_c *IN1_param_value = &this->default_variable_name; |
15394 symbol_c *IN1_param_value = &this->default_variable_name; |
15392 |
15395 |
15393 symbol_c *IN1_type_symbol = param_data_type; |
15396 symbol_c *IN1_type_symbol = param_data_type; |
15394 last_type_symbol = param_data_type; |
15397 last_type_symbol = param_data_type; |
15395 |
15398 |
15396 if(IN1_type_symbol == NULL || search_expression_type->is_binary_type(IN1_type_symbol)) |
15399 if(IN1_type_symbol == NULL || search_expression_type->is_binary_type(IN1_type_symbol)) |
15397 { |
15400 { |
15398 |
15401 |
15399 { |
15402 { |
15400 identifier_c IN2_param_name("IN2"); |
15403 symbol_c *IN2_param_name = (symbol_c *)(new identifier_c("IN2")); |
15401 /* Get the value from a foo(<param_name> = <param_value>) style call */ |
15404 /* Get the value from a foo(<param_name> = <param_value>) style call */ |
15402 symbol_c *IN2_param_value = function_call_param_iterator.search_f(&IN2_param_name); |
15405 symbol_c *IN2_param_value = function_call_param_iterator.search_f(IN2_param_name); |
15403 symbol_c *IN2_type_symbol = NULL; |
15406 symbol_c *IN2_type_symbol = NULL; |
15404 |
15407 |
15405 /* Get the value from a foo(<param_value>) style call */ |
15408 /* Get the value from a foo(<param_value>) style call */ |
15406 if (IN2_param_value == NULL) |
15409 if (IN2_param_value == NULL) |
15407 IN2_param_value = function_call_param_iterator.next_nf(); |
15410 IN2_param_value = function_call_param_iterator.next_nf(); |
15417 |
15420 |
15418 if (nb_param < 2) |
15421 if (nb_param < 2) |
15419 nb_param = 2; |
15422 nb_param = 2; |
15420 char* nb_param_str = new char[10]; |
15423 char* nb_param_str = new char[10]; |
15421 sprintf(nb_param_str, "%d", nb_param); |
15424 sprintf(nb_param_str, "%d", nb_param); |
15422 identifier_c nb_param_name("nb_param"); |
15425 symbol_c * nb_param_name = (symbol_c *)(new identifier_c("nb_param")); |
15423 ADD_PARAM_LIST(&nb_param_name, (symbol_c*)(new integer_c((const char *)nb_param_str)), (symbol_c*)(new int_type_name_c()), function_param_iterator_c::direction_in) |
15426 ADD_PARAM_LIST(nb_param_name, (symbol_c*)(new integer_c((const char *)nb_param_str)), (symbol_c*)(new int_type_name_c()), function_param_iterator_c::direction_in) |
15424 |
15427 |
15425 if (IN1_type_symbol == NULL) |
15428 if (IN1_type_symbol == NULL) |
15426 IN1_type_symbol = last_type_symbol; |
15429 IN1_type_symbol = last_type_symbol; |
15427 ADD_PARAM_LIST(&IN1_param_name, IN1_param_value, IN1_type_symbol, function_param_iterator_c::direction_in) |
15430 ADD_PARAM_LIST(IN1_param_name, IN1_param_value, IN1_type_symbol, function_param_iterator_c::direction_in) |
15428 |
15431 |
15429 if (IN2_type_symbol == NULL) |
15432 if (IN2_type_symbol == NULL) |
15430 IN2_type_symbol = last_type_symbol; |
15433 IN2_type_symbol = last_type_symbol; |
15431 ADD_PARAM_LIST(&IN2_param_name, IN2_param_value, IN2_type_symbol, function_param_iterator_c::direction_in) |
15434 ADD_PARAM_LIST(IN2_param_name, IN2_param_value, IN2_type_symbol, function_param_iterator_c::direction_in) |
15432 |
15435 |
15433 int base_num = 3; |
15436 int base_num = 3; |
15434 symbol_c *param_value = NULL; |
15437 symbol_c *param_value = NULL; |
15438 symbol_c *param_name = NULL; |
|
15435 do{ |
15439 do{ |
15436 char my_name[10]; |
15440 char my_name[10]; |
15437 sprintf(my_name, "IN%d", base_num++); |
15441 sprintf(my_name, "IN%d", base_num++); |
15438 identifier_c param_name(my_name); |
15442 param_name = (symbol_c*)(new identifier_c(my_name)); |
15439 |
15443 |
15440 /* Get the value from a foo(<param_name> = <param_value>) style call */ |
15444 /* Get the value from a foo(<param_name> = <param_value>) style call */ |
15441 param_value = function_call_param_iterator.search_f(¶m_name); |
15445 param_value = function_call_param_iterator.search_f(param_name); |
15442 |
15446 |
15443 /* Get the value from a foo(<param_value>) style call */ |
15447 /* Get the value from a foo(<param_value>) style call */ |
15444 if (param_value == NULL) |
15448 if (param_value == NULL) |
15445 param_value = function_call_param_iterator.next_nf(); |
15449 param_value = function_call_param_iterator.next_nf(); |
15446 if (param_value != NULL){ |
15450 if (param_value != NULL){ |
15447 symbol_c *current_type_symbol = search_expression_type->get_type(param_value); |
15451 symbol_c *current_type_symbol = search_expression_type->get_type(param_value); |
15448 last_type_symbol = last_type_symbol && search_expression_type->is_same_type(current_type_symbol, last_type_symbol) ? search_expression_type->common_type(current_type_symbol, last_type_symbol) : current_type_symbol ; |
15452 last_type_symbol = last_type_symbol && search_expression_type->is_same_type(current_type_symbol, last_type_symbol) ? search_expression_type->common_type(current_type_symbol, last_type_symbol) : current_type_symbol ; |
15449 |
15453 |
15450 /*Function specific CODE */ |
15454 /*Function specific CODE */ |
15451 ADD_PARAM_LIST(¶m_name, param_value, current_type_symbol, function_param_iterator_c::direction_in) |
15455 ADD_PARAM_LIST(param_name, param_value, current_type_symbol, function_param_iterator_c::direction_in) |
15452 } |
15456 } |
15453 |
15457 |
15454 }while(param_value != NULL); |
15458 }while(param_value != NULL); |
15455 symbol_c * return_type_symbol = last_type_symbol; |
15459 symbol_c * return_type_symbol = last_type_symbol; |
15456 function_type_suffix = return_type_symbol; |
15460 function_type_suffix = return_type_symbol; |
15477 case function_xor : |
15481 case function_xor : |
15478 { |
15482 { |
15479 symbol_c *last_type_symbol = NULL; |
15483 symbol_c *last_type_symbol = NULL; |
15480 |
15484 |
15481 { |
15485 { |
15482 identifier_c IN1_param_name("IN1"); |
15486 symbol_c *IN1_param_name = (symbol_c *)(new identifier_c("IN1")); |
15483 /* Get the value from a foo(<param_name> = <param_value>) style call */ |
15487 /* Get the value from a foo(<param_name> = <param_value>) style call */ |
15484 symbol_c *IN1_param_value = &this->default_variable_name; |
15488 symbol_c *IN1_param_value = &this->default_variable_name; |
15485 |
15489 |
15486 symbol_c *IN1_type_symbol = param_data_type; |
15490 symbol_c *IN1_type_symbol = param_data_type; |
15487 last_type_symbol = param_data_type; |
15491 last_type_symbol = param_data_type; |
15488 |
15492 |
15489 if(IN1_type_symbol == NULL || search_expression_type->is_binary_type(IN1_type_symbol)) |
15493 if(IN1_type_symbol == NULL || search_expression_type->is_binary_type(IN1_type_symbol)) |
15490 { |
15494 { |
15491 |
15495 |
15492 { |
15496 { |
15493 identifier_c IN2_param_name("IN2"); |
15497 symbol_c *IN2_param_name = (symbol_c *)(new identifier_c("IN2")); |
15494 /* Get the value from a foo(<param_name> = <param_value>) style call */ |
15498 /* Get the value from a foo(<param_name> = <param_value>) style call */ |
15495 symbol_c *IN2_param_value = function_call_param_iterator.search_f(&IN2_param_name); |
15499 symbol_c *IN2_param_value = function_call_param_iterator.search_f(IN2_param_name); |
15496 symbol_c *IN2_type_symbol = NULL; |
15500 symbol_c *IN2_type_symbol = NULL; |
15497 |
15501 |
15498 /* Get the value from a foo(<param_value>) style call */ |
15502 /* Get the value from a foo(<param_value>) style call */ |
15499 if (IN2_param_value == NULL) |
15503 if (IN2_param_value == NULL) |
15500 IN2_param_value = function_call_param_iterator.next_nf(); |
15504 IN2_param_value = function_call_param_iterator.next_nf(); |
15510 |
15514 |
15511 if (nb_param < 2) |
15515 if (nb_param < 2) |
15512 nb_param = 2; |
15516 nb_param = 2; |
15513 char* nb_param_str = new char[10]; |
15517 char* nb_param_str = new char[10]; |
15514 sprintf(nb_param_str, "%d", nb_param); |
15518 sprintf(nb_param_str, "%d", nb_param); |
15515 identifier_c nb_param_name("nb_param"); |
15519 symbol_c * nb_param_name = (symbol_c *)(new identifier_c("nb_param")); |
15516 ADD_PARAM_LIST(&nb_param_name, (symbol_c*)(new integer_c((const char *)nb_param_str)), (symbol_c*)(new int_type_name_c()), function_param_iterator_c::direction_in) |
15520 ADD_PARAM_LIST(nb_param_name, (symbol_c*)(new integer_c((const char *)nb_param_str)), (symbol_c*)(new int_type_name_c()), function_param_iterator_c::direction_in) |
15517 |
15521 |
15518 if (IN1_type_symbol == NULL) |
15522 if (IN1_type_symbol == NULL) |
15519 IN1_type_symbol = last_type_symbol; |
15523 IN1_type_symbol = last_type_symbol; |
15520 ADD_PARAM_LIST(&IN1_param_name, IN1_param_value, IN1_type_symbol, function_param_iterator_c::direction_in) |
15524 ADD_PARAM_LIST(IN1_param_name, IN1_param_value, IN1_type_symbol, function_param_iterator_c::direction_in) |
15521 |
15525 |
15522 if (IN2_type_symbol == NULL) |
15526 if (IN2_type_symbol == NULL) |
15523 IN2_type_symbol = last_type_symbol; |
15527 IN2_type_symbol = last_type_symbol; |
15524 ADD_PARAM_LIST(&IN2_param_name, IN2_param_value, IN2_type_symbol, function_param_iterator_c::direction_in) |
15528 ADD_PARAM_LIST(IN2_param_name, IN2_param_value, IN2_type_symbol, function_param_iterator_c::direction_in) |
15525 |
15529 |
15526 int base_num = 3; |
15530 int base_num = 3; |
15527 symbol_c *param_value = NULL; |
15531 symbol_c *param_value = NULL; |
15532 symbol_c *param_name = NULL; |
|
15528 do{ |
15533 do{ |
15529 char my_name[10]; |
15534 char my_name[10]; |
15530 sprintf(my_name, "IN%d", base_num++); |
15535 sprintf(my_name, "IN%d", base_num++); |
15531 identifier_c param_name(my_name); |
15536 param_name = (symbol_c*)(new identifier_c(my_name)); |
15532 |
15537 |
15533 /* Get the value from a foo(<param_name> = <param_value>) style call */ |
15538 /* Get the value from a foo(<param_name> = <param_value>) style call */ |
15534 param_value = function_call_param_iterator.search_f(¶m_name); |
15539 param_value = function_call_param_iterator.search_f(param_name); |
15535 |
15540 |
15536 /* Get the value from a foo(<param_value>) style call */ |
15541 /* Get the value from a foo(<param_value>) style call */ |
15537 if (param_value == NULL) |
15542 if (param_value == NULL) |
15538 param_value = function_call_param_iterator.next_nf(); |
15543 param_value = function_call_param_iterator.next_nf(); |
15539 if (param_value != NULL){ |
15544 if (param_value != NULL){ |
15540 symbol_c *current_type_symbol = search_expression_type->get_type(param_value); |
15545 symbol_c *current_type_symbol = search_expression_type->get_type(param_value); |
15541 last_type_symbol = last_type_symbol && search_expression_type->is_same_type(current_type_symbol, last_type_symbol) ? search_expression_type->common_type(current_type_symbol, last_type_symbol) : current_type_symbol ; |
15546 last_type_symbol = last_type_symbol && search_expression_type->is_same_type(current_type_symbol, last_type_symbol) ? search_expression_type->common_type(current_type_symbol, last_type_symbol) : current_type_symbol ; |
15542 |
15547 |
15543 /*Function specific CODE */ |
15548 /*Function specific CODE */ |
15544 ADD_PARAM_LIST(¶m_name, param_value, current_type_symbol, function_param_iterator_c::direction_in) |
15549 ADD_PARAM_LIST(param_name, param_value, current_type_symbol, function_param_iterator_c::direction_in) |
15545 } |
15550 } |
15546 |
15551 |
15547 }while(param_value != NULL); |
15552 }while(param_value != NULL); |
15548 symbol_c * return_type_symbol = last_type_symbol; |
15553 symbol_c * return_type_symbol = last_type_symbol; |
15549 function_type_suffix = return_type_symbol; |
15554 function_type_suffix = return_type_symbol; |
15570 case function_not : |
15575 case function_not : |
15571 { |
15576 { |
15572 symbol_c *last_type_symbol = NULL; |
15577 symbol_c *last_type_symbol = NULL; |
15573 |
15578 |
15574 { |
15579 { |
15575 identifier_c IN_param_name("IN"); |
15580 symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); |
15576 /* Get the value from a foo(<param_name> = <param_value>) style call */ |
15581 /* Get the value from a foo(<param_name> = <param_value>) style call */ |
15577 symbol_c *IN_param_value = &this->default_variable_name; |
15582 symbol_c *IN_param_value = &this->default_variable_name; |
15578 |
15583 |
15579 symbol_c *IN_type_symbol = param_data_type; |
15584 symbol_c *IN_type_symbol = param_data_type; |
15580 last_type_symbol = param_data_type; |
15585 last_type_symbol = param_data_type; |
15584 |
15589 |
15585 function_name = (symbol_c*)(new pragma_c("__not_")); |
15590 function_name = (symbol_c*)(new pragma_c("__not_")); |
15586 |
15591 |
15587 if (IN_type_symbol == NULL) |
15592 if (IN_type_symbol == NULL) |
15588 IN_type_symbol = last_type_symbol; |
15593 IN_type_symbol = last_type_symbol; |
15589 ADD_PARAM_LIST(&IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) |
15594 ADD_PARAM_LIST(IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) |
15590 symbol_c * return_type_symbol = IN_type_symbol; |
15595 symbol_c * return_type_symbol = IN_type_symbol; |
15591 function_type_suffix = return_type_symbol; |
15596 function_type_suffix = return_type_symbol; |
15592 if (search_expression_type->is_literal_integer_type(function_type_suffix)) |
15597 if (search_expression_type->is_literal_integer_type(function_type_suffix)) |
15593 function_type_suffix = &search_constant_type_c::lword_type_name; |
15598 function_type_suffix = &search_constant_type_c::lword_type_name; |
15594 break; |
15599 break; |
15608 case function_sel : |
15613 case function_sel : |
15609 { |
15614 { |
15610 symbol_c *last_type_symbol = NULL; |
15615 symbol_c *last_type_symbol = NULL; |
15611 |
15616 |
15612 { |
15617 { |
15613 identifier_c G_param_name("G"); |
15618 symbol_c *G_param_name = (symbol_c *)(new identifier_c("G")); |
15614 /* Get the value from a foo(<param_name> = <param_value>) style call */ |
15619 /* Get the value from a foo(<param_name> = <param_value>) style call */ |
15615 symbol_c *G_param_value = &this->default_variable_name; |
15620 symbol_c *G_param_value = &this->default_variable_name; |
15616 |
15621 |
15617 symbol_c *G_type_symbol = param_data_type; |
15622 symbol_c *G_type_symbol = param_data_type; |
15618 last_type_symbol = param_data_type; |
15623 last_type_symbol = param_data_type; |
15619 |
15624 |
15620 if(G_type_symbol == NULL || search_expression_type->is_same_type(&search_constant_type_c::bool_type_name, last_type_symbol)) |
15625 if(G_type_symbol == NULL || search_expression_type->is_same_type(&search_constant_type_c::bool_type_name, last_type_symbol)) |
15621 { |
15626 { |
15622 |
15627 |
15623 { |
15628 { |
15624 identifier_c IN0_param_name("IN0"); |
15629 symbol_c *IN0_param_name = (symbol_c *)(new identifier_c("IN0")); |
15625 /* Get the value from a foo(<param_name> = <param_value>) style call */ |
15630 /* Get the value from a foo(<param_name> = <param_value>) style call */ |
15626 symbol_c *IN0_param_value = function_call_param_iterator.search_f(&IN0_param_name); |
15631 symbol_c *IN0_param_value = function_call_param_iterator.search_f(IN0_param_name); |
15627 symbol_c *IN0_type_symbol = NULL; |
15632 symbol_c *IN0_type_symbol = NULL; |
15628 |
15633 |
15629 /* Get the value from a foo(<param_value>) style call */ |
15634 /* Get the value from a foo(<param_value>) style call */ |
15630 if (IN0_param_value == NULL) |
15635 if (IN0_param_value == NULL) |
15631 IN0_param_value = function_call_param_iterator.next_nf(); |
15636 IN0_param_value = function_call_param_iterator.next_nf(); |
15636 |
15641 |
15637 |
15642 |
15638 { |
15643 { |
15639 |
15644 |
15640 { |
15645 { |
15641 identifier_c IN1_param_name("IN1"); |
15646 symbol_c *IN1_param_name = (symbol_c *)(new identifier_c("IN1")); |
15642 /* Get the value from a foo(<param_name> = <param_value>) style call */ |
15647 /* Get the value from a foo(<param_name> = <param_value>) style call */ |
15643 symbol_c *IN1_param_value = function_call_param_iterator.search_f(&IN1_param_name); |
15648 symbol_c *IN1_param_value = function_call_param_iterator.search_f(IN1_param_name); |
15644 symbol_c *IN1_type_symbol = NULL; |
15649 symbol_c *IN1_type_symbol = NULL; |
15645 |
15650 |
15646 /* Get the value from a foo(<param_value>) style call */ |
15651 /* Get the value from a foo(<param_value>) style call */ |
15647 if (IN1_param_value == NULL) |
15652 if (IN1_param_value == NULL) |
15648 IN1_param_value = function_call_param_iterator.next_nf(); |
15653 IN1_param_value = function_call_param_iterator.next_nf(); |
15656 |
15661 |
15657 function_name = (symbol_c*)(new pragma_c("__sel_")); |
15662 function_name = (symbol_c*)(new pragma_c("__sel_")); |
15658 |
15663 |
15659 if (G_type_symbol == NULL) |
15664 if (G_type_symbol == NULL) |
15660 G_type_symbol = last_type_symbol; |
15665 G_type_symbol = last_type_symbol; |
15661 ADD_PARAM_LIST(&G_param_name, G_param_value, G_type_symbol, function_param_iterator_c::direction_in) |
15666 ADD_PARAM_LIST(G_param_name, G_param_value, G_type_symbol, function_param_iterator_c::direction_in) |
15662 |
15667 |
15663 if (IN0_type_symbol == NULL) |
15668 if (IN0_type_symbol == NULL) |
15664 IN0_type_symbol = last_type_symbol; |
15669 IN0_type_symbol = last_type_symbol; |
15665 ADD_PARAM_LIST(&IN0_param_name, IN0_param_value, IN0_type_symbol, function_param_iterator_c::direction_in) |
15670 ADD_PARAM_LIST(IN0_param_name, IN0_param_value, IN0_type_symbol, function_param_iterator_c::direction_in) |
15666 |
15671 |
15667 if (IN1_type_symbol == NULL) |
15672 if (IN1_type_symbol == NULL) |
15668 IN1_type_symbol = last_type_symbol; |
15673 IN1_type_symbol = last_type_symbol; |
15669 ADD_PARAM_LIST(&IN1_param_name, IN1_param_value, IN1_type_symbol, function_param_iterator_c::direction_in) |
15674 ADD_PARAM_LIST(IN1_param_name, IN1_param_value, IN1_type_symbol, function_param_iterator_c::direction_in) |
15670 symbol_c * return_type_symbol = last_type_symbol; |
15675 symbol_c * return_type_symbol = last_type_symbol; |
15671 function_type_suffix = IN0_type_symbol; |
15676 function_type_suffix = IN0_type_symbol; |
15672 break; |
15677 break; |
15673 |
15678 |
15674 } |
15679 } |
15698 case function_max : |
15703 case function_max : |
15699 { |
15704 { |
15700 symbol_c *last_type_symbol = NULL; |
15705 symbol_c *last_type_symbol = NULL; |
15701 |
15706 |
15702 { |
15707 { |
15703 identifier_c IN1_param_name("IN1"); |
15708 symbol_c *IN1_param_name = (symbol_c *)(new identifier_c("IN1")); |
15704 /* Get the value from a foo(<param_name> = <param_value>) style call */ |
15709 /* Get the value from a foo(<param_name> = <param_value>) style call */ |
15705 symbol_c *IN1_param_value = &this->default_variable_name; |
15710 symbol_c *IN1_param_value = &this->default_variable_name; |
15706 |
15711 |
15707 symbol_c *IN1_type_symbol = param_data_type; |
15712 symbol_c *IN1_type_symbol = param_data_type; |
15708 last_type_symbol = param_data_type; |
15713 last_type_symbol = param_data_type; |
15709 |
15714 |
15710 |
15715 |
15711 { |
15716 { |
15712 |
15717 |
15713 { |
15718 { |
15714 identifier_c IN2_param_name("IN2"); |
15719 symbol_c *IN2_param_name = (symbol_c *)(new identifier_c("IN2")); |
15715 /* Get the value from a foo(<param_name> = <param_value>) style call */ |
15720 /* Get the value from a foo(<param_name> = <param_value>) style call */ |
15716 symbol_c *IN2_param_value = function_call_param_iterator.search_f(&IN2_param_name); |
15721 symbol_c *IN2_param_value = function_call_param_iterator.search_f(IN2_param_name); |
15717 symbol_c *IN2_type_symbol = NULL; |
15722 symbol_c *IN2_type_symbol = NULL; |
15718 |
15723 |
15719 /* Get the value from a foo(<param_value>) style call */ |
15724 /* Get the value from a foo(<param_value>) style call */ |
15720 if (IN2_param_value == NULL) |
15725 if (IN2_param_value == NULL) |
15721 IN2_param_value = function_call_param_iterator.next_nf(); |
15726 IN2_param_value = function_call_param_iterator.next_nf(); |
15731 |
15736 |
15732 if (nb_param < 2) |
15737 if (nb_param < 2) |
15733 nb_param = 2; |
15738 nb_param = 2; |
15734 char* nb_param_str = new char[10]; |
15739 char* nb_param_str = new char[10]; |
15735 sprintf(nb_param_str, "%d", nb_param); |
15740 sprintf(nb_param_str, "%d", nb_param); |
15736 identifier_c nb_param_name("nb_param"); |
15741 symbol_c * nb_param_name = (symbol_c *)(new identifier_c("nb_param")); |
15737 ADD_PARAM_LIST(&nb_param_name, (symbol_c*)(new integer_c((const char *)nb_param_str)), (symbol_c*)(new int_type_name_c()), function_param_iterator_c::direction_in) |
15742 ADD_PARAM_LIST(nb_param_name, (symbol_c*)(new integer_c((const char *)nb_param_str)), (symbol_c*)(new int_type_name_c()), function_param_iterator_c::direction_in) |
15738 |
15743 |
15739 if (IN1_type_symbol == NULL) |
15744 if (IN1_type_symbol == NULL) |
15740 IN1_type_symbol = last_type_symbol; |
15745 IN1_type_symbol = last_type_symbol; |
15741 ADD_PARAM_LIST(&IN1_param_name, IN1_param_value, IN1_type_symbol, function_param_iterator_c::direction_in) |
15746 ADD_PARAM_LIST(IN1_param_name, IN1_param_value, IN1_type_symbol, function_param_iterator_c::direction_in) |
15742 |
15747 |
15743 if (IN2_type_symbol == NULL) |
15748 if (IN2_type_symbol == NULL) |
15744 IN2_type_symbol = last_type_symbol; |
15749 IN2_type_symbol = last_type_symbol; |
15745 ADD_PARAM_LIST(&IN2_param_name, IN2_param_value, IN2_type_symbol, function_param_iterator_c::direction_in) |
15750 ADD_PARAM_LIST(IN2_param_name, IN2_param_value, IN2_type_symbol, function_param_iterator_c::direction_in) |
15746 |
15751 |
15747 int base_num = 3; |
15752 int base_num = 3; |
15748 symbol_c *param_value = NULL; |
15753 symbol_c *param_value = NULL; |
15754 symbol_c *param_name = NULL; |
|
15749 do{ |
15755 do{ |
15750 char my_name[10]; |
15756 char my_name[10]; |
15751 sprintf(my_name, "IN%d", base_num++); |
15757 sprintf(my_name, "IN%d", base_num++); |
15752 identifier_c param_name(my_name); |
15758 param_name = (symbol_c*)(new identifier_c(my_name)); |
15753 |
15759 |
15754 /* Get the value from a foo(<param_name> = <param_value>) style call */ |
15760 /* Get the value from a foo(<param_name> = <param_value>) style call */ |
15755 param_value = function_call_param_iterator.search_f(¶m_name); |
15761 param_value = function_call_param_iterator.search_f(param_name); |
15756 |
15762 |
15757 /* Get the value from a foo(<param_value>) style call */ |
15763 /* Get the value from a foo(<param_value>) style call */ |
15758 if (param_value == NULL) |
15764 if (param_value == NULL) |
15759 param_value = function_call_param_iterator.next_nf(); |
15765 param_value = function_call_param_iterator.next_nf(); |
15760 if (param_value != NULL){ |
15766 if (param_value != NULL){ |
15761 symbol_c *current_type_symbol = search_expression_type->get_type(param_value); |
15767 symbol_c *current_type_symbol = search_expression_type->get_type(param_value); |
15762 last_type_symbol = last_type_symbol && search_expression_type->is_same_type(current_type_symbol, last_type_symbol) ? search_expression_type->common_type(current_type_symbol, last_type_symbol) : current_type_symbol ; |
15768 last_type_symbol = last_type_symbol && search_expression_type->is_same_type(current_type_symbol, last_type_symbol) ? search_expression_type->common_type(current_type_symbol, last_type_symbol) : current_type_symbol ; |
15763 |
15769 |
15764 /*Function specific CODE */ |
15770 /*Function specific CODE */ |
15765 ADD_PARAM_LIST(¶m_name, param_value, current_type_symbol, function_param_iterator_c::direction_in) |
15771 ADD_PARAM_LIST(param_name, param_value, current_type_symbol, function_param_iterator_c::direction_in) |
15766 } |
15772 } |
15767 |
15773 |
15768 }while(param_value != NULL); |
15774 }while(param_value != NULL); |
15769 symbol_c * return_type_symbol = last_type_symbol; |
15775 symbol_c * return_type_symbol = last_type_symbol; |
15770 function_type_suffix = return_type_symbol; |
15776 function_type_suffix = return_type_symbol; |
15791 case function_min : |
15797 case function_min : |
15792 { |
15798 { |
15793 symbol_c *last_type_symbol = NULL; |
15799 symbol_c *last_type_symbol = NULL; |
15794 |
15800 |
15795 { |
15801 { |
15796 identifier_c IN1_param_name("IN1"); |
15802 symbol_c *IN1_param_name = (symbol_c *)(new identifier_c("IN1")); |
15797 /* Get the value from a foo(<param_name> = <param_value>) style call */ |
15803 /* Get the value from a foo(<param_name> = <param_value>) style call */ |
15798 symbol_c *IN1_param_value = &this->default_variable_name; |
15804 symbol_c *IN1_param_value = &this->default_variable_name; |
15799 |
15805 |
15800 symbol_c *IN1_type_symbol = param_data_type; |
15806 symbol_c *IN1_type_symbol = param_data_type; |
15801 last_type_symbol = param_data_type; |
15807 last_type_symbol = param_data_type; |
15802 |
15808 |
15803 |
15809 |
15804 { |
15810 { |
15805 |
15811 |
15806 { |
15812 { |
15807 identifier_c IN2_param_name("IN2"); |
15813 symbol_c *IN2_param_name = (symbol_c *)(new identifier_c("IN2")); |
15808 /* Get the value from a foo(<param_name> = <param_value>) style call */ |
15814 /* Get the value from a foo(<param_name> = <param_value>) style call */ |
15809 symbol_c *IN2_param_value = function_call_param_iterator.search_f(&IN2_param_name); |
15815 symbol_c *IN2_param_value = function_call_param_iterator.search_f(IN2_param_name); |
15810 symbol_c *IN2_type_symbol = NULL; |
15816 symbol_c *IN2_type_symbol = NULL; |
15811 |
15817 |
15812 /* Get the value from a foo(<param_value>) style call */ |
15818 /* Get the value from a foo(<param_value>) style call */ |
15813 if (IN2_param_value == NULL) |
15819 if (IN2_param_value == NULL) |
15814 IN2_param_value = function_call_param_iterator.next_nf(); |
15820 IN2_param_value = function_call_param_iterator.next_nf(); |
15824 |
15830 |
15825 if (nb_param < 2) |
15831 if (nb_param < 2) |
15826 nb_param = 2; |
15832 nb_param = 2; |
15827 char* nb_param_str = new char[10]; |
15833 char* nb_param_str = new char[10]; |
15828 sprintf(nb_param_str, "%d", nb_param); |
15834 sprintf(nb_param_str, "%d", nb_param); |
15829 identifier_c nb_param_name("nb_param"); |
15835 symbol_c * nb_param_name = (symbol_c *)(new identifier_c("nb_param")); |
15830 ADD_PARAM_LIST(&nb_param_name, (symbol_c*)(new integer_c((const char *)nb_param_str)), (symbol_c*)(new int_type_name_c()), function_param_iterator_c::direction_in) |
15836 ADD_PARAM_LIST(nb_param_name, (symbol_c*)(new integer_c((const char *)nb_param_str)), (symbol_c*)(new int_type_name_c()), function_param_iterator_c::direction_in) |
15831 |
15837 |
15832 if (IN1_type_symbol == NULL) |
15838 if (IN1_type_symbol == NULL) |
15833 IN1_type_symbol = last_type_symbol; |
15839 IN1_type_symbol = last_type_symbol; |
15834 ADD_PARAM_LIST(&IN1_param_name, IN1_param_value, IN1_type_symbol, function_param_iterator_c::direction_in) |
15840 ADD_PARAM_LIST(IN1_param_name, IN1_param_value, IN1_type_symbol, function_param_iterator_c::direction_in) |
15835 |
15841 |
15836 if (IN2_type_symbol == NULL) |
15842 if (IN2_type_symbol == NULL) |
15837 IN2_type_symbol = last_type_symbol; |
15843 IN2_type_symbol = last_type_symbol; |
15838 ADD_PARAM_LIST(&IN2_param_name, IN2_param_value, IN2_type_symbol, function_param_iterator_c::direction_in) |
15844 ADD_PARAM_LIST(IN2_param_name, IN2_param_value, IN2_type_symbol, function_param_iterator_c::direction_in) |
15839 |
15845 |
15840 int base_num = 3; |
15846 int base_num = 3; |
15841 symbol_c *param_value = NULL; |
15847 symbol_c *param_value = NULL; |
15848 symbol_c *param_name = NULL; |
|
15842 do{ |
15849 do{ |
15843 char my_name[10]; |
15850 char my_name[10]; |
15844 sprintf(my_name, "IN%d", base_num++); |
15851 sprintf(my_name, "IN%d", base_num++); |
15845 identifier_c param_name(my_name); |
15852 param_name = (symbol_c*)(new identifier_c(my_name)); |
15846 |
15853 |
15847 /* Get the value from a foo(<param_name> = <param_value>) style call */ |
15854 /* Get the value from a foo(<param_name> = <param_value>) style call */ |
15848 param_value = function_call_param_iterator.search_f(¶m_name); |
15855 param_value = function_call_param_iterator.search_f(param_name); |
15849 |
15856 |
15850 /* Get the value from a foo(<param_value>) style call */ |
15857 /* Get the value from a foo(<param_value>) style call */ |
15851 if (param_value == NULL) |
15858 if (param_value == NULL) |
15852 param_value = function_call_param_iterator.next_nf(); |
15859 param_value = function_call_param_iterator.next_nf(); |
15853 if (param_value != NULL){ |
15860 if (param_value != NULL){ |
15854 symbol_c *current_type_symbol = search_expression_type->get_type(param_value); |
15861 symbol_c *current_type_symbol = search_expression_type->get_type(param_value); |
15855 last_type_symbol = last_type_symbol && search_expression_type->is_same_type(current_type_symbol, last_type_symbol) ? search_expression_type->common_type(current_type_symbol, last_type_symbol) : current_type_symbol ; |
15862 last_type_symbol = last_type_symbol && search_expression_type->is_same_type(current_type_symbol, last_type_symbol) ? search_expression_type->common_type(current_type_symbol, last_type_symbol) : current_type_symbol ; |
15856 |
15863 |
15857 /*Function specific CODE */ |
15864 /*Function specific CODE */ |
15858 ADD_PARAM_LIST(¶m_name, param_value, current_type_symbol, function_param_iterator_c::direction_in) |
15865 ADD_PARAM_LIST(param_name, param_value, current_type_symbol, function_param_iterator_c::direction_in) |
15859 } |
15866 } |
15860 |
15867 |
15861 }while(param_value != NULL); |
15868 }while(param_value != NULL); |
15862 symbol_c * return_type_symbol = last_type_symbol; |
15869 symbol_c * return_type_symbol = last_type_symbol; |
15863 function_type_suffix = return_type_symbol; |
15870 function_type_suffix = return_type_symbol; |
15884 case function_limit : |
15891 case function_limit : |
15885 { |
15892 { |
15886 symbol_c *last_type_symbol = NULL; |
15893 symbol_c *last_type_symbol = NULL; |
15887 |
15894 |
15888 { |
15895 { |
15889 identifier_c MN_param_name("MN"); |
15896 symbol_c *MN_param_name = (symbol_c *)(new identifier_c("MN")); |
15890 /* Get the value from a foo(<param_name> = <param_value>) style call */ |
15897 /* Get the value from a foo(<param_name> = <param_value>) style call */ |
15891 symbol_c *MN_param_value = &this->default_variable_name; |
15898 symbol_c *MN_param_value = &this->default_variable_name; |
15892 |
15899 |
15893 symbol_c *MN_type_symbol = param_data_type; |
15900 symbol_c *MN_type_symbol = param_data_type; |
15894 last_type_symbol = param_data_type; |
15901 last_type_symbol = param_data_type; |
15895 |
15902 |
15896 |
15903 |
15897 { |
15904 { |
15898 |
15905 |
15899 { |
15906 { |
15900 identifier_c IN_param_name("IN"); |
15907 symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); |
15901 /* Get the value from a foo(<param_name> = <param_value>) style call */ |
15908 /* Get the value from a foo(<param_name> = <param_value>) style call */ |
15902 symbol_c *IN_param_value = function_call_param_iterator.search_f(&IN_param_name); |
15909 symbol_c *IN_param_value = function_call_param_iterator.search_f(IN_param_name); |
15903 symbol_c *IN_type_symbol = NULL; |
15910 symbol_c *IN_type_symbol = NULL; |
15904 |
15911 |
15905 /* Get the value from a foo(<param_value>) style call */ |
15912 /* Get the value from a foo(<param_value>) style call */ |
15906 if (IN_param_value == NULL) |
15913 if (IN_param_value == NULL) |
15907 IN_param_value = function_call_param_iterator.next_nf(); |
15914 IN_param_value = function_call_param_iterator.next_nf(); |
15912 |
15919 |
15913 |
15920 |
15914 { |
15921 { |
15915 |
15922 |
15916 { |
15923 { |
15917 identifier_c MX_param_name("MX"); |
15924 symbol_c *MX_param_name = (symbol_c *)(new identifier_c("MX")); |
15918 /* Get the value from a foo(<param_name> = <param_value>) style call */ |
15925 /* Get the value from a foo(<param_name> = <param_value>) style call */ |
15919 symbol_c *MX_param_value = function_call_param_iterator.search_f(&MX_param_name); |
15926 symbol_c *MX_param_value = function_call_param_iterator.search_f(MX_param_name); |
15920 symbol_c *MX_type_symbol = NULL; |
15927 symbol_c *MX_type_symbol = NULL; |
15921 |
15928 |
15922 /* Get the value from a foo(<param_value>) style call */ |
15929 /* Get the value from a foo(<param_value>) style call */ |
15923 if (MX_param_value == NULL) |
15930 if (MX_param_value == NULL) |
15924 MX_param_value = function_call_param_iterator.next_nf(); |
15931 MX_param_value = function_call_param_iterator.next_nf(); |
15932 |
15939 |
15933 function_name = (symbol_c*)(new pragma_c("__limit_")); |
15940 function_name = (symbol_c*)(new pragma_c("__limit_")); |
15934 |
15941 |
15935 if (MN_type_symbol == NULL) |
15942 if (MN_type_symbol == NULL) |
15936 MN_type_symbol = last_type_symbol; |
15943 MN_type_symbol = last_type_symbol; |
15937 ADD_PARAM_LIST(&MN_param_name, MN_param_value, MN_type_symbol, function_param_iterator_c::direction_in) |
15944 ADD_PARAM_LIST(MN_param_name, MN_param_value, MN_type_symbol, function_param_iterator_c::direction_in) |
15938 |
15945 |
15939 if (IN_type_symbol == NULL) |
15946 if (IN_type_symbol == NULL) |
15940 IN_type_symbol = last_type_symbol; |
15947 IN_type_symbol = last_type_symbol; |
15941 ADD_PARAM_LIST(&IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) |
15948 ADD_PARAM_LIST(IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) |
15942 |
15949 |
15943 if (MX_type_symbol == NULL) |
15950 if (MX_type_symbol == NULL) |
15944 MX_type_symbol = last_type_symbol; |
15951 MX_type_symbol = last_type_symbol; |
15945 ADD_PARAM_LIST(&MX_param_name, MX_param_value, MX_type_symbol, function_param_iterator_c::direction_in) |
15952 ADD_PARAM_LIST(MX_param_name, MX_param_value, MX_type_symbol, function_param_iterator_c::direction_in) |
15946 symbol_c * return_type_symbol = IN_type_symbol; |
15953 symbol_c * return_type_symbol = IN_type_symbol; |
15947 function_type_suffix = IN_type_symbol; |
15954 function_type_suffix = IN_type_symbol; |
15948 if (search_expression_type->is_literal_integer_type(function_type_suffix)) |
15955 if (search_expression_type->is_literal_integer_type(function_type_suffix)) |
15949 function_type_suffix = &search_constant_type_c::lint_type_name; |
15956 function_type_suffix = &search_constant_type_c::lint_type_name; |
15950 else if (search_expression_type->is_literal_real_type(function_type_suffix)) |
15957 else if (search_expression_type->is_literal_real_type(function_type_suffix)) |
15978 case function_mux : |
15985 case function_mux : |
15979 { |
15986 { |
15980 symbol_c *last_type_symbol = NULL; |
15987 symbol_c *last_type_symbol = NULL; |
15981 |
15988 |
15982 { |
15989 { |
15983 identifier_c K_param_name("K"); |
15990 symbol_c *K_param_name = (symbol_c *)(new identifier_c("K")); |
15984 /* Get the value from a foo(<param_name> = <param_value>) style call */ |
15991 /* Get the value from a foo(<param_name> = <param_value>) style call */ |
15985 symbol_c *K_param_value = &this->default_variable_name; |
15992 symbol_c *K_param_value = &this->default_variable_name; |
15986 |
15993 |
15987 symbol_c *K_type_symbol = param_data_type; |
15994 symbol_c *K_type_symbol = param_data_type; |
15988 last_type_symbol = param_data_type; |
15995 last_type_symbol = param_data_type; |
15989 |
15996 |
15990 if(K_type_symbol == NULL || search_expression_type->is_integer_type(K_type_symbol)) |
15997 if(K_type_symbol == NULL || search_expression_type->is_integer_type(K_type_symbol)) |
15991 { |
15998 { |
15992 |
15999 |
15993 { |
16000 { |
15994 identifier_c IN0_param_name("IN0"); |
16001 symbol_c *IN0_param_name = (symbol_c *)(new identifier_c("IN0")); |
15995 /* Get the value from a foo(<param_name> = <param_value>) style call */ |
16002 /* Get the value from a foo(<param_name> = <param_value>) style call */ |
15996 symbol_c *IN0_param_value = function_call_param_iterator.search_f(&IN0_param_name); |
16003 symbol_c *IN0_param_value = function_call_param_iterator.search_f(IN0_param_name); |
15997 symbol_c *IN0_type_symbol = NULL; |
16004 symbol_c *IN0_type_symbol = NULL; |
15998 |
16005 |
15999 /* Get the value from a foo(<param_value>) style call */ |
16006 /* Get the value from a foo(<param_value>) style call */ |
16000 if (IN0_param_value == NULL) |
16007 if (IN0_param_value == NULL) |
16001 IN0_param_value = function_call_param_iterator.next_nf(); |
16008 IN0_param_value = function_call_param_iterator.next_nf(); |
16006 |
16013 |
16007 |
16014 |
16008 { |
16015 { |
16009 |
16016 |
16010 { |
16017 { |
16011 identifier_c IN1_param_name("IN1"); |
16018 symbol_c *IN1_param_name = (symbol_c *)(new identifier_c("IN1")); |
16012 /* Get the value from a foo(<param_name> = <param_value>) style call */ |
16019 /* Get the value from a foo(<param_name> = <param_value>) style call */ |
16013 symbol_c *IN1_param_value = function_call_param_iterator.search_f(&IN1_param_name); |
16020 symbol_c *IN1_param_value = function_call_param_iterator.search_f(IN1_param_name); |
16014 symbol_c *IN1_type_symbol = NULL; |
16021 symbol_c *IN1_type_symbol = NULL; |
16015 |
16022 |
16016 /* Get the value from a foo(<param_value>) style call */ |
16023 /* Get the value from a foo(<param_value>) style call */ |
16017 if (IN1_param_value == NULL) |
16024 if (IN1_param_value == NULL) |
16018 IN1_param_value = function_call_param_iterator.next_nf(); |
16025 IN1_param_value = function_call_param_iterator.next_nf(); |
16028 |
16035 |
16029 if (nb_param < 3) |
16036 if (nb_param < 3) |
16030 nb_param = 3; |
16037 nb_param = 3; |
16031 char* nb_param_str = new char[10]; |
16038 char* nb_param_str = new char[10]; |
16032 sprintf(nb_param_str, "%d", nb_param); |
16039 sprintf(nb_param_str, "%d", nb_param); |
16033 identifier_c nb_param_name("nb_param"); |
16040 symbol_c * nb_param_name = (symbol_c *)(new identifier_c("nb_param")); |
16034 ADD_PARAM_LIST(&nb_param_name, (symbol_c*)(new integer_c((const char *)nb_param_str)), (symbol_c*)(new int_type_name_c()), function_param_iterator_c::direction_in) |
16041 ADD_PARAM_LIST(nb_param_name, (symbol_c*)(new integer_c((const char *)nb_param_str)), (symbol_c*)(new int_type_name_c()), function_param_iterator_c::direction_in) |
16035 |
16042 |
16036 if (K_type_symbol == NULL) |
16043 if (K_type_symbol == NULL) |
16037 K_type_symbol = last_type_symbol; |
16044 K_type_symbol = last_type_symbol; |
16038 ADD_PARAM_LIST(&K_param_name, K_param_value, K_type_symbol, function_param_iterator_c::direction_in) |
16045 ADD_PARAM_LIST(K_param_name, K_param_value, K_type_symbol, function_param_iterator_c::direction_in) |
16039 |
16046 |
16040 if (IN0_type_symbol == NULL) |
16047 if (IN0_type_symbol == NULL) |
16041 IN0_type_symbol = last_type_symbol; |
16048 IN0_type_symbol = last_type_symbol; |
16042 ADD_PARAM_LIST(&IN0_param_name, IN0_param_value, IN0_type_symbol, function_param_iterator_c::direction_in) |
16049 ADD_PARAM_LIST(IN0_param_name, IN0_param_value, IN0_type_symbol, function_param_iterator_c::direction_in) |
16043 |
16050 |
16044 if (IN1_type_symbol == NULL) |
16051 if (IN1_type_symbol == NULL) |
16045 IN1_type_symbol = last_type_symbol; |
16052 IN1_type_symbol = last_type_symbol; |
16046 ADD_PARAM_LIST(&IN1_param_name, IN1_param_value, IN1_type_symbol, function_param_iterator_c::direction_in) |
16053 ADD_PARAM_LIST(IN1_param_name, IN1_param_value, IN1_type_symbol, function_param_iterator_c::direction_in) |
16047 |
16054 |
16048 int base_num = 2; |
16055 int base_num = 2; |
16049 symbol_c *param_value = NULL; |
16056 symbol_c *param_value = NULL; |
16057 symbol_c *param_name = NULL; |
|
16050 do{ |
16058 do{ |
16051 char my_name[10]; |
16059 char my_name[10]; |
16052 sprintf(my_name, "IN%d", base_num++); |
16060 sprintf(my_name, "IN%d", base_num++); |
16053 identifier_c param_name(my_name); |
16061 param_name = (symbol_c*)(new identifier_c(my_name)); |
16054 |
16062 |
16055 /* Get the value from a foo(<param_name> = <param_value>) style call */ |
16063 /* Get the value from a foo(<param_name> = <param_value>) style call */ |
16056 param_value = function_call_param_iterator.search_f(¶m_name); |
16064 param_value = function_call_param_iterator.search_f(param_name); |
16057 |
16065 |
16058 /* Get the value from a foo(<param_value>) style call */ |
16066 /* Get the value from a foo(<param_value>) style call */ |
16059 if (param_value == NULL) |
16067 if (param_value == NULL) |
16060 param_value = function_call_param_iterator.next_nf(); |
16068 param_value = function_call_param_iterator.next_nf(); |
16061 if (param_value != NULL){ |
16069 if (param_value != NULL){ |
16062 symbol_c *current_type_symbol = search_expression_type->get_type(param_value); |
16070 symbol_c *current_type_symbol = search_expression_type->get_type(param_value); |
16063 last_type_symbol = last_type_symbol && search_expression_type->is_same_type(current_type_symbol, last_type_symbol) ? search_expression_type->common_type(current_type_symbol, last_type_symbol) : current_type_symbol ; |
16071 last_type_symbol = last_type_symbol && search_expression_type->is_same_type(current_type_symbol, last_type_symbol) ? search_expression_type->common_type(current_type_symbol, last_type_symbol) : current_type_symbol ; |
16064 |
16072 |
16065 /*Function specific CODE */ |
16073 /*Function specific CODE */ |
16066 ADD_PARAM_LIST(¶m_name, param_value, current_type_symbol, function_param_iterator_c::direction_in) |
16074 ADD_PARAM_LIST(param_name, param_value, current_type_symbol, function_param_iterator_c::direction_in) |
16067 } |
16075 } |
16068 |
16076 |
16069 }while(param_value != NULL); |
16077 }while(param_value != NULL); |
16070 symbol_c * return_type_symbol = last_type_symbol; |
16078 symbol_c * return_type_symbol = last_type_symbol; |
16071 function_type_suffix = return_type_symbol; |
16079 function_type_suffix = return_type_symbol; |
16098 case function_gt : |
16106 case function_gt : |
16099 { |
16107 { |
16100 symbol_c *last_type_symbol = NULL; |
16108 symbol_c *last_type_symbol = NULL; |
16101 |
16109 |
16102 { |
16110 { |
16103 identifier_c IN1_param_name("IN1"); |
16111 symbol_c *IN1_param_name = (symbol_c *)(new identifier_c("IN1")); |
16104 /* Get the value from a foo(<param_name> = <param_value>) style call */ |
16112 /* Get the value from a foo(<param_name> = <param_value>) style call */ |
16105 symbol_c *IN1_param_value = &this->default_variable_name; |
16113 symbol_c *IN1_param_value = &this->default_variable_name; |
16106 |
16114 |
16107 symbol_c *IN1_type_symbol = param_data_type; |
16115 symbol_c *IN1_type_symbol = param_data_type; |
16108 last_type_symbol = param_data_type; |
16116 last_type_symbol = param_data_type; |
16109 |
16117 |
16110 |
16118 |
16111 { |
16119 { |
16112 |
16120 |
16113 { |
16121 { |
16114 identifier_c IN2_param_name("IN2"); |
16122 symbol_c *IN2_param_name = (symbol_c *)(new identifier_c("IN2")); |
16115 /* Get the value from a foo(<param_name> = <param_value>) style call */ |
16123 /* Get the value from a foo(<param_name> = <param_value>) style call */ |
16116 symbol_c *IN2_param_value = function_call_param_iterator.search_f(&IN2_param_name); |
16124 symbol_c *IN2_param_value = function_call_param_iterator.search_f(IN2_param_name); |
16117 symbol_c *IN2_type_symbol = NULL; |
16125 symbol_c *IN2_type_symbol = NULL; |
16118 |
16126 |
16119 /* Get the value from a foo(<param_value>) style call */ |
16127 /* Get the value from a foo(<param_value>) style call */ |
16120 if (IN2_param_value == NULL) |
16128 if (IN2_param_value == NULL) |
16121 IN2_param_value = function_call_param_iterator.next_nf(); |
16129 IN2_param_value = function_call_param_iterator.next_nf(); |
16131 |
16139 |
16132 if (nb_param < 2) |
16140 if (nb_param < 2) |
16133 nb_param = 2; |
16141 nb_param = 2; |
16134 char* nb_param_str = new char[10]; |
16142 char* nb_param_str = new char[10]; |
16135 sprintf(nb_param_str, "%d", nb_param); |
16143 sprintf(nb_param_str, "%d", nb_param); |
16136 identifier_c nb_param_name("nb_param"); |
16144 symbol_c * nb_param_name = (symbol_c *)(new identifier_c("nb_param")); |
16137 ADD_PARAM_LIST(&nb_param_name, (symbol_c*)(new integer_c((const char *)nb_param_str)), (symbol_c*)(new int_type_name_c()), function_param_iterator_c::direction_in) |
16145 ADD_PARAM_LIST(nb_param_name, (symbol_c*)(new integer_c((const char *)nb_param_str)), (symbol_c*)(new int_type_name_c()), function_param_iterator_c::direction_in) |
16138 |
16146 |
16139 if (IN1_type_symbol == NULL) |
16147 if (IN1_type_symbol == NULL) |
16140 IN1_type_symbol = last_type_symbol; |
16148 IN1_type_symbol = last_type_symbol; |
16141 ADD_PARAM_LIST(&IN1_param_name, IN1_param_value, IN1_type_symbol, function_param_iterator_c::direction_in) |
16149 ADD_PARAM_LIST(IN1_param_name, IN1_param_value, IN1_type_symbol, function_param_iterator_c::direction_in) |
16142 |
16150 |
16143 if (IN2_type_symbol == NULL) |
16151 if (IN2_type_symbol == NULL) |
16144 IN2_type_symbol = last_type_symbol; |
16152 IN2_type_symbol = last_type_symbol; |
16145 ADD_PARAM_LIST(&IN2_param_name, IN2_param_value, IN2_type_symbol, function_param_iterator_c::direction_in) |
16153 ADD_PARAM_LIST(IN2_param_name, IN2_param_value, IN2_type_symbol, function_param_iterator_c::direction_in) |
16146 |
16154 |
16147 int base_num = 3; |
16155 int base_num = 3; |
16148 symbol_c *param_value = NULL; |
16156 symbol_c *param_value = NULL; |
16157 symbol_c *param_name = NULL; |
|
16149 do{ |
16158 do{ |
16150 char my_name[10]; |
16159 char my_name[10]; |
16151 sprintf(my_name, "IN%d", base_num++); |
16160 sprintf(my_name, "IN%d", base_num++); |
16152 identifier_c param_name(my_name); |
16161 param_name = (symbol_c*)(new identifier_c(my_name)); |
16153 |
16162 |
16154 /* Get the value from a foo(<param_name> = <param_value>) style call */ |
16163 /* Get the value from a foo(<param_name> = <param_value>) style call */ |
16155 param_value = function_call_param_iterator.search_f(¶m_name); |
16164 param_value = function_call_param_iterator.search_f(param_name); |
16156 |
16165 |
16157 /* Get the value from a foo(<param_value>) style call */ |
16166 /* Get the value from a foo(<param_value>) style call */ |
16158 if (param_value == NULL) |
16167 if (param_value == NULL) |
16159 param_value = function_call_param_iterator.next_nf(); |
16168 param_value = function_call_param_iterator.next_nf(); |
16160 if (param_value != NULL){ |
16169 if (param_value != NULL){ |
16161 symbol_c *current_type_symbol = search_expression_type->get_type(param_value); |
16170 symbol_c *current_type_symbol = search_expression_type->get_type(param_value); |
16162 last_type_symbol = last_type_symbol && search_expression_type->is_same_type(current_type_symbol, last_type_symbol) ? search_expression_type->common_type(current_type_symbol, last_type_symbol) : current_type_symbol ; |
16171 last_type_symbol = last_type_symbol && search_expression_type->is_same_type(current_type_symbol, last_type_symbol) ? search_expression_type->common_type(current_type_symbol, last_type_symbol) : current_type_symbol ; |
16163 |
16172 |
16164 /*Function specific CODE */ |
16173 /*Function specific CODE */ |
16165 ADD_PARAM_LIST(¶m_name, param_value, current_type_symbol, function_param_iterator_c::direction_in) |
16174 ADD_PARAM_LIST(param_name, param_value, current_type_symbol, function_param_iterator_c::direction_in) |
16166 } |
16175 } |
16167 |
16176 |
16168 }while(param_value != NULL); |
16177 }while(param_value != NULL); |
16169 symbol_c * return_type_symbol = &search_constant_type_c::bool_type_name; |
16178 symbol_c * return_type_symbol = &search_constant_type_c::bool_type_name; |
16170 function_type_suffix = last_type_symbol; |
16179 function_type_suffix = last_type_symbol; |
16191 case function_ge : |
16200 case function_ge : |
16192 { |
16201 { |
16193 symbol_c *last_type_symbol = NULL; |
16202 symbol_c *last_type_symbol = NULL; |
16194 |
16203 |
16195 { |
16204 { |
16196 identifier_c IN1_param_name("IN1"); |
16205 symbol_c *IN1_param_name = (symbol_c *)(new identifier_c("IN1")); |
16197 /* Get the value from a foo(<param_name> = <param_value>) style call */ |
16206 /* Get the value from a foo(<param_name> = <param_value>) style call */ |
16198 symbol_c *IN1_param_value = &this->default_variable_name; |
16207 symbol_c *IN1_param_value = &this->default_variable_name; |
16199 |
16208 |
16200 symbol_c *IN1_type_symbol = param_data_type; |
16209 symbol_c *IN1_type_symbol = param_data_type; |
16201 last_type_symbol = param_data_type; |
16210 last_type_symbol = param_data_type; |
16202 |
16211 |
16203 |
16212 |
16204 { |
16213 { |
16205 |
16214 |
16206 { |
16215 { |
16207 identifier_c IN2_param_name("IN2"); |
16216 symbol_c *IN2_param_name = (symbol_c *)(new identifier_c("IN2")); |
16208 /* Get the value from a foo(<param_name> = <param_value>) style call */ |
16217 /* Get the value from a foo(<param_name> = <param_value>) style call */ |
16209 symbol_c *IN2_param_value = function_call_param_iterator.search_f(&IN2_param_name); |
16218 symbol_c *IN2_param_value = function_call_param_iterator.search_f(IN2_param_name); |
16210 symbol_c *IN2_type_symbol = NULL; |
16219 symbol_c *IN2_type_symbol = NULL; |
16211 |
16220 |
16212 /* Get the value from a foo(<param_value>) style call */ |
16221 /* Get the value from a foo(<param_value>) style call */ |
16213 if (IN2_param_value == NULL) |
16222 if (IN2_param_value == NULL) |
16214 IN2_param_value = function_call_param_iterator.next_nf(); |
16223 IN2_param_value = function_call_param_iterator.next_nf(); |
16224 |
16233 |
16225 if (nb_param < 2) |
16234 if (nb_param < 2) |
16226 nb_param = 2; |
16235 nb_param = 2; |
16227 char* nb_param_str = new char[10]; |
16236 char* nb_param_str = new char[10]; |
16228 sprintf(nb_param_str, "%d", nb_param); |
16237 sprintf(nb_param_str, "%d", nb_param); |
16229 identifier_c nb_param_name("nb_param"); |
16238 symbol_c * nb_param_name = (symbol_c *)(new identifier_c("nb_param")); |
16230 ADD_PARAM_LIST(&nb_param_name, (symbol_c*)(new integer_c((const char *)nb_param_str)), (symbol_c*)(new int_type_name_c()), function_param_iterator_c::direction_in) |
16239 ADD_PARAM_LIST(nb_param_name, (symbol_c*)(new integer_c((const char *)nb_param_str)), (symbol_c*)(new int_type_name_c()), function_param_iterator_c::direction_in) |
16231 |
16240 |
16232 if (IN1_type_symbol == NULL) |
16241 if (IN1_type_symbol == NULL) |
16233 IN1_type_symbol = last_type_symbol; |
16242 IN1_type_symbol = last_type_symbol; |
16234 ADD_PARAM_LIST(&IN1_param_name, IN1_param_value, IN1_type_symbol, function_param_iterator_c::direction_in) |
16243 ADD_PARAM_LIST(IN1_param_name, IN1_param_value, IN1_type_symbol, function_param_iterator_c::direction_in) |
16235 |
16244 |
16236 if (IN2_type_symbol == NULL) |
16245 if (IN2_type_symbol == NULL) |
16237 IN2_type_symbol = last_type_symbol; |
16246 IN2_type_symbol = last_type_symbol; |
16238 ADD_PARAM_LIST(&IN2_param_name, IN2_param_value, IN2_type_symbol, function_param_iterator_c::direction_in) |
16247 ADD_PARAM_LIST(IN2_param_name, IN2_param_value, IN2_type_symbol, function_param_iterator_c::direction_in) |
16239 |
16248 |
16240 int base_num = 3; |
16249 int base_num = 3; |
16241 symbol_c *param_value = NULL; |
16250 symbol_c *param_value = NULL; |
16251 symbol_c *param_name = NULL; |
|
16242 do{ |
16252 do{ |
16243 char my_name[10]; |
16253 char my_name[10]; |
16244 sprintf(my_name, "IN%d", base_num++); |
16254 sprintf(my_name, "IN%d", base_num++); |
16245 identifier_c param_name(my_name); |
16255 param_name = (symbol_c*)(new identifier_c(my_name)); |
16246 |
16256 |
16247 /* Get the value from a foo(<param_name> = <param_value>) style call */ |
16257 /* Get the value from a foo(<param_name> = <param_value>) style call */ |
16248 param_value = function_call_param_iterator.search_f(¶m_name); |
16258 param_value = function_call_param_iterator.search_f(param_name); |
16249 |
16259 |
16250 /* Get the value from a foo(<param_value>) style call */ |
16260 /* Get the value from a foo(<param_value>) style call */ |
16251 if (param_value == NULL) |
16261 if (param_value == NULL) |
16252 param_value = function_call_param_iterator.next_nf(); |
16262 param_value = function_call_param_iterator.next_nf(); |
16253 if (param_value != NULL){ |
16263 if (param_value != NULL){ |
16254 symbol_c *current_type_symbol = search_expression_type->get_type(param_value); |
16264 symbol_c *current_type_symbol = search_expression_type->get_type(param_value); |
16255 last_type_symbol = last_type_symbol && search_expression_type->is_same_type(current_type_symbol, last_type_symbol) ? search_expression_type->common_type(current_type_symbol, last_type_symbol) : current_type_symbol ; |
16265 last_type_symbol = last_type_symbol && search_expression_type->is_same_type(current_type_symbol, last_type_symbol) ? search_expression_type->common_type(current_type_symbol, last_type_symbol) : current_type_symbol ; |
16256 |
16266 |
16257 /*Function specific CODE */ |
16267 /*Function specific CODE */ |
16258 ADD_PARAM_LIST(¶m_name, param_value, current_type_symbol, function_param_iterator_c::direction_in) |
16268 ADD_PARAM_LIST(param_name, param_value, current_type_symbol, function_param_iterator_c::direction_in) |
16259 } |
16269 } |
16260 |
16270 |
16261 }while(param_value != NULL); |
16271 }while(param_value != NULL); |
16262 symbol_c * return_type_symbol = &search_constant_type_c::bool_type_name; |
16272 symbol_c * return_type_symbol = &search_constant_type_c::bool_type_name; |
16263 function_type_suffix = last_type_symbol; |
16273 function_type_suffix = last_type_symbol; |
16284 case function_eq : |
16294 case function_eq : |
16285 { |
16295 { |
16286 symbol_c *last_type_symbol = NULL; |
16296 symbol_c *last_type_symbol = NULL; |
16287 |
16297 |
16288 { |
16298 { |
16289 identifier_c IN1_param_name("IN1"); |
16299 symbol_c *IN1_param_name = (symbol_c *)(new identifier_c("IN1")); |
16290 /* Get the value from a foo(<param_name> = <param_value>) style call */ |
16300 /* Get the value from a foo(<param_name> = <param_value>) style call */ |
16291 symbol_c *IN1_param_value = &this->default_variable_name; |
16301 symbol_c *IN1_param_value = &this->default_variable_name; |
16292 |
16302 |
16293 symbol_c *IN1_type_symbol = param_data_type; |
16303 symbol_c *IN1_type_symbol = param_data_type; |
16294 last_type_symbol = param_data_type; |
16304 last_type_symbol = param_data_type; |
16295 |
16305 |
16296 |
16306 |
16297 { |
16307 { |
16298 |
16308 |
16299 { |
16309 { |
16300 identifier_c IN2_param_name("IN2"); |
16310 symbol_c *IN2_param_name = (symbol_c *)(new identifier_c("IN2")); |
16301 /* Get the value from a foo(<param_name> = <param_value>) style call */ |
16311 /* Get the value from a foo(<param_name> = <param_value>) style call */ |
16302 symbol_c *IN2_param_value = function_call_param_iterator.search_f(&IN2_param_name); |
16312 symbol_c *IN2_param_value = function_call_param_iterator.search_f(IN2_param_name); |
16303 symbol_c *IN2_type_symbol = NULL; |
16313 symbol_c *IN2_type_symbol = NULL; |
16304 |
16314 |
16305 /* Get the value from a foo(<param_value>) style call */ |
16315 /* Get the value from a foo(<param_value>) style call */ |
16306 if (IN2_param_value == NULL) |
16316 if (IN2_param_value == NULL) |
16307 IN2_param_value = function_call_param_iterator.next_nf(); |
16317 IN2_param_value = function_call_param_iterator.next_nf(); |
16317 |
16327 |
16318 if (nb_param < 2) |
16328 if (nb_param < 2) |
16319 nb_param = 2; |
16329 nb_param = 2; |
16320 char* nb_param_str = new char[10]; |
16330 char* nb_param_str = new char[10]; |
16321 sprintf(nb_param_str, "%d", nb_param); |
16331 sprintf(nb_param_str, "%d", nb_param); |
16322 identifier_c nb_param_name("nb_param"); |
16332 symbol_c * nb_param_name = (symbol_c *)(new identifier_c("nb_param")); |
16323 ADD_PARAM_LIST(&nb_param_name, (symbol_c*)(new integer_c((const char *)nb_param_str)), (symbol_c*)(new int_type_name_c()), function_param_iterator_c::direction_in) |
16333 ADD_PARAM_LIST(nb_param_name, (symbol_c*)(new integer_c((const char *)nb_param_str)), (symbol_c*)(new int_type_name_c()), function_param_iterator_c::direction_in) |
16324 |
16334 |
16325 if (IN1_type_symbol == NULL) |
16335 if (IN1_type_symbol == NULL) |
16326 IN1_type_symbol = last_type_symbol; |
16336 IN1_type_symbol = last_type_symbol; |
16327 ADD_PARAM_LIST(&IN1_param_name, IN1_param_value, IN1_type_symbol, function_param_iterator_c::direction_in) |
16337 ADD_PARAM_LIST(IN1_param_name, IN1_param_value, IN1_type_symbol, function_param_iterator_c::direction_in) |
16328 |
16338 |
16329 if (IN2_type_symbol == NULL) |
16339 if (IN2_type_symbol == NULL) |
16330 IN2_type_symbol = last_type_symbol; |
16340 IN2_type_symbol = last_type_symbol; |
16331 ADD_PARAM_LIST(&IN2_param_name, IN2_param_value, IN2_type_symbol, function_param_iterator_c::direction_in) |
16341 ADD_PARAM_LIST(IN2_param_name, IN2_param_value, IN2_type_symbol, function_param_iterator_c::direction_in) |
16332 |
16342 |
16333 int base_num = 3; |
16343 int base_num = 3; |
16334 symbol_c *param_value = NULL; |
16344 symbol_c *param_value = NULL; |
16345 symbol_c *param_name = NULL; |
|
16335 do{ |
16346 do{ |
16336 char my_name[10]; |
16347 char my_name[10]; |
16337 sprintf(my_name, "IN%d", base_num++); |
16348 sprintf(my_name, "IN%d", base_num++); |
16338 identifier_c param_name(my_name); |
16349 param_name = (symbol_c*)(new identifier_c(my_name)); |
16339 |
16350 |
16340 /* Get the value from a foo(<param_name> = <param_value>) style call */ |
16351 /* Get the value from a foo(<param_name> = <param_value>) style call */ |
16341 param_value = function_call_param_iterator.search_f(¶m_name); |
16352 param_value = function_call_param_iterator.search_f(param_name); |
16342 |
16353 |
16343 /* Get the value from a foo(<param_value>) style call */ |
16354 /* Get the value from a foo(<param_value>) style call */ |
16344 if (param_value == NULL) |
16355 if (param_value == NULL) |
16345 param_value = function_call_param_iterator.next_nf(); |
16356 param_value = function_call_param_iterator.next_nf(); |
16346 if (param_value != NULL){ |
16357 if (param_value != NULL){ |
16347 symbol_c *current_type_symbol = search_expression_type->get_type(param_value); |
16358 symbol_c *current_type_symbol = search_expression_type->get_type(param_value); |
16348 last_type_symbol = last_type_symbol && search_expression_type->is_same_type(current_type_symbol, last_type_symbol) ? search_expression_type->common_type(current_type_symbol, last_type_symbol) : current_type_symbol ; |
16359 last_type_symbol = last_type_symbol && search_expression_type->is_same_type(current_type_symbol, last_type_symbol) ? search_expression_type->common_type(current_type_symbol, last_type_symbol) : current_type_symbol ; |
16349 |
16360 |
16350 /*Function specific CODE */ |
16361 /*Function specific CODE */ |
16351 ADD_PARAM_LIST(¶m_name, param_value, current_type_symbol, function_param_iterator_c::direction_in) |
16362 ADD_PARAM_LIST(param_name, param_value, current_type_symbol, function_param_iterator_c::direction_in) |
16352 } |
16363 } |
16353 |
16364 |
16354 }while(param_value != NULL); |
16365 }while(param_value != NULL); |
16355 symbol_c * return_type_symbol = &search_constant_type_c::bool_type_name; |
16366 symbol_c * return_type_symbol = &search_constant_type_c::bool_type_name; |
16356 function_type_suffix = last_type_symbol; |
16367 function_type_suffix = last_type_symbol; |
16377 case function_lt : |
16388 case function_lt : |
16378 { |
16389 { |
16379 symbol_c *last_type_symbol = NULL; |
16390 symbol_c *last_type_symbol = NULL; |
16380 |
16391 |
16381 { |
16392 { |
16382 identifier_c IN1_param_name("IN1"); |
16393 symbol_c *IN1_param_name = (symbol_c *)(new identifier_c("IN1")); |
16383 /* Get the value from a foo(<param_name> = <param_value>) style call */ |
16394 /* Get the value from a foo(<param_name> = <param_value>) style call */ |
16384 symbol_c *IN1_param_value = &this->default_variable_name; |
16395 symbol_c *IN1_param_value = &this->default_variable_name; |
16385 |
16396 |
16386 symbol_c *IN1_type_symbol = param_data_type; |
16397 symbol_c *IN1_type_symbol = param_data_type; |
16387 last_type_symbol = param_data_type; |
16398 last_type_symbol = param_data_type; |
16388 |
16399 |
16389 |
16400 |
16390 { |
16401 { |
16391 |
16402 |
16392 { |
16403 { |
16393 identifier_c IN2_param_name("IN2"); |
16404 symbol_c *IN2_param_name = (symbol_c *)(new identifier_c("IN2")); |
16394 /* Get the value from a foo(<param_name> = <param_value>) style call */ |
16405 /* Get the value from a foo(<param_name> = <param_value>) style call */ |
16395 symbol_c *IN2_param_value = function_call_param_iterator.search_f(&IN2_param_name); |
16406 symbol_c *IN2_param_value = function_call_param_iterator.search_f(IN2_param_name); |
16396 symbol_c *IN2_type_symbol = NULL; |
16407 symbol_c *IN2_type_symbol = NULL; |
16397 |
16408 |
16398 /* Get the value from a foo(<param_value>) style call */ |
16409 /* Get the value from a foo(<param_value>) style call */ |
16399 if (IN2_param_value == NULL) |
16410 if (IN2_param_value == NULL) |
16400 IN2_param_value = function_call_param_iterator.next_nf(); |
16411 IN2_param_value = function_call_param_iterator.next_nf(); |
16410 |
16421 |
16411 if (nb_param < 2) |
16422 if (nb_param < 2) |
16412 nb_param = 2; |
16423 nb_param = 2; |
16413 char* nb_param_str = new char[10]; |
16424 char* nb_param_str = new char[10]; |
16414 sprintf(nb_param_str, "%d", nb_param); |
16425 sprintf(nb_param_str, "%d", nb_param); |
16415 identifier_c nb_param_name("nb_param"); |
16426 symbol_c * nb_param_name = (symbol_c *)(new identifier_c("nb_param")); |
16416 ADD_PARAM_LIST(&nb_param_name, (symbol_c*)(new integer_c((const char *)nb_param_str)), (symbol_c*)(new int_type_name_c()), function_param_iterator_c::direction_in) |
16427 ADD_PARAM_LIST(nb_param_name, (symbol_c*)(new integer_c((const char *)nb_param_str)), (symbol_c*)(new int_type_name_c()), function_param_iterator_c::direction_in) |
16417 |
16428 |
16418 if (IN1_type_symbol == NULL) |
16429 if (IN1_type_symbol == NULL) |
16419 IN1_type_symbol = last_type_symbol; |
16430 IN1_type_symbol = last_type_symbol; |
16420 ADD_PARAM_LIST(&IN1_param_name, IN1_param_value, IN1_type_symbol, function_param_iterator_c::direction_in) |
16431 ADD_PARAM_LIST(IN1_param_name, IN1_param_value, IN1_type_symbol, function_param_iterator_c::direction_in) |
16421 |
16432 |
16422 if (IN2_type_symbol == NULL) |
16433 if (IN2_type_symbol == NULL) |
16423 IN2_type_symbol = last_type_symbol; |
16434 IN2_type_symbol = last_type_symbol; |
16424 ADD_PARAM_LIST(&IN2_param_name, IN2_param_value, IN2_type_symbol, function_param_iterator_c::direction_in) |
16435 ADD_PARAM_LIST(IN2_param_name, IN2_param_value, IN2_type_symbol, function_param_iterator_c::direction_in) |
16425 |
16436 |
16426 int base_num = 3; |
16437 int base_num = 3; |
16427 symbol_c *param_value = NULL; |
16438 symbol_c *param_value = NULL; |
16439 symbol_c *param_name = NULL; |
|
16428 do{ |
16440 do{ |
16429 char my_name[10]; |
16441 char my_name[10]; |
16430 sprintf(my_name, "IN%d", base_num++); |
16442 sprintf(my_name, "IN%d", base_num++); |
16431 identifier_c param_name(my_name); |
16443 param_name = (symbol_c*)(new identifier_c(my_name)); |
16432 |
16444 |
16433 /* Get the value from a foo(<param_name> = <param_value>) style call */ |
16445 /* Get the value from a foo(<param_name> = <param_value>) style call */ |
16434 param_value = function_call_param_iterator.search_f(¶m_name); |
16446 param_value = function_call_param_iterator.search_f(param_name); |
16435 |
16447 |
16436 /* Get the value from a foo(<param_value>) style call */ |
16448 /* Get the value from a foo(<param_value>) style call */ |
16437 if (param_value == NULL) |
16449 if (param_value == NULL) |
16438 param_value = function_call_param_iterator.next_nf(); |
16450 param_value = function_call_param_iterator.next_nf(); |
16439 if (param_value != NULL){ |
16451 if (param_value != NULL){ |
16440 symbol_c *current_type_symbol = search_expression_type->get_type(param_value); |
16452 symbol_c *current_type_symbol = search_expression_type->get_type(param_value); |
16441 last_type_symbol = last_type_symbol && search_expression_type->is_same_type(current_type_symbol, last_type_symbol) ? search_expression_type->common_type(current_type_symbol, last_type_symbol) : current_type_symbol ; |
16453 last_type_symbol = last_type_symbol && search_expression_type->is_same_type(current_type_symbol, last_type_symbol) ? search_expression_type->common_type(current_type_symbol, last_type_symbol) : current_type_symbol ; |
16442 |
16454 |
16443 /*Function specific CODE */ |
16455 /*Function specific CODE */ |
16444 ADD_PARAM_LIST(¶m_name, param_value, current_type_symbol, function_param_iterator_c::direction_in) |
16456 ADD_PARAM_LIST(param_name, param_value, current_type_symbol, function_param_iterator_c::direction_in) |
16445 } |
16457 } |
16446 |
16458 |
16447 }while(param_value != NULL); |
16459 }while(param_value != NULL); |
16448 symbol_c * return_type_symbol = &search_constant_type_c::bool_type_name; |
16460 symbol_c * return_type_symbol = &search_constant_type_c::bool_type_name; |
16449 function_type_suffix = last_type_symbol; |
16461 function_type_suffix = last_type_symbol; |
16470 case function_le : |
16482 case function_le : |
16471 { |
16483 { |
16472 symbol_c *last_type_symbol = NULL; |
16484 symbol_c *last_type_symbol = NULL; |
16473 |
16485 |
16474 { |
16486 { |
16475 identifier_c IN1_param_name("IN1"); |
16487 symbol_c *IN1_param_name = (symbol_c *)(new identifier_c("IN1")); |
16476 /* Get the value from a foo(<param_name> = <param_value>) style call */ |
16488 /* Get the value from a foo(<param_name> = <param_value>) style call */ |
16477 symbol_c *IN1_param_value = &this->default_variable_name; |
16489 symbol_c *IN1_param_value = &this->default_variable_name; |
16478 |
16490 |
16479 symbol_c *IN1_type_symbol = param_data_type; |
16491 symbol_c *IN1_type_symbol = param_data_type; |
16480 last_type_symbol = param_data_type; |
16492 last_type_symbol = param_data_type; |
16481 |
16493 |
16482 |
16494 |
16483 { |
16495 { |
16484 |
16496 |
16485 { |
16497 { |
16486 identifier_c IN2_param_name("IN2"); |
16498 symbol_c *IN2_param_name = (symbol_c *)(new identifier_c("IN2")); |
16487 /* Get the value from a foo(<param_name> = <param_value>) style call */ |
16499 /* Get the value from a foo(<param_name> = <param_value>) style call */ |
16488 symbol_c *IN2_param_value = function_call_param_iterator.search_f(&IN2_param_name); |
16500 symbol_c *IN2_param_value = function_call_param_iterator.search_f(IN2_param_name); |
16489 symbol_c *IN2_type_symbol = NULL; |
16501 symbol_c *IN2_type_symbol = NULL; |
16490 |
16502 |
16491 /* Get the value from a foo(<param_value>) style call */ |
16503 /* Get the value from a foo(<param_value>) style call */ |
16492 if (IN2_param_value == NULL) |
16504 if (IN2_param_value == NULL) |
16493 IN2_param_value = function_call_param_iterator.next_nf(); |
16505 IN2_param_value = function_call_param_iterator.next_nf(); |
16503 |
16515 |
16504 if (nb_param < 2) |
16516 if (nb_param < 2) |
16505 nb_param = 2; |
16517 nb_param = 2; |
16506 char* nb_param_str = new char[10]; |
16518 char* nb_param_str = new char[10]; |
16507 sprintf(nb_param_str, "%d", nb_param); |
16519 sprintf(nb_param_str, "%d", nb_param); |
16508 identifier_c nb_param_name("nb_param"); |
16520 symbol_c * nb_param_name = (symbol_c *)(new identifier_c("nb_param")); |
16509 ADD_PARAM_LIST(&nb_param_name, (symbol_c*)(new integer_c((const char *)nb_param_str)), (symbol_c*)(new int_type_name_c()), function_param_iterator_c::direction_in) |
16521 ADD_PARAM_LIST(nb_param_name, (symbol_c*)(new integer_c((const char *)nb_param_str)), (symbol_c*)(new int_type_name_c()), function_param_iterator_c::direction_in) |
16510 |
16522 |
16511 if (IN1_type_symbol == NULL) |
16523 if (IN1_type_symbol == NULL) |
16512 IN1_type_symbol = last_type_symbol; |
16524 IN1_type_symbol = last_type_symbol; |
16513 ADD_PARAM_LIST(&IN1_param_name, IN1_param_value, IN1_type_symbol, function_param_iterator_c::direction_in) |
16525 ADD_PARAM_LIST(IN1_param_name, IN1_param_value, IN1_type_symbol, function_param_iterator_c::direction_in) |
16514 |
16526 |
16515 if (IN2_type_symbol == NULL) |
16527 if (IN2_type_symbol == NULL) |
16516 IN2_type_symbol = last_type_symbol; |
16528 IN2_type_symbol = last_type_symbol; |
16517 ADD_PARAM_LIST(&IN2_param_name, IN2_param_value, IN2_type_symbol, function_param_iterator_c::direction_in) |
16529 ADD_PARAM_LIST(IN2_param_name, IN2_param_value, IN2_type_symbol, function_param_iterator_c::direction_in) |
16518 |
16530 |
16519 int base_num = 3; |
16531 int base_num = 3; |
16520 symbol_c *param_value = NULL; |
16532 symbol_c *param_value = NULL; |
16533 symbol_c *param_name = NULL; |
|
16521 do{ |
16534 do{ |
16522 char my_name[10]; |
16535 char my_name[10]; |
16523 sprintf(my_name, "IN%d", base_num++); |
16536 sprintf(my_name, "IN%d", base_num++); |
16524 identifier_c param_name(my_name); |
16537 param_name = (symbol_c*)(new identifier_c(my_name)); |
16525 |
16538 |
16526 /* Get the value from a foo(<param_name> = <param_value>) style call */ |
16539 /* Get the value from a foo(<param_name> = <param_value>) style call */ |
16527 param_value = function_call_param_iterator.search_f(¶m_name); |
16540 param_value = function_call_param_iterator.search_f(param_name); |
16528 |
16541 |
16529 /* Get the value from a foo(<param_value>) style call */ |
16542 /* Get the value from a foo(<param_value>) style call */ |
16530 if (param_value == NULL) |
16543 if (param_value == NULL) |
16531 param_value = function_call_param_iterator.next_nf(); |
16544 param_value = function_call_param_iterator.next_nf(); |
16532 if (param_value != NULL){ |
16545 if (param_value != NULL){ |
16533 symbol_c *current_type_symbol = search_expression_type->get_type(param_value); |
16546 symbol_c *current_type_symbol = search_expression_type->get_type(param_value); |
16534 last_type_symbol = last_type_symbol && search_expression_type->is_same_type(current_type_symbol, last_type_symbol) ? search_expression_type->common_type(current_type_symbol, last_type_symbol) : current_type_symbol ; |
16547 last_type_symbol = last_type_symbol && search_expression_type->is_same_type(current_type_symbol, last_type_symbol) ? search_expression_type->common_type(current_type_symbol, last_type_symbol) : current_type_symbol ; |
16535 |
16548 |
16536 /*Function specific CODE */ |
16549 /*Function specific CODE */ |
16537 ADD_PARAM_LIST(¶m_name, param_value, current_type_symbol, function_param_iterator_c::direction_in) |
16550 ADD_PARAM_LIST(param_name, param_value, current_type_symbol, function_param_iterator_c::direction_in) |
16538 } |
16551 } |
16539 |
16552 |
16540 }while(param_value != NULL); |
16553 }while(param_value != NULL); |
16541 symbol_c * return_type_symbol = &search_constant_type_c::bool_type_name; |
16554 symbol_c * return_type_symbol = &search_constant_type_c::bool_type_name; |
16542 function_type_suffix = last_type_symbol; |
16555 function_type_suffix = last_type_symbol; |
16563 case function_ne : |
16576 case function_ne : |
16564 { |
16577 { |
16565 symbol_c *last_type_symbol = NULL; |
16578 symbol_c *last_type_symbol = NULL; |
16566 |
16579 |
16567 { |
16580 { |
16568 identifier_c IN1_param_name("IN1"); |
16581 symbol_c *IN1_param_name = (symbol_c *)(new identifier_c("IN1")); |
16569 /* Get the value from a foo(<param_name> = <param_value>) style call */ |
16582 /* Get the value from a foo(<param_name> = <param_value>) style call */ |
16570 symbol_c *IN1_param_value = &this->default_variable_name; |
16583 symbol_c *IN1_param_value = &this->default_variable_name; |
16571 |
16584 |
16572 symbol_c *IN1_type_symbol = param_data_type; |
16585 symbol_c *IN1_type_symbol = param_data_type; |
16573 last_type_symbol = param_data_type; |
16586 last_type_symbol = param_data_type; |
16574 |
16587 |
16575 |
16588 |
16576 { |
16589 { |
16577 |
16590 |
16578 { |
16591 { |
16579 identifier_c IN2_param_name("IN2"); |
16592 symbol_c *IN2_param_name = (symbol_c *)(new identifier_c("IN2")); |
16580 /* Get the value from a foo(<param_name> = <param_value>) style call */ |
16593 /* Get the value from a foo(<param_name> = <param_value>) style call */ |
16581 symbol_c *IN2_param_value = function_call_param_iterator.search_f(&IN2_param_name); |
16594 symbol_c *IN2_param_value = function_call_param_iterator.search_f(IN2_param_name); |
16582 symbol_c *IN2_type_symbol = NULL; |
16595 symbol_c *IN2_type_symbol = NULL; |
16583 |
16596 |
16584 /* Get the value from a foo(<param_value>) style call */ |
16597 /* Get the value from a foo(<param_value>) style call */ |
16585 if (IN2_param_value == NULL) |
16598 if (IN2_param_value == NULL) |
16586 IN2_param_value = function_call_param_iterator.next_nf(); |
16599 IN2_param_value = function_call_param_iterator.next_nf(); |
16596 |
16609 |
16597 if (nb_param < 2) |
16610 if (nb_param < 2) |
16598 nb_param = 2; |
16611 nb_param = 2; |
16599 char* nb_param_str = new char[10]; |
16612 char* nb_param_str = new char[10]; |
16600 sprintf(nb_param_str, "%d", nb_param); |
16613 sprintf(nb_param_str, "%d", nb_param); |
16601 identifier_c nb_param_name("nb_param"); |
16614 symbol_c * nb_param_name = (symbol_c *)(new identifier_c("nb_param")); |
16602 ADD_PARAM_LIST(&nb_param_name, (symbol_c*)(new integer_c((const char *)nb_param_str)), (symbol_c*)(new int_type_name_c()), function_param_iterator_c::direction_in) |
16615 ADD_PARAM_LIST(nb_param_name, (symbol_c*)(new integer_c((const char *)nb_param_str)), (symbol_c*)(new int_type_name_c()), function_param_iterator_c::direction_in) |
16603 |
16616 |
16604 if (IN1_type_symbol == NULL) |
16617 if (IN1_type_symbol == NULL) |
16605 IN1_type_symbol = last_type_symbol; |
16618 IN1_type_symbol = last_type_symbol; |
16606 ADD_PARAM_LIST(&IN1_param_name, IN1_param_value, IN1_type_symbol, function_param_iterator_c::direction_in) |
16619 ADD_PARAM_LIST(IN1_param_name, IN1_param_value, IN1_type_symbol, function_param_iterator_c::direction_in) |
16607 |
16620 |
16608 if (IN2_type_symbol == NULL) |
16621 if (IN2_type_symbol == NULL) |
16609 IN2_type_symbol = last_type_symbol; |
16622 IN2_type_symbol = last_type_symbol; |
16610 ADD_PARAM_LIST(&IN2_param_name, IN2_param_value, IN2_type_symbol, function_param_iterator_c::direction_in) |
16623 ADD_PARAM_LIST(IN2_param_name, IN2_param_value, IN2_type_symbol, function_param_iterator_c::direction_in) |
16611 |
16624 |
16612 int base_num = 3; |
16625 int base_num = 3; |
16613 symbol_c *param_value = NULL; |
16626 symbol_c *param_value = NULL; |
16627 symbol_c *param_name = NULL; |
|
16614 do{ |
16628 do{ |
16615 char my_name[10]; |
16629 char my_name[10]; |
16616 sprintf(my_name, "IN%d", base_num++); |
16630 sprintf(my_name, "IN%d", base_num++); |
16617 identifier_c param_name(my_name); |
16631 param_name = (symbol_c*)(new identifier_c(my_name)); |
16618 |
16632 |
16619 /* Get the value from a foo(<param_name> = <param_value>) style call */ |
16633 /* Get the value from a foo(<param_name> = <param_value>) style call */ |
16620 param_value = function_call_param_iterator.search_f(¶m_name); |
16634 param_value = function_call_param_iterator.search_f(param_name); |
16621 |
16635 |
16622 /* Get the value from a foo(<param_value>) style call */ |
16636 /* Get the value from a foo(<param_value>) style call */ |
16623 if (param_value == NULL) |
16637 if (param_value == NULL) |
16624 param_value = function_call_param_iterator.next_nf(); |
16638 param_value = function_call_param_iterator.next_nf(); |
16625 if (param_value != NULL){ |
16639 if (param_value != NULL){ |
16626 symbol_c *current_type_symbol = search_expression_type->get_type(param_value); |
16640 symbol_c *current_type_symbol = search_expression_type->get_type(param_value); |
16627 last_type_symbol = last_type_symbol && search_expression_type->is_same_type(current_type_symbol, last_type_symbol) ? search_expression_type->common_type(current_type_symbol, last_type_symbol) : current_type_symbol ; |
16641 last_type_symbol = last_type_symbol && search_expression_type->is_same_type(current_type_symbol, last_type_symbol) ? search_expression_type->common_type(current_type_symbol, last_type_symbol) : current_type_symbol ; |
16628 |
16642 |
16629 /*Function specific CODE */ |
16643 /*Function specific CODE */ |
16630 ADD_PARAM_LIST(¶m_name, param_value, current_type_symbol, function_param_iterator_c::direction_in) |
16644 ADD_PARAM_LIST(param_name, param_value, current_type_symbol, function_param_iterator_c::direction_in) |
16631 } |
16645 } |
16632 |
16646 |
16633 }while(param_value != NULL); |
16647 }while(param_value != NULL); |
16634 symbol_c * return_type_symbol = &search_constant_type_c::bool_type_name; |
16648 symbol_c * return_type_symbol = &search_constant_type_c::bool_type_name; |
16635 function_type_suffix = last_type_symbol; |
16649 function_type_suffix = last_type_symbol; |
16656 case function_len : |
16670 case function_len : |
16657 { |
16671 { |
16658 symbol_c *last_type_symbol = NULL; |
16672 symbol_c *last_type_symbol = NULL; |
16659 |
16673 |
16660 { |
16674 { |
16661 identifier_c IN_param_name("IN"); |
16675 symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); |
16662 /* Get the value from a foo(<param_name> = <param_value>) style call */ |
16676 /* Get the value from a foo(<param_name> = <param_value>) style call */ |
16663 symbol_c *IN_param_value = &this->default_variable_name; |
16677 symbol_c *IN_param_value = &this->default_variable_name; |
16664 |
16678 |
16665 symbol_c *IN_type_symbol = param_data_type; |
16679 symbol_c *IN_type_symbol = param_data_type; |
16666 last_type_symbol = param_data_type; |
16680 last_type_symbol = param_data_type; |
16670 |
16684 |
16671 function_name = (symbol_c*)(new pragma_c("__len")); |
16685 function_name = (symbol_c*)(new pragma_c("__len")); |
16672 |
16686 |
16673 if (IN_type_symbol == NULL) |
16687 if (IN_type_symbol == NULL) |
16674 IN_type_symbol = last_type_symbol; |
16688 IN_type_symbol = last_type_symbol; |
16675 ADD_PARAM_LIST(&IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) |
16689 ADD_PARAM_LIST(IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) |
16676 symbol_c * return_type_symbol = &search_constant_type_c::int_type_name; |
16690 symbol_c * return_type_symbol = &search_constant_type_c::int_type_name; |
16677 break; |
16691 break; |
16678 |
16692 |
16679 } |
16693 } |
16680 |
16694 |
16691 case function_left : |
16705 case function_left : |
16692 { |
16706 { |
16693 symbol_c *last_type_symbol = NULL; |
16707 symbol_c *last_type_symbol = NULL; |
16694 |
16708 |
16695 { |
16709 { |
16696 identifier_c IN_param_name("IN"); |
16710 symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); |
16697 /* Get the value from a foo(<param_name> = <param_value>) style call */ |
16711 /* Get the value from a foo(<param_name> = <param_value>) style call */ |
16698 symbol_c *IN_param_value = &this->default_variable_name; |
16712 symbol_c *IN_param_value = &this->default_variable_name; |
16699 |
16713 |
16700 symbol_c *IN_type_symbol = param_data_type; |
16714 symbol_c *IN_type_symbol = param_data_type; |
16701 last_type_symbol = param_data_type; |
16715 last_type_symbol = param_data_type; |
16702 |
16716 |
16703 if(IN_type_symbol == NULL || search_expression_type->is_same_type(&search_constant_type_c::string_type_name, last_type_symbol)) |
16717 if(IN_type_symbol == NULL || search_expression_type->is_same_type(&search_constant_type_c::string_type_name, last_type_symbol)) |
16704 { |
16718 { |
16705 |
16719 |
16706 { |
16720 { |
16707 identifier_c L_param_name("L"); |
16721 symbol_c *L_param_name = (symbol_c *)(new identifier_c("L")); |
16708 /* Get the value from a foo(<param_name> = <param_value>) style call */ |
16722 /* Get the value from a foo(<param_name> = <param_value>) style call */ |
16709 symbol_c *L_param_value = function_call_param_iterator.search_f(&L_param_name); |
16723 symbol_c *L_param_value = function_call_param_iterator.search_f(L_param_name); |
16710 symbol_c *L_type_symbol = NULL; |
16724 symbol_c *L_type_symbol = NULL; |
16711 |
16725 |
16712 /* Get the value from a foo(<param_value>) style call */ |
16726 /* Get the value from a foo(<param_value>) style call */ |
16713 if (L_param_value == NULL) |
16727 if (L_param_value == NULL) |
16714 L_param_value = function_call_param_iterator.next_nf(); |
16728 L_param_value = function_call_param_iterator.next_nf(); |
16722 |
16736 |
16723 function_name = (symbol_c*)(new pragma_c("__left")); |
16737 function_name = (symbol_c*)(new pragma_c("__left")); |
16724 |
16738 |
16725 if (IN_type_symbol == NULL) |
16739 if (IN_type_symbol == NULL) |
16726 IN_type_symbol = last_type_symbol; |
16740 IN_type_symbol = last_type_symbol; |
16727 ADD_PARAM_LIST(&IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) |
16741 ADD_PARAM_LIST(IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) |
16728 |
16742 |
16729 if (L_type_symbol == NULL) |
16743 if (L_type_symbol == NULL) |
16730 L_type_symbol = last_type_symbol; |
16744 L_type_symbol = last_type_symbol; |
16731 ADD_PARAM_LIST(&L_param_name, L_param_value, L_type_symbol, function_param_iterator_c::direction_in) |
16745 ADD_PARAM_LIST(L_param_name, L_param_value, L_type_symbol, function_param_iterator_c::direction_in) |
16732 symbol_c * return_type_symbol = &search_constant_type_c::string_type_name; |
16746 symbol_c * return_type_symbol = &search_constant_type_c::string_type_name; |
16733 break; |
16747 break; |
16734 |
16748 |
16735 } |
16749 } |
16736 |
16750 |
16753 case function_right : |
16767 case function_right : |
16754 { |
16768 { |
16755 symbol_c *last_type_symbol = NULL; |
16769 symbol_c *last_type_symbol = NULL; |
16756 |
16770 |
16757 { |
16771 { |
16758 identifier_c IN_param_name("IN"); |
16772 symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); |
16759 /* Get the value from a foo(<param_name> = <param_value>) style call */ |
16773 /* Get the value from a foo(<param_name> = <param_value>) style call */ |
16760 symbol_c *IN_param_value = &this->default_variable_name; |
16774 symbol_c *IN_param_value = &this->default_variable_name; |
16761 |
16775 |
16762 symbol_c *IN_type_symbol = param_data_type; |
16776 symbol_c *IN_type_symbol = param_data_type; |
16763 last_type_symbol = param_data_type; |
16777 last_type_symbol = param_data_type; |
16764 |
16778 |
16765 if(IN_type_symbol == NULL || search_expression_type->is_same_type(&search_constant_type_c::string_type_name, last_type_symbol)) |
16779 if(IN_type_symbol == NULL || search_expression_type->is_same_type(&search_constant_type_c::string_type_name, last_type_symbol)) |
16766 { |
16780 { |
16767 |
16781 |
16768 { |
16782 { |
16769 identifier_c L_param_name("L"); |
16783 symbol_c *L_param_name = (symbol_c *)(new identifier_c("L")); |
16770 /* Get the value from a foo(<param_name> = <param_value>) style call */ |
16784 /* Get the value from a foo(<param_name> = <param_value>) style call */ |
16771 symbol_c *L_param_value = function_call_param_iterator.search_f(&L_param_name); |
16785 symbol_c *L_param_value = function_call_param_iterator.search_f(L_param_name); |
16772 symbol_c *L_type_symbol = NULL; |
16786 symbol_c *L_type_symbol = NULL; |
16773 |
16787 |
16774 /* Get the value from a foo(<param_value>) style call */ |
16788 /* Get the value from a foo(<param_value>) style call */ |
16775 if (L_param_value == NULL) |
16789 if (L_param_value == NULL) |
16776 L_param_value = function_call_param_iterator.next_nf(); |
16790 L_param_value = function_call_param_iterator.next_nf(); |
16784 |
16798 |
16785 function_name = (symbol_c*)(new pragma_c("__right")); |
16799 function_name = (symbol_c*)(new pragma_c("__right")); |
16786 |
16800 |
16787 if (IN_type_symbol == NULL) |
16801 if (IN_type_symbol == NULL) |
16788 IN_type_symbol = last_type_symbol; |
16802 IN_type_symbol = last_type_symbol; |
16789 ADD_PARAM_LIST(&IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) |
16803 ADD_PARAM_LIST(IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) |
16790 |
16804 |
16791 if (L_type_symbol == NULL) |
16805 if (L_type_symbol == NULL) |
16792 L_type_symbol = last_type_symbol; |
16806 L_type_symbol = last_type_symbol; |
16793 ADD_PARAM_LIST(&L_param_name, L_param_value, L_type_symbol, function_param_iterator_c::direction_in) |
16807 ADD_PARAM_LIST(L_param_name, L_param_value, L_type_symbol, function_param_iterator_c::direction_in) |
16794 symbol_c * return_type_symbol = &search_constant_type_c::string_type_name; |
16808 symbol_c * return_type_symbol = &search_constant_type_c::string_type_name; |
16795 break; |
16809 break; |
16796 |
16810 |
16797 } |
16811 } |
16798 |
16812 |
16815 case function_mid : |
16829 case function_mid : |
16816 { |
16830 { |
16817 symbol_c *last_type_symbol = NULL; |
16831 symbol_c *last_type_symbol = NULL; |
16818 |
16832 |
16819 { |
16833 { |
16820 identifier_c IN_param_name("IN"); |
16834 symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); |
16821 /* Get the value from a foo(<param_name> = <param_value>) style call */ |
16835 /* Get the value from a foo(<param_name> = <param_value>) style call */ |
16822 symbol_c *IN_param_value = &this->default_variable_name; |
16836 symbol_c *IN_param_value = &this->default_variable_name; |
16823 |
16837 |
16824 symbol_c *IN_type_symbol = param_data_type; |
16838 symbol_c *IN_type_symbol = param_data_type; |
16825 last_type_symbol = param_data_type; |
16839 last_type_symbol = param_data_type; |
16826 |
16840 |
16827 if(IN_type_symbol == NULL || search_expression_type->is_same_type(&search_constant_type_c::string_type_name, last_type_symbol)) |
16841 if(IN_type_symbol == NULL || search_expression_type->is_same_type(&search_constant_type_c::string_type_name, last_type_symbol)) |
16828 { |
16842 { |
16829 |
16843 |
16830 { |
16844 { |
16831 identifier_c L_param_name("L"); |
16845 symbol_c *L_param_name = (symbol_c *)(new identifier_c("L")); |
16832 /* Get the value from a foo(<param_name> = <param_value>) style call */ |
16846 /* Get the value from a foo(<param_name> = <param_value>) style call */ |
16833 symbol_c *L_param_value = function_call_param_iterator.search_f(&L_param_name); |
16847 symbol_c *L_param_value = function_call_param_iterator.search_f(L_param_name); |
16834 symbol_c *L_type_symbol = NULL; |
16848 symbol_c *L_type_symbol = NULL; |
16835 |
16849 |
16836 /* Get the value from a foo(<param_value>) style call */ |
16850 /* Get the value from a foo(<param_value>) style call */ |
16837 if (L_param_value == NULL) |
16851 if (L_param_value == NULL) |
16838 L_param_value = function_call_param_iterator.next_nf(); |
16852 L_param_value = function_call_param_iterator.next_nf(); |
16843 |
16857 |
16844 if(L_type_symbol == NULL || search_expression_type->is_integer_type(L_type_symbol)) |
16858 if(L_type_symbol == NULL || search_expression_type->is_integer_type(L_type_symbol)) |
16845 { |
16859 { |
16846 |
16860 |
16847 { |
16861 { |
16848 identifier_c P_param_name("P"); |
16862 symbol_c *P_param_name = (symbol_c *)(new identifier_c("P")); |
16849 /* Get the value from a foo(<param_name> = <param_value>) style call */ |
16863 /* Get the value from a foo(<param_name> = <param_value>) style call */ |
16850 symbol_c *P_param_value = function_call_param_iterator.search_f(&P_param_name); |
16864 symbol_c *P_param_value = function_call_param_iterator.search_f(P_param_name); |
16851 symbol_c *P_type_symbol = NULL; |
16865 symbol_c *P_type_symbol = NULL; |
16852 |
16866 |
16853 /* Get the value from a foo(<param_value>) style call */ |
16867 /* Get the value from a foo(<param_value>) style call */ |
16854 if (P_param_value == NULL) |
16868 if (P_param_value == NULL) |
16855 P_param_value = function_call_param_iterator.next_nf(); |
16869 P_param_value = function_call_param_iterator.next_nf(); |
16863 |
16877 |
16864 function_name = (symbol_c*)(new pragma_c("__mid")); |
16878 function_name = (symbol_c*)(new pragma_c("__mid")); |
16865 |
16879 |
16866 if (IN_type_symbol == NULL) |
16880 if (IN_type_symbol == NULL) |
16867 IN_type_symbol = last_type_symbol; |
16881 IN_type_symbol = last_type_symbol; |
16868 ADD_PARAM_LIST(&IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) |
16882 ADD_PARAM_LIST(IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) |
16869 |
16883 |
16870 if (L_type_symbol == NULL) |
16884 if (L_type_symbol == NULL) |
16871 L_type_symbol = last_type_symbol; |
16885 L_type_symbol = last_type_symbol; |
16872 ADD_PARAM_LIST(&L_param_name, L_param_value, L_type_symbol, function_param_iterator_c::direction_in) |
16886 ADD_PARAM_LIST(L_param_name, L_param_value, L_type_symbol, function_param_iterator_c::direction_in) |
16873 |
16887 |
16874 if (P_type_symbol == NULL) |
16888 if (P_type_symbol == NULL) |
16875 P_type_symbol = last_type_symbol; |
16889 P_type_symbol = last_type_symbol; |
16876 ADD_PARAM_LIST(&P_param_name, P_param_value, P_type_symbol, function_param_iterator_c::direction_in) |
16890 ADD_PARAM_LIST(P_param_name, P_param_value, P_type_symbol, function_param_iterator_c::direction_in) |
16877 symbol_c * return_type_symbol = &search_constant_type_c::string_type_name; |
16891 symbol_c * return_type_symbol = &search_constant_type_c::string_type_name; |
16878 break; |
16892 break; |
16879 |
16893 |
16880 } |
16894 } |
16881 |
16895 |
16904 case function_concat : |
16918 case function_concat : |
16905 { |
16919 { |
16906 symbol_c *last_type_symbol = NULL; |
16920 symbol_c *last_type_symbol = NULL; |
16907 |
16921 |
16908 { |
16922 { |
16909 identifier_c IN1_param_name("IN1"); |
16923 symbol_c *IN1_param_name = (symbol_c *)(new identifier_c("IN1")); |
16910 /* Get the value from a foo(<param_name> = <param_value>) style call */ |
16924 /* Get the value from a foo(<param_name> = <param_value>) style call */ |
16911 symbol_c *IN1_param_value = &this->default_variable_name; |
16925 symbol_c *IN1_param_value = &this->default_variable_name; |
16912 |
16926 |
16913 symbol_c *IN1_type_symbol = param_data_type; |
16927 symbol_c *IN1_type_symbol = param_data_type; |
16914 last_type_symbol = param_data_type; |
16928 last_type_symbol = param_data_type; |
16915 |
16929 |
16916 if(IN1_type_symbol == NULL || search_expression_type->is_same_type(&search_constant_type_c::date_type_name, last_type_symbol)) |
16930 if(IN1_type_symbol == NULL || search_expression_type->is_same_type(&search_constant_type_c::date_type_name, last_type_symbol)) |
16917 { |
16931 { |
16918 |
16932 |
16919 { |
16933 { |
16920 identifier_c IN2_param_name("IN2"); |
16934 symbol_c *IN2_param_name = (symbol_c *)(new identifier_c("IN2")); |
16921 /* Get the value from a foo(<param_name> = <param_value>) style call */ |
16935 /* Get the value from a foo(<param_name> = <param_value>) style call */ |
16922 symbol_c *IN2_param_value = function_call_param_iterator.search_f(&IN2_param_name); |
16936 symbol_c *IN2_param_value = function_call_param_iterator.search_f(IN2_param_name); |
16923 symbol_c *IN2_type_symbol = NULL; |
16937 symbol_c *IN2_type_symbol = NULL; |
16924 |
16938 |
16925 /* Get the value from a foo(<param_value>) style call */ |
16939 /* Get the value from a foo(<param_value>) style call */ |
16926 if (IN2_param_value == NULL) |
16940 if (IN2_param_value == NULL) |
16927 IN2_param_value = function_call_param_iterator.next_nf(); |
16941 IN2_param_value = function_call_param_iterator.next_nf(); |
16935 |
16949 |
16936 function_name = (symbol_c*)(new pragma_c("__time_add")); |
16950 function_name = (symbol_c*)(new pragma_c("__time_add")); |
16937 |
16951 |
16938 if (IN1_type_symbol == NULL) |
16952 if (IN1_type_symbol == NULL) |
16939 IN1_type_symbol = last_type_symbol; |
16953 IN1_type_symbol = last_type_symbol; |
16940 ADD_PARAM_LIST(&IN1_param_name, IN1_param_value, IN1_type_symbol, function_param_iterator_c::direction_in) |
16954 ADD_PARAM_LIST(IN1_param_name, IN1_param_value, IN1_type_symbol, function_param_iterator_c::direction_in) |
16941 |
16955 |
16942 if (IN2_type_symbol == NULL) |
16956 if (IN2_type_symbol == NULL) |
16943 IN2_type_symbol = last_type_symbol; |
16957 IN2_type_symbol = last_type_symbol; |
16944 ADD_PARAM_LIST(&IN2_param_name, IN2_param_value, IN2_type_symbol, function_param_iterator_c::direction_in) |
16958 ADD_PARAM_LIST(IN2_param_name, IN2_param_value, IN2_type_symbol, function_param_iterator_c::direction_in) |
16945 symbol_c * return_type_symbol = &search_constant_type_c::dt_type_name; |
16959 symbol_c * return_type_symbol = &search_constant_type_c::dt_type_name; |
16946 break; |
16960 break; |
16947 |
16961 |
16948 } |
16962 } |
16949 |
16963 |
16955 |
16969 |
16956 if(IN1_type_symbol == NULL || search_expression_type->is_same_type(&search_constant_type_c::string_type_name, last_type_symbol)) |
16970 if(IN1_type_symbol == NULL || search_expression_type->is_same_type(&search_constant_type_c::string_type_name, last_type_symbol)) |
16957 { |
16971 { |
16958 |
16972 |
16959 { |
16973 { |
16960 identifier_c IN2_param_name("IN2"); |
16974 symbol_c *IN2_param_name = (symbol_c *)(new identifier_c("IN2")); |
16961 /* Get the value from a foo(<param_name> = <param_value>) style call */ |
16975 /* Get the value from a foo(<param_name> = <param_value>) style call */ |
16962 symbol_c *IN2_param_value = function_call_param_iterator.search_f(&IN2_param_name); |
16976 symbol_c *IN2_param_value = function_call_param_iterator.search_f(IN2_param_name); |
16963 symbol_c *IN2_type_symbol = NULL; |
16977 symbol_c *IN2_type_symbol = NULL; |
16964 |
16978 |
16965 /* Get the value from a foo(<param_value>) style call */ |
16979 /* Get the value from a foo(<param_value>) style call */ |
16966 if (IN2_param_value == NULL) |
16980 if (IN2_param_value == NULL) |
16967 IN2_param_value = function_call_param_iterator.next_nf(); |
16981 IN2_param_value = function_call_param_iterator.next_nf(); |
16977 |
16991 |
16978 if (nb_param < 2) |
16992 if (nb_param < 2) |
16979 nb_param = 2; |
16993 nb_param = 2; |
16980 char* nb_param_str = new char[10]; |
16994 char* nb_param_str = new char[10]; |
16981 sprintf(nb_param_str, "%d", nb_param); |
16995 sprintf(nb_param_str, "%d", nb_param); |
16982 identifier_c nb_param_name("nb_param"); |
16996 symbol_c * nb_param_name = (symbol_c *)(new identifier_c("nb_param")); |
16983 ADD_PARAM_LIST(&nb_param_name, (symbol_c*)(new integer_c((const char *)nb_param_str)), (symbol_c*)(new int_type_name_c()), function_param_iterator_c::direction_in) |
16997 ADD_PARAM_LIST(nb_param_name, (symbol_c*)(new integer_c((const char *)nb_param_str)), (symbol_c*)(new int_type_name_c()), function_param_iterator_c::direction_in) |
16984 |
16998 |
16985 if (IN1_type_symbol == NULL) |
16999 if (IN1_type_symbol == NULL) |
16986 IN1_type_symbol = last_type_symbol; |
17000 IN1_type_symbol = last_type_symbol; |
16987 ADD_PARAM_LIST(&IN1_param_name, IN1_param_value, IN1_type_symbol, function_param_iterator_c::direction_in) |
17001 ADD_PARAM_LIST(IN1_param_name, IN1_param_value, IN1_type_symbol, function_param_iterator_c::direction_in) |
16988 |
17002 |
16989 if (IN2_type_symbol == NULL) |
17003 if (IN2_type_symbol == NULL) |
16990 IN2_type_symbol = last_type_symbol; |
17004 IN2_type_symbol = last_type_symbol; |
16991 ADD_PARAM_LIST(&IN2_param_name, IN2_param_value, IN2_type_symbol, function_param_iterator_c::direction_in) |
17005 ADD_PARAM_LIST(IN2_param_name, IN2_param_value, IN2_type_symbol, function_param_iterator_c::direction_in) |
16992 |
17006 |
16993 int base_num = 3; |
17007 int base_num = 3; |
16994 symbol_c *param_value = NULL; |
17008 symbol_c *param_value = NULL; |
17009 symbol_c *param_name = NULL; |
|
16995 do{ |
17010 do{ |
16996 char my_name[10]; |
17011 char my_name[10]; |
16997 sprintf(my_name, "IN%d", base_num++); |
17012 sprintf(my_name, "IN%d", base_num++); |
16998 identifier_c param_name(my_name); |
17013 param_name = (symbol_c*)(new identifier_c(my_name)); |
16999 |
17014 |
17000 /* Get the value from a foo(<param_name> = <param_value>) style call */ |
17015 /* Get the value from a foo(<param_name> = <param_value>) style call */ |
17001 param_value = function_call_param_iterator.search_f(¶m_name); |
17016 param_value = function_call_param_iterator.search_f(param_name); |
17002 |
17017 |
17003 /* Get the value from a foo(<param_value>) style call */ |
17018 /* Get the value from a foo(<param_value>) style call */ |
17004 if (param_value == NULL) |
17019 if (param_value == NULL) |
17005 param_value = function_call_param_iterator.next_nf(); |
17020 param_value = function_call_param_iterator.next_nf(); |
17006 if (param_value != NULL){ |
17021 if (param_value != NULL){ |
17007 symbol_c *current_type_symbol = search_expression_type->get_type(param_value); |
17022 symbol_c *current_type_symbol = search_expression_type->get_type(param_value); |
17008 last_type_symbol = last_type_symbol && search_expression_type->is_same_type(current_type_symbol, last_type_symbol) ? search_expression_type->common_type(current_type_symbol, last_type_symbol) : current_type_symbol ; |
17023 last_type_symbol = last_type_symbol && search_expression_type->is_same_type(current_type_symbol, last_type_symbol) ? search_expression_type->common_type(current_type_symbol, last_type_symbol) : current_type_symbol ; |
17009 |
17024 |
17010 /*Function specific CODE */ |
17025 /*Function specific CODE */ |
17011 ADD_PARAM_LIST(¶m_name, param_value, current_type_symbol, function_param_iterator_c::direction_in) |
17026 ADD_PARAM_LIST(param_name, param_value, current_type_symbol, function_param_iterator_c::direction_in) |
17012 } |
17027 } |
17013 |
17028 |
17014 }while(param_value != NULL); |
17029 }while(param_value != NULL); |
17015 symbol_c * return_type_symbol = &search_constant_type_c::string_type_name; |
17030 symbol_c * return_type_symbol = &search_constant_type_c::string_type_name; |
17016 break; |
17031 break; |
17036 case function_insert : |
17051 case function_insert : |
17037 { |
17052 { |
17038 symbol_c *last_type_symbol = NULL; |
17053 symbol_c *last_type_symbol = NULL; |
17039 |
17054 |
17040 { |
17055 { |
17041 identifier_c IN1_param_name("IN1"); |
17056 symbol_c *IN1_param_name = (symbol_c *)(new identifier_c("IN1")); |
17042 /* Get the value from a foo(<param_name> = <param_value>) style call */ |
17057 /* Get the value from a foo(<param_name> = <param_value>) style call */ |
17043 symbol_c *IN1_param_value = &this->default_variable_name; |
17058 symbol_c *IN1_param_value = &this->default_variable_name; |
17044 |
17059 |
17045 symbol_c *IN1_type_symbol = param_data_type; |
17060 symbol_c *IN1_type_symbol = param_data_type; |
17046 last_type_symbol = param_data_type; |
17061 last_type_symbol = param_data_type; |
17047 |
17062 |
17048 if(IN1_type_symbol == NULL || search_expression_type->is_same_type(&search_constant_type_c::string_type_name, last_type_symbol)) |
17063 if(IN1_type_symbol == NULL || search_expression_type->is_same_type(&search_constant_type_c::string_type_name, last_type_symbol)) |
17049 { |
17064 { |
17050 |
17065 |
17051 { |
17066 { |
17052 identifier_c IN2_param_name("IN2"); |
17067 symbol_c *IN2_param_name = (symbol_c *)(new identifier_c("IN2")); |
17053 /* Get the value from a foo(<param_name> = <param_value>) style call */ |
17068 /* Get the value from a foo(<param_name> = <param_value>) style call */ |
17054 symbol_c *IN2_param_value = function_call_param_iterator.search_f(&IN2_param_name); |
17069 symbol_c *IN2_param_value = function_call_param_iterator.search_f(IN2_param_name); |
17055 symbol_c *IN2_type_symbol = NULL; |
17070 symbol_c *IN2_type_symbol = NULL; |
17056 |
17071 |
17057 /* Get the value from a foo(<param_value>) style call */ |
17072 /* Get the value from a foo(<param_value>) style call */ |
17058 if (IN2_param_value == NULL) |
17073 if (IN2_param_value == NULL) |
17059 IN2_param_value = function_call_param_iterator.next_nf(); |
17074 IN2_param_value = function_call_param_iterator.next_nf(); |
17064 |
17079 |
17065 if(IN2_type_symbol == NULL || search_expression_type->is_same_type(&search_constant_type_c::string_type_name, last_type_symbol)) |
17080 if(IN2_type_symbol == NULL || search_expression_type->is_same_type(&search_constant_type_c::string_type_name, last_type_symbol)) |
17066 { |
17081 { |
17067 |
17082 |
17068 { |
17083 { |
17069 identifier_c P_param_name("P"); |
17084 symbol_c *P_param_name = (symbol_c *)(new identifier_c("P")); |
17070 /* Get the value from a foo(<param_name> = <param_value>) style call */ |
17085 /* Get the value from a foo(<param_name> = <param_value>) style call */ |
17071 symbol_c *P_param_value = function_call_param_iterator.search_f(&P_param_name); |
17086 symbol_c *P_param_value = function_call_param_iterator.search_f(P_param_name); |
17072 symbol_c *P_type_symbol = NULL; |
17087 symbol_c *P_type_symbol = NULL; |
17073 |
17088 |
17074 /* Get the value from a foo(<param_value>) style call */ |
17089 /* Get the value from a foo(<param_value>) style call */ |
17075 if (P_param_value == NULL) |
17090 if (P_param_value == NULL) |
17076 P_param_value = function_call_param_iterator.next_nf(); |
17091 P_param_value = function_call_param_iterator.next_nf(); |
17084 |
17099 |
17085 function_name = (symbol_c*)(new pragma_c("__insert")); |
17100 function_name = (symbol_c*)(new pragma_c("__insert")); |
17086 |
17101 |
17087 if (IN1_type_symbol == NULL) |
17102 if (IN1_type_symbol == NULL) |
17088 IN1_type_symbol = last_type_symbol; |
17103 IN1_type_symbol = last_type_symbol; |
17089 ADD_PARAM_LIST(&IN1_param_name, IN1_param_value, IN1_type_symbol, function_param_iterator_c::direction_in) |
17104 ADD_PARAM_LIST(IN1_param_name, IN1_param_value, IN1_type_symbol, function_param_iterator_c::direction_in) |
17090 |
17105 |
17091 if (IN2_type_symbol == NULL) |
17106 if (IN2_type_symbol == NULL) |
17092 IN2_type_symbol = last_type_symbol; |
17107 IN2_type_symbol = last_type_symbol; |
17093 ADD_PARAM_LIST(&IN2_param_name, IN2_param_value, IN2_type_symbol, function_param_iterator_c::direction_in) |
17108 ADD_PARAM_LIST(IN2_param_name, IN2_param_value, IN2_type_symbol, function_param_iterator_c::direction_in) |
17094 |
17109 |
17095 if (P_type_symbol == NULL) |
17110 if (P_type_symbol == NULL) |
17096 P_type_symbol = last_type_symbol; |
17111 P_type_symbol = last_type_symbol; |
17097 ADD_PARAM_LIST(&P_param_name, P_param_value, P_type_symbol, function_param_iterator_c::direction_in) |
17112 ADD_PARAM_LIST(P_param_name, P_param_value, P_type_symbol, function_param_iterator_c::direction_in) |
17098 symbol_c * return_type_symbol = &search_constant_type_c::string_type_name; |
17113 symbol_c * return_type_symbol = &search_constant_type_c::string_type_name; |
17099 break; |
17114 break; |
17100 |
17115 |
17101 } |
17116 } |
17102 |
17117 |
17125 case function_delete : |
17140 case function_delete : |
17126 { |
17141 { |
17127 symbol_c *last_type_symbol = NULL; |
17142 symbol_c *last_type_symbol = NULL; |
17128 |
17143 |
17129 { |
17144 { |
17130 identifier_c IN_param_name("IN"); |
17145 symbol_c *IN_param_name = (symbol_c *)(new identifier_c("IN")); |
17131 /* Get the value from a foo(<param_name> = <param_value>) style call */ |
17146 /* Get the value from a foo(<param_name> = <param_value>) style call */ |
17132 symbol_c *IN_param_value = &this->default_variable_name; |
17147 symbol_c *IN_param_value = &this->default_variable_name; |
17133 |
17148 |
17134 symbol_c *IN_type_symbol = param_data_type; |
17149 symbol_c *IN_type_symbol = param_data_type; |
17135 last_type_symbol = param_data_type; |
17150 last_type_symbol = param_data_type; |
17136 |
17151 |
17137 if(IN_type_symbol == NULL || search_expression_type->is_same_type(&search_constant_type_c::string_type_name, last_type_symbol)) |
17152 if(IN_type_symbol == NULL || search_expression_type->is_same_type(&search_constant_type_c::string_type_name, last_type_symbol)) |
17138 { |
17153 { |
17139 |
17154 |
17140 { |
17155 { |
17141 identifier_c L_param_name("L"); |
17156 symbol_c *L_param_name = (symbol_c *)(new identifier_c("L")); |
17142 /* Get the value from a foo(<param_name> = <param_value>) style call */ |
17157 /* Get the value from a foo(<param_name> = <param_value>) style call */ |
17143 symbol_c *L_param_value = function_call_param_iterator.search_f(&L_param_name); |
17158 symbol_c *L_param_value = function_call_param_iterator.search_f(L_param_name); |
17144 symbol_c *L_type_symbol = NULL; |
17159 symbol_c *L_type_symbol = NULL; |
17145 |
17160 |
17146 /* Get the value from a foo(<param_value>) style call */ |
17161 /* Get the value from a foo(<param_value>) style call */ |
17147 if (L_param_value == NULL) |
17162 if (L_param_value == NULL) |
17148 L_param_value = function_call_param_iterator.next_nf(); |
17163 L_param_value = function_call_param_iterator.next_nf(); |
17153 |
17168 |
17154 if(L_type_symbol == NULL || search_expression_type->is_integer_type(L_type_symbol)) |
17169 if(L_type_symbol == NULL || search_expression_type->is_integer_type(L_type_symbol)) |
17155 { |
17170 { |
17156 |
17171 |
17157 { |
17172 { |
17158 identifier_c P_param_name("P"); |
17173 symbol_c *P_param_name = (symbol_c *)(new identifier_c("P")); |
17159 /* Get the value from a foo(<param_name> = <param_value>) style call */ |
17174 /* Get the value from a foo(<param_name> = <param_value>) style call */ |
17160 symbol_c *P_param_value = function_call_param_iterator.search_f(&P_param_name); |
17175 symbol_c *P_param_value = function_call_param_iterator.search_f(P_param_name); |
17161 symbol_c *P_type_symbol = NULL; |
17176 symbol_c *P_type_symbol = NULL; |
17162 |
17177 |
17163 /* Get the value from a foo(<param_value>) style call */ |
17178 /* Get the value from a foo(<param_value>) style call */ |
17164 if (P_param_value == NULL) |
17179 if (P_param_value == NULL) |
17165 P_param_value = function_call_param_iterator.next_nf(); |
17180 P_param_value = function_call_param_iterator.next_nf(); |
17173 |
17188 |
17174 function_name = (symbol_c*)(new pragma_c("__delete")); |
17189 function_name = (symbol_c*)(new pragma_c("__delete")); |
17175 |
17190 |
17176 if (IN_type_symbol == NULL) |
17191 if (IN_type_symbol == NULL) |
17177 IN_type_symbol = last_type_symbol; |
17192 IN_type_symbol = last_type_symbol; |
17178 ADD_PARAM_LIST(&IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) |
17193 ADD_PARAM_LIST(IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) |
17179 |
17194 |
17180 if (L_type_symbol == NULL) |
17195 if (L_type_symbol == NULL) |
17181 L_type_symbol = last_type_symbol; |
17196 L_type_symbol = last_type_symbol; |
17182 ADD_PARAM_LIST(&L_param_name, L_param_value, L_type_symbol, function_param_iterator_c::direction_in) |
17197 ADD_PARAM_LIST(L_param_name, L_param_value, L_type_symbol, function_param_iterator_c::direction_in) |
17183 |
17198 |
17184 if (P_type_symbol == NULL) |
17199 if (P_type_symbol == NULL) |
17185 P_type_symbol = last_type_symbol; |
17200 P_type_symbol = last_type_symbol; |
17186 ADD_PARAM_LIST(&P_param_name, P_param_value, P_type_symbol, function_param_iterator_c::direction_in) |
17201 ADD_PARAM_LIST(P_param_name, P_param_value, P_type_symbol, function_param_iterator_c::direction_in) |
17187 symbol_c * return_type_symbol = &search_constant_type_c::string_type_name; |
17202 symbol_c * return_type_symbol = &search_constant_type_c::string_type_name; |
17188 break; |
17203 break; |
17189 |
17204 |
17190 } |
17205 } |
17191 |
17206 |
17214 case function_replace : |
17229 case function_replace : |
17215 { |
17230 { |
17216 symbol_c *last_type_symbol = NULL; |
17231 symbol_c *last_type_symbol = NULL; |
17217 |
17232 |
17218 { |
17233 { |
17219 identifier_c IN1_param_name("IN1"); |
17234 symbol_c *IN1_param_name = (symbol_c *)(new identifier_c("IN1")); |
17220 /* Get the value from a foo(<param_name> = <param_value>) style call */ |
17235 /* Get the value from a foo(<param_name> = <param_value>) style call */ |
17221 symbol_c *IN1_param_value = &this->default_variable_name; |
17236 symbol_c *IN1_param_value = &this->default_variable_name; |
17222 |
17237 |
17223 symbol_c *IN1_type_symbol = param_data_type; |
17238 symbol_c *IN1_type_symbol = param_data_type; |
17224 last_type_symbol = param_data_type; |
17239 last_type_symbol = param_data_type; |
17225 |
17240 |
17226 if(IN1_type_symbol == NULL || search_expression_type->is_same_type(&search_constant_type_c::string_type_name, last_type_symbol)) |
17241 if(IN1_type_symbol == NULL || search_expression_type->is_same_type(&search_constant_type_c::string_type_name, last_type_symbol)) |
17227 { |
17242 { |
17228 |
17243 |
17229 { |
17244 { |
17230 identifier_c IN2_param_name("IN2"); |
17245 symbol_c *IN2_param_name = (symbol_c *)(new identifier_c("IN2")); |
17231 /* Get the value from a foo(<param_name> = <param_value>) style call */ |
17246 /* Get the value from a foo(<param_name> = <param_value>) style call */ |
17232 symbol_c *IN2_param_value = function_call_param_iterator.search_f(&IN2_param_name); |
17247 symbol_c *IN2_param_value = function_call_param_iterator.search_f(IN2_param_name); |
17233 symbol_c *IN2_type_symbol = NULL; |
17248 symbol_c *IN2_type_symbol = NULL; |
17234 |
17249 |
17235 /* Get the value from a foo(<param_value>) style call */ |
17250 /* Get the value from a foo(<param_value>) style call */ |
17236 if (IN2_param_value == NULL) |
17251 if (IN2_param_value == NULL) |
17237 IN2_param_value = function_call_param_iterator.next_nf(); |
17252 IN2_param_value = function_call_param_iterator.next_nf(); |
17242 |
17257 |
17243 if(IN2_type_symbol == NULL || search_expression_type->is_same_type(&search_constant_type_c::string_type_name, last_type_symbol)) |
17258 if(IN2_type_symbol == NULL || search_expression_type->is_same_type(&search_constant_type_c::string_type_name, last_type_symbol)) |
17244 { |
17259 { |
17245 |
17260 |
17246 { |
17261 { |
17247 identifier_c L_param_name("L"); |
17262 symbol_c *L_param_name = (symbol_c *)(new identifier_c("L")); |
17248 /* Get the value from a foo(<param_name> = <param_value>) style call */ |
17263 /* Get the value from a foo(<param_name> = <param_value>) style call */ |
17249 symbol_c *L_param_value = function_call_param_iterator.search_f(&L_param_name); |
17264 symbol_c *L_param_value = function_call_param_iterator.search_f(L_param_name); |
17250 symbol_c *L_type_symbol = NULL; |
17265 symbol_c *L_type_symbol = NULL; |
17251 |
17266 |
17252 /* Get the value from a foo(<param_value>) style call */ |
17267 /* Get the value from a foo(<param_value>) style call */ |
17253 if (L_param_value == NULL) |
17268 if (L_param_value == NULL) |
17254 L_param_value = function_call_param_iterator.next_nf(); |
17269 L_param_value = function_call_param_iterator.next_nf(); |
17259 |
17274 |
17260 if(L_type_symbol == NULL || search_expression_type->is_integer_type(L_type_symbol)) |
17275 if(L_type_symbol == NULL || search_expression_type->is_integer_type(L_type_symbol)) |
17261 { |
17276 { |
17262 |
17277 |
17263 { |
17278 { |
17264 identifier_c P_param_name("P"); |
17279 symbol_c *P_param_name = (symbol_c *)(new identifier_c("P")); |
17265 /* Get the value from a foo(<param_name> = <param_value>) style call */ |
17280 /* Get the value from a foo(<param_name> = <param_value>) style call */ |
17266 symbol_c *P_param_value = function_call_param_iterator.search_f(&P_param_name); |
17281 symbol_c *P_param_value = function_call_param_iterator.search_f(P_param_name); |
17267 symbol_c *P_type_symbol = NULL; |
17282 symbol_c *P_type_symbol = NULL; |
17268 |
17283 |
17269 /* Get the value from a foo(<param_value>) style call */ |
17284 /* Get the value from a foo(<param_value>) style call */ |
17270 if (P_param_value == NULL) |
17285 if (P_param_value == NULL) |
17271 P_param_value = function_call_param_iterator.next_nf(); |
17286 P_param_value = function_call_param_iterator.next_nf(); |
17279 |
17294 |
17280 function_name = (symbol_c*)(new pragma_c("__replace")); |
17295 function_name = (symbol_c*)(new pragma_c("__replace")); |
17281 |
17296 |
17282 if (IN1_type_symbol == NULL) |
17297 if (IN1_type_symbol == NULL) |
17283 IN1_type_symbol = last_type_symbol; |
17298 IN1_type_symbol = last_type_symbol; |
17284 ADD_PARAM_LIST(&IN1_param_name, IN1_param_value, IN1_type_symbol, function_param_iterator_c::direction_in) |
17299 ADD_PARAM_LIST(IN1_param_name, IN1_param_value, IN1_type_symbol, function_param_iterator_c::direction_in) |
17285 |
17300 |
17286 if (IN2_type_symbol == NULL) |
17301 if (IN2_type_symbol == NULL) |
17287 IN2_type_symbol = last_type_symbol; |
17302 IN2_type_symbol = last_type_symbol; |
17288 ADD_PARAM_LIST(&IN2_param_name, IN2_param_value, IN2_type_symbol, function_param_iterator_c::direction_in) |
17303 ADD_PARAM_LIST(IN2_param_name, IN2_param_value, IN2_type_symbol, function_param_iterator_c::direction_in) |
17289 |
17304 |
17290 if (L_type_symbol == NULL) |
17305 if (L_type_symbol == NULL) |
17291 L_type_symbol = last_type_symbol; |
17306 L_type_symbol = last_type_symbol; |
17292 ADD_PARAM_LIST(&L_param_name, L_param_value, L_type_symbol, function_param_iterator_c::direction_in) |
17307 ADD_PARAM_LIST(L_param_name, L_param_value, L_type_symbol, function_param_iterator_c::direction_in) |
17293 |
17308 |
17294 if (P_type_symbol == NULL) |
17309 if (P_type_symbol == NULL) |
17295 P_type_symbol = last_type_symbol; |
17310 P_type_symbol = last_type_symbol; |
17296 ADD_PARAM_LIST(&P_param_name, P_param_value, P_type_symbol, function_param_iterator_c::direction_in) |
17311 ADD_PARAM_LIST(P_param_name, P_param_value, P_type_symbol, function_param_iterator_c::direction_in) |
17297 symbol_c * return_type_symbol = &search_constant_type_c::string_type_name; |
17312 symbol_c * return_type_symbol = &search_constant_type_c::string_type_name; |
17298 break; |
17313 break; |
17299 |
17314 |
17300 } |
17315 } |
17301 |
17316 |
17330 case function_find : |
17345 case function_find : |
17331 { |
17346 { |
17332 symbol_c *last_type_symbol = NULL; |
17347 symbol_c *last_type_symbol = NULL; |
17333 |
17348 |
17334 { |
17349 { |
17335 identifier_c IN1_param_name("IN1"); |
17350 symbol_c *IN1_param_name = (symbol_c *)(new identifier_c("IN1")); |
17336 /* Get the value from a foo(<param_name> = <param_value>) style call */ |
17351 /* Get the value from a foo(<param_name> = <param_value>) style call */ |
17337 symbol_c *IN1_param_value = &this->default_variable_name; |
17352 symbol_c *IN1_param_value = &this->default_variable_name; |
17338 |
17353 |
17339 symbol_c *IN1_type_symbol = param_data_type; |
17354 symbol_c *IN1_type_symbol = param_data_type; |
17340 last_type_symbol = param_data_type; |
17355 last_type_symbol = param_data_type; |
17341 |
17356 |
17342 if(IN1_type_symbol == NULL || search_expression_type->is_same_type(&search_constant_type_c::string_type_name, last_type_symbol)) |
17357 if(IN1_type_symbol == NULL || search_expression_type->is_same_type(&search_constant_type_c::string_type_name, last_type_symbol)) |
17343 { |
17358 { |
17344 |
17359 |
17345 { |
17360 { |
17346 identifier_c IN2_param_name("IN2"); |
17361 symbol_c *IN2_param_name = (symbol_c *)(new identifier_c("IN2")); |
17347 /* Get the value from a foo(<param_name> = <param_value>) style call */ |
17362 /* Get the value from a foo(<param_name> = <param_value>) style call */ |
17348 symbol_c *IN2_param_value = function_call_param_iterator.search_f(&IN2_param_name); |
17363 symbol_c *IN2_param_value = function_call_param_iterator.search_f(IN2_param_name); |
17349 symbol_c *IN2_type_symbol = NULL; |
17364 symbol_c *IN2_type_symbol = NULL; |
17350 |
17365 |
17351 /* Get the value from a foo(<param_value>) style call */ |
17366 /* Get the value from a foo(<param_value>) style call */ |
17352 if (IN2_param_value == NULL) |
17367 if (IN2_param_value == NULL) |
17353 IN2_param_value = function_call_param_iterator.next_nf(); |
17368 IN2_param_value = function_call_param_iterator.next_nf(); |
17361 |
17376 |
17362 function_name = (symbol_c*)(new pragma_c("__find")); |
17377 function_name = (symbol_c*)(new pragma_c("__find")); |
17363 |
17378 |
17364 if (IN1_type_symbol == NULL) |
17379 if (IN1_type_symbol == NULL) |
17365 IN1_type_symbol = last_type_symbol; |
17380 IN1_type_symbol = last_type_symbol; |
17366 ADD_PARAM_LIST(&IN1_param_name, IN1_param_value, IN1_type_symbol, function_param_iterator_c::direction_in) |
17381 ADD_PARAM_LIST(IN1_param_name, IN1_param_value, IN1_type_symbol, function_param_iterator_c::direction_in) |
17367 |
17382 |
17368 if (IN2_type_symbol == NULL) |
17383 if (IN2_type_symbol == NULL) |
17369 IN2_type_symbol = last_type_symbol; |
17384 IN2_type_symbol = last_type_symbol; |
17370 ADD_PARAM_LIST(&IN2_param_name, IN2_param_value, IN2_type_symbol, function_param_iterator_c::direction_in) |
17385 ADD_PARAM_LIST(IN2_param_name, IN2_param_value, IN2_type_symbol, function_param_iterator_c::direction_in) |
17371 symbol_c * return_type_symbol = &search_constant_type_c::int_type_name; |
17386 symbol_c * return_type_symbol = &search_constant_type_c::int_type_name; |
17372 break; |
17387 break; |
17373 |
17388 |
17374 } |
17389 } |
17375 |
17390 |